diff --git a/xtrn/lord2/cnw/30dayidx.dat b/xtrn/lord2/cnw/30dayidx.dat
new file mode 100644
index 0000000000000000000000000000000000000000..1a87ed396f1ebb3aa6e19996f0f0e0eec81b5328
Binary files /dev/null and b/xtrn/lord2/cnw/30dayidx.dat differ
diff --git a/xtrn/lord2/cnw/3rdparty.dat b/xtrn/lord2/cnw/3rdparty.dat
new file mode 100644
index 0000000000000000000000000000000000000000..8b7fd2bec200cc06130e48a74ad5e6d0c887ea2b
--- /dev/null
+++ b/xtrn/lord2/cnw/3rdparty.dat
@@ -0,0 +1,144 @@
+ `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& `9�s�n�m�
+ `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
diff --git a/xtrn/lord2/cnw/alchmist.clr b/xtrn/lord2/cnw/alchmist.clr
new file mode 100644
index 0000000000000000000000000000000000000000..d6a4813fc521e2b914a44cbcfabffd159fb1a57a
--- /dev/null
+++ b/xtrn/lord2/cnw/alchmist.clr
@@ -0,0 +1,13 @@
+[?7h[255D[63C[0m�[1;47m�������[0m�
+[62C[1;47m����������[30m�[0m�
+[60C��[1;47m������[30m�[37m��[30m�[37m�[30m�[0m�
+[59C�[1m����[41m�[31m��[37m�[40m����[30;47m�[37m�[30m�[0m�
+[59C�[1m�[31;41m���[40m����[41m����[37;40m�[47m�[30m��[0m�
+[59C�[1;31m�����[41m��[40m�� [0;31m�[1;37m�[47m�[30m��[40m
+[60C[0m�[1;31m� [0m� [1;31m�� [0m� [31m���[1;37m�[30;47m��[0m�
+[60C�[1;31m������[0;31m�[1m���[41m�[1C[37;40m�[30;47m��[40m
+[60C[0m� [31m�[1m������ �[0;31m�[1;37m�[30;47m�[40m
+[62C[37m�� [0;31m��� [1;37m�� �
+[60C��[0m� [1;47m�����[1C[0m�[1m��
+[61C[0m�������� ���
+[64C[31m�����
diff --git a/xtrn/lord2/cnw/alien.ref b/xtrn/lord2/cnw/alien.ref
new file mode 100644
index 0000000000000000000000000000000000000000..3107ca7cb3130217fc46ac60e2cb2072bd89a287
--- /dev/null
+++ b/xtrn/lord2/cnw/alien.ref
@@ -0,0 +1,510 @@
+; 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
diff --git a/xtrn/lord2/cnw/andhouse.ref b/xtrn/lord2/cnw/andhouse.ref
new file mode 100644
index 0000000000000000000000000000000000000000..d9c90e42ca7a8eed616c1956a398ef0bd86990ee
--- /dev/null
+++ b/xtrn/lord2/cnw/andhouse.ref
@@ -0,0 +1,60 @@
+; 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
diff --git a/xtrn/lord2/cnw/andrew.ref b/xtrn/lord2/cnw/andrew.ref
new file mode 100644
index 0000000000000000000000000000000000000000..4d09e8ba69761bc53ff2dd5e32349210f26d0bb4
--- /dev/null
+++ b/xtrn/lord2/cnw/andrew.ref
@@ -0,0 +1,233 @@
+; 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
diff --git a/xtrn/lord2/cnw/archery.clr b/xtrn/lord2/cnw/archery.clr
new file mode 100644
index 0000000000000000000000000000000000000000..84d573fb835b6778dc0f23ed901690cfda1384cc
--- /dev/null
+++ b/xtrn/lord2/cnw/archery.clr
@@ -0,0 +1,6 @@
+[?7h[255D[56C[0;1m���[0;32m��������������[1;37m [D
+[61C���[0;36m��������������[1;37m [D
+[59C���[33m��������������[37m [D
+[56C����������������� [D
+[59C���[34m��������������[37m [D
+[56C���[0;36m��������������[1;37m [D
diff --git a/xtrn/lord2/cnw/arris.ref b/xtrn/lord2/cnw/arris.ref
new file mode 100644
index 0000000000000000000000000000000000000000..4495e9f49933d0203eb31102a4e4afdbb602110f
--- /dev/null
+++ b/xtrn/lord2/cnw/arris.ref
@@ -0,0 +1,1439 @@
+; Script file ARRIS.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:15 2001
+
+@DECLARE castle 000000883
+@DECLARE ca1 000001584
+@DECLARE ghost 000004733
+@DECLARE sh1 000006683
+@DECLARE kosign 000007866
+@DECLARE sh2 000007992
+@DECLARE sh3 000008205
+@DECLARE sosstore 000008426
+@DECLARE store 000008611
+@DECLARE inn 000008792
+@DECLARE potiond 000011061
+@DECLARE seth 000014968
+@DECLARE sethsign 000016872
+@DECLARE heal 000016940
+@DECLARE bank 000018670
+@DECLARE bankstart 000018794
+@DECLARE bankagain 000020844
+@DECLARE deposit 000022297
+@DECLARE withdraw 000022847
+@DECLARE bank2 000023712
+@DECLARE bankstart 000023837
+@DECLARE bankagain 000025168
+@DECLARE deposit 000026587
+@DECLARE withdraw 000027136
+@DECLARE trav 000027997
+@DECLARE lstore 000028197
+@DECLARE nomore 000028263
+@NOCHECK
+; End of .REF index
+
+;ArrisVille & friends ref file
+@#castle
+;Corin's castle
+@do moveback
+@busy
+@offmap
+@show
+`r0`c `%`r1 The Royal Palace `r0
+
+ `2The Arrisville castle is a picturesque stone monument that pays
+ homage to perseverance. Even though his mother and father have been
+ missing for nearly a year, `0Prince Corin`2 has kept this city strong.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Ask for an audience with Corin
+Leave
+@if responce is 1 then do
+ @begin
+ @if `p07 < -50 then do
+ @begin
+ @show
+`\`\ `2The prince refuses to grant you an audience. Apparently he's heard
+ of you.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do `v01 is 1
+ @show
+`\`\ `2The prince agrees to see you.
+`\`k
+@label ca1
+@do `v01 is 1
+@show
+`r0`c `%`r1 Audience With The Prince `r0
+
+ `0"And how can I help you today, `n`0?" `2the prince asks.
+
+@do write
+`x`x
+@choice
+Tell me of rumors you've heard
+Conduct business with Corin
++`t17 4 -`t17 5 I must ask a favor of you, dear prince.
++`t17 5 -`t17 6 Prince.. I am back.
+>`i72 0 I have the Gryphon Moon!
+Flirt with the prince
+End the audience
+@if responce is 5 then do
+ @begin
+ @show
+`\`\ `0"Incredible work!" `2the prince compliments you warmly.
+
+`k
+ @do goto ca1
+ @end
+@if responce is 4 then do
+ @begin
+@show
+`\`\ `0"What happened over there?!" `2Corin demands.
+
+ `$"Terrible things.... I barely escaped with my life. But I did not
+ accomplish what I came do to, so I must ask yet another boon of you..."
+
+`k `2A few days later you are dropped off at the `4Dragon Tooth Clan's`2
+ headquarters.
+
+`k
+@do `i67 is 1
+@do map is 705
+@do x is 29
+@do y is 11
+@loadmap &map
+@drawmap
+@update
+@closescript
+
+ @end
+
+@if responce is 3 then do
+ @begin
+ @show
+`\`\ `0"Anything! I have heard of your efforts to stop the Dragon Tooth Clan."`2
+ the prince tells you excitedly.
+
+`k `$"Can one of your great ships take me to our enemies lair? You know the
+ island of which I speak, don't you."
+
+`k `0"Yes, yes I do." `2Corin tells you somberly. `0"You may leave tommorow,
+ for now, you must rest."
+
+`k`c `r1 `%Goodnight `r0
+`\ `2Palace servants take you to a most wonderful room - ornamental rugs
+ cover much of the floors and walls, many of which contain scenes of men
+ doing battle with dragons and other beasts.
+
+ Your bed is large and soft. The silk sheets feel like clouds against your
+ skin... clouds.. this seems to follow you into your dreams.
+
+`k`c `r1 `%All aboard! `r0
+
+ `2After a huge breakfast the prince accompanies you to the docks.
+
+`k `0"I wish you great success in whatever it is you must do. I would that
+ you would take this gift, `n`0."
+
+`k `%THE PRINCE GIVES YOU A DISGUISE!
+
+`k `2The crew is quiet during the journey. The silence is unnerving.
+
+`k You finally arrive.
+
+`k
+@do `i67 is 1
+@bitset `t17 5 1
+@do map is 705
+@do x is 29
+@do y is 11
+@loadmap &map
+@drawmap
+@update
+@closescript
+ @end
+
+@if responce is 1 then do
+ @begin
+ @if bitcheck `t17 7 1 then do
+ @begin
+ @show
+`\`\ `2Corin's face becomes earnest. `0"Things are much better now. You have
+ done this country a great service by taking the `%Gryphon Moon`0. If you
+ ever need anything, let me know."
+`\`k
+ @do goto ca1
+ @end
+
+ @show
+`\`\ `2Corin's face becomes earnest. `0"To be honest, there is much unrest.
+ The people are afraid... afraid of the `4Dragon Tooth Clan`0 and the threats
+ they make. I have refused to pay the tribute they demand and many fear they
+ will retaliate soon."
+`\`k
+ @do goto ca1
+ @end
+
+ @if responce is 2 then do
+ @begin
+ @do `p20 is 6
+ @run getquest in quest.ref
+ @end
+ @if responce is 6 then do
+ @begin
+ @do `p70 is 50
+ @do `p20 is 1
+ @run flirt in talk.ref
+ @end
+
+ @end
+
+@drawmap
+@update
+
+@#ghost
+;The ghost quest, that haunts the .... :)
+@if bitcheck `t14 4 0 then do
+ @begin
+@if `i61 > 0 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@busy
+@show
+`r0`c `%`r1 A Ghostly Image `r0
+
+ `3Walking down the halls of the inn you begin to hear a quiet moaning.
+ You look around but see nothing. The sound seems to be coming from a
+ wall! You move closer to hear more, the moaning seems to be getting
+ louder. Suddenly you notice a light, but not from a candle, it seems
+ to be a brilliant blue.
+
+ A transparent blue body floats out from the wall, it's a man with a
+ dismal look on his face moaning loudly. You're both scared an
+ exhilarated at the same time. `%Who is this Ghost?`3
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Attempt to talk to it
+Fight it
+Run
+@if response is 1 then do
+ @begin
+ @do `i61 is 1
+ @show
+`\`\ `%You fight back your fear and reach out towards the apparition.
+ As you do so the figure stops its moaning and looks to you.
+ `$"Who .. who are you?" `%you ask.
+ `%"A person .. like yourself," `3he replies. `%"I too quested for the
+ Red Dragon, back when we were sure of his existance. I believed I had
+ found my way to one of his lairs. Here in this land, in the northeast
+ a cave in the water. I went in hoping to find the beast, but was betrayed
+ by a companion."
+
+ `%"You may right my death though. `3Take this and find the cave, honor my
+ body..."
+
+ `%His image fades and lying where he was is a small silver ring.
+`\`k
+ @end
+@if response is 2 then do
+ @begin
+ @pauseoff
+ @do `p07 - 1
+ @show
+`\`\ `%Your instincts take over as you pull out your s&weapon. The ghost
+ seems instantly aware of you. It speaks ...
+ `3"Beware the path you choose warrior, it may not be as easy as you may
+ think ..." `%and like that he's gone.
+
+ `bYOUR ALIGNMENT GOES DOWN BY ONE!`b
+`\`k
+ @end
+@end
+@drawmap
+@update
+
+@#sh1
+;Sosen house 1 person
+@do `p70 is 43
+@busy
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do `v01 is 1
+@show
+`r0`c `r1 `%Talking to Basil `r0
+
+ `2A slightly evil looking man encourages you to sit.
+
+@do write
+`x`x
+@choice
+Gossip
+Conduct business with Basil
+Leave
+@if responce is 2 then do
+ @begin
+ @do `p20 is 5
+ @run getquest in quest.ref
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do `p21 random 3 1
+ @if `p21 is 1 then do
+ @begin
+ @show
+`\`\ `0"Well.. I believe the Dragon Cult is telling the truth. The Dragon
+ is alive and well and serves them. You would do well to respect them."
+`\`k
+ @end
+
+ @if `p21 is 2 then do
+ @begin
+ @show
+`\`\ `0"The Koshi people will kill you if you get too close. Stay away from
+ where they live. Me? Of course I don't know where that is..."
+`\`k
+ @end
+
+ @if `p21 is 3 then do
+ @begin
+ @show
+`\`\ `0"This town is small. There ain't much business around here.. but I
+ have a few customers.. What do I sell? Don't EVER ask me that again!"
+`\`k
+ @end
+
+ @do goto sh1
+ @end
+
+@drawmap
+@update
+@end
+
+@#kosign
+;Sosen house 1 person
+@do moveback
+@do saybar
+`0Sign: `2<--- Koshi mountains. Stay away from these sick people!
+
+@#sh2
+;Sosen house 2 person
+@do `p70 is 41
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Matt Longsword: `2We Dragon Tooth members like to drink blood. Do you?
+@end
+
+@#sh3
+;Sosen house 3 person
+@do `p70 is 42
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Wiscard: There is a music shop west of Arrisville..`2My house `bsucks`2.
+@end
+
+@#sosstore
+@do moveback
+@offmap
+@busy
+@show
+`r0`c `r1 Sosen Village General Store `r0
+
+
+
+
+@buymanager
+26
+32
+33
+58
+59
+60
+40
+5
+@drawmap
+@update
+
+@#STORE
+;The ArrisVille Store
+@do moveback
+@offmap
+@busy
+@show
+`r0`c `r1 ArrisVille Store `r0
+
+
+
+
+@buymanager
+58
+59
+60
+@drawmap
+@update
+
+@#inn
+;The ArrisVille (tm) Inn
+@if ninn7.dat exist false then do
+ @begin
+@do `v01 is 1
+@offmap
+@do moveback
+@show
+`r0`c `%`r1 ArrisVille Inn `r0
+
+ `2The towered Inn looks very nice - A refreshing change from what you're
+ used to in your travels.
+
+ A well dressed man looks up from the front desk.
+
+ `0"Good day s&sir, how may I help you?"`2
+
+ You are holding `$$&money`2.
+
+@do write
+`x`x
+@choice
+Get a room (`$$100`%)
+I'd like to buy this fine place.
+Leave
+@if response is 3 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@if response is 1 then do
+ @begin
+ @if money < 100 then do
+ @begin
+ @show
+`\`\`2 You are short on cash. It's okay, someday you'll be able to stay
+ here...
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`\ `2You give the man the cash. He leads you inside...
+`\`k
+ @do money - 100
+ @do x is 21
+ @do y is 13
+ @do map is 450
+ @loadmap 450
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `$"Mister, I'd like to buy this fine place. May I?"
+
+`k `2The nice little man in this nice little place answers your question
+ formally. `0"Of course, young man. Interested in business, are we? Here
+ take this pamphlet. And, I, myself, know a few things about the business
+ world. What would you like to know?"
+
+`k `$"Just how much is this going to cost?"
+
+`k`c`\`\ `0"I'll sell it to you for `%$75,000`0."
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+>&money 74999 I'll take it!
+Let me find the money first
+@if response is 2 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@if response is 1 then do
+ @begin
+ @if ninn7.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile ninn7.dat
+&playernum
+NONE
+0
+0
+0
+0
+ @do money - 65000
+ @do addlog
+ `0`n `2buys `%Arrisville Inn`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%The Nice Formal Know-it-All Employee and Friend `r0
+`\`2 Nice job! You now own his Inn!
+
+ `2Enjoy your new home.
+
+`k
+@label POTIOND
+@show
+`c`\
+ `2What would you like your toilet water to be made out of?
+
+@do write
+`x`x`x
+@do `v01 is 1
+@choice
+Silver Potion
+Gold Potion
+Red Potion
+What!?!
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `2Let's explain, shall we...
+
+ `0In your private room, there will be a toilet. In it, there will be water.
+ What kind of water is your choice. This water will be available to drink
+ once per day by yourself and whomever you allow inside your private room.
+
+ `2Types of Water:
+
+ `$-`0Silver Potion`2: Dodge goes up by 1!
+ `$-`0Gold Potion`2: Muscle goes up by 2!
+ `$-`0Red Potion`2: Max HP goes up by 5!
+
+ `2That's what we're talking about...
+
+`k
+
+ @do goto POTIOND
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Silver Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw7.DAT exist true then delete ninnw7.DAT
+ @writefile ninnw7.DAT
+1
+Silver Potion
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Gold Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw7.DAT exist true then delete ninnw7.DAT
+ @writefile ninnw7.DAT
+2
+Gold Potion
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Red Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw7.DAT exist true then delete ninnw7.DAT
+ @writefile ninnw7.DAT
+5
+Red Potion
+ @end
+
+@end
+@end
+@end
+;--IF IT HAS BEEN PURCHASED
+
+@do `v01 is 1
+@offmap
+@if ninn7.dat exist false then do
+ @begin
+ @do goto INN
+ @end
+@if ninn7.dat exist true then do
+ @begin
+@readfile ninn7.dat
+`p20
+`s01
+@
+@do `s02 is getname `p20
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete ninn7.dat
+ @do addlog
+ `%Arrisville Inn`2 is put on the market today.
+ @routine seperate in gametxt.ref
+ @end
+ @if `p20 is &playernum then do
+ @begin
+ @do x is 21
+ @do y is 13
+ @do map is 450
+ @loadmap 450
+ @drawmap
+ @update
+ @do saybar
+`!Know-it-All Man: `$Welcome back, boss.
+ @closescript
+ @end
+ @show
+`r0`c `%`r1 Arrisville Inn, owned by `0`s02`% `r0
+ @end
+@do moveback
+@show
+
+ `2The towered Inn looks very nice - A refreshing change from what you're
+ used to in your travels.
+
+ A well dressed man looks up from the front desk.
+
+ `0"Good day s&sir, how may I help you?"`2
+
+ You are holding `$$&money`2.
+
+@do write
+`x`x
+@if ninn7a.dat exist false then do
+ @begin
+ @writefile ninn7a.dat
+200
+0
+ @end
+ @readfile ninn7a.dat
+`p26
+`p27
+ @
+@do `v01 is 1
+@choice
+Get a room (`$`p26`%)
+How's the owner?
+Leave
+@if response is 1 then do
+ @begin
+ @if money < `p26 then do
+ @begin
+ @show
+`\`\`2 You are short on cash. It's okay, someday you'll be able to stay
+ here...
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`\ `2You give the man the cash. He leads you inside...
+`\`k
+ @do money - `p26
+ @do `p27 + `p26
+ @do delete ninn7a.dat
+ @writefile ninn7a.dat
+`p26
+`p27
+ @
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has stayed at your Inn! Cha-CHING!
+
+ @do x is 21
+ @do y is 13
+ @do map is 450
+ @loadmap 450
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `$"How's that crummy ol' `0`s02`$?" `2you ask.
+
+`k `0"Oh, busy, busy, busy. An economist, you know. A very politician.
+ Very educated. One day, big! I tell you. Huge. With a business mind
+ like that...even his toilet water is good!"
+
+`k
+ @do goto INN
+ @end
+
+@drawmap
+@update
+
+@#seth
+;talking to seth (gosh, he rules!)
+@do `p70 is 2
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@show
+`r0`c `r1 `%The Music Shop `r0
+
+ `2The man looks up. Somehow he looks so familiar..
+
+ `0"What can I help you with, friend?" `2he asks.
+
+@do write
+`x`x
+@do `p70 is 2
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@show
+`r0`c `r1 `%The Music Shop `r0
+
+ `2The man looks up. Somehow he looks so familiar..
+
+ `0"What can I help you with, friend?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Do I know you?
+-`t14 1 >`i07 0 Can you fix my flute?
++`t14 1 -`t14 2 >`i07 0 Can you teach me how to play my flute?
+Leave
+@if responce is 3 then do
+ @begin
+ @show
+`\`\ `2The man agrees. Half an hour later you have mastered TWO songs!
+
+`k
+ @bitset `t14 2 1
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ `0"Hey there... look at this. Can you fix it? I've tried blowing it
+ and it don't work so hot," `2you ask.
+
+ `2The man studies your flute for sometime. He suddenly looks at you.
+ `0"Where did you find this?!!"
+
+`k `2You tell him. He explains that there are only two of them in the
+ world - and he owns the other one. The Trondhiem Flutes each contain
+ special powers. If you know how to play them correctly...
+
+ `$"So are you gonna fix it, sir?"
+
+`k `2The man laughs. `0"It isn't broken! You just didn't know how to play
+ it!"
+
+`k
+ @bitset `t14 1 1
+ @do goto seth
+ @end
+
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `0"No, no I don't think so. I moved from Greentree a few years ago."
+
+ `$"But I come from Stonebrook! That is right next to you!!!" `2you exclaim.
+
+ `0"Oh yeah? Woah." `2After a moment or so of uncomfortable silence you
+ decide to move on.
+
+`k
+ @do goto seth
+ @end
+
+@drawmap
+@update
+@end
+@end
+
+@#sethsign
+@do moveback
+@do saybar
+`0Sign: `2<---- The Music Shop
+
+@#heal
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1 ArrisVille Master Healing `r0
+
+`2 Master 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 come on! How am I supposed to make money when I can barely walk?
+Buddy, how 'bout a little compassion for once in your life freak!
+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," `2Master informs you.
+
+`k
+ @end
+@if response is 3 then do
+ @begin
+ @do `p02 = 1
+ @show
+ `0"Sure. Take like 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!" `2says Master.
+
+`k
+@drawmap
+@update
+
+@#bank
+@do `p30 is 6
+@do `v01 is 1
+@offmap
+@do moveback
+@do `s09 is arris
+@routine DONEQUEST in VAULTS.REF
+@label bankstart
+@show
+`r0`c `r1 `%5th Bank Of ArrisVille `r0
+
+`2 A young clerk eyes you nervously.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+;<--cnw added-->
+@do `p27 is 0
+@dataload taxes.idf &playernum `p23
+@if `p23 > 0 then `p27 is 1
+
+;check ext items for pouch of documents.
+;@routine NEWITEM in DEEDS.REF
+@do `p29 is &playernum
+@routine Pouch`xof`xDocuments in extitems.ref
+@routine bitcheck in item99.ref
+@do `p30 is 6 ;<--set bank to #6, ext items uses `p30 as well.
+;<--cnw end-->
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdrawal.
+=&bank 0 Apply for an account here.
+=`p20 0 >&money 45 Buy an envelope for important documents. ($40)
+=`p27 1 Pay the taxes
+Leave
+@if responce is 5 then do
+ @begin
+ @routine bank in taxes.ref
+ @end
+@if responce is 4 then do
+@begin
+@show
+
+
+ `2The exited boy tells you...
+
+ `0"You can keep all your important deeds in this secure envelope.
+ `0Instead of leaving them all at your homes, now you can check
+ your property which you own."
+
+ `2You pass him the cash and you recieve the brown envelope.
+
+ `k
+@do `i75 is 1
+@do money - 45
+@do goto bank
+
+@end
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last questions?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+
+
+@drawmap
+@update
+
+
+@#bank2
+@do `p30 is 5
+@do `v01 is 1
+@offmap
+@do moveback
+@do `s09 is sobank
+@routine DONEQUEST in VAULTS.REF
+@label bankstart
+@show
+`r0`c `r1 `%4th Bank Of Sosen `r0
+
+`2 A young clerk eyes you nervously.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+@dataload taxes.idf &playernum `p21
+@if `p21 > 0 then do
+ @begin
+ @do `p22 is 1
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdrawal.
+=&bank 0 Apply for an account here.
+Leave
+=`p22 1 Pay the taxes
+@if responce is 5 then do
+ @begin
+ @routine bank in taxes.ref
+ @end
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last questions?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+
+
+@drawmap
+@update
+
+@#TRAV
+;Travel ticket place in ArrisVille
+@do moveback
+@offmap
+@busy
+@show
+`r0`c `r1 ArrisVille Travel `r0
+
+
+
+
+@buymanager
+27
+32
+33
+@drawmap
+@update
+
+
+@#LSTORE
+;Store in the Sosen Village
+@OFFMAP
+@DO MOVEBACK
+
+
+@#nomore
diff --git a/xtrn/lord2/cnw/atlantis.ref b/xtrn/lord2/cnw/atlantis.ref
new file mode 100644
index 0000000000000000000000000000000000000000..aebc487176e8be6be480999daae9d886afb9a475
--- /dev/null
+++ b/xtrn/lord2/cnw/atlantis.ref
@@ -0,0 +1,198 @@
+; 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) ------>
diff --git a/xtrn/lord2/cnw/atrain.ref b/xtrn/lord2/cnw/atrain.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e7f7ba6efb47024ce3b464d30dee8c72a9384e30
--- /dev/null
+++ b/xtrn/lord2/cnw/atrain.ref
@@ -0,0 +1,656 @@
+; 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
diff --git a/xtrn/lord2/cnw/auction.ref b/xtrn/lord2/cnw/auction.ref
new file mode 100644
index 0000000000000000000000000000000000000000..3a1d31e4cd721a064cb6b8c534de7f83604d4c6c
--- /dev/null
+++ b/xtrn/lord2/cnw/auction.ref
@@ -0,0 +1,707 @@
+; 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
diff --git a/xtrn/lord2/cnw/backdoor.ref b/xtrn/lord2/cnw/backdoor.ref
new file mode 100644
index 0000000000000000000000000000000000000000..2ecc862902e526b8e88b97bebb7c992d41a75618
--- /dev/null
+++ b/xtrn/lord2/cnw/backdoor.ref
@@ -0,0 +1,414 @@
+; 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
+[0;1m[46C[0;33m�����
+[43C[1;37m��[0;33m�������[1;37m��
+[42C��[43m [0;33m�[43m [1;37;40m��
+[42C�[0;33m��[1;37;43m\ [0;33m��[43m [1;37m- [0;33m�[1;37m�
+[43C[0;33m�[43m [1;34m�[0;33m��[43m [40m��[1;34;43m� [40m[A
+[53C[0;33m�
+[43C�����[1;30;43m [D [0;33m�����
+[44C[46m��[40m��[1;31;43m [0;33;46m��[40m
+[1;34mHe looks at you with his[21C[0;33m���[1;37;43m [D [40m[A
+[49C[0;33m���
+[15C[1;34mbeady little eyes.[10C____/ \____
+[41C/// ||||||| \\\
+[40C||| ||||||| |||
+[41C\\\ ||||| ///
+[42C\\\/// \\\ [0;31m�[1;34m/
+[40C[0;35m�[1;37;45m�������[0;30;45m�[1;37m�������[0;35m� [A
+[60C[1;34m��
+[32C[0;33m��������������������������������
+[32C��[8C[1;34m|||||||||||||[7C[0;33m��
+[32C��������������������������������
+[32C��[7C[1;34m|||||||||||||||[6C[0;33m��
+[32C��[7C[1;34m|||||||||||||||[6C[0;33m��[0m[255D
+@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
+[0;1m[46C[0;33m�����
+[43C[1;37m��[0;33m�������[1;37m��
+[42C��[43m [0;33m�[43m [1;37;40m��
+[42C�[0;33m��[1;37;43m\ [0;33m��[43m [1;37m- [0;33m�[1;37m�
+[43C[0;33m�[43m [1;34m�[0;33m��[43m [40m��[1;34;43m� [40m[A
+[53C[0;33m�
+[43C�����[1;30;43m [D [0;33m�����
+[44C[46m��[40m��[1;31;43m [0;33;46m��[40m
+[1;34mHe looks at you with his[21C[0;33m���[1;37;43m [D [40m[A
+[49C[0;33m���
+[15C[1;34mbeady little eyes.[10C____/ \____
+[41C/// ||||||| \\\
+[40C||| ||||||| |||
+[41C\\\ ||||| ///
+[42C\\\/// \\\ [0;31m�[1;34m/
+[40C[0;35m�[1;37;45m�������[0;30;45m�[1;37m�������[0;35m� [A
+[60C[1;34m��
+[32C[0;33m��������������������������������
+[32C��[8C[1;34m|||||||||||||[7C[0;33m��
+[32C��������������������������������
+[32C��[7C[1;34m|||||||||||||||[6C[0;33m��
+[32C��[7C[1;34m|||||||||||||||[6C[0;33m��[0m[255D
+@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
diff --git a/xtrn/lord2/cnw/badcomp.ref b/xtrn/lord2/cnw/badcomp.ref
new file mode 100644
index 0000000000000000000000000000000000000000..083d8a787d3c27711301d6e219bee43e1d20109c
--- /dev/null
+++ b/xtrn/lord2/cnw/badcomp.ref
@@ -0,0 +1,380 @@
+; 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
diff --git a/xtrn/lord2/cnw/badwords.dat b/xtrn/lord2/cnw/badwords.dat
new file mode 100644
index 0000000000000000000000000000000000000000..d9b414469197b2e3cb7478db09e94c83f9a77e27
--- /dev/null
+++ b/xtrn/lord2/cnw/badwords.dat
@@ -0,0 +1,22 @@
+;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
diff --git a/xtrn/lord2/cnw/baitshop.ref b/xtrn/lord2/cnw/baitshop.ref
new file mode 100644
index 0000000000000000000000000000000000000000..982c6c134d86e2866b8910da5b67cf8ba3ff2420
--- /dev/null
+++ b/xtrn/lord2/cnw/baitshop.ref
@@ -0,0 +1,261 @@
+; Script file BAITSHOP.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:32 2001
+
+@DECLARE nexus 000000486
+@DECLARE parappa 000000601
+@DECLARE fish 000000715
+@DECLARE fishsell 000001208
+@DECLARE outsign 000002048
+@DECLARE mart 000002132
+@DECLARE martstart 000002210
+@DECLARE fishdock 000004017
+@DECLARE phobos 000004074
+@DECLARE table1 000004160
+@DECLARE fishsign 000004380
+@DECLARE monster1 000004478
+@DECLARE nomore 000004795
+@NOCHECK
+; End of .REF index
+
+@#NEXUS
+;stares at ya
+@do moveback
+@do saybar
+`%The one and only `9NeXuS_oNe `%gives you an evil stare...
+
+@#PARAPPA
+;gives ya advice
+@do moveback
+@do saybar
+`9ParaPPa`%: I'd stay clear of `9NeXuS_oNe `%if I was you!
+
+@#FISH
+@offmap
+@do moveback
+@show
+`r0`c `r1 `%The Big Bad Bait Shop `r0
+
+ `2People are buying and selling fish all over the place! You also see
+ some nice rods in a corner. A man introduces himself as `0Rocky`2 and
+ asks what you need.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Buy something
+Sell some fish
+Leave
+@if response is 1 then do
+ @begin
+ @do write
+`\`\
+ @buymanager
+ 28
+ 29
+ @do goto fish
+ @end
+
+@if responce is 2 then do
+ @begin
+ @label fishsell
+ @show
+`c `r1 The market place `r0
+
+ `2You walk up to a fish bin and show 'em what you got.
+
+ `2You are holding `$$&money`2.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+<`i29 1 <`i30 1 You have no fish to sell.
+>`i29 0 Sell a Salmon for `$$50`%. `2(you have `0`i29`2)
+>`i30 0 Sell a Sparking Green Salmon for `$$250`%. `2(you have `0`i30`2)
+>`i29 0 <`i30 1 Sell nothing
+>`i30 0 <`i29 1 Sell nothing
+>`i30 0 >`i29 0 Sell nothing
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ `0"Thank you for the fish, s&sir!"
+
+`k
+ @do money + 50
+ @do `i29 - 1
+ @do goto fishsell
+ @end
+@if responce is 3 then do
+ @begin
+ @show
+`\`\ `0"My god?!? Where did you catch this?!? Thank you!"
+
+`k
+ @do money + 250
+ @do `i30 - 1
+ @do goto fishsell
+ @end
+
+ @do goto fish
+
+ @end
+
+@drawmap
+@update
+
+@#OUTSIGN
+@do moveback
+@do saybar
+`% The Big Bad Baitshop `2An IGM by `9Phobos
+
+
+@#MART
+;The quicke mart (tm)
+@DO MOVEBACK
+@BUSY
+@DO `v01 is 1
+@label martstart
+@SHOW
+`r0`c `r1`% Wow, they have everything in here `r0
+
+ `2The clerk behind the counter introduces herself as `1Shaira `2and says
+ `0"Oh my golly-gosh, customers!! How ever may I help you?"
+
+@DO WRITE
+`x`x
+@CHOICE
+Ask for some shark-jerky
+Get a super-slushie to go
+Check out the back room for supplies
+Leave
+@if responce is 4 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@IF RESPONSE IS 3 THEN DO
+@Begin
+@Show
+`\`\ `$"I need to get some new gear," `2you say. Shaira smiles, `0"Okie
+ Dokie, I hope you enjoy our fine selection of death tools." `2You
+ review your choices.
+
+`k
+@show
+`r0`c `r1 `%Quick-E Mart Stuff
+
+
+@buymanager
+35
+36
+37
+40
+@do goto martstart
+@End
+
+@IF RESPONSE IS 1 THEN DO
+@Begin
+@Show
+`\`\ `2You take a look at the jerky, you're pretty sure you're better off
+ eating something you killed outside.`%
+`\`k
+@DO goto martstart
+@End
+@IF RESPONSE IS 2 THEN DO
+@Begin
+@if money < 1 then do
+ @begin
+ @show
+`\`\ `0"Are trying to be ripping me off, s&sir?! You shall not taste a single
+ drop of my wonderful liquid!"
+
+`k
+ @do goto martstart
+ @end
+@do money - 1
+@Show
+`\`\ `$"Give me a super slushie, one that's made entirely out of syrup," `2you
+ command.
+ `0"An all syrup super slushie? Oh such a thing has never been done," `2
+ Shaira gasps.
+`\`k `$"Just make it happen," `2you say as you lay down the dough.
+ `0"Oh dear," `2she moans and turns towards the machine. It begins to
+ rumble, you feel the walls shake. `0"Oh no, she's breaking up," `2she
+ yells....
+`\`k `5DING!
+`\`k `2The clerk turns and hands you your slushie. `0"All done, if you
+ survive, please come again."
+`\`k
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+
+
+@#FISHDOCK
+@run fishdock in porttown.ref
+@closescript
+
+@#Phobos
+ @do moveback
+ @do saybar
+`9Phobos`2: Gee! I really love these sharks!
+
+@#Table1
+ @do moveback
+ @if bitcheck `t13 1 1 then do
+ @begin
+ @do saybar
+There is nothing on the table.
+ @closescript
+ @end
+
+@bitset `t13 1 1
+@do saybar
+`%You found a Red Potion!
+@do `i52 + 1
+
+
+@#FISHSIGN
+@do moveback
+@do saybar
+`2<--- Prison `$Fish only off the middle dock `2--->
+
+
+
+@#Monster1
+@fight
+;name
+Loose Shark
+;
+He just jumped out of his tank!
+;
+You just killed an endangered species! :(
+;
+1
+;
+bites you!|6
+hits you with his powerful tail!|5
+scrapes his dorsal fin on you!|4
+NONE|NONE
+NONE|NONE
+;
+5
+;
+269
+;
+69
+;
+69
+;
+NONE|NONE
+;
+GAMETXT.REF|DIE
+;
+NONE|NONE
+
+
+@#nomore
+
diff --git a/xtrn/lord2/cnw/bandit.ref b/xtrn/lord2/cnw/bandit.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c8c3d6126c7076af9123f60d56921527963d8a43
--- /dev/null
+++ b/xtrn/lord2/cnw/bandit.ref
@@ -0,0 +1,446 @@
+; Script file BANDIT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:17 2001
+
+@DECLARE sign 000000760
+@DECLARE well 000000845
+@DECLARE ladder 000001124
+@DECLARE door 000006631
+@DECLARE room1 000006820
+@DECLARE room2 000007222
+@DECLARE room3 000007625
+@DECLARE room4 000008059
+@DECLARE room5 000008686
+@DECLARE celldoor 000008964
+@DECLARE plaque 000009210
+@DECLARE table 000009740
+@DECLARE spot 000009820
+@DECLARE hawkmoon 000009892
+@DECLARE healer 000011750
+@DECLARE nomore 000011835
+@NOCHECK
+; End of .REF index
+
+; -= Bandit's Hideout =- LORD II IGM for version 1.00 or higher
+; Compliments of Chet and Mary Rhodes (aka Hawkmoon and Breanna)
+; Hawkmoon's Realm BBS (919)556-8363
+; FIDO 1:151/131
+; chet.rhodes@juno.com
+
+@#SIGN
+@DO MOVEBACK
+@DO SAYBAR
+`$CAUTION! Poisoned Water. DO NOT DRINK!
+@END
+
+@#WELL
+@DO MOVEBACK
+@IF `p02 < 2 THEN GOTO HEALER
+@DATANEWDAY BANDIT.idf
+@DATALOAD BANDIT.idf &PLAYERNUM `p20
+@IF `p20 NOT 1 THEN DO
+@BEGIN
+@DO GOTO LADDER
+@CLOSESCRIPT
+@END
+
+@DO SAYBAR
+`$That bandit could show up any minute now. You better head out of here.
+
+
+@#LADDER
+@BUSY
+@SHOW
+`\
+`r0`c `%`r1 Examining the well `r0
+`\`2 The area around the well show signs of recent activity. Strangely
+ enough not only is the well dry but there is a ladder inside. At the
+ bottom seems to be a large opening.`\
+@DO `v01 IS 1
+@DO WRITE
+`x`x
+@CHOICE
+Climb down into the well and explore a little.�
+Leave before you find something you don't want to.�
+@IF RESPONSE IS 2 THEN DO
+@BEGIN
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@IF RESPONSE IS 1 THEN DO
+@BEGIN
+@SHOW
+`r0`c `%`r1 Inside the well `r0
+
+`2 Half way down the ladder makes a loud popping sound and you wonder if this
+ is a wise thing to do. As your foot touches the last rung you here a gasp
+ behind you.
+
+`k`2 Startled you spin around and ready your s&weapon expecting the worst.
+
+`k`2 The base of the well is actually a large room. Directly behind you is an
+ opening leading off to the north. Standing in the doorway is a small boy
+ who seems even more startled then you, if that is possible.
+
+`k
+`r0`c `%`r1 A young boy `r0
+
+`2 "`0Please sir, I didn't take anything. I thought I heard my dog in here
+ and I came down to rescue him. I won't tell anyone what I saw, honest!`2" he
+ pleads.
+
+`k`2 "`$Easy lad. I don't intend to harm you. Now, what is this place?`2"
+ You smile as you notice the bulge in the young man's pockets and suspect he
+ may not have been quite truthful.
+
+`k`2 "`0It is the hideout of some old bandit named Hawkmoon. He use to hang
+ out in BoneTown but no one has seen him in awhile.`2"
+
+`k`2 "`$So what is down here`2?"
+
+`k
+`r0`c `%`r1 A young boy `r0
+
+`2 "`0At the end of the tunnel there are 5 doors. Rumor has it that one has
+ the bandit's main treasure. I am not sure what the other four are but I
+ have heard that one of them is a trap.`2"
+
+`k`2 "`$What kind of trap? Which door leads to the treasure`2?"
+
+`k`2 "`0The old folks say that there is a ghost in there and that he won't let
+ you leave unless you give him part of your life force. Others say that the
+ door has been enchanted and that once closed won't open again until the
+ moon has reached it's zenith. I don't know about that but I do know that
+ the doors open on different rooms each day.`2"
+
+`k`2 As you turn to peer down the tunnel the young boy darts past you and
+ scrambles up the ladder. You smile with fond memories of your own childhood
+ and start down the tunnel.
+
+`k
+@clear screen
+@pauseoff
+@show
+`1
+[?7h[40m[2J[2;1H[3C[0;1;30;41m��������������������������������[40m[s
+[u[41m�����������������������������������������[3;1H[3C���������[40m[s
+[u[41m������������������������������������������������������������[40m[s
+[u[41m����[4;1H[3C������[0;41mArrisVille[1;30m���[0;41mGreent[40m[s
+[u[41mree[1;30m����[0;41mFlagCity[1;30m�����[0;41mPortTown[40m[s
+[u[41m[1;30m�����[0;41mStonebrook[1;30m�����[5;1H[3C������[40m[s
+[u[0;30;43m�������ͻ[1;41m����[0;30;43m�������ͻ[1;41m����[40m[s
+[u[0;30;43m�������ͻ[1;41m����[0;30;43m�������ͻ[1;41m����[40m[s
+[u[0;30;43m�������ͻ[1;41m������[6;1H[3C������[0;30;43m� [40m[s
+[u[33;40m�����[1;30;43m�[0;30;43m�[1;41m����[0;30;43m� [40m[s
+[u[33;40m�����[1;30;43m�[0;30;43m�[1;41m����[0;30;43m� [40m[s
+[u[33;40m�����[1;30;43m�[0;30;43m�[1;41m����[0;30;43m� [40m[s
+[u[33;40m�����[1;30;43m�[0;30;43m�[1;41m����[0;30;43m� [40m[s
+[u[33;40m�����[1;30;43m�[0;30;43m�[1;41m������[7;1H[3C������[40m[s
+[u[0;30;43m� [1m���[0;30;43m�[1;41m����[0;30;43m� [1m��[40m[s
+[u[43m�[0;30;43m�[1;41m����[0;30;43m� [1m���[0;30;43m�[40m[s
+[u[1;41m����[0;30;43m� [1m���[0;30;43m�[1;41m����[0;30;43m[40m[s
+[u[43m� [1m���[0;30;43m�[1;41m������[8;1H[3C������[40m[s
+[u[0;30;43m� [1m��[0;30;43m�[1m�[0;30;43m�[1;41m����[40m[s
+[u[0;30;43m� [1m��[0;30;43m�[1m�[0;30;43m�[1;41m����[40m[s
+[u[0;30;43m� [1m��[0;30;43m�[1m�[0;30;43m�[1;41m����[40m[s
+[u[0;30;43m� [1m��[0;30;43m�[1m�[0;30;43m�[1;41m����[40m[s
+[u[0;30;43m� [1m��[0;30;43m�[1m�[0;30;43m�[1;41m������[40m
+[9;1H [41m������[0;30;43m� [1m������[0;30;43m�[1;41m����[40m[s
+[u[0;30;43m� [1m�����[0;30;43m�[1;41m����[0;30;43m� [1m�����[40m[s
+[u[43m�[0;30;43m�[1;41m����[0;30;43m� [1m�����[0;30;43m�[40m[s
+[u[1;41m����[0;30;43m� [1m�����[0;30;43m�[1;41m������[10;1H[40m[s
+[u[3C[41m������[0;30;43m�[1m�������[0;30;43m�[1;41m����[40m[s
+[u[0;30;43m� [1m������[0;30;43m�[1;41m����[0;30;43m�[1m������[40m[s
+[u[43m�[0;30;43m�[1;41m����[0;30;43m�[1m�������[0;30;43m�[40m[s
+[u[1;41m����[0;30;43m� [1m������[0;30;43m�[1;41m������[11;1H[40m[s
+[u[3C������������������������������������������������������������������[s
+[u�������[12;1H �����������������������������������������������������[s
+[u��������������������[0m
+
+@END
+@PAUSEON
+@SHOW
+`3 You wonder if the city names over the doors have any bearing on which room
+ you should pick.
+
+@do `v01 is 1
+@DO WRITE
+`x`x
+@CHOICE
+ArrisVille
+Greentree
+FlagCity
+PortTown
+Stonebrook
+Leave this hole.
+@IF RESPONSE IS 1 THEN GOTO DOOR
+@END
+
+@IF RESPONSE IS 2 THEN GOTO DOOR
+@END
+
+@IF RESPONSE IS 3 THEN GOTO DOOR
+@END
+
+@IF RESPONSE IS 4 THEN GOTO DOOR
+@END
+
+@IF RESPONSE IS 5 THEN GOTO DOOR
+@END
+
+@IF RESPONSE IS 6 THEN DO
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#DOOR
+@do `p20 random 5 1
+@if `p20 is 1 then GOTO ROOM1
+@if `p20 is 2 then GOTO ROOM2
+@if `p20 is 3 then GOTO ROOM3
+@if `p20 is 4 then GOTO ROOM4
+@if `p20 is 5 then GOTO ROOM5
+
+
+@#ROOM1
+@SHOW
+`r0`c `%`r1 Main Treasurey `r0
+
+`2 Whoa, you hit the mother load. Even the banker at Greentree would be
+ impressed with this haul.
+
+`k`2 A cutlass laying in the corner reminds you of where you are at. You
+ quickly load your pockets and head out.
+
+`2 You find $2,000 in gold
+
+`k
+@DO MONEY + 2000
+@DATASAVE BANDIT.IDF &playernum 1
+@drawmap
+@update
+@closescript
+
+@#ROOM2
+@SHOW
+`r0`c `%`r1 Treasurey `r0
+
+`2 Hmmm... this can't be the main treasury. This must be where Hawkmoon
+ keeps his overflow. Drat!!!
+
+`k`2 A rat scurries by and startles you reminding you of where you are at.
+ You quickly load your pockets and head out.
+
+`k`2 You find $500 in gold
+
+`k
+@DO MONEY + 500
+@DATASAVE BANDIT.IDF &playernum 1
+@drawmap
+@update
+@closescript
+
+@#ROOM3
+@SHOW
+`r0`c `%`r1 A Tunnel `r0
+
+`2 In front of you is another tunnel. Ahead you see a bright light.
+ eagerly you hurry forward in anticipation of huge riches.
+
+`k`2 You reach the light only to realize that you have exited the hideout.
+ A rumble in the cave and a puff of dust from the entrance discourages you
+ from heading back in.
+
+`k
+@DATASAVE BANDIT.IDF &playernum 1
+@drawmap
+@update
+@closescript
+
+@#ROOM4
+@SHOW
+`r0`c `%`r1 A Tunnel `r0
+
+`2 In front of you is another tunnel. Ahead you see a bright light.
+ eagerly you hurry forward in anticipation of huge riches.
+
+`k`2 Just before you reach the light you realize that you have found another
+ entrance to the hideout. With a loud rumble in the roof of the cave comes
+ crashing down.
+
+`k`2 For a minute there you thought you were a goner but you manage to
+ struggle free. Going back down that tunnel is out of the question.
+
+`k You realize you need a doctor.
+
+`k
+@DATASAVE BANDIT.IDF &playernum 1
+@DO `p02 / 2
+@drawmap
+@update
+@closescript
+
+@#ROOM5
+@SHOW
+`r0`c `%`r1 A Room `r0
+
+`2 You here an ominous click as the door swings closed behind you.
+
+`k
+@DATASAVE BANDIT.IDF &playernum 1
+@LOADMAP 1570
+@DO X IS 37
+@DO y IS 11
+@drawmap
+@update
+@closescript
+
+@END
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#CELLDOOR
+@DO MOVEBACK
+@DATANEWDAY BANDIT.idf
+@DATALOAD BANDIT.idf &PLAYERNUM `p20
+@IF `p20 NOT 1 THEN DO
+@BEGIN
+@LOADMAP 1573
+@DO X IS 47
+@DO Y IS 15
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@DO SAYBAR
+`$The door seems to be locked.
+
+@#PLAQUE
+@DO MOVEBACK
+@SHOW
+`r0`c `%`r1 Writing on the wall `r0
+
+
+ Twofold is the path of the portal
+ One for dead and one for mortal.
+
+ If thou seek to test hell's gate
+ Hawkmoon then will hold thy fate.
+
+ If yon door resist thy power
+ then wait thou must for the witching hour.
+
+
+
+
+`k
+
+`2 At the bottom some one has scratch
+ "the blasted door only opens once per day after midnight."
+
+`k
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#TABLE
+@DO MOVEBACK
+@DO SAYBAR
+`$You don't recognize anything here.
+@END
+
+@#SPOT
+@DO SAYBAR
+`$A strange chill runs down you spine.
+@END
+
+@#HAWKMOON
+@DO MOVEBACK
+@SHOW
+`\
+`r0`c `%`r1 Talking with Hawkmoon `r0
+`\`2 You see a man sitting at a desk working. The items in his hands seem
+ drift in and out of focus. A candle flickers and caste eerie shadows on
+ the wall. The light seems not to come from around the man, but rather
+ through him. Somehow you know you have found Hawkmoon.
+
+`k`2 "`0Welcome mortal to my own personal piece of purgatory.`2"
+
+`k`2 "`$Thank you. Now how do I get out`2?"
+
+`k`2 "`0You can wait for the door to open after midnight or you can pay my
+ price`2."
+
+`k`2 "`$And your price would be....`2"
+
+`k
+`r0`c `%`r1 Talking with Hawkmoon `r0
+
+`2 "`0Very simple, surrender to me part of your life force. It is what I
+ require before I can leave this place`2."
+
+`k
+@DO `v01 IS 1
+@CHOICE
+��Surrender part of your life force to help Hawkmoon
+��No thanks. I will wait for the door to open.
+@IF RESPONSE IS 2 THEN DO
+@BEGIN
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@IF RESPONSE IS 1 THEN DO
+@CLEAR SCREEN
+@SHOW
+ �
+ �
+ �
+ �
+ �
+ �
+ �
+ �
+ �
+ �
+ �
+ ��
+ ��
+ ��
+ ��
+ �
+ ���Ŀ
+ �� ÿ��
+ �� �����Ŀ
+ � � �� �
+ �
+@CLEAR SCREEN
+@SHOW
+`r0`c `%`r1 Talking with Hawkmoon `r0
+
+`2 You seriously need to see a healer now.
+
+`k
+@DO `p02 is 1
+@LOADMAP 1573
+@DO X IS 47
+@DO Y IS 15
+
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#HEALER
+@DO SAYBAR
+`$You should see a healer before venturing down here.
+@END
+
+@#NOMORE
+
diff --git a/xtrn/lord2/cnw/bann.clr b/xtrn/lord2/cnw/bann.clr
new file mode 100644
index 0000000000000000000000000000000000000000..eeffa831c5972f3eb0ea886bf60137b9b80b2c3d
--- /dev/null
+++ b/xtrn/lord2/cnw/bann.clr
@@ -0,0 +1,15 @@
+[?7h[255D[67C[0;33m��
+[67C�[30;43m�[33;40m�
+[67C�[30;43m�[33;40m����
+[67C����[30;43m�[33;40m��
+[65C�[37m�����[30;47m�[37;40m������[33m�
+[66C[47m [40m
+[65C[30;47m� Hear Ye �[40m
+[65C[47m Hear Ye [40m
+[64C[47m� Hear Ye �[40m
+[64C[47m [40m
+[63C[33m�[37m������������[33m�
+[67C�[30;43m�[33;40m�[30;43m�[33;40m�[43m [40m�
+[67C�[30;43m�[33;40m���[30;43m�[33;40m�
+[67C�[30;43m�[2C[33;40m�[30;43m�[33;40m�
+[68C� �
diff --git a/xtrn/lord2/cnw/bat.ref b/xtrn/lord2/cnw/bat.ref
new file mode 100644
index 0000000000000000000000000000000000000000..a7182cfe516ef980ef4bba24e7d046168b1f172a
--- /dev/null
+++ b/xtrn/lord2/cnw/bat.ref
@@ -0,0 +1,203 @@
+; Script file BAT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:32 2001
+
+@DECLARE batfight 000000323
+@DECLARE monster1 000000898
+@DECLARE monster2 000001465
+@DECLARE monster3 000001980
+@DECLARE monster4 000002506
+@DECLARE monster5 000003034
+@DECLARE bat 000003561
+@NOCHECK
+; End of .REF index
+
+@#BATFIGHT
+@offmap
+@fight
+;name
+Vampire
+;string said when you see him
+He is pure evil
+;power move kill string
+You throw some garlic on him.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+bites you|295
+hypnotizes you|250
+sends you flying across the room|286
+bitch slaps you|235
+NONE|NONE
+;defense
+250
+;gold reward
+2015
+;experience
+550
+;hit points
+575
+;if win: ref file|name or NONE
+QUESTER.REF|FINQUEST
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+QUESTER.REF|ENDQUEST
+
+@#monster1
+@fight
+;name
+Black Cloud
+;string said when you see him
+It looks like a black cloud of bats
+;power move kill string
+You chop them up into a million pieces
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|195
+smothers you|50
+lifts you up in the air and drops you|186
+NONE|NONE
+NONE|NONE
+;defense
+65
+;gold reward
+562
+;experience
+210
+;hit points
+125
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Giant Bat
+;string said when you see him
+Is that a dragon or a bat ?
+;power move kill string
+Eat this !
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+poops on you|75
+bites you|161
+beats you with her wings|91
+NONE|NONE
+NONE|NONE
+;defense
+68
+;gold reward
+628
+;experience
+158
+;hit points
+145
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Vampire bat
+;string said when you see him
+Looks like a bloodsucking bat
+;power move kill string
+Suck this !
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+drinks your blood|145
+gives you rabies|95
+flies in your face|54
+NONE|NONE
+NONE|NONE
+;defense
+82
+;gold reward
+925
+;experience
+171
+;hit points
+265
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Werewolf
+;string said when you see him
+Looks like a wolfman.
+;power move kill string
+You send him to dog heaven
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+slices you with his claws|180
+bites you|95
+nips your heels|78
+NONE|NONE
+NONE|NONE
+;defense
+90
+;gold reward
+815
+;experience
+200
+;hit points
+351
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Wolf Pack
+;string said when you see him
+A pack of wolves snarl at you
+;power move kill string
+They won't be bothering anyone else !
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+Rips your face|184
+pee on you|98
+bites you|87
+NONE|NONE
+NONE|NONE
+;defense
+50
+;gold reward
+526
+;experience
+165
+;hit points
+542
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#BAT
+@busy
+@do `p20 random 5 1
+@do goto monster`p20
diff --git a/xtrn/lord2/cnw/battle.ref b/xtrn/lord2/cnw/battle.ref
new file mode 100644
index 0000000000000000000000000000000000000000..a07169c98072b19a7122bbfea4d5030e93062fcb
--- /dev/null
+++ b/xtrn/lord2/cnw/battle.ref
@@ -0,0 +1,1328 @@
+; Script file BATTLE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:27 2001
+
+@DECLARE sign01 000002153
+@DECLARE sign02 000002579
+@DECLARE mozuz 000002672
+@DECLARE heymoz 000003342
+@DECLARE done 000003486
+@DECLARE gone 000003497
+@DECLARE sorry 000003528
+@DECLARE codsod1 000003603
+@DECLARE codsod2 000003682
+@DECLARE codsod3 000003756
+@DECLARE codsod4 000003837
+@DECLARE codsod5 000003901
+@DECLARE codsod6 000004016
+@DECLARE codsod7 000004096
+@DECLARE sharsod1 000004199
+@DECLARE sharsod2 000004277
+@DECLARE sharsod3 000004345
+@DECLARE sharsod4 000004461
+@DECLARE sharsod5 000004547
+@DECLARE sharsod6 000004667
+@DECLARE sharsod7 000004747
+@DECLARE codsod2 000004823
+@DECLARE powsod2 000004889
+@DECLARE powsod1 000004958
+@DECLARE powsod3 000005015
+@DECLARE powsod4 000005077
+@DECLARE powsod5 000005136
+@DECLARE powsod6 000005250
+@DECLARE powsod7 000005320
+@DECLARE entcasp 000005456
+@DECLARE extcasp 000005581
+@DECLARE armorp 000005705
+@DECLARE spyp 000005952
+@DECLARE guydead 000006021
+@DECLARE pp1a 000006216
+@DECLARE pp1b 000006427
+@DECLARE pp1c 000006631
+@DECLARE pigguyp 000006842
+@DECLARE treeguyp 000006937
+@DECLARE chop 000007374
+@DECLARE shaspy 000008146
+@DECLARE sleep 000008337
+@DECLARE getbeer 000008950
+@DECLARE drunk 000009871
+@DECLARE soldpow 000009936
+@DECLARE drkheal 000010049
+@DECLARE locked 000010508
+@DECLARE power 000010568
+@DECLARE power2 000010709
+@DECLARE miqueen 000013239
+@DECLARE queen 000014580
+@DECLARE sparebub 000014767
+@DECLARE arrows 000014860
+@DECLARE randev 000015682
+@DECLARE getfight 000016141
+@DECLARE monster1 000016700
+@DECLARE monster2 000017400
+@DECLARE monster3 000018109
+@DECLARE monster4 000018807
+@DECLARE monster5 000019513
+@DECLARE monster6 000020220
+@DECLARE monster7 000020961
+@DECLARE monster8 000021639
+@DECLARE monster9 000022333
+@DECLARE monster10 000023038
+@DECLARE merc 000023221
+@DECLARE randomm 000023801
+@NOCHECK
+; End of .REF index
+
+;Battlefield by Codax and Dragon's Den Ultd v .5
+;http://www.geocities.com/SiliconValley/Way/9982/index.html
+;this file has: Mozuz, signs, 1linerpeople, and Power's Castle
+@#sign01
+@do moveback
+@clearblock 21 21
+@do move 9 21
+@do write
+`r1`$/-------------------------------------------------\
+@do move 9 22
+@do write
+`r1`$|Warning!!! There is a Three Way War going on |
+@do move 9 23
+@do write
+`r1`$|Steer clear of this area! Enter at your own risk|
+@do move 9 24
+@do write
+`r1`$\_________________________________________________/`l`l`l`l`l`l
+@clearblock 21 24
+@do statbar
+
+@#sign02
+@do moveback
+@do saybar
+<---Shara's Burning Palace Battlegrounds --->
+
+@#mozuz
+@do moveback
+@show
+`r0`c `r1`% Meeting with an old guy `r0`0
+
+ "Hey there sonney, I'm Mozuz!"`2 and old man states.
+`$
+ "Uh....hi, Listen old man..."`0
+
+ Mozuz: That's Mozuz s&boy!
+`$
+ "Yeah, fine, how am I suposed to get across this river here?"
+`0
+ Mozuz: Easy I'll just wave my staff and the waters will part for you.`$
+
+ "OoooK"
+`0
+ Mozuz: Of course for a small fee, say `$500?
+
+@do `v01 is 1
+@choice
+<money 499 Sure why not
+Sorry, don't have the cash
+@
+@if responce is 2 then do
+@begin
+@run gone
+@end
+@if responce is 1 then do
+@begin
+@drawmap
+@update
+@do money - 500
+@run parth2o in battlefx.ref
+@end
+
+@#heymoz
+@do saybar
+HEY MOZUZ! HOWZABOUT OPENING YOUR WATER UP!!!!
+@Key
+@do saybar
+Mozuz: Ok here we go!
+@run parth2o in battlefx.ref
+
+@#done
+
+@#gone
+@drawmap
+@update
+
+@#sorry
+@do saybar
+Sorry, you cannot do that
+@key
+@do goto power
+
+@#codsod1
+@do saybar
+I would rather die than be captured by you Phoenixi
+
+@#codsod2
+@do moveback
+@do saybar
+I love to sit under these trees!
+
+@#codsod3
+@do moveback
+@do saybar
+I hate the Phoenix! I wanna killem all!
+
+@#codsod4
+@do moveback
+@do saybar
+I hear Codax is single
+
+@#codsod5
+@do moveback
+@do saybar
+Dragons fighting Dragons fighting Phoenixi! If only we could just be pals
+
+@#codsod6
+@do moveback
+@do saybar
+I hear that Shara is out to kill Codax
+
+@#codsod7
+@do moveback
+@do saybar
+I hear Codax has a great new weapon to kill off his enemies!
+
+@#sharsod1
+@do saybar
+Kill me if you will but I'll be back in 100 years
+
+@#sharsod2
+@do saybar
+Can't talk, fighting for my Queen Shara
+
+@#sharsod3
+@do moveback
+@do saybar
+We Phoexnix love and worship the lava that comes from our burining palace
+
+@#sharsod4
+@do moveback
+@do saybar
+Just 5 more years till my next regineration
+
+@#sharsod5
+@do moveback
+@do saybar
+Queen Shara, the greatest Phoexnix, is looking for someone to help run things
+
+@#sharsod6
+@do moveback
+@do saybar
+I'm one of Shara's greatest warriors!
+
+@#sharsod7
+@do moveback
+@do saybar
+General Cyrus is sooooo H-O-T-T HOTT!
+@#codsod2
+@do saybar
+Can't talk, fighting for my King Codax
+
+@#powsod2
+@do saybar
+Power is my master I shall do his bidding
+
+@#powsod1
+@do saybar
+May Power Protect My Actions!
+
+@#powsod3
+@do moveback
+@do saybar
+Evil is the greatest
+
+@#powsod4
+@do moveback
+@do saybar
+I hate Everything
+
+@#powsod5
+@do moveback
+@do saybar
+I had a Smack-rod but I lost it! Now I can't get off this stupid island
+
+@#powsod6
+@do moveback
+@do saybar
+Guess what! Power is single!
+
+@#powsod7
+@do moveback
+@do saybar
+Black is not necessarily a bad color, just bad steriotypes!
+
+;----------Power's Castle--------
+@#entcasp
+@do map is 644
+@loadmap 644
+@do `p30 is 1
+@routine fade in battlefx.ref
+@do x is 38
+@do y is 19
+@update
+
+@#extcasp
+@do map is 373
+@loadmap 373
+@do `p30 is 2
+@routine fade in battlefx.ref
+@do x is 35
+@do y is 14
+@update
+
+@#armorp
+@do moveback
+@busy
+@show
+`r0`c `r1 Evile's Armor `r0`0
+
+ "Hello there, s&sir! Could I interest you in some armor?"
+
+@buymanager
+10
+14
+37
+59
+@drawmap
+@update
+
+;@if bitcheck (bytevar) (which 0-7) (0=no 1=yes) then do
+@#spyp
+@do moveback
+@if bitcheck `t20 0 1 then do
+@begin
+@label guydead
+@do saybar
+This person is Dead
+@run done
+@end
+@if bitcheck `t20 0 0 then do
+@begin
+@do saybar
+Spy: I'm a spy for Codax! If you want to survive you should know our code
+@end
+
+@#pp1a
+@do moveback
+@if bitcheck `t20 1 1 then do
+@begin
+@do goto guydead
+@end
+@if bitcheck `t20 1 0 then do
+@begin
+@do saybar
+How do you like these black trees! I marvel at them everyday!!
+@end
+
+@#pp1b
+@do moveback
+@if bitcheck `t20 2 1 then do
+@begin
+@do goto guydead
+@end
+@if bitcheck `t20 2 0 then do
+@begin
+@do saybar
+Our soldiers are the best! They blend in with the grass!
+@end
+
+@#pp1c
+@do moveback
+@if bitcheck `t20 3 1 then do
+@begin
+@do goto guydead
+@end
+@if bitcheck `t20 3 0 then do
+@begin
+@do saybar
+Welcome to Power's Castle. I do so hope I will be his Queen!
+@end
+
+@#pigguyp
+@do moveback
+@do saybar
+I wish this war was over. My pigs are scared stiff!
+
+@#treeguyp
+@do moveback
+@if bitcheck `t21 2 0 then do
+@begin
+
+@if `i15 > 0 then do
+@begin
+@do move 3 21
+@do write
+`0Can I have Your `+15?`2(`0Y`2,`0N`2)
+@do readspecial `s01 NY
+@if `s01 is N then do
+@begin
+@do saybar
+FINE BE THAT WAY!!!!!!
+@run done
+@end
+
+@if `s01 is Y then do
+@begin
+@bitset `t21 2 1
+@do `p07 - 5
+@do `p18 + 5
+@do saybar
+Thanx buddy! I really needed this! `4You get -5 alignment and 5 QP
+@label chop
+@key
+@DO SAYBAR
+
+@do saybar
+Now to cut down this tree!!! <CHOP>`L.`L.`L.<CHOP>`l.`l.`l.<CHOP>`l`l<TIMBER>
+@do move 35 6
+@do write
+`r2 `r0
+@run done
+@end
+@end
+
+@if `i15 < 1 then do
+@begin
+@show
+`r0`c `r1 Loggers are your friends `r0`0
+
+ "Hey buddy!"`2 A strage man says `0"I need to chop this tree down, will
+ you lend a fella a hand?"
+`k`$
+ "What do you need with me?"
+`k`0
+ "Just bring me a `2Huge Axe`0 so I can cut this tree down."
+`k`$
+ "Whatso important about _this_ tree?"
+`k`0
+ "It's called the Tree of `%Hope`0 and Power Hates it! So it's coming down
+`k
+@drawmap
+@update
+@end
+@end
+
+@if bitcheck `t21 2 1 then do
+@begin
+@do saybar
+Stupid tree grew back! Oh well I'll fix that!
+@do goto chop
+@end
+
+@#shaspy
+@do moveback
+@if bitcheck `t20 4 1 then do
+@begin
+@do saybar
+This spy is dead!
+@end
+@if bitcheck `t20 4 0 then do
+@begin
+@do saybar
+Do you have any dirt on Power?
+@end
+
+@#Sleep
+@do moveback
+@do move 3 22
+@do write
+`r0`2Would you like to rest? Just `$$100`2! (`0Y`2,`0N`2)
+@do readspecial `s01 NY
+@if `s01 is N then do
+@begin
+@clearblock 22 22
+@run done
+@end
+@if `s01 is Y then do
+@begin
+@if money < 100 then do
+@begin
+@clearblock 22 23
+@do money is 0
+@Do saybar
+You don't have that kind of money!!!
+@run done
+@end
+@if money > 99 then do
+@begin
+@clearblock 22 23
+@do money - 100
+@do `p25 is MAP
+@loadmap 1289
+@do map is 1289
+@routine fade in battlefx.ref
+@loadmap `p25
+@do map is `p25
+@do move 35 10
+@do write
+Sleep Well!`k
+@halt
+@end
+@end
+
+@#getbeer
+@if money < 200 then do
+@begin
+@do saybar
+Go away.....come back when you have at least 200 gold!!!
+@run done
+@end
+@if money > 199 then do
+@begin
+@drawpart 65 15
+@drawpart 64 16
+@drawpart 66 16
+@update
+@do move 3 22
+@do write
+`r0`2 Hey fella whatcha want? (`0A`2le,`0W`2ine,`8D`7ark Exlixer`2,`0Q`2uit)
+@do readspecial `s01 QAWD
+@clearblock 22 22
+@if `s01 is D then do
+@begin
+@do money - 200
+@do `p02 is `p03
+@do saybar
+Huh! You want the Dark Elixer!!! Well, um, ooooK. Here it comes
+@run getale in battlefx.ref
+@end
+
+@if `s01 is W then do
+@begin
+@do money - 50
+@do saybar
+Ahhhh.....Wine....what a wonderful drink
+@run getale in battlefx.ref
+@end
+
+@if `s01 is A then do
+@begin
+@do money - 10
+@do saybar
+Ahhhh Ale.....Here ya go!
+@run getale in battlefx.ref
+@end
+
+@if `s01 is Q then do
+@begin
+@do saybar
+Then get out!!!!!
+@run done
+@do moveback
+@end
+@end
+
+@#drunk
+@do moveback
+@do saybar
+Take me drunk I'm home!
+
+@#soldpow
+@do moveback
+@do saybar
+I feel I've sold the great Power out! For I have lost my will to fight
+
+@#drkheal
+@do moveback
+@show
+`r0`c `r1 Would you like to be healed? `r0`7
+
+
+ I am Arstumious the Dark Healer! I will heal you for 1500 gold!
+ How about it?`/`/
+@do `v01 is 1
+@choice
+<money 1499 Sure
+Leave
+@
+@if responce is 2 then do
+@begin
+@run gone
+@end
+@if responce is 1 then do
+@begin
+@do `p02 is `p03
+@do money - 1500
+@show
+
+
+`7
+ There all better. Take care in this world of good and evil!
+`k
+@run gone
+@end
+
+@#locked
+@do moveback
+@do saybar
+This door is locked!
+
+@#power
+@do moveback
+@if bitcheck `t20 7 1 then do
+@begin
+@do saybar
+Power is dead!
+@end
+@if bitcheck `t20 7 0 then do
+@begin
+@label power2
+@if map is 484 then `s02 is Power
+@if `s02 is Power then `s03 is Who's`xgot`xthe`xPower
+@do `p20 random 5 1
+@if `p20 is 1 then `s01 is Did`xyou`xhear`xthe`xone`xabout`xthe`xsamon?
+@if `p20 is 2 then `s01 is Whats`xblack`xand`xwhite`xand`xread`xall`xover?
+@if `p20 is 3 then `s01 is How`xmuch`xwood`xcoulda`xwoodchuck`xchuck?
+@if `p20 is 4 then `s01 is Why`xdid`xthe`xdragon`xcross`xthe`xstreet?
+@if `p20 is 5 then `s01 is Nice`xshoes.
+@show
+`r0`c `r1`% `s03 `r0`2
+
+
+ "`0What do you want from me? I'm a busy dragon!!!`2" `s02 Booms.
+ Royal Favor: `p82
+
+@do `v01 is 1
+@choice
+=`p82 0 How about `$$1,000,000,000
+>`p82 0 `s01
+=`p82 1 Nice castle...Looks like all the other ones I've seen
+>`p82 1 =&sex 0 Flirt
+>`p82 1 Why do you 3 fight?
+>`p82 3 =`p81 0 I would like to be your assasin!
+>`p82 49 =&sex 0 =`p83 0 Can I be your Queen?
+-`t21 0 >`p80 1 I've killed those spys!
+>`p84 1 I've killed those Royals!
+Leave
+@
+
+@if responce is 6 then do
+@begin
+@run assasin in battle2.ref
+@end
+
+@if responce is 4 then do
+@begin
+@routine flirt in battle2.ref
+@end
+
+@if responce is 3 then do
+@begin
+@show
+`\`\`\`\`0 'Sadly It's true, we all hired the same person to our castles
+ The lowsy bum cut corners and made all the castles almost identical!!!
+ You have alot of backbone for asking that!`k
+@do `p82 + 1
+@Do goto power2
+@end
+
+@if responce is 1 then do
+@begin
+@show
+`\`\`\`\`0 'HAHAHAHAHAHAAHAHHAAaa!!! You amuze me `n!`l`l`l`l
+@do `p82 + 1
+@do goto power2
+@end
+
+@if responce is 2 then do
+@begin
+@show
+`\`\`\`0`\ 'Yawn.....Heard that one already....Go away!
+`k
+@do `p82 is 0
+@routine gone in battlefx.ref
+@update
+@do statbar
+@end
+
+
+@if responce is 5 then do
+@begin
+@do `p82 + 1
+@run story in battlest.ref
+@end
+
+@if responce is 10 then do
+@begin
+@routine gone in battlefx.ref
+@update
+@do statbar
+@end
+
+@if responce is 9 then do
+@begin
+@bitset `t21 1 1
+@show
+`\`\`\`\`\0 Wonderful!!!! Hahaha Now I rule this area!!! The war is
+ finaly over!!! And I won!!!`k
+@run `s01end in battlest.ref
+@end
+
+
+@if responce is 8 then do
+@begin
+@if `s01 is Power then `s03 is Codax
+@bitset `t21 0 1
+@show
+`\`\`\`\`0 Good You've finaly killed those spys! I begining to like you!
+ Next, you should Kill`l.`l.`l. Shara and `s03!
+ `%You get 10 Quest Points and Royal Favor up!
+`k
+@
+@do `p18 + 10
+@do `p82 + 3
+@do `p82 + `p80
+@routine gone in battlefx.ref
+@update
+@end
+
+@if responce is 7 then do
+@begin
+@label miqueen
+@if battleqs.cod exists false then do
+@begin
+@writefile battleqs.cod
+0
+0
+0
+@
+@do goto miqueen
+@end
+@if battleqs.cod exists true then do
+@begin
+@readfile battleqs.cod
+`p30
+`p29
+`p28
+@
+@if `s02 is Power then do
+@begin
+@if `p30 not 0 then do
+@begin
+@do `s01 getname `p30
+@show
+`\`\`\`\`0 "Sorry `n, but `s01 is already my Queen.`k
+@do goto power2
+@end
+@if `p30 is 0 then do
+@begin
+@do write
+`\`\`\`\`0 Power Looks up and down your body`l.`l.`l.
+@do `p20 is 0
+@if `p07 < -100 then `p20 + 1
+@if `p07 > -99 then do
+@begin
+@do write
+`0 You need to be more Evil`l.`l.`l.
+@end
+@if `p08 > 60 then `p20 + 1
+@if `p08 < 60 then do
+@begin
+@do write
+`0 Your not that cute`l.`l.`l.
+@end
+@if `p20 not 2 then do
+@begin
+@do write
+`\`\Sorry you just aren't Queen Material `k
+@do goto power2
+@end
+@if `p20 is 2 then do
+@begin
+@do delete battleqs.cod
+@writefile battleqs.cod
+&playernum
+`p29
+`p28
+@
+@do `p83 is 1
+@do write
+`\`\Where have you been all my life!`k
+@writefile lognow.txt
+
+ `% ATTENTION!!!!`0 POWER `2HAS FOUND A QUEEN!!! PEASANTS ARE RESTLESS
+ SHE IS THE BEAUTIFUL `0`n
+@do `p85 + 5000
+@do `p86 is &time
+@routine gone in battlefx.ref
+@update
+@do saybar
+Congradulations!!! You are Power's new Queen!!!
+@end
+@end
+@end
+@end
+@end
+@end
+
+
+@#queen
+@if `p83 not 1 then do
+@begin
+@do moveback
+@do saybar
+Sorry You arn't the Queen!!!
+@run done
+@end
+@if `p83 is 2 then do
+@begin
+@run queen in battle2.ref
+@end
+
+
+@#sparebub
+@do moveback
+@do saybar
+Stay back!!! These are the bulbs for this castle!!!
+
+@#arrows
+@do moveback
+@do `p20 is 0
+@show
+`r0 `c `r1 `%Arrows 'R' Us `r0`0
+
+ "Hallo taday sur!"`2 Says a small man behind the counter
+`0 "Ow many arrows can oye be getten you taday?"
+
+@do move 50 6
+@do readnum 4 `p20
+@do `p20 is `v40
+@do `p21 is `p20
+@do `p21 * 10
+@do `p22 is money
+@do `p22 - 1
+@if `p21 > money then do
+@begin
+@do move 5 8
+@do write
+Sorry Sir but you don't have that kinda money!`l`l`l
+@run arrows
+@end
+@if `p21 = money then do
+@begin
+@do `p90 + `p20
+@do money - `p21
+@clearblock 8 8
+@do move 5 10
+@do write
+Here you go! `p20 Arrows for a `$$`p21`k
+@drawmap
+@update
+@run done
+@end
+@if `p21 < `p22 then do
+@begin
+@do `p90 + `p20
+@do money - `p21
+@clearblock 8 8
+@do move 5 10
+@do write
+Here you go! `p20 Arrows for a `$$`p21`k
+@drawmap
+@update
+@end
+
+@#randev
+@do `p20 random 2 1
+@if `p20 is 1 then do
+@begin
+@run getlost in battlefx.ref
+@end
+
+@if `p20 is 2 then do
+@begin
+@routine march in battlefx.ref
+@if x > 33 then do
+@begin
+@if x < 46 then do
+@begin
+@do `p20 random 5 1
+
+@if `p20 is 1 then do
+@begin
+@do saybar
+You are trampled to Death!!!
+@do enemy is being`xtrampled`xto`xdeath
+@run die in gametxt.ref
+@end
+@if `p20 not 1 then do
+@begin
+@do `p02 is 1
+@end
+@end
+@end
+
+@#getfight
+@do `p20 random 10 1
+@if `p20 is 1 then do
+@begin
+@run monster1
+@end
+@if `p20 is 2 then do
+@begin
+@run monster2
+@end
+@if `p20 is 3 then do
+@begin
+@run monster3
+@end
+@if `p20 is 4 then do
+@begin
+@run monster4
+@end
+@if `p20 is 5 then do
+@begin
+@run monster5
+@end
+@if `p20 is 6 then do
+@begin
+@run monster6
+@end
+@if `p20 is 7 then do
+@begin
+@run monster7
+@end
+@if `p20 is 8 then do
+@begin
+@run monster8
+@end
+@if `p20 is 9 then do
+@begin
+@run monster9
+@end
+@if `p20 is 10 then do
+@begin
+@run monster10
+@end
+
+@#monster1
+@if `p81 is 1 then do
+@begin
+@do saybar
+Hello fellow Warrior! I work for Power as well! Fight hard!
+@end
+@if `p81 not 1 then do
+@begin
+@fight
+;name
+Power's Special Forces
+;string said when you see him
+A screaming warrior in dark dragon armor attacks
+;power move kill string
+What a loser!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits with its sonic yell|90
+pounces you|90
+Slashes|100
+NONE|NONE
+NONE|NONE
+;defense
+130
+;gold reward
+300
+;experience
+210
+;hit points
+300
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@en
+
+@#monster2
+@if `p81 is 1 then do
+@begin
+@do saybar
+Hello fellow Warrior! I work for Power as well! Fight hard!
+@end
+@if `p81 not 1 then do
+@begin
+@fight
+;name
+Power's Special Forces
+;string said when you see him
+A huge lizardman attacks
+;power move kill string
+Looks like he'll be a purse!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Tickles you with it's forked tounge|120
+Tail flips you|90
+Claws your eyes|150
+NONE|NONE
+NONE|NONE
+;defense
+150
+;gold reward
+500
+;experience
+510
+;hit points
+400
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@if `p81 is 1 then do
+@begin
+@do saybar
+Hello fellow Warrior! I work for Power as well! Fight hard!
+@end
+@if `p81 not 1 then do
+@begin
+@fight
+;name
+Power's Elite
+;string said when you see him
+`2A small `0Dragon`2 looms over you!
+;power move kill string
+You find a new respect for yourself...
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Spits Acid|150
+Slashes your eyes|170
+Sits on you|92
+NONE|NONE
+NONE|NONE
+;defense
+300
+;gold reward
+1000
+;experience
+1110
+;hit points
+600
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@if `p81 is 2 then do
+@begin
+@do saybar
+Stay my fellow Phoenix lover! I shall help you fight!!
+@end
+@if `p81 not 2 then do
+@begin
+@fight
+;name
+Shara's Burn Brigade
+;string said when you see him
+A fire armoured warrior challenges you to battle
+;power move kill string
+Flame armour was no for you match you
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+hugs you|87
+spontaniously-cumbusts|300
+Punches|90
+NONE|NONE
+NONE|NONE
+;defense
+200
+;gold reward
+300
+;experience
+150
+;hit points
+200
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@if `p81 is 2 then do
+@begin
+@do saybar
+Stay my fellow Phoenix lover! I shall help you fight!!
+@end
+@if `p81 not 2 then do
+@begin
+@fight
+;name
+Shara's Burning Brigade
+;string said when you see him
+A small bird squaks it's advance!
+;power move kill string
+You wonder if that witch near Stonebrook needs another bird
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+pecks you|87
+divebombs|90
+fire-flaps|200
+NONE|NONE
+NONE|NONE
+;defense
+300
+;gold reward
+400
+;experience
+120
+;hit points
+200
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster6
+@if `p81 is 2 then do
+@begin
+@do saybar
+Stay my fellow Phoenix lover! I shall help you fight!!
+@end
+@if `p81 not 2 then do
+@begin
+@fight
+;name
+Shara's Phoenix Elite
+;string said when you see him
+A medium sized Phoenix burns brightly in front of you!
+;power move kill string
+"I'll be back to kill you in 100 years!!!"
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+Flame-flaps|100
+picks you up then drops you|110
+Reincarnates a friend|0
+NONE|NONE
+NONE|NONE
+;defense
+400
+;gold reward
+300
+;experience
+1110
+;hit points
+500
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster7
+@if `p81 is 3 then do
+@begin
+@do saybar
+You fight on the right side my friend! May the Dragons Protect You
+@end
+@if `p81 not 3 then do
+@begin
+@fight
+;name
+Codax's Wyre 2nd Class
+;string said when you see him
+A man in armour attacks you!
+;power move kill string
+"May the Dragons Protect my Soul!!"
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+slashes|87
+Kicks|90
+chants|100
+NONE|NONE
+NONE|NONE
+;defense
+100
+;gold reward
+300
+;experience
+110
+;hit points
+500
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster8
+@if `p81 is 3 then do
+@begin
+@do saybar
+You fight on the right side my friend! May the Dragons Protect You
+@end
+@if `p81 not 3 then do
+@begin
+@fight
+;name
+Codax's Wyre 1st Class
+;string said when you see him
+A lizardman hisses his challenge
+;power move kill string
+This one's gotta be a new pair of boots
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Tail-flips|100
+claws you|90
+hisses|120
+NONE|NONE
+NONE|NONE
+;defense
+100
+;gold reward
+300
+;experience
+190
+;hit points
+400
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster9
+@if `p81 is 3 then do
+@begin
+@do saybar
+You fight on the right side my friend! May the Dragons Protect You
+@end
+@if `p81 not 3 then do
+@begin
+@fight
+;name
+Codax's Wyre Elite
+;string said when you see him
+You see a medium sized `#Purple`2 Dragon!
+;power move kill string
+"I will be avenged!!!"
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Shoots lightning|200
+Breathes fire|100
+Tail-smacks you|110
+NONE|NONE
+NONE|NONE
+;defense
+300
+;gold reward
+1300
+;experience
+1110
+;hit points
+600
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster10
+@do `p20 random 3 1
+@if `p20 is 1 then do
+@begin
+@run getfight
+@end
+@if `p20 is 2 then do
+@begin
+@run merc
+@end
+@if `p20 is 3 then do
+@begin
+@run randomm
+@end
+
+@#merc
+@fight
+;name
+Mercenary
+;string said when you see him
+`0"Your hide will bring in quite a fortune!!"`2 He says
+;power move kill string
+He better find a new line of work
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Impersonates Boba Fett|100
+Slashes at you|90
+throws a smokebomb|120
+NONE|NONE
+NONE|NONE
+;defense
+500
+;gold reward
+1300
+;experience
+1910
+;hit points
+1000
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#randomm
+@do `p20 Random 3 1
+@do `p21 Random 90 75
+@do `p22 Random 90 70
+@do `p23 Random 120 50
+@do `p24 Random 230 90
+@do `p25 random 80 50
+@do `p26 random 55 13
+@do `p27 random 130 13
+@fight
+;name
+Random Man
+;string said when you see him
+`$Don't I know you?!?`2 you say
+;power move kill string
+Random Man: Power...Where are you now?!?!
+;sex - 1 is male, 2 is female, 3 is it
+`p20
+;weapon and strength for the weapon, up to 5
+kicks you|`p25
+punches you|`p26
+bites you|`p27
+NONE|NONE
+NONE|NONE
+;defense
+`p21
+;gold reward
+`p22
+;experience
+`p23
+;hit points
+`p24
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
diff --git a/xtrn/lord2/cnw/battle1.ans b/xtrn/lord2/cnw/battle1.ans
new file mode 100644
index 0000000000000000000000000000000000000000..05d8a774d6793aefeb37ae0498b414b73bcf3549
--- /dev/null
+++ b/xtrn/lord2/cnw/battle1.ans
@@ -0,0 +1 @@
+[?7h[40m[2J[0;1;30;42m��������������������������������������������������������������������������������[2;1H�[0;32m����������������������������[1;30;42m������[0;32m���������������������������������������[1;30;42m������[3;1H��[0;32m����[1;30;42m�[0;32m���[1;30;42m�[0;32m������[1;30;42m�[0;32m����������[1;30;42m�[0;32m�[1;30;42m�[0;32m��[1;30;42m���[0;32m�����������������������[1;30;42m�[0;32m����[1;30;42m����������������[4;1H��[0;32m�������������������������[1;30;42m�[0;32m�����������������������������������������[1;30;42m���������[0;32m�[1;30;42m�[5;1H���[0;32m��[1;30;42m�[0;32m���[1;30;42m�[0;32m���[1;30;42m�[0;32m������[1;30;42m�[0;32m���������������������������������������������[1;30;42m��������������[6;1H����[0;32m��������[1;30;42m�[0;32m����[1;30;42m�[0;32m�������������������������������[1;30;42m��[0;32m��������[1;30;42m�[0;32m�������������[1;30;42m���[0;32m���[1;30;42m�[7;1H�[0;32m�[1;30;42m�[0;32m���[1;30;42m�[0;32m��[1;30;42m�[0;32m������[1;30;42m�[0;32m���������������������������������[1;30;42m��[0;32m���������������[1;30;42m�������������[8;1H���[0;32m��������[1;30;42m�[0;32m���[1;30;42m�[0;32m�����������������������������������[1;30;42m��[0;32m��������������������[1;30;42m�����[0;32m�[1;30;42m�[9;1H���[0;32m�����������[1;30;42m�[0;32m��������������������������������������[1;30;42m�[0;32m���[1;30;42m�[0;32m��������������[1;30;42m��������[10;1H�[0;32m��[1;30;42m�[0;32m��[1;30;42m�[0;32m������[1;30;42m�[0;32m���������������������������������������[42m [40m������������������������[42m [11;1H[1;30m����[0;32m��������[1;30;42m��[0;32m������������������������������������������������������������������[12;1H[1;30;42m���[0;32m��������[1;30;42m�[0;32m������������������������������������������[1;30;42m�[0;32m����[1;30;42m�[0;32m�������������[33;42m�[32;40m�[1;30;42m�����[13;1H�[0;32m�[1;30;42m�[0;32m��������[1;30;42m��[0;32m����������������������������������������[1;30;42m��[0;32m����������������������[1;30;42m���[14;1H�����[0;32m�������[1;30;42m�[0;32m���������������������������������������[1;30;42m��[0;32m����������[1;30;42m�[0;32m����[1;30;42m�[0;32m������[1;30;42m��[0;32m�[1;30;42m�[15;1H�[0;32m��[1;30;42m�[0;32m���������[1;30;42m�[0;32m��������������������������������������[1;30;42m�[0;32m�������[1;30;42m�[0;32m�����������������[1;30;42m��[16;1H�������[0;32m�������[1;30;42m��[0;32m������������������������������[1;30;42m�[0;32m����[1;30;42m�[0;32m������������������������[1;30;42m����[17;1H�[0;32m��[1;30;42m���[0;32m���������[1;30;42m��[0;32m�����������[1;30;42m�[0;32m��������[1;30;42m�[0;32m�������������[1;30;42m�[0;32m����������[1;30;42m�[0;32m��[1;30;42m�[0;32m���������[1;30;42m�����[18;1H�������[0;32m����������[1;30;42m��[0;32m�[1;30;42m�[0;32m�����[1;30;42m�[0;32m�����[1;30;42m�[0;32m���������[1;30;42m�[0;32m�������[1;30;42m�[0;32m�������������������������[1;30;42m����[19;1H���������[0;32m�����������������������������������������������������������������[1;30;42m������[20;1H��������������������������������������������������������������������������������[21;1H[40m
diff --git a/xtrn/lord2/cnw/battle2.ans b/xtrn/lord2/cnw/battle2.ans
new file mode 100644
index 0000000000000000000000000000000000000000..c1af5bf347a7c7e8595174cd2eaae7d3ba4a21d8
--- /dev/null
+++ b/xtrn/lord2/cnw/battle2.ans
@@ -0,0 +1,21 @@
+[?7h[255D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [0;33;42m�� [1;32m [D [D [D [D [D [D[40m
+[A[79C[42m [A[79C[0;33;42m [D [D [1;37m��[41m�[42m�� [0;33;42m�� [1;32m [D [D [D[40m
+[A[79C[42m [A[79C[0;33;42m [D [D [30m�[31m���[1;37m� [0;33;42m�� [1;32m [D [D[40m
+[A[79C[42m [A[79C[0;33;42m [D [D [D [1;37m��[41m�[42m�� [0;33;42m������������������������ �� [1;32m [D [D[40m
+[A[79C[42m [A[79C[0;33;42m [D [D [D �� �� �� [1;32m [D[40m
+[A[79C[42m [A[79C[0;33;42m [D [D [D [D � [1m/^\ [0;33;42m� ���� �� [40m
+[A[79C[1;32;42m [A[79C[0;33;42m [D [D [D [D ��� [31m���� [1;33m|[1C| [0;33;42m�� ��[30m��[33m�� �� [1;32m [D[40m
+[A[79C[42m [A[79C[0;33;42m [D [D [D [D �� [31m��[30m��[31m�� [33m� �� [1;32m [D [D [D [D[40m
+[A[79C[42m [A[79C[0;33;42m [D [D [D [D ��������������� [1m [D [0;33;42m� �������������� [1;32m [D [D[0;33;42m [D[1;32m [D [D [D [D[40m
+[A[79C[42m [A[79C[0;33;42m������� [D [D [D � ����� [1;32m [D[0;33;42m [D[1;32m [D [D [D[40m
+[A[79C[42m [A[79C [0;33;42m [D [D [D [D [D [D [D[1;32m [D [D [D [D [D [D [D [0;33;42m� [1;32m [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [0;33;42m��[1;32m [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D[40m
+[A[79C[42m [A[79C[0;33;42m [D [D [D [D [D [D �� [1;32m [D [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D[0;33;42m���[1;32m [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D [D[0;33;42m [D[40m
+[A[79C[1;32;42m [A[79C[0;33;42m [D [D [D[1;32m [D [D [D [D [0;33;42m [D[1;32m [D [D [D [D [0;33;42m��� [1;32m [D [D [D [D [D [0;33;42m��������� [1;32m [D [D [D [D [D [D[40m
+[A[79C[42m [A[79C[0;33;42m [D [D [D [D[1;32m [D [0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D [0;33;42m���������� ��[1;32m [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D [D[40m
+[A[79C[42m [A[79C[0;33;42m [D [D[1;32m [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D[0;33;42m [D [1;32m [D [D [D[0;33;42m������[1;32m [D [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D [D [D [D [D [0;33;42m [D[1;32m [D [D [D [D[40m
+[A[79C[42m [A[79C[0;33;42m [D [D[1;32m [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D[0;33;42m [D [D[1;32m [D [D [D [D [D[0;33;42m�[1;32m [D [D [D[0;33;42m [D[1;32m [D [D [D [D [0;34;42m [D[31m [D[34m [D[33m [D[1;32m [D [D [0;33;42m [D[1;32m [D [D [0;34;42m [D[37m [D [1;32m [D[40m
+[A[79C[42m [A[79C[0;33;42m [D [D[1;30m���� ���[32m [D [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D[0;33;42m [D[1;32m [D [D [0;42m [D[33m [D[1;32m [D [D [D [D [D [D [D[40m
+[A[79C[42m [A[79C[0;33;42m [D[1;30m��� ���[32m [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D [30m [D[34m [D[32m [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D[40m
+[A[79C[0;33;42m [A[79C[1;32m [D[30m���� ���[32m [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [37m [D[33m [D[31m [D[0;42m [D[1;32m [D [D [D [D[0;33;42m [D [D [D[1;32m [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D[40m
+[A[79C[0;33;42m [A[79C [D[1;30m��������������[32m [D [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D[0;33;42m [D[1;32m [D[0;33;42m [D[1;32m [D[0;33;42m [D[1;32m [D[0;33;42m [D [D [D [D[1;32m [D[0;33;42m [D[1;32m [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D[0;33;42m [D [D[1;32m [D [D[0;33;42m [D [D[1;32m [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D[40m
+[A[79C[0;33;42m [A[79C[40m
diff --git a/xtrn/lord2/cnw/battle2.ref b/xtrn/lord2/cnw/battle2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..8f3427eeb1c1719b8091ad6ac691e9634a7b2008
--- /dev/null
+++ b/xtrn/lord2/cnw/battle2.ref
@@ -0,0 +1,1313 @@
+; Script file BATTLE2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:39 2001
+
+@DECLARE done 000001431
+@DECLARE gone 000001439
+@DECLARE queen 000001467
+@DECLARE queen2 000001913
+@DECLARE codqueen 000004190
+@DECLARE sharsec 000004357
+@DECLARE shara 000004537
+@DECLARE power2 000004689
+@DECLARE miqueen 000007237
+@DECLARE flirt 000008495
+@DECLARE mad 000010070
+@DECLARE codent 000012722
+@DECLARE codex 000012830
+@DECLARE notdead 000012940
+@DECLARE stickout 000013180
+@DECLARE dare 000013375
+@DECLARE welcome 000013590
+@DECLARE what 000013780
+@DECLARE powsod 000013966
+@DECLARE sharspy 000014162
+@DECLARE soldcod 000014373
+@DECLARE xbow 000014486
+@DECLARE scary 000015765
+@DECLARE codax 000015822
+@DECLARE power3 000016008
+@DECLARE miqueen2 000018540
+@DECLARE sharent 000019805
+@DECLARE sharexit 000019907
+@DECLARE shar1 000020006
+@DECLARE shar2 000020101
+@DECLARE shar3 000020190
+@DECLARE shar4 000020351
+@DECLARE shar5 000020436
+@DECLARE shar6 000020612
+@DECLARE lifesprng 000020704
+@DECLARE human 000020821
+@DECLARE lost 000021034
+@DECLARE sha1 000021261
+@DECLARE sha2 000021521
+@DECLARE sha3 000021753
+@DECLARE pow 000021999
+@DECLARE herelys 000022316
+@DECLARE cyrus 000022406
+@DECLARE assasin 000024557
+@DECLARE prize 000024596
+@DECLARE opendoor 000025872
+@NOCHECK
+; End of .REF index
+
+;Battle2.ref
+;All origonal code by the one and only Codax of Dragon's Den Ultd
+@#done
+@#gone
+@drawmap
+@update
+@#queen
+@if `p83 is 1 then `s01 is Queen
+@if `p83 is 2 then `s01 is Queen
+@if `p83 is 3 then `s01 is Second
+@readfile bounty.&playernum
+`p24
+`p25
+@
+@do delete bounty.&playernum
+@do `p25 + 500
+@writefile bounty.&playernum
+`p24
+`p25
+@
+@do `p20 is &time
+@do `p21 is `p86
+@do `p20 - `p21
+@writefile lognow.txt
+
+ `0`s01 `n `2has ruled for `p20 days
+ Will the tyrany stop?
+@
+@do `p21 random 100 100
+@do `p85 + `p21
+@label queen2
+@show
+`r0`c `r1`% So how does it feel to be `s01? `r0`2
+
+ Good day! Royal taxes have brought in `$$`p21`2 for you!
+ Royal Treasury now at `$$`p85!
+ You have ruled this kingdom for `p20 days!!!
+
+@do `v01 is 1
+@choice
+Take money out treasury
+Put money in treasury
+Sleep
+Abdicate the throne
+Leave
+@
+
+@if responce is 5 then do
+@begin
+@routine gone
+@end
+
+@if responce is 4 then do
+@begin
+@show
+`r0`c `r1`% Are you sure? `r0`2
+
+ Do you really want to abdicate the throne?(Y,N)
+@do readspecial `s01 NY
+@if `s01 is N then do
+@begin
+@do write
+`2 PHWEW! That's good!`k
+@do goto queen2
+@end
+@if `s01 is Y then do
+@begin
+@do `p83 is 0
+@show
+`\`\`\`\
+ Good bye my leige! We enjoyed your presence!`k
+@do `p07 - 50
+@do delete bounty.&playernum
+@writefile lognow.txt
+
+`2 NEWS FLASH!: `0`S01 `N`2 HAS ABDICATED S&HIS THRONE!!!!
+ AFTER `0`P20 DAYS!!!!! PEASENTS ARE RESTLESS!
+
+@routine gone
+@update
+@end
+@end
+
+@if responce is 3 then do
+@begin
+@do `p02 is `p03
+@show
+`r0`c
+ Sleep well my liege!`k
+
+@halt
+@end
+
+
+@if responce is 2 then do
+@begin
+@show
+`\`\`\`\`\ How much would you like to put in?
+
+@do readnum 9 money
+@do `p22 is `v40
+@if `p22 > money then do
+@begin
+@do write
+Sorry, you don't have that much on hand!`k
+@do goto queen2
+@end
+@if `p22 < money then do
+@begin
+@do `p85 + `p22
+@do money - `p22
+@do write
+`p22 Gold Deposited! Royal Tresury now at `p85`k
+@do goto queen2
+@end
+@if `p22 = money then do
+@begin
+@do `p85 + `p22
+@do money - `p22
+@do write
+`p22 Gold Deposited! Royal Tresury now at `p85`k
+@do goto queen2
+@end
+@end
+
+@if responce is 1 then do
+@begin
+@show
+`\`\`\`\`\ How much would you like to take out?
+
+@do readnum 9 `p85
+@do `p22 is `v40
+@if `p22 > `p85 then do
+@begin
+@do write
+Sorry, but you don't have that much money in the Royal Tresury`k
+@do goto queen2
+@end
+@if `p22 < `p85 then do
+@begin
+@do `p85 - `p22
+@do money + `p22
+@do write
+Enjoy your money! Royal Treasury now at `p85!`k
+@do goto queen2
+@end
+@if `p22 = `p85 then do
+@begin
+@do `p85 is 0
+@do money + `p22
+@do write
+Enjoy your money! Royal Treasury now at `p85!`k
+@do goto queen2
+@end
+
+@#codqueen
+@if `p83 not 2 then do
+@begin
+@do moveback
+@do saybar
+You arn't the queen!! Get outta here!
+@end
+@if `p83 is 2 then do
+@begin
+@run queen
+@end
+
+@#sharsec
+@if `p83 not 3 then do
+@begin
+@do moveback
+@do saybar
+You arn't Shara's Second! Get outta here!
+@run done
+@end
+@if `p83 is 3 then do
+@begin
+@run queen
+@end
+
+@#shara
+@do moveback
+@if bitcheck `t23 7 1 then do
+@begin
+@do saybar
+Shara is Dead!
+@run done
+@end
+@if bitcheck `t23 7 0 then do
+@begin
+@label power2
+@do `p20 random 5 1
+@if `p20 is 1 then `s01 is Did`xyou`xhear`xthe`xone`xabout`xthe`xsamon?
+@if `p20 is 2 then `s01 is Whats`xblack`xand`xwhite`xand`xread`xall`xover?
+@if `p20 is 3 then `s01 is How`xmuch`xwood`xcoulda`xwoodchuck`xchuck?
+@if `p20 is 4 then `s01 is Why`xdid`xthe`xdragon`xcross`xthe`xstreet?
+@if `p20 is 5 then `s01 is Nice`xshoes.
+@show
+`r0`c `r1`% The Burning Phoenix Queen `r0`2
+
+
+ "`0What do you want from me? I'm a busy Phoenix!!!`2" Shara Booms.
+
+ Royal Favor: `0`p88
+
+@
+@do `v01 is 1
+@choice
+=`p88 0 How about `$$1,000,000,000
+>`p88 0 `s01
+=`p88 1 Nice castle...Looks like all the other ones I've seen
+>`p88 1 =&sex 1 Flirt
+>`p88 2 Why do you 3 fight?
+>`p88 3 =`p81 0 I would like to be your assasin!
+>`p88 49 =&sex 1 =`p83 0 Can I be your Second?
+-`t21 0 >`p90 1 I've killed those spys!
+>`p84 1 I've killed those Royals!
+Leave
+@
+
+@if responce is 6 then do
+@begin
+@if `p83 is 3 then `p25 is 1
+@if `p83 is 0 then `p25 is 1
+@if `p25 is 1 then do
+@begin
+@run assasin
+@end
+@if `p25 not 1 then do
+@begin
+@routine gone
+@do saybar
+You have already pleadged your alegence to another!
+@end
+@end
+
+@if responce is 4 then do
+@begin
+@routine flirt
+@routine gone
+@end
+
+@if responce is 3 then do
+@begin
+@show
+`\`\`\`\`0 'Sadly It's true, we all hired the same person to our castles
+ The lowsy bum cut corners and made all the castles almost identical!!!
+ You have alot of backbone for asking that!`k
+@do `p88 + 2
+@Do goto power2
+@end
+
+@if responce is 1 then do
+@begin
+@show
+`\`\`\`\`0 'HAHAHAHAHAHAAHAHHAAaa!!! You amuze me `n!`l`l`l`l
+@do `p88 + 1
+@do goto power2
+@end
+
+@if responce is 2 then do
+@begin
+@show
+`\`\`\`0`\ 'Yawn.....Heard that one already....Go away!
+`k
+@do `p88 is 0
+@routine gone
+@update
+@do statbar
+@end
+
+@if responce is 5 then do
+@begin
+@do `p88 + 1
+@run story in battlest.ref
+@end
+
+@if responce is 10 then do
+@begin
+@routine gone
+@update
+@do statbar
+@end
+
+@if responce is 9 then do
+@begin
+@bitset `t21 1 1
+@show
+`\`\`\`\`\0 Wonderful!!!! Hahaha Now I rule this area!!! The war is
+ finaly over!!! And I won!!!`k
+@run sharend in battlest.ref
+@end
+
+@if responce is 8 then do
+@begin
+@bitset `t21 0 1
+@show
+`0`c Good You've finaly killed those spys! I begining to like you!
+ Next, you should Kill`l.`l.`l. Power and Codax!
+`%Quest points up 10
+`k
+@
+@do `p18 + 10
+@do `p88 + 3
+@do `p84 + 0
+@routine gone
+@update
+@end
+
+@if responce is 7 then do
+@begin
+@label miqueen
+@if battleqs.cod exists false then do
+@begin
+@writefile battleqs.cod
+0
+0
+0
+@
+@do goto miqueen
+@end
+@if battleqs.cod exists true then do
+@begin
+@readfile battleqs.cod
+`p30
+`p29
+`p28
+@
+@if `p28 not 0 then do
+@begin
+@do `s01 getname `p28
+@show
+`\`\`\`\`0 "Sorry `n, but `s01 is already my Second.`k
+@do goto power2
+@end
+@if `p28 is 0 then do
+@begin
+@do write
+`\`\`\`\`0 Shara Looks up and down your body`l.`l.`l.
+@do `p20 is 0
+@if `p07 > 100 then `p20 + 1
+@if `p07 < 101 then do
+@begin
+@do write
+`0 You need to be more Nice`l.`l.`l.
+@end
+@if `p08 > 80 then `p20 + 1
+@if `p08 < 81 then do
+@begin
+@do write
+`0 Your not that handsom`l.`l.`l.
+@end
+@if `p20 not 2 then do
+@begin
+@do write
+`\`\Sorry you just aren't Second Material `k
+@do goto power2
+@end
+@if `p20 is 2 then do
+@begin
+@do delete battleqs.cod
+@writefile battleqs.cod
+`p30
+`p29
+&playernum
+@
+@do `p83 is 3
+@do write
+`\`\Where have you been all my life!`k
+@writefile lognow.txt
+
+ `% ATTENTION!!!!`0 SHARA'S `2HAS FOUND A SECOND!!! PEASANTS ARE RESTLESS
+ HE IS THE HANDSOM`0 `n
+@do `p85 + 5000
+@do `p86 is &time
+@routine gone
+@update
+@do saybar
+Congradulations!!! You are Shara's Second!!!
+@end
+
+@#flirt
+@if battle.&playernum exists false then do
+@begin
+@writefile battle.&playernum
+0
+@run flirt
+@end
+
+@if battle.&playernum exists true then do
+@begin
+@if map is 484 then `s01 is Power
+@if map is 486 then `s01 is Codax
+@if map is 488 then `s01 is Shara
+@if map < 488 then `s02 is him
+@if map > 487 then `s02 is her
+@readfile battle.&playernum
+`p26
+@show
+
+ `r0`c`r1`% Puttine the moves on `s01 `r0`2
+
+ `s01 looks over at you. You approach `s02. What do you
+ you do?
+
+@do `v01 is 1
+@choice
+>&time `p26 Whisper Sweet nothings
+>&time `p26 Kiss him
+>&time `p26 Give him a massage
+>&time `p26 Hug him
+>&time `p26 Grab his butt
+>&time `p26 Sit on his lap
+>&time `p26 French Him
+>&time `p26 Take `s02 to bed
+Nevermind
+@
+
+@if responce is 8 then do
+@begin
+@do delete battle.&playernum
+@writefile battle.&playernum
+&time
+@if `p08 < 50 then do
+@begin
+@routine gone
+@run done
+@end
+@if `p08 > 49 then do
+@begin
+@if `s01 is Power then `p82 + 8
+@if `s01 is Codax then `p87 + 8
+@if `s01 is Shara then `p88 + 8
+@do `p08 + 5
+@do `p01 + 900
+@routine gone
+@do `p22 is 7
+@do `p23 is 5
+@routine flirt in battlefx.ref
+@end
+@end
+
+@if responce is 1 then do
+@begin
+@do delete battle.&playernum
+@writefile battle.&playernum
+&time
+@show
+`c`2
+ You start telling `s01 everthing you like about `s02.`k
+ Charm goes up 1
+@do `p08 + 1
+@routine gone
+@do statbar
+@end
+
+@if responce is 7 then do
+@begin
+@do delete battle.&playernum
+@writefile battle.&playernum
+&time
+@
+@if `p08 < 30 then do
+@begin
+@label mad
+@routine gone
+@do saybar
+HOW DARE YOU!! I GUESS I'LL SPARE YOU! DON'T EVER TRY THAT AGAIN!
+@end
+@if `p08 > 29 then do
+@begin
+@Show
+`c`2
+ You grab `s01 by the waist and pull `s02 toward you.`k
+ You force you face on `s02 and you easy slip `s02's lips open.
+`k You move your tounge in and wave it around in `s02's mouth`l.`l.`l.
+`k Charm goes up 9! Favor goes up! Lucky you werent' beheaded!
+@do `p08 + 9
+@if `s01 is Shara then `p88 + 5
+@if `s01 is Power then `p82 + 5
+@if `s01 is Codax then `p87 + 5
+@routine gone
+@do statbar
+@end
+@end
+
+@if responce is 6 then do
+@begin
+@do delete battle.&playernum
+@writefile battle.&playernum
+&time
+@if `p08 < 20 then do goto mad
+@if `p08 > 19 then do
+@begin
+@show
+`c`2
+ You sit on `s01's lap and `s01 `l.`l.`l.`l.`s01 laughs hartily and
+ kisses you on the cheek`k Charm + 8! Favor goes up!
+@do `p08 + 8
+@if `s01 is Power then `p82 + 3
+@if `s01 is Codax then `p87 + 3
+@if `s01 is Shara then `p88 + 3
+@routine gone
+@do statbar
+@end
+@end
+
+@if responce is 5 then do
+@begin
+@do delete battle.&playernum
+@writefile battle.&playernum
+&time
+@if `p08 < 18 then do goto mad
+@if `p08 > 17 then do
+@begin
+@show
+`c`2
+ You take both hands and plant them firmly on `s01's buttux. You rub a second
+`l.`l.`l.`l.Then `s01 Smiles at you and blows you a kiss!
+Charm + 6 Favor up!
+`k
+@do `p08 + 6
+@if `s01 is Shara then `p88 + 1
+@if `s01 is Codax then `p87 + 1
+@if `s01 is Power then `p82 + 1
+
+@routine gone
+@do statbar
+@end
+@end
+
+@if responce is 4 then do
+@begin
+@do delete battle.&playernum
+@writefile battle.&playernum
+&time
+@if `p08 < 9 then do goto mad
+@if `p08 > 8 then do
+@begin
+@show
+`c`2
+ You give `s01 a great big hug!`k `s01 hugs you back!
+ Charm + 2`k
+@do `p08 + 2
+@routine gone
+@do statbar
+@end
+@end
+
+@if responce is 3 then do
+@begin
+@do delete battle.&playernum
+@writefile battle.&playernum
+&time
+@if `p08 < 3 then do goto mad
+@if `p08 > 2 then do
+@begin
+@show
+`c`2
+ You give `s01 a massage`l.`l"Ummm`l.`l.Ohhhh`l.`lOh yeah right there"
+ `s01 loves it! Charm + 3 Favor up
+`k
+@do `p08 + 3
+@if `s01 is Shara then `p88 + 4
+@if `s01 is Codax then `p87 + 4
+@if `s01 is Power then `p82 + 4
+@routine gone
+@do statbar
+@end
+@end
+
+@if responce is 2 then do
+@begin
+@do delete battle.&playernum
+@writefile battle.&playernum
+&time
+@show
+`c`2
+You lean over and give `s01 a kiss on the cheek and`l.`l.`l.`s01 blushes`k
+ Charm goes up 1`k
+@do `p08 + 1
+@routine gone
+@Do statbar
+@end
+
+@if responce is 9 then do
+@begin
+@routine gone
+@do statbar
+@end
+
+;Cod
+@#codent
+@do map is 646
+@loadmap 646
+@routine fade in battlefx.ref
+@do x is 37
+@do y is 19
+@update
+
+@#codex
+@do map is 213
+@loadmap 213
+@routine fade in battlefx.ref
+@do x is 31
+@do y is 13
+@update
+
+@#notdead
+@do moveback
+@if bitcheck `t22 0 0 then do
+@begin
+@do saybar
+I'm not dead....I'm just protesting the war using body paints!
+@end
+@if bitcheck `t22 0 1 then do
+@begin
+@do saybar
+This person really is dead now!
+@end
+
+@#stickout
+@do moveback
+@if bitcheck `t22 1 0 then do
+@begin
+@do saybar
+I don't stick out too much do I?
+@end
+@if bitcheck `t22 1 1 then do
+@begin
+@do saybar
+This person is dead!
+@end
+
+@#dare
+@do moveback
+@if bitcheck `t22 2 0 then do
+@begin
+@do saybar
+Dare to be different! Conformity breeds bordom!!
+@end
+@if bitcheck `t22 2 1 then do
+@begin
+@do saybar
+This person is dead!
+@end
+
+@#welcome
+@do moveback
+@if bitcheck `t22 3 0 then do
+@begin
+@do saybar
+Welcome to Codax's Kingdom!
+@end
+@if bitcheck `t22 3 1 then do
+@begin
+@do saybar
+This person is dead!
+@end
+
+@#what
+@do moveback
+@if bitcheck `t22 4 0 then do
+@begin
+@do saybar
+What the Hell is that in the middle of the fountain!?!?
+@run done
+@end
+@do saybar
+This person is dead!
+
+@#powsod
+@do moveback
+@if bitcheck `t22 5 0 then do
+@begin
+@do saybar
+HAHAHAhaha I blend right in here!
+@end
+@if bitcheck `t22 5 1 then do
+@begin
+@do saybar
+This spy is dead!
+@end
+
+@#sharspy
+@do moveback
+@if bitcheck `t22 6 0 then do
+@begin
+@do saybar
+Shara, I've infultrated Codax's castle! Moving to...uh oh someone's coming!
+@run done
+@end
+@do saybar
+This person is dead!
+
+
+@#soldcod
+@do moveback
+@do saybar
+I feel I've sold Codax out! My legs are badly mangled and I cannot fight!
+
+@#xbow
+@do moveback
+@if crossbow.&playernum exists true then `p20 is 1
+@if crossbow.&playernum exists false then `p20 is 0
+@show
+
+`r0`c `r1`% What's this? `r0`2
+
+
+ Hello there, I'm `0Tak`2 and I will be assiting you today! What kind of
+ crossbow would you like? Here are the Crossbow in your price
+ range, `$$0 - &money
+
+@do `v01 is 1
+@choice
+<money 199 =`p20 0 Rusty Crossbow $200
+<money 499 =`p20 0 Wood Crossbow $500
+<money 999 =`p20 0 Steel Crossbow $1000
+<money 3999 =`p20 0 Iron Crossbow $4000
+<money 9999 =`p20 0 Supreame Crossbow $10000
+=`p20 1 Sell your crossbow
+Leave
+@
+@if responce is 6 then do
+@begin
+@do money + 100
+@do delete crossbow.&playernum
+@routine gone
+@do saybar
+That Xbow is pretty messed up I'll only give you 100 for it!
+@end
+@if responce is 7 then do
+@begin
+@run gone
+@end
+@if responce is 1 then `p21 is 200
+@if responce is 2 then `p21 is 500
+@if responce is 3 then `p21 is 1000
+@if responce is 4 then `p21 is 4000
+@if responce is 5 then `p21 is 10000
+@if responce < 6 then do
+@begin
+@writefile crossbow.&playernum
+@do money - `p21
+@show
+`r0`c `%`r1 Getting your crossbow `r0`2
+
+ Tak: Here is your Crossbow! Enjoy! That'll be `$$`p21
+`k
+@run gone
+@end
+
+@#scary
+@do saybar
+That lack of ground is scary!!!
+
+@#codax
+@do moveback
+@if bitcheck `t22 7 1 then do
+@begin
+@do saybar
+Codax is Dead! Dragons everywhere are mourning!
+@run done
+@end
+@if bitcheck `t22 7 0 then do
+@begin
+@label power3
+@do `p20 random 5 1
+@if `p20 is 1 then `s01 is Did`xyou`xhear`xthe`xone`xabout`xthe`xsamon?
+@if `p20 is 2 then `s01 is Whats`xblack`xand`xwhite`xand`xread`xall`xover?
+@if `p20 is 3 then `s01 is How`xmuch`xwood`xcoulda`xwoodchuck`xchuck?
+@if `p20 is 4 then `s01 is Why`xdid`xthe`xdragon`xcross`xthe`xstreet?
+@if `p20 is 5 then `s01 is Nice`xshoes.
+@show
+`r0`c `r1`% The Dragon King `r0`2
+
+
+ "`0What do you want from me? I'm a busy Dragon!!!`2" Codax Booms.
+
+ Royal Favor: `0`p87
+
+@do `v01 is 1
+@choice
+=`p87 0 How about `$$1,000,000,000
+>`p87 0 `s01
+=`p87 1 Nice castle...Looks like all the other ones I've seen
+>`p87 1 =&sex 0 Flirt
+>`p87 2 Why do you 3 fight?
+>`p87 3 =`p81 0 I would like to be your assasin!
+>`p87 49 =&sex 0 1 =`p83 0 Can I be your Queen?
+-`t21 0 >`p89 1 I've killed those spys!
+>`p84 1 I've killed those Royals!
+Leave
+@
+@if responce is 6 then do
+@begin
+@if `p83 is 3 then `p25 is 1
+@if `p83 is 0 then `p25 is 1
+@if `p25 is 1 then do
+@begin
+@run assasin
+@end
+@if `p25 not 1 then do
+@begin
+@routine gone
+@do saybar
+You have already pleadged your alegence to another!
+@end
+@end
+
+
+@if responce is 4 then do
+@begin
+@routine flirt
+@routine gone
+@end
+
+@if responce is 3 then do
+@begin
+@show
+`\`\`\`\`0 'Sadly It's true, we all hired the same person to our castles
+ The lowsy bum cut corners and made all the castles almost identical!!!
+ You have alot of backbone for asking that!`k
+@do `p87 + 2
+@Do goto power3
+@end
+
+@if responce is 1 then do
+@begin
+@show
+`\`\`\`\`0 'HAHAHAHAHAHAAHAHHAAaa!!! You amuze me `n!`l`l`l`l
+@do `p87 + 1
+@do goto power3
+@end
+
+@if responce is 2 then do
+@begin
+@show
+`\`\`\`0`\ 'Yawn.....Heard that one already....Go away!
+`k
+@do `p87 is 0
+@routine gone
+@update
+@do statbar
+@end
+
+
+@if responce is 5 then do
+@begin
+@do `p87 + 1
+@run story in battlest.ref
+@end
+
+@if responce is 10 then do
+@begin
+@routine gone
+@update
+@do statbar
+@end
+
+@if responce is 9 then do
+@begin
+@bitset `t21 1 1
+@show
+`\`\`\`\`\0 Wonderful!!!! Hahaha Now I rule this area!!! The war is
+ finaly over!!! And I won!!!`k
+@run codend in battlest.ref
+@end
+
+@if responce is 8 then do
+@begin
+@bitset `t21 0 1
+@show
+`c`0 Good you've killed those `p89 spys! I begining to like you!
+ Next, you should Kill`l.`l.`l. Power and Shara!
+`k
+@
+@do `p18 + 10
+@do `p87 + 3
+@do `p87 + `p89
+@do `p84 is 0
+@routine gone
+@update
+@end
+
+@if responce is 7 then do
+@begin
+@label miqueen2
+@if battleqs.cod exists false then do
+@begin
+@writefile battleqs.cod
+0
+0
+0
+@
+@do goto miqueen2
+@end
+@if battleqs.cod exists true then do
+@begin
+@readfile battleqs.cod
+`p30
+`p29
+`p28
+@
+@if `p29 not 0 then do
+@begin
+@do `s01 getname `p29
+@show
+`\`\`\`\`0 "Sorry `n, but `s01 is already my Queen.`k
+@do goto power3
+@end
+@if `p29 is 0 then do
+@begin
+@do write
+`\`\`\`\`0 Codax Looks up and down your body`l.`l.`l.
+@do `p20 is 0
+@if `p07 > 100 then `p20 + 1
+@if `p07 < 101 then do
+@begin
+@do write
+`0 You need to be more Nice`l.`l.`l.
+@end
+@if `p08 > 80 then `p20 + 1
+@if `p08 < 81 then do
+@begin
+@do write
+`0 Your not that sexy`l.`l.`l.
+@end
+@if `p20 not 2 then do
+@begin
+@do write
+`\`\Sorry you just aren't Queen Material `k
+@do goto power3
+@end
+@if `p20 is 2 then do
+@begin
+@do delete battleqs.cod
+@writefile battleqs.cod
+`p30
+&playernum
+`p28
+@
+@do `p83 is 2
+@do write
+`\`\Where have you been all my life!`k
+@writefile lognow.txt
+
+ `% ATTENTION!!!!`0 CODAX `2HAS FOUND A QUEEN!!! PEASANTS ARE RESTLESS
+ SHE IS THE BEAUTIFUL `0`n
+@
+@do `p85 + 5000
+@do `p86 is &time
+@routine gone
+@update
+@do saybar
+Congradulations!!! You are Codax's Queen!!!
+@end
+
+;Shar
+@#sharent
+@do map is 648
+@loadmap 648
+@routine fade in battlefx.ref
+@do x is 39
+@do y is 19
+
+@#sharexit
+@do map is 292
+@loadmap 292
+@routine fade in battlefx.ref
+@do x is 33
+@do y is 17
+
+@#shar1
+@do moveback
+@do saybar
+Shara's Burning Moutain is made of wonder glorious LAVA
+
+@#shar2
+@do moveback
+@do saybar
+I cut this Dark Lava Trench to resemble a Phoenix
+
+@#shar3
+@do moveback
+@do saybar
+There are great places to sniper dragons! Balconys, Islands
+@key
+@do saybar
+All you have to do is find the right one!
+
+@#shar4
+@do moveback
+@do saybar
+We all look alike because we are all Phoenix!
+
+@#shar5
+@do moveback
+@do saybar
+Dark Cyan is the Color of Power
+@key
+@do saybar
+Codax adores Cyan
+@key
+@do saybar
+I am wise so I know this stuff! You should too!
+
+@#shar6
+@do moveback
+@do saybar
+If I cannot be Second to Shara, Cyrus should be!
+
+@#lifesprng
+@do moveback
+@do `p03 - 1
+@do saybar
+You loose one max-hitpoint! Lava springs and humans don't mix!
+
+@#human
+@do moveback
+@if bitcheck `t23 0 0 then do
+@begin
+@do saybar
+I know it's dangerous to be human in a Phoenix Lair!
+@end
+@if bitcheck `t23 0 1 then do
+@begin
+@do saybar
+This human is dead
+@end
+
+@#lost
+@do moveback
+@if bitcheck `t23 1 0 then do
+@begin
+@do saybar
+Darn it! Power shoulda trained us better! I lost my Smack-Rod!
+@end
+@if bitcheck `t23 1 1 then do
+@begin
+@do saybar
+This person is dead!
+@end
+
+@#sha1
+@do moveback
+@if bitcheck `t23 2 0 then do
+@begin
+@do saybar
+Even if I do get assinated I'll be back in 100years
+@end
+@if bitcheck `t23 2 1 then do
+@begin
+@do saybar
+Here lies a pile of ashes! In 100 years they will form a Phoenix!
+@end
+
+@#sha2
+@do moveback
+@if bitcheck `t23 3 0 then do
+@begin
+@do saybar
+Codax is a fuddy duddy!
+@end
+@if bitcheck `t23 3 1 then do
+@begin
+@do saybar
+Here lies a pile of ashes! In 100 years they will form a Phoenix!
+@end
+
+@#sha3
+@do moveback
+@if bitcheck `t23 4 0 then do
+@begin
+@do saybar
+Look how beautiful the Lava is tonite!
+@end
+@if bitcheck `t23 4 1 then do
+@begin
+@do saybar
+Here lies a pile of ashes! In 100 years they will form a Phoenix!
+@end
+
+@#pow
+@do moveback
+@if bitcheck `t23 5 0 then do
+@begin
+@do saybar
+Spying is hard work! I need a drink! Hey Bartender! Send on my way
+@routine getale in battlefx.ref
+@do move 3 22
+@key
+@Do saybar
+Darn it! You missed!
+@end
+@if bitcheck `t23 5 1 then do
+@begin
+@do saybar
+This spy is dead
+@end
+@#herelys
+@do saybar
+Here lie the Great Phoenix Warriors that gloriously died in Battle!
+@#cyrus
+@do moveback
+@Do `p20 random 25 1
+@if `p20 is 1 then saybar
+Cyrus: I am the only Phoenix that will regenerate almost instantly
+@if `p20 is 2 then saybar
+Cyrus: Dragons Suck!
+@if `p20 is 3 then saybar
+Cyrus: I'm trying to be Shara's Second, but I'm just a General
+@if `p20 is 4 then saybar
+Cyrus: I'm a General not some love starved twit
+@if `p20 is 5 then saybar
+Cyrus: Fire is a wonderfull toy!
+@if `p20 is 6 then saybar
+Cyrus: I'm the only Phoenix of my color
+@if `p20 is 7 then saybar
+Cyrus: Don't mistake me for a spy or you'll be sorry
+@if `p20 is 8 then saybar
+Cyrus: This flashy bit is carpet, not Lavaspring like in the previous room!
+@if `p20 is 9 then saybar
+Cyrus: I've never seen a Koshi, but Shara has!
+@if `p20 is 10 then saybar
+Cyrus: I can't wait till I get my Talons on Power
+@if `p20 is 11 then saybar
+Cyrus: Greatness is only achieved through persistance
+@if `p20 is 12 then saybar
+Cyrus: Power's soldiers look like this `3
+@if `p20 is 13 then saybar
+Cyrus: Codax's soldiers look like this `!
+@if `p20 is 14 then saybar
+Cyrus: Dragon Meat is the best in this world
+@if `p20 is 15 then saybar
+Cyrus: Lifesprings feel great! There is a good one near the bar!
+@if `p20 is 16 then saybar
+Cyrus: Lifesprings and Lavasprings are the same thing ya know!
+@if `p20 is 17 then saybar
+Cyrus: This is only a small battle in the Dragon & Phoenix War
+@if `p20 is 18 then saybar
+Cyrus: If the Dragons Ever stoped fighting each other they might win.
+@if `p20 is 19 then saybar
+Cyrus: http:\\www.geocities.com\SiliconValley\Way\9982\index.html some code!
+@if `p20 is 20 then saybar
+Cyrus: Dragon's Den BBS needs money, I heard. Like I'd give Codax anything
+@if `p20 is 21 then saybar
+Cyrus: Quidam? I wonder what it means
+@if `p20 is 22 then saybar
+Cyrus: Have you heard Cirque du Soleil? They helped complete this place
+@if `p20 is 23 then saybar
+Cyrus: Shara sometimes can go into her ranks without being noticed!
+@if `p20 is 24 then saybar
+Cyrus: Power's Officers look like this `3
+@if `p20 is 25 then saybar
+Cyrus: Codax's Officers look like this `!
+@#assasin
+@run assasin in battlexh.ref
+@#prize
+@do moveback
+@do `p20 random 5 1
+@do `p21 random 2000 1000
+@do `p22 random 10 1
+@do `p23 random 4 1
+@do move 3 22
+@do write
+`r0`2 Do you really want to open this chest?[`0Y`2,`0N`2]
+@do readspecial `s01 NY
+@clearblock 22 23
+
+@if `s01 is N then do
+@begin
+@do saybar
+Guess it wasn't meant for you!
+@run done
+@end
+
+@if `s01 is Y then do
+@begin
+@if `t04 not 0 then do
+@begin
+@do saybar
+Your hand passes through the chest! You must not be worhty enough.
+@run done
+@end
+
+@if `t04 is 0 then do
+@begin
+@do `t04 is 1
+@if `p20 is 1 then `p01 + `p21
+@if `p20 is 1 then `s01 is experience
+@if `p20 is 1 then `p25 is `p21
+
+@if `p20 is 2 then `p04 + `p22
+@if `p20 is 2 then `s01 is Muscle
+@if `p20 is 2 then `p25 is `p22
+
+@if `p20 is 3 then `p05 + `p22
+@if `p20 is 3 then `s01 is Dodge
+@if `p20 is 3 then `p25 is `p22
+
+@if `p20 is 4 then `p87 + `p23
+@if `p20 is 4 then `s01 is Royal`xFavor
+@if `p20 is 4 then `p25 is `p23
+
+@if `p20 is 5 then `p03 - `p22
+@if `p20 is 5 then `s01 is Max`xHitpoints
+@if `p20 is 5 then `p25 is `p22
+
+@if `p20 not 5 then `s02 is gain
+@if `p20 is 5 then `s02 is lose
+@clearblock 22 23
+@do saybar
+`\
+@do saybar
+You carefully open the chest and `s02`l.`l.`l.`l. `p25 `s01
+@end
+@end
+
+@#opendoor
+@if &lastx is 70 then do
+@begin
+@if money < 2000 then do
+@begin
+@do saybar
+This is Shara's Lavaspring! You gotta have cash to get in!
+@run done
+@end
+@if money > 1999 then do
+@begin
+@do move 3 22
+@do write
+`r0`2Would you like to take a dip in the Lavaspring `0(`$$2000`0)`2?
+@do readspecial `s01 NY
+@if `s01 is N then do
+@clearblock 22 23
+@Begin
+@do saybar
+They didn't want to polute it with humans any way!
+@run done
+@end
+@if `s01 is Y then do
+@begin
+@do money - 2000
+@do x + 2
+@do `p04 + 2
+@do `p05 + 2
+@do `p02 is `p03
+@do saybar
+This one actually feels....kinda good! Str & Def Up!
+@update
+@end
+@end
+@end
+@if &lastx is 72 then do
+@begin
+@do saybar
+That was interesting! You wipe some lava off your s&armour.
+@do x - 2
+@update
+@end
diff --git a/xtrn/lord2/cnw/battle3.ans b/xtrn/lord2/cnw/battle3.ans
new file mode 100644
index 0000000000000000000000000000000000000000..be40103c566974e984d3f14434b7320d54f3d598
--- /dev/null
+++ b/xtrn/lord2/cnw/battle3.ans
@@ -0,0 +1 @@
+[?7h[40m[2J[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [0;33;42m�� [1;32m [D [D [D [D [D [D [A[79C[2;1H[0;33;42m [D [D [1;37m��[41m�[42m�� [0;33;42m�� [1;32m [D [D [D [A[79C[3;1H[0;33;42m [D [D [30m�[31m���[1;37m� [0;33;42m�� [1;32m [D [D [A[79C[4;1H[0;33;42m [D [D [D [1;37m��[41m�[42m�� [0;33;42m������������������������ �� [1;32m [D [D [A[79C[5;1H[0;33;42m [D [D [D �� �� �� [1;32m [D [A[79C[6;1H[0;33;42m [D [D [D [D � [1m/^\ [0;33;42m� ���� �� [1;32m [A[79C[7;1H[0;33;42m [D [D [D [D ��� [31m���� [1;33m|[1C| [0;33;42m�� ��[30m��[33m�� �� [1;32m [D [A[79C[8;1H[0;33;42m [D [D [D [D �� [31m��[30m��[31m�� [33m� �� [1;32m [D [D [D [D [A[79C[9;1H[0;33;42m [D [D [D [D ��������������� [30m [D [33m� �������������� [1;32m [D [D[0;33;42m [D[1;32m [D [D [D [D [A[79C[10;1H[0;33;42m������� [D [D [D � [35m [D [1;36m [D [0;33;42m����� [1;32m [D[0;33;42m [D[1;32m [D [D [D [A[79C[11;1H [0;33;42m [D [D [D [D [D [D [1;32m [D [D [D [D [D [0;33;42m� [1;32m [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [0;33;42m��[1;32m [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [A[79C[12;1H[0;33;42m [D [D [D [D [D [D �� [1;32m [D [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D[0;33;42m���[1;32m [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [A[79C[13;1H[0;33;42m [D [D [D[1;32m [D [D [D [D [0;33;42m [D[1;32m [D [D [D [D [0;33;42m��� [1;32m [D [D [D [D [D [0;33;42m��������� [1;32m [D [D [D [D [D [D [A[79C[14;1H[0;33;42m [D [D [D [D[1;32m [D [0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D [0;33;42m���������� ��[1;32m [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D [D [A[79C[15;1H[0;33;42m [D [D[1;32m [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D[0;33;42m [D [1;32m [D [D [D[0;33;42m������[1;32m [D [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D [D [D [D [D [0;33;42m [D[1;32m [D [D [D [D [A[79C[16;1H[0;33;42m [D [D[1;32m [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D[0;33;42m [D [D[1;32m [D [D [D [D [D[0;33;42m�[1;32m [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [0;33;42m [D[1;32m [D [D [0;42m [D [1;32m [D [A[79C[17;1H[0;33;42m [D [D[1;30m���� ���[32m [D [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [A[79C[18;1H[0;33;42m [D[1;30m��� ���[32m [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D[0;33;42m [A[79C[19;1H[1;32m [D[30m���� ���[32m [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D [D[0;33;42m [D [D [D[1;32m [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D[0;33;42m [A[79C[20;1H [D[1;30m��������������[32m [D [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D[0;33;42m [D[1;32m [D[0;33;42m [D[1;32m [D[0;33;42m [D[1;32m [D[0;33;42m [D [D [D [D[1;32m [D[0;33;42m [D[1;32m [D[0;33;42m [D[1;32m [D [D [D [D [D [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D[0;33;42m [D [D[1;32m [D [D[0;33;42m [D [D[1;32m [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D [D [D [D [D[0;33;42m [D[1;32m [D [D[0;33;42m [A[79C[21;1H[40m
diff --git a/xtrn/lord2/cnw/battle4.ans b/xtrn/lord2/cnw/battle4.ans
new file mode 100644
index 0000000000000000000000000000000000000000..51e6df5f78c38d170ddd1f8ead316b6e04f37dc2
--- /dev/null
+++ b/xtrn/lord2/cnw/battle4.ans
@@ -0,0 +1 @@
+[?7h[40m[2J[0;30m�������������������������������������������[33m������������������[30m��[33m�[30m���������[33m�[30m������[2;1H�����������������������[33m���������������������[36;43m��������������[33;40m�������[30m�����������[33m�[30m���[3;1H���[33m���������������������[36;43m���������������������[33m������������[36m�������[33;40m�����[30m�����[33m�[30m��[33m�[30m��[4;1H�[33m���[36;43m���������������������[33m��������������������������������������[36m������[33;40m�����[30m������[5;1H[33m��[36;43m���[33m����������������������������������������[1;30m�[0;33;43m������[37;40m���[33;47m�[37;40m�[43m�[33m����������[36m������[33;40m������[6;1H[36;43m���[33m���������������[1;30m�[0;33;43m��������������������[1;30m�[0;33;43m������������[37;40m���[30;47m�[37;40m���[33;43m�����������[1;37;42m [D[0;33;43m��[36m�������[7;1H[33m��������������������������������������������������������������������������[1;36m [D[0;36;43m�����[8;1H[33m�����������������������������������������[1;30m�[0;33;43m����������������������������������[36m����[9;1H[33m��������������[1;30m�[0;33;43m�������������[1;37m���ͻ[0;33;43m��������������������������������������������[36m�[30;40m�[36;43m�[10;1H[33m���[1;37m [D[0;33;43m������������������[1;30m�[0;33;43m�����[1;37m�[34;44m���[37;43m�[0;33;43m��������������������������������������������[36m���[11;1H[33m����������������������������[1m [D[34;44m���[37;43m�[0;33;43m�����������������������[1;37m [D[0;31;43m�[33m���������������������[36m�[12;1H[33m����������������������������[1;37m���ͼ[0;33;43m��������������������������������[1;37m��������������[0;36;43m�[13;1H[33m������������������������������������������������������������������[1m��[32m���������[33m��[0;36;43m�[14;1H[33m������������������� ��������������������������������������������[1;37m�[32m�����������[33m��[0;36;43m�[15;1H[33m��������[1;30m�[0;33;43m�������[1;30m�[0;33;43m����������������������������[1;37m���[35m [D[37mͻ[0;33;43m������������[36m���[1;32m�����������[0;33;43m�[34m [D[36m�[16;1H[33m��������������������������[36m���[33m����������������[1;37m�[0;33;43m����[1;37m�[0;33;43m��������[36m�����[33;40m�[36;43m�����[1;32m�������[0;36;43m���[17;1H[33m���������������[1;30m�[0;33;43m���������[36m��[33;40m�[36;43m��[33m�������������[1;30m��[37m�[0;36;43m����[1;37m�[30m� [D[0;33;43m��[36m�����[33;40m���������[36;43m�����[1;32m����[0;36;43m�[33;40m�[18;1H[36;43m����[33m��[1;30m�[0;36;43m����[33m������������[36m���[33;40m�[30m�[33m�[36;43m���[33m����������[36m��[1;30m��[0;36;44m����[1;30;43m�����[0;36;43m��[33;40m����[30m�����[33m�[30m��[33m����[36;43m������[33;40m�[19;1H����[36;43m���[33;40m���[36;43m�����[1;30m�[0;33m���[36;43m����[33;40m���[30m���[33m�[36;43m���[33m����[36m��������[1;30m������[0;36;43m�����[33;40m���[30m��[33m�[30m�����������[33m�������[20;1H�[30m��[33m����[30m���[33m�����[36;43m�����[33;40m����[30m������[33m��[36;43m������[33;40m�������[36;43m�������[33;40m�����[30m����[33m�[30m���������[33m�[30m��������[21;1H
diff --git a/xtrn/lord2/cnw/battle5.ans b/xtrn/lord2/cnw/battle5.ans
new file mode 100644
index 0000000000000000000000000000000000000000..88d72eb3e0373b91c629fbe936e401adb9946812
--- /dev/null
+++ b/xtrn/lord2/cnw/battle5.ans
@@ -0,0 +1 @@
+[?7h[40m[2J[0;30m�������������������[33m�[30m����������[33m����������[30m�[33m��������������[30m�������������������������[2;1H��������[33m�[30m������������[33m�[30m������[33m��[36;43m���[33;40m�[36;43m������[33;40m�[36;43m�������������[33;40m��[30m����[33m�[30m���������[33m�[30m��[33m��[30m��[33m�[30m��[3;1H������������[33m�[30m������������[33m���[36;43m��[33m���[36m�[33m������[36m�[33m�������������[36m�[33;40m�[30m������������������������[4;1H������������[33m�[30m�����������[33m�[36;43m���[33m����������������[1;30m�[0;33;43m����������[36m�[33;40m�[30m������[33m�[30m��[33m�����[30m���������[5;1H�����[33m�[30m����[33m�[30m������[33m�[30m����[33m��[36;43m�[33m�����������[37m\[33m���������������[37m\[33m���[36m�[33;40m�[30m�����[33m�[30m�[33m�[36;43m�����[33;40m�[30m���[33m�����[6;1H[30m���������������������[33m�[36;43m��[33m�����[37m|[33m�����������������[1;30m�[0;33;43m���������[36m�[33;40m�[30m�[33m�[30m���[33m�[36;43m�[33m�����[36m�[33;40m�[30m�[33m�[36;43m�����[7;1H[30;40m��[33m�[30m����[33m�[30m������������[33m�[36;43m�[33m��������������������[37m|[33m���������������[36m�[33;40m�[30m���[33m�[36;43m�[33m�������[36m�[33;40m�[36;43m�[33m�����[8;1H[30;40m�����[33m�[30m��������[33m���[30m��[33m�[36;43m�[33m��������������[1;30m�[0;43m\[33m��������[1;30m�[0;33;43m��������[37m\[33m����[36m�[33;40m���[36;43m�[33m���������[36m�[33m������[9;1H[40m���������������[36;43m�[33;40m���[36;43m��[33m������������������������������[1;30m�[0;33;43m��������[36m���[33m�����������������[10;1H[36m��������������������[33m������������[1;30m�[0;33;43m�����[1;30m�[0;33;43m�[37m|[33m���������������������������������������[11;1H���������������������������[37m|[33m������������������[37m\[33m���������������[37m\[33m�����������������[12;1H[36m����[33m�������������������������[37m\[33m��������������������[37m|[33m�����[37m|\[33m����������������������[13;1H[40m����[36;43m�[33m����������������[1;30m�[0;33;43m��������[36m�[33m��������������������[1;30m�[0;33;43m��������[37m|[33m���������[37m|[33m���������[14;1H[30;40m����[33m�[36;43m�[33m������[36m������[33m�����[36m�[33m�����[36m�[33;40m�[36;43m�[33m���[37m|[33m��[36m��������[33m�����������������[37m\[33m����������������[15;1H[30;40m�����[33m�[36;43m�[33m����[36m�[33;40m������[36;43m�[33m���[36m�[33;40m�[36;43m�����[33;40m�[30m�[33m�[36;43m�[33m����[36m��[33;40m�������[36;43m�[33m����������������������[36m�[33m����������[16;1H[30;40m������[33m�[36;43m�[33m�[36m��[33;40m�[30m������[33m�[36;43m�[33m�[36m�[33;40m�[30m�[33m������[30m��[33m�[36;43m�[33m���[36m�[33;40m��[30m������[33m�[36;43m�[37m|[33m��[37m\[33m���[36m����[33m��[37m|[33m������[36m�[33;40m�[36;43m���[33m�������[17;1H[30;40m��[33m�[30m����[33m�[36;43m�[33;40m��[30m��[33m�[30m�����[33m�[36;43m�[33;40m�[30m����[33m�[30m������[33m�[36;43m���[33;40m�[30m����[33m�[30m����[33m�[36;43m�[33m�����[36m�[33;40m����[36;43m�[33m�������[36m�[33;40m�[30m�[33m�[36;43m�[33m��������[18;1H[30;40m��������[33m�[30m�����������[33m�[30m���[33m�[30m���������[33m���[30m���[33m�[30m�������[33m�[36;43m�[33m���[36m�[33;40m�[30m����[33m�[36;43m�[33m�����[36m�[33;40m�[30m���[33m�[36;43m��������[19;1H[33;40m�[30m��[33m�[30m�����[33m�[30m�����[33m�[30m�������������[33m�[30m���������������[33m�[30m���[33m�[36;43m���[33;40m�[30m���[33m�[30m��[33m�[36;43m�����[33;40m�[30m�����[33m��������[20;1H[30m��������������������������������������������������[33m����[30m�������[33m������[30m��[33m�[30m����������[21;1H
diff --git a/xtrn/lord2/cnw/battle6.ans b/xtrn/lord2/cnw/battle6.ans
new file mode 100644
index 0000000000000000000000000000000000000000..89fb29d2cba44014828b46f27a038c5f9db00c8b
--- /dev/null
+++ b/xtrn/lord2/cnw/battle6.ans
@@ -0,0 +1 @@
+[?7h[40m[2J[0;30m��������������������������������������������������������������������������������[2;1H��������������������������������������������������������������������������������[3;1H���������������������[1m�����������[31m������[30m������������[0;30m������������������������������[4;1H���������������������[1m�[0m���������������������������[1;30m�[0;30m������������������������������[5;1H���������������������[1m�[0m���������������������������[1;30m�[0;30m������������������������������[6;1H���������������������[1m�[0m���������������������������[1;30m�[0;30m������������������������������[7;1H���������������������[1m�[0m����������������������������[30m������������������������������[8;1H���������������������[1m�[0m����������������������������[30m������������������������������[9;1H���������������������[1m�[0m���������������������������[1;30m�[0;30m������������������������������[10;1H���������������������[1m�[0m��������������������[1;33;47m�������[30;40m�[0;30m������������������������������[11;1H���������������������[1m�[0m������������[33;47m [D[37;40m�������[1;33;47m�[0m������[1;30m�[0;30m������������������������������[12;1H���������������������[1m�����������������������������[0;30m������������������������������[13;1H��������������������������������������������������������������������������������[14;1H��������������������������������������������������������������������������������[15;1H��������������������������������������������������������������������������������[16;1H��������������������������������������������������������������������������������[17;1H��������������������������������������������������������������������������������[18;1H��������������������������������������������������������������������������������[19;1H��������������������������������������������������������������������������������[20;1H��������������������������������������������������������������������������������[21;1H
diff --git a/xtrn/lord2/cnw/battlefx.ref b/xtrn/lord2/cnw/battlefx.ref
new file mode 100644
index 0000000000000000000000000000000000000000..0e60c136e5563ba7bf40df77078b7251dad3ce62
--- /dev/null
+++ b/xtrn/lord2/cnw/battlefx.ref
@@ -0,0 +1,1460 @@
+; Script file BATTLEFX.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:39 2001
+
+@DECLARE done 000002092
+@DECLARE parth2o 000002106
+@DECLARE walk1 000002430
+@DECLARE walk2 000002779
+@DECLARE closeh2o 000003076
+@DECLARE close 000003121
+@DECLARE getale 000003283
+@DECLARE comn 000003355
+@DECLARE fireworks 000003604
+@DECLARE rfade 000003634
+@DECLARE fade 000004341
+@DECLARE f0 000004367
+@DECLARE f1 000004512
+@DECLARE f2 000004678
+@DECLARE f3 000004823
+@DECLARE f4 000004984
+@DECLARE f5 000005129
+@DECLARE f6 000005295
+@DECLARE f7 000005440
+@DECLARE f01 000005602
+@DECLARE f8 000005748
+@DECLARE f9 000005914
+@DECLARE f10 000006060
+@DECLARE f02 000006224
+@DECLARE f11 000006371
+@DECLARE f12 000006539
+@DECLARE f13 000006686
+@DECLARE f03 000006850
+@DECLARE f14 000006997
+@DECLARE f15 000007165
+@DECLARE f16 000007312
+@DECLARE f04 000007533
+@DECLARE f17 000007680
+@DECLARE f18 000007905
+@DECLARE f19 000008052
+@DECLARE f05 000008255
+@DECLARE f20 000008402
+@DECLARE f21 000008608
+@DECLARE f22 000008757
+@DECLARE f06 000008981
+@DECLARE f23 000009128
+@DECLARE f24 000009391
+@DECLARE f25 000009540
+@DECLARE f07 000009820
+@DECLARE f26 000009967
+@DECLARE f27 000010249
+@DECLARE f08 000010398
+@DECLARE f09 000010547
+@DECLARE getlost 000010716
+@DECLARE d1 000010870
+@DECLARE d2 000011058
+@DECLARE d3 000011246
+@DECLARE d4 000011434
+@DECLARE d5 000012237
+@DECLARE d6 000012666
+@DECLARE d8 000013787
+@DECLARE drawh 000013991
+@DECLARE drawv 000014305
+@DECLARE march 000014624
+@DECLARE warpin 000017216
+@DECLARE movelft 000017700
+@DECLARE movergt 000018183
+@DECLARE moveup 000018663
+@DECLARE movedwn 000019158
+@DECLARE drawful 000019667
+@DECLARE gotya 000019823
+@DECLARE meeting 000022079
+@DECLARE flirt 000023466
+@DECLARE flirt2 000024017
+@DECLARE outroom 000024143
+@DECLARE gone 000024656
+@DECLARE movergt2 000024690
+@NOCHECK
+; End of .REF index
+
+;Battle fx features wonderful cinama scenes and animation short-cuts
+;in this igm. All original Code by Codax
+;Battlefield igm for Lord2 Started 12/11/97 Ended: 1/03/98
+@#done
+
+@#parth2o
+@do move 7 10
+@do write
+`r1`$�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`w`w�`l`l
+@do saybar
+Mozuz: Go on, it's ok
+@key
+@if x > 10 then do
+@begin
+@do `p21 is 42
+@do `p20 is 36
+@label walk1
+@do `p20 - 1
+@do x - 1
+@update
+@do move `p21 10
+@do write
+`r1`$�`w
+@do `p21 - 1
+@if `p20 is 0 then do
+@begin
+@do saybar
+Mozuz: Good, You're over now to close them
+@key
+@run closeh2o
+@run done
+@end
+@if `p20 not 0 then do
+@begin
+@do goto walk1
+@end
+@end
+
+@if x < 10 then do
+@begin
+@do `p21 is 7
+@do `p20 is 36
+@label walk2
+@do `p20 - 1
+@do x + 1
+@update
+@do move `p21 10
+@do write
+`r1`$�`w
+@do `p21 + 1
+@if `p20 is 0 then do
+@begin
+@do saybar
+Mozuz: Good, You're over now to close them
+@key
+@run closeh2o
+@run done
+@end
+
+@if `p20 not 0 then do
+@begin
+@do goto walk2
+@end
+@end
+@end
+
+@#closeh2o
+@do `p21 is 7
+@do `p20 is 36
+@label close
+@drawpart `p21 10
+@do `p20 - 1
+@do `p21 + 1
+@if `p20 is 0 then do
+@begin
+@run done
+@end
+@if `p20 not 0 then do
+@begin
+@do goto close
+@end
+
+@#getale
+@do `p20 is 79
+@do move `p20 17
+@do write
+`r6`$�`w`w`l
+@label comn
+@do move `p20 17
+@do write
+`r6`$�`w`w
+@drawpart `p20 17
+@do `p20 - 1
+@if `p20 is 65 then do
+@begin
+@do move 65 17
+@do write
+`r6`$�`w`l
+@drawpart 65 17
+@run done
+@end
+@if `p20 not 65 then do
+@begin
+@do goto comn
+@end
+
+@#fireworks
+@do `p20 is 40
+@label rfade
+@do `p21 random 80 1
+@do `p22 random 20 1
+@do `p23 random 9 0
+@do `p24 random 10 1
+@if `p24 is 1 then `s01 is OOOOOooooooo
+@if `p24 is 2 then `s01 is AAAAAAAaaaaaahh
+@if `p24 is 3 then `s01 is That`xwas`xa`xgood`xone!
+@if `p24 is 4 then `s01 is Beautiful
+@if `p24 is 5 then `s01 is Marvolous
+@if `p24 is 6 then `s01 is Spectacular
+@if `p24 is 7 then `s01 is Sewperb
+@if `p24 is 8 then `s01 is Magnificent
+@if `p24 is 9 then `s01 is Que`xBonita
+@if `p24 is 10 then `s01 is Nice!
+@do saybar
+`s01
+@do move `p21 `p22
+@do write
+`r0``p23`l
+@do move `p21 `p22
+@do write
+`r0
+@do `p20 - 1
+@if `p20 not 0 then do
+@begin
+@do goto rfade
+@end
+@if `p20 is 0 then do
+@begin
+@end
+
+@#fade
+@do `p20 is 1
+@label f0
+@drawpart `p20 1
+@do `p20 + 1
+@if `p20 not 81 then do
+@begin
+@do goto f0
+@end
+@if `p20 is 81 then do
+@begin
+@do `p20 is 2
+
+@label f1
+@drawpart 80 `p20
+@drawpart 79 `p20
+@do `p20 + 1
+@if `p20 not 20 then do
+@begin
+@do goto f1
+@end
+@if `p20 is 20 then do
+@begin
+@do `p20 is 80
+
+@label f2
+@drawpart `p20 20
+@do `p20 - 1
+@if `p20 not 0 then do
+@begin
+@do goto f2
+@end
+@if `p20 is 0 then do
+@begin
+@do `p20 is 20
+
+@label f3
+@drawpart 1 `p20
+@drawpart 2 `p20
+@do `p20 - 1
+@if `p20 not 2 then do
+@begin
+@do goto f3
+@end
+@if `p20 is 2 then do
+@begin
+@do `p20 is 1
+
+@label f4
+@drawpart `p20 2
+@do `p20 + 1
+@if `p20 not 79 then do
+@begin
+@do goto f4
+@end
+@if `p20 is 79 then do
+@begin
+@do `p20 is 2
+
+@label f5
+@drawpart 78 `p20
+@drawpart 77 `p20
+@do `p20 + 1
+@if `p20 not 19 then do
+@begin
+@do goto f5
+@end
+@if `p20 is 19 then do
+@begin
+@do `p20 is 80
+
+@label f6
+@drawpart `p20 19
+@do `p20 - 1
+@if `p20 not 2 then do
+@begin
+@do goto f6
+@end
+@if `p20 is 2 then do
+@begin
+@do `p20 is 20
+
+@label f7
+@drawpart 3 `p20
+@drawpart 4 `p20
+@do `p20 - 1
+@if `p20 not 2 then do
+@begin
+@do goto f7
+@end
+@if `p20 is 2 then do
+@begin
+@do `p20 is 1
+
+@label f01
+@drawpart `p20 3
+@do `p20 + 1
+@if `p20 not 81 then do
+@begin
+@do goto f01
+@end
+@if `p20 is 81 then do
+@begin
+@do `p20 is 3
+
+@label f8
+@drawpart 76 `p20
+@drawpart 75 `p20
+@do `p20 + 1
+@if `p20 not 19 then do
+@begin
+@do goto f8
+@end
+@if `p20 is 19 then do
+@begin
+@do `p20 is 78
+
+@label f9
+@drawpart `p20 18
+@do `p20 - 1
+@if `p20 not 2 then do
+@begin
+@do goto f9
+@end
+@if `p20 is 2 then do
+@begin
+@do `p20 is 17
+
+@label f10
+@drawpart 5 `p20
+@drawpart 6 `p20
+@do `p20 - 1
+@if `p20 not 3 then do
+@begin
+@do goto f10
+@end
+@if `p20 is 3 then do
+@begin
+@do `p20 is 1
+
+@label f02
+@drawpart `p20 4
+@do `p20 + 1
+@if `p20 not 81 then do
+@begin
+@do goto f02
+@end
+@if `p20 is 81 then do
+@begin
+@do `p20 is 4
+
+@label f11
+@drawpart 74 `p20
+@drawpart 73 `p20
+@do `p20 + 1
+@if `p20 not 18 then do
+@begin
+@do goto f11
+@end
+@if `p20 is 18 then do
+@begin
+@do `p20 is 73
+
+@label f12
+@drawpart `p20 17
+@do `p20 - 1
+@if `p20 not 6 then do
+@begin
+@do goto f12
+@end
+@if `p20 is 6 then do
+@begin
+@do `p20 is 17
+
+@label f13
+@drawpart 7 `p20
+@drawpart 8 `p20
+@do `p20 - 1
+@if `p20 not 4 then do
+@begin
+@do goto f13
+@end
+@if `p20 is 4 then do
+@begin
+@do `p20 is 1
+
+@label f03
+@drawpart `p20 5
+@do `p20 + 1
+@if `p20 not 80 then do
+@begin
+@do goto f03
+@end
+@if `p20 is 80 then do
+@begin
+@do `p20 is 5
+
+@label f14
+@drawpart 72 `p20
+@drawpart 71 `p20
+@do `p20 + 1
+@if `p20 not 17 then do
+@begin
+@do goto f14
+@end
+@if `p20 is 17 then do
+@begin
+@do `p20 is 71
+
+@label f15
+@drawpart `p20 16
+@do `p20 - 1
+@if `p20 not 7 then do
+@begin
+@do goto f15
+@end
+@if `p20 is 7 then do
+@begin
+@do `p20 is 15
+
+@label f16
+@drawpart 13 `p20
+@drawpart 9 `p20
+@drawpart 10 `p20
+@drawpart 11 `p20
+@drawpart 12 `p20
+@do `p20 - 1
+@if `p20 not 5 then do
+@begin
+@do goto f16
+@end
+@if `p20 is 5 then do
+@begin
+@do `p20 is 1
+
+@label f04
+@drawpart `p20 6
+@do `p20 + 1
+@if `p20 not 79 then do
+@begin
+@do goto f04
+@end
+@if `p20 is 79 then do
+@begin
+@do `p20 is 6
+
+@label f17
+@drawpart 70 `p20
+@drawpart 69 `p20
+@drawpart 68 `p20
+@drawpart 67 `p20
+@drawpart 66 `p20
+@do `p20 + 1
+@if `p20 not 16 then do
+@begin
+@do goto f17
+@end
+@if `p20 is 16 then do
+@begin
+@do `p20 is 66
+
+@label f18
+@drawpart `p20 15
+@do `p20 - 1
+@if `p20 not 6 then do
+@begin
+@do goto f18
+@end
+@if `p20 is 6 then do
+@begin
+@do `p20 is 14
+
+@label f19
+@drawpart 14 `p20
+@drawpart 15 `p20
+@drawpart 16 `p20
+@drawpart 17 `p20
+@do `p20 - 1
+@if `p20 not 6 then do
+@begin
+@do goto f19
+@end
+@if `p20 is 6 then do
+@begin
+@do `p20 is 1
+
+@label f05
+@drawpart `p20 7
+@do `p20 + 1
+@if `p20 not 81 then do
+@begin
+@do goto f05
+@end
+@if `p20 is 81 then do
+@begin
+@do `p20 is 7
+
+@label f20
+@drawpart 65 `p20
+@drawpart 64 `p20
+@drawpart 63 `p20
+@drawpart 62 `p20
+@do `p20 + 1
+@if `p20 not 15 then do
+@begin
+@do goto f20
+@end
+@if `p20 is 15 then do
+@begin
+@do `p20 is 62
+
+@label f21
+@drawpart `p20 14
+@do `p20 - 1
+@if `p20 not 15 then do
+@begin
+@do goto f21
+@end
+@if `p20 is 15 then do
+@begin
+@do `p20 is 14
+
+@label f22
+@drawpart 18 `p20
+@drawpart 19 `p20
+@drawpart 20 `p20
+@drawpart 21 `p20
+@drawpart 22 `p20
+@do `p20 - 1
+@if `p20 not 5 then do
+@begin
+@do goto f22
+@end
+@if `p20 is 5 then do
+@begin
+@do `p20 is 22
+
+@label f06
+@drawpart `p20 8
+@do `p20 + 1
+@if `p20 not 60 then do
+@begin
+@do goto f06
+@end
+@if `p20 is 60 then do
+@begin
+@do `p20 is 8
+
+@label f23
+@drawpart 61 `p20
+@drawpart 60 `p20
+@drawpart 59 `p20
+@drawpart 58 `p20
+@drawpart 57 `p20
+@drawpart 56 `p20
+@drawpart 55 `p20
+@do `p20 + 1
+@if `p20 not 14 then do
+@BEgin
+@do goto f23
+@end
+@if `p20 is 14 then do
+@begin
+@do `p20 is 55
+
+@label f24
+@drawpart `p20 13
+@do `p20 - 1
+@if `p20 not 22 then do
+@begin
+@do goto f24
+@end
+@if `p20 is 22 then do
+@begin
+@do `p20 is 13
+
+@label f25
+@drawpart 23 `p20
+@drawpart 24 `p20
+@drawpart 25 `p20
+@drawpart 26 `p20
+@drawpart 27 `p20
+@drawpart 28 `p20
+@drawpart 29 `p20
+@drawpart 30 `p20
+@do `p20 - 1
+@if `p20 not 8 then do
+@begin
+@do goto f25
+@end
+@if `p20 is 8 then do
+@begin
+@do `p20 is 30
+
+@label f07
+@drawpart `p20 9
+@do `p20 + 1
+@if `p20 not 54 then do
+@begin
+@do goto f07
+@end
+@if `p20 is 54 then do
+@begin
+@do `p20 is 9
+
+@label f26
+@drawpart 54 `p20
+@drawpart 53 `p20
+@drawpart 52 `p20
+@drawpart 51 `p20
+@drawpart 50 `p20
+@drawpart 49 `p20
+@drawpart 48 `p20
+@drawpart 47 `p20
+@do `p20 + 1
+@if `p20 not 13 then do
+@begin
+@do goto f26
+@end
+@if `p20 is 13 then do
+@begin
+@do `p20 is 47
+
+@label f27
+@drawpart `p20 12
+@do `p20 - 1
+@if `p20 not 30 then do
+@begin
+@do goto f27
+@end
+@if `p20 is 30 then do
+@begin
+@do `p20 is 30
+
+@label f08
+@drawpart `p20 10
+@do `p20 + 1
+@if `p20 not 47 then do
+@begin
+@do goto f08
+@end
+@if `p20 is 47 then do
+@begin
+@do `p20 is 47
+
+@label f09
+@drawpart `p20 11
+@do `p20 - 1
+@if `p20 not 30 then do
+@begin
+@do goto f09
+@end
+@if `p20 is 30 then do
+@begin
+@if `p30 is 0 then do
+@begin
+@end
+
+@#getlost
+@do move 3 22
+@do write
+`r0`0Hey!! Look over there!!!`2(Press `0C`2 to continue)
+@do readspecial `s01 C
+@clearblock 22 22
+@do `p20 is 20
+@label d1
+@do move 38 `p20
+@do write
+`r4`%`w`w
+@drawpart 38 `p20
+@do `p20 - 1
+@if `p20 not 10 then do
+@begin
+@do goto d1
+@end
+@if `p20 is 10 then do
+@begin
+@do `p20 is 38
+
+@label d2
+@do move `p20 11
+@do write
+`r7`%`w`w
+@drawpart `p20 11
+@do `p20 + 1
+@if `p20 not 69 then do
+@begin
+@do goto d2
+@end
+@if `p20 is 69 then do
+@begin
+@do `p20 is 11
+
+@label d3
+@do move 68 `p20
+@do write
+`r7`%`w`w
+@drawpart 68 `p20
+@do `p20 + 1
+@if `p20 not 17 then do
+@begin
+@do goto d3
+@end
+@if `p20 is 17 then do
+@begin
+@do `p20 is 68
+
+@label d4
+@do move `p20 16
+@do write
+`r7`%`w`w
+@drawpart `p20 16
+@do `p20 - 1
+@if `p20 not 64 then do
+@begin
+@do goto d4
+@end
+@if `p20 is 64 then do
+@begin
+@do move 65 16
+@do write
+`r7`%`w`w
+@do saybar
+
+@do saybar
+Hey Buddy! Howza bouta...bouta..uh..cold one my way!`l`l`l`l
+@routine getale
+
+@do `p20 random 5 1
+@do `p21 random 5 1
+@if `p20 is 1 then `s01 is Barney
+@if `p20 is 2 then `s01 is Gumble
+@if `p20 is 3 then `s01 is Farlo
+@if `p20 is 4 then `s01 is Figgs
+@if `p20 is 5 then `s01 is Vicks
+@if `p21 is 1 then `s02 is Wedge
+@if `p21 is 2 then `s02 is Pompey
+@if `p21 is 3 then `s02 is Caesar
+@if `p21 is 4 then `s02 is Tuvo
+@if `p21 is 5 then `s02 is Dumbo
+@label d5
+@do saybar
+Bartender: That'll be `$$5`% sir.
+@key
+@do saybar
+Drunk: Ya mean I gotta pay for that!
+@key
+@do saybar
+Bartender: One way or another....heheheheeeee
+@key
+@do saybar
+Bartender: `s01! `s02! Get him!
+@key
+
+@do move 64 18
+@do write
+`r7`6o
+@do move 64 17
+@do write
+`r7`3`w`w
+@drawpart 64 17
+@do move 64 16
+@do write
+`r7`3`w`w
+@do `p20 is 76
+@do move 77 16
+@do write
+`r7`6o
+
+@label d6
+@do move `p20 16
+@do write
+`r7`$`w`w
+@drawpart `p20 16
+@do `p20 - 1
+@if `p20 not 65 then do
+@begin
+@do goto d6
+@end
+@if `p20 is 65 then do
+@begin
+@do move 66 16
+@do write
+`r7`$`w`w
+
+@do saybar
+<BIFF> `L<WUMP>`L <CRASH> `L<SMACK>`L MY ARM DOESN'T TURN THAT WAY!!!
+@KEY
+@DO SAYBAR
+NO!!!`L`L I MIGHT NEED THAT LATER <CRUNCH> NOT IN THE FACE NOT IN THE FACE
+@KEY
+@DO SAYBAR
+NO NO PUT IT DOWN PUT IT DOWN!!! <CRASH> AHHHHH!!!
+@KEY
+@do saybar
+CAN'T WE ALL JUST GET ALONG!!!! <BEAT>
+@key
+@DO SAYBAR
+THAT REALLY HURT!!!! <THUD>`L OUCH!!! <KICK>
+@key
+@do saybar
+Drunk: I'll pay, I'll pay
+@key
+@do saybar
+`s01 & `s02: You already are buddy!!!!! hahaha <WILD BOOT TO FACE>
+@key
+
+@drawpart 65 16
+@do move 65 15
+@do write
+`r7`%`w`w
+@drawpart 65 15
+@do move 65 14
+@do write
+`r7`%`w`w
+@drawpart 65 14
+@do move 65 13
+@do write
+`r7`%`w`w
+@drawpart 65 13
+@do move 65 14
+@do write
+`r4`@`w`w
+
+
+@drawpart 64 16
+@do move 64 16
+@do write
+`r7`3`w`w
+@drawpart 64 16
+@do move 64 17
+@do write
+`r7`3`w`w
+@drawpart 64 17
+@drawpart 64 18
+
+@do `p20 is 65
+@label d8
+@do move `p20 16
+@do write
+`r7`$`w`w
+@drawpart `p20 16
+@do `p20 + 1
+@if `p20 not 77 then do
+@begin
+@do goto d8
+@end
+@if `p20 is 77 then do
+@begin
+@drawpart 77 16
+@run done
+@end
+
+@#drawh
+;draws - from left to right
+;before calling this command y value must be set by `p21
+;before calling this command x value must be set by `p20
+;`p22 is last x to draw
+@drawpart `p20 `p21
+@do `p20 + 1
+@if `p20 not `p22 then do
+@begin
+@do goto drawh
+@end
+@if `p20 is `p22 then do
+@begin
+@end
+
+@#drawv
+;this draws | from top to bottom
+;before calling this command y value must be set by `p21
+;before calling this command x value must be set by `p20
+;`p22 is last y to draw
+@drawpart `p20 `p21
+@do `p21 + 1
+@if `p21 not `p22 then do
+@begin
+@do goto drawv
+@end
+@if `p21 is `p22 then do
+@begin
+@end
+
+@#march
+@if map is 564 then `s01 is 3
+@if map is 566 then `s01 is !
+@if map is 568 then `s01 is 5
+@do saybar
+HUT HUT HUT HUT HUT HUT HUT HUT HUT HUT HUT HUT HUT HUT HUT
+@do move 33 1
+@do write
+`r4``s01`w`w`w`w
+@do move 33 2
+@do write
+`r4``s01`w`w`w`w
+@do move 33 3
+@do write
+`r4``s01`w`w`w`w
+@do move 33 4
+@do write
+`r4``s01`w`w`w`w
+@do move 33 5
+@do write
+`r4``s01`w`w`w`w
+@do move 33 1
+@do write
+`r4`4
+@do move 33 6
+@do write
+`r4``s01`w`w`w`w
+@do move 33 2
+@do write
+`r4`4
+@do move 33 7
+@do write
+`r4``s01`w`w`w`w
+@do move 33 3
+@do write
+`r4`4
+@do move 33 8
+@do write
+`r4``s01`w`w`w`w
+@do move 33 4
+@do write
+`r4`4
+@do move 33 9
+@do write
+`r4``s01`w`w`w`w
+@do move 33 5
+@do write
+`r4`4
+@do move 33 10
+@do write
+`r4``s01`w`w`w`w
+@do move 33 6
+@do write
+`r4`4
+@do move 33 11
+@do write
+`r4``s01`w`w`w`w
+@do move 33 7
+@do write
+`r4`4
+@do move 33 12
+@do write
+`r4``s01`w`w`w`w
+@do move 33 8
+@do write
+`r4`4
+@do move 33 13
+@do write
+`r4``s01`w`w`w`w
+@do move 33 9
+@do write
+`r4`4
+@do move 33 14
+@do write
+`r4``s01`w`w`w`w
+@do move 33 10
+@do write
+`r4`4
+@do move 33 15
+@do write
+`r4``s01`w`w`w`w
+@do move 33 11
+@do write
+`r4`4
+@do saybar
+HUT HUT HUT HUT HUT HUT HUT HUT TWO THREE FOUR!
+@do move 33 16
+@do write
+`r4``s01`w`w`w`w
+@do move 33 12
+@do write
+`r4`4
+@do move 33 17
+@do write
+`r4``s01`w`w`w`w
+@do move 33 13
+@do write
+`r4`4
+@do move 33 18
+@do write
+`r4``s01`w`w`w`w
+@do move 33 14
+@do write
+`r4`4
+@do move 33 19
+@do write
+`r4``s01`w`w`w`w
+@do move 33 15
+@do write
+`r4`4
+@do saybar
+Open the Door, we march off to war!!
+@do move 33 20
+@do write
+`r4``s01`w`w`w`w
+@do move 33 16
+@do write
+`r4`4 `w`w`w`w
+@do move 33 17
+@do write
+`r4`4 `w`w`w`w
+@do move 33 18
+@do write
+`r4`4 `w`w`w`w
+@do move 33 19
+@do write
+`r4`4 `w`w`w`w
+@do move 33 20
+@do write
+`r4`4 `w`w`w`w
+@do move 3 22
+@key
+@do saybar
+Roll the Carpet!!!
+@key
+@do `p20 is 31
+@do `p21 is 19
+@do `p22 is 46
+@routine drawh in battlefx.ref
+@do `p20 is 31
+@do `p21 is 20
+@do `p22 is 46
+@routine drawh in battlefx.ref
+
+@#warpin
+;this will make a neat onblock swirly thing MUST SET `P20 AND `P21
+;TO X AND Y RESPECTIVELY BEFORE RUNNING THIS REF!!!!!
+@do move `p20 `p21
+@do write
+`r2`$+`W`W
+@do move `p20 `p21
+@do write
+`r2`$|`W`W
+@do move `p20 `p21
+@do write
+`r2`$\`W`W
+@do move `p20 `p21
+@do write
+`r2`$-`W`W
+@do move `p20 `p21
+@do write
+`r2`$/`W`W
+@do move `p20 `p21
+@do write
+`r2`$|`W`W
+@do move `p20 `p21
+@do write
+`r2`$\`W`W
+@do move `p20 `p21
+@do write
+`r2`$-`W`W
+
+
+@#movelft
+;this routine will move a selected char left <----
+;`p20 must be starting x, `p21 must be starting y
+;`p22 must be ending x, `p23 bgcolor, `p24 foregcolor
+;`s01 character(s) to be moved, `s02 number of spaces
+@do move `p20 `p21
+@do write
+`r`p23``p24`s01
+@do move `p20 `p21
+@do write
+`r`p23`s02
+@do `p20 - 1
+@if `p20 not `p22 then do
+@begin
+@do goto movelft
+@end
+@if `p20 is `p22 then do
+@begin
+@do move `p20 `p21
+@do write
+`r`p23``p24`s01
+@end
+
+@#movergt
+;this routine will move a selected char right ---->
+;`p20 must be starting x, `p21 must be starting y
+;`p22 must be ending x, `p23 bgcolor, `p24 foregcolor
+;`s01 character(s) to be moved, `s02 number spaces
+@do move `p20 `p21
+@do write
+`r`p23``p24`s01
+@do move `p20 `p21
+@do write
+`r`p23`s02
+@do `p20 + 1
+@if `p20 not `p22 then do
+@begin
+@do goto movergt
+@end
+@if `p20 is `p22 then do
+@begin
+@do move `p20 `p21
+@do write
+`r`p23``p24`s01
+@end
+
+@#moveup
+;this routine will move a selected char up /^\
+;`p20 must be starting x, `p21 must be starting y |
+;`p22 must be ending y, `p23 bgcolor, `p24 foregcolor |
+;`s01 character(s) to be moved, `s02 number of spaces
+@do move `p20 `p21
+@do write
+`r`p23``p24`s01
+@do move `p20 `p21
+@do write
+`r`p23`s02
+@do `p21 - 1
+@if `p21 not `p22 then do
+@begin
+@do goto moveup
+@end
+@if `p21 is `p22 then do
+@begin
+@do move `p20 `p21
+@do write
+`r`p23``p24`s01
+@end
+
+@#movedwn
+;this routine will move a selected char down |
+;`p20 must be starting x, `p21 must be starting y |
+;`p22 must be ending y, `p23 bgcolor, `p24 foregcolor \ /
+;`s01 character(s) to be moved, `s02 number spaces *
+@do move `p20 `p21
+@do write
+`r`p23``p24`s01
+@do move `p20 `p21
+@do write
+`r`p23`s02
+@do `p21 + 1
+@if `p21 not `p22 then do
+@begin
+@do goto movedwn
+@end
+@if `p21 is `p22 then do
+@begin
+@do move `p20 `p21
+@do write
+`r`p23``p24`s01
+@end
+
+@#drawful
+;best if used after warpin, `p24 is color, `p23 is bgcolor
+;`p20 & `p21 are x and y respectively
+@do move `p20 `p21
+@do write
+`r`p23``p24
+
+@#gotya
+@if map is 484 then `p24 is 3
+@if map is 486 then `p24 is 0
+@if map is 488 then `p24 is 5
+@do `s01 is `w`w`w
+@do `s02 is
+@do `p23 is 7
+@do `p20 is 2
+@do `p21 is 20
+@do `p22 is 14
+@routine moveup
+@do `p20 is 2
+@do `p21 is 11
+@routine warpin
+@routine drawful
+@do `p20 is 3
+@routine warpin
+@routine drawful
+@do `p20 is 4
+@routine warpin
+@routine drawful
+@do `p20 is 5
+@routine warpin
+@routine drawful
+@do saybar
+Guard Headmaster: You're surrounded! There is no escape....
+@key
+@do saybar
+Prepare to die!!!!
+@key
+@show
+`r0`c
+`0
+
+
+ You are gaged and blind-folded!`l.`l.`l.`l.
+
+ You are led downwards`l.`l.downwards`l.`l.
+
+ Sweat beads on your fore-head`l.`l.
+
+
+ Executioner: Would you like a blind-fold?`2[`0N`2,`0Y`2]
+@do readspecial `s01 NY
+@if `s01 is N then do
+@begin
+@do move 1 1
+@displayfile battle6.ans NOPAUSE
+@do x is 35
+@do y is 4
+@update
+@do `p20 is 44
+@do `p21 is 11
+@routine warpin
+@routine drawful
+@do saybar
+Executioner: Master, have you come to watch the execution?!!?
+@Key
+@do saybar
+Yes, so make it good!
+@key
+@do saybar
+Ready..............
+@key
+@do saybar
+Aim..............
+@key
+@do saybar
+FIRE..............
+@key
+@do `s01 is |
+@do `s02 is `x
+@do `p20 is 35
+@do `p21 is 10
+@do `p22 is 5
+@do `p24 is 4
+@do `p23 is 7
+@routine moveup
+@do saybar
+The Arrow plunges into you heart!!!!!
+@key
+@do saybar
+Your body is pinned to the wall as another arrow is shot!
+@key
+@do `s01 is |
+@do `s02 is `x
+@do `p20 is 35
+@do `p21 is 10
+@do `p22 is 4
+@do `p24 is 4
+@do `p23 is 7
+@routine moveup
+@do saybar
+This one gets you right between the eyes. And all goes dark!
+@key
+@do enemy is Executioner
+@run die in gametxt.ref
+@end
+
+@if `s01 is Y then do
+@begin
+@do enemy is crossbows
+@show
+`r0`c
+
+Executioner: Ready!!!`l.`l.`l.`l.`l.
+ Aim!!!`l.`l.`l.`l.`l.
+ FIRE!!!`l.`l.`l.`l.`l.
+
+<click> Sorry boss, forgot to load the cross bow!`l`l`l
+ there we go!
+
+Executioner: Ready!!!`l.`l.`l.`l.`l.
+ Aim!!!`l.`l.`l.`l.`l.
+ FIRE!!!`l.`l.`l.`l.`l.
+
+ You don't even feel the arrow split your skull in two
+ `k
+@
+@run die in gametxt.ref
+@end
+
+@#meeting
+@do move 3 22
+@do write
+`r0`2Press `0C`2 to Continue......
+@do readspecial `s01 C
+@clearblock 22 22
+@do `p20 is 37
+@do `p21 is 20
+@do `p22 is 3
+@do `p23 is 4
+@do `p24 is 0
+@do `s01 is `!`w`w
+@do `s02 is `x
+@routine moveup
+@do `p30 random 5 1
+@if `p30 is 1 then `s03 is Sosen
+@if `p30 is 2 then `s03 is Greentree
+@if `p30 is 3 then `s03 is Bonetown
+@if `p30 is 4 then `s03 is Flagcity
+@if `p30 is 5 then `s03 is Stonebrooke
+@do saybar
+Soldier: King Codax, the warriors of Shara are walling themselves up...
+@key
+@do saybar
+they seem to be playing a waiting game!
+@do saybar
+Codax: So...that's their strategy.....
+@key
+@do saybar
+Soldier: We are ready to take the castle...just give the order!
+@key
+@do saybar
+Codax: Patience! If we attack now, too many lives will be lost
+@key
+@do saybar
+Soldier: But I'm ready to lay down my life for your empire!
+@key
+@do saybar
+Codax: Your from `s03, right?
+@key
+@do saybar
+Soldier: Yes sir, why?
+@key
+@do saybar
+Codax: And your family lives there? Fall in battle and I'll have to deliver
+@key
+@do saybar
+the bad news. What shall I say to them? You have a life to go back to
+@key
+@do saybar
+someday...don't throw it all away for nothing! I wouldn't want that!
+@key
+@do saybar
+Soldier: YES SIR!!!!!
+@key
+@do `p21 is 3
+@do `p22 is 20
+@routine movedwn
+@drawpart 37 20
+
+
+@#flirt
+@do saybar
+First we turn on the lights!
+@key
+@do move 7 2
+@do write
+`6����`7�������`4�������
+@do move 7 3
+@do write
+`7�����������`4���`7��
+@do move 7 4
+@do write
+`r7`7������`6o0o`7��`4���`7��
+@do move 7 5
+@do write
+`r0`%�`4�������������`7��
+@do `p20 is x
+@do `p21 is y
+@do saybar
+Now lets take the cool way in!
+@key
+@routine warpin
+@do `p20 is 37
+@do `p21 is 2
+@routine warpin
+@do move 37 2
+@do write
+`r7
+@do x is `p22
+@do y is `p23
+@do `p20 is x
+@do `p21 is y
+@routine warpin
+@routine warpin
+@update
+@label flirt2
+@do saybar
+You experience a wonderfull time with `s01 and gain charm and `s02 favor!
+@key
+@routine outroom
+
+@#outroom
+@if map is 484 then `s02 is 3
+@if map is 484 then `s01 is Power
+@if map is 486 then `s02 is !
+@if map is 486 then `s01 is Codax
+@if map is 488 then `s01 is Shara
+@if map is 488 then `s02 is 5
+@do `p20 is x
+@do `p21 is y
+@routine warpin
+@drawpart 37 2
+@do x is 37
+@do y is 3
+@routine warpin
+@update
+@do move 7 2
+@do write
+`r0
+@do move 7 3
+@do write
+`r0``s02`s01's Chambers
+@do move 7 4
+@do write
+`r0
+@do move 7 5
+@do write
+`r0
+
+@#gone
+@drawmap
+@update
+
+@#movergt2
+;moves player --->
+@do x is `p20
+@do y is `p21
+@update
+@do move 3 22
+@do write
+`w
+@drawpart `p20 `p21
+@do `p20 + 1
+@if `p20 not `p22 then do
+@begin
+@do goto movergt2
+@end
+@if `p20 is `p22 then do
+@begin
+@end
+
+;-------------------high ascii---------------------------
+; open face
+; full face
+; snow flake
+;� partial open
+;� middle open
+;� mostly closed
+;� all closed
+;� up top
+;� down bottom
+;� left wall
+;� right wall
+;� middle square
+;� middle dot
diff --git a/xtrn/lord2/cnw/battlest.ref b/xtrn/lord2/cnw/battlest.ref
new file mode 100644
index 0000000000000000000000000000000000000000..ab1cb1d5c05f23929ecf2d997f2cddbc3c56fe90
--- /dev/null
+++ b/xtrn/lord2/cnw/battlest.ref
@@ -0,0 +1,1162 @@
+; Script file BATTLEST.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:34 2001
+
+@DECLARE warpin 000000687
+@DECLARE story 000001169
+@DECLARE shar 000001468
+@DECLARE cod 000002834
+@DECLARE pow 000003780
+@DECLARE s0 000004826
+@DECLARE s1 000005042
+@DECLARE sf 000009414
+@DECLARE s2 000010173
+@DECLARE s3 000010413
+@DECLARE s4 000011681
+@DECLARE sg 000013557
+@DECLARE s6 000014442
+@DECLARE s7 000014954
+@DECLARE sh 000015312
+@DECLARE s8 000015776
+@DECLARE s9 000016133
+@DECLARE s10 000016440
+@DECLARE s11 000016685
+@DECLARE dgrass 000017586
+@DECLARE codend 000017670
+@DECLARE sharend 000018978
+@DECLARE powend 000020280
+@NOCHECK
+; End of .REF index
+
+@#warpin
+;this will make a neat onblock swirly thing MUST SET `P20 AND `P21
+;TO X AND Y RESPECTIVELY BEFORE RUNNING THIS REF!!!!!
+@do move `p20 `p21
+@do write
+`r2`$+`W`W
+@do move `p20 `p21
+@do write
+`r2`$|`W`W
+@do move `p20 `p21
+@do write
+`r2`$\`W`W
+@do move `p20 `p21
+@do write
+`r2`$-`W`W
+@do move `p20 `p21
+@do write
+`r2`$/`W`W
+@do move `p20 `p21
+@do write
+`r2`$|`W`W
+@do move `p20 `p21
+@do write
+`r2`$\`W`W
+@do move `p20 `p21
+@do write
+`r2`$-`W`W
+
+
+@#story
+@busy
+@do `p29 is map
+@if `p29 is 484 then do
+@begin
+@do `p30 is 1 ;power's castle
+@do goto pow
+@end
+
+@if `p29 is 488 then do
+@begin
+@do `p30 is 2 ;shara's castle
+@do goto shar
+@end
+
+@if `p29 is 486 then do
+@begin
+@do `p30 is 3 ;codax's castle
+@do goto cod
+@end
+
+@label shar
+@show
+`r0`c`% `r1 A story unfolds `r0`2
+
+ Shara: As you know I am a Phoenix...`$
+`k
+ What's a Phoenix?`2
+`k
+ Shara: A Phoenix is a mystical bird that lives forever. When the
+ Phoenix "die" we become ashes and must stay that way for 100yrs.
+ We all worship and cherish fire, bathing it's liquid form.
+ This keeps us immortal, kinda.
+`k
+ Cyrus, my general, is a strange sort of Phoenix though...
+ He is what all Phoenix want to be. If he dies, he'll give off
+ a crushing beam of light that will slay his slayor and he will turn
+ to dust untill the next day! He respects me too much to take
+ my throne....though I think he likes me....
+`k
+ Anyway our fighting is nothing compared to what our sisters and
+ brothers are doing. In a near by land yet undiscovered by you
+ Phoenix and Dragons fight with such vicousness I cannot even
+ discribe it to you. We came here to overcome our differences
+ but it didn't quite happen.
+`k
+ The Dragons Codax & Power were always in trouble and I always
+ seemed to bail them out. One time I remember clearly because of
+ the Koshi! I hate the Koshi with a vengence! When I finish the
+ Dragons I will go after the Koshi! This is what happened....
+
+`k
+ Press C to continue....
+
+
+@do readspecial `s01 C
+@if `s01 is C then do
+@begin
+@do goto s0
+@end
+@end
+
+@label cod
+@show
+
+`r0`c `r1`% A story unfolds `r0`2
+
+ Codax:`0 Power, Shara, and I were always enemies. However on rare
+ occasions we banded together. You see the `%Koshi`0 were always
+ after us! The Koshi hated all that wasn't Human or Koshi therfore
+ we, Shara Phoenix, Power Darkdraco, and I, Codax Dragon were all
+ quarry for the Koshi.
+
+`k
+`$ But why were they after you? What drove the hatred?!`2
+`k
+
+ Codax:`0 You see, the Koshi feared that the Dragon and Phoenix War would
+ rip the world apart. They should have left us alone we can fend for
+ ourselves. Our magic was strong but I don't believe what the Koshi
+ say.
+
+ Power and I had just escaped from the Koshi and we headed to the point
+ where we said we would meet so we could finaly finish our battle!
+
+`k
+ Press C to continue....
+
+
+@do readspecial `s01 C
+@if `s01 is C then do
+@begin
+@do goto s0
+@end
+@end
+
+@label pow
+@show
+
+`r0`c `r1`% A story unfolds `r0`2
+
+ Power:`0 Codax, Shara, and I were always enemies. However on rare
+ occasions we banded together. You see the `%Koshi`0 were always
+ after us! The Koshi hated all that wasn't Human or Koshi therfore
+ we, Shara Phoenix, Codax Dragon, and I, Power Darkdraco were all
+ quarry for the Koshi.
+
+`k
+`$ But why were they after you? What drove the hatred?!`2
+`k
+
+ Power:`0 You see, the Koshi feared that the Dragon and Phoenix War would
+ rip the world apart. They should have left us alone we can fend for
+ ourselves. Our magic was strong but I don't believe what the Koshi
+ say. Sure, *I* am evil, but the way they tourtured Dragons`l.`l.`l.
+ I will never forget, nor forgive.
+
+ Codax and I had just escaped from the Koshi and we headed to the point
+ where we said we would meet so we could finaly finish our battle!
+
+`k
+ Press C to continue....
+
+
+@do readspecial `s01 C
+@if `s01 is C then do
+@begin
+@do goto s0
+@end
+@end
+
+
+@label s0
+@show
+`r0`c
+@do move 35 10
+@do write
+`r0`%Fifty Years Ago`l`l`l`l
+@displayfile battle1.ans NOPAUSE
+
+@do saybar
+Codax: Man....the Koshi almost got us that time!!!
+@do `p20 is 80
+@do `p21 is 80
+@label s1
+@do move `p20 11
+@do write
+`r2`3
+@do move `p20 10
+@do write
+`r2`!`w`w
+@do `p20 - 1
+@do move `p21 11
+@do write
+`r2
+@do move `p21 10
+@do write
+`r2
+@do `p21 - 1
+@if `p20 not 39 then do
+@begin
+@do goto s1
+@end
+@if `p20 is 39 then do
+@begin
+@do move 40 11
+@do write
+`r2`3
+@do move 40 10
+@do write
+`r2`!`w`w`w
+@do saybar
+Power: Get away from me you stupid goody, goody!
+@key
+@clearblock 21 22
+;--power moves down
+@do move 40 11
+@do write
+`r2`3`w`w
+@do move 40 11
+@do write
+`r2
+@do move 40 12
+@do write
+`r2`3`w`w
+@do move 40 12
+@do write
+`r2
+@do move 40 13
+@do write
+`r2`3`w`w
+@do move 40 13
+@do write
+`r2
+@do move 40 14
+@do write
+`r2`3`w`w
+@do move 40 14
+@do write
+`r2
+@do move 40 15
+@do write
+`r2`3`w`w
+@do saybar
+Power: Shara's late`l.`l.`l.looks like I'll have to kill you then her!
+@key
+@do saybar
+Codax: I think you spoke to soon, LOOK!!!!!
+@key
+@do `p20 is 21
+@do `p21 is 12
+@routine warpin
+@do move 21 12
+@do write
+`r2`5
+@do saybar
+Shara: Hahahaaa...did you think I'd forget about our little hiding spot?
+@key
+@do saybar
+Codax: I knew you'd be here! Nice Teleport, you can teach it to me....
+@key
+@do saybar
+JUST BEFORE I KILL YOU!!!!!
+@key
+@do saybar
+Power: Finaly, I will be able to make tropies outta both of ya!!!!
+@key
+@do saybar
+Shara: Watch your tounge, Power! I'm a lady and if you're not carefull...
+@key
+@do saybar
+I'll wear it as a necklace!!!
+@key
+@do saybar
+Codax: Then lets get ready, to RUMBLE!!!!
+@key
+@do saybar
+WAIT!!!!!!!
+@KEY
+@do saybar
+All: Who said that?!?!?!?!
+@key
+@do saybar
+Us.
+@key
+@do `p20 is 38
+@do `p21 is 6
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2`%`w`w
+@do `p20 is 26
+@do `p21 is 7
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2`%`w`w
+@do `p20 is 16
+@do `p21 is 12
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2`%`w`w
+@do `p20 is 26
+@do `p21 is 17
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2`%`w`w
+@do `p20 is 40
+@do `p21 is 17
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2`%`w`w
+@do `p20 is 50
+@do `p21 is 11
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2`%`w`w
+@do `p20 is 44
+@do `p21 is 6
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2`%`w`w
+@do move 80 10
+@do write
+`r2`%`w`w
+@do move 80 11
+@do write
+`r2`%`w`w
+@do saybar
+In case you forgot us
+@key
+@do saybar
+We are
+@key
+@do saybar
+THE KOSHI!!!!!!
+@key
+@do saybar
+Shara, Codax, Power: NOOOOOOOOOOooooooooo How did you find us?!?!!?!!
+@key
+@do move 38 6
+@do write
+`r2 `w`w
+@do move 38 7
+@do write
+`r2`%
+@do saybar
+Dahma: I am Dahma!!! Power you should remember me.
+@key
+@do saybar
+Power: Yeah, I was your slave for 26 human years, untill you thought you
+@key
+@do saybar
+could tame the Red Dragon. He taught me how to FIGHT!!! And use Magic!!
+@key
+@do saybar
+Dahma: Well your time is up!!! Since we can't seem to hold on to you we'll
+@key
+@do saybar
+Seal your powers for 50 human years! By that time you should learn to get
+@key
+@do saybar
+along and play nice.......HAHAHAHAHAahahah! I would suggest Porathe
+@key
+@do saybar
+I hear It's nice this time of year. Koshi!!! Do it!!!!!
+@key
+@do saybar
+All Koshi: DISPSTO IPTO FACTO NUMBOADO SOUL END TORSTAFA!!!!!!!!
+@key
+@do saybar
+Shara, Codax, Power: NOOOOOOOOOOOooooooooooo!!!!!!!!!!!!!!!!!!!
+@key
+@do `p20 is 26
+@do `p21 is 7
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2`2 `w`w
+@do `p20 is 16
+@do `p21 is 12
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2`2 `w`w
+@do `p20 is 26
+@do `p21 is 17
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2`2 `w`w
+@do `p20 is 40
+@do `p21 is 17
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2`2 `w`w
+@do `p20 is 50
+@do `p21 is 11
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2`2 `w`w
+@do `p20 is 44
+@do `p21 is 6
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2`2 `w`w
+@do `p20 is 80
+@do `p21 is 10
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2`2 `w`w
+@do `p21 is 11
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2 `w`w
+@do saybar
+Dahma: Enjoy your 50 years without powers!!!!
+@key
+@do `p20 is 38
+@do `p21 is 7
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2 `w`w
+@do map is 1289
+@loadmap 1289
+@clearblock 21 22
+@routine fade in battlefx.ref
+@key
+@label sf
+@do move 1 1
+@displayfile battle2.ans NOPAUSE
+@do move 43 7
+@do write
+`r0
+@do move 8 11
+@do write
+`r2
+@do move 74 16
+@do write
+`r2`3
+@Do saybar
+The Koshi did an incomplete job on us though....We all gained warping power
+@key
+@do saybar
+and lost all our others, including morphing into our respective creatures
+@key
+@do saybar
+and over the next 25 years our legend faded away. We all stayed young, as
+@key
+@do saybar
+Dragons and Phoenix do. But were forced to live without powers.
+@key
+@do saybar
+As it turned out, we all ended up in Porathe after all.....
+@key
+@do `p20 is 8
+@do `p21 is 19
+@routine warpin
+@do move 8 19
+@do write
+`r2`5`l`l`l`l
+@do saybar
+Shara: He's late......`l`l
+@key
+@do `p20 is 1
+
+@label s2
+@do move `p20 10
+@do write
+`r6`$`w`w
+@do move `p20 10
+@do write
+`r6
+@do `p20 + 1
+@if `p20 not 9 then do
+@begin
+@do goto s2
+@end
+@if `p20 is 9 then do
+@begin
+@do move 8 10
+@do write
+`r2`$`w`w
+@do `p20 is 10
+
+@label s3
+@do move 8 `p20
+@do write
+`r2`$`w`w
+@do move 8 `p20
+@do write
+`r2
+@do `p20 + 1
+@if `p20 not 19 then do
+@begin
+@do goto s3
+@end
+@if `p20 is 19 then do
+@begin
+@do move 8 18
+@do write
+`r2`$
+@do saybar
+`$Man: Sorry I'm late Shara, Dragon Tooth Clan Problems....
+@key
+@do saybar
+`%Shara: I don't care about your silly excuses! I summoned you because
+@key
+@do saybar
+I heard you were the best castle builder around.
+@key
+@do saybar
+`$Man: I do my best. I hope you have the amount....
+@key
+@do saybar
+`%Shara: I do. All $5,000,000 of it. This should cover a mountain castle
+@key
+@do saybar
+`$Man: WAHhhh, by the Koshi! Where did you get that much MONEY!!!!
+@key
+@do saybar
+`%Shara: WHAT DID YOU SAY!!!!
+@key
+@do saybar
+`$Man: I wondered where you get the money.
+@key
+@do saybar
+`%Shara: BEFORE THAT!!!
+@key
+@do move 8 18
+@do write
+`r2
+@do move 8 17
+@do write
+`r2`$
+@do saybar
+`$Man: um by the um koshi
+@key
+@do saybar
+`%Shara: If you want to live to spend your gold I suggest you NEVER, EVER,
+@key
+@do saybar
+Mention that word in my presence!!!!!!
+@key
+@do saybar
+`$Man: Yes mistress Shara!
+@key
+@do saybar
+Shara: Leave me. And remember lotsa lava now!
+@key
+@do `p20 is 17
+
+@label s4
+@do move 8 `p20
+@do write
+`r2`$`w`w
+@do move 8 `p20
+@do write
+`r2
+@do `p20 - 1
+@if `p20 not 9 then do
+@begin
+@do goto s4
+@end
+@if `p20 is 9 then do
+@begin
+@do move 8 10
+@do write
+`r2`$
+@do saybar
+`$Man: Hey what's happening?!?!?!? Ahhhhh.....
+@key
+@do `p20 is 8
+@do `p21 is 10
+@routine warpin
+@routine dgrass
+@do `p20 is 74
+@do `p21 is 15
+@routine warpin
+@do move `p20 `p21
+@do write
+`r2`$
+@do saybar
+`$Man: What happened?
+@key
+@do saybar
+Power: Hello, I am Power and I have a little proposition for you!
+@key
+@do saybar
+I want you to build me a castle! I will pay your handsomely if you do
+@key
+@do saybar
+Well.....?
+@key
+@do saybar
+`$Man: Two jobs in one day this is great!!! Um how do I get outta here?
+@key
+@do saybar
+Power: Simple!!!!
+@key
+@do map is 295
+@loadmap 295
+@routine fade in battlefx.ref
+@do move 74 14
+@do write
+`r2`$
+@do saybar
+`$Man: How the hell did I get here? Oh well, this is where I'll build
+@key
+@do move 1 1
+@displayfile battle2.ans NOPAUSE
+@do move 43 7
+@do write
+`r0
+@do move 8 11
+@do write
+`r2
+@do move 74 16
+@do write
+`r2`3
+@do move 29 9
+@do write
+`r2`!
+@do saybar
+Codax: Oh I do so hate to have to walk around these trees!
+@key
+@do `p20 is 29
+@do `p21 is 9
+@routine warpin
+@routine dgrass
+@do `p20 is 52
+@do `p21 is 17
+@routine warpin
+@do move 52 17
+@Do write
+`r2`!
+@do saybar
+Codax: Thats better! Now....
+@key
+@do saybar
+Codax: Friends! As you know In another 25yrs I will be whole again!
+@key
+@do saybar
+I wish for all of you to share in my glory above the Phoenix SHARA and
+@key
+@do saybar
+the EVIL Dragon POWER!!! Help me build me a castle!!!!!!
+@key
+@do saybar
+Crowd: WE ARE WITH YOU CODAX!!! HURRAH!! MAY THE DRAGONS PROTECT OUR SOULS!
+@key
+@do map is 1289
+@loadmap 1289
+@routine fade in battlefx.ref
+@label sg
+@do move 25 10
+@do write
+`r0`%1 day before Koshi's Spell was to wear off!`l`l`l`l`l
+@do move 1 1
+@displayfile battle3.ans
+@do saybar
+Codax: Just one more day untill this stupid spell wears off!!!
+@key
+@do saybar
+Power: I can't wait!!!! I'm so.....Anxious!!!!
+@key
+@do saybar
+Shara: My fire, I did so miss my fire!
+@key
+@do saybar
+Codax: I say we team up to destroy the Koshi, then go on with our war!!
+@key
+@do saybar
+Power & Shara: Sounds good to me!!!!
+@key
+@do `p20 is 65
+@do `p21 is 1
+@routine warpin
+@do move 65 1
+@do write
+`r6`%
+@do saybar
+Koshi: So they still havn't learned yet! Well this'll fix 'em!!!
+@key
+@do saybar
+Koshi: Storfa rombla ko tombla!!!
+@key
+@do saybar
+Shara: Do you feel that, that, RUMBLING!!!!
+@key
+@do saybar
+RUMBLE RUMBLE RUMBLE RUMBLE RUMBLE RUMBLE RUMBLE RUMBLE RUMBLE RUMBLE
+@do `p20 is 20
+
+@label s6
+@do move 1 `p20
+@do write
+`r0`6��������������������������������������������������������������������������������`l`w`w
+@do move 1 `p20
+@do write
+`r0
+@do `p20 - 1
+@if `p20 not 0 then do
+@begin
+@do saybar
+Shara: The Ground is giving way!!!! EARTHQUAKE!!!!!!
+@do goto s6
+@end
+@if `p20 is 0 then do
+@begin
+@do `p20 is 1
+@do saybar
+AAAAAAAAAAAAAAAAAAAHHHHHHHHHHHHHHHHHHHHHHHHHHHHhhhhhhhhhhhhhhh!!!!!!!!!
+
+@label s7
+@do move 30 `p20
+@do write
+`r0`5 `3 `!`w`w
+@do move 30 `p20
+@do write
+
+@do `p20 + 1
+@if `p20 not 21 then do
+@begin
+@do goto s7
+@end
+@if `p20 is 21 then do
+@begin
+@do saybar
+Koshi: Now to restore this ground!!! May it be cursed forever!!!!!
+@key
+@do map is 1434
+@loadmap 1434
+@routine fade in battlefx.ref
+@key
+@label sh
+@do move 1 1
+@displayfile battle4.ans NOPAUSE
+@do move 71 6
+@do write
+`r6
+@do move 56 13
+@do write
+`r6`3
+
+@do saybar
+Codax: Stupid Koshi!!!! Always picking on us Dragons!!
+@key
+@do saybar
+Lets see...how can I get outta here! AHA lets see if my magic's back!
+@key
+@do saybar
+SUMMON CODAX CLONE!
+@do move 74 7
+@do write
+`r6`!
+@do saybar
+Codax: HAHAHAHAHAHAAAaaaa....See ya later!!!! I'm outta here!
+@key
+@do `p20 is 74
+
+@label s8
+@do move `p20 7
+@do write
+`r6`!`w
+@do move `p20 7
+@do write
+`r6
+@do `p20 - 1
+@if `p20 not 0 then do
+@begin
+@Do goto s8
+@end
+@if `p20 is 0 then do
+@begin
+@do saybar
+Shara: HMMmmmm...Codax had a good idea there! PHOENIX FIRE CLONE!
+@key
+@do move 49 14
+@do write
+`r6`5
+@do `p20 is 49
+@do saybar
+I'm outta here!!!
+@key
+
+@label s9
+@do move `p20 14
+@do write
+`r6`5`w`w
+@do move `p20 14
+@do write
+`r6
+@do `p20 - 1
+@if `p20 not 0 then do
+@begin
+@do goto s9
+@end
+@if `p20 is 0 then do
+@begin
+
+@do saybar
+Power: Cowards! I'm not afraid of the Koshi!
+@key
+@do saybar
+I'm outta here!
+@key
+@do `p20 is 56
+
+@label s10
+@do move `p20 13
+@do write
+`r6`3`w
+@do move `p20 13
+@do write
+`r6
+@do `p20 - 1
+@if `p20 not 0 then do
+@begin
+@do goto s10
+@end
+@if `p20 is 0 then do
+@begin
+
+@do move 1 1
+@displayfile battle5.ans
+@do `p20 is 80
+
+@label s11
+@Do move `p20 11
+@do write
+`r6`3`w
+@do move `p20 11
+@do write
+`6�
+@do `p20 - 1
+@if `p20 not 40 then do
+@begin
+@do goto s11
+@end
+@if `p20 is 40 then do
+@begin
+
+@do move 40 11
+@do write
+`r6`3`w`w
+@do saybar
+Power: Hey wait!!! If I can leave so will that great healer!
+@key
+@do saybar
+I'll have to fix that! SUMMON RANDOM MAN!!!!
+@do `p20 is 41
+@do `p21 is 11
+@routine warpin
+@do move 41 11
+@do write
+`r6`1
+@do saybar
+Random Man: I am here my master!
+@key
+@do saybar
+Power: I want you to gaurd this area! Don't let the Healer escape!
+@key
+@do saybar
+Random Man: I shall follow your orders past death o great Power!
+@key
+@do saybar
+Power: HAHAHAHAHAHAHAHAHAHAHAHAHAhahahahahahahahaaaaaaaaaaaaaaaaaa!!!!
+@do map is `p29
+@loadmap `p29
+@routine fade in battlefx.ref
+@update
+@do saybar
+And that is how it happened that we are at war!!!!
+
+@#dgrass
+;`p20 is x chord `p21 is y chord
+@do move `p20 `p21
+@do write
+`r2
+
+@#codend
+@do map is 213
+@loadmap 213
+@routine fade in battlefx.ref
+@do x is 23
+@do y is 16
+@update
+@do move 25 16
+@do write
+`r2`!
+@do `p01 + 1000
+@do `p04 + 2
+@do `p03 + 10
+@do `p05 + 2
+@do `p18 + 20
+@do saybar
+Codax: Because of your bravery I award you...
+@key
+@do saybar
+1,000 exp, 10 More Hitpoints, 2 more Dodge and Muscle, and....`l`l`l
+@key
+@do saybar
+A FESTIVAL IN YOUR HONOR!!!!!`l`l`l`l`l
+@key
+@show
+`r0`c
+
+
+
+
+ Later that evening
+
+`k
+`r0`c
+@routine fireworks in battlefx.ref
+@key
+@show
+`r0`c `r1`% Oh man!! `r0`2
+
+ Oh man! What a hangover! All that partying lastnight.
+ maybe lastnight...Was it all a dream? Oh well...`k
+
+@
+@do map is 155
+@loadmap 155
+@do x is 36
+@do y is 11
+@do `p80 is 0
+@do `p84 is 0
+@do `p89 is 0
+@do `p90 is 0
+@bitset `t20 0 0
+@bitset `t20 1 0
+@bitset `t20 2 0
+@bitset `t20 3 0
+@bitset `t20 4 0
+@bitset `t20 5 0
+@bitset `t20 6 0
+@bitset `t20 7 0
+@bitset `t21 0 0
+@bitset `t21 1 0
+@bitset `t22 0 0
+@bitset `t22 1 0
+@bitset `t22 2 0
+@bitset `t22 3 0
+@bitset `t22 4 0
+@bitset `t22 5 0
+@bitset `t22 6 0
+@bitset `t22 7 0
+@bitset `t23 0 0
+@bitset `t23 1 0
+@bitset `t23 2 0
+@bitset `t23 3 0
+@bitset `t23 4 0
+@bitset `t23 5 0
+@bitset `t23 6 0
+@bitset `t23 7 0
+@drawmap
+@update
+
+@#sharend
+@do map is 292
+@loadmap 292
+@routine fade in battlefx.ref
+@do x is 43
+@do y is 18
+@update
+@do move 45 18
+@do write
+`r2`5
+@do `p01 + 1000
+@do `p04 + 2
+@do `p03 + 10
+@do `p05 + 2
+@do `p18 + 20
+@do saybar
+Shara: Because of your bravery I award you...
+@key
+@do saybar
+1,000 exp, 10 More Hitpoints, 2 more Dodge and Muscle, and....`l`l`l
+@key
+@do saybar
+A FESTIVAL IN YOUR HONOR!!!!!`l`l`l`l`l
+@key
+@show
+`r0`c
+
+
+
+
+ Later that evening
+
+`k
+@routine fireworks in battlefx.ref
+@key
+@show
+`r0`c `r1`% Oh man!! `r0`2
+
+ Oh man! What a hangover! All that partying lastnight.
+ maybe lastnight...Was it all a dream? Oh well...`k
+
+@
+@do x is 27
+@do y is 7
+@do map is 155
+@loadmap 155
+@do `p80 is 0
+@do `p84 is 0
+@do `p89 is 0
+@do `p90 is 0
+@bitset `t20 0 0
+@bitset `t20 1 0
+@bitset `t20 2 0
+@bitset `t20 3 0
+@bitset `t20 4 0
+@bitset `t20 5 0
+@bitset `t20 6 0
+@bitset `t20 7 0
+@bitset `t21 0 0
+@bitset `t21 1 0
+@bitset `t22 0 0
+@bitset `t22 1 0
+@bitset `t22 2 0
+@bitset `t22 3 0
+@bitset `t22 4 0
+@bitset `t22 5 0
+@bitset `t22 6 0
+@bitset `t22 7 0
+@bitset `t23 0 0
+@bitset `t23 1 0
+@bitset `t23 2 0
+@bitset `t23 3 0
+@bitset `t23 4 0
+@bitset `t23 5 0
+@bitset `t23 6 0
+@bitset `t23 7 0
+@drawmap
+@update
+
+
+@#powend
+@do map is 373
+@loadmap 373
+@routine fade in battlefx.ref
+@do x is 20
+@do y is 15
+@update
+@do move 22 15
+@do write
+`r2``
+@do `p01 + 1000
+@do `p04 + 2
+@do `p03 + 10
+@do `p05 + 2
+@do `p18 + 20
+@do saybar
+Power: Because of your bravery I award you...
+@key
+@do saybar
+1,000 exp, 10 More Hitpoints, 2 more Dodge and Muscle, and....`l`l`l
+@key
+@do saybar
+A FESTIVAL IN YOUR HONOR!!!!!`l`l`l`l`l
+@key
+@show
+`r0`c
+
+
+
+
+ Later that evening
+
+`k
+@routine fireworks in battlefx.ref
+@key
+@show
+`r0`c `r1`% Oh man!! `r0`2
+
+ Oh man! What a hangover! All that partying lastnight.
+ maybe lastnight...Was it all a dream? Oh well...`k
+
+@
+@do x is 27
+@do y is 7
+@do map is 155
+@loadmap 155
+@do `p80 is 0
+@do `p84 is 0
+@do `p89 is 0
+@do `p90 is 0
+@bitset `t20 0 0
+@bitset `t20 1 0
+@bitset `t20 2 0
+@bitset `t20 3 0
+@bitset `t20 4 0
+@bitset `t20 5 0
+@bitset `t20 6 0
+@bitset `t20 7 0
+@bitset `t21 0 0
+@bitset `t21 1 0
+@bitset `t22 0 0
+@bitset `t22 1 0
+@bitset `t22 2 0
+@bitset `t22 3 0
+@bitset `t22 4 0
+@bitset `t22 5 0
+@bitset `t22 6 0
+@bitset `t22 7 0
+@bitset `t23 0 0
+@bitset `t23 1 0
+@bitset `t23 2 0
+@bitset `t23 3 0
+@bitset `t23 4 0
+@bitset `t23 5 0
+@bitset `t23 6 0
+@bitset `t23 7 0
+@drawmap
+@update
+
+;-------------------high ascii---------------------------
+; open face
+; full face
+; snow flake
+;� partial open
+;� middle open
+;� mostly closed
+;� all closed
+;� up top
+;� down bottom
+;� left wall
+;� right wall
+;� middle square
+;� middle dot
diff --git a/xtrn/lord2/cnw/battlexh.ref b/xtrn/lord2/cnw/battlexh.ref
new file mode 100644
index 0000000000000000000000000000000000000000..009b963f8b1bbe5bae69a430b926f725a1bd7265
--- /dev/null
+++ b/xtrn/lord2/cnw/battlexh.ref
@@ -0,0 +1,1297 @@
+; Script file BATTLEXH.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:39 2001
+
+@DECLARE done 000000593
+@DECLARE gone 000000604
+@DECLARE sorry 000000635
+@DECLARE xhair 000000708
+@DECLARE aim 000001904
+@DECLARE power 000004026
+@DECLARE didihit 000005206
+@DECLARE miss1 000018761
+@DECLARE miss2 000018886
+@DECLARE miss3 000019093
+@DECLARE getaway 000019750
+@DECLARE assasin 000019807
+@DECLARE cyrus 000020951
+@NOCHECK
+; End of .REF index
+
+;Battlexh.ref Handles all crossbow hit detection and assination scores
+;All origonal Code by Codax of Dragon's Den Ultd.
+
+@#done
+
+@#gone
+@drawmap
+@update
+
+@#sorry
+@do saybar
+Sorry, you cannot do that
+@key
+@do goto power
+
+@#Xhair
+@Drawpart &Lastx &Lasty
+@update
+@if crossbow.&playernum exists false then do
+@begin
+@do saybar
+This would make a great place to try to assasinate someone!
+@run done
+@end
+
+@if crossbow.&playernum exists true then do
+@begin
+@clearblock 21 21
+@do move 3 21
+@do write
+`%Would you like to take a shot with your crossbow? `2[`0Y`2,`0N`2]
+@do readspecial `s01 NY
+@if `s01 is N then do
+@begin
+@if map is 644 then x - 1
+@if map is 648 then x - 1
+@if map is 646 then x - 1
+@drawmap
+@update
+@run done
+@end
+
+@if `s01 is Y then do
+@begin
+@clearblock 21 23
+@if `p90 < 1 then do
+@begin
+@do saybar
+You don't have any arrows
+@run done
+@end
+@if `p90 > 0 then do
+@begin
+@do move 3 21
+@do write
+`r0`4OOOOO
+@do `p20 is x ;xchord
+@do `p20 + 5 ;x chord
+@do `p21 is y ;y chord
+@do `p21 + 2 ;y chord
+@do `p22 is 0 ;power
+@if map is 644 then `p23 is 2
+@if map is 564 then `p23 is 7
+@if map is 484 then `p23 is 7
+
+@if map is 646 then `p23 is 2
+@if map is 566 then `p23 is 7
+@if map is 486 then `p23 is 7
+
+@if map is 648 then `p23 is 2
+@if map is 568 then `p23 is 7
+@if map is 488 then `p23 is 7
+
+@do `p25 is `p20
+@do `p26 is `p21
+@do `p25 + 1
+@label aim
+@do move `p20 `p21
+@do write
+`r`p23`4*`r4
+@do move 3 23
+;8=up 6=right 4=left 2=down s=shoot +=powerup q=quit
+@do readspecial `s01 qr8642+s?
+
+@if `s01 is ? then do
+@begin
+@show
+`%`r0`c `r1 How do you use this thingy? `r0`0
+
+ Chapter 1: Aiming your Crossbow`2
+
+ To aim the cross-bow use the number-pad on the right of the handle
+ The number 8 means = up, 2 = down, 4 = left, 6 = right.
+`k`0
+
+ Chapter 2: Fine Tuning your shot`2
+
+ To fine tune your shot you can press "R" which is (If you are in
+ home row configuration) is just above your middle left-hand finger
+`k`0
+
+ Chapter 3: Adding Tension to your crossbow`2
+
+ As you know if you do not use the correct tension on your crossbow
+ it will not fire at all and will make alot of noise. Therefor you must
+ make sure your power meter is full before attemting a shot. Your power
+ meter is located at the bottom of the hilt and looks like this:
+
+ `4OOOOO `00 out of 5 strength
+ `$0`4OOOO `01 out of 5 strength
+ `$00`4OOO `02 out of 5 strength
+ `$000`4OO `03 out of 5 strength
+ `$0000`4O `04 out of 5 strength
+ `$00000 `0Full power!
+`2
+ To add power all you have too do look to the afore metioned num-pad and
+ press the "+" key`0
+`k
+
+ Chapter 4: Shooting your crossbow`2
+
+ To shoot an arrow at the target(`r`p23``p24*`r0`2) just press the
+ "S" key which is located near your left hand under your 2nd finger from
+ the pinky(home row positon)`0
+`k
+
+ Chapter 5: Chickening out`2
+
+ If you don't have the guts to shoot or have changed your mind about
+ killing then use the "Q" key, which is right above your left pinky, to
+ holster your crossbow.
+`k
+`0 Happy Hunting!
+`k
+@drawmap
+@update
+@do goto power
+@end
+
+
+
+@if `s01 is R then do
+@begin
+@drawmap
+@update
+@do goto power
+@end
+
+@if `s01 is Q then do
+@begin
+@do saybar
+You guess you will have to shoot later
+@key
+@run gone
+@end
+
+@if `s01 is + then do
+@begin
+@if `p25 > 80 then `p25 is 1
+@drawpart `p25 `p21
+@do `p22 + 1
+@if `p22 > 5 then `p22 is 5
+@label power
+@clearblock 21 21
+@do move 3 21
+@if `p22 is 0 then `s02 is `r0`4OOOOO
+@if `p22 is 1 then `s02 is `r0`$0`4OOOO
+@if `p22 is 2 then `s02 is `r0`$00`4OOO
+@if `p22 is 3 then `s02 is `r0`$000`4OO
+@if `p22 is 4 then `s02 is `r0`$0000`4O
+@if `p22 is 5 then `s02 is `r0`$00000`4
+@do write
+`s02
+@do goto aim
+@end
+
+@if `s01 is S then do
+@begin
+@do goto didihit
+@end
+
+@if `s01 is 4 then do
+@begin
+@if `p25 > 80 then `p25 is 1
+@drawpart `p20 `p21
+@do `p20 - 1
+@if `p20 < 1 then do
+@begin
+@do `p20 is 1
+@run sorry
+@end
+@if `p20 > 0 then do
+@begin
+@do goto aim
+@end
+@end
+
+@if `s01 is 2 then do
+@begin
+@drawpart `p20 `p21
+@do `p21 + 1
+@if `p21 > 20 then do
+@begin
+@do `p21 is 20
+@run sorry
+@end
+@if `p21 < 21 then do
+@begin
+@do goto aim
+@end
+@end
+
+@if `s01 is 8 then do
+@begin
+@drawpart `p20 `p21
+@do `p21 - 1
+@if `p21 < 1 then do
+@begin
+@do `p21 is 1
+@run sorry
+@end
+@if `p21 > 0 then do
+@begin
+@do goto aim
+@end
+@end
+
+@if `s01 is 6 then do
+@begin
+@drawpart `p20 `p21
+@do `p20 + 1
+@if `p20 > 80 then do
+@begin
+@do `p20 is 80
+@run sorry
+@end
+@if `p20 < 81 then do
+@begin
+@do goto aim
+@end
+@end
+
+@label didihit
+@if `p22 < 5 then do
+@begin
+@do saybar
+You didn't have enough tension on the crossbow!!!
+@key
+@if `p20 is x then `p29 is 1
+@if `p21 is y then `p29 + 1
+@if `p29 is 2 then do
+@begin
+@do `p29 is 30
+@if `p22 less 1 then `p22 is 1
+@do `p29 * `p22
+@do `p02 - `p29
+@if `p02 < 1 then do
+@begin
+@do enemy is a`xshot`xin`xthe`xfoot
+@run die in gametxt.ref
+@end
+@if `p02 > 0 then do
+@begin
+@do saybar
+You shoot yourself in the foot and loose `p29 hitpoints...lucky no one saw!
+@End
+@end
+@run done
+@end
+
+@if `p22 = 5 then do
+@begin
+@if `p20 > x then `s03 is \
+@if `p20 < x then `s03 is /
+@drawpart `p20 `p21
+@do move `p20 `p21
+@do write
+`r`p23`$`s03
+@if `p20 is x then `p29 is 1
+@if `p21 is y then `p29 + 1
+@if `p29 is 2 then do
+@begin
+@do `p29 is 30
+@if `p22 less 1 then `p22 is 1
+@do `p29 * `p22
+@do `p02 - `p29
+@if `p02 < 1 then do
+@begin
+@do enemy is a`xshot`xin`xthe`xfoot
+@run die in gametxt.ref
+@end
+@if `p02 > 0 then do
+@begin
+@do saybar
+You shoot yourself in the foot and loose `p29 hitpoints...lucky no one saw!
+@End
+@end
+
+@if map is 644 then do
+@begin
+@if `p20 is 20 then do
+@begin
+@if `p21 is 14 then do
+@begin
+@if bitcheck `t20 0 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t02 0 0 then do
+@begin
+@do saybar
+HIT!!!! You hit the spy! Nice Shot!
+@key
+@bitset `t20 0 1
+@do `p90 + 1
+@do goto xhair
+@end
+@end
+@end
+@if `p20 is 34 then do
+@begin
+@if `p21 is 13 then do
+@begin
+@if bitcheck `t20 3 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t20 3 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a girl! Nice Shot!
+@key
+@bitset `t20 3 1
+@do goto xhair
+@end
+@end
+@end
+@if `p20 is 26 then do
+@begin
+@if `p21 is 8 then do
+@begin
+@if bitcheck `t20 1 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t20 1 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a wierd guy! Nice Shot!
+@key
+@bitset `t20 1 1
+@do goto xhair
+@end
+@end
+@end
+@if `p20 is 53 then do
+@begin
+@if `p21 is 17 then do
+@begin
+@if bitcheck `t20 2 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t20 2 0 then do
+@begin
+@do saybar
+HIT!!!! You hit someone! Nice Shot!
+@key
+@bitset `t20 2 1
+@do goto xhair
+@end
+@end
+@end
+@if `p20 is 33 then do
+@begin
+@if `p21 is 2 then do
+@begin
+@do saybar
+You hit a guard in the leg but he doesn't even notice!
+@key
+@do goto xhair
+@end
+@end
+@run miss1
+@end
+;---end of kills on block 644---
+@end
+
+@if map is 564 then do
+@begin
+@if `p20 is 11 then do
+@begin
+@if `p21 is 15 then do
+@begin
+@do saybar
+You hit a guard in his leg, but he doesn't notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 17 then do
+@begin
+@if `p21 is 12 then do
+@begin
+@do saybar
+You hit a guard in his leg, but he doesn't notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 13 then do
+@begin
+@if `p21 is 6 then do
+@begin
+@do saybar
+You hit a guard in his leg, but he doesn't notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 18 then do
+@begin
+@if `p21 is 4 then do
+@begin
+@do saybar
+You hit a guard in his leg, but he doesn't notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 51 then do
+@begin
+@if `p21 is 7 then do
+@begin
+@do saybar
+You hit a guard in his leg, but he doesn't notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 55 then do
+@begin
+@if `p21 is 8 then do
+@begin
+@do saybar
+You hit a guard in his leg, but he doesn't notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 52 then do
+@begin
+@if `p21 is 14 then do
+@begin
+@do saybar
+You hit a guard in his leg, but he doesn't notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 53 then do
+@begin
+@if `p21 is 18 then do
+@begin
+@do saybar
+You hit a guard in his leg, but he doesn't notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 23 then do
+@begin
+@if `p21 is 15 then do
+@begin
+@if bitcheck `t20 4 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t20 4 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a spy! Nice Shot!
+@key
+@bitset `t20 4 1
+@do `p90 + 1
+@do goto xhair
+@end
+@end
+@end
+@if `p20 is 64 then do
+@begin
+@if `p21 is 18 then do
+@begin
+@do saybar
+Your arrow hits the wall of the Tavern!
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 79 then do
+@begin
+@if `p21 is 18 then do
+@begin
+@do saybar
+Your arrow hits the wall of the Tavern!
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 77 then do
+@begin
+@if `p21 is 16 then do
+@begin
+@do saybar
+Your arrow hits the wall of the Tavern!
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 64 then do
+@begin
+@if `p21 is 3 then do
+@begin
+@do saybar
+The Dark healer sees the arrow coming and dodges easily!
+@key
+@do goto xhair
+@end
+@end
+@end
+@end
+;----------
+@if map is 484 then do
+@begin
+@if `p20 is 31 then do
+@begin
+@if `p21 is 20 then do
+@begin
+@do saybar
+That person on the balcony has a crossbow!! Get s&him
+@key
+@run miss2
+@end
+@end
+@if `p20 is 45 then do
+@begin
+@if `p21 is 20 then do
+@begin
+@do saybar
+That person up there has a crossbow! Get s&him!
+@key
+@run miss2
+@end
+@end
+@if `p20 is 64 then do
+@begin
+@if `p21 is 13 then do
+@begin
+@do saybar
+That person on the balcony has a crossbow!! Get s&him
+@key
+@run miss2
+@end
+@end
+@if `p20 is 37 then do
+@begin
+@if `p21 is 2 then do
+@begin
+@if bitcheck `t20 7 1 then do
+@begin
+@run miss2
+@end
+@if bitcheck `t20 7 0 then do
+@begin
+@writefile lognow.txt
+
+ `0`n`2 HAS KILLED KING `0POWER`2! GOOD DRAGONS EVERYWHERE
+ BEGIN A NIGHT OF PARTYING AND CELEBARTION!
+@
+@do saybar
+HIT!!!! You have killed POWER! A ROYAL IS DEAD!
+@key
+@bitset `t20 7 1
+@do `p84 + 1
+@do goto xhair
+@end
+@end
+@end
+@run miss2
+@end
+;---------
+@if map is 646 then do
+@begin
+@if `p20 is 32 then do
+@begin
+@if `p21 is 2 then do
+@begin
+@do saybar
+HIT!!!! You hit a guard in the leg but he doesn't even notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 45 then do
+@begin
+@if `p21 is 2 then do
+@begin
+@do saybar
+HIT!!!! You hit a guard in the leg but he doesn't even notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 21 then do
+@begin
+@if `p21 is 8 then do
+@begin
+@if bitcheck `t22 0 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t22 0 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a protester! Nice Shot!
+@key
+@bitset `t22 0 1
+@do goto xhair
+@end
+@end
+@end
+
+@if `p20 is 43 then do
+@begin
+@if `p21 is 12 then do
+@begin
+@if bitcheck `t22 1 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t22 1 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a spy! Nice Shot!
+@key
+@bitset `t22 1 1
+@do `p89 + 1
+@do goto xhair
+@end
+@end
+@end
+
+@if `p20 is 11 then do
+@begin
+@if `p21 is 13 then do
+@begin
+@if bitcheck `t22 2 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t22 1 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a non-conformist ! Nice Shot!
+@key
+@bitset `t22 2 1
+@do goto xhair
+@end
+@end
+@end
+
+@if `p20 is 34 then do
+@begin
+@if `p21 is 16 then do
+@begin
+@if bitcheck `t22 3 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t22 3 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a Blue Dragon! Nice Shot!
+@key
+@bitset `t22 3 1
+@do goto xhair
+@end
+@end
+@end
+
+@if `p20 is 38 then do
+@begin
+@if `p21 is 10 then do
+@begin
+@if bitcheck `t22 4 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t22 4 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a White Dragon! Nice Shot!
+@key
+@bitset `t22 4 1
+@do goto xhair
+@end
+@end
+@end
+@run miss1
+@end
+;--end map 646(codyard)
+
+@if map is 566 then do
+@begin
+
+@if `p20 is 12 then do
+@begin
+@if `p21 is 10 then do
+@begin
+@if bitcheck `t22 5 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t22 5 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a spy! Nice Shot!
+@key
+@bitset `t22 5 1
+@do `p89 + 1
+@do goto xhair
+@end
+@end
+@end
+
+@if `p20 is 76 then do
+@begin
+@if `p21 is 5 then do
+@begin
+@if bitcheck `t22 6 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t22 6 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a spy! Nice Shot!
+@key
+@bitset `t22 6 1
+@do `p89 + 1
+@do goto xhair
+@end
+@end
+@end
+@if `p20 is 64 then do
+@begin
+@if `p21 is 18 then do
+@begin
+@do saybar
+Your arrow hits the wall of the Tavern!
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 79 then do
+@begin
+@if `p21 is 18 then do
+@begin
+@do saybar
+Your arrow hits the wall of the Tavern!
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 77 then do
+@begin
+@if `p21 is 16 then do
+@begin
+@do saybar
+Your arrow hits the wall of the Tavern!
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 46 then do
+@begin
+@if `p21 is 14 then do
+@begin
+@do saybar
+HIT!!!! You hit a guard in the leg but he doesn't even notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 22 then do
+@begin
+@if `p21 is 9 then do
+@begin
+@do saybar
+HIT!!!! You hit a guard in the leg but he doesn't even notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 15 then do
+@begin
+@if `p21 is 15 then do
+@begin
+@do saybar
+HIT!!!! You hit a guard in the leg but he doesn't even notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 26 then do
+@begin
+@if `p21 is 14 then do
+@begin
+@do saybar
+HIT!!!! You hit a guard in the leg but he doesn't even notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 32 then do
+@begin
+@if `p21 is 19 then do
+@begin
+@do saybar
+HIT!!!! You hit a guard in the leg but he doesn't even notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 45 then do
+@begin
+@if `p21 is 19 then do
+@begin
+@do saybar
+HIT!!!! You hit a guard in the leg but he doesn't even notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 55 then do
+@begin
+@if `p21 is 14 then do
+@begin
+@do saybar
+HIT!!!! You hit a guard in the leg but he doesn't even notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 53 then do
+@begin
+@if `p21 is 8 then do
+@begin
+@do saybar
+HIT!!!! You hit a guard in the leg but he doesn't even notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 46 then do
+@begin
+@if `p21 is 1 then do
+@begin
+@do saybar
+HIT!!!! You hit a guard in the leg but he doesn't even notice
+@key
+@do goto xhair
+@end
+@end
+@if `p20 is 31 then do
+@begin
+@if `p21 is 1 then do
+@begin
+@do saybar
+HIT!!!! You hit a guard in the leg but he doesn't even notice
+@key
+@do goto xhair
+@end
+@end
+@run miss1
+@end
+;----end cod hall
+@if map is 486 then do
+@begin
+@if `p20 is 37 then do
+@begin
+@if `p21 is 2 then do
+@begin
+@if bitcheck `t22 7 1 then do
+@begin
+@run miss2
+@end
+@if bitcheck `t22 7 0 then do
+@begin
+@writefile lognow.txt
+
+ `0`n`2 HAS KILLED `0KING CODAX`2! GOOD DRAGONS EVERYWHERE
+ WONDER WHAT WILL BECOME OF THEM!
+@do saybar
+HIT!!!! You have killed CODAX! A ROYAL IS DEAD!
+@key
+@bitset `t22 7 1
+@do `p84 + 1
+@run xhair
+@end
+@end
+@end
+
+@if `p20 is 31 then do
+@begin
+@if `p21 is 20 then do
+@begin
+@do saybar
+Get that person up there! S&he has a Crossbow!
+@key
+@do goto miss2
+@end
+@end
+
+@if `p20 is 45 then do
+@begin
+@if `p21 is 20 then do
+@begin
+@do saybar
+Get that person on the balcony, s&he has a Crossbow!
+@key
+@do goto miss2
+@end
+@end
+@do goto miss2
+@end
+;--endcodthroneroom
+@if map is 568 then do
+@begin
+@if `p20 is 77 then do
+@begin
+@if `p21 is 16 then do
+@begin
+@if bitcheck `t23 0 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t23 0 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a innocent human! Nice Shot!
+@key
+@bitset `t23 0 1
+@do goto xhair
+@end
+@end
+@end
+@if `p20 is 60 then do
+@begin
+@if `p21 is 9 then do
+@begin
+@if bitcheck `t23 1 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t23 1 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a spy! Nice Shot!
+@key
+@bitset `t23 1 1
+@do `p90 + 1
+@do goto xhair
+@end
+@end
+@end
+@if `p20 is 18 then do
+@begin
+@if `p21 is 9 then do
+@begin
+@if bitcheck `t23 2 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t23 2 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a Phoenix! Nice Shot!
+@key
+@bitset `t23 2 1
+@do goto xhair
+@end
+@end
+@end
+@if `p20 is 20 then do
+@begin
+@if `p21 is 12 then do
+@begin
+@if bitcheck `t23 3 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t23 3 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a Phoenix! Nice Shot!
+@key
+@bitset `t23 3 1
+@do goto xhair
+@end
+@end
+@end
+@if `p20 is 17 then do
+@begin
+@if `p21 is 16 then do
+@begin
+@if bitcheck `t23 4 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t23 4 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a Phoenix! Nice Shot!
+@key
+@bitset `t23 4 1
+@do goto xhair
+@end
+@end
+@end
+@if `p20 is 64 then do
+@begin
+@if `p21 is 18 then do
+@begin
+@if bitcheck `t23 5 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t23 5 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a spy! Nice Shot!
+@key
+@bitset `t23 5 1
+@do `p90 + 1
+@do goto xhair
+@end
+@end
+@end
+@do goto miss1
+@end
+;-endsharroom2
+@if map is 488 then do
+@begin
+@if `p20 is 56 then do
+@begin
+@if `p21 is 13 then do
+@begin
+@do saybar
+HIT!!!! You hit Cyrus! You are in trouble now!
+@key
+@run cyrus
+@end
+@end
+@if `p20 is 37 then do
+@begin
+@if `p21 is 2 then do
+@begin
+@if bitcheck `t23 7 1 then do
+@begin
+@run miss2
+@end
+@if bitcheck `t23 7 0 then do
+@begin
+@writefile lognow.txt
+
+ THE GREAT `0SHARA`2 WAS ASSASINATED TODAY! HER TYRANY HAS ENDED
+ FOR ANOTHER `0100`2 YEARS!! HER KILLER IS BELIEVED TO BE
+ `0`N
+@do saybar
+HIT!!!! You hit a SHARA! You killed a ROYAL!
+@key
+@bitset `t23 7 1
+@do `p84 + 1
+@do goto xhair
+@end
+@end
+@end
+@do goto miss2
+@end
+;---------------if Xhairs not = position-------
+@#miss1
+@do saybar
+You miss and your arrow hits the ground!
+@key
+@do saybar
+Lucky no one saw you!
+@key
+@run xhair
+
+@#miss2
+@do `p28 random 70 1
+@if `p28 is 1 then do
+@begin
+@run getaway
+@end
+@if `p28 not 1 then do
+@begin
+@do saybar
+Guards rush at you from all directions!!!!
+@run gotya in battlefx.ref
+@end
+
+@#miss3
+@do saybar
+This person is already dead!!!!
+@key
+@clearblock 22 24
+@run xhair
+
+;-this is the format for hit detection!
+@if map is ;block; then do
+@begin
+
+@if `p20 is ;x; then do
+@begin
+@if `p21 is ;;y then do
+@begin
+@if bitcheck `t;; ; 1 then do
+@begin
+@run miss3
+@end
+@if bitcheck `t;; ; 0 then do
+@begin
+@do saybar
+HIT!!!! You hit a ;; ! Nice Shot!
+@key
+@bitset `t;; ; 1
+@do `p;; + 1
+@do goto xhair
+@end
+@end
+@end
+;-used for guards
+@if `p20 is ;x; then do
+@begin
+@if `p21 is ;y; then do
+@begin
+@do saybar
+HIT!!!! You hit a guard in the leg but he doesn't even notice
+@key
+@do goto xhair
+@end
+@end
+
+@#getaway
+@do saybar
+Lucky no one heard that shot!
+
+@#assasin
+@if map is 488 then `p29 is 3
+@if map is 486 then `p29 is 2
+@if map is 484 then `p29 is 1
+
+@if `p29 is 3 then `s03 is Shara
+@if `p29 is 2 then `s03 is Codax
+@if `p29 is 1 then `s03 is Power
+
+@if `p29 is 3 then `s02 is she
+@if `p29 not 3 then `s02 is he
+@do `p28 random 3 1
+@routine gone
+@do saybar
+`s03: We must wait for an omen!
+@do move 3 22
+@do write
+`l`l`l`l`l`l`l
+@if `p28 not 1 then do
+@begin
+@do saybar
+`s03: Sorry you just aren't Assasin material, `n
+@run done
+@end
+
+@if `p28 is 1 then do
+@begin
+@do saybar
+`s03: LOOK!!!!!!
+@key
+@do `s01 is `4O`2M`0E`!N`w
+@do `p20 is 1
+@do `p21 is 10
+@do `p22 is 76
+@do `s02 is
+@do `p23 is 7
+@do `p24 is 2
+@routine movergt in battlefx.ref
+@do `p20 is 1
+@do `p21 is 10
+@do `p22 is 80
+@routine drawh in battlefx.ref
+@do saybar
+I guess we have our omen! You are now my assasin! Retire all spys here!
+@key
+@writefile lognow.txt
+
+ `0`N`2 got an omen from `0`s03`2 and became an assasin today!
+ Looks like the fighting just got dirty
+@
+@if `p29 is 1 then `p81 is 1
+@if `p29 is 2 then `p81 is 3
+@if `p29 is 3 then `p81 is 2
+
+@end
+
+@#cyrus
+@Do move 56 13
+@do write
+`r7`1
+@do enemy is Cyrus
+@do `p20 is 55
+@do `p21 is 13
+@do `s01 is `!�
+@do `s02 is
+@do `p22 is 7
+@do `p23 is 7
+@do `p24 is 0
+@routine movelft in battlefx.ref
+@do `p20 is 7
+@do `p22 is 2
+@do `s01 is `%`!�
+@routine movelft in battlefx.ref
+@do `p20 is 2
+@do `p22 is 55
+@routine movergt2 in battlefx.ref
+@Do move 56 13
+@do write
+`r7`1
+@do x is `p22
+@do y is `p21
+@update
+@do saybar
+Cyrus: I hope you are happy!!! Now we both die!!!
+@key
+@Do move 56 13
+@do write
+`r4`1
+@Do move 55 13
+@do write
+`r4`%
+@Do move 55 13
+@do write
+`r7`$<>`w`w`w
+@do move 54 13
+@do write
+`r7`$< >`w`w`w
+@do move 53 13
+@do write
+`r7`$< >`w`w`w
+@do move 53 13
+@do write
+`r7
+@run die in gametxt.ref
+
+
+;-------------------high ascii---------------------------
+; open face
+; full face
+; snow flake
+;� partial open
+;� middle open
+;� mostly closed
+;� all closed
+;� up top
+;� down bottom
+;� left wall
+;� right wall
+;� middle square
+;� middle dot
diff --git a/xtrn/lord2/cnw/begger.ref b/xtrn/lord2/cnw/begger.ref
new file mode 100644
index 0000000000000000000000000000000000000000..2d7028c99c32be5dec7be04b27f388a067ed2024
--- /dev/null
+++ b/xtrn/lord2/cnw/begger.ref
@@ -0,0 +1,133 @@
+; Script file BEGGER.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:35 2001
+
+@DECLARE sign 000000501
+@DECLARE donate 000000593
+@DECLARE gold 000002225
+@DECLARE alin 000002488
+@DECLARE charm 000002613
+@DECLARE nocash 000002735
+@DECLARE alldone 000002872
+@NOCHECK
+; End of .REF index
+
+; The Begger IGM created by Craig Goldsmith
+; to Install run Instbeg.bat
+
+;
+;
+; CNW added = needs to give according to players level.
+; 10$ * level
+;
+; Added begger as NPC#106
+;
+@#sign
+ @do saybar
+`2Sign reads:`0 Money for the Poor.
+ @do moveback
+@CLOSESCRIPT
+
+@#donate
+@datanewday begg.idf
+
+; the above command will reset all #'s in BEGG.IDF to 0 *IF* a new day has
+; occured since the last time this command was called.
+
+@do `p70 is 106
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+
+
+@dataload begg.idf &playernum `p20
+
+; the above command is important - this is how you retrieve ALL data.
+; &playernum is the current players # in the trader.dat file, and `p20 is
+; a scratch var that we want to put the return result in.
+
+;
+;figure out how much
+
+@do `p21 is 10
+@do `p21 * `p09
+
+ @if `p20 is 1 then goto alldone
+ @busy
+ @clearblock 21 21
+ @do move 3 21
+ @if money < `p21 then goto nocash
+ @do write
+`r0 `2An old begger sits, waiting for money. Do you feel generous? (`0y`2/`0n`2)
+ @do readspecial `s01 YN
+ @if `s01 is N then do
+ @begin
+ @clearblock 21 21
+ @do move 3 21
+ @do write
+`0`2 you decide to keep your money`L`L`$ Greedy S&boy`L`L`L
+ @do statbar
+ @closescript
+ @end
+ @clearblock 21 21
+ @do move 3 21
+ @do write
+`r0 `2You toss `$$`p21 `2gold into the tin... `L`Lclink!`L`L clink!`L`L clink!`L`L
+ @do money - `p21
+ @datasave begg.idf &playernum 1
+ @dataload npc/npcgold.idf `p70 `p29
+ @do `p29 + `p21
+ @datasave npc/npcgold.idf `p70 `p29
+ @clearblock 21 21
+ @do move 3 21
+ @do saybar
+`0 `2Bless you my dear child may the gods be with you...`L`L`L`L`L
+ @do `p20 random 4 1
+ @if `p20 is 1 then goto gold
+ @if `p20 is 2 then goto alin
+ @if `p20 is 3 then goto charm
+ @clearblock 21 21
+ @do quebar
+ `r0 `2 You feel contented! What a lovely day.`L`L`L`L`L
+@CLOSESCRIPT
+@end
+
+@#gold
+ @do `p20 random 5 1
+ @do `p20 * 7
+ @dataload npc/npcgold.idf `p70 `p29
+ @if `p29 < `p20 then `p20 is `p29
+ @do `p29 - `p20
+ @datasave npc/npcgold.idf `p70 `p29
+ @do money + `p20
+ @do write
+`0 `2You gain `$`p20 `2gold!`L`L`L`L`L
+@CLOSESCRIPT
+
+@#alin
+ @do `p20 random 3 1
+ @do `p07 + `p20
+ @do write
+`0 `2You gain `$`p20 `2Alignment!`2`L`L`L`L`L
+@CLOSESCRIPT
+
+@#charm
+ @do `p20 random 3 1
+ @do `p08 + `p20
+ @do write
+`0 `2You gain `$`p20 `2Charm!`2`L`L`L`L`L
+@CLOSESCRIPT
+
+@#nocash
+ @clearblock 21 21
+ @do write
+`0 `2You dont have enough gold poor old begger!`L`L`L`L
+ @do statbar
+@CLOSESCRIPT
+
+@#alldone
+ @clearblock 21 21
+ @do write
+ `2 You have already donated enough.`L`W God Bless!`L`L`L
+ @do statbar
+@CLOSESCRIPT
+
diff --git a/xtrn/lord2/cnw/blackbar.ref b/xtrn/lord2/cnw/blackbar.ref
new file mode 100644
index 0000000000000000000000000000000000000000..977d4d89df5fd1bc7f804aaaf48b768f0fde584e
--- /dev/null
+++ b/xtrn/lord2/cnw/blackbar.ref
@@ -0,0 +1,399 @@
+; Script file BLACKBAR.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:24 2001
+
+@DECLARE blackbar 000000888
+@DECLARE whisky 000000960
+@DECLARE barchat 000004520
+@DECLARE notestop 000004552
+@DECLARE dabottom 000005567
+@DECLARE welcome 000005840
+@DECLARE couch 000005997
+@DECLARE couch1 000006164
+@DECLARE innsign 000006317
+@DECLARE baseinfo 000006489
+@DECLARE nightstand 000006656
+@DECLARE rock 000006829
+@DECLARE miles 000006988
+@DECLARE treehelp 000007139
+@DECLARE treasure 000007344
+@DECLARE canman 000007662
+@DECLARE jon 000008010
+@DECLARE jon1 000008037
+@DECLARE done 000009431
+@DECLARE jonfight 000009540
+@DECLARE rockpath 000010243
+@DECLARE nomore 000010402
+@NOCHECK
+; End of .REF index
+
+ ;ref file for the Black Death's Tavern 1.00- Lord2 IGM by Jim
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#blackbar
+;Bartender of Black Death's Tavern
+@BUSY
+@DO MOVEBACK
+@label whisky
+@do `v01 is 1
+@show
+`r0`c `r1 Bartender at the Tavern `r0
+
+ `0"Hey `n, `0what brings you 'round these parts? What can I get for ya
+ pal?" `2You think a second... A drink, a smoke, or maybe some info on
+ this place?
+
+@do write
+`x`x
+@choice
+>&money 4 Get a drink (`$$5`%)
+Ask for a smoke
+Ask about this place
+Ask for the lowdown on local bounty's
+Leave
+@if response is 1 then do
+ @begin
+ @do money - 5
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 2
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"I'll take a shot of whisky ma' good man", you say as he grabs a
+ bottle.`2It's not to shabby for a joint like this, you feel a bit
+ better. `$(Your Refreshed!)
+`\`k
+ @do `p96 + 15
+ @do goto whisky
+ @end
+@if response is 2 then do
+@begin
+ @show
+`c`\`\ `0"OK, here you go`l.`l.`l.`l.`l.`l. Wait, `4Where's your ID??`0"`l`l`l
+ `2You franticaly search yourself`l.`l.`l. But it seems your show
+ has not impressed `4Bla`@ck De`4ath. `l`l`c
+
+ `0"I see your without proof of your age" `2says the bartender
+ calmly, `0"Well, I tell you what, you come back when your 19,
+ and I'll gladly sell you some smokes" `l`l`l`l
+
+ "In the mean time, how about a drink??" `2laughs the bartender.
+`\`k
+ @do goto whisky
+ @end
+@if response is 3 then do
+ @begin
+ @do `p20 random 6 1
+ @if `p20 is 1 then do
+ @begin
+ @show
+`\`\ `0"This place was originally stolen... Uh, I mean founded by my great
+ grandfather back when there was a real need for hard liquor.
+ There are still many people who visit here daily.... <g>
+`\`k
+ @do goto whisky
+ @end
+
+ @if `p20 is 2 then do
+ @begin
+ @show
+`\`\ `0"Be cautious of a guy who sneaks into my basement. He likes to go
+ there and smoke and curse. I can't get rid of him! He's kind of a bother
+ but, I could really care less.... Just `4don't `0pick a fight with him!
+`\`k
+ @do goto whisky
+ @end
+
+ @if `p20 is 3 then do
+ @begin
+ @show
+`\`\ `0Have you seen my `1Amulet`0? I think I lost it in that Stonepass Inn...
+ It has a engraving on it that says - "To whom soever this belongs,
+ Shall they pass the snowy mountains unharmed..." If you see it,
+ please bring it back, it's very important....
+`\`k
+ @do goto whisky
+ @end
+
+ @if `p20 is 4 then do
+ @begin
+ @show
+`\`\ `0I decided to let people sleep in the beds upstairs for free now...
+ Sometime in the future I may charge, but not now, so enjoy!
+ - Remember, you cannot be attacked when your staying upstairs -
+`\`k
+ @do goto whisky
+ @end
+
+@if `p20 is 5 then do
+ @begin
+ @show
+`\`\ `0"Don't forget to check out "Fortress of Death" IGM -
+ set to be relased sometime soon! Check out my website for more info as
+ I progress: `1http://www.geocities.com/TimesSquare/Realm/2366`0
+`\`k
+ @do goto whisky
+ @end
+
+@if `p20 is 6 then do
+ @begin
+ @show
+`\`\ `0Just after the tavern was built, I went to put up a sign.
+ I put it near a weird `5Purple `0tree, with a hole in the trunk.
+ I've heard stories of warriors who ventured into the hole and
+ never came back! If you choose to explore it, be careful!
+`\`k
+ @do goto whisky
+ @end
+
+ @end
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `0"Come a bit closer to the bar...."`2
+ I'll let you in on what I know..
+`\`k
+ @routine BOUNTYLIST in BOUNTY.REF
+ @do goto whisky
+ @end
+@drawmap
+@update
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#barchat
+@do moveback
+ @label notestop
+ @show
+`r0`c `%At the Bar with your dagger....
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-`\
+`2 You find a nice spot on the bar to scratch a note
+`2 to the next warrior who shows up here...
+
+@do write
+`x`x`x
+ @do `v01 is 1
+ @choice
+See what the last guy wrote
+Leave your own comment
+Wuss out and don't do anything
+@if responce is 1 then do begin
+ @begin
+@readfile barnote.txt
+`s04
+`s05
+ @show
+`\`\
+`2 You notice `s04 `2managed to scrawl the following...
+ `4-=[ `%`s05 `4]=-
+`\`k
+ @do goto notestop
+ @end
+
+@if responce is 2 then do begin
+ @begin
+ @do `s04 is
+ @do write
+`\`\`\ `2Well?:`x`x
+ @do readstring 40 `s04 `s04
+ @do `p20 is length `s04
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide that'll be ok.`\`\`k
+ @do goto dabottom
+ @end
+ @show
+`\`\
+`2 You leave your etchings for everyone to see....
+`\`\`k
+@if barnote.txt exists true then delete barnote.txt
+@writefile barnote.txt
+`n
+`s04
+ @label dabottom
+ @do goto notestop
+ @end
+
+@if responce is 3 then do begin
+ @begin
+ @show
+`\`\`\`2 Oh, that sounds real important......
+`\`\`k
+ @end
+
+
+ @drawmap
+ @update
+ @closescript
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#welcome
+@do moveback
+@do saybar
+`0Welcome to `4Bla`@ck De`4ath's `0Tavern!
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#couch
+@do saybar
+Ooohh, this is a comfy couch, like it's been sat on for years....
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#couch1
+@do saybar
+Ahhh!!! This darn couch has a spring sticking out!
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#InnSign
+@do saybar
+Free beds upstairs for weary travellers, and couches to crash on....
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#baseinfo
+@do saybar
+There seems to be torches emitting just enough light to see..
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#nightstand
+@do saybar
+You empty you pockets on the nightstand and rest peacfully on the bed....
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#rock
+@do saybar
+`0A `@VERY `0large rock seems to block the small door.....
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#miles
+@do saybar
+`4Bla`@ck De`4ath's `2Tavern `0===> `46 `0miles
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#treehelp
+@do saybar
+`0Looks like this path has been blocked for awile now.....
+@do quebar
+`%Maybe there's a way around?
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#treasure
+@do moveback
+@do saybar
+`0You find an old treasure chest.....`L
+@begin
+@do money * 2
+@do quebar
+`0Your find twice as many gold pieces as you had!!
+@closescript
+@end
+
+@do saybar
+`0Sorry dude, You got your gold already!
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#canman
+@do moveback
+@busy
+@show
+`r0`c `8C`7an`8M`7an
+
+
+ `0Hey kid! I just traded all my cans in for gold. Maybe I could use
+ something you don't need anymore?
+
+ `$Whatcha got there?
+
+@sellmanager
+
+@drawmap
+@update
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#jon
+@DO MOVEBACK
+@label jon1
+@do `v01 is 1
+@show
+`r0`c `r1 Tall dark figure, - havin' a smoke. `r0
+
+ `0"Hey `n, `0what the hell are you doing down here?
+ `2Hmmm... maybe he'll be nice enough to spare a smoke?
+
+@do write
+`x`x
+@choice
+Ask for a smoke (`$$1`%)
+Ask about the weird glowing circles
+Tell him where to shove it.
+Leave
+@if response is 1 then do
+ @begin
+ @do money - 1
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 is `p03
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"Hook me up man!" `2you say as you pay him.
+ Wow it's "`7du`8M`7aurier`2"! Your lungs fill with sweet
+ smoke and you feel a bit better. (YOU ARE REFRESHED!)
+`\`k
+@do goto jon1
+@end
+
+@if response is 2 then do
+@begin
+ @show
+`\`\`0 "So what are all those strange circles over there?"`2, you ask...
+
+`2 `0"Well from what I can tell, they'll take you instantly
+ `0to a few different places around the area"
+
+`2 Top Circle `7: `0Greentree
+`2 Middle circle`7: `8Dark Forest
+`2 Bottom circle`7: `9Shrine at Babos
+
+`0 "Check it out, they're fun!"
+
+`k
+@do goto jon1
+@end
+
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"Hey Jon! Look over there," `2you say as you kick him over....`2
+
+ `$"Why you `4sonofabitch`$! Prepare to fight!!"
+`\`k
+@run jonfight in blackbar.ref
+ @end
+ @do goto done
+@if responce not 4 then goto jon1
+@label done
+@drawmap
+@update
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#jonfight
+@FIGHT
+;name
+Jon
+;string said when you see him
+No more screwin' around fool, prepare to fight!
+;power move kill string
+`4You suck `2No Chin! `@Give me all your smokes, `$Damn it!.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+burns you with cigarette|7
+kicks you in the nads|5
+screams profanitys|6
+blows smoke at you|2
+lets one rip|4
+;defense
+100
+;gold reward
+69
+;experience
+69
+;hit points
+120
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@drawmap
+@update
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#rockpath
+@do saybar
+`0Hey, there seems to be a path through these rocks!.....
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#NOMORE
diff --git a/xtrn/lord2/cnw/blackdgn.ref b/xtrn/lord2/cnw/blackdgn.ref
new file mode 100644
index 0000000000000000000000000000000000000000..4dae4282893284d9be40eafe03c238d08bfb6e44
--- /dev/null
+++ b/xtrn/lord2/cnw/blackdgn.ref
@@ -0,0 +1,514 @@
+; Script file BLACKDGN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:28 2001
+
+@DECLARE locksign 000000457
+@DECLARE bdcsign 000000527
+@DECLARE pensign 000000605
+@DECLARE mybank 000000665
+@DECLARE tower 000003408
+@DECLARE doorguard 000003517
+@DECLARE startg 000003546
+@DECLARE outsign 000007086
+@DECLARE enter 000007414
+@DECLARE done 000008573
+@DECLARE letmein 000010343
+@DECLARE done 000010420
+@NOCHECK
+; End of .REF index
+
+@#locksign
+@do saybar
+`2Sign reads: `0 Bob's Lockup
+@do moveback
+
+@#BDCSIGN
+@do saybar
+`2Sign reads: `0 Welcome to my Castle
+@do moveback
+
+@#pensign
+@do saybar
+ `2Cheap Slaves!
+@do moveback
+
+@#MYBANK
+;team treasury
+@do moveback
+@do `p20 is 0
+@if dragtres.dat exist true then do
+ @begin
+ @readfile dragtres.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile dragtres.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Your money is gone! Think about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete dragtres.dat
+ @writefile dragtres.dat
+`p20
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile blackdgn.dat
+`p20
+`s01
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Black Dragon Castle Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are Broke you mother!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+ Cheap Bastard!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile dragtres.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete dragtres.dat
+ @writefile dragtres.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile blackdgn.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Black Dragon Castle Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+
+@#TOWER
+;Tower in the castle
+@DO SAYBAR
+`2The tower on this castle is not ready yet.
+@do moveback
+
+@#doorguard
+@do moveback
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+@if blackdgn.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to vacate this keep!" `2the guard barks.
+ @closescript
+ @end
+
+@readfile blackdgn.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the door guard, nice of him to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Jerking off your servants `r0
+
+ `2The huge doorguard snaps his bra strap when he sees you are going to
+ address him.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+Its my home
+Leave
+@if responce is 3 then do
+ @begin
+ @do `p69 is 31
+ @show
+`\`$Black Dragon Castle is your new home.`\
+ @key
+ @do goto startg
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$50,000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your keep to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete blackdgn.dat
+ @writefile blackdgn.dat
+`p20
+`s01
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of Black Dragon Castle to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%Runion Keep`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Castle back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete blackdgn.dat
+ @do money + 50000
+ @show
+`\`\ `%CASTLE SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Black Dragon Castle`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete blackdgn.dat
+ @writefile blackdgn.dat
+&playernum
+`s01
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#outsign
+@do moveback
+
+ @if blackdgn.dat exist false then do
+ @begin
+ @do saybar
+`6Black Dragon Castle `0- For sale cheap, enquire inside.
+ @end
+
+@if blackdgn.dat exist true then do
+ @begin
+@readfile blackdgn.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2. So leave now!
+ @end
+
+@#enter
+@do moveback
+@offmap
+@if blackdgn.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2Black Dragon Castle was once a magnificient structure that housed many of
+ the royal families. Now it houses dust and decay. And tyre irons.
+
+ It is for sale, however. The asking price is `$$100,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 99999 Purchase it.
+<&money 100000 Sigh wistfully and leave since you don't have enough.
+>&money 99999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if blackdgn.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile blackdgn.dat
+&playernum
+NONE
+ @do money - 100000
+ @do addlog
+ `0`n `2buys `%Black Dragon Castle`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this keep!
+
+`k `0As a special bonus, Many beds and a door guard are included!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile blackdgn.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete blackdgn.dat
+ @do addlog
+ `%Black Dragon Castle`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+ `4Ouch!
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2the door guard asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%Black Dragon Castle`0,"`2 the guard smiles as he opens the gate.`\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `0Black Dragon Castle Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The guard doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein
+@do x is 42
+@do y is 19
+@do map is 30
+@loadmap 30
+@do goto done
+@#done
diff --git a/xtrn/lord2/cnw/bldn.ref b/xtrn/lord2/cnw/bldn.ref
new file mode 100644
index 0000000000000000000000000000000000000000..d95ed51ffec0f5319490e3aedb256cb8fd359d8f
--- /dev/null
+++ b/xtrn/lord2/cnw/bldn.ref
@@ -0,0 +1,198 @@
+; Script file BLDN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:34 2001
+
+@DECLARE stables 000000210
+@DECLARE stabletop 000000318
+@DECLARE trader 000003120
+@NOCHECK
+; End of .REF index
+
+@#STABLES
+;lets them warp to a few places
+;added by CNW: buy a horse here.
+@offmap
+@do moveback
+@label stabletop
+@do move 1 1
+@show
+`r0`c `r1 The Stables `r0
+
+ `0"Greetings, s&sir! We sell horses here, we no longer offer transport
+ `0services.
+
+@do `v01 is 1
+@do move 15 9
+@choice
+`#Why a horse? `%
+-`t79 1 `$Buy a horse `%
++`t79 1 `4Sell your horse`%
+`%Leave `%
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `0A horse you ask?`\
+ If your horse is healthy and well kept, you can get to your
+ destinations much quicker than by foot.
+
+ You MUST take good care of your horse if you want to keep it
+ around, or resell someplace else.
+
+ `7<To mount your horse, press "`%Z`7" from the map screen>
+ @key
+ @do goto stabletop
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ `0It costs `$$8,000 `0here for a healthy horse.
+`\ Do you still want to buy it?`\
+@choice
+`$Forget it
+>&money 7999 `$Yes
+@if responce is 2 then do
+ @begin
+ @do money - 8000
+ @do `t80 is 255
+ @bitset `t79 1 1
+ @show
+`\`0Ok, you now have a healthy horse. Have fun!`\`k
+ @end
+ @do goto stabletop
+ @end
+@if responce is 3 then do
+ @begin
+ @do `p21 is `v10
+ @do `p21 / 2
+ @do `p22 is `v11
+ @if `t80 > 50 then do
+ @begin
+ @do `p20 is 55
+ @end
+ @if `t80 > 75 then do
+ @begin
+ @do `p20 is 510
+ @end
+ @if `t80 > 100 then do
+ @begin
+ @do `p20 is 1100
+ @end
+ @if `t80 > 125 then do
+ @begin
+ @do `p20 is 2100
+ @end
+ @if `t80 > 150 then do
+ @begin
+ @do `p20 is 3100
+ @end
+ @if `t80 > 175 then do
+ @begin
+ @do `p20 is 4100
+ @end
+ @if `t80 > 200 then do
+ @begin
+ @do `p20 is 5100
+ @end
+ @if `t80 > 225 then do
+ @begin
+ @do `p20 is 7100
+ @end
+
+ @if `p22 < `p21 then do
+ @begin
+ @if `t80 > 200 then do
+ @begin
+ @do `p20 + 500
+ @end
+ @if `t80 > 100 then do
+ @begin
+ @do `p20 + 250
+ @end
+ @end
+ @if `p22 > `p21 then do
+ @begin
+ @if `t80 > 200 then do
+ @begin
+ @do `p20 + 600
+ @end
+ @if `t80 > 100 then do
+ @begin
+ @do `p20 + 290
+ @end
+ @end
+
+ @routine horsehp in vehicle.ref
+ @show
+`\`\ `0I will buy your `%`s02 `0horse for `$`p20.
+`\ Do you still want to sell it?`\
+@do `v01 is 1
+@choice
+`$Forget it
+`$Yes
+@if responce is 2 then do
+ @begin
+ @do money + `p20
+ @do `t80 is 0
+ @bitset `t79 1 0
+ @show
+`\`0Thanks! Come again.`\`k
+ @end
+ @do goto stabletop
+ @end
+@drawmap
+@update
+
+@#trader
+;let's you join in on the joys of slavetrading.
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Stables `r0
+
+ `0"Greetings, s&sir! we would like you to piss off now?"
+ `2a complete smeghead asks.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Trade in little girls
+trade in gems
+buy a potion
+leave
+@if response not 4 then do
+ @begin
+@show
+`\`\ `0"So you don't hate me" he shouts gayly.
+
+
+`k
+@if responce is 1 then do
+ @begin
+ ;the traders lockup
+ @do x is 19
+ @do y is 16
+ @do map is 31
+ @end
+
+@if responce is 2 then do
+ @begin
+ ;gemhouse
+ @do x is 58
+ @do y is 15
+ @do map is 31
+ @end
+
+@if responce is 3 then do
+ @begin
+ ;potionhouse
+ @do x is 32
+ @do y is 7
+ @do map is 31
+ @end
+
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
diff --git a/xtrn/lord2/cnw/blizzard.ref b/xtrn/lord2/cnw/blizzard.ref
new file mode 100644
index 0000000000000000000000000000000000000000..175636b1124f9ef9cad60d18a51631e1d827a4db
--- /dev/null
+++ b/xtrn/lord2/cnw/blizzard.ref
@@ -0,0 +1,134 @@
+; Script file BLIZZARD.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:24 2001
+
+@DECLARE buygog 000000267
+@DECLARE snowgog 000001197
+@DECLARE finished 000001508
+@DECLARE goggles 000001535
+@DECLARE goguse 000001680
+@NOCHECK
+; End of .REF index
+
+@#buygog
+@do moveback
+@offmap
+@do move 1 1
+@clear screen
+@do `p29 is &playernum
+@routine Snow`xGoggles in extitems.ref
+@routine bitcheck in item99.ref
+@show
+
+
+
+ `7A lonely man sits in the center of the room.
+
+
+
+`\`k
+@if `p20 is 0 then do
+ @begin
+ @show
+`\ `2"You'll be needing a pair of goggles to pass through the snow blizzard."
+
+ `2"I can sell you a new pair for `$$3000`2"
+
+ @do `v01 is 1
+ @do move 22 15
+ @choice
+No thanks
+>&money 2999 I'll take 'em
+ @if responce is 2 then do
+ @begin
+ @do money - 3000
+ @routine giveitem in item99.ref
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\ `2"I dont think I can help you any more good s&sir.
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+
+@#snowgog
+@do `p29 is &playernum
+@routine Snow`xGoggles in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 is 0 then do
+ @begin
+ @routine giveitem in item99.ref
+ @do saybar
+You just found some Snow Goggles!
+ @do goto finished
+ @end
+@do saybar
+You see a spot where something used to be.
+@label finished
+@closescript
+
+@#goggles
+@do `s06 is Snow`|Goggles
+@do `s07 is goguse
+@do `s08 is blizzard.ref
+@do `s09 is NIL
+@run install in install.ref
+@closescript
+
+@#goguse
+@clearblock 13 23
+@do move 1 14
+
+@if map is 1502 then do
+ @begin
+ @show
+`%
+`% (( ____________ ))
+`% \\ / \ //
+`% \( )/
+`% \ ____ /
+`% '--' '--'
+
+ `2You put on your snow goggles..
+
+@key bottom
+
+ `%Hey, you can see much better now!
+
+@key bottom
+
+@do map is 1504
+@loadmap 1504
+ @closescript
+ @end
+
+@if map is 1504 then do
+ @begin
+ @show
+ `2 You're WEARING them already!
+ `k `$
+ @run getname in item99.ref
+ @closescript
+ @end
+
+@show
+`%
+`% (( ____________ ))
+`% \\ / \ //
+`% \( )/
+`% \ ____ /
+`% '--' '--'
+
+ `2You put on your snow goggles..
+
+@key bottom
+
+ `2These might be usefull if it was snowing.
+
+@key bottom
+@run getname in item99.ref
+@closescript
diff --git a/xtrn/lord2/cnw/blksheep.ref b/xtrn/lord2/cnw/blksheep.ref
new file mode 100644
index 0000000000000000000000000000000000000000..b6ef88d076bdaa182057a17021b15976b4755f76
--- /dev/null
+++ b/xtrn/lord2/cnw/blksheep.ref
@@ -0,0 +1,196 @@
+; Script file BLKSHEEP.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:33 2001
+
+@DECLARE start 000000268
+@DECLARE blacksheep 000000284
+@DECLARE gtreesheep 000001790
+@DECLARE thebook 000004708
+@DECLARE done 000005242
+@NOCHECK
+; End of .REF index
+
+@#START
+
+@#BlackSheep
+;At the 'hidden Dark Forest'
+
+ @do moveback
+ @busy
+@do `v01 is 1
+
+@if bitcheck `t01 7 1 then do
+ @begin
+ @do SAYBAR
+ The Black Sheep doesn't seem to be interested in you.
+ @closescript
+ @end
+
+@show
+`r0`c `%`r1 Black Sheep of the Family `r0
+
+You wonder why this black sheep is standing off by itself?
+The sheep eyes you warily as you approach. "`0Baa-aahh!!`%"
+
+@do write
+`x`x
+@choice
+Say hello to it.
+Ask it why sheep are so rude and anti-social.
+Try to skin the thing. (That black wool must be worth something...)
+@if response is 1 then do
+ @begin
+ @show
+`\`\ The sheep looks at you and says: "`7Baaaa-aaah!!`%"
+`\`k
+ @end
+
+@if response is 3 then do
+ @begin
+ @show
+`\`\ "`7I might be able to make a few gold pieces with this thing's skin!`%" you think, as you pull out your weapon and head toward it.
+`\`\ The sheep's eyes grow wide as it realizes what you're up to, and it turns and bites you on the ass!
+`\`k
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\ "`$Hey! Why won't any of those stupid sheep talk to me?!`%" you ask indignantly.
+`\`\ "`9Baaa-aa...sheep only speak to those who know the paaa-aassword!`%" it bleats.
+`\`\ The sheep looks over at the white sheep, playing merrily together, and scowls. (You didn't know a sheep could DO that!)
+`\`\ "`9Listen caaa-aarefully. The paaa-aassword is `4BAH RAM EWE`9!`%"
+`\`k
+ @do `p20 is 1
+ @datasave blackshp.idf &playernum `p20
+ @end
+
+@drawmap
+@update
+
+@#GTreeSheep
+@dataload blackshp.idf &playernum `p20
+@do moveback
+
+@if `p20 is 0 then do
+ @begin
+ @do SAYBAR
+ "`9Baaaa-aa!!`%" Hmm..guess it has nothing to say right now...
+ @closescript
+ @end
+
+@if `p20 is 2 then do
+ @begin
+ @do SAYBAR
+ It tries to bite you! Looks like it doesn't like you anymore.
+ @do moveback
+ @closescript
+ @end
+
+@do moveback
+@busy
+@do `v01 is 1
+
+@if `p20 is 1 then do
+ @begin
+ @show
+`r0`c `%`r1 The Royal Sheep `r0
+`\ `%You look directly at the sheep and say "`4BAH RAM EWE!`%"
+`x
+`\`\ "`9You know...`%" the sheep's eyes widen as it wonders how you learned the secret.
+`\ "`9What would you like to talk about, human?`%"
+ It looks at you with curious interest.
+`\
+
+ @do write
+ `x`x
+ @choice
+ Talk about the weather.
+ Ask it the most important question you can think of.
+ Ask about Turgon.
+ Ask about Barak.
+@if response is 1 then do
+ @begin
+ @show
+`\`\ "`0Nice weather we're having, ain't it?`%" you say, trying to sound intelligent.
+`\`\ The sheep stares blankly at you, then replies:
+ "`9Uh..yeaaa-aah. Sure. Lovely.`%" and tries to leave quickly.
+`k
+ @end
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\ "`0I've just gotta know...does all that wool make you itch??`%"
+`\`\ The sheep looks at you like you just turned green with orange polka-dots.
+ "`9Uh..naa-aaht really..`%"
+`k
+ @end
+
+ @if response is 3 then do
+ @begin
+ @show
+`\`\ "`0What do you know about Turgon?`%" you ask the sheep.
+`\`\ It looks startled, then says:
+ "`9Turgon? I haaa-aaven't seen him in YEARS! He used to come here every day and give us aaa-aall caaa-aarrots.`%"
+`k
+ @end
+
+ @if response is 4 then do
+ @begin
+ @show
+`\`\ "`0Do you know who Barak is?`%" you ask innocently.
+`\`\ The sheep scowls (somehow, that sight makes you uneasy) and spits.
+`\ "`9Baaa-aarak?! That humaa-aan frightens us. He comes in here aaa-aand
+ tries to do baaa-aad things to us!`%"
+`k
+`\`\ You can't help but smile. "`0You're kidding! He told the townspeople
+ that Turgon was the one who did that!`%"
+`\`\ "`9When he isn't harraaa-aassing us, he sits under those trees over there,
+ aaa-aand writes in a book, or something.`%"
+`\`\ Well, now.. that's interesting! You decide you'd like to find out what
+ ol' Barak's been writing about!
+`\ "`0Do you know what he writes?`%"
+`\`\ The sheep shakes its head and says, "`9No...but I think he hides his book
+ around there..`%"
+`\`\ You make a note to check out those trees soon.
+ "`0Thanks alot. I'd love to hang around and chat some more, but I have to
+`\ get home. We're having lamb-chops tonight!`%"
+`\`\ The sheep bleats in horror, and tries to bite you! You decide you'd
+ better leave quickly.
+`k
+ @do `p20 is 2
+ @datasave blackshp.idf &playernum `p20
+ @do moveback
+ @end
+
+@end
+
+@drawmap
+@update
+
+@#TheBook
+ @do moveback
+ @busy
+
+@if bitcheck `t01 5 1 then do
+ @begin
+ @do saybar
+ There's nothing here but a hollow tree.
+ @closescript
+ @end
+
+@if bitcheck `t01 5 0 then do
+ @begin
+ @show
+`r0`c `%`r1 The Hidden Book `r0
+`\ After searching for awhile, you discover a small bundle in a hollow
+`\ in one of the trees! You unwrap the covering, and realize you've
+`\ found `4Barak's secret box!!`2
+`\ (You discover `$1500 `%gold pieces!! WOOHOO!)
+`k
+ @do money + 1500
+ @end
+
+@drawmap
+@update
+
+@#Done
diff --git a/xtrn/lord2/cnw/blue.ref b/xtrn/lord2/cnw/blue.ref
new file mode 100644
index 0000000000000000000000000000000000000000..ff8e98b4906004e4d8ce15af4e09705ecb751495
--- /dev/null
+++ b/xtrn/lord2/cnw/blue.ref
@@ -0,0 +1,528 @@
+; Script file BLUE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:39 2001
+
+@DECLARE house 000000286
+@DECLARE boatrent 000000859
+@DECLARE boats2 000001251
+@DECLARE boats 000001329
+@DECLARE capture 000001643
+@DECLARE dragon 000006085
+@NOCHECK
+; End of .REF index
+
+@#house
+@dataload comp.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do saybar
+`%The rental place is boarded up and void of life.
+@closescript
+@end
+
+@do moveback
+@offmap
+@busy
+@show
+`r0`c`r1`%Harry's Fishin' Boat Rental`r0
+
+
+`2An old man with a pipe in his mouth stands behind the counter observing you.
+You notice a large picture of a blue dragon on the wall behind him. He asks
+what you'd like.
+
+@do `v01 is 1
+@choice
+Rent a boat.
+Scram.
+@if responce is 1 then do
+@begin
+@routine boatrent in blue.ref
+@end
+
+@drawmap
+@update
+
+@#boatrent
+@busy
+@datasave blue.idf &playernum 1
+@show
+`r0`c`0"Enjoy the boat sir! Take anyone from the dock."
+
+`%NOTE TO PLAYERS: If you're total defense, (armour + dodge) isn't at least
+500, DO NOT attempt this IGM (in other words, don't touch the boats). You
+will find yourself in an unescapable death trap. You have been warned.
+`k
+@drawmap
+@update
+@closescript
+@end
+
+@#boats2
+@do saybar
+`%That boat is in bad condition. You don't want it.
+
+@#boats
+@dataload compboat.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do saybar
+`%You will not touch that boat again!
+@closescript
+@end
+
+@dataload blue.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@run capture in blue.ref
+@end
+
+@do saybar
+`%You have to pay before taking a boat.
+
+@#capture
+@clearblock 21 24
+@do move 3 22
+@do write
+`%The boat begins to shake, what the heck?
+@key nodisplay
+@clearblock 21 24
+@do move 1 8
+@do write
+`6�
+@do move 1 8
+@do write
+`w
+@do move 2 8
+@do write
+`6�
+@do move 2 8
+@do write
+`w
+@do move 3 8
+@do write
+`6�
+@do move 3 8
+@do write
+`w
+@do move 4 8
+@do write
+`6�
+@do move 4 8
+@do write
+`w
+@do move 5 8
+@do write
+`6�
+@do move 5 8
+@do write
+`w
+@do move 6 8
+@do write
+`6�
+@do move 6 8
+@do write
+`w
+@do move 7 8
+@do write
+`6�
+@do move 7 8
+@do write
+`w
+@do move 8 8
+@do write
+`6�
+@do move 8 8
+@do write
+`w
+@do move 9 8
+@do write
+`6�
+@do move 9 8
+@do write
+`w
+@do move 10 8
+@do write
+`6�
+@do move 10 8
+@do write
+`w
+@do move 11 8
+@do write
+`6�
+@do move 11 8
+@do write
+`w
+@do move 12 8
+@do write
+`6�
+@do move 12 8
+@do write
+`w
+@do move 13 8
+@do write
+`6�
+@do move 13 8
+@do write
+`w
+@do move 14 8
+@do write
+`6�
+@do move 14 8
+@do write
+`w
+@do move 15 8
+@do write
+`6�
+@do move 15 8
+@do write
+`w
+@do move 16 8
+@do write
+`6�
+@do move 16 8
+@do write
+`w
+@do move 17 8
+@do write
+`6�
+@do move 17 8
+@do write
+`w
+@do move 18 8
+@do write
+`6�
+@do move 18 8
+@do write
+`w
+@do move 19 8
+@do write
+`6�
+@do move 19 8
+@do write
+`w
+@do move 20 8
+@do write
+`6�
+@do move 20 8
+@do write
+`w
+@do move 21 8
+@do write
+`6�
+@do move 21 8
+@do write
+`w
+@do move 22 8
+@do write
+`6�
+@do move 22 8
+@do write
+`w
+@do move 23 8
+@do write
+`6�
+@do move 23 8
+@do write
+`w
+@do move 24 8
+@do write
+`6�
+@do move 24 8
+@do write
+`w
+
+@do move 1 8
+@do write
+`1
+@do move 1 8
+@do write
+`w`x
+@do move 2 8
+@do write
+`1
+@do move 2 8
+@do write
+`w`x
+@do move 3 8
+@do write
+`1
+@do move 3 8
+@do write
+`w`x
+@do move 4 8
+@do write
+`1
+@do move 4 8
+@do write
+`w`x
+@do move 5 8
+@do write
+`4
+@do move 5 8
+@do write
+`w`x
+@do move 6 8
+@do write
+`4
+@do move 6 8
+@do write
+`w`x
+@do move 7 8
+@do write
+`1
+@do move 7 8
+@do write
+`w`x
+@do move 8 8
+@do write
+`1
+@do move 8 8
+@do write
+`w`x
+@do move 9 8
+@do write
+`1
+@do move 9 8
+@do write
+`w`x
+@do move 10 8
+@do write
+`1
+@do move 10 8
+@do write
+`w`x
+@do move 11 8
+@do write
+`1
+@do move 11 8
+@do write
+`w`x
+@do move 12 8
+@do write
+`1
+@do move 12 8
+@do write
+`w`x
+@do move 13 8
+@do write
+`1
+@do move 13 8
+@do write
+`w`x
+@do move 14 8
+@do write
+`1
+@do move 14 8
+@do write
+`w`x
+@do move 15 8
+@do write
+`1
+@do move 15 8
+@do write
+`w`x
+@do move 16 8
+@do write
+`1
+@do move 16 8
+@do write
+`w`x
+@do move 17 8
+@do write
+`1
+@do move 17 8
+@do write
+`w`x
+@do move 18 8
+@do write
+`1
+@do move 18 8
+@do write
+`w`x
+@do move 19 8
+@do write
+`1
+@do move 19 8
+@do write
+`w`x
+@do move 20 8
+@do write
+`1
+@do move 20 8
+@do write
+`w`x
+@do move 21 8
+@do write
+`1
+@do move 21 8
+@do write
+`w`x
+@do move 22 8
+@do write
+`1
+@do move 22 8
+@do write
+`w`x
+@do move 23 8
+@do write
+`1
+@do move 23 8
+@do write
+`w`x
+@do move 24 8
+@do write
+`1
+@do move 24 8
+@do write
+`w`w
+
+@do move 25 8
+@do write
+`$|
+@do move 25 8
+@do write
+`w`w`w`x
+@do move 25 8
+@do write
+`$/
+@do move 25 8
+@do write
+`w`w`w`x
+@do move 25 8
+@do write
+`$\
+@do move 25 8
+@do write
+`w`w`w`x
+@do move 25 8
+@do write
+`$|
+@do move 25 8
+@do write
+`w`w`w`x
+@do move 25 8
+@do write
+`$/
+@do move 25 8
+@do write
+`w`w`w`x
+@do move 25 8
+@do write
+`$\
+@do move 25 8
+@do write
+`w`w`w`x
+@do move 24 8
+@do write
+`$|
+@do move 24 8
+@do write
+`w`w`w`x
+@do move 24 8
+@do write
+`$/
+@do move 24 8
+@do write
+`w`w`w`x
+@do move 24 8
+@do write
+`$\
+@do move 24 8
+@do write
+`w`w`w`x
+@do move 24 8
+@do write
+`$|
+@do move 24 8
+@do write
+`w`w`w`x
+@do move 24 8
+@do write
+`$/
+@do move 24 8
+@do write
+`w`w`w`x
+@do move 24 8
+@do write
+`$\
+@do move 24 8
+@do write
+`w`w`w`x
+
+@show
+`r0`c`%You reappear in a small room. It is dark amd musky, it appears to be a
+jail cell. You sit wondering who the heck could have done this to you. Then
+the door opens and you are escorted away by two ugly looking ogres. You are
+taken to a large and beautifully decorated chamber, and then you see it:
+The Blue Dragon. He is massive, he towers above you. He looks just like the
+dragon on the picture in the boat rental shop!
+`k
+@do map is 1187
+@do x is 38
+@do y is 9
+@loadmap &map
+@drawmap
+@update
+@run dragon in blue.ref
+
+@#dragon
+@clearblock 21 21
+@do move 3 21
+@do write
+`%The drgaon speaks to you, his voice booming.
+@key
+@clearblock 21 24
+@do move 3 21
+@do write
+`%You have fallen into my hands warrior! You will now pass my tests or you
+@do move 3 22
+@do write
+will never leave this place alive. Many have died trying to pass the tests,
+@do move 3 23
+@do write
+you may be the next! Let the tests begin!!
+@key
+@clearblock 21 24
+
+@do move 38 9
+@do write
+`$|
+@do move 38 9
+@do write
+`w`w`w`x
+@do move 38 9
+@do write
+`$/
+@do move 38 9
+@do write
+`w`w`w`x
+@do move 38 9
+@do write
+`$\
+@do move 38 9
+@do write
+`w`w`w`x
+@do move 38 9
+@do write
+`$|
+@do move 38 9
+@do write
+`w`w`w`x
+@do move 38 9
+@do write
+`$/
+@do move 38 9
+@do write
+`w`w`w`x
+@do move 38 9
+@do write
+`$\
+@do move 38 9
+@do write
+`w`w`x
+
+@do map is 1186
+@do x is 72
+@do y is 10
+@loadmap &map
+@drawmap
+@update
diff --git a/xtrn/lord2/cnw/blues.ref b/xtrn/lord2/cnw/blues.ref
new file mode 100644
index 0000000000000000000000000000000000000000..0645e7610067aa3e86185b307ea99a1b4f748b01
--- /dev/null
+++ b/xtrn/lord2/cnw/blues.ref
@@ -0,0 +1,403 @@
+; Script file BLUES.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:43 2001
+
+@DECLARE puzzle1 000000501
+@DECLARE success1 000001026
+@DECLARE fail 000001211
+@DECLARE puzzle2 000001742
+@DECLARE wins 000002297
+@DECLARE death 000002569
+@DECLARE runs 000002788
+@DECLARE puzzle3 000003068
+@DECLARE complete 000003642
+@DECLARE rans 000004120
+@DECLARE mirror 000004252
+@DECLARE dead2 000005947
+@DECLARE corner 000006379
+@DECLARE nomore 000006432
+@NOCHECK
+; End of .REF index
+
+@#puzzle1
+@dataload puz1.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do moveback
+@do saybar
+`%You don't want to go back.
+@closescript
+@end
+
+@busy
+@do moveback
+@show
+`r0`c`%The first challenge is a word puzzle. You must spell just ONE WORD
+from the following letters: OWODREN (put you answer in lowercase and
+ABSOLUTELY NO SPACES!!)
+
+You answer:
+@do readstring 20 NIL `s01
+@if `s01 is oneword then do
+@begin
+@run success1 in blues.ref
+@closescript
+@end
+
+@run fail in blues.ref
+@end
+
+@#success1
+@datasave puz1.idf &playernum 1
+@show
+`r0`cCongratulations warrior, you have passed the first test, you may now move
+on.
+`k
+@do x is 53
+@do y is 10
+@drawmap
+@update
+
+@#fail
+@do moveback
+@dataload fail.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do moveback
+@show
+`r0`c`0"You have failed for the last time!" `2The last thing you see before
+you die is the dragons image imprinted on your eyes. If you're stumped,
+check the four corners of this room!
+`k
+@do enemy is Dragon's Test
+@routine dead2 in blues.ref
+@closescript
+@end
+
+@datasave fail.idf &playernum 1
+@show
+`r0`cYou have failed the test. I will permit you to try again!
+`k
+@run puzzle1 in blues.ref
+
+@#puzzle2
+@dataload puz2.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do moveback
+@do saybar
+`%You don't want to go back.
+@closescript
+@end
+
+@busy
+@show
+`r0`cFor the second challenge, you are confronted with a mirror image of
+yourself. You draw your weapon and advance, it does the same. Now what?
+@do `v01 is 1
+@choice
+Attack.
+Run.
+Put away your weapon.
+@if responce is 1 then do
+@begin
+@routine death in blues.ref
+@end
+
+@if responce is 2 then do
+@begin
+@routine runs in blues.ref
+@end
+
+@routine wins in blues.ref
+
+@#wins
+@datasave puz2.idf &playernum 1
+@show
+`r0`c`%You put away your weapon. The image does the same. You approach and
+bond with the image. All is well, you have defeated the second challenge, one
+more to go.
+`k
+@do x is 20
+@do y is 10
+@drawmap
+@update
+
+@#death
+@show
+`r0`c`%You lunge with you`4 s&weapon `%and hit the image. You feel the pain
+as the blade hits its heart, and you fall over dead. OOOOPPPPSSSS!!
+`k
+@routine dead2 in blues.ref
+@closescript
+@end
+
+@#runs
+@show
+`r0`c`%Wherever you run the mirror image follows. When you stop it stops.
+You are getting nowhere this way.
+@do `v01 is 1
+@choice
+Attack.
+Put away weapon.
+@if responce is 1 then do
+@begin
+@run death in blues.ref
+@end
+
+@routine wins in blues.ref
+
+@#puzzle3
+@show
+`r0`cAs you approach the final door, you get a weird feeling
+`k
+@do map is 1187
+@do x is 36
+@do y is 9
+@loadmap &map
+@drawmap
+@update
+
+`%You stand confronted by the dragon and prepare for battle.
+@key
+@fight
+;name
+Blue Dragon
+;string
+Oh crap!
+;power string
+Finished at last!
+;sex
+1
+;weapons
+burns you|500
+shoots lightning|500
+chews you up|431
+claws you|487
+swings his tail|501
+;defense
+400
+;experience
+2000
+;gold
+3000
+;hit points
+3000
+;if win
+BLUES.REF|COMPLETE
+;if lose
+BLUES.REF|DEAD2
+;if run
+BLUES.REF|RANS
+
+@#complete
+@datasave comp.idf &playernum 1
+@datasave compboat.idf &playernum 1
+@clearblock 21 24
+@do move 3 21
+@do write
+`%All of a sudden you hear the dragon's booming voice. Congratulations
+@do move 3 22
+@do write
+warrior! You have passed the tests and defeated my image! You may now go
+@do move 3 23
+@do write
+free. As a reward you will recieve 10 quest points.
+@key
+@do `p18 + 10
+@do map is 1188
+@do x is 25
+@do y is 8
+@loadmap &map
+@drawmap
+@update
+
+@#rans
+@do saybar
+`%The Blue Dragon won't let you run. Now you have to fight him again!
+`k
+@routine puzzle3 in blues.ref
+
+@#mirror
+@do move 43 6
+@do write
+`$|
+@do move 43 6
+@do write
+`w`w`x
+@do move 43 6
+@do write
+`$/
+@do move 43 6
+@do write
+`w`w`x
+@do move 43 6
+@do write
+`$\
+@do move 43 6
+@do write
+`w`w`x
+@do move 43 6
+@do write
+`$|
+@do move 43 6
+@do write
+`w`w`x
+@do move 43 6
+@do write
+`$/
+@do move 43 6
+@do write
+`w`w`x
+@do move 43 6
+@do write
+`$\
+@do move 43 6
+@do write
+`w`w
+@do move 43 6
+@do write
+`%
+@do move 43 6
+@do write
+`w`x
+@do move 42 7
+@do write
+`%
+@do move 42 7
+@do write
+`w`x
+@do move 41 8
+@do write
+`%
+@do move 41 8
+@do write
+`w`x
+@do move 40 9
+@do write
+`%
+@do move 40 9
+@do write
+`w`x
+@do move 39 10
+@do write
+`%
+@do move 39 10
+@do write
+`w`x
+@do move 38 10
+@do write
+`%
+@do move 38 10
+@do write
+`w`x
+@do move 37 10
+@do write
+`%
+@do move 37 10
+@do write
+`w`x
+@do move 36 10
+@do write
+`%
+@do move 36 10
+@do write
+`w`x
+@do move 35 10
+@do write
+`%
+@do move 35 10
+@do write
+`w`x
+@do move 34 10
+@do write
+`%
+@do move 34 10
+@do write
+`w`x
+@do move 33 10
+@do write
+`%
+@do move 33 10
+@do write
+`w`x
+@do move 32 10
+@do write
+`%
+@do move 32 10
+@do write
+`w`x
+@do move 31 10
+@do write
+`%
+@do move 31 10
+@do write
+`w`x
+@do move 30 10
+@do write
+`%
+@do move 30 10
+@do write
+`w`x
+@do move 29 10
+@do write
+`%
+@do move 29 10
+@do write
+`w`x
+@do move 28 10
+@do write
+`%
+@do move 28 10
+@do write
+`w`x
+@do move 27 10
+@do write
+`w`x
+@do move 26 10
+@do write
+`%
+@do move 26 10
+@do write
+`w`x
+@do move 25 10
+@do write
+`%
+@do move 25 10
+@do write
+`w`x
+@do move 24 10
+@do write
+`%
+@do move 24 10
+@do write
+`w`w`w`x
+@routine puzzle2 in blues.ref
+
+@#dead2
+@show
+`r0`c`\`\`\`\`\`\`\
+ `%You messed up s&boy!
+
+ `4You will lose half gold and some exp.
+
+ `2You can't die in here, you must beat the challenges to escape!
+
+ `k
+
+ @do X is 69
+ @do Y is 10
+ @do money / 2
+ @do `p02 is `p03
+ @do `p20 is `p01
+ @do `p20 / 5
+ @do `p01 - `p20
+ @do MAP is 1186
+ @drawmap
+ @update
+
+@#corner
+@do saybar
+`%The password is oneword.
+
+@#nomore
+
+
diff --git a/xtrn/lord2/cnw/bmblchck.clr b/xtrn/lord2/cnw/bmblchck.clr
new file mode 100644
index 0000000000000000000000000000000000000000..c979ddfeef2e4f5897299870536f67b01ccfc30e
--- /dev/null
+++ b/xtrn/lord2/cnw/bmblchck.clr
@@ -0,0 +1,11 @@
+[?7h[255D[65C[0mܲ�۱�۲�
+[63C������۱���۲
+[62C��۲[1;31m�������[0m����
+[62C���[1m�[0;32m�[1;37m�[31m���[37m�[0;32m�[1;37m�[0m�۲
+[63C��[1;31;41m���[40m�[41m�����[0m��
+[64C�[1;31m�[41m�[40m�[41m�[40m�[41m�[40m�[41m�[40m�[0m�
+[65C[1;31m��[41m�[40m�[41m�[40m��۲
+[66C�[41m�[37;40m���[31;41m�[40m�
+[59C[0;32m� � �� [1;31m�[41m�[40m��� [0;32m� ��
+[60C�� ����[6C��� ��
+[62C� � �� � � �
diff --git a/xtrn/lord2/cnw/boat.ref b/xtrn/lord2/cnw/boat.ref
new file mode 100644
index 0000000000000000000000000000000000000000..bf1dd06801fc6d68c9a8bb96bb0834e9e177c2f1
--- /dev/null
+++ b/xtrn/lord2/cnw/boat.ref
@@ -0,0 +1,123 @@
+; Script file BOAT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:15 2001
+
+@DECLARE bsign 000000247
+@DECLARE boat 000000332
+@DECLARE nomore 000002178
+@NOCHECK
+; End of .REF index
+
+;Ref for all boating stuff (Go Gilligan!)
+
+@#BSIGN
+;A stock message outline
+@DO SAYBAR
+`2You're on a boat!!!
+@DO MOVEBACK
+
+@#BOAT
+;The actual travel boat
+@DO MOVEBACK
+@BUSY
+@DO `v01 is 1
+@SHOW
+`r0`c `r1 Looks like a chartering ship `r0
+
+ `2A small man with a checkboard greets you `0"Tickets please..."
+
+@DO WRITE
+`x`x
+@CHOICE
+I was just looking around actually
+>`i26 0 Show him your ticket to ArrisVille
+>`i27 0 Show him your ticket to Sosen Village
+>`i33 0 Show him your ticket to FlagCity
+>`i32 0 Show him your ticket to PortTown
+@IF RESPONSE IS 1 THEN DO
+@Begin
+@Show
+`\`\ `$"Just admiring your nice ship here,"`2 you say.
+`\`k `0"How nice, please leave" `2he snaps.
+`\`k
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+;ticket to ArrisVille
+@IF RESPONSE IS 2 THEN DO
+;ticket to Arrisville
+@Begin
+@do `i26 - 1
+@do `p13 is 3
+@Show
+`\`\ `0"Allrighty then, let's go!" `2The man replies.
+`\`k
+@loadmap 444
+@do map is 444
+@do x is 66
+@do y is 19
+@DRAWMAP
+@DO SAYBAR
+`2Welcome to Arrisville.
+@UPDATE
+@CLOSESCRIPT
+
+
+
+@End
+;ticket to Sosen Village
+@IF RESPONSE IS 3 THEN DO
+@Begin
+@do `i27 - 1
+@do `p13 is 3
+@Show
+`\`\ `0"Allrighty then, let's go!" `2The man replies.
+`\`k
+@loadmap 536
+@do map is 536
+@do x is 40
+@do y is 18
+@DRAWMAP
+@DO SAYBAR
+`2Welcome to Sosen Village.
+@UPDATE
+@CLOSESCRIPT
+@End
+;ticket to FlagCity
+@IF RESPONSE IS 4 THEN DO
+@Begin
+@do `i33 - 1
+@do `p13 is 2
+@Show
+`\`\ `0"Allrighty then, let's go!" `2The man replies.
+`\`k
+@loadmap 71
+@do map is 71
+@do x is 38
+@do y is 14
+@DRAWMAP
+@DO SAYBAR
+`2Welcome to FlagCity.
+@UPDATE
+@CLOSESCRIPT
+@End
+;ticket to PortTown
+@IF RESPONSE IS 5 THEN DO
+@Begin
+@do `i32 - 1
+@do `p13 is 1
+@Show
+`\`\ `0"PortTown? Good choice, let's go!" `2The man replies.
+`\`k
+@loadmap 152
+@do map is 152
+@do x is 38
+@do y is 2
+@DRAWMAP
+@DO SAYBAR
+`2Welcome to PortTown.
+@UPDATE
+@CLOSESCRIPT
+@End
+
+
+@#nomore
diff --git a/xtrn/lord2/cnw/bone.ref b/xtrn/lord2/cnw/bone.ref
new file mode 100644
index 0000000000000000000000000000000000000000..fd0cf779fc9bbe0c24c4651663024870ea312891
--- /dev/null
+++ b/xtrn/lord2/cnw/bone.ref
@@ -0,0 +1,1896 @@
+; Script file BONE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:15 2001
+
+@DECLARE man1 000001630
+@DECLARE hot 000001861
+@DECLARE haha 000002065
+@DECLARE man2 000002275
+@DECLARE gum 000002488
+@DECLARE strut 000002581
+@DECLARE moves 000002677
+@DECLARE pee 000002785
+@DECLARE bsign 000002874
+@DECLARE rubble 000002961
+@DECLARE dog 000003074
+@DECLARE noenter 000003194
+@DECLARE sack 000003313
+@DECLARE used 000003437
+@DECLARE john 000003520
+@DECLARE bed 000003847
+@DECLARE ma 000004050
+@DECLARE baby 000004513
+@DECLARE whore 000005745
+@DECLARE defeat 000007678
+@DECLARE run 000007939
+@DECLARE win 000008289
+@DECLARE arena 000008533
+@DECLARE beat 000008601
+@DECLARE monster1 000013201
+@DECLARE pawn 000013899
+@DECLARE drunker 000014591
+@DECLARE bartend 000015502
+@DECLARE scotch 000015570
+@DECLARE heal 000018186
+@DECLARE gamble 000020091
+@DECLARE boat 000020516
+@DECLARE inn 000022177
+@DECLARE binto 000022961
+@DECLARE potiond 000024339
+@DECLARE toilet 000028515
+@DECLARE message 000028655
+@DECLARE notdone 000029801
+@DECLARE fun 000029928
+@DECLARE dealer 000030799
+@DECLARE bouncer 000031919
+@DECLARE bouncer2 000032129
+@DECLARE info 000032356
+@DECLARE events 000033142
+@DECLARE event1 000033245
+@DECLARE event2 000034769
+@DECLARE event3 000036235
+@DECLARE tbattle 000038055
+@DECLARE bmob 000038686
+@DECLARE smob 000039343
+@DECLARE tlose 000039998
+@DECLARE bigmob 000040641
+@DECLARE bmoblose 000041300
+@DECLARE ruin 000042273
+@DECLARE done 000042394
+@DECLARE nomore 000042439
+@NOCHECK
+; End of .REF index
+
+;Ref for the Big Bad BoneTown (tm) (Go Jester!)
+
+@#MAN1
+;A stock message outline ;116
+@do `p70 is 116
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@DO SAYBAR
+`0Dad: `2I finally did it. I brought my boy to the Bonetown Arena!
+@DO MOVEBACK
+@end
+
+@#HOT
+;A stock message outline ;117
+@do `p70 is 117
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@DO SAYBAR
+`0Rich Woman: `2I'm hot, I can feel it!
+@DO MOVEBACK
+@end
+
+@#haha
+;A stock message outline ;118
+@do `p70 is 118
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@DO SAYBAR
+`0Jesse: Haha! There is nothing here, sucka!
+@DO MOVEBACK
+@end
+
+@#MAN2
+;A stock message outline ;119
+@do `p70 is 119
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@DO SAYBAR
+`0Boy: `2Are you one of the Arena Warriors? Wow!
+@DO MOVEBACK
+@end
+
+@#GUM
+;On a chair in the bar
+@DO SAYBAR
+`2Yuck, seems to be gum stuck to this chair.
+
+@#STRUT
+;Your moves in the funhouse
+@DO SAYBAR
+`2You strut your stuff on the dance floor!
+
+@#MOVES
+;People in the funhouse
+@DO SAYBAR
+`0"Those are some killer moves you got there."
+@DO MOVEBACK
+
+@#PEE
+;Area in the bar
+@DO SAYBAR
+`2Uhhh, something over here smells like urine.
+
+@#BSIGN
+;A stock message outline
+@DO SAYBAR
+`2You're on a boat!!!
+@DO MOVEBACK
+
+@#RUBBLE
+;Message for the crumbled house in BoneTown
+@DO SAYBAR
+`2A rock slide totally demolished this house.
+
+@#DOG
+;Message for a house in bonetown
+@DO SAYBAR
+`2A really BIG Chihuahua guards the entrance.
+@DO MOVEBACK
+
+@#NOENTER
+;Message for another house in BoneTown
+@DO SAYBAR
+`2This place looks boarded up real tight.
+@DO MOVEBACK
+
+@#SACK
+;Message for inside the abandoned house
+@DO SAYBAR
+`2Looks like this place has been ransacked by the locals...
+
+@#USED
+;Message for the toilet in the house
+@DO SAYBAR
+`2Woah!
+@DO MOVEBACK
+
+@#JOHN
+;Happy guy in the house ;120
+@do `p70 is 120
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@if `v06 is 1 then do
+ @begin
+ @DO MOVEBACK
+ @DO SAYBAR
+`0"That was a great experience ... "
+ @closescript
+ @end
+@DO SAYBAR
+`0"That was the best sex I've ever had."
+@DO MOVEBACK
+@end
+
+@#BED
+;Bed in the house
+@if `v06 is 1 then do
+ @begin
+ @DO MOVEBACK
+ @DO SAYBAR
+`2Looks like a nice bed.
+ @closescript
+ @end
+@DO SAYBAR
+`2You gotta pay to hop on that bed.
+@DO MOVEBACK
+
+@#MA
+;The in charge lady at that one house. ;121
+@do `p70 is 121
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+ @IF &lasty is 10 then do
+ @BEGIN
+ @DO SAYBAR
+`2The Hefty old lady winks as you pass by.
+ @CLOSESCRIPT
+ @END
+@IF `v06 is 1 then do
+ @begin
+ @DO MOVEBACK
+ @DO SAYBAR
+`2She looks like she doesn't want you to go upstairs.
+ @closescript
+ @end
+@IF &sex is 1 then do
+@BEGIN
+ @DO MOVEBACK
+ @label baby
+ @do `v01 is 1
+ @SHOW
+`r0`c `r1`% Good 'ol Ma `r0
+
+`2 The woman at the stairs smiles at you. She seems to be in charge of the
+ establishment here. She's pretty old and kinda hefty.
+ `0"Hey there sir, interested in a good time. Our girl doesn't say no ... if
+ you have the money that is. What do ya say sonny ?"`2
+
+@do write
+`x`x
+@CHOICE
+Ask about the girl
+>&money 99 Take a ride (`$$100`%)
+Leave
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Kelley's a good girl ... or a bad one, depending on what you want.
+ Sure just about everyone's had a ride on her, but hey can you blame em?
+ After all we don't force you to use protection like that pesky place across
+ the way. Who says sex is dangerous? Ha."
+`\`k
+ @do goto baby
+ @end
+@if response is 2 then do
+ @begin
+ @do `v40 is 100
+ @do `p30 is 23
+ @routine deposit in vaults.ref
+ @do money - 100
+ @show
+`\`\ `0"You wont be sorry my boy, and get ready for one nice ride. Oh and
+ if you're interested later ..." `2she winks as you walk up the stairs.
+`\`k
+ @do y - 2
+ @drawmap
+ @update
+ @end
+ @drawmap
+ @update
+ @CLOSESCRIPT
+@END
+@DO SAYBAR
+`0"Hey Deary, interested in a job?"
+@DO MOVEBACK
+@end
+
+@#WHORE
+;Kelley upstair in the house ;122
+@do `p70 is 122
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@DO MOVEBACK
+@do `p20 random 5 1
+ @if `p20 is 5 then do
+ @begin
+@SHOW
+`r0`c `r1`% Hot Baby `r0
+
+`2 That's quite a nice rack on that girl. And just enough meat for a man to
+ sink his own into. Her nice long black hair shimmers in the light.
+ `0"Hello," `2she says. Her teeth could use a little work but, payers can't
+ be choosers.
+ `0"What would you like to try today?"
+`\`k`2 The drool from your open mouth shows that you are in no condition to
+ dictate much. She gladly dictates for you. `l. `l. `l. `l.
+`\`k You get very worked up during the process, she even seems to be enjoying
+ it. She might not be faking! Suddenly your foot slips and your grasp on
+ the bedpost fails! That window's open ... oh no!
+`\`k
+ @do x is 38
+ @do y is 6
+ @do `p34 + 1
+ @do `p20 random 5 1
+ @if `p20 is 1 then do
+ @begin
+ ;ha ha, user caught vd
+ @do `p12 is 1
+ @end
+ @drawmap
+ @update
+ @do saybar
+`bThere's an 20 percent chance you just caught something.
+ @closescript
+ @end
+@SHOW
+`r0`c `r1`% Hot Baby `r0
+
+`2 That's quite a nice rack on that girl. And just enough meat for a man to
+ sink his own into. Her nice long black hair shimmers in the light.
+ `0"Hello," `2she says. Her teeth could use a little work but, payers can't
+ be choosers.
+ `0"What would you like to try today?"
+`\`k`2 The drool from your open mouth shows that you are in no condition to
+ dictate much. She gladly dictates for you.
+`\`k Five minutes later `0(need to exercise huh?)`2 you get up very satisfied.
+`\`k `bTHERE'S AN 20% CHANCE YOU JUST GOT SOMETHING!!`2
+`\`k
+@do y + 3
+@do `p34 + 1
+ @do `p20 is random 5 1
+ @if `p20 is 1 then do
+ @begin
+ ;ha ha, user caught vd
+ @do `p12 is 1
+ @end
+@drawmap
+@update
+@end
+
+@#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
+@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
+ wall!
+
+ `0"Coward, Coward!" `2the audience chants in unison.
+
+ Crap.. Looks like you better not show your face around here again today...
+`\`k
+@drawmap
+@update
+
+@#WIN
+;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
+@drawmap
+@update
+
+
+@#ARENA
+;The battling arena in BoneTown.
+@DO MOVEBACK
+@busy
+@label beat
+@do `v01 is 1
+@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. You could've guessed the people of BoneTown would choose
+ this kind of entertainment. A man in dark robes who seems to be the
+ organizer of it 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
+Leave
+@if response is 3 then do
+ @begin
+ @if bitcheck `t12 7 1 then do
+ @begin
+ @show
+`\`\ `0"Haha! Go practice with your father, kid!"
+`\ `$"But my dad is dead!" `2you cry, as a salty tear rolls down your cheek.
+
+ You flee the laughing Arena.
+`\`k
+ @drawmap
+ @update
+ @closescript
+
+ @end
+ @show
+`\`\ `0"We knew you were a coward the moment you arrived!"
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"It's simple. For 200 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 < 200 then do
+ @begin
+ @show
+`\`\ `0"You don't even have 200 gold?! How on earth could you be a great
+ arena warrior?! Hahah!"
+
+ `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 `v40 is 200
+ @do `p30 is 23
+ @routine deposit in vaults.ref
+ @do money - 200
+ @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 Nitro
+ @show
+`\`\ `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
+
+ @do goto monster1
+
+;Here's the gladiator
+@#monster1
+@fight
+;name
+`s01
+;string said when you see him
+`0"You get one chance, don't blow it!" `2taunts the Gladiator.
+;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
+400
+;experience
+20
+;hit points
+`p23
+;if win: ref file|name or NONE
+BONE.REF|WIN
+;if lose: ref file|name or NONE
+BONE.REF|DEFEAT
+;if runs: ref file|name or NONE
+BONE.REF|RUN
+;End of Gladiator stuff
+ @end
+;@drawmap
+;@update
+
+@#PAWN
+;The Pawnshop ;123
+@do `p70 is 123
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+
+@do `v01 is 1
+@do moveback
+@busy
+@show
+`r0`c `r1`% Selena's Pawn Shop `r0
+
+`2 A beautifully curved specimen stands before you - which makes what comes
+ out of her mouth next all the more cute.
+
+ `2`0"And what can I do for today, you scagfaced Belar sucking thief?"
+
+@do write
+`x`x
+@CHOICE
+Have some things to sell
+Conduct business with Selena
+Leave
+@if response is 1 then do
+ @begin
+ @run junkman2 in porttown.ref
+ @end
+@if response is 2 then do
+ @begin
+ @do `p20 is 4
+ @run getquest in quest.ref
+ @end
+
+@drawmap
+@update
+@end
+
+@#DRUNKER
+;Drunk man in BoneTown bar ;124
+@do `p70 is 124
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do moveback
+@do `p20 random 9 1
+@if `p20 is 1 then saybar
+`%Guy: `0Careful, this bar isn't all that clean in places.
+@if `p20 is 2 then saybar
+`%Guy: `0I hear there's a secret entrance to FlagCity!
+@if `p20 is 3 then saybar
+`%Guy: `0Watch out for Kelley here she'll give you more than a ride.
+@if `p20 is 4 then saybar
+`%Guy: `0If you get a bounty on your head, watch out.
+@if `p20 is 5 then saybar
+`%Guy: `0Some places wont let you in if you have a bounty on you.
+@if `p20 is 6 then saybar
+`%Guy: `0Don't cheat in the Casino here.
+@if `p20 is 7 then saybar
+`%Guy: `0Did you know Mr T. is Great!?
+@if `p20 is 8 then saybar
+`%Guy: `0On the other two continents I hear life is really exciting.
+@if `p20 is 9 then saybar
+`%Guy: `0Watch for the oracle!
+@end
+
+@#BARTEND
+;Bartender in the BoneTown Bar
+@BUSY
+@DO MOVEBACK
+@label scotch
+@do `v01 is 1
+@show
+`r0`c `r1 BoneTown Bartender `r0
+
+ `0"Hey there, what brings you to our little watering hole? Wait .. don't
+ answer, just being friendly. What can I do for you buddy?" `2You eye the
+ bar. A drink, a snack, or maybe some information.
+
+@do write
+`x`x
+@choice
+>&money 4 Get a drink (`$$5`%)
+Ask about the town
+Inquire about bounties
+Leave
+@if response is 1 then do
+ @begin
+ @do money - 5
+ @do `p96 + 8
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 2
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"Gimme a shot of your finest sir." `2you say as you pay him. Pretty
+ good for a place like this, you feel a bit better.
+`\`k
+ @do goto scotch
+ @end
+@if response is 2 then do
+ @begin
+ @do `p20 random 4 1
+ @if `p20 is 1 then do
+ @begin
+ @show
+`\`\ `0"This town is a haven of well... evil. It was originally founded way
+ back when there was a mining rush on the coast. There are rumors of caves
+ still open someplaces, where the miners couldn't quite make it out with the
+ gold ... or whatever it is they found..."`2
+`\`k
+ @do goto scotch
+ @end
+
+ @if `p20 is 2 then do
+ @begin
+ @show
+`\`\ `0"Watch out for some of the women here. They're real friendly, I mean
+ if you just move They'll sleep with you. Talk about no ethics whatsoever.
+ Oh well it's a good way to increase your self esteem, I suppose, but it's
+ also a good way to get a little itch in someplaces if you get my meaning."
+`\`k
+ @do goto scotch
+ @end
+
+ @if `p20 is 3 then do
+ @begin
+ @show
+`\`\ `0"Watch out for some of the people here in the Arena. The Gladiators
+ they send at you are fairly random. But sometimes you get the one that's
+ been watching you, who knows your every move. And may just pummel you
+ completely. And don't think just cause you're more experienced you can
+ take em, they're seasoned too. You just be careful and remember the
+ healers is right nearby."
+`\`k
+ @do goto scotch
+ @end
+
+ @if `p20 is 4 then do
+ @begin
+ @show
+`\`\ `0"This is a pretty rough town sometimes. You can get into fights in
+ the streets, find someone waking you unplesantly at the inn, or wander off
+ to someplace you never should've gone. This place aint for the faint of
+ heart."
+`\`k
+ @do goto scotch
+ @end
+
+ @end
+;End of storytime
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"You wanna know about the heat ... I can tell you"
+`\`k
+ @do `p30 is 2
+ @routine BOUNTYLIST in BOUNTY.REF
+ @do goto scotch
+ @end
+@drawmap
+@update
+
+@#heal
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1 BoneTown Healing `r0
+
+`2 B.A. 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, fool! What'd ya get yourself into anyway?
+ Aww, never mind crazy fool. 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 fool, we don't do no free work here."
+
+ @do write
+`x`x
+ @choice
+Hey Fool! How am I supposed to make money when I can barely walk?
+Man, 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"You Crazy, now get going with you!" `2 he laughs.
+
+`k
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+ `0"Hey Fool, be a big 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 fool that don't work," `2He 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 `p30 is 23
+@do `v40 is `p20
+@routine deposit in vaults.ref
+@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 fool! I got other crazys to heal.
+ Nothing but fighting in this town I tell ya," `2he laughs.
+
+`k
+@drawmap
+@update
+
+@#GAMBLE
+;Gambling with the man in the funhouse
+@do `v01 is 1
+@busy
+@do moveback
+@show
+`r0`c `%`r1 A Little Game ? `r0
+
+ `2You sit down at the table and nod to the man across from you. He looks
+ up, holding a pair of dice in his hand.
+ `0"Interested in a little game?"
+
+@do write
+`x`x
+@CHOICE
+Yes
+No
+@if response is 1 then do
+ @begin
+ @routine CRAPSTART in GAMBLE.REF
+ @end
+@drawmap
+@update
+
+@#BOAT
+;For the bootleg boat guy in the funhouse.
+@do `v01 is 1
+@busy
+@do moveback
+@show
+`r0`c `%`r1 The Silent Boater `r0
+
+ `2The man sitting eyes you for a second then speaks.
+ `0"You look like someone who may be interested in a trip somewhere. I ...
+ may be able to help you in that department. But you should know the
+ minimum ticket is"
+
+@do write
+`x`x
+@CHOICE
+>&money 6999 Go to ArrisVille (`$$7000`%)
+>&money 1499 Head to PortTown (`$$1500`%)
+>&money 899 Take off to FlagCity (`$$900`%)
+Leave
+@if response is 1 then do
+;Go to ArrisVille
+ @begin
+ @do `v40 is 7000
+ @do `p30 is 23
+ @routine deposit in vaults.ref
+ @do money - 7000
+ @show
+`\`\ `0"Good choice, let's go across the sea."
+`\`k
+ @loadmap 444
+ @do map is 444
+ @do x is 66
+ @do y is 18
+ @DRAWMAP
+ @DO SAYBAR
+ `2Welcome to the ellusive ArrisVille.
+ @UPDATE
+ @CLOSESCRIPT
+ @end
+
+@if response is 2 then do
+;Go to PortTown
+ @begin
+ @do `v40 is 1500
+ @do `p30 is 23
+ @routine deposit in vaults.ref
+ @do money - 1500
+ @show
+`\`\ `0"That's a good choice, let's go!"
+`\`k
+ @loadmap 152
+ @do map is 152
+ @do x is 38
+ @do y is 2
+ @DRAWMAP
+ @DO SAYBAR
+ `2Welcome to PortTown.
+ @UPDATE
+ @CLOSESCRIPT
+ @end
+
+@if response is 3 then do
+;Go to FlagCity
+ @begin
+ @do `v40 is 900
+ @do `p30 is 23
+ @routine deposit in vaults.ref
+ @do money - 900
+ @show
+`\`\ `0"Sure, why not?"
+`\`k
+ @loadmap 71
+ @do map is 71
+ @do x is 38
+ @do y is 14
+ @DRAWMAP
+ @DO SAYBAR
+ `2Welcome to FlagCity.
+ @UPDATE
+ @CLOSESCRIPT
+ @end
+@drawmap
+@update
+
+@#inn
+;For the wood lodge in BoneTown
+@if ninn3.dat exist false then do
+ @begin
+@do `v01 is 1
+@offmap
+@do moveback
+@show
+`r0`c `%`r1 THE WOODLOG INN `r0
+
+ `2This place looks a little campy - slack jaws & harlots wander around
+ the rooms aimlessly.
+
+ A old man with only a few teeth smiles at you.
+
+ You are holding `$$&money`2.
+
+@do write
+`x`x
+@choice
+Get a room (`$$50`%)
+Buy this mudhole
+Leave
+@if response is 1 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+`\`\`2 You are short on cash. Pretty sad when you can't even afford to stay
+ in BoneTown!
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`\ `2You give the dirty old man the cash. He leads you inside...
+`\`k
+ @do money - 50
+ @label BINTO
+ @do x is 21
+ @do y is 13
+ @do map is 1206
+ @loadmap 1206
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\ `$"This place sucks, but I'd like to buy it," `2you say to the Dirty
+ Old Man as he licks his lips.
+
+`k `0"Thas' fine with me," `2he says, `0"but it might not be fine with my
+ fists." `2He holds his fists up. `0"You want this place, you gonna have
+ to kill me!"
+
+`k `$"Whoa, hold up! You can still work here. I just want some profit, too."
+
+`k`c`\`\ `0"I'll give it to you for `%$65,000`0. No less."
+
+ @do write
+`x`x`x
+@do `v01 is 1
+@choice
+>&money 64999 I'll take it!
+What a rip off, old fart.
+@if response is 1 then do
+ @begin
+ @if ninn3.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile ninn3.dat
+&playernum
+NONE
+0
+0
+0
+0
+ @do `v40 is 65000
+ @do `p30 is 23
+ @routine deposit in vaults.ref
+ @do money - 65000
+ @do addlog
+ `0`n `2buys `%The Woodlog Inn`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%The Dirty Old Man, your Employee and Friend `r0
+`\`2 Nice job! You now own his Inn!
+
+ `2Enjoy your new home.
+
+`k
+@label POTIOND
+@show
+`c`\
+ `2What would you like your toilet water to be made out of?
+
+@do write
+`x`x`x
+@do `v01 is 1
+@choice
+Silver Potion
+Gold Potion
+Red Potion
+What!?!
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `2Let's explain, shall we...
+
+ `0In your private room, there will be a toilet. In it, there will be water.
+ What kind of water is your choice. This water will be available to drink
+ once per day by yourself and whomever you allow inside your private room.
+
+ `2Types of Water:
+
+ `$-`0Silver Potion`2: Dodge goes up by 1!
+ `$-`0Gold Potion`2: Muscle goes up by 2!
+ `$-`0Red Potion`2: Max HP goes up by 5!
+
+ `2That's what we're talking about...
+
+`k
+
+ @do goto POTIOND
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Silver Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw3.DAT exist true then delete ninnw3.DAT
+ @writefile ninnw3.DAT
+1
+Silver Potion
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Gold Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw3.DAT exist true then delete ninnw3.DAT
+ @writefile ninnw3.DAT
+2
+Gold Potion
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Red Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw3.DAT exist true then delete ninnw3.DAT
+ @writefile ninnw3.DAT
+5
+Red Potion
+ @end
+
+
+@drawmap
+@update
+@closescript
+ @end
+
+@if response is 2 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+
+;IF PLACE IS PURCHASED
+@do `v01 is 1
+@offmap
+@if ninn3.dat exist false then do
+ @begin
+ @do goto INN
+ @end
+@if ninn3.dat exist true then do
+ @begin
+@readfile ninn3.dat
+`p20
+`s01
+@
+@do `s02 is getname `p20
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete ninn3.dat
+ @do addlog
+ `%The Woodlog Inn`2 is put on the market today.
+ @routine seperate in gametxt.ref
+ @end
+ @if `p20 is &playernum then do
+ @begin
+ @do x is 21
+ @do y is 13
+ @do map is 1206
+ @loadmap 1206
+ @drawmap
+ @update
+ @do saybar
+`!Dirty Old Man: `$Welcome back, boss.
+ @closescript
+ @end
+ @show
+`r0`c `%`r1 THE WOODLOG INN, owned by `0`s02`% `r0
+ @end
+@do moveback
+@show
+
+ `2This place looks a little campy - slack jaws & harlots wander around
+ the rooms aimlessly.
+
+ A old man with only a few teeth smiles at you.
+
+ You are holding `$$&money`2.
+
+@do write
+`x`x
+@if ninn3a.dat exist false then do
+ @begin
+ @writefile ninn3a.dat
+200
+0
+ @end
+ @readfile ninn3a.dat
+`p26
+`p27
+ @
+@do `v01 is 1
+@choice
+Get a room (`$$`p26`%)
+How's the owner?
+Leave
+@if response is 1 then do
+ @begin
+ @if money < `p26 then do
+ @begin
+ @show
+`\`\`2 You are short on cash. Pretty sad when you can't even afford to stay
+ in BoneTown!
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`\ `2You give the dirty old man the cash. He leads you inside...
+`\`k
+ @do money - `p26
+ @do `p27 + `p26
+ @do delete ninn3a.dat
+ @writefile ninn3a.dat
+`p26
+`p27
+ @
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has stayed at your Inn! Cha-CHING!
+
+ @do x is 21
+ @do y is 13
+ @do map is 1206
+ @loadmap 1206
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `$"How's quirky ol' `0`s02`$? `2you ask.
+
+`k `0"Doing awright, I suppose," `2the dirty old man says to you. `0"Last
+ I heard anyways, they was a making a boomin business in the inn business.
+ But then, I'm drunk as all hell, so, what do I know?"
+
+`k `$"Yeah. I'm big on beer."
+
+`k `0"I ain't drunk off beer. I drunk as a jaybird of the toilet water
+ around this place!"
+
+`k
+ @do goto INN
+ @end
+
+@drawmap
+@update
+
+@#TOILET
+;Toilet inside the Inn
+@DO SAYBAR
+`2Great, the only toilet here and it doesn't work! You'll have to hold it.
+@DO MOVEBACK
+
+@#MESSAGE
+;For the other chatwall in BoneTown
+@do moveback
+@busy
+@show
+`r0`c `r1 CARVING ON THE BOARD `r0
+
+@if bar2.txt exist false then do
+ @begin
+ @if `v06 is 1 then do
+ @begin
+ @writefile bar2.txt
+ `%Local `2: `0We need to clean up this town.
+ @end
+ @if `v06 is 0 then do
+ @begin
+ @writefile bar2.txt
+ `%Pimp `2: `0Sheris, you better bring me my money girl!
+ `%Sheris `2: `0Boy, I do NOT work for you any more!
+ @end
+ @end
+
+@if bar.txt exist true then do
+ @begin
+ @displayfile bar2.txt
+ @end
+
+@show
+
+@
+(Do tricky stuff with name to determine how much they can type)
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter a special message or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile bar2.txt
+ `%`n`2 : `0`s03
+ @do trim bar2.txt 17
+ @drawmap
+ @update
+
+@#NOTDONE
+;A stock notdone message for the unfinished stuff
+@DO SAYBAR
+`2Not done yet, check out next version!
+@DO MOVEBACK
+
+@#FUN
+;The BoneTown fun house :)
+@do `v01 is 1
+@offmap
+@do moveback
+@show
+`r0`c `%`r1 The FunHouse `r0
+
+ `2This place looks ... well great!! You see gambling games, and lot's of
+ attractive individuals back there. A man with plush purple hat with a
+ feather in it smiles at you.
+ `0"Hey s&man how ya doing? Listen, if ya wanna get in here, it's gonna
+ be 100 tip, that cool with you?"
+
+ `2You are holding `$$&money`2.
+
+@do write
+`x`x
+@choice
+>&money 99 Pay the "admission" (`$$100`%)
+Leave
+@if response is 1 then do
+ @begin
+ @do `v40 is 100
+ @do `p30 is 23
+ @routine deposit in vaults.ref
+ @do money - 100
+ @show
+`\`\ `0"Good choice my s&man, you wont be disappointed."
+`\`k
+ @do x is 40
+ @do y is 15
+ @do map is 1282
+ @loadmap 1282
+ @drawmap
+ @update
+ @closescript
+ @end
+@drawmap
+@update
+
+@#DEALER
+;Dealer in the funhouse
+@do `v01 is 1
+@busy
+@do moveback
+@show
+`r0`c `%`r1 The Back Room Guy `r0
+
+ `2Tucked away in a nice little corner, you see an unshaven man with a
+ satchel at his side and a supiciously large purse. A man who probably
+ makes his living illegally. Surprise surprise in this town.
+ `0"Hey buddy interested in a little ... companionship? If ya wanna
+ get a nice little friend it'll cost ya 1000. But you look like a s&man
+ who could afford something like that."
+
+@do write
+`x`x
+@choice
+>&money 999 Buy some companionship (`$$1000`%)
+Just Say No
+@if response is 1 then do
+ @begin
+ @if `i51 > 0 then do
+ @begin
+ @show
+`\`\ `0"Sorry man, only one little friend per customer..."
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do `v40 is 1000
+ @do `p30 is 23
+ @routine deposit in vaults.ref
+ @do money - 1000
+ @do `i51 + 1
+ @show
+`\`\ `2The man reaches into his satchel and pulls out `l. `l. `l.`l a small
+ animal!!
+ `0"Here you go, I hope it treats you right" `2he smiles.
+`\`k
+ @end
+@drawmap
+@update
+
+@#BOUNCER
+;The guy outside the casino ;125
+@do `p70 is 125
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@DO SAYBAR
+`2You gotta be 21 to go in there buddy!
+@DO MOVEBACK
+@end
+
+@#BOUNCER2
+;The guy outside the casino ;125
+@do `p70 is 125
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@DO SAYBAR
+`0"Sorry buddy, only important people are allowed in there."
+@DO MOVEBACK
+@end
+
+@#INFO
+;Guy who tells you junk in the funhouse ;126
+@do `p70 is 126
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do moveback
+@do `p20 random 7 1
+@if `p20 is 1 then saybar
+`%DJ: `0Don't listen to them about the mining caves, they're all gone.
+@if `p20 is 2 then saybar
+`%DJ: `0You do need to be careful of the prostitution here.
+@if `p20 is 3 then saybar
+`%DJ: `0Show us some more of those block rockin beats.
+@if `p20 is 4 then saybar
+`%DJ: `0I hear the Inn at Sosen Village is a virtual gold mine!
+@if `p20 is 5 then saybar
+`%DJ: `0There's a boat outta BoneTown, but not one too it.
+@if `p20 is 6 then saybar
+`%DJ: `0Careful, I hear the Inn here isn't the safest.
+@if `p20 is 7 then saybar
+`%DJ: `0Watch out for bounty hunters.
+@end
+
+@#EVENTS
+;Start for random events in BoneTown (tm)
+@busy
+@do `p20 random 3 1
+@do goto event`p20
+
+@#EVENT1
+;Mugged
+@busy
+@do `v01 is 1
+@show
+`r0`c `%`r1 EVENT - Mugged `r0
+
+ `2You proceed around the next corner when suddenly a hooded man jumps
+ you. He wields two daggers and seems to be wearing leather armor.
+ `0"My dear friend I'm afraid I'll have to ask you for a donation to my
+ cause, 1000 gold! You may give it kindly or I may take it from you.
+ Your choice."
+
+ `2What do you do:
+
+@do write
+`x`x
+@choice
+>&money 999 Give him the money
+Fight
+Run
+@if response is 1 then do
+ @begin
+ @do `v40 is 1000
+ @do `p30 is 23
+ @routine deposit in vaults.ref
+ @do money - 1000
+ @show
+`\`\ `0"You've made a wise decision. Now, have a good day." `2he says
+ as he turns and runs, dissapearing into the shadows.
+`\`k
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `$"Come on buddy, give me your best shot." `2you say as you whip out
+ your s&weapon.
+`\`k
+ @do goto tbattle
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `$"What's that over there?" `2you yell as you dash for the nearest
+ alley trying to escape.`k
+ @do `p20 random 2 1
+ @if `p20 is 1 then do
+ @begin
+ @show
+`\ `2You look behind your back just in time to see that `l.`l.`l.
+`\`k
+ @drawmap
+ @update
+ @do saybar
+`2You lost him.
+ @closescript
+ @end
+ @if `p20 is 2 then do
+ @begin
+ @show
+`\ `2You look behind your back just in time to see `l.`l.`l.
+`\`k
+ @do goto tbattle
+ @end
+ @end
+@drawmap
+@update
+
+@#EVENT2
+;Seeing a mugging
+@busy
+@do `v01 is 1
+@show
+`r0`c `%`r1 EVENT - Someone's being mugged `r0
+
+ `2You step around the corner when you notice a hooded man robbing a
+ defenseless drunken man. He wields two daggers and seems to be getting
+ ready to depart.
+
+ `2What do you do:
+
+@do write
+`x`x
+@choice
+Defend the poor man
+Help out the thief
+Leave
+@if response is 1 then do
+ @begin
+ @do `p07 + 1
+ @show
+`\`\ `2You run at the thief yelling and getting your s&weapon ready. He
+ sees you and quickly sheaths his daggers running to the shadows.
+ `0"You best hope I don't come across you first next time," `2he yells.
+ `2The drunken man he was robbing seems a daze from the whole thing. He
+ looks up at you, burps thanks and proceeds on his way. Some reward...
+`\`k `%YOUR ALIGNMENT GOES UP BY ONE!`0
+`\`k
+ @end
+@if response is 2 then do
+ @begin
+ @do `p20 random 290 310
+ @do money + `p20
+ @do `p07 - 2
+ @show
+`\`\ `2You head over and get your s&weapon ready. You kneel next to them
+ `$"Mind if I help buddy?" `2 you ask. He glares at you and seems surprised
+ but them nods, better you help him than the victim. You hold the poor man
+ down as the thief blows a fine powder in his eyes, then grabs his purse.
+ `0"Here you go buddy, thanks," `2he says and tosses you some of the loot.
+`\`k You get `$`p20 `2gold.
+`\`k `bYOUR ALIGNMENT GOES DOWN BY TWO!`b
+`\`k
+ @end
+@drawmap
+@update
+
+@#EVENT3
+;Turf Battle
+@busy
+@do `v01 is 1
+@show
+`r0`c `%`r1 EVENT - Turf War `r0
+
+ `2A small crowd seems to have formed. It looks like two groups disputing
+ over who owns this part of the town. One group looks a little bigger than
+ the other, but the others have better weapons it looks. The tension is
+ quickly mounting.
+
+ `2What do you do:
+
+@do write
+`x`x
+@choice
+Talk down the feud
+Help fight the big group
+Help fight the small group
+Kick both group's ass
+Leave
+@if response is 1 then do
+ @begin
+ @pauseoff
+ @show
+`\`\ `2You head over to the big mass, determined to make a difference. You
+ spout off some wisdom to the group, but it falls on deaf ears. The crowd
+ become rowdy after a club is thrown from one side. You find yourself in
+ the middle of a pretty bad feud. You try to get out of the battle but
+ end up fighting with both sides, only getting pretty hurt in the end.
+`\`k
+ @if `p02 > 10 then `p02 is 10
+ @do `p20 random 4 1
+ @if `p20 is 1 then do
+ @begin
+ @do `p07 + 1
+ @show
+ `bYOUR ALIGNMENT GOES UP BY ONE!`b
+`\`k
+ @end
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `$"Don't worry guys, I'll help ya," `2you scream as you enter the
+ fray.
+`\`k
+ @do goto BMOB
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `$"Yea, let's beat the hell into em guys" `2you say as you enter the
+ fray.
+`\`k
+ @do goto SMOB
+ @end
+@if response is 4 then do
+ @begin
+ @pauseoff
+ @show
+`\`\ `2You take out your s&weapon and head over to the group. You promptly
+ march to the center where the leaders seem to be. The crowd quiets and
+ angry eyes fall upon you."
+ `0"Who the hell are you?" `2you hear.
+ `$"I'm `n, Who wants some?"
+`\`k
+ @do goto BIGMOB
+ @end
+@drawmap
+@update
+
+@#TBATTLE
+@fight
+;name
+Thief
+;string said when you see him
+A man in a cloak approches you, with a dagger in each hand.
+;power move kill string
+He should know, you've got insurance.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+jabs with his daggers|57
+gets a good gash in your leg|80
+cuts your arm|60
+blows a strange powder into your eyes|59
+NONE|NONE
+;defense
+21
+;gold reward
+500
+;experience
+150
+;hit points
+100
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+BONE.REF|TLOSE
+;if runs: ref file|name or NONE
+NONE|NONE
+@drawmap
+@update
+
+@#BMOB
+@fight
+;name
+The Big Mob
+;string said when you see him
+You prepare to take on the big group with s&weapon in hand.
+;power move kill string
+`$"And stay away losers!!" `2you shout.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+dogpiles ontop of you very unsafely|70
+lines up and lashes into you|75
+practice with their clubs on you|67
+attempt to lynch you|87
+NONE|NONE
+;defense
+19
+;gold reward
+350
+;experience
+100
+;hit points
+130
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@drawmap
+@update
+
+@#SMOB
+@fight
+;name
+Small Mob
+;string said when you see him
+You prepare to take on the big group with s&weapon in hand.
+;power move kill string
+`$"And stay away losers!!" `2you shout.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+dogpiles ontop of you very unsafely|70
+lines up and lashes into you|75
+practice with their clubs on you|67
+attempt to lynch you|87
+NONE|NONE
+;defense
+18
+;gold reward
+315
+;experience
+80
+;hit points
+100
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@drawmap
+@update
+
+@#TLOSE
+@if &money > 999 then do
+ @begin
+ @do `v40 is 1000
+ @do `p30 is 23
+ @routine deposit in vaults.ref
+ @do money - 1000
+ @end
+@if &money < 1000 then do
+ @begin
+ @do `v40 is &money
+ @do `p30 is 23
+ @routine deposit in vaults.ref
+ @do money is 0
+ @end
+@SHOW
+`r0`c `r1`% Defeat by the Thief `r0
+
+ `2The Thief raises his daggers to deliver the last blow ...
+
+`k `0"Don't worry, I'm not going to kill you, just your purse so to speak.
+ So I'm sure you'll understand." `2He proceeds to raid your gold bag.
+ But again you have your life.
+
+`k
+@do `p02 is 5
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+
+@#BIGMOB
+@fight
+;name
+Big Mob
+;string said when you see him
+You prepare to take on both groups... with s&weapon in hand.
+;power move kill string
+`$"And stay out losers!!" `2you shout.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+dogpiles ontop of you very unsafely|70
+lines up and lashes into you|75
+practice with their clubs on you|67
+attempt to lynch you|87
+NONE|NONE
+;defense
+25
+;gold reward
+400
+;experience
+170
+;hit points
+220
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+BONE.REF|BMOBLOSE
+;if runs: ref file|name or NONE
+NONE|NONE
+@drawmap
+@update
+
+@#BMOBLOSE
+;Losing after fighting both mobs
+@SHOW
+`r0`c `r1`% Both mobs beat you `r0
+
+ `2Both mobs let out their agression on you. You seem to have stopped
+ their potential rampage, but at the cost of your severe beating.
+
+`k `0"Ready to go for a little trip justice s&boy?" `2laughs one of the
+ leaders. You're put into a sack and thrown into a wagon. Struggling and
+ in pain you manage to find a small hole to look out of. You see the city
+ walls of BoneTown pass by, seems like you're being lead out into the woods
+ a bit.
+ A minuet later you find yourself gasping for air hanging from a tree by a
+ rope. You hang on tough as you can, through the images you still get you
+ see the gang slowly start to head away, back to the city. Suddenly, the
+ rope gives!! And with a snap you fall to the ground, just barely alive.
+`\`k
+@do `p02 is 5
+ @loadmap 1413
+ @do map is 1413
+ @do x is 14
+ @do y is 9
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+
+@#RUIN
+;Message for seeing the arena
+@DO SAYBAR
+`2Looks like the ruins of something, but the sign says "Arena".
+
+@#DONE
+@drawmap
+@update
+@closescript
+
+@#nomore
diff --git a/xtrn/lord2/cnw/bong.ref b/xtrn/lord2/cnw/bong.ref
new file mode 100644
index 0000000000000000000000000000000000000000..205c2434e46e6246b7e822c623eadb7c4d679149
--- /dev/null
+++ b/xtrn/lord2/cnw/bong.ref
@@ -0,0 +1,119 @@
+; Script file BONG.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:34 2001
+
+@DECLARE start 000000202
+@DECLARE done 000002295
+@DECLARE toohigh 000002385
+@NOCHECK
+; End of .REF index
+
+@#start
+@datanewday bong.idf
+@dataload bong.idf &playernum `p20
+
+@IF `p20 is 1 then do
+ @begin
+ @DO GOTO toohigh
+ @end
+@CLEAR SCREEN
+@SHOW
+`7 STONEBROOK BONG
+
+
+
+
+
+
+
+`2 You walk into the museum with the bong (It's 20 feet high) in it
+you wonder what it would be like if you got high from it!!
+@key bottom
+@clear screen
+@show
+
+`3 A hippie comes up to you and tells you the options....
+
+
+
+@do `v01 is 1
+@choice
+"take a hit...."
+"Run away"
+"Converse with hippie"
+"Kick the hippie"
+"Offer them some Jamakin `@WEED"
+"let out a rip rourous fart"
+@if responce is 6 then do
+ @begin
+ @clear screen
+ @show
+`# You let out a HUGE fart and are kicked out of the Museum... with nothing
+to show for it!!!!
+@do `p20 is 1
+@do goto done
+@end
+@if responce is 5 then do
+ @begin
+ @clear screen
+ @show
+`@ You smoke some JAMAKIN with them mon.... you gain 20 turns for being so
+unselfish.
+ @do `p11 + 20
+ @do `p20 is 1
+@do goto done
+@end
+@if responce is 4 then do
+ @begin
+ @clear screen
+ @show
+
+`! "OWWWWWWW" The hippie screams "Why'd you do that???" You just shake your
+head laughing.... The hippie is mad now "You can't have any of my Jamakin
+`@weed `! now!! You feel so sad that you lose all but one hitpoint.
+ @do `p02 is 1
+ @do `p20 is 1
+@do goto done
+@end
+
+@if responce is 3 then do
+ @begin
+ @clear screen
+ @show
+`1 You walk up to the hippies... They stare at you with that high
+look you've come to know and love! "Hi how are you???" One answers
+"Not bad try some of this jamakin `@weed`1." You get `@S`!T`#O`4N`6E`7D!!`1
+And leave.
+
+@do `p20 is 1
+ @do goto done
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+ `@ You run away like a little girly man you trip on your own feet and lose
+ all but one hitpoint!
+ @do`p02 is 1
+ @do `p20 is 1
+ @end
+@clear screen
+@show
+
+
+`1 You take a HUGE hit off the bong and are so high you are stumbling!!
+You can see things that aren't normal!!! You gain 10 more turns do to your
+new enlightment!
+@do `p11 + 10
+@do goto done
+ @end
+@#DONE
+@datasave bong.idf &playernum 1
+@KEY BOTTOM
+@drawmap
+@update
+@closescript
+@#toohigh
+@do saybar
+ UH UH NOT AGAIN TODAY BUSTER!
+@closescript
+
+
+
diff --git a/xtrn/lord2/cnw/bordgard.clr b/xtrn/lord2/cnw/bordgard.clr
new file mode 100644
index 0000000000000000000000000000000000000000..140d3f10d375a3b8e94a6100653c9a462dcb00b8
--- /dev/null
+++ b/xtrn/lord2/cnw/bordgard.clr
@@ -0,0 +1,12 @@
+[?7h[255D[64C[0m��������
+[61Cܲ���������۲�
+[60C�����߲�������۲
+[60C�� [1;31m����[0m��[1;31m���� [0m۲
+[60C��[1;31m�� [0m� �� � [1;31m��[0m۲
+[60C��[1;31m�����[0m��[1;31m�����[0m��
+[60C߲ [1;31m��[0;31m��[1m��[0;31m߲[1m�� [0m��
+[64C[31m��������
+[58C[37m������ [31m۲���� [37m������
+[58C������� [31m���� [37m����� �
+[58C�� ������� ������ ��
+[60C� ��[8C� �
diff --git a/xtrn/lord2/cnw/bounty.ref b/xtrn/lord2/cnw/bounty.ref
new file mode 100644
index 0000000000000000000000000000000000000000..10f5c39c486850ea418c5112eb95db78ea37a62d
--- /dev/null
+++ b/xtrn/lord2/cnw/bounty.ref
@@ -0,0 +1,554 @@
+; Script file BOUNTY.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:15 2001
+
+@DECLARE bountylist 000000372
+@DECLARE readmore 000000573
+@DECLARE finished 000002265
+@DECLARE diehunt 000002292
+@DECLARE hunters 000006776
+@DECLARE bounty 000009065
+@DECLARE hunt 000009129
+@NOCHECK
+; End of .REF index
+
+;all bounty hunting stuff is done in here
+
+@#BOUNTYLIST
+ @show
+`r0`c `r1 Target Payoff Placed by Dead/Alive`r0
+
+@do move 27 5
+@do write
+`r1`%[reading, please wait]`r0
+@do `p21 is 1
+@do `p26 is 5
+@label readmore
+@if bounty.`p21 exist TRUE then do
+ @begin
+ @readfile bounty.`p21
+`p20
+`p22
+`p23
+ @if `p21 < 201 then do
+ @begin
+ @do `s05 is getname `p21
+ @end
+ @if `p21 > 200 then do
+ @begin
+ @do `p29 is `p21
+ @do `p29 - 200
+ @do `p70 is `p29
+ @routine getname in npcname.ref
+ @do `s05 is `s01
+ @end
+ @if `p20 is 0 then `s02 is King`xSysOp
+ @if `p20 > 0 then do
+ @begin
+ @if `p20 < 201 then do
+ @begin
+ @do `s02 is getname `p20
+ @end
+ @if `p20 > 200 then do
+ @begin
+ @do `p28 is `p20
+ @do `p28 - 200
+ @do `p70 is `p28
+ @routine getname in npcname.ref
+ @do `s02 is `s01
+ @end
+ @end
+ @do `s03 is `p22
+ @if `p23 is 0 then `s04 is Dead
+ @if `p23 is 1 then `s04 is Alive
+ @if `p23 is 2 then `s04 is Either
+; @do pad `s01 20
+; @do pad `s03 10
+@do move 27 `p26
+@do write
+`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+@do move 3 `p26
+@do write
+`s05
+@do move 21 `p26
+@do write
+`$$`s03 `2
+@do move 40 `p26
+@do write
+`s02
+@do move 65 `p26
+@do write
+`s04
+@do `p26 + 1
+@do move 27 `p26
+@do write
+`r1`%[reading, please wait]`r0
+ @end
+ @do `p21 + 1
+ @if `p21 < 401 then goto readmore
+
+@do move 27 `p26
+@do write
+`r1`% [end of list] `r0`\`k
+@if `p30 is 1 then do
+ @begin
+ @run taxes in sysop.ref
+ @end
+@if `p30 is 2 then do
+ @begin
+ @run bartend in bone.ref
+ @end
+@do goto bounty
+@label finished
+@closescript
+
+@#DIEHUNT
+;customized death for when a bounty hunter kills
+ @do X is 27
+ @do Y is 7
+ @do money is 0
+ @do `p02 is `p03 (give 'em max hit points)
+ @do `p20 is `p01
+ @do `p20 / 5
+ @do `p01 - `p20
+ @do MAP is 155
+ @do dead is 1
+ @update_update
+
+ @do talk `4Newsflash:`0`x`n`x`2was`x`bmurdered`x`2by`x`0`s01`2! all
+ @do addlog
+ `0`n`2 was `bmurdered`2 by bounty hunter `0`s01`2!
+ @routine seperate in gametxt.ref
+
+@pauseoff
+@show
+`r0`c
+[34C[0m���������������
+[29C���[1;30;47m����[0;47m�[1;30m�[0;47m�����������[40m�
+[28C�[1;30;47m����[0;47m������������������[40m�
+[27C�[1;30;47m����[0;47m��������[1;30m��[0;47m���������[40m�
+[19C��[5C�[1;30;47m����[0;47m����������[1;30m����[0;47m�����[40m
+[A[50C[47m[1;30m�[0m��
+[18C���� [1;30;47m�����[0;47m�����[1;30m� �[0;47m�[1;30m���[40m
+[A[43C[0;47m�����[1;30m�ܲ[0m�[47m�[1C[40m�[1;47m��[40m�
+[17C[30m�[47m�[0;47m��[1m�[0m� [1;30;47m���� [0;47m��[1;30m�[40m
+[A[34C[0;47m�[1;30m�����߰�[0;47m�[1;30m�[0;47m����[1;30m߲�[40m
+[A[52C[47m[0m�[1;30m�[47m�[0;47m�[1m�[40m�
+[17C[30;47m���[0;47m��[1m��[0m� [1;30m�[0m��� [1;30m�߲[47m[40m
+[A[37C[47m����[40m���[5C[0m��[1;30;47m�[40m�[47m��[0m� �
+[18C[1;30m���[47m��[0;47m� [1;30m�[1C[0m� [31m� [1;30m��
+[A[38C[47m���[40m� [0;31m� [37m��[1;30;47m�[40m�
+[23C[0m�[1;30;47m��[40m�[0m���� ��[1;30;47m�[0m��[1;30m�
+[A[41C[47m�[0m�� ��[1;47m�[0m�[1;30m�
+[25C[47m�[40m�[0m�[1;30;47m� [0;47m��[1;30m�����[0m� [1;30m� [0m�
+[A[42C[1;30;47m����[0;47m����[1m��[0m�
+[26C�[1;30;47m�[0;47m����[1;30mܲ��[0;47m�[2C[1;30;40m�� [47m��[40m
+[A[44C[47m�[0;47m�����[40m��
+[27C���[1;30;47m��[40m���[47m�[0m��[1;30;47m�����[40m��[0m� ����
+[29C[1;30m�� �� [0m��[1;30m�� �[0m�[1;30m� �� [47m��[0m�
+[27C�[1;30;47m���[40m� � [47m�[0m�[1;47m��[40m��[0m��[1;30;47m[40m
+[A[43C[47m�[40m� � [47m��[0;47m�[40m�
+[22C[1m� [47m��[30m��[40m� [0m� [1;30m� [0m� �[1m� �[0m� �
+[A[45C[1;30m��[47m�[1C[0m�[47m [1m�[40m���
+[19C�[47m�����[30m�[0m�� ���[1;30;47m�[0;47m�[40m�� ����� ��
+[A[45C[1;30;47m��[0;47m��[40m� �[1;30;47m�[37m��[40m�[47m�[40m
+[19C[0;31m� [37m���[1;30;47m�[40m�[0;33mܲ�� [37m�[1;47m��[30m[40m
+[A[34C[47m�[0;47m���[1;30m��[0;47m���� [1m��[0m� [33m���[1;30m�
+[A[53C[47m�[0m��[31m�
+[17C�����[37m�[1;30m�[0;31m���[33;41m����[40m� [37m�[1;47m�[40m
+[A[35C[0;47m��[1;30mܱ[40m�[47m��[40m�[47m�[37m�[0m� [31m�
+[A[48C[33;41m���[31;40m��[1;30m�[0;31m��۲��
+
+ `%You have made an error, s&boy.
+
+`k
+ @if `v03 is 0 then do
+ @begin
+ ;rules.ref file says unlimited deaths not allowed, so we will boot them
+ ;till tomorrow
+
+ ;take them off the map
+ @do map is 1
+ @halt
+ @end
+
+ @pauseon
+
+ @do dead is 0
+
+ @if `p07 less 0 then do
+ @begin
+ @show
+`r0`c`% `r1IT FEELS KINDA WARM IN HERE?`r0
+
+ `4You open your eyes.
+
+`k `4There are naked screaming people all around you. A little boy with
+ a ghastly face begins to gnaw on your leg.
+
+`k `6"Din, leave the newcomer alone. S&he isn't staying." `4a slow voice that
+ can only be described as an abomination dolefully states.
+
+`k `2You feel yourself floating away... faster and faster.
+ @end
+
+ @if `p07 more -1 then do
+ @begin
+ @show
+`r0`c`% `r1APPARENTLY DEATH ISN'T THE END.`r0
+
+ `2You open your eyes.
+
+`k `2You are lying on a table of solid rock in a marble room. Hundreds of
+ soft voices are murmuring all around you, but you see no one.
+
+`k `%"Send s&him back." `2a voice whispers, this one louder than the others.
+
+`k `2You feel yourself floating away... faster and faster.
+
+`k
+ @end
+
+
+@show
+`c `r1`%AWAKENING.`r0
+
+ `0"Can you hear me, `n?" `2a stressed voice shouts.
+
+ `$"Yeah. Christ mom, lemmie up, I'm fine." `2you assure your mother.
+
+ `0"You're alive!! The elders brought your body here yesterday, you must
+ have fainted out there." `2your mother shouts, tears of joy streaming down
+ her wrinkled face.
+
+ `$"Ok, ok - nice little happy reunion and all that, but I gotta hit the
+ road now. Buhbye." `2you tell her. Afterall, you need to make the most of
+ this new lease on life.
+
+ `2You lose `4half`2 the gold you were carrying and `4`p20`2 experience.
+
+`k
+ @loadmap map
+ @drawmap
+ @update
+
+
+@#HUNTERS
+;called from genran, it's the .ref called when someone meets up with a
+;bounty hunter
+@do `p20 random 6 1
+@if `p20 is 1 then `s01 is Job
+@if `p20 is 2 then `s01 is Kasabo
+@if `p20 is 3 then `s01 is Year
+@if `p20 is 4 then `s01 is Sedahk
+@if `p20 is 5 then `s01 is Eudor
+@if `p20 is 6 then `s01 is Greenie
+
+
+ @if bounty.&playernum exist false then do
+ @begin
+ @do saybar
+Bounty hunter `s01 and his men pass close by.
+ @closescript
+ @end
+
+ @readfile bounty.&playernum
+`p23
+`p24
+`p25
+@if `p25 is 0 then `s04 is Dead
+@if `p25 is 1 then `s04 is Alive
+@if `p25 is 2 then `s04 is Dead`xor`xAlive
+@do `v01 is 1
+@show
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2You are suddenly surounded. Press ENTER to continue...
+@do readspecial `s02 `x
+
+
+
+ @show
+`r0`c `r1 A deal, perhaps? `r0
+
+ `2It is `s01 and his men. Looks like you are screwed.
+
+ `0"There is a price on your head, friend. A price of `$`$`p24`0."
+
+ `0"You are wanted `s04."
+@do write
+`x`x
+@choice
+I know this, `s01. I will pay you the same amount to pass me by.
+Please don't hurt me! I'll do anything!
+@show
+`\
+@if responce is 1 then do
+ @begin
+ @do `p25 is `p24
+ @do `p25 - 1
+ @if money > `p25 then do
+ @begin
+ @do money - `p24
+ @show
+ `0"Very well. But next time I may not be so friendly.. I do have a
+ reputation to uphold!" `2`s01 grunts as he takes your money.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+@show
+ `2You reach into your pockets and pull out some.. lint.
+
+ @end
+;they might get killed here
+@show
+ `0"Kill him!" `2`s01 roars.
+
+@do `p26 random 3 1
+@if `p26 NOT 1 then do
+ @begin
+ ;dies
+ @do delete bounty.&playernum
+ @writefile mail\mail`p23.dat
+ `0Bounty hunter `s01 reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has been `4killed`2. Good doing business with you.
+
+ @show
+ `2You are unable to escape. You are still alive when `s01 begins to
+ remove his price - your head.
+
+`k
+ @run diehunt
+ @end
+@show
+ `2You hack your way through the crowd, you are a mighty warrior!
+
+`k `%YOU ESCAPE. `2But this may happen again - until your bounty is
+ paid off - or you are killed.
+
+`k
+@drawmap
+@update
+
+@#BOUNTY
+;The Bounty Hunting Office
+@OFFMAP
+@DO MOVEBACK
+@label hunt
+@DO `v01 is 1
+@SHOW
+`r0`c `r1 Bounty Office `r0
+
+ `2A helmeted man with a crossbow slung to his side stands behind the
+ counter. He looks looks well seasoned and speaks with a raspy voice,
+ `0"Good afternoon, how may we ... help you?"`2
+
+`2 You see the word `0'Nickabrick' `2carved into his arm.
+
+@DO WRITE
+`x`x
+@CHOICE
+View bounty list
+Place a bounty
+Pay off your own bounty
+Ask for advice
+Check out their weapons
+Conduct 'business' with Nickabrick
+Leave, quick!!
+@if response is 6 then do
+ @begin
+ @do `p20 is 3
+ @run getquest in quest.ref
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do `p30 is 0
+ @routine bountylist
+@do goto hunt
+@end
+
+@IF RESPONSE IS 2 THEN DO
+ @BEGIN
+ @SHOW
+`r0`c `r1 Playing dirty `r0
+`\ `$"I need to make someone's life hard, can you help?,"`2 you say.
+
+ `0"Of course... who is our lucky winner?"
+ @chooseplayer `p22
+ @if `p22 is 0 then do
+ @begin
+ @show
+`k
+ @do goto hunt
+ @end
+ @if `p22 is &playernum then do
+ @begin
+ @show
+ `0"Ha, I like the concept!" `2Nickabrick laughs. You must have amused him
+ in some small way.`\`\`k
+ @do goto hunt
+ @end
+ @show
+ `0"Of course. How much money are you willing to place?"`2 he asks calmly.
+
+ @do write
+`x`x
+ @do readnum 30
+ @do `p20 is `v40
+ @if `p20 < 1000 then do
+ @begin
+ @show
+`\`\ `0"Minimum bounty is `$1000`0, friend."
+`\`k
+ @do goto hunt
+ @end
+ @show
+
+ @if money < `p20 then do
+ @begin
+ @show
+`\ `2You don't have that much gold on you... Better hit the bank.
+
+`k
+ @do goto hunt
+ @end
+ @do money - `p20
+@show
+
+
+ @if bounty.`p22 exist true then do
+ @begin
+ @readfile bounty.`p22
+`p23
+`p24
+`p25
+ @if `p23 not &playernum then do
+ @begin
+ @if `p24 > `p20 then do
+ @begin
+ @show
+ `0"There is a problem. Someone has already placed a bounty on that
+ person.. Of course, we will let you do anything for a price. Try an
+ amount that is at least `$$`p24 `0and we'll think about it."
+`\`k
+ @do goto hunt
+ @end
+ @end
+ @do `p20 + `p24
+ @end
+
+ @do `s05 is getname `p22
+ @do delete bounty.`p22
+ @writefile bounty.`p22
+&playernum
+`p20
+0
+ @do addlog
+ `0`n `2has set a bounty of `$`p20 `2to kill `0`s05`2!
+ @routine seperate in gametxt.ref
+
+ @show
+ `0"Alright. The bounty has been placed... The only way to get out of it
+ is if `s05 gets in here and pays it off... or death of course."
+
+`k
+ @do goto hunt
+ @END
+
+@IF RESPONSE IS 3 THEN DO
+ @BEGIN
+ @SHOW
+`r0`c `r1 `%Cutting a deal `r0
+
+ `$"Someone hates me, but I have more money than them. Please stop
+ chasing me."`2 you state.
+
+@if bounty.&playernum exist false then do
+ @begin
+ @show
+ `0"Huh? You are not marked by us. Not yet."
+
+ `2You turn bright red. `$"I, I uh, knew that..."
+`\`k
+ @do goto hunt
+ @end
+ @readfile bounty.&playernum
+`p20
+`p21
+ @show
+ `0"It will cost you `$$`p21 `0to clear your name. Can you pay it?"
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Yes, I can `2(you have `0`$$&money`2)
+I cannot pay it
+@if responce is 1 then do
+ @begin
+ @if money < `p21 then do
+ @begin
+ @do money / 2
+ @show
+`\`\ `0"Very well, where is the gold?"`2
+
+`2 You search your pockets desperately. A few moments later you are
+ outside with quite a bruise and some money missing.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @do money - `p21
+ @do delete bounty.&playernum
+ @do addlog
+ `0`n `2convinces the Bounty Hunter Guild to stop chasing s&him.
+ @routine seperate in gametxt.ref
+@show
+`\`\ `0"Very well, now you're no good to me dead."`2
+`\`k
+ @do goto hunt
+ @end
+@do goto hunt
+ @END
+@IF RESPONSE IS 4 THEN DO
+ @BEGIN
+ @SHOW
+`\`\ `$"Excuse me, could you give me some advice?"`2 you ask.
+
+`k `0"Money makes the world go around. And if you have enough when we
+ catch up with you it just might save ya."`2 he offers.
+`\`k
+@do goto hunt
+ @END
+@IF RESPONSE IS 5 THEN DO
+@Begin
+@Show
+`\`\ `$"I'm kinda in the business myself," `2you say. `$"What tools do you
+ recommend?" `2He smiles, `0"These have helped many a hunter..."
+ `2You review your choices.
+
+`k
+@show
+`r0`c `r1 `%Bounty Hunting weapons
+
+
+@buymanager
+4
+12
+38
+49
+40
+@do goto hunt
+@End
+@drawmap
+@update
+@end
diff --git a/xtrn/lord2/cnw/breanna.ref b/xtrn/lord2/cnw/breanna.ref
new file mode 100644
index 0000000000000000000000000000000000000000..cca725ceee3fcfaab750c51cc5d141105eb75e78
--- /dev/null
+++ b/xtrn/lord2/cnw/breanna.ref
@@ -0,0 +1,394 @@
+; Script file BREANNA.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:17 2001
+
+@DECLARE student 000000637
+@DECLARE start1 000001065
+@DECLARE start2 000001300
+@DECLARE master_first 000001517
+@DECLARE startmaster 000001893
+@DECLARE round2 000008186
+@DECLARE round3 000008644
+@DECLARE roundfinal 000009108
+@DECLARE fail 000010682
+@DECLARE nottoday 000011570
+@DECLARE nomore 000011737
+@NOCHECK
+; End of .REF index
+
+;Breanna's Cove
+;Location: West of Porttown
+;Setting: Small hut adjacent to a cove
+
+;Interior
+; - Young girl cooking at fireplace. (user should approach him first)
+; - Breanna
+; - Table
+
+@#student
+ @busy
+ @show
+`r0`c `%`r1 Talking to Julia `r0
+
+`2 "`$Ummmm... smells good. Watcha cooking?`2"
+
+`k`2 "`0A potion for my master. She is a wise woman and I fear she will
+ not survive much longer. She is so old.`2" she sighs wistfully.
+
+`k`2 "`0Remember when you talk to her that only fear can defeat you and
+`0 you will do well.`2"`\`\`k
+ @do moveback
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#start1
+@do moveback
+@datanewday breanna1.idf
+@dataload breanna1.idf &playernum `p20
+@if `p20 not 1 then do
+@begin
+@do goto start2
+@closescript
+@end
+
+@do saybar
+`$I am too tired to continue today. Come see me tomorrow.
+
+@#start2
+@do moveback
+@dataload breanna2.idf &playernum `p20
+@if `p20 not 1 then do
+@begin
+@do goto master_first
+@closescript
+@end
+
+@do saybar
+`$I have nothing left to give. Good luck warrior.
+
+
+
+@#master_first
+@busy
+@show
+`r0`c `%`r1 Talking to Breanna `r0
+
+
+`2 "`0Long have I waited for one such as you `n.`2" Her voice is weak
+ and she seems to be in some pain.
+
+`k`$ "How do you know my name?"
+
+`k`2 "`0We have no time for that. My hour draws near. Are you ready to
+ begin?`2" she ask. Although faint, her voice is sharp and commanding.
+
+`k
+@label startmaster
+@do `v01 is 1
+@choice
+"So just what is it that we are to begin?"
+"I have time. How can I help you old woman?"
+"Maybe next time."
+@IF RESPONSE IS 1 THEN DO
+@Begin
+@Show
+`r0`c `%`r1 Talking to Breanna `r0
+`\`\ `2"`0If you must waste precious time then waste your own. I have too
+ little left as it is.`2"
+`\`k
+@do goto startmaster
+@End
+@IF RESPONSE IS 3 THEN DO
+@Begin
+@Show
+`r0`c `%`r1 Talking to Breanna `r0
+`\`\ `2"`$Sorry old woman but I am on a quest already and it pays more then it
+ looks like you could do. Maybe I will stop by again some other
+ time.`2" you lie to her.
+
+`k "`0Do not wait too long warrior. Even now death is approaching my
+ door.`2" she remarks sadly.
+
+`k You feel a strange twinge and wonder if you made the right decision.
+`\`k
+@datasave breanna1.idf &playernum 1
+@DO MOVEBACK
+@DRAWMAP
+@UPDATE
+@closescript
+@End
+@IF RESPONSE IS 2 THEN DO
+@Begin
+@PAUSEOFF
+@do `p02 is `p03
+@Show
+`r0`c `%`r1 Talking to Breanna `r0
+`\`\ `2Her gaze draws your eyes to her and you see a strength in them that
+ her body has long forgotten. You feel her strength flowing into your body.
+`\`k`0 "And so it begins.`l.`l.`l.`l.
+
+
+`r0`c `%`r1 The Forest `r0
+`\`\ `2You feel dazed and confused as if awakening in a strange room. The
+ last thing you remember was walking down the shore line in route to Flag
+ City. The armour and weapons you carried then are gone.
+
+`k Where am I you wonder. Around you is a forest that seems faintly familiar
+ yet you know you haven't been here before. A strong odor is in the air that
+ you can not place although it too seems familiar. Looming in front of you
+ is the entrance to a large cave.
+
+`k Without thought you start in the direction of the cave only to be overcome
+ with nausea. With each step the bile seems to rise higher in your throat.
+ Somehow you know the cave holds answers that you need. You spit and
+ purposely stride forward.
+
+`k
+`r0`c `%`r1 Inside the cave `r0
+
+`2 The odor in the cave is overwhelming. This isn't doing a thing to help
+ your stomach and you fear you may loose what little food you have eaten
+ today.
+
+`k`1
+@CLEAR SCREEN
+@SHOW
+
+[?7h[40m[2J[2;1H[1C[0;31m��� � �[33m�[31m�[33m���������������� [s
+[u[31m� �[33m� [31m�[33m�� ����������������������������[s
+[u[31;43m�[33;40m�[31m��[33m�[31m� ��[30;41m�[3;1H[1C[40m[s
+[u[31;40m� [30;47m��[37;40m����[1;47m�[0m���[30;47m�[37;40m���[s
+[u[30;47m�[37;40m� �[30;47m��[1C[43m [1C[41m��[31;40m���[s
+[u[30;41m�[31;40m� [33m-Legend of the Red Dragon-[6C[31m� ߲ �
+[4;1H [33;41m�[1C[30;47m�[37;40m�[30;47m��[1C[37;40m��[s
+[u[31;47m�[37;40m�[30;47m�[1C[37;40m�����[47m [31m�[40m[s
+[u[37;40m� [43m [1C[30;41m�[33m�[31;40m� �[33;41m�[30m�[40m[s
+[u[32C[33m� [31m� [43m�[5;1H[1C[33;41m�[1C[30;47m�[40m[s
+[u[37;40m��[1;47m�[0m�[30;47m�[37;40m��� �� �[1;47m�[0m��[s
+[u[31;47m�[37;40m� [43m [1C[31;40m�[33;41m�[31;40m� �[s
+[u[33;41m�[30m�[1C[31;40m����[30;41m�[31;40m����[30;41m�[40m[s
+[u[31;40m� [30;41m�[31;40m��[41m [2C[30m�[31;40m�� [43m�[40m[s
+[u[40m���[43m�[40m� [43m�[40m��[6;1H [33;41m�[1C[37;40m�[s
+[u[31;47m�[37;40m�� � [1;30m��� � [0m�[1;47m߰[0m��� [43m [40m[s
+[u[1C[31m�[33;41m�[31;40m� �[33;41m�[31;40m� [43m��[1C[40m[s
+[u[40m�[43m�[40m����[43m�[40m� [30;41m�[1C[31;40m�[43m�[40m[s
+[u[30;41m�[1C�[1C[31;40m� [43m�[40m� [43m�[40m� ���[s
+[u[43m�[7;1H[1C[33;40m� [37m�[31;47m�[1;37mܲ[0m�� [1;30m� � �[s
+[u [0m����[31;47m�[1C[43m [1C[41m [33m�[31;40m� �[s
+[u[33;41m��[31;40m��[43m��[2C[40m�[43m�[1C[40m��[43m��[40m[s
+[u[1C� �[43m�[40m� � �[43m�[40m� [43m�[40m� [43m۰[40m�[5C[s
+[u[43m�[8;1H[1C[33;40m� [1;30;47m�[0m� [1;47m� [0;30;47m�[40m[s
+[u[1C[1m� � [0m�[1;47m�߱[0m�� [43m [1C[31;40m������ ��� [s
+[u��� �� ���[43m�[40m� ���� ��� ��� ���� [43m [9;1H[1C[40m[s
+[u[33;40m� [37m����� [1;30m�[7C[37;47m�[0m���� [31;43m�[40m[s
+[u[8C[30;41m�[31;40m�[30;41m�[9C[31;40m�[43m��[1C[40m�[s
+[u[43m [40m�[19C� [33m�[10;1H �������������������� � [31;43m[40m[s
+[u[43m�[1C[40m�[6C[30;41m�[31;43m�[40m�[10C�����[12Cܲ�[7C[s
+[u[33m�[11;1H �[22C[31;43m�[1C[40m�[6C[30;41m�[31;43m�[40m[s
+[u[40m�[5C�����[30;41m�[31;40m� ��� [30;41m�[31;40m����[s
+[u[30;41m�[31;40m� � �[6C[33m�[12;1H � [31m[[33mA[31m][33mt[s
+[utack the dragon [31;43m�[1C[40m�[6C�[43m�[40m�[5C�[s
+[u[30;41m�[31;40m����� [30;41m�[31;43m�[40m� [30;41m�[40m[s
+[u[31;43m�[40m� �[43m�[40m�[11C� [33m�[13;1H � [31m[[33mR[31m[s
+[u][33mun like a baby � [31m�[6C�[43m �[1C[40m�[43m��[40m[s
+[u[40m��[41m [1C[40m��[43m�[40m� [43m۰[40m� �[43m�[40m�[15C[s
+[u� [33m�[14;1H �[22C� [31m�� � �������� ��� �� ��� ���[12C� �� [s
+[u[33m�[15;1H � [31m� ��[33m�[31m�[33m���������������������������[s
+[u��������������������������[31m� [33m��[31m� [33m�[31m� � [33m�
+[16;1H � As if thing weren't bad enough already you hear a low rumble c[s
+[uome from�[17;1H � deep within the cave. Your bowels immediately turn[s
+[u to water and sweat �[18;1H [31;43m�[1C[33;40mbeads on your foreh[s
+[uead. You instictively reach for a weapon that you [41m�[19;1H[40m[s
+[u[1C[31;43m�[1C[33;40mno longer have. A gutteral moan escapes fro[s
+[um between you lips.[7C[41m�[20;1H[1C[31;43m�[71C[33;41m�[40m
+[21;1H [31m� � �[33m� [31m�[33m�� [31m�[33m����������������������[s
+[u�����������������������������������[31m�[33m�[31m��[0m
+@do `v01 is 1
+@end
+@PAUSEON
+@SHOW
+`\`2Your Command, `0`n`2? [`5A`2] :`x
+@DO READSPECIAL `s01 AR
+@if `s01 is A then do
+ @BEGIN
+ @show
+`r0`c `r1 `%Dragon Encounter. `r0
+
+`2 The `4Red Dragon `2approaches.
+
+ Your skill allows you to get the first strike.
+
+`2 Your Hitpoints : `0`p02
+`2 The `4Red Dragon's `2Hitpoints : `015,000
+
+`2 (`5A`2)ttack
+`2 (`5R`2)un
+
+`\`2 Your Command, `0`n`2? [`5A`2] :`x
+@DO GOTO ROUND2
+@closescript
+@end
+
+@DO GOTO fail
+
+@LABEL ROUND2
+@DO READSPECIAL `s01 AR
+@if `s01 is A then do
+@do `p02 / 2
+ @BEGIN
+ @show
+`r0`c `r1 `%Dragon Encounter. `r0
+
+`4 **`2 The `4Red Dragon `2hits with it's `0Huge Claws `2. `4**
+
+`2 You attack, swinging your bone wildly.
+
+`2 Your Hitpoints : `0`p02
+`2 The `4Red Dragon's `2Hitpoints : `09,875
+
+`2 (`5A`2)ttack
+`2 (`5R`2)un
+
+`\`2 Your Command, `0`n`2? [`5A`2] :`x
+@DO GOTO ROUND3
+@closescript
+@end
+
+@DO GOTO fail
+
+@LABEL ROUND3
+@DO READSPECIAL `s01 AR
+@if `s01 is A then do
+@do `p02 / 2
+ @BEGIN
+ @show
+`r0`c `r1 `%Dragon Encounter. `r0
+
+`4 **`2 The `4Red Dragon `2hits with it's `0Huge Claws `2. `4**
+
+`2 You strike hoping to hit a soft spot.
+
+`2 Your Hitpoints : `0`p02
+`2 The `4Red Dragon's `2Hitpoints : `07,036
+
+`2 (`5A`2)ttack
+`2 (`5R`2)un
+
+`\`2 Your Command, `0`n`2? [`5A`2] :`x
+@DO GOTO ROUNDFINAL
+@closescript
+@end
+
+@DO GOTO fail
+
+@LABEL ROUNDFINAL
+@DO READSPECIAL `s01 AR
+@if `s01 is A then do
+@do `p02 / 2
+ @BEGIN
+ @show
+`r0`c
+`2 With a yell you launch yourself at your foe sure that you will fail but
+ hoping for a quick and painless death.
+
+`k`r0`c `r1 `%Breanna's Hut `r0
+
+`2 You slam into the wall and the old hut creaks as though tossed in a
+ storm. You spin around looking for the dragon only to find the old
+ woman calmly watching you.
+
+`k`2 "`0You have done well.`2" she said. Her voice is stronger and her
+ bearing a little more erect as if a heavy burden has been removed from
+ her shoulders.
+
+`k`2 "`$WHERE IS THE DRAGON`2?" you scream, still lost in the nightmare.
+
+`k`2 "`0The dragon was only an illusion. The test is complete. You are
+ safe... for now`2.
+
+`k`2 "`$So I beat the dragon`2?" you say, standing a little more erect.
+
+`k`r0`c `r1 `%Breanna's Hut `r0
+
+`2 "`0The test was not if you would win or lose but rather to see if you
+ had the strength and conviction to try.`2"
+
+`2 "`0Within your breast beats the heart of a warrior. It is not within my
+ powers to read your conscience so I can only hope you use my gift wisely.`2"
+
+`k
+
+`2 You gain `02 `2Muscle and `01 `2Dodge
+
+`k
+@do `p22 is 2
+@do `p04 + `p22
+
+@do `p23 is 1
+@do `p05 + `p23
+
+@do `p02 is `p03
+
+@datasave breanna2.idf &playernum 1
+@do addlog
+ `r5 `r0 `0`n `2 has received Breanna's blessing. `r5 `r0
+@do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+
+@DO MOVEBACK
+@DRAWMAP
+@UPDATE
+@closescript
+@End
+
+
+@DO GOTO fail
+
+
+@label fail
+@show
+`r0`c `r1 `%Breanna's Hut `r0
+
+`2 You whirl around to run from the cave...
+
+`2 You slam into the wall and the old hut croaks as though tossed in a
+ storm. You spin around looking for the dragon only to find the old
+ woman starring at you. She seems to have aged even more since you last
+ saw her.
+
+`k`2 "`0You have failed.`2" she said. Her voice is barely a whisper.
+
+`k`2 "`$WHERE IS THE DRAGON`2?" you scream, still lost in the nightmare.
+
+`k`2 "`0The dragon was only an illusion. You are safe now. Return to me
+ when your heart is not so consumed by petty things`2."
+
+`k
+@datasave breanna1.idf &playernum 1
+@do addlog
+ `r5 `r0 `0`n `2was seen with wet pants and crying for s&his mommy. `r5 `r0
+@do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@end
+
+@PAUSEON
+@END
+@DO MOVEBACK
+@DRAWMAP
+@UPDATE
+@End
+
+@#nottoday
+ @busy
+ @show
+`r0`c `%`r1 Talking to Breanna `r0
+
+`k`2 "`0I am too tired today.`2"`\`\`k
+ @do moveback
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+@#nomore
diff --git a/xtrn/lord2/cnw/bunfig.ref b/xtrn/lord2/cnw/bunfig.ref
new file mode 100644
index 0000000000000000000000000000000000000000..517dc2f8f6b8d8555998f138ed67b4c713114b96
--- /dev/null
+++ b/xtrn/lord2/cnw/bunfig.ref
@@ -0,0 +1,48 @@
+; Script file BUNFIG.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:43 2001
+
+@DECLARE monster1 000000183
+@DECLARE fight 000000657
+@NOCHECK
+; End of .REF index
+
+@#monster1
+@fight
+;name
+Bunny
+;string said when you see him
+Mr. Bunny!!!!
+;power move kill string
+Too easy
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+jumps on you|20
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+20
+;gold reward
+20
+;experience
+20
+;hit points
+20
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+
+
+@#FIGHT
+@do `p20 random 12 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@busy
+@do goto monster1
diff --git a/xtrn/lord2/cnw/bunny.ref b/xtrn/lord2/cnw/bunny.ref
new file mode 100644
index 0000000000000000000000000000000000000000..06f5a49e69bb6db3edaee1a47bec18e3d3d66c00
--- /dev/null
+++ b/xtrn/lord2/cnw/bunny.ref
@@ -0,0 +1,870 @@
+; Script file BUNNY.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:43 2001
+
+@DECLARE rndbunny 000001034
+@DECLARE eggdye 000001115
+@DECLARE bridgeout 000002400
+@DECLARE bunny1 000004339
+@DECLARE bunny2 000004902
+@DECLARE bunny3 000005504
+@DECLARE bunny4 000006050
+@DECLARE bunny5 000006599
+@DECLARE bunny6 000007128
+@DECLARE bunny7 000007713
+@DECLARE bunny8 000008294
+@DECLARE bunny9 000008797
+@DECLARE bunny10 000009396
+@DECLARE easter 000009941
+@DECLARE runeb 000010658
+@DECLARE runbat 000011057
+@DECLARE battery 000011484
+@DECLARE prefight 000012196
+@DECLARE deadbat 000012591
+@DECLARE door1 000012800
+@DECLARE door2 000013361
+@DECLARE door3 000013707
+@DECLARE kille 000015112
+@DECLARE drycell 000015322
+@DECLARE oldman 000016264
+@DECLARE ebunny 000018470
+@DECLARE nomore 000019286
+@NOCHECK
+; End of .REF index
+
+; The Bunny Cave IGM v1.01
+; By Tom Torbeck for LORD2 v1.01+
+; You can contact the author via the internet: Tom@leftside.com
+@#rndbunny
+@busy
+@do `p20 random 10 1
+@routine prefight
+@do goto bunny`p20
+
+@#eggdye
+@dataload bunny.idf &playernum `p30
+@busy
+@do moveback
+@show
+`r0`c`!`r1The Paint Shop`r0
+
+`2The work bench in this room has all kinds of paints, dyes, and brushes
+on it. They are used to color eggs. But there is something special about
+these paints. They are magic!
+
+@if `p30 more 4 then do
+ @begin
+ @show
+`3Too bad they are all dried up. You may have found a use for them.
+
+ @key
+ @drawmap
+ @update
+ @closescript
+ @end
+@if `i43 less 1 then do
+ @begin
+ @show
+`3Now if you could only figure out what to do with the paints...
+
+ @key
+ @drawmap
+ @update
+ @closescript
+ @end
+@do `v01 is 1
+@choice
+Leave
+Hey! Why don't I paint an egg?!?
+@if responce is 1 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+`\
+`2You sit down with one of your eggs and take a long look at it. After
+selecting a brush, you spend the next few hours working on your egg with
+the magic paints. It all leaves you feeling just a little better about
+yourself.
+
+`#You Gain One Charm Point!
+
+ @do `p08 + 1
+ @do `i43 - 1
+ @datasave bunny.idf &playernum 5
+ @key
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#bridgeout
+@busy
+@show
+`r0`c`$`r4The Bridge is Out!`r0
+`3The bridge here is out. Below you can hear the sound of fast moving
+water. By the sounds of it, there one heck of a drop before you would
+even make contact with the water. The gap across is about twelve or
+fifteen feet wide. The wood is a little slippery, so that will make
+the jump a little more difficult.
+
+@do `v01 is 2
+@choice
+I'll brave the jump
+Turn back now
+@if responce is 2 then do
+ @begin
+ @do moveback
+ @drawmap
+ @update
+ @closescript
+ @end
+@if &lastx is 55 then `p21 is 53
+@if &lastx is 53 then `p21 is 55
+@if &lastx is 38 then `p21 is 36
+@if &lastx is 36 then `p21 is 38
+; Formula = If `p05 + rnd(100) < 80 fall down...
+; get the location (x=`p21)
+@do `p20 random 100 `p05
+@if `p20 less 80 then do
+ @begin
+ @do moveback
+ @show
+`r0`c`$`r1I missed it by THAT MUCH!`r0
+
+`2You try to make it across to the other side, but you fail. As gravity
+would have it, you fall....and fall...and fall. Finally, after what seems
+to be forever you impact in the water below.
+`\
+`2The water is near freezing and there is a very strong current in this
+underground river. The current carries you along without mercy, all the
+time you are strugling and getting no where. A few seconds later you can
+hear the mounting sound of a waterfall. You are in total darkness, so you
+cannot even tell if there is something to grab onto or not.
+`\
+`2Eventually, you locate the edge of the falls and begin to plummet once
+again, bouncing off rocks as you cascade down with the water. You think
+to yourself, `3Self, this just plain sucks! `2You never do recall hitting
+the bottom.....
+`\
+ @key
+ @do enemy is a`xfall`xto`xs&his`xdeath
+ @routine die in gametxt.ref
+ @end
+
+@if `p20 more 79 then do
+ @begin
+ @do x is `p21
+ @drawmap
+ @update
+ @do saybar
+`%You Made It!
+ @end
+
+@#bunny1
+@fight
+;name
+Pet Bunny
+;string said when you see him
+`2Is that a sword or a carrot the bunny has...
+;power move kill string
+`2Anybody for rabbit stew??
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+jabs you with a carrot|`p24
+kicks with his hind legs|`p24
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+26
+;experience
+`p22
+;hit points
+`p21
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#bunny2
+@fight
+;name
+Cartoon Bunny
+;string said when you see him
+`0"Eh? What's Up Doc?"`2, says the bunny.
+;power move kill string
+`%THAT'S ALL FOLKS!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+jabs you with his carrot|`p24
+kicks with his hind legs|`p24
+drops an anvil on you|`p24
+hands you a bomb|`p24
+gives you a big kiss|`p24
+;defense
+`p23
+;gold reward
+101
+;experience
+`p22
+;hit points
+`p21
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#bunny3
+@fight
+;name
+Playboy Bunny
+;string said when you see him
+`2HUBBA! HUBBA!
+;power move kill string
+`%Cheap Hussy!
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+throws high heel shoe|`p24
+wants to talk|`p24
+smother with knockers|`p24
+choke with feather boa|`p24
+NONE|NONE
+;defense
+`p23
+;gold reward
+69
+;experience
+`p22
+;hit points
+`p21
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#bunny4
+@fight
+;name
+Man-Eatting Bunny
+;string said when you see him
+`2Big Surprises come in small bunny suits
+;power move kill string
+`%The world is a safer place...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bite|`p24
+gives you rabies|`p24
+BIG bite|`p24
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+123
+;experience
+`p22
+;hit points
+`p21
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#bunny5
+@fight
+;name
+Cute Pink Bunny
+;string said when you see him
+`2PINK??? That is weird.
+;power move kill string
+`2Splat!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+jabs you with a carrot|`p24
+kicks with his hind legs|`p24
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+26
+;experience
+`p22
+;hit points
+`p21
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#bunny6
+@fight
+;name
+6' Invisible Bunny
+;string said when you see him
+`0"My name is Harvey", `2you hear him say. But WHERE is he?
+;power move kill string
+`2It would be a pretty site, if you could see him...
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+stops your clock|`p24
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+80
+;experience
+`p22
+;hit points
+`p21
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#bunny7
+@fight
+;name
+Chocolate Bunny
+;string said when you see him
+`2It looks good enough to eat, but he sounds like a chicken!
+;power move kill string
+`2You fill your pack with pieces to eat later
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+Throws a chocolate egg|`p24
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+66
+;experience
+`p22
+;hit points
+`p21
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#bunny8
+@fight
+;name
+Lab Bunny
+;string said when you see him
+`2It looks normal, but is it?
+;power move kill string
+`2It BLEW UP!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+breathes fire|`p24
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+32
+;experience
+`p22
+;hit points
+`p21
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#bunny9
+@fight
+;name
+Ninja Bunny
+;string said when you see him
+`2All bunny, all ninja, all attitude!
+;power move kill string
+`2You bow in respect, then kick the dead thing in the head.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+throws ninja star|`p24
+slices you with ninja sword|`p24
+kicks your face|`p24
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+101
+;experience
+`p22
+;hit points
+`p21
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#bunny10
+@fight
+;name
+Giant Dust Bunny
+;string said when you see him
+`2In a cloud of smoke, er, dust -- it appears.
+;power move kill string
+`2Cleaned up that mess...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+breathes dust cloud|`p24
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+45
+;experience
+`p22
+;hit points
+`p21
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#easter
+@do `p23 is S&arm_num
+@do `p22 is S&wep_num
+@do `p22 + `p04
+@do `p22 + `p09
+@fight
+;name
+Easter Bunny
+;string said when you see him
+`2You spot the tall white rabbit with a basket.
+;power move kill string
+`2You are now King of Jelly Beans!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Throws jelly beans at you|`p22
+Kicks with his hind legs|`p22
+Throws hard-boiled eggs at you|`p22
+Smacks you with his basket|`p22
+NONE|NONE
+;defense
+`p23
+;gold reward
+1100
+;experience
+1100
+;hit points
+500
+;if win: ref file|name or NONE
+BUNNY.REF|KILLE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+BUNNY.REF|RUNEB
+
+@#runeb
+@busy
+@do `p20 is `p02
+@do `p20 - 1
+@do `p21 random `p20
+@do `p02 - `p21
+@show
+`r0`c`%`r1An attempt to run...`r0
+
+`2While you run away from the Easter Bunny, in a fit of rage he grabs a
+very nasty looking egg. He throws it at you, just missing you. However,
+the egg explodes behind you and does `0`p21 `2points damage. You survive
+to escape.
+
+@key
+@drawmap
+@update
+
+@#runbat
+@busy
+@do `p20 is `p02
+@do `p20 - 1
+@do `p21 random `p20
+@do `p02 - `p21
+@show
+`r0`c`%`r1An attempt to run...`r0
+
+`2You attempt to run away from the Battery-Powered Bunny. But he does not
+give up easy. He picks up his drum and lobs it at you. It nails you
+squarely in the back. You receive `0`p21 `2points damage and are knocked
+to the floor. You manage to escape...
+
+@key
+@drawmap
+@update
+
+@#battery
+@do `p23 is S&arm_num
+@do `p22 is S&wep_num
+@do `p22 + `p04
+@do `p22 + `p09
+@fight
+;name
+Battery-Powered Bunny
+;string said when you see him
+`@What would YOU say if saw a 9' bunny with shades?
+;power move kill string
+`0"I guess he needs a jump-start now"`2, you say to yourself
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Hits you with drumstick|`p22
+Kicks with his hind legs|`p22
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+1200
+;experience
+1200
+;hit points
+600
+;if win: ref file|name or NONE
+BUNNY.REF|DEADBAT
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+BUNNY.REF|RUNBAT
+
+@#prefight
+;Calculate Bunny's HP - will be `p21
+@do `p21 is `p09
+@do `p21 * 9
+@do `p21 random `p21 25
+;Calculate defense for Bunny - will be `p23
+@do `p23 is S&arm_num
+@do `p23 + `p05
+;Calculate XP's earned - will be `p22
+@do `p22 is `p21
+@do `p22 + 99
+@do `p22 random `p22
+;Set Weapon as `p24
+@do `p24 is S&wep_num
+;Uncomment next line for Extra Tough Mode!
+;@do `p24 + `p04
+
+@#deadbat
+;Killed Battery Bunny!
+@do addlog
+ `r0 `0`n`3 has beaten `%`e`2!
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@datasave bunny.idf &playernum 8
+@do `p30 is 8
+
+@#door1
+@busy
+@dataload bunny.idf &playernum `p30
+@if `p30 more 8 then do
+ @begin
+ @do saybar
+`$All that is here is a dead crystal ball
+ @closescript
+ @end
+
+@show
+`r0`c`%`r1The Crystal Ball of Health`r0
+
+`2In this alcove is a pedestal with a beautiful crystal ball. You are
+drawn to it so strongly that you are unable to resist the temptation
+to touch it.
+
+@key
+@show
+`3You feel happy-happy-joy-joy! `!(You are FULLY rested!)
+
+@do `p02 is `p03
+@datasave bunny.idf &playernum 9
+@do `p30 is 9
+@key
+@drawmap
+@update
+
+@#door2
+@busy
+@dataload bunny.idf &playernum `p30
+@if `p30 more 9 then do
+ @begin
+ @do saybar
+`$This alcove is empty.
+ @closescript
+ @end
+
+@show
+`r0`c`$`r1Lucky You!`r0
+
+`$What a find! `2You locate 5 gems in this alcove!
+
+@do `p19 + 5
+@datasave bunny.idf &playernum 10
+@do `p30 is 10
+@key
+@drawmap
+@update
+
+@#door3
+@busy
+@dataload bunny.idf &playernum `p30
+@if `p30 more 10 then do
+ @begin
+ @do saybar
+`$This alcove is empty.
+ @closescript
+ @end
+
+@show
+`r0`c`$`r1Again with the Strange Old Man`r0
+
+`2You are certain that you saw this same old man when you first entered
+these caves. The scary part is, that you are correct. `0"But how and when
+did he get past me?"`2, you ask yourself.
+
+`3"Made it you have. This you did earn"`2, he says as he hand you a rather
+delicious looking carrot. You take the carrot from him. `0"So what do I do
+with this?"`2, you ask the old man. He at first looks surprised, then some
+what disappointed. `3"All brawn, no brains..."`2, he mutters then he vanishes
+without a trace.
+
+@do `v01 is 2
+@choice
+Eat the carrot
+Clean your ear with the carrot
+@if responce is 1 then do
+ @begin
+ @show
+`\
+`#There is hope for you after all! `@You gain One Quest Point!
+ @do `p18 + 1
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+`\`7Unfortunately, the old man was correct. You ARE rather stupid. While
+using the carrot to clean something out of your ear, it breaks. The pieces
+glow for a moment and stop. Suddenly the pieces rot into dust in front of
+your eyes. You ask yourself aloud, `0"Maybe I should have eaten it".
+ @end
+@datasave bunny.idf &playernum 11
+@do `p30 is 11
+@key
+@drawmap
+@update
+
+@#kille
+;Killed Easter Bunny!
+@do addlog
+ `r0 `0`n`3 has beaten `%`e`2!
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@datasave bunny.idf &playernum 4
+@do `p30 is 4
+
+@#drycell
+@busy
+@dataload bunny.idf &playernum `p30
+@if `p30 less 8 then do
+ @begin
+ @do moveback
+ @show
+`r0`c`$`r1The Battery-Powered Bunny`r0
+
+`2From a distance, you spot a one foot tall bunny that has a drum and
+is wearing dark sunglasses. He looks over at you in surprise, then
+gives you a devilish little grin..
+
+Then suddenly, he grabs a cylinder that is reads `$Heavy Duty `2and
+faster then you can blink, he pulls the cylinder that is currently in
+his back and slaps in the new one...
+
+ @key
+ @show
+`0Instantly, then little bunny beings to grow, and grow, and grow. He
+peaks out at nearly `%Nine Feet Tall! `2(not including those ears of his).
+`0He spins one of his drum sticks in anticipation of your duel.
+
+ @key
+ @drawmap
+ @update
+ @routine battery
+ @end
+
+@if `p30 more 7 then do
+ @begin
+ @do saybar
+`$Here lies a bunny with a dead battery...
+ @end
+
+@#oldman
+@busy
+@do `p30 is 0
+@dataload bunny.idf &playernum `p30
+@do moveback
+@show
+`r0`c`$`r1Really Strange Old Man`r0
+
+`2Sitting in the corner of this room is a rather odd looking old man. He
+almost looks like he might be part Rabbit! He stops talking to the carrot
+he is holding and looks up at you...
+
+@if `p30 is 0 then do
+ @begin
+ @show
+`3Danger ahead there is`2, he starts. `3Safe is you if bunny slippers you
+`3do wear`2, he adds followed by a happy little grunt. Just then, you notice
+that his hairy feet are covered with bunny slippers. He suddenly shots out,
+`3Sell you mine I will!
+
+`2You think to yourself, `0Okay, sure. After all, he couldn't want very
+much for them.
+
+ @key
+ @show
+`310,000 Gold! `2the crazy old fart suddenly blurts out...
+
+ @end
+
+@do `p20 is money
+@do `v01 is 1
+@choice
+Leave him to his carrot
+Kill him and take his slippers
+>`p20 9999 <`p30 1 Buy the slippers he is wearing for 10,000 gold
+@if response is 1 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+;Kill the old fart
+@if response is 2 then do
+ @begin
+ @show
+`r0`c`$`r4Attack of the Bunny Slippers!`r0
+
+`0Before you can draw your weapon, before you can blink an eye, his
+slippers suddenly come to life and leap at you with blinding speed!
+
+ @key
+ @show
+`L`L`L`%They have Fangs!`L`L`L`@ The PAIN!!`L`L`L`$ AAAGGGHHH!!!`L`L
+
+`7The darkness....
+@key
+@show
+(Bet you won't do that again by choice)`L`L
+@do enemy is A`xPair`xof`xBunny`xSlippers
+@routine die in gametxt.ref
+@end
+;pay the old man and get the slippers
+@if response is 3 then do
+ @begin
+ @if money less 10000 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @do money - 10000
+ @datasave bunny.idf &playernum 1
+ @show
+`c`2You sit right down, take your boots off and don the bunny slippers.
+They feel warm and cozy. And you even feel like you have a little more
+spring in your step! A few seconds later, they fade away to nowhere...
+
+ @do `p05 + 10
+ @show
+`$You gain Ten (10) Dodge Points!
+
+ @key
+ @end
+
+@drawmap
+@update
+
+@#ebunny
+@busy
+@dataload bunny.idf &playernum `p30
+@if `p30 less 4 then do
+ @begin
+ @do moveback
+ @show
+`r0`c`$`r1Encounter with the Easter Bunny`r0
+
+`2This seven foot tall, white rabbit hardly had taken notice of you until
+you were nearly standing on top of him. He appears to be quite angry that
+you have interrupted his jelly bean count -- and he appears to be getting
+more agitated as the seconds pass.
+
+`2You insist that he start over again and try to move past him to proceed
+down the hall behind him. Quickly he grabs a large basket and jumps in
+front of you.
+
+`0The fight begins!
+
+ @key
+ @drawmap
+ @update
+ @routine easter
+ @end
+
+@if `p30 more 3 then do
+ @begin
+ @do saybar
+`$The now dead Easter Bunny rots on the floor here...
+ @end
+
+@#nomore
diff --git a/xtrn/lord2/cnw/camelot.ref b/xtrn/lord2/cnw/camelot.ref
new file mode 100644
index 0000000000000000000000000000000000000000..dad71c67fa4f580713b25de12b4d395cd23e3cf4
--- /dev/null
+++ b/xtrn/lord2/cnw/camelot.ref
@@ -0,0 +1,1121 @@
+; Script file CAMELOT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:42 2001
+
+@DECLARE bank 000000698
+@DECLARE note 000003362
+@DECLARE bird 000004320
+@DECLARE armor 000005012
+@DECLARE weapon 000005177
+@DECLARE throne 000005345
+@DECLARE table 000005401
+@DECLARE guard 000005467
+@DECLARE startg 000005496
+@DECLARE inn 000008429
+@DECLARE servant 000009189
+@DECLARE wizard 000009254
+@DECLARE travel 000010982
+@DECLARE heal 000011620
+@DECLARE enter 000013004
+@DECLARE done 000014441
+@DECLARE letmein 000016038
+@DECLARE done 000016118
+@DECLARE sign 000016129
+@DECLARE sign2 000016429
+@DECLARE bar 000016500
+@DECLARE danstart 000016723
+@NOCHECK
+; End of .REF index
+
+@#bank
+@do moveback
+@do `p20 is 0
+@if cam.dat exist true then do
+ @begin
+ @readfile cam.dat
+`p20
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile cam.dat
+`p20
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Dammit! Someone just took it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete cam.dat
+ @writefile cam.dat
+`p20
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile camelot.dat
+`p20
+`s01
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Camelot Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. You'll keep it for yourself.
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile cam.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete cam.dat
+ @writefile cam.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile camelot.dat
+`p20
+`s01
+@
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Camelot Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+
+
+
+@#NOTE
+@do moveback
+@busy
+@show
+`r0`c `r1 Book of Gossip `r0
+
+@if book.txt exist false then do
+ @begin
+ @writefile book.txt
+ `%Barak`2: `0I am the greatest!
+ `%Turgon`2: `0Damn you Barak, its all your falt!
+ `%Barak`2: `0Go away you thief.
+ @end
+
+@if book.txt exist true then do
+ @begin
+ @displayfile book.txt
+ @end
+
+@show
+
+@
+(Do tricky stuff with name to determine how much they can type)
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2What do you wish to write? `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile book.txt
+ `%`n`2 : `0`s03
+ @do trim book.txt 17
+ @drawmap
+ @update
+
+@#bird
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2A bird flies above you. Throw a stone at it? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is N then do
+ @begin
+ @do saybar
+The bird flies away.
+ @closescript
+ @end
+
+@if `p09 is 1 then do
+ @begin
+ @do `p20 random 2 1
+ @if `p20 is 1 then do
+ @begin
+ @do saybar
+`2You miss, he flies away.
+ @closescript
+ @end
+ @end
+
+@show
+`r0`c `r1 Good Shot `r0
+
+`2 The bird falls from the sky.
+
+`k `2Apparently it was a messanger bird, it is carrying `$$350`2!
+
+ `2You take the money.
+
+`k
+ @do money + 350
+ @drawmap
+ @update
+ @closescript
+
+@#Armor
+@do moveback
+@offmap
+@busy
+@show
+`r0`c `r1 Camelot Armory `r0
+
+
+
+@buymanager
+14
+37
+59
+@drawmap
+@update
+
+@#weapon
+@do moveback
+@offmap
+@busy
+@show
+`r0`c `r1 Camelot Weaponry `r0
+
+
+@buymanager
+36
+39
+49
+60
+58
+@drawmap
+@update
+
+@#throne
+@do saybar
+You sit upon the throne.
+@end
+
+@#table
+@do saybar
+You sit at the famous Round Table.
+@end
+
+@#guard
+@do moveback
+@label startg
+@if camelot.dat exist false then do
+ @begin
+ @do saybar
+`0"You must leave." `2the guard remarks.
+ @closescript
+ @end
+
+@readfile camelot.dat
+`p20
+`s01
+@
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the door guard, nice of him to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2Your guard salutes you as you address him.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+Leave
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$30,000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to who?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep Camelot.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give ownership of Camelot to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep Camelot.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete camelot.dat
+ @writefile camelot.dat
+`p20
+`s01
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of Camelot to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%Camelot`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Camelot back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep Camelot.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete camelot.dat
+ @do money + 30000
+ @show
+`\`\ `%CAMELOT SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Camelot`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete camelot.dat
+ @writefile camelot.dat
+&playernum
+`s01
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+
+
+@#inn
+@do `v01 is 1
+@offmap
+@do moveback
+@show
+`r0`c `%`r1 CAMELOT INN `r0
+
+ `2This place looks great, a well built establishment for a warrior
+ to rest his tired bones.
+ A rather large man stands guard at the front entrance.
+
+ You are holding `$$&money`2.
+
+@do write
+`x`x
+@choice
+Get a room (`$$75`%)
+Leave
+@if response is 1 then do
+ @begin
+ @if money < 75 then do
+ @begin
+ @show
+`\`\`2 You don't have enough cash.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`\ `2You give the man the money, and go inside.
+`\`k
+ @do money - 75
+ @do x is 37
+ @do y is 15
+ @do map is 1443
+ @loadmap 1443
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@drawmap
+@update
+
+
+@#servant
+@do saybar
+You're not supposed to go in there!
+
+
+@#wizard
+@readfile camelot.dat
+`p20
+`s01
+@
+@if camelot.dat exist false then do
+ @begin
+ @do saybar
+Unavailable until Camelot is owned
+ @closescript
+ @end
+
+@if `p20 is &playernum then do
+ @begin
+ @offmap
+ @do moveback
+ @show
+ `r0`c `r1 Wizard `r0
+
+ `0"Hello `n`0. Where do you wish to go today?" `2He asks.
+
+ @do write
+ `x`x
+ @choice
+ GreenTree
+ PortTown
+ BoneTown
+ FlagCity
+ Sosen Village
+ ArrisVille
+ Nevermind
+ @if response not 7 then do
+ @begin
+ @show
+ `\`\ `0"Okay sir, here we go, I'll just grab my spell book."
+
+ `k `2"`#Wooga Wooga Wooga Wooga Wooga!`2" He chants.
+
+ `2Then suddenly, you are there, on your own.
+ `\`k
+ @do goto travel
+ @end
+ @if response is 7 then do
+ @begin
+ @drawmap
+ @update
+ @end
+ @closescript
+ @end
+
+@offmap
+@do moveback
+@show
+`r0`c `r1 Wizard `r0
+
+ `0"Any trip costs `$$500`0, where do you want to go?" `2He asks.`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Go somewhere
+Leave
+@if response is 2 then do
+@begin
+ @drawmap
+ @update
+@end
+@if response is 1 then do
+@begin
+ @if money < 500 then do
+ @begin
+ @show
+`\`2 Sorry, you don't have enough cash.`k
+ @drawmap
+ @update
+ @closescript
+ @end
+@do `v01 is 1
+@show
+`\`\
+`r0`c `r1 Wizard `r0
+
+ `0"Where do you want to go?" `2He asks.
+`\
+@choice
+ GreenTree
+ PortTown
+ BoneTown
+ FlagCity
+ Sosen Village
+ ArrisVille
+ Nevermind
+@if response not 7 then do
+@begin
+@do money - 500
+@show
+`\`\ `0"Okay sir, here we go, I'll just grab my spell book."
+
+`k `2"`#Wooga Wooga Wooga Wooga Wooga!`2" Shouts the Wizard.
+
+ `2Then suddenly, you are there, on your own.`\`k
+@do goto travel
+@end
+
+@label travel
+@if response is 1 then do
+ @begin
+ @do x is 10
+ @do y is 15
+ @do map is 1356
+ @end
+@if response is 2 then do
+ @begin
+ @do x is 38
+ @do y is 16
+ @do map is 956
+ @end
+@if response is 3 then do
+ @begin
+ @do x is 53
+ @do y is 18
+ @do map is 1572
+ @end
+@if response is 4 then do
+ @begin
+ @do x is 71
+ @do y is 19
+ @do map is 1092
+ @end
+@if response is 5 then do
+ @begin
+ @do x is 36
+ @do y is 5
+ @do map is 456
+ @end
+@if response is 6 then do
+ @begin
+ @do x is 19
+ @do y is 9
+ @do map is 523
+ @end
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+
+@#heal
+@readfile camelot.dat
+`p20
+`s01
+@
+@if camelot.dat exist false then do
+ @begin
+ @do saybar
+Unavailable until Camelot is bought.
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do moveback
+ @do `v01 is 1
+ @show
+`r0`c `r1 Camelot Healing `r0
+
+`2 Chuck looks you over.
+
+ @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 can heal you for `$`p20`0 gold."
+
+ @do write
+`x`x
+ @choice
+Heal yourself for `$$`p20`%. (you have `$$&money`%)
+Leave
+ @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."
+ @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!" `2Chuck laughs.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @end
+
+
+@offmap
+ @do moveback
+ @show
+`r0`c `r1 Camelot Healing `r0
+
+ `2Chuck fixes you up for free.
+
+ `%YOU ARE COMPLETEY HEALED.
+
+`k
+ @do `p02 is `p03
+ @drawmap
+ @update
+ @end
+
+@#enter
+@do moveback
+@offmap
+@if camelot.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2This magnificent structure has been owned by many famous knights
+ in the past. Camelot was owned by King Arthur himself and housed
+ the brave knights of the round table. Since then, it has been
+ modified with technology,other owners, and is significantly smaller.
+ If you choose to buy this you will recieve:
+ `0* `2You own Royal Palace.
+ `0* `2Royal Servants
+ `0* `2Dan's Bar
+ `0* `2An Inn
+ `0* `2Armory
+ `0* `2Weaponry
+ `2The following you get unlimitted access to for free
+ `0* `2Healer
+ `0* `2Wizard
+ The asking price for this townlike castle is `$$60,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 59999 Purchase it.
+<&money 60000 Sigh wistfully and leave since you don't have enough.
+>&money 59999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if camelot.dat exist true then do
+ @begin
+ @show
+`\`\ `2Dammit! Someone has bought it while you were thinking.`\`\`k
+ @do goto done
+ @end
+
+ @writefile camelot.dat
+&playernum
+NONE
+ @do money - 60000
+ @do addlog
+ `0`n `2buys `%Camelot`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own Camelot!
+
+`k `0Hopefully you can make some money with it too!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile camelot.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete camelot.dat
+ @do addlog
+ `%Camelot`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+ `4Ouch!
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. `0"This is the Palace of Camelot.
+ Whats the secret password??"`\
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell the password
+Leave
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%Camelot Palace`0,"`2 smiles the guard.`\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `0Camelot Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The guard doesn't look too interested.`\`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @end
+
+@label letmein
+@do x is 19
+@do y is 9
+@do map is 1441
+@loadmap 1441
+@do goto done
+@#done
+
+@#sign
+@do moveback
+
+ @if camelot.dat exist false then do
+ @begin
+ @do saybar
+Camelot - For Sale, enquire inside.
+ @end
+
+@if camelot.dat exist true then do
+ @begin
+@readfile camelot.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Camelot is owned by `0`s01`2.
+ @end
+
+@#sign2
+@do moveback
+@begin
+@do saybar
+Welcome to Camelot!
+@end
+
+@#BAR
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c`% `r1 Dan's Bar `r0
+
+`2 You take a seat at the bar and wait for dan.
+
+`k A skinny man with slick hair and a pink shirt approaches you.
+
+`k
+
+@label danstart
+@show
+`r0`c`% `r1 Dan's Bar `r0
+
+`2 Hello, my name is`l.`l.`l`#Dan!`2 Ahem. What would you like?
+
+@do write
+`x`x
+@choice
+What have you got?
+Order Something
+Stand up
+@
+
+@if response is 1 then do
+ @begin
+ @show
+`r0`c `%Welcome to Dan's!
+
+ `5This bar has been a recent addition to Camelot, and has 3 delicious
+ drinks, that i can reccommend to all.
+
+`k `#Beer (`$$20`#)
+
+ `5Not your average beer, this is brewed specially by the owner himself.
+ Trust me, it has a serious kick to it!
+
+ `#Lakini's Juice (`$$50`#)
+
+ `5A great new drink created by the band Live! A cannot explain the
+ taste, its just wonderful..try it!
+
+ `#Mystery Drink (`$$250`#)
+
+ `5A collection of just about all the drinks we have lying around.
+ It can do wonderful things for you, though i must warn you, it can
+ also do bad things.
+
+`k
+@do goto danstart
+ @end
+@if response is 3 then do
+ @begin
+ @drawmap
+ @update
+ @end
+@if response is 2 then do
+ @begin
+ @do write
+`\`\ `2Order what? (`0You have `$&money`2)`\`\`x`x
+ @do `v01 is 1
+ @choice
+`#Beer (`$$20`#)
+`#Lakini's Juice (`$$50`5)
+`#Mystery Drink (`$$250`5)
+`#Nevermind
+ @if response is 1 then do
+ @begin
+ @if money < 20 then do
+ @begin
+ @show
+`\`\ `4You can't afford that, poor s&boy.`\`\`k
+ @do `v01 is 2
+ @do goto danstart
+ @end
+ @do money - 20
+ @show
+`%`r0`c `r1 Time for a drink `r0`\`\
+ `2Dan brings you the beer you ordered.
+ You skull it down. Tastes normal.
+`\`k `%Then it kicks in!
+`\`k `%You get a huge addrenilin rush!
+`\`k
+ @end
+
+ @if response is 2 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+`\`\ `4You can't afford that, poor s&boy.`\`\`k
+ @do `v01 is 2
+ @do goto danstart
+ @end
+ @do money - 50
+ @show
+`%`r0`c `r1 Time for a drink `r0`\`\
+ `2Dan makes you a bubbling jug of Lakini's Juice.
+`\ You grab it and scull it down.
+`\`k `%You body feels kind strange...
+`\`k `%You pass out for 5 minutes! Wow!
+`\`k
+ @end
+
+ @if response is 3 then do
+ @begin
+ @if money < 250 then do
+ @begin
+ @show
+`\`\ `4You can't afford it.`\`\`k
+ @do `v01 is 2
+ @do goto danstart
+ @end
+ @do money - 250
+ @show
+`%`r0`c `r1 Time for a drink `r0`\`\
+ `2Dan mixes random bottles into a jug.
+`\ You think about for a sec...
+`\
+ @show
+`%`k`r0`c `r1 Time for a drink `r0
+`\ `2Something good or bad can happen, but you've already paid...
+`\`k `2Are you sure you want to drink it?`\
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Yes
+No
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2You grab it and scull it down.
+`\`k `2You feel really strange...like you're changing...
+`\`k `2Then`l.`l.`l.
+`\`k
+ @do `p20 random 6 1
+ @if `p20 is 1 then do
+ @begin
+ @show
+ `%You gain 1 muscle point!`k
+ @do `p04 + 1
+ @drawmap
+ @update
+ @end
+ @if `p20 is 2 then do
+ @begin
+ @show
+ `4You lose 1 muscle point!`k
+ @do `p04 - 1
+ @drawmap
+ @update
+ @end
+ @if `p20 is 3 then do
+ @begin
+ @show
+ `%You gain 1 dodge point!`k
+ @do `p05 + 1
+ @drawmap
+ @update
+ @end
+ @if `p20 is 4 then do
+ @begin
+ @show
+ `4You lose 1 dodge point!`k
+ @do `p05 - 1
+ @drawmap
+ @update
+ @end
+ @if `p20 is 5 then do
+ @begin
+ @show
+ `%You gain 2 hit points!`k
+ @do `p03 + 2
+ @drawmap
+ @update
+ @end
+ @if `p20 is 6 then do
+ @begin
+ @show
+ `4You lose 2 hit points!`k
+ @do `p03 - 2
+ @drawmap
+ @update
+ @end
+ @end
+ @do `v01 is 2
+ @end
+@drawmap
+@update
diff --git a/xtrn/lord2/cnw/canoe.chk b/xtrn/lord2/cnw/canoe.chk
new file mode 100644
index 0000000000000000000000000000000000000000..3bf2ba9388a65410f02e924534a18cfecbe42ec4
Binary files /dev/null and b/xtrn/lord2/cnw/canoe.chk differ
diff --git a/xtrn/lord2/cnw/canoe.idf b/xtrn/lord2/cnw/canoe.idf
new file mode 100644
index 0000000000000000000000000000000000000000..68865850f85f68a3b41e3a27f5e8a297df890ef9
Binary files /dev/null and b/xtrn/lord2/cnw/canoe.idf differ
diff --git a/xtrn/lord2/cnw/canoe.ref b/xtrn/lord2/cnw/canoe.ref
new file mode 100644
index 0000000000000000000000000000000000000000..fcd9ea14ba476267d4d7fd42ccb7cfa4c5052c03
--- /dev/null
+++ b/xtrn/lord2/cnw/canoe.ref
@@ -0,0 +1,754 @@
+; Script file CANOE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:24 2001
+
+@DECLARE sevent 000000684
+@DECLARE event 000001149
+@DECLARE nevent 000001522
+@DECLARE person1 000001975
+@DECLARE nocanoe 000002094
+@DECLARE rental 000002177
+@DECLARE tab2high 000004766
+@DECLARE sellcanoe 000005632
+@DECLARE returncanoe 000006729
+@DECLARE sdock 000007295
+@DECLARE ndock 000007896
+@DECLARE bar 000008642
+@DECLARE bardock 000008858
+@DECLARE bartap 000009706
+@DECLARE billstart 000010060
+@DECLARE castled 000013838
+@DECLARE csign 000014232
+@DECLARE healers 000014337
+@DECLARE wake 000014555
+@DECLARE nomore 000015538
+@NOCHECK
+; End of .REF index
+
+@NOCHECK
+@#sevent
+@IF &LASTX EQUALS 2 THEN DO
+@BEGIN
+@IF &LASTY < 9 THEN DO
+ @BEGIN
+ @DO saybar
+ `@ Not good, Here comes a Piranna! You paddle away as fast as you can!
+ @DO MOVEBACK
+ @DO X IS 3
+ @END
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@IF &LASTX EQUALS 79 THEN DO
+@BEGIN
+@IF &LASTY < 7 THEN DO
+@BEGIN
+@DO saybar
+`@ Not good, Here comes a SHARK! You paddle as fast as you can backwards!
+@DO MOVEBACK
+@DO X IS 78
+@END
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#event
+@IF &LASTX EQUALS 2 THEN DO
+@BEGIN
+@DO saybar
+`@ Not good, Here comes a Piranna! You paddle away as fast as you can!
+@DO MOVEBACK
+@DO X IS 3
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@IF &LASTX EQUALS 79 THEN DO
+@BEGIN
+@DO saybar
+`@ Not good, Here comes a SHARK! You paddle as fast as you can backwards!
+@DO MOVEBACK
+@DO X IS 78
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#nevent
+@IF &LASTX EQUALS 2 THEN DO
+@BEGIN
+@IF &LASTY > 11 THEN DO
+@BEGIN
+ @DO saybar
+`@ Not good, Here comes a Piranna! You paddle away as fast as you can!
+@DO MOVEBACK
+@DO X IS 3
+@UPDATE
+@CLOSESCRIPT
+@END
+@END
+
+@IF &LASTX EQUALS 79 THEN DO
+@BEGIN
+@IF &LASTY > 14 THEN DO
+@BEGIN
+@DO saybar
+`@ Not good, Here comes a SHARK! You paddle as fast as you can backwards!
+@DO MOVEBACK
+@DO X IS 78
+@UPDATE
+@CLOSESCRIPT
+@END
+@END
+
+@#person1
+@DO MOVEBACK
+@DO SAYBAR
+`2 I always wanted a canoe so I could sail these waters.
+
+@END
+@CLOSESCRIPT
+
+@#nocanoe
+@show
+`2
+`2 You do not have a TAB with me!
+`2
+`k
+@do goto rental
+
+@#rental
+@DO MOVEBACK
+@CLEAR SCREEN
+@SHOW
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`% Paul's Canoe Rental
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`2
+`2 You nock on the door of the small shack. A man drinking whiskey opens
+`2 the door. You assume he is Paul.
+`2
+`2 `%"`5What can I do fer ya?`%"`2, he asks as you walk up.
+`2
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`2
+@DO `V01 IS 1
+@CHOICE
+Rent a Canoe
+Return Your Canoe
+Chat with Paul
+Pay your tab
+Leave
+@IF RESPONSE IS 4 THEN DO
+ @BEGIN
+@dataload canoe.idf &playernum `p21
+@if `p21 > 0 then do
+ @begin
+ @dataload canoeday.idf &playernum `p20
+ @if `p20 > 1 then do
+ @begin
+ @show
+`\
+ `2You have `$&money `2gold in your pouch.
+`\
+ @do `p21 is `p20
+ @do `p22 is `p20
+ @do `p21 * 200
+ @do `p22 * 5
+ @do `p21 + `p22
+ @show
+`\
+`$Paul: `%I'll have to charge you for `p20 days, that'll be `$$`p21
+`k
+ @show
+`$Paul: `%Will you pay now? or put in your tab? [Y/n]
+ @DO READSPECIAL `s02 YN
+ @if `s02 is Y then do
+ @begin
+ @if money < `p21 then do
+ @begin
+ @if `p21 > 10000 then goto tab2high
+ @show
+`\
+`$Paul: `%You do not have enough cash, I'll be seeing you again sometime.
+
+`$Paul: `%Do not let your tab go over `$$10,000`%, you'll be arrested.
+ @key
+ @do goto rental
+ @end
+ @do money - `p21
+ @show
+`$Paul: `%Thank-you, if you want to return it now, please do so.
+ @datasave canoeday.idf &playernum 1
+ @key
+ @do goto rental
+ @end
+ @if `s02 is N then do
+ @begin
+ @if `p21 > 10000 then goto tab2high
+ @show
+`$Paul: `%Do not let your tab go over `$$10,000`%, you'll be arrested.
+ @key
+ @do goto rental
+ @end
+
+ @end
+ @end
+@show
+`\
+`$Paul: `%You do not owe me anything.
+`\
+`k
+@do goto rental
+
+@label tab2high
+@show
+`\
+`$Paul: `%My CANOE, you didn't return it.
+`k
+`$Paul: `%You owe me more than `$10,000`%.
+`k
+`$Paul: `%You are going to go to jail now.
+`k`k`k
+`%You were struck on the head from behind, then all goes black.`k
+@do `s01 is didn't`xpay`xcanoe`xrent
+@run enter in prison.ref
+@end
+
+
+@IF RESPONSE IS 3 THEN DO
+@BEGIN
+@SHOW
+`2
+`2
+`2 `%"`5I'll tell ya, I've heard there is a bar and another castle out
+`5 there for you sailors. Can't miss 'em!`%"
+`2
+`2 You walk off, head high with pride of your new found knowlege.
+`2
+@KEY
+ @DRAWMAP
+ @UPDATE
+ @CLOSESCRIPT
+@END
+@IF RESPONSE IS 2 THEN DO
+@BEGIN
+@DO GOTO RETURNCANOE
+@END
+@IF RESPONSE IS 5 THEN DO
+@BEGIN
+ @DRAWMAP
+ @UPDATE
+ @CLOSESCRIPT
+@END
+@IF RESPONSE IS 1 THEN DO
+@BEGIN
+ @DO GOTO SELLCANOE
+@END
+
+@#SELLCANOE
+@CLEAR SCREEN
+@SHOW
+`2
+`2 `%"`5A canoe, 'eh? Well alright, I imagine I can work that for ya.
+`2 `5Its $`@5,000 `5, and $`@200 `5a day after that + interest.
+`2
+`2 I'll also pay ya back $`@5000`5 when or if you return it to me here.`%"
+`2
+@do `v01 is 1
+@do move 10 10
+@CHOICE
+Deal
+I'm outta here!
+@IF RESPONSE IS 2 THEN DO
+@BEGIN
+ @DRAWMAP
+ @UPDATE
+ @CLOSESCRIPT
+@END
+
+@IF RESPONSE IS 1 THEN DO
+@BEGIN
+ @IF MONEY LESS 5000 THEN DO
+ @BEGIN
+ @SHOW
+`4 MORON! HELLO!?! HEY THINK! YOU DONT HAVE ENOUGH MORON!
+ @KEY
+ @DRAWMAP
+ @UPDATE
+ @CLOSESCRIPT
+ @END
+@SHOW
+`2
+`2
+`2
+`2 The Man takes your money, and walks you outside where he gives you
+`2 one of the unshapely canoes.
+`2
+`2 As you walk off, he yells to you
+`2 `#"`5Beware! only go north or south, or you might regret it!
+`2 `5These are dangerous waters, surrounded by sharks and piranna.`#"
+`2
+@DO money - 5000
+
+@datasave canoe.idf &playernum 1
+@KEY
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#RETURNCANOE
+@CLEAR SCREEN
+@dataload canoe.idf &playernum `p20
+
+@IF `p20 = 0 THEN DO
+@BEGIN
+@SHOW
+`2
+`2 You don't have a canoe to return, stupid!
+`2
+@KEY
+@END
+
+@if `p20 > 1 then do
+ @begin
+ @show
+`2
+`2 You must pay me the money you owe me before returning the canoe.
+`2
+ @end
+@IF `p20 is 1 THEN DO
+@BEGIN
+@SHOW
+`2
+`2 You give him back the canoe, and get $`@5000 `2in return.
+`2
+@DO MONEY + 5000
+@datasave canoe.idf &playernum 0
+@dataload canoe.idf &playernum `p20
+@KEY
+@END
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+
+@#sdock
+@dataload canoe.idf &playernum `p20
+@IF `p20 LESS 1 THEN DO
+@BEGIN
+@DO MOVEBACK
+@do saybar
+You jump in, and piranas attack you! You jump out quickly. but are hurt.
+@do quebar
+You need a canoe to travel these waters.
+@do `p02 - 5
+@CLOSESCRIPT
+@END
+
+@IF &LASTY = 7 THEN DO
+@BEGIN
+@DO SAYBAR
+You get in your canoe and push off
+@DO Y is 5
+@END
+@IF &LASTY = 5 THEN DO
+@BEGIN
+@DO SAYBAR
+You dock your canoe and step onto the dock
+@DO Y is 7
+@END
+
+@IF &LASTY = 5 THEN DO
+@BEGIN
+@DO SAYBAR
+You dock your canoe and step onto the dock
+@DO Y is 7
+@END
+
+@CLOSESCRIPT
+
+
+@#ndock
+@dataload canoe.idf &playernum `p20
+@IF `p20 MORE 0 THEN DO
+@BEGIN
+
+@IF &lasty is 14 then do
+@begin
+@do saybar
+You get in your canoe and push off.
+@do y is 16
+@end
+@if &lasty is 15 then do
+@begin
+@do saybar
+You tie off your canoe and step onto the dock.
+@do y is 13
+@end
+
+@IF &lasty is 14 then do
+@begin
+@do saybar
+You get in your canoe and push off.
+@do y is 16
+@end
+@if &lasty is 15 then do
+@begin
+@do saybar
+You tie off your canoe and step onto the dock.
+@do y is 13
+@end
+@end
+
+
+@dataload canoe.idf &playernum `p20
+@if `p20 is 0 then do
+@begin
+@do moveback
+@do saybar
+You jump in, and piranas attack you! You jump out quickly. but are hurt.
+@do quebar
+You need a canoe.
+@do `p02 - 2
+@end
+
+
+
+@#bar
+@dataload canoe.idf &playernum `p20
+@IF `p20 MORE 0 THEN DO
+@BEGIN
+@if &lastx is 32 then do
+@begin
+@do saybar
+You get in the canoe and hope your sober enough to get home.
+@do x is 36
+@end
+@end
+
+@#bardock
+@DO MOVEBACK
+@CLEAR SCREEN
+@dataload canoe.idf &playernum `p20
+@SHOW
+`9-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`% Seascape Dock
+`1-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`2 `4ATTENTION: THIS DRINKING ESTABLISHMENT IS LEGAL.
+`2 `4 YOU MUST BE 18 TO PARTY, 21 TO DRINK
+`2 `#"`5That'll be $1000`#"
+@DO `V01 IS 1
+`@
+@CHOICE
+Pay the $1000
+Say Goodbye
+@IF RESPONSE IS 2 THEN DO
+@BEGIN
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+@IF RESPONSE IS 1 THEN DO
+@BEGIN
+@IF MONEY MORE 999 THEN DO
+@BEGIN
+@SHOW
+`2
+`2
+`2 You give him one thousand dollars, and he gets you docked.
+`2
+@KEY
+@do x is 32
+@do money - 1000
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+@SHOW
+`4
+`4
+`4 You don't have that much money.
+@KEY
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+
+@#bartap
+@offmap
+@do moveback
+@do `p30 is 0
+@do `v01 is 1
+@show
+`r0`c`% `r1 SeaScape Bar and Grille `r0
+
+`2 You grab a seat and wait for some service.
+ `#"`5Hey, You must be `N, And you want some food. Yah, A good barman has
+ to have a sick sense about his customers nowadays, and I'm nothing if
+ I'm not a good barman.`#"
+`k
+
+@label billstart
+@show
+`r0`c`% `r1 Lunch Time `r0
+
+`2 `#"`5People call me Bill,`L Probably because thats my name!`#"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Order something
+Chat with Bill
+Leave
+@
+
+@if response is 2 then do
+ @begin
+ @show
+ `r0`c `r1 Chat with Bill `r0`\`\
+ `#"`5You know, I used to have a s&son, and a wife, back in a small town called
+ `5Stonebrook. I got so sick of them I faked my death, and ran off here to
+ `5start this bar. My s&son would now be.`l.`l.`l. About `3your`5 age.`#"
+ `k
+ @do goto billstart
+ @end
+@if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Order what? (`0You have `$&money`2)`\`\`x`x
+ @do `v01 is 1
+ @choice
+`#Icecream (`$$20`#)
+`#Steak (`$$30`5)
+`#A Beer (`$$5`5)
+`#Glass of Wine (`$$15`5)
+`#Nuthin'
+@
+
+ @if response is 1 then do
+ @begin
+ @if money < 20 then do
+ @begin
+ @show
+`\`\ `4You can't afford that, poor s&boy.`\`\`k
+ @do `v01 is 2
+ @do goto Billstart
+ @end
+ @do money - 20
+ @show
+`r0`c `r1 Chow Time `r0`\`\ `2Bill brings out the Ice Cream. You
+ scarf It down!
+ `k YOU ARE REFRESHED!
+`\`k
+ @do `p02 is `p03
+ @end
+
+ @if response is 2 then do
+ @begin
+ @if money < 30 then do
+ @begin
+ @show
+`\`\ `4You can't afford that, poor s&boy.`\`\`k
+ @do `v01 is 2
+ @do goto Billstart
+ @end
+ @do money - 30
+ @show
+`r0`c `r1 Chow Time `r0`\`\ `2Bill brings out the Steak.
+`\ Mmmmmm.... A-1 Sauce!
+`\`k `4Munch Munch Munch!!
+`\`k YOU GET A HIT POINT!
+ `k
+ @do `p03 + 1
+ @do `p02 is `p03
+ @Do `p30 + 1
+ @IF `p30 > 3 then do
+ @begin
+ @show
+ `r0`c `r1 Your Stuffed! `r0`\`\
+ `4`#"`!Ohhhh......... My stomach!`#" `@You scream
+ `#"`5You have had enough for today.`#" `4Bill says. You pay him and fall to
+ `4the floor. `5 You loose 2 Hit points and wake up weak.
+ `k
+ @do `p03 - 2
+ @do `p02 is 1
+ @DRAWMAP
+ @UPDATE
+ @CLOSESCRIPT
+ @end
+
+ @end
+
+ @if response is 3 then do
+ @begin
+ @if money < 5 then do
+ @begin
+ @show
+`\`\ `4You can't afford that, poor s&boy.`\`\`k
+ @do `v01 is 2
+ @do goto Billstart
+ @end
+ @do money - 5
+ @show
+`r0`c `r1 Chow Time `r0`\`\ `2Ahh... Liquid Refreshment....
+`k
+ @Do `p96 + 6
+ @IF `p96 > 30 then do
+ @begin
+ @show
+ `r0`c `r1 Your Drunk! `r0`\`\
+ `4Whoa, da world is spinningggg.... `#"`@Bbaaarrrtap, which wwway to the dor? `#"
+ `#"`5You have had enough for today.`#" `4Bill says. You pay him and fall to
+ `4the floor. `5 You loose 2 Hit points and wake up weak.
+ `k
+ @do `p03 - 2
+ @do `p02 is 1
+ @DRAWMAP
+ @UPDATE
+ @CLOSESCRIPT
+ @end
+ @end
+
+ @if response is 4 then do
+ @begin
+ @if money < 15 then do
+ @begin
+ @show
+`\`\ `4You can't afford that, poor s&boy.`\`\`k
+ @do `v01 is 2
+ @do goto Billstart
+ @end
+ @do money - 15
+ @show
+`r0`c `r1 Chow Time `r0`\`\ `2Ahh... Mmmm.. Nice white wine.
+`\`k YOU GET A RED POTION
+`k
+ @Do `p96 + 6
+ @IF `p96 > 30 then do
+ @begin
+ @show
+ `r0`c `r1 Your Drunk! `r0`\`\
+ `4Whoa, da world is spinningggg.... `#"`@Bbaaarrrtap, which wwway to the dor? `#"
+ `#"`5 You have had enough for today. `#" `4Bill says. You pay him and fall to
+ `4the floor.
+ `5 You loose 2 Hit points and wake up weak.
+ `k
+ @do `p03 - 2
+ @do `p02 is 1
+ @DRAWMAP
+ @UPDATE
+ @CLOSESCRIPT
+ @end
+
+ @do `i52 + 1
+ @end
+
+ @do `v01 is 2
+ @do goto Billstart
+ @end
+
+@drawmap
+@update
+
+@#castled
+@dataload canoe.idf &playernum `p20
+@IF `p20 LESS 1 THEN DO
+@BEGIN
+@DO MOVEBACK
+@DO SAYBAR
+You can't travel by water without a boat!
+@CLOSESCRIPT
+@END
+@IF &LASTY = 18 THEN DO
+@BEGIN
+@DO SAYBAR
+You get in your canoe and push off
+@DO Y is 20
+@END
+@IF &LASTY = 19 THEN DO
+@BEGIN
+@DO SAYBAR
+You dock your canoe and step onto the dock
+@DO Y is 17
+@END
+
+@CLOSESCRIPT
+
+@#csign
+@DO SAYBAR
+`2 Welcome weary traveler to a home away from home. You cannot be killed here.
+
+@#healers
+;free heal
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Healers `r0
+
+ `2The good doctor looks you over for wounds carefully.
+
+ `%YOU ARE COMPLETEY HEALED.
+
+`k
+@do `p02 is `p03
+@drawmap
+@update
+
+@#wake
+@do moveback
+@datanewday ccanoe.idf
+@dataload ccanoe.idf &playernum `p29
+@if `p29 < 1 then do
+
+@begin
+@show
+`r0`c `r1 Evil Deed `r0
+
+ `2 This man is sleeping, and seems to be having a nice dream.
+`k
+ @do `v01 is 1
+ @choice
+`#Scream at him to wake him up.
+`#Offer the man some addons to his dream.
+`#Let him be.
+@if response is 1 then do
+@begin
+@clear screen
+@show
+`2
+`%"`@AAAAAAAAAAAAAAAAAAAAAAAAAAHHHHHHHHHHHHH!!!!!!!!!`%" `4The man screamed.
+`2
+`2 Hehehehehe.... `@You lose 1 alignment!
+`2
+`k
+@do `p07 - 1
+@datasave ccanoe.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+
+@if response is 2 then do
+@begin
+@clear screen
+@show
+`2
+`%"`#Oh, I love you with all my heart. I want to spend my life with you.`%"
+`#You whisper into his ear. His face shows a smile and he giggles lightly.
+`2
+`2 `2You gain 2 alignment!
+`2
+`k
+@do `p07 + 2
+@datasave ccanoe.idf &playernum 1
+
+
+@drawmap
+@update
+@closescript
+@end
+
+
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/canoeday.ref b/xtrn/lord2/cnw/canoeday.ref
new file mode 100644
index 0000000000000000000000000000000000000000..dae3154fc4af256552ec2043a77128be62e6cba1
--- /dev/null
+++ b/xtrn/lord2/cnw/canoeday.ref
@@ -0,0 +1,40 @@
+; Script file CANOEDAY.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:37 2001
+
+@DECLARE canoe 000000228
+@DECLARE top 000000519
+@DECLARE end 000000846
+@DECLARE nomore 000000856
+@NOCHECK
+; End of .REF index
+
+@#canoe
+@datanewday canoe.chk
+@dataload canoe.chk 1 `p20
+@if `p20 is 0 then do
+ @begin
+ @do write
+ `%Processing Canoe maintence.`\
+ @do `p20 is 1
+ @datasave canoe.chk 1 1
+ @do `p21 is 1
+ @do goto top
+ @end
+@closescript
+
+@label top
+@dataload canoe.idf `p21 `p20
+@if `p20 > 0 then do
+ @begin
+ @DO `s01 IS GETNAME `p21
+ @dataload canoeday.idf `p21 `p20
+ @do `p20 + 1
+ @datasave canoeday.idf `p21 `p20
+ @do write
+ `$`s01 `%is renting a canoe and hasn't paid in `p20 days now.`\
+ @end
+@do `p21 + 1
+@if `p21 > 200 then goto end
+@do goto top
+
+@#end
+@#nomore
diff --git a/xtrn/lord2/cnw/castaway.ans b/xtrn/lord2/cnw/castaway.ans
new file mode 100644
index 0000000000000000000000000000000000000000..491e20525111662b9702197cb5f90ed55081becb
--- /dev/null
+++ b/xtrn/lord2/cnw/castaway.ans
@@ -0,0 +1,21 @@
+[0;1;37;44m SOMETHING LESS THAN HUMAN [40m [36;46m��[37;40m�����[36;46m��������[37;47m���[0;37;47m�[0;1;37;47m����[0;37;47m�[0;1;37;47m������[0;37;47m�[0;1;37;47m����[0;37;47m�[0;1;37;47m�[36;46m������������[40m
+[0;32;40m [36m [0;1;36;46m�[37;40m�������[36;46m�����[37;47m��������[31m�[37m�[31m��[37m�[31m��[37m�[31m�[37m�[31m�[37m����[0;37;47m�[0;1;37;47m���[36;46m���������[40m
+[0;32;40m On an isolated reef in the [30m [0;1;36;46m��[37;40m�����[36;46m����[0;37;47m�[0;1;37;47m�������[31m�[37m��[31m����[37m�[31m��[37m�[31m�[37m��[31m�[37m����[0;37;47m�[0;1;37;47m����[36;46m������[40m
+[0;32;40memptiness of the Great [30m [0;1;36;46m����������[0;37;47m�[0;1;36;46m�[37;47m���[0;37;47m�[0;1;37;47m��[31m��[37m�[31m�����[37m�[31m������[37m�[31m�[37m��[0;37;47m�[0;1;37;47m�[0;37;47m�[0;1;37;47m�[0;37;47m�[0;1;36;46m�[37;47m�[36;46m�����[40m
+[0;32;40mWestern Ocean, you find the [30m [0;1;36;46m�����������[0;37;47m�[0;1;37;47m��[0;37;47mc[0;1;37;47m���[31m���[37;41m����[31;47m����[37;41m����[31;47m��[37m��������[0;37;47m�[0;1;36;46m�����[40m
+[0;32;40mlast survivor of a shipwreck.[30m [0;1;36;46m���������[0;37;47m�[0;1;37;47m��������[31m���[37;41m�[0;30;40m [0;1;37;41m�[31;47m����[37;41m�[0;30;40m [0;1;37;41m�[31;47m�[37m������[0;37;47m�[0;1;37;47m��[36;46m�[37;47m�[36;46m����[40m
+[0;32;40m [30m [0;1;36;46m���������[0;37;47m�[0;1;37;47m�[0;37;47m�[0;1;37;47m��[0;37;47mc[0;1;37;47m���[31m���[0;34;43m����[0;1;31;47m����[0;34;43m����[0;1;31;47m�[37m�������[36;46m�[37;47m���[36;46m��۲[40m
+[0;32;40mAn emaciated figure, it's [30m [0;1;36;46m��������[0;37;47m��[0;1;37;47m�������[30m�[37m�[31m���������������[37m�[36;46m�[37;47m���[36;46m�[37;47m�[0;37;47m�[0;1;36;46m�[37;47m��[36;46m����[40m
+[0;32;40monly speech is the screams [30m [0;1;36;46m��������[0;37;47m�[0;1;37;47m���[36;46m�[30;47m�[36;46m�[30;47m�[37m�[30m�[31m�������[0;30;40m [0;1;31;47m��[0;30;40m [0;1;31;47m������[36;46m�[30;47m�[37m�[36;46m�[37;47m�[36;46m�[37;47m�[0;37;47m�[0;1;37;47m��[36;46m����[40m
+[0;32;40mand moans of an animal. [30m [0;1;36;46m�������[0;37;47m�[0;1;37;47m�[0;37;47m��[0;1;37;47m���[36;46m��[37;47m�[36;46m�[31;47m�����������������[36;46m�[37;47m����[36;46m�[37;47m�[36;46m�[37;47m��[36;46m����[40m
+[0;32;40m [30m [0;1;36;46m��������[37;47m��[36;46m�[37;47m�����[36;46m�[0;37;47m�[0;1;36;46m�[31;47m���[0;30;40m [0;1;37;40m�[0;30;40m [0;1;37;40m�[0;30;40m [0;1;37;40m�[0;30;40m [0;1;31;47m��[36;46m�[37;47m�[36;46m�[37;47m�[36;46m�[37;47m�[36;46m�[0;37;47m�[0;1;37;47m��[0;37;47m�[0;1;37;47m��[36;46m���[40m
+[0;32;40mThe scattered bones of it's [30m [0;1;36;46m�����[41m����[0;37;47m�[0;1;36;46m��[37;47m���[36;46m�[0;37;47m�[0;1;36;46m�[37;47m�[36;46m�[31;47m���[0;30;40m [0;1;37;40m�[0;30;40m [0;1;37;40m�[0;30;40m [0;1;31;47m��[36;46m�[37;47m�[0;37;47m�[0;1;36;46m�[0;37;47m�[0;1;37;47m��[36;46m�[37;47m�[0;37;47m�[0;1;36;46m�[37;47m�[36;41m����[46m�[40m
+[0;32;40mformer shipmates bear grim [30m [0;1;36;46m�����[31;47m����[36;46m�[41m�[46m�[37;47m�[36;46m�[37;47m�[36;46m�[0;37;47m�[0;1;36;46m��[37;47m�[36;46m��[31;47m���������[36;46m��[37;47m�[36;46m�[37;47m�[36;46m��[37;47m�[36;46m�[0;37;47m�[0;1;36;46m�[41m�[46m�[31;47m����[36;46m�[40m
+[0;32;40mtestimony to what it has [30m [0;1;36;46m�����[31;47m�����[36;41m�[37;47m�[36;46m���[37;47m�[0;37;47m�[0;1;36;46m�[37;47m�[36;46m�����[31;47m�����[36;46m����[37;47m�[36;46m�[0;37;47m�[0;1;36;46m�[37;47m�[36;46m�[37;47m�[36;46m��[41m�[31;47m�����[36;46m�[40m
+[0;32;40mdescended to... [30m [0;1;36;46m������[31;47m���[36;46m���������������[31;47m�����[36;46m�����������[37;47m�[36;46m���[31;47m���[36;46m��[40m
+[0;32;40m [30m [0;1;36;46m�������[31;47m��[36;46m������[31;47m������������������������[36;46m�����[31;47m��[36;46m���[40m
+[0;32;40m [30m [0;1;36;46m��������[31;47m��[36;46m����[31;47m���[36;46m���[31;47m��������������[36;46m���[31;47m���[36;46m���[31;47m��[36;46m����[40m
+[0;32;40m [30m [0;1;36;46m���������[31;47m��[36;46m��[31;47m��[36;46m����[31;47m����������������[36;46m����[31;47m��[36;46m�[31;47m��[36;46m�����[40m
+[0;32;40m [30m [0;1;33;43m����������[31;47m����[33;43m����[31;47m������������������[33;43m����[31;47m����[33;43m�����[40m
+[0;32;40m [30m [0;1;33;43m�����������[31;47m��[33;43m�����[31;47m������������������[33;43m�����[31;47m��[33;43m������[40m
+[0m
diff --git a/xtrn/lord2/cnw/castle.ovr b/xtrn/lord2/cnw/castle.ovr
new file mode 100644
index 0000000000000000000000000000000000000000..cac4e63199b2bc89f8ae5711746b7ac0df8b3275
--- /dev/null
+++ b/xtrn/lord2/cnw/castle.ovr
@@ -0,0 +1 @@
+���j���������j���Ķ��j������jù�j����j�j�����j�����j������� ù�j����jù�j������j��j����jù��j��������j���������j�����x �����j�j����j�����j��j��������j�����j����x ���Ķ��j�����jù��j����j���j������j�j�������j�����j��jù�k t���j����t �j����j����j���j��jxjxjxj��vj��vj����������kkk �|ƣ��j�����{� �|�j����xj���j����j�����jù�j����j��j����� �|ƍ�������j��j���������j��j�{zƘ���|�j����j�������kk �����j���������jù��j����vj���Ķ��j������j�j�������j�����j��jù�k t���j����t ����v �Ƌ�k�|�j���Ķ��j�����xjj�ƣ��q��j����j��j������j���j�����j�����vj���� ��ù��jj�j�����j��q�j����xjj��j������vj���j������j��j���j��j�j������ �ƹ�j����vj��j���j�����j����j�j�����j����jù�j|j����j���j���j����� �ƹ�j{vj��j���jù�j������j���j�����j�����j���j���j����j����jù�q� �ƶ���j��j����j��k �ƒ��j���É�|�j��j��������xjj�ƣ��j���� �����vj���j�j�����j���� �ƾ���j��jù�j���j���� ������j�����k �Ɠj�����j���jù�j�j���������{� ��j������j���j����j�����k �ư��j����j�����k �ơ���j�����|�vj��j�����xj�ơ�j����j��j�������j��������k ���Ķ��j�����j���j����j������j�����j���j����j���jxxx jkk�����������������������������kk �|Ɲ��Ķ��j����j�j��������j��jù��j�������j���������j����{� �|�j������j��j������k ���j����j��j��j���j�����j����j��j������j���������jxxx jkk����kk ��j��j����xxx ���j���������j���Ķ��j������jù�j����j�j�����j�����j������� ù�j����jù�j������j��j����jù��j��������j���������j�����x �����j�j����j�����j��j��������j�����j����x ���Ķ��j�����jù��j����j���j������j�j�������j�����j��jù�k t���j����t �j����j����j���j��jxjxjxj��vj��vj����������kkk �|ƣ��j�����{� �|�j����xj���j����j�����jù�j����j��j����� �|ƍ�������j��j���������j��j�{zƘ���|�j����j�������kk �����j���������jù��j����vj���Ķ��j������j�j�������j�����j��jù�k t���j����t ����v �Ƌ�k�|�j���Ķ��j�����xjj�ƣ��q��j����j��j������j���j�����j�����vj���� ��ù��jj�j�����j��q�j����xjj��j������vj���j������j��j���j��j�j������ �ƹ�j����vj��j���j�����j����j�j�����j����jù�j|j����j���j���j����� �ƹ�j{vj��j���jù�j������j���j�����j�����j���j���j����j����jù�q� �ƶ���j��j����j��k �ƒ��j���É�|�j��j��������xjj�ƣ��j���� �����vj���j�j�����j���� �ƾ���j��jù�j���j���� ������j�����k �Ɠj�����j���jù�j�j���������{� ��j������j���j����j�����k �ư��j����j�����k �ơ���j�����|�vj��j�����xj�ơ�j����j��j�������j��������k ���Ķ��j�����j���j����j������j�����j���j����j���jxxx jkk�����������������������������kk �|Ɲ��Ķ��j����j�j��������j��jù��j�������j���������j����{� �|�j������j��j������k ���j����j��j��j���j�����j����j��j������j���������jxxx jkk����kk ��j��j����xxx ���j���������j���Ķ��j������jù�j����j�j�����j�����j������� ù�j����jù�j������j��j����jù��j��������j���������j�����x �����j�j����j�����j��j��������j�����j����x ���Ķ��j�����jù��j����j���j������j�j�������j�����j��jù�k t���j����t �j����j����j���j��jxjxjxj��vj��vj����������kkk �|ƣ��j�����{� �|�j����xj���j����j�����jù�j����j��j����� �|ƍ�������j��j���������j��j�{zƘ���|�j����j�������kk �����j���������jù��j����vj���Ķ��j������j�j�������j�����j��jù�k t���j����t ����v �Ƌ�k�|�j���Ķ��j�����xjj�ƣ��q��j����j��j������j���j�����j�����vj���� ��ù��jj�j�����j��q�j����xjj��j������vj���j������j��j���j��j�j������ �ƹ�j����vj��j���j�����j����j�j�����j����jù�j|j����j���j���j����� �ƹ�j{vj��j���jù�j������j���j�����j�����j���j���j����j����jù�q� ������j�j������j������j�������j�����j�������j���j����j��j��� ������vjù�j�����j��j������j����j��j���������j���j���������x �Ǝ��jxxxj���kjj��j�����j����j����j�����j�|Ʋ�j������x �|ƞ��j�����j�����jù�j�j���������j����j���j�������j���j�ï�j��ö�v �|ƫ�����vj�Ɲ�vj���j����jëj�����j�����jxxxj���vj�j����j����jj��j���� �Ʋ�� j�����j��jëvj����j�j�����x ���j����jëj�����j����� ����vj��������vjëj�����j�����j�j��������j������k �ƒ��kjj��j���q�j���j���j����kj�|Ʋ�j��������xjj�ơ�j�����j����j��� �Ɠj����j���j���j����kj�|ƾ��j�����j�����vj�ơ�j�����j����j��� ���������j���j����������vj��j�����j���j����j��j������j������j���� ����jù��j����xjj�����j����������j����jù��j���������v ù�j����j���j����j�j����j�����j���jxxx �|ƣ��j����j�j�{� �|�w�{� �|�j�����������x �|ƞ��j�����j�����j�j�{� �|�w�{� �ƣ�j�����j�������j��������v�|�j��j��������j��j��j������j������j��� �{� j����j�����j�|ƹ���j���j����������j���j������j����j������jù�x �Ƌj����j�������q�j�����j�������j������j��j���j����j��j����vj�q����x �ƒ��kjj����jëj���j�j�����j��j���j����j�qjëk�|�j��j�������j��j�� �|Ʊ�������j��������j��jù���{� j����j������|�x �ƍq���vj���q�j�����j�������j�����k �ƒ�kj���j�j������j������jëj��ò���kkj�|ƒ�j������j��jù�j���� �|ƫ���j��j�������jxxx �ƒ�kj���j�j������j������jëj��ò���kj�|Ʋ�j������j��jù�j���� �|ƫ���j��j�������jxxx �Ɵ�vj�j���q�j����j�q����vj�j���j��j����xj�|ƾ��j���������j�����j�������x �Ɵ�vjï�j�����kjj���j�����j����j��qj����j����j����jëj���j�����kj�|Ʋ�j�����x ������j�j������j������j�������j�����j�������j���j����j��j��� ������vjù�j�����j��j������j����j��j���������j���j���������x �Ǝ��jxxxj���kjj��j�����j����j����j�����j�|Ʋ�j������x �|ƞ��j�����j�����jù�j�j���������j����j���j�������j���j�ï�j��ö�v �|ƫ�����vj�Ɲ�vj���j����jëj�����j�����jxxxj���vj�j����j����jj��j���� �Ʋ�� j�����j��jëvj����j�j�����x ���j����jëj�����j����� ����vj��������vjëj�����j�����j�j��������j������k �ƒ��kjj��j���q�j���j���j����kj�|Ʋ�j��������xjj�ơ�j�����j����j��� �Ɠj����j���j���j����kj�|ƾ��j�����j�����vj�ơ�j�����j����j��� ���������j���j����������vj��j�����j���j����j��j������j������j���� ����jù��j����xjj�����j����������j����jù��j���������v ù�j����j���j����j�j����j�����j���jxxx �|ƣ��j����j�j�{� �|�w�{� �|�j�����������x �|ƞ��j�����j�����j�j�{� �|�w�{� �ƣ�j�����j�������j��������v�|�j��j��������j��j��j������j������j��� �{� j����j�����j�|ƹ���j���j����������j���j������j����j������jù�x �Ƌj����j�������q�j�����j�������j������j��j���j����j��j����vj�q����x �ƒ��kjj����jëj���j�j�����j��j���j����j�qjëk�|�j��j�������j��j�� �|Ʊ�������j��������j��jù���{� j����j������|�x �ƍq���vj���q�j�����j�������j�����k �ƒ�kj���j�j������j������jëj��ò���kkj�|ƒ�j������j��jù�j���� �|ƫ���j��j�������jxxx �ƒ�kj���j�j������j������jëj��ò���kj�|Ʋ�j������j��jù�j���� �|ƫ���j��j�������jxxx �Ɵ�vj�j���q�j����j�q����vj�j���j��j����xj�|ƾ��j���������j�����j�������x �Ɵ�vjï�j�����kjj���j�����j����j��qj����j����j����jëj���j�����kj�|Ʋ�j�����x ������j�j������j������j�������j�����j�������j���j����j��j��� ������vjù�j�����j��j������j����j��j���������j���j���������x �Ǝ��jxxxj���kjj��j�����j����j����j�����j�|Ʋ�j������x �|ƞ��j�����j�����jù�j�j���������j����j���j�������j���j�ï�j��ö�v �|ƫ�����vj�Ɲ�vj���j����jëj�����j�����jxxxj���vj�j����j����jj��j���� �Ʋ�� j�����j��jëvj����j�j�����x ���j����jëj�����j����� ����vj��������vjëj�����j�����j�j��������j������k �ƒ��kjj��j���q�j���j���j����kj�|Ʋ�j��������xjj�ơ�j�����j����j��� �Ɠj����j���j���j����kj�|ƾ��j�����j�����vj�ơ�j�����j����j��� ���������j���j����������vj��j�����j���j����j��j������j������j���� ����jù��j����xjj�����j����������j����jù��j���������v ù�j����j���j����j�j����j�����j���jxxx ����j��j�����j��j�����j���j�����j�����j���jù��j���������x �����j���������j���j�j����j������vj��j��������� ����j�������������j���j������j���j������q�j�����j��j��������j��j���j�������k ���jù��j��������j��������j��j���j��j��������v jù�j�������j{j�����j�����k �|Ɯ���q�j�ï�j�����j��xjj�ƣ��j���jj��vj��j������jù�j��k �Ƌ��jù�q��j����j����j���jxxx �ƌ��jxxxj���jxxxj����j���q�j�j����j����w�������kjj�j�����k�|�j��j���� �|ƫ�jù�j�������j����jù������j������jxxx ������j��j����j������j���kkkjj���j����j�j������j��j����j���j���q� ������j��j�����j����j��j����j��������kjj�������vjù�j����j���jù�� j���j���j��j��j����j���x ����������j��j��j���j����vj����j���j����j��������kjj���j����� ������jù�j��j���j������j������j�����j���j�����j���j������j������ �|ƫ���xjj��j������vj����j�������j������jù��{� j�º�������j������j�|�xxx �ƌ��jxxxj���jxxxj����j���q�j�j����j����w�������kjj�j�����k�|�j��j���� �|ƫ�jù�j�������j����jù������j������jxxx ���j�����jù��j�����j��j����vj���j�j�����j�����j������j������j�� ���j�ï�x �ơ������j���j�����vj��������|�j��j����j��j��j�������j���j�����j��� �ƾ����j��j��j���j����jxxx ����j�����j��j���j�����j���j�����j���j�����j��j���j������x �ơ���j��j����j�����jwwj����j���������|�j��j�����xjj�ƞ���j�����q�j��� ����j�����j�j����j�����vj���j���j�������j��j���j�����j����j��j�� �j������j����xjj�����j��j�����j���j�����jxxx xxxj���j�����jxxx xxxj���j�����jxxx xxxj���j�����jxxx ����j����j���j��j����j�������j���j����j��jù��j����vj��j�������j� ���j�����j���j������j��j������j�������j��j��������xjj����j�� ������vjù�j������j��j������j���j�������j��j���j�����jù�j���� ï���j��j��������jj���j��������j��j���������x �ƙ�vjt���ktj��qj�����������|�j��j�����xjj�ƣ���vj�j����j�����jq���� ��xxxj�j�����xjj�jq������j�����jt���ktj����j������j��qj��ý�j�� �ƽ�������j�������vj�����ý�xjj����vj���qj�������j����j�������jxxx �Ɨ�������jxxxj��������jxxxj��j���qj����j��j������j��qj��j���qjq�� �ƾ�jt���ktj���j��qj�����w��������j��j��j������kjj���q�q�j����j����� �ư��j�j�����j����kjj����j����qj�������j��j���j�������j��qjt���kt �ƽ������jr�s�������j��j��qj������������vj��qjxxx ������j�����j���jù�j�������jr�������ksvjù�j�����j����j��j��� ����w��������j������j�����������jxxx ����j��j�����j��j�����j���j�����j�����j���jù��j���������x �����j���������j���j�j����j������vj��j��������� ����j�������������j���j������j���j������q�j�����j��j��������j��j���j�������k ���jù��j��������j��������j��j���j��j��������v jù�j�������j{j�����j�����k �|Ɯ���q�j�ï�j�����j��xjj�ƣ��j���jj��vj��j������jù�j��k �Ƌ��jù�q��j����j����j���jxxx �ƌ��jxxxj���jxxxj����j���q�j�j����j����w�������kjj�j�����k�|�j��j���� �|ƫ�jù�j�������j����jù������j������jxxx ������j��j����j������j���kkkjj���j����j�j������j��j����j���j���q� ������j��j�����j����j��j����j��������kjj�������vjù�j����j���jù�� j���j���j��j��j����j���x ����������j��j��j���j����vj����j���j����j��������kjj���j����� ������jù�j��j���j������j������j�����j���j�����j���j������j������ �|ƫ���xjj��j������vj����j�������j������jù��{� j�º�������j������j�|�xxx �ƌ��jxxxj���jxxxj����j���q�j�j����j����w�������kjj�j�����k�|�j��j���� �|ƫ�jù�j�������j����jù������j������jxxx ���j�����jù��j�����j��j����vj���j�j�����j�����j������j������j�� ���j�ï�x �ơ������j���j�����vj��������|�j��j����j��j��j�������j���j�����j��� �ƾ����j��j��j���j����jxxx ����j�����j��j���j�����j���j�����j���j�����j��j���j������x �ơ���j��j����j�����jwwj����j���������|�j��j�����xjj�ƞ���j�����q�j��� ����j�����j�j����j�����vj���j���j�������j��j���j�����j����j��j�� �j������j����xjj�����j��j�����j���j�����jxxx xxxj���j�����jxxx xxxj���j�����jxxx xxxj���j�����jxxx ����j����j���j��j����j�������j���j����j��jù��j����vj��j�������j� ���j�����j���j������j��j������j�������j��j��������xjj����j�� ������vjù�j������j��j������j���j�������j��j���j�����jù�j���� ï���j��j��������jj���j��������j��j���������x �ƙ�vjt���ktj��qj�����������|�j��j�����xjj�ƣ���vj�j����j�����jq���� ��xxxj�j�����xjj�jq������j�����jt���ktj����j������j��qj��ý�j�� �ƽ�������j�������vj�����ý�xjj����vj���qj�������j����j�������jxxx �Ɨ�������jxxxj��������jxxxj��j���qj����j��j������j��qj��j���qjq�� �ƾ�jt���ktj���j��qj�����w��������j��j��j������kjj���q�q�j����j����� ���j��������j����j�������q�j������j����j����j�����������xj���q�� �����j����vj���������j��j���j����vj��q��j������j�����jù�j�j���� ��j����jù�j��������j�������j����j���j������j�������j���j������ ����j���������j���j���j���������j��j���j���x �ơ���v �j�|Ʋ��j�������j��������vj�������j���j�����j���� �|Ưï����xjj�Ɨ�j����j��j��������vjù�j����xjj����j��j��jù�j����� �|ƒ�����j��j���q�j������j���j���jù�q��j���������vjù�j�����j��j��� �|ư���j��� �|ƕ���j�������j�����j�j���j��j����j����j���j������j�����j���j�����v �ƙ�j������jù�j����j��j��������v xjj���q��j���j��j���j������ ����������j��j���j�����xjj���j���j�j������jù�j���jù��j�������� ���j������j������j��j���j���j���� �|�r�{zƒ�|�s�������� �|�r�{zƝ�|�s������� �|�r�{zƎ�|�s������ �Ɲ���j�j������j��������j�|ƾ��j����j������xjj�Ƒ������vj������� �Ʋ���������kjj�������jj�����j�j������j��j����vj�������ij��j�� �ƫ���������j�{� ��j���j����j��ë�j�������k ���j���j������j���j�º����jù��j���������j��j����j�������jr����j�� ����jù�j��������j���j����������jù��j�������sj������j������jù�� �����j��j���jxxx �ƣ��j��������j����kj�|ƾ��j����j������xjj�Ǝ��q�jù�j����j���j������� �Ƴ�j��j�j����������k�jj�j���q�j����j��j������j����j������j����kjj��� �Ʒ���j����j����vj����j����ù��j����kjj������kjj���j����j�������j��� �ƹ�j��j�����j���j����j����j�j���q�j��� j�����j���j���j���� �ƹ�j���j���k �ƌ���������k��|�j���j����j�����xjj�ơ��vjù�j������j������j������k �ƣ��j�����j��j�����������j����j����j����������j�������kjj������k �Ƒ��j����j��������j������j���j��j��j�����j���j���j���j�����j�� �� j���j���j����j��j���j���k ����j�������j�����jù�j��j���j����vj������vj���j�������j��� ���������j��j���j�����j�����j������j���j������xjj���w�����v ù�j�������j������j����j�����jù�j�����j����j�j������jxxx ����j�������j�����jù�j��j���j����vj������vj���j�������j��� ���������j��j���j�����j�����j������j���j������xjj���w�����v ù�j�������j������j����j�����jù�j�����j����j�j������jxxx ���j��������j����j�������q�j������j����j����j�����������xj���q�� �����j����vj���������j��j���j����vj��q��j������j�����jù�j�j���� ��j����jù�j��������j�������j����j���j������j�������j���j������ ����j���������j���j���j���������j��j���j���x �ơ���v �j�|Ʋ��j�������j��������vj�������j���j�����j���� �|Ưï����xjj�Ɨ�j����j��j��������vjù�j����xjj����j��j��jù�j����� �|ƒ�����j��j���q�j������j���j���jù�q��j���������vjù�j�����j��j��� �|ư���j��� �|ƕ���j�������j�����j�j���j��j����j����j���j������j�����j���j�����v �ƙ�j������jù�j����j��j��������v xjj���q��j���j��j���j������ ����������j��j���j�����xjj���j���j�j������jù�j���jù��j�������� ���j������j������j��j���j���j���� �|�r�{zƒ�|�s�������� �|�r�{zƝ�|�s������� �|�r�{zƎ�|�s������ �Ɲ���j�j������j��������j�|ƾ��j����j������xjj�Ƒ������vj������� �Ʋ���������kjj�������jj�����j�j������j��j����vj�������ij��j�� �ƫ���������j�{� ��j���j����j��ë�j�������k ���j���j������j���j�º����jù��j���������j��j����j�������jr����j�� ����jù�j��������j���j����������jù��j�������sj������j������jù�� �����j��j���jxxx �ƣ��j��������j����kj�|ƾ��j����j������xjj�Ǝ��q�jù�j����j���j������� �Ƴ�j��j�j����������k�jj�j���q�j����j��j������j����j������j����kjj��� �Ʒ���j����j����vj����j����ù��j����kjj������kjj���j����j�������j��� �ƹ�j��j�����j���j����j����j�j���q�j��� j�����j���j���j���� �ƹ�j���j���k �ƌ���������k��|�j���j����j�����xjj�ơ��vjù�j������j������j������k �ƣ��j�����j��j�����������j����j����j����������j�������kjj������k �Ƒ��j����j��������j������j���j��j��j�����j���j���j���j�����j�� �� j���j���j����j��j���j���k ����j�������j�����jù�j��j���j����vj������vj���j�������j��� ���������j��j���j�����j�����j������j���j������xjj���w�����v ù�j�������j������j����j�����jù�j�����j����j�j������jxxx ����j�������j�����jù�j��j���j����vj������vj���j�������j��� ���j������j����j��j�j����w������j���j�����j��������� ������j���j����j���j�������j�������j�������j��j���� �������q�j�������j�����vj�ó��j��j���j������j����j�j����� ����j��j���j����xj���j���������j����j��į�j��j��jù�j���� �����vj��������j�ï�vj�����jù��j����vj���j�����j�j����� ��j�����j���j����j���j������j�������x ���������j��jù��j�������j���j������jù�j���q�j��������� j������jù�q��j���j�j����vjù�j����j���j��������j� ������j���j��j���j����x ���j��������j�����j����j���j����vj�¯�����j�j��ð��j��������vj��� �����j���j����j���j������j�������x ����j�����j���������j��j{k ���j��������j�����j�������j��j�����j��jù��j���������j����j�� �������j���j����jù��j����k ���j���� j�º�������vj���� j��j����j��j���jù��j����j�������k ���j�����j������j��jù�jxxxj���j��������j������j��j������kjj������ ù�j���j����j�����j��j����������j����q�j���������vj��q�j������ ������j����j�j��������kkk ���j��������j����j��������j��jù��j����jxxxj���jù�j����q�j����j��� �j������j������kkk ���j������� j�º�������j��� j����k ���q��j���j��j�����j��jù�j����kjj���j��������j���j������j�j������� �����j���j��jù��j������w����x �|ƣ��q��j����j�{�zoj��jù��j����������|�kjj�������jù�j������j��j���� �������j���������� ������vj����j�j����kjj���q�jù�j����j����j��j��j����� vj�����É j����j��������j��j����j������������j��jù��j��������k ���j������j����j��j�j����w������j���j�����j��������� ������j���j����j���j�������j�������j�������j��j���� �������q�j�������j�����vj�ó��j��j���j������j����j�j����� ����j��j���j����xj���j���������j����j��į�j��j��jù�j���� �����vj��������j�ï�vj�����jù��j����vj���j�����j�j����� ��j�����j���j����j���j������j�������x ���������j��jù��j�������j���j������jù�j���q�j��������� j������jù�q��j���j�j����vjù�j����j���j��������j� ������j���j��j���j����x ���j��������j�����j����j���j����vj�¯�����j�j��ð��j��������vj��� �����j���j����j���j������j�������x ����j�����j���������j��j{k ���j��������j�����j�������j��j�����j��jù��j���������j����j�� �������j���j����jù��j����k ���j���� j�º�������vj���� j��j����j��j���jù��j����j�������k ���j�����j������j��jù�jxxxj���j��������j������j��j������kjj������ ù�j���j����j�����j��j����������j����q�j���������vj��q�j������ ������j����j�j��������kkk ���j��������j����j��������j��jù��j����jxxxj���jù�j����q�j����j��� �j������j������kkk ���j������� j�º�������j��� j����k ���q��j���j��j�����j��jù�j����kjj���j��������j���j������j�j������� �����j���j��jù��j������w����x �|ƣ��q��j����j�{�zoj��jù��j����������|�kjj�������jù�j������j��j���� �������j���������� ������vj����j�j����kjj���q�jù�j����j����j��j��j����� vj�����É j����j��������j��j����j������������j��jù��j��������k ���j������j����j��j�j����w������j���j�����j��������� ������j���j����j���j�������j�������j�������j��j���� �������q�j�������j�����vj�ó��j��j���j������j����j�j����� ����j��j���j����xj���j���������j����j��į�j��j��jù�j���� �����vj��������j�ï�vj�����jù��j����vj���j�����j�j����� ��j�����j���j����j���j������j�������x ���������j��jù��j�������j���j������jù�j���q�j��������� j������jù�q��j���j�j����vjù�j����j���j��������j� ������j���j��j���j����x ���j��������j�����j����j���j����vj�¯�����j�j��ð��j��������vj��� �����j���j����j���j������j�������x ����j�����j���������j��j{k ���j��������j�����j�������j��j�����j��jù��j���������j����j�� �������j���j����jù��j����k ���j���� j�º�������vj���� ���q��j�����j����j���j����j����j����j������j���j���j������� �������j����������xjj���j����jù��j������vj������vj��jù� ����j����j���j���j�j�����j��j��xjj���j�����j�����jù�j��� ���������j������j��j���j�������vj���x �Ƒ���j�������vj�|ƽ��j������j�������vj�������jù�j����j��j��� �j��������jjq�����j����j��j��jzzj���������j��jù�j���� �Ƹ���vj���j���j����j��j�j���� j��j����x ���j��������jù��j������j���j���j���j�����j���j�j�������j��j��� �����xjj�������jù��j�ï�j���j�������jù��j������vjù�j����j��j��� ��j���j����jxxx ������j�����j�������jù��j����xjj���j����j������j�������k ���j�«����jù��j����j�����j���j��������jù�q��j���j��j����j���j�� ù�j�������x �|ƞ��j�����j������j���j������j���j��ývj�Ƌ�jxxxj�������jù�q�j���� �ƾ�j����j����j�������j����v � �������j����j�j��������j�����jr��j����jù�j������ksvjù�j������ ���������j���j�����j����jxxx �ƙ�vjù�q��j�j������j��j����q���|�j���j�����j�����vj��������xjj�Ɠ� �ƾ���j����vj���j��j�����jù�j����j��j��j����j�����j���j����kjjq����� �Ʊ���jù�j�j��������j�������j���j�����{� j����j�������k �|ƌ�������j����vj���j����vj�Ɵ�jxxxjù�j��j���� j�����v �� ���j����j���j�����j��j���j�����vj���j����j���j������jù�j�j������� ��j�����vj��������wï����j�����xjj���j�����jù������j��j�����j�� ����vj���jxxx ù�j����j�����j�����kjj���jù��j���������j����j����j��������k �Ƌ�vj����xjj��ò��j�������j����vj����v�|�j���j�������vj������ �|ƭ�������j��jù�j�����j����jxxx ���j�����j�����j��jù��j��������j���j������j����j����j�j������j�� ���j������kjjr���vj����q�jù�j�������j��jù�������s ���q��j�����j����j���j����j����j����j������j���j���j������� �������j����������xjj���j����jù��j������vj������vj��jù� ����j����j���j���j�j�����j��j��xjj���j�����j�����jù�j��� ���������j������j��j���j�������vj���x �Ƒ���j�������vj�|ƽ��j������j�������vj�������jù�j����j��j��� �j��������jjq�����j����j��j��jzzj���������j��jù�j���� �Ƹ���vj���j���j����j��j�j���� j��j����x ���j��������jù��j������j���j���j���j�����j���j�j�������j��j��� �����xjj�������jù��j�ï�j���j�������jù��j������vjù�j����j��j��� ��j���j����jxxx ������j�����j�������jù��j����xjj���j����j������j�������k ���j�«����jù��j����j�����j���j��������jù�q��j���j��j����j���j�� ù�j�������x �|ƞ��j�����j������j���j������j���j��ývj�Ƌ�jxxxj�������jù�q�j���� �ƾ�j����j����j�������j����v � �������j����j�j��������j�����jr��j����jù�j������ksvjù�j������ ���������j���j�����j����jxxx �ƙ�vjù�q��j�j������j��j����q���|�j���j�����j�����vj��������xjj�Ɠ� �ƾ���j����vj���j��j�����jù�j����j��j��j����j�����j���j����kjjq����� �Ʊ���jù�j�j��������j�������j���j�����{� j����j�������k �|ƌ�������j����vj���j����vj�Ɵ�jxxxjù�j��j���� j�����v �� ���j����j���j�����j��j���j�����vj���j����j���j������jù�j�j������� ��j�����vj��������wï����j�����xjj���j�����jù������j��j�����j�� ����vj���jxxx ù�j����j�����j�����kjj���jù��j���������j����j����j��������k �Ƌ�vj����xjj��ò��j�������j����vj����v�|�j���j�������vj������ �|ƭ�������j��jù�j�����j����jxxx ���j�����j�����j��jù��j��������j���j������j����j����j�j������j�� ���j������kjjr���vj����q�jù�j�������j��jù�������s ���q��j�����j����j���j����j����j����j������j���j���j������� �������j����������xjj���j����jù��j������vj������vj��jù� ����j����j���j���j�j�����j��j��xjj���j�����j�����jù�j��� ���������j������j��j���j�������vj���x �Ƒ���j�������vj�|ƽ��j������j�������vj�������jù�j����j��j��� �j��������jjq�����j����j��j��jzzj���������j��jù�j���� �Ƹ���vj���j���j����j��j�j���� j��j����x ���j��������jù��j������j���j���j���j�����j���j�j�������j��j��� �����xjj�������jù��j�ï�j���j�������jù��j������vjù�j����j��j��� ��j���j����jxxx ������j�����j�������jù��j����xjj���j����j������j�������k �������j�����j��ù��j������vjù�j�����j��j���j��j��j�����j�� �ơ���j���vj��j����kj�|� j�������x��j��vj���jù�q��j�j����w �ƶ������j�������kjj��ò��jù�q��j�j����j���j��j�����vj��� ���j����jù��j��įj���� j���j����j��j���j�����j����j�� j�����vj���j����w�����j����j�� j����vj���j��������� �����j�º����j�� j����j����vj���j�j����������j���w�����x ���������j����jù��j��� j����q�j�«���� ù�j�������j�����j�j���j���j��j����j�������j�����x �|ƞ��j�������j��������� j��������{� j����j�����j�|Ƴ��� ù��j����j���j����j������j���j��j���� j�������k r���j������j��jù�q��j����j����j����j����jxxxs ���q��j����j������j{j�����j�����j���j������j����j�j������j�������k ���j�����j������������j�� j���j�����q�j�������j�����������j���j����j���� j���j����j�������x j�����j��j���j����������j���� �j����jt����ktj���j���j������j�����j������j����j���������j�� j�º����xjj�{ƣ��j���� j�º�������k �������vjù�j����j����j�j�����j�����j���jù��j�������jxxx ����j����x j��j����j����j����������k �������j�����j��ù��j������vjù�j�����j��j���j��j��j�����j�� �ơ���j���vj��j����kj�|� j�������x��j��vj���jù�q��j�j����w �ƶ������j�������kjj��ò��jù�q��j�j����j���j��j�����vj��� ���j����jù��j��įj���� j���j����j��j���j�����j����j�� j�����vj���j����w�����j����j�� j����vj���j��������� �����j�º����j�� j����j����vj���j�j����������j���w�����x ���������j����jù��j��� j����q�j�«���� ù�j�������j�����j�j���j���j��j����j�������j�����x �|ƞ��j�������j��������� j��������{� j����j�����j�|Ƴ��� ù��j����j���j����j������j���j��j���� j�������k r���j������j��jù�q��j����j����j����j����jxxxs ���q��j����j������j{j�����j�����j���j������j����j�j������j�������k ���j�����j������������j�� j���j�����q�j�������j�����������j���j����j���� j���j����j�������x j�����j��j���j����������j���� �j����jt����ktj���j���j������j�����j������j����j���������j�� j�º����xjj�{ƣ��j���� j�º�������k �������vjù�j����j����j�j�����j�����j���jù��j�������jxxx ����j����x j��j����j����j����������k �������j�����j��ù��j������vjù�j�����j��j���j��j��j�����j�� �ơ���j���vj��j����kj�|� j�������x��j��vj���jù�q��j�j����w �ƶ������j�������kjj��ò��jù�q��j�j����j���j��j�����vj��� ���j����jù��j��įj���� j���j����j��j���j�����j����j�� j�����vj���j����w�����j����j�� j����vj���j��������� �����j�º����j�� j����j����vj���j�j����������j���w�����x ���������j����jù��j��� j����q�j�«���� ù�j�������j�����j�j���j���j��j����j�������j�����x �|ƞ��j�������j��������� j��������{� j����j�����j�|Ƴ��� ù��j����j���j����j������j���j��j���� j�������k r���j������j��jù�q��j����j����j����j����jxxxs ���q��j����j������j{j�����j�����j���j������j����j�j������j�������k ���j�����������j�����j��j�������j�������j���j�����j��j���j������ ����jù�j������j��j����j���j����j��j���j���j�j�����j�����x �Ƒ���j��jù�j��j����j����j����j������j���j�j������j��ī��v �|Ʋ�j��ývj���j�����j��������j���������xjj�Ə���j�����j���� �ƿ������j���������j���Ķ��j����j�����vj�����j���q�j���� �ƿ��j���j��j����j��÷���xjj��j����j�j���j����j��������j�� �Ƭ�������j��j��ýkjj���j����j������j������j���j����j���jxxx �|Ɯ������j������j�ï�j��jù�vj��j������vj�Ɠj���q�j�q����jù� �Ʋ���j�j�����j�j�����j������jj�j����jù�q��j����vj�������� �Ʒ�������j���j���xjj�j�������j�q�j����j��j����j��j���kjj��� �Ɠq��j���jù��{� j�����j�ƾ�j����������jù�j���jù��j���������x ������vjù�j����j���j�����j���j����j�j����j��j�����j���j����j���� ���j�j���������j��j������j��jù��j���į�j�����j����j����xjjr��� ����j����j�j������j����j��j�����jù��j������j��������j����jù� ������j����j����jù�j���jù�j����jù��j�����j��j��j��j�j����jq����qx �ƒ��k�|�j�����������j�����xjj�ơ���j�j������kjj���j���q�j����j��� �ƭ�������kjj����j��j��j����j����j���j���������k �|ƞ����q�j�j����j��j�����j������j�����vj���jù�j����j�j�������j����xxx �Ƌ��j�j�������jù�j����j�j����j�������vj�|Ǝ����������j�����x �Ƒ��j����j������j�j����j��j���������vjù�j�����x ����j������jù�q��j������j����j���j��j���j�����j������j�������� ����vjù�j������j��q�j��j�j����j����j��j�����j���vj����j��j����jxxx ���j�����������j�����j��j�������j�������j���j�����j��j���j������ ����jù�j������j��j����j���j����j��j���j���j�j�����j�����x �Ƒ���j��jù�j��j����j����j����j������j���j�j������j��ī��v �|Ʋ�j��ývj���j�����j��������j���������xjj�Ə���j�����j���� �ƿ������j���������j���Ķ��j����j�����vj�����j���q�j���� �ƿ��j���j��j����j��÷���xjj��j����j�j���j����j��������j�� �Ƭ�������j��j��ýkjj���j����j������j������j���j����j���jxxx �|Ɯ������j������j�ï�j��jù�vj��j������vj�Ɠj���q�j�q����jù� �Ʋ���j�j�����j�j�����j������jj�j����jù�q��j����vj�������� �Ʒ�������j���j���xjj�j�������j�q�j����j��j����j��j���kjj��� �Ɠq��j���jù��{� j�����j�ƾ�j����������jù�j���jù��j���������x ������vjù�j����j���j�����j���j����j�j����j��j�����j���j����j���� ���j�j���������j��j������j��jù��j���į�j�����j����j����xjjr��� ����j����j�j������j����j��j�����jù��j������j��������j����jù� ������j����j����jù�j���jù�j����jù��j�����j��j��j��j�j����jq����qx �ƒ��k�|�j�����������j�����xjj�ơ���j�j������kjj���j���q�j����j��� �ƭ�������kjj����j��j��j����j����j���j���������k �|ƞ����q�j�j����j��j�����j������j�����vj���jù�j����j�j�������j����xxx �Ƌ��j�j�������jù�j����j�j����j�������vj�|Ǝ����������j�����x �Ƒ��j����j������j�j����j��j���������vjù�j�����x ����j������jù�q��j������j����j���j��j���j�����j������j�������� ����vjù�j������j��q�j��j�j����j����j��j�����j���vj����j��j����jxxx ���j�����������j�����j��j�������j�������j���j�����j��j���j������ ����jù�j������j��j����j���j����j��j���j���j�j�����j�����x �Ƒ���j��jù�j��j����j����j����j������j���j�j������j��ī��v �|Ʋ�j��ývj���j�����j��������j���������xjj�Ə���j�����j���� �ƿ������j���������j���Ķ��j����j�����vj�����j���q�j���� �ƿ��j���j��j����j��÷���xjj��j����j�j���j����j��������j�� �Ƭ�������j��j��ýkjj���j����j������j������j���j����j���jxxx �|Ɯ������j������j�ï�j��jù�vj��j������vj�Ɠj���q�j�q����jù� �Ʋ���j�j�����j�j�����j������jj�j����jù�q��j����vj�������� �Ʒ�������j���j���xjj�j�������j�q�j����j��j����j��j���kjj��� �Ɠq��j���jù��{� j�����j�ƾ�j����������jù�j���jù��j���������x ������vjù�j����j���j�����j���j����j�j����j��j�����j���j����j���� ���j�j���������j��j������j��jù��j���į�j�����j����j����xjjr��� ����j����j�j������j����j��j�����jù��j������j��������j����jù� ������j����j����jù�j���jù�j����jù��j�����j��j��j��j�j����jq����qx �ƒ��k�|�j�����������j�����xjj�ơ���j�j������kjj���j���q�j����j��� �ƭ�������kjj����j��j��j����j����j���j���������k �|ƞ����q�j�j����j��j�����j������j�����vj���jù�j����j�j�������j����xxx �Ƌ��j�j�������jù�j����j�j����j�������vj�|Ǝ����������j�����x �Ƒ��j����j������j�j����j��j���������vjù�j�����x ����j������jù�q��j������j����j���j��j���j�����j������j�������� ����vjù�j������j��q�j��j�j����j����j��j�����j���vj����j��j����jxxx ���j�����������j�����j��j�������j�������j���j�����j��j���j������ ����jù�j������j��j����j���j����j��j���j���j�j�����j�����x �Ƒ���j��jù�j��j����j����j����j������j���j�j������j��ī��v �|Ʋ�j��ývj���j�����j��������j���������xjj�Ə���j�����j���� �ƿ������j���������j���Ķ��j����j�����vj�����j���q�j���� �ƿ��j���j��j����j��÷���xjj��j����j�j���j����j��������j�� �Ƭ�������j��j��ýkjj���j����j������j������j���j����j���jxxx �|Ɯ������j������j�ï�j��jù�vj��j������vj�Ɠj���q�j�q����jù� �Ʋ���j�j�����j�j�����j������jj�j����jù�q��j����vj�������� �Ʒ�������j���j���xjj�j�������j�q�j����j��j����j��j���kjj��� �Ɠq��j���jù��{� ���j������j�j������j������j��������j��j��j�����vj��jù� ������jù��j���j���j����j��j��j���j������j����xjj�������� ���j�������j��������j����j�����j���q��j�������j�������� ��j�����j��j��������jù��j��������j�������vjù�j����j���x ����j�����j�����j����vj��jù�j����j��j�����xjj��j����j���j������ï ����j�j������ó��jt������ktj���jù�j����j���j��������j��j���j����� �������j������j��j�����j��j���������j���j������j������x ���j���j�j�����j�� j����j�����k ����j�������j����������j���j���j�j���j������j��jù��j���xjj���� �����j����j������j�����j���j������vj���j���j�����j�������j�����jù� �����j���j���j�����x ���j������j����j��j��������j����j������j�j���j���j���������xjj���� �����j���j����j������j���j����vj��j��������j�����j���j����j��� �����k �|Ɠ�j�����jù��{� j��j����j�|ƾ�j�������j��j����j���j����������q�j������v ���jù�q��j������j��j������j��j���j�����j��j���j�����j�������j��� ���j�����jxxx ��vjï��jwwj���q��j�j�����j����v kjj������kjj����j�����j���� ����j���j������j����j���j������j�j����j����q�j������j����j��� ������x ����jù�j��j��j��������j��vjù�j����j����j��q�j������j�j������ �����j�����j��j���j����k ��������jù�j����j���q�j����j�����j��j���j���������xjj������j�� ����j����vjù�j����j�������j����j�j����j��jù��j���vj�����vj��� ����j���vjq��kjj���vj���j�������kjj������vj�����j����kq ���j�����j�������j������j����j����������j�����j��jù�j�����j���xxx ���j������j�j������j������j��������j��j��j�����vj��jù� ������jù��j���j���j����j��j��j���j������j����xjj�������� ���j�������j��������j����j�����j���q��j�������j�������� ��j�����j��j��������jù��j��������j�������vjù�j����j���x ����j�����j�����j����vj��jù�j����j��j�����xjj��j����j���j������ï ����j�j������ó��jt������ktj���jù�j����j���j��������j��j���j����� �������j������j��j�����j��j���������j���j������j������x ���j���j�j�����j�� j����j�����k ����j�������j����������j���j���j�j���j������j��jù��j���xjj���� �����j����j������j�����j���j������vj���j���j�����j�������j�����jù� �����j���j���j�����x ���j������j����j��j��������j����j������j�j���j���j���������xjj���� �����j���j����j������j���j����vj��j��������j�����j���j����j��� �����k �|Ɠ�j�����jù��{� j��j����j�|ƾ�j�������j��j����j���j����������q�j������v ���jù�q��j������j��j������j��j���j�����j��j���j�����j�������j��� ���j�����jxxx ��vjï��jwwj���q��j�j�����j����v kjj������kjj����j�����j���� ����j���j������j����j���j������j�j����j����q�j������j����j��� ������x ����jù�j��j��j��������j��vjù�j����j����j��q�j������j�j������ �����j�����j��j���j����k ��������jù�j����j���q�j����j�����j��j���j���������xjj������j�� ����j����vjù�j����j�������j����j�j����j��jù��j���vj�����vj��� ����j���vjq��kjj���vj���j�������kjj������vj�����j����kq ���j�����j�������j������j����j����������j�����j��jù�j�����j���xxx ���j������j�j������j������j��������j��j��j�����vj��jù� ������jù��j���j���j����j��j��j���j������j����xjj�������� ���j�������j��������j����j�����j���q��j�������j�������� ��j�����j��j��������jù��j��������j�������vjù�j����j���x ����j�����j�����j����vj��jù�j����j��j�����xjj��j����j���j������ï ����j�j������ó��jt������ktj���jù�j����j���j��������j��j���j����� �������j������j��j�����j��j���������j���j������j������x ���j���j�j�����j�� j����j�����k ����j�������j����������j���j���j�j���j������j��jù��j���xjj���� �����j����j������j�����j���j������vj���j���j�����j�������j�����jù� �����j���j���j�����x ���j������j����j��j��������j����j������j�j���j���j���������xjj���� �����j���j����j������j���j����vj��j��������j�����j���j����j��� �����k �|Ɠ�j�����jù��{� j��j����j�|ƾ�j�������j��j����j���j����������q�j������v ���jù�q��j������j��j������j��j���j�����j��j���j�����j�������j��� ���j�����jxxx ��vjï��jwwj���q��j�j�����j����v kjj������kjj����j�����j���� ����j���j������j����j���j������j�j����j����q�j������j����j��� �������j��j����j��j������j�j���j��j�������vjù�j���� ����j���j����������j����j���j��j�����j���j����j�����j�� ���j����q�j���������xjj��������jù�j������j����j����j�� ����j�������q�j������j����j��������j������j���j���� ����������vj�����j�������j}j�����j������j��j������vjj����� ����j��j����vj���j�j������w��į�j������j��j������j�������x ���j�����j���j��j���j�����j�������j��jù��j��������j���j����jù�� �����j������j��������x ���q��j�������j������j���j���j������kjj�����j���������j����k ���j���įj���j��j���j�����j����j��j����j���j����j��j�����jù��j���x ���q��j�������j������j���j���j����kjj�����j���������j����k ���j���j���j�������j������j��j���j����j���j����j��j��j���j����x ���q�j���j������j��j������j����j�������jj�����j���������j����k �����jù��j������j��j����j�������j�������jù��j������vjù�j����j��� ���j�����j����x t�����kt ������j���j����jù�j���vjù�j�������j�����j���j������j��jù��j���� ���j����j����j�j����j��j����w���vj������j����vj������j�j���������� �������k �����������vj�������þ�vj�����q�j�����vj��j�����j����xjj���j������ ��j������j���������j����������j��jù��j�������vj���jù�j����j��� �|Ʊ����j��j���j�����j�����j����{� j��j�����|�x ����j�����vj�����������kjj���q��j�������j����������vj�����q�j�����v �������j��j���������jù�k ���q��j�������j���j����������j���������kjj������j���j����j��� �����vjù�j������j���j����j���j�����j��j���j�����j�����j��� j�� ����xjj���j����j���� j�º�������j������k ���j����kjj����������j������jù�j��jù��j����j���j����j��������j�� ����j���j������j����j���j��jù�kjj���q��j�������j����j����j������ ���������j��j���j����j��j�j����j�����j���j����j��j���j����q�j���� ��jù��j������j������j�������j���j���j���ī���jxxx �|ƣ��q��j����j����j�{�zoj��jù��j���������j�|ƫ���{� j�º�������j�������|�kjj���q� ������j��j���j���j������j���j����j��j���j�j�����k ���������j����j���j��j�������jwwj���j��������j���j����j�����j� ������j�����j�����jwwjù��j������j���j�����j��������j���j���j����� �j���j����j��j���j���j��j����������q�j��������kjj���j�����j������� ��j�����j���j������j��j�����j�����vj��������j�ý���������j�� �������k ��j���j���������vjù�j������j����j����j���j�����j����j���j�����j�� �|ƫj�����j�����j����{� j��j�����|�k �����jù��j��������j���������j��j�����j����j���j�����vjù�j����j���� �|�ù��j������kjj���j�����j�����jù��{� j����j�|ƫ�j���j�����j�����k ���j���j���j�j�����kk ���j���j���j���j�j����j��j�����vj���� j����j��������� ��j�������jxxx ���j����q�j������j������j��j�����j����j���j�j����kjj��¾j����v �����j�j�����������vj��������k ���j����q�j������j������j��j�����j����j���j�j����kjj��¾j����v �����j�j�����������vj��������k ����������jù��j�������vjù�j����j��j����j��jù��j����j���j����� ù�jxxx ����������j�����j�����j���j�������jù�kjj���j��j����jù�j���j�� ������jù������vj���j��j�����jù�j��j�j����j������xjjr���q��j������ �����j�����vj����q�jù��s �|ƣ��q��j����j�{�zoj��jù��j���������j�|ƫ���{� j�º�������j�������|�kjj���q� ������j��j���j�j�����j��j���j������j���j����j����j������� �������������j��j������j�¾��j�������j����jù��j������k ����vjù�q��j�������j�����j���j����þ����j��j���j������j���������k ����j��vjëj������j���k �������j��j����j��j������j�j���j��j�������vjù�j���� ����j���j����������j����j���j��j�����j���j����j�����j�� ���j����q�j���������xjj��������jù�j������j����j����j�� ����j�������q�j������j����j��������j������j���j���� ����������vj�����j�������j}j�����j������j��j������vjj����� ����j��j����vj���j�j������w��į�j������j��j������j�������x ���j�����j���j��j���j�����j�������j��jù��j��������j���j����jù�� �����j������j��������x ���q��j�������j������j���j���j������kjj�����j���������j����k ���j���įj���j��j���j�����j����j��j����j���j����j��j�����jù��j���x ���q��j�������j������j���j���j����kjj�����j���������j����k ���j���j���j�������j������j��j���j����j���j����j��j��j���j����x ����j���������j����j�����vjù�j������j�����vj��j���j��������j�� �������j���j��������j���j�������j�������j�j������j��j�������j��� ��jù��j�����j�������xjj���j������j���j�����j���������j����j��� �����j���j�������j�����j�j�������j������j���j���j������j�������� ����j����jù�j�����jxxx ��vj�����j�������kkkjj����������j���j�����jù�j��������j������j�� ����vj���j����j��j�����jr��j����j���j����j�������j��j���jù� ������xs �Ɲ�jëj�����j���j�j�����j��j���j��������vj���vj������w������jj���k �Ɛ���j��j��kkk�|�jj���j��j��ó��vj��j�����j��jù�j����j�����j����� �|ư����j��j���k �����j���q�j������j���j��j��j������j����j����j���j�j���j���j���� ����j��j���j��������jù������vjù�j���j���j���jù�q��j�����vj��ó�� ��j���j��j����j��������j��j��������j�������jù�j���j���jxxx ���q��j�������j���j����������j�����������kjj�������j��j����vjù� ��������jù��j������j���j���j��������j�����j��j����jù�j����j��� �����j��j��j��������j��j����j��j��������j��j�j��������j������j�� ���j����jxxx ���j������j����j��j���j����j�j�����j��������j����j���j��k ����������j������j��jù�j�����jù��j�����j����j������j����j���� ������vj����j�����jù�j����j���j�����jù��j������j����j����j�j���� ���j���j��j���xjj�������vjù�j������j��j���jù������j����j������� �����j�����vj���jù�q��j����jzoj��jù��j���������j��� j�º������� ������xjj���j����j����j����j������j���������j���������j�������j�� ���j���j������j���j���jù�j����j��������j����j����jxxx �����j���q�j������j���j��j��j������j����j����j���j�j���j���j���� ����j��j���j��������jù������vjù�j���j���j���jù�q��j�����vj��ó�� ��j���j��j����j��������j��j��������j�������jù�j���j���xjj���j���� ��j����j��j���j�����ë��j����j��j����j�����j����j�������j��j��� ����q�j������vj���j��������j������jù�j���j�������j���j������x �|ƣ��j����j�{�zoj��jù��j����������|�j����{� j�º�������j�������|�k ����j���������j����j�����vjù�j������j�����vj��j���j��������j�� �������j���j��������j���j�������j�������j�j������j��j�������j��� ��jù��j�����j�������xjj���j������j���j�����j���������j����j��� �����j���j�������j�����j�j�������j������j���j���j������j�������� ����j����jù�j�����jxxx ��vj�����j�������kkkjj����������j���j�����jù�j��������j������j�� ����vj���j����j��j�����jr��j����j���j����j�������j��j���jù� ������xs �Ɲ�jëj�����j���j�j�����j��j���j��������vj���vj������w������jj���k �Ɛ���j��j��kkk�|�jj���j��j��ó��vj��j�����j��jù�j����j�����j����� �|ư����j��j���k �����j���q�j������j���j��j��j������j����j����j���j�j���j���j���� ����j��j���j��������jù������vjù�j���j���j���jù�q��j�����vj��ó�� ��j���j��j����j��������j��j��������j�������jù�j���j���jxxx ���q��j�������j���j����������j�����������kjj�������j��j����vjù� ��������jù��j������j���j���j��������j�����j��j����jù�j����j��� �����j��j��j��������j��j����j��j��������j��j�j��������j������j�� ���j����jxxx ���j������j����j��j���j����j�j�����j��������j����j���j��k ����������j������j��jù�j�����jù��j�����j����j������j����j���� ������vj����j�����jù�j����j���j�����jù��j������j����j����j�j���� ���j���j��j���xjj�������vjù�j������j��j���jù������j����j������� �����j�����vj���jù�q��j����jzoj��jù��j���������j��� j�º������� ������xjj���j����j����j����j������j���������j���������j�������j�� ���j���j������j���j���jù�j����j��������j����j����jxxx �����j���q�j������j���j��j��j������j����j����j���j�j���j���j���� ����j��j���j��������jù������vjù�j���j���j���jù�q��j�����vj��ó�� ��j���j��j����j��������j��j��������j�������jù�j���j���xjj���j���� ��j����j��j���j�����ë��j����j��j����j�����j����j�������j��j��� ����q�j������vj���j��������j������jù�j���j�������j���j������x �|ƣ��j����j�{�zoj��jù��j����������|�j����{� j�º�������j�������|�k ����j���������j����j�����vjù�j������j�����vj��j���j��������j�� �������j���j��������j���j�������j�������j�j������j��j�������j��� ��jù��j�����j�������xjj���j������j���j�����j���������j����j��� �����j���j�������j�����j�j�������j������j���j���j������j�������� ����j����jù�j�����jxxx ��vj�����j�������kkkjj����������j���j�����jù�j��������j������j�� ����vj���j����j��j�����jr��j����j���j����j�������j��j���jù� ������xs �Ɲ�jëj�����j���j�j�����j��j���j��������vj���vj������w������jj���k �Ɛ���j��j��kkk�|�jj���j��j��ó��vj��j�����j��jù�j����j�����j����� �|ư����j��j���k �����j���q�j������j���j��j��j������j����j����j���j�j���j���j���� ���j�����j����j��j���j����j���j������j�j����j���������j����j����� ��j��j�������xjj�������j�j�����j��j�����j���j������jr����j��j���� ù�j������q�j����j����������svjù�j����j���j��j���j�����x ���j������j���j����j����j���j����q�j����j���j�������j��vj��������� ��j���j������j��������j��j��j�����j��j����j���j���x �������vj��j�������jxxxj����j�j���j���������kjj���j�����j���j������ �������jù�vj���vj����jù�j������j��j���j������vj���j����j��ýjù� j��j����j�|ư��jù��j�����k �������vj��j�������jxxxj����j�������kjj���j�����j���j������j������� ������j�����j�����j��jù�j�����j������j�����j��j���j������j����j��� �����j���j������j���j������jxxx �������jù��j�ï�vjù�j������j���j��������jxxxj��������j����j��� ���������j���j��j�j�������j������kkkjj�������jù��j������j����vjù� �|ƽ����j����j��j���j������vj�����j���j�������j�������jù��{� j����j����� ��j�������j���j���������x �������vj��j�������jxxxj����j�j��������j�����j�����j��������j��j��� ������kjj���j�����j���j������j���j��������j��j������������ ��������x ������j��j����j����q�j������������vjù�j������jù��j����j���j������ ��j������j��j��j���j����xjj��j����jù�q�j�������jù��j������� ���������jxxx ���j�����j����j��j���j����j���j������j�j����j���������j����j����� ��j��j�������xjj�������j�j�����j��j�����j���j������jr����j��j���� ù�j������q�j����j����������svjù�j����j���j��j���j�����x ���j������j���j����j����j���j����q�j����j���j�������j��vj��������� ��j���j������j��������j��j��j�����j��j����j���j���x �������vj��j�������jxxxj����j�j���j���������kjj���j�����j���j������ �������jù�vj���vj����jù�j������j��j���j������vj���j����j��ýjù� j��j����j�|ư��jù��j�����k �������vj��j�������jxxxj����j�������kjj���j�����j���j������j������� ������j�����j�����j��jù�j�����j������j�����j��j���j������j����j��� �����j���j������j���j������jxxx �������jù��j�ï�vjù�j������j���j��������jxxxj��������j����j��� ���������j���j��j�j�������j������kkkjj�������jù��j������j����vjù� �|ƽ����j����j��j���j������vj�����j���j�������j�������jù��{� j����j����� ��j�������j���j���������x �������vj��j�������jxxxj����j�j��������j�����j�����j��������j��j��� ������kjj���j�����j���j������j���j��������j��j������������ ��������x ������j��j����j����q�j������������vjù�j������jù��j����j���j������ ��j������j��j��j���j����xjj��j����jù�q�j�������jù��j������� ���������jxxx ���j�����j����j��j���j����j���j������j�j����j���������j����j����� ��j��j�������xjj�������j�j�����j��j�����j���j������jr����j��j���� ù�j������q�j����j����������svjù�j����j���j��j���j�����x ���j������j���j����j����j���j����q�j����j���j�������j��vj��������� ��j���j������j��������j��j��j�����j��j����j���j���x �������vj��j�������jxxxj����j�j���j���������kjj���j�����j���j������ �������jù�vj���vj����jù�j������j��j���j������vj���j����j��ýjù� j��j����j�|ư��jù��j�����k �������vj��j�������jxxxj����j�������kjj���j�����j���j������j������� ������j�����j�����j��jù�j�����j������j�����j��j���j������j����j��� �����j���j������j���j������jxxx �������jù��j�ï�vjù�j������j���j��������jxxxj��������j����j��� ���������j���j��j�j�������j������kkkjj�������jù��j������j����vjù� �|ƽ����j����j��j���j������vj�����j���j�������j�������jù��{� j����j����� ��j�������j���j���������x �������vj��j�������jxxxj����j�j��������j�����j�����j��������j��j��� ������kjj���j�����j���j������j���j��������j��j������������ ��������x ������j��j����j����q�j������������vjù�j������jù��j����j���j������ ��j������j��j��j���j����xjj��j����jù�q�j�������jù��j������� ���������jxxx ���j�����j����j��j���j����j���j������j�j����j���������j����j����� ��j��j�������xjj�������j�j�����j��j�����j���j������jr����j��j���� ù�j������q�j����j����������svjù�j����j���j��j���j�����x ���j������j���j����j����j���j����q�j����j���j�������j��vj��������� ��j���j������j��������j��j��j�����j��j����j���j���x �������vj��j�������jxxxj����j�j���j���������kjj���j�����j���j������ �������jù�vj���vj����jù�j������j��j���j������vj���j����j��ýjù� j��j����j�|ư��jù��j�����k �������vj��j�������jxxxj����j�������kjj���j�����j���j������j������� ������j�����j�����j��jù�j�����j������j�����j��j���j������j����j��� �����j���j������j���j������jxxx �������jù��j�ï�vjù�j������j���j��������jxxxj��������j����j��� ���������j���j��j�j�������j������kkkjj�������jù��j������j����vjù� �|ƽ����j����j��j���j������vj�����j���j�������j�������jù��{� �|ƣ��j������j�j���j�����j��j���j�������j�����j�����j��jù��j���vj�� �|�ù�j��������j���j������j��j���j�����xjj��j�����jù�j����vj��������� �|Ʋ��j���vj���j��������vj�ƣ�q�j����j��j�����j���j�������vj�����jï� �|ƞ��j������j��j�����j�������jù��j������j�������j���j�������j����� �|�ù��j�����j����j����j�j���������j�ïxjj�Ɛ���j�����jïj���j�����k �|Ʋ�j��ýj�����������xjj�ƙ�����j��jïj����j�����vj��j�����k �|ƞ��j������j�����j�j������j��j����jù��j�����j��j���j�������jxxx �|ƞ��j������j��j�����j�����j����jù��j�����j���j��ývj�Ɨ�ò��jïq� �ƶ���j��j�����j���j�������j�����j���j�����j����jq��j���j�j��������� �ƣ�q�j�����j�j������j������j�qj������qk ���j������j������j���j�����j�j������j��j����jù��j�����j��j��� �������jxxx ��������j���j������j��������j�����j����j��q�j�������j�����vjù� ������j�j����j��j���j�������j�����j���j��j�j���j����jxxx �|ƞ��j������j�����j���j�ï�j���j��ývj�ơ���vjïj���q�j�����j������� �ƫj�����vjïj������j����kjj����j����j�����jïq��j����j�j����j��j��� �ƽ������vj����|�jj��������j���j�����j����vj��j��������vj�Ƌ��j����vj� �����j�����q��j��jïj���j������j����j����j���j�qj����j�����j������� �Ƭ�����vj��jïj���j������j��k �ƣ�q�j��������q��j����j��������j��j���j�����j����vj�������k�|�j��� �|Ʒ�����j�������j��jù�j����j����jxxx j�|Ʊ������j��j��j����jù�k �{ƣ��q��j������ �|ƣ��j����jù��j�����j�j��������������j����j��j���j����j���j��� j�º�������j������j�|Ƴ�q�j���jù�j�����jxxx j�{Ʋ��j������jù�k �|ƣ��j����jù��j�����j���j��j���j�������j��j�����j���j����j��j��� j�����|�x �|ƞ��j�����j�����j��jù��j����j�����jù�j�{�zoj��jù��j���������j�|ƫ�� j�º�������j�������|�x ����j�j�������kjj����j�j�����kjj���q��j���j���j�������kjj��� �|Ƽ������j���j�����j���{� j��j�����|�vj�����{� j�º�������j�������|�k �|ƣ��j������j�j���j�����j��j���j�������j�����j�����j��jù��j���vj�� �|�ù�j��������j���j������j��j���j�����xjj��j�����jù�j����vj��������� �|Ʋ��j���vj���j��������vj�ƣ�q�j����j��j�����j���j�������vj�����jï� �|ƞ��j������j��j�����j�������jù��j������j�������j���j�������j����� �|�ù��j�����j����j����j�j���������j�ïxjj�Ɛ���j�����jïj���j�����k �|Ʋ�j��ýj�����������xjj�ƙ�����j��jïj����j�����vj��j�����k �|ƞ��j������j�����j�j������j��j����jù��j�����j��j���j�������jxxx �|ƞ��j������j��j�����j�����j����jù��j�����j���j��ývj�Ɨ�ò��jïq� �ƶ���j��j�����j���j�������j�����j���j�����j����jq��j���j�j��������� �ƣ�q�j�����j�j������j������j�qj������qk ���j������j������j���j�����j�j������j��j����jù��j�����j��j��� �������jxxx ��������j���j������j��������j�����j����j��q�j�������j�����vjù� ������j�j����j��j���j�������j�����j���j��j�j���j����jxxx �|ƞ��j������j�����j���j�ï�j���j��ývj�ơ���vjïj���q�j�����j������� �ƫj�����vjïj������j����kjj����j����j�����jïq��j����j�j����j��j��� �ƽ������vj����|�jj��������j���j�����j����vj��j��������vj�Ƌ��j����vj� �����j�����q��j��jïj���j������j����j����j���j�qj����j�����j������� �Ƭ�����vj��jïj���j������j��k �ƣ�q�j��������q��j����j��������j��j���j�����j����vj�������k�|�j��� �|Ʒ�����j�������j��jù�j����j����jxxx j�|Ʊ������j��j��j����jù�k �{ƣ��q��j������ �|ƣ��j����jù��j�����j�j��������������j����j��j���j����j���j��� j�º�������j������j�|Ƴ�q�j���jù�j�����jxxx j�{Ʋ��j������jù�k �|ƣ��j����jù��j�����j���j��j���j�������j��j�����j���j����j��j��� j�����|�x �|ƞ��j�����j�����j��jù��j����j�����jù�j�{�zoj��jù��j���������j�|ƫ�� j�º�������j�������|�x ����j�j�������kjj����j�j�����kjj���q��j���j���j�������kjj��� �|Ƽ������j���j�����j���{� j��j�����|�vj�����{� j�º�������j�������|�k �|ƣ��j������j�j���j�����j��j���j�������j�����j�����j��jù��j���vj�� �|�ù�j��������j���j������j��j���j�����xjj��j�����jù�j����vj��������� �|Ʋ��j���vj���j��������vj�ƣ�q�j����j��j�����j���j�������vj�����jï� �|ƞ��j������j��j�����j�������jù��j������j�������j���j�������j����� �|�ù��j�����j����j����j�j���������j�ïxjj�Ɛ���j�����jïj���j�����k �|Ʋ�j��ýj�����������xjj�ƙ�����j��jïj����j�����vj��j�����k �|ƞ��j������j�����j�j������j��j����jù��j�����j��j���j�������jxxx �|ƞ��j������j��j�����j�����j����jù��j�����j���j��ývj�Ɨ�ò��jïq� �ƶ���j��j�����j���j�������j�����j���j�����j����jq��j���j�j��������� �ƣ�q�j�����j�j������j������j�qj������qk ���j��������j���j������vj���q�j�����j�������j���j�������� ���j�����j����j���j������j�����x �ƣ�j�����j���j����j��j����j����vj�|� �j��j����j������� �|ƶ������j��x ���j����j������j��j���j����j�����j������j���j������j���j������ �������j���j�����j������j�����jxxx ���j����j������j��j���j����j�����j������j���j������j����j��j���� ����j��j��j���j������j�j����j����j������j��j����jxxx �Ƙ��j����j��������j������vj����|�jj��j�����������j��������x ���j����j�j�����j���j�j�����j��j���������j����j���j������j���j����� ��j�����jxxx ����j�������vj��������j�{j����yy��j�����j���� �����j�����������jù��j�����������j��������vjù� ������jù��j����j�����j��j������j�����j���������x �|ƞ��j������j�����j���j���������j����jù�vj������j��j����vj���j����� �|Ƴ�j��j����j���j������j��j���j����j�����j��j���j����xjj�ƍ�������j�� �ƺ�����v�|�j��j��ýxjj�Ɠq��j���j��j�����vj����j�j����j��j�������j������x ���j�����j�����q�j����j������j��j������j���j����j��j�������j������� ����j���j����j��j���j����xjj��j������j������j���j��������j���j����� ���j������j�������j���j�����j����j���j���j��j���j�����vj�������x �������jù��j����j��j���������vjù�j�����j���j��j���j��������jxxx ���j��������j���j������vj���q�j�����j�������j���j�������� ���j�����j����j���j������j�����x �ƣ�j�����j���j����j��j����j����vj�|� �j��j����j������� �|ƶ������j��x ���j����j������j��j���j����j�����j������j���j������j���j������ �������j���j�����j������j�����jxxx ���j����j������j��j���j����j�����j������j���j������j����j��j���� ����j��j��j���j������j�j����j����j������j��j����jxxx �Ƙ��j����j��������j������vj����|�jj��j�����������j��������x ���j����j�j�����j���j�j�����j��j���������j����j���j������j���j����� ��j�����jxxx ����j�������vj��������j�{j����yy��j�����j���� �����j�����������jù��j�����������j��������vjù� ������jù��j����j�����j��j������j�����j���������x �|ƞ��j������j�����j���j���������j����jù�vj������j��j����vj���j����� �|Ƴ�j��j����j���j������j��j���j����j�����j��j���j����xjj�ƍ�������j�� �ƺ�����v�|�j��j��ýxjj�Ɠq��j���j��j�����vj����j�j����j��j�������j������x ���j�����j�����q�j����j������j��j������j���j����j��j�������j������� ����j���j����j��j���j����xjj��j������j������j���j��������j���j����� ���j������j�������j���j�����j����j���j���j��j���j�����vj�������x �������jù��j����j��j���������vjù�j�����j���j��j���j��������jxxx ���j��������j���j������vj���q�j�����j�������j���j�������� ���j�����j����j���j������j�����x �ƣ�j�����j���j����j��j����j����vj�|� �j��j����j������� �|ƶ������j��x ���j����j������j��j���j����j�����j������j���j������j���j������ �������j���j�����j������j�����jxxx ���j����j������j��j���j����j�����j������j���j������j����j��j���� ����j��j��j���j������j�j����j����j������j��j����jxxx �Ƙ��j����j��������j������vj����|�jj��j�����������j��������x ���j����j�j�����j���j�j�����j��j���������j����j���j������j���j����� ��j�����jxxx ����j�������vj��������j�{j����yy��j�����j���� �����j�����������jù��j�����������j��������vjù� ������jù��j����j�����j��j������j�����j���������x �|ƞ��j������j�����j���j���������j����jù�vj������j��j����vj���j����� �|Ƴ�j��j����j���j������j��j���j����j�����j��j���j����xjj�ƍ�������j�� �ƺ�����v�|�j��j��ýxjj�Ɠq��j���j��j�����vj����j�j����j��j�������j������x ���j�����j�����q�j����j������j��j������j���j����j��j�������j������� ����j���j����j��j���j����xjj��j������j������j���j��������j���j����� ���j������j�������j���j�����j����j���j���j��j���j�����vj�������x �������jù��j����j��j���������vjù�j�����j���j��j���j��������jxxx ���j��������j���j������vj���q�j�����j�������j���j�������� ���j�����j����j���j������j�����x �ƣ�j�����j���j����j��j����j����vj�|� �j��j����j������� �|ƶ������j��x ���j����j������j��j���j����j�����j������j���j������j���j������ �������j���j�����j������j�����jxxx ���j����j������j��j���j����j�����j������j���j������j����j��j���� ����j��j��j���j������j�j����j����j������j��j����jxxx �Ƙ��j����j��������j������vj����|�jj��j�����������j��������x ���j����j�j�����j���j�j�����j��j���������j����j���j������j���j����� ���j������j����j�j����j�������j���j������ý��� �����j��j�j��������j���j��j�����j����j����x ���j�����jù��j�����j���j���j���j��j�j����jxxx �������������vjù�j���q�j������j��j����j�j�����x �j�����j��j���j�������j�����j���j����jxxx ���j������j����j�j����j�������j���j������ý��� �����j��j�j��������j���j��j�����j����j����x ���j�����jù��j�����j���j���j���j��j�j����jxxx �������������vjù�j���q�j������j��j����j�j�����x �j�����j��j���j�������j�����j���j����jxxx ���j������j����j�j����j�������j���j������ý��� �����j��j�j��������j���j��j�����j����j����x ���j�����jù��j�����j���j���j���j��j�j����jxxx �������������vjù�j���q�j������j��j����j�j�����x �j�����j��j���j�������j�����j���j����jxxx ���j������j����j�j����j�������j���j������ý��� �����j��j�j��������j���j��j�����j����j����x ���j�����jù��j�����j���j���j���j��j�j����jxxx �������������vjù�j���q�j������j��j����j�j�����x �j�����j��j���j�������j�����j���j����jxxx ���j������j����j�j����j�������j���j������ý��� �����j��j�j��������j���j��j�����j����j����x ���j�����jù��j�����j���j���j���j��j�j����jxxx �������������vjù�j���q�j������j��j����j�j�����x �j�����j��j���j�������j�����j���j����jxxx ���j������j����j�j����j�������j���j������ý��� �����j��j�j��������j���j��j�����j����j����x ���j�����jù��j�����j���j���j���j��j�j����jxxx �������������vjù�j���q�j������j��j����j�j�����x �j�����j��j���j�������j�����j���j����jxxx ���j������j����j�j����j�������j���j������ý��� �����j��j�j��������j���j��j�����j����j����x ���j�����jù��j�����j���j���j���j��j�j����jxxx �������������vjù�j���q�j������j��j����j�j�����x �j�����j��j���j�������j�����j���j����jxxx ���j������j����j�j����j�������j���j������ý��� �����j��j�j��������j���j��j�����j����j����x ���j�����jù��j�����j���j���j���j��j�j����jxxx �������������vjù�j���q�j������j��j����j�j�����x �j�����j��j���j�������j�����j���j����jxxx ���j������j����j�j����j�������j���j������ý��� �����j��j�j��������j���j��j�����j����j����x ���j�����jù��j�����j���j���j���j��j�j����jxxx �������������vjù�j���q�j������j��j����j�j�����x �j�����j��j���j�������j�����j���j����jxxx ���j������j����j�j����j�������j���j������ý��� �����j��j�j��������j���j��j�����j����j����x ���j�����jù��j�����j���j���j���j��j�j����jxxx �������������vjù�j���q�j������j��j����j�j�����x �j�����j��j���j�������j�����j���j����jxxx ���j������j����j�j����j�������j���j������ý��� �����j��j�j��������j���j��j�����j����j����x ���j�����jù��j�����j���j���j���j��j�j����jxxx �������������vjù�j���q�j������j��j����j�j�����x �j�����j��j���j�������j�����j���j����jxxx ���j������j����j�j����j�������j���j������ý��� �����j��j�j��������j���j��j�����j����j����x ���j�����jù��j�����j���j���j���j��j�j����jxxx �������������vjù�j���q�j������j��j����j�j�����x �j�����j��j���j�������j�����j���j����jxxx ���j������j����j�j����j�������j���j������ý��� �����j��j�j��������j���j��j�����j����j����x ���j�����jù��j�����j���j���j���j��j�j����jxxx �������������vjù�j���q�j������j��j����j�j�����x �j�����j��j���j�������j�����j���j����jxxx ���j������j����j�j����j�������j���j������ý��� �����j��j�j��������j���j��j�����j����j����x ����jù�j����j��j�j��ý���j������vj�����jù�j����j� kj���j������j��j��������vj���j����jù� ��� j������j�����������j��jù��j��������j���j�����jù� �j����j����j�����jù�j������j����j����j��j���k ����j�º�������j���������j�� x ��� j�����jù�j�j����j��j�����j������vj�����jù�� ����vj���j�����j���j����j���j�����j������x ���j���� j�º�������k ���j����j�j�����j���j��� j���jxxx �{Ƙ��j��kjj�|ƛ������vjù�j����j��j����jù��j������vj����jù��j����� ����j�j������vj���j�����j��j����j��j���j������vj�����jù�j����j�� ��j����j�������j����{� j��j�����|�k �{Ɨ���j��kjj�|Ɩ�������j�������vj��j�����jù��j�����j��j���j����j��� �����j���j����j���j�����j������vj�������jù��j�����j��j�����jù� ���j���j���j��j���j��������j���������j��j�����j�����kjj���j���� ����j��j���j������vj������j��j���j����j��jù��j�������j���������xxx ������vjù�j���j��� j��j����jù�j����j�j����j������� �����xjj��j���������j���j�������j�������j���j����j�������jxxx �ƣ��j����j������j������j��j��vj�����xjj����j��������vj��q�j���� �Ʊ���j���j�����k�|�jj����j��j�����j���j��������j����j���j�����j������xxx �Ƙ��j��jù��j����vj����kjj�q��j�����j���j�����jù�j���� �� ��kjj�|ƞ���j��j�����j���j��������j����j���j�����j������jxxx �����������j���jù��j���j���������j����ýj����j��j���j���������j�� ����j����j������j������jwwj��j���j���j��������jwwjù�j����j���� ����jù��j������j���j�����j���j�����j��������j������jù��j����jxxx ����jù�j����j��j�j��ý���j������vj�����jù�j����j� kj���j������j��j��������vj���j����jù� ��� j������j�����������j��jù��j��������j���j�����jù� �j����j����j�����jù�j������j����j����j��j���k ����j�º�������j���������j�� x ��� j�����jù�j�j����j��j�����j������vj�����jù�� ����vj���j�����j���j����j���j�����j������x ���j���� j�º�������k ���j����j�j�����j���j��� j���jxxx �{Ƙ��j��kjj�|ƛ������vjù�j����j��j����jù��j������vj����jù��j����� ����j�j������vj���j�����j��j����j��j���j������vj�����jù�j����j�� ��j����j�������j����{� j��j�����|�k �{Ɨ���j��kjj�|Ɩ�������j�������vj��j�����jù��j�����j��j���j����j��� �����j���j����j���j�����j������vj�������jù��j�����j��j�����jù� ���j���j���j��j���j��������j���������j��j�����j�����kjj���j���� ����j��j���j������vj������j��j���j����j��jù��j�������j���������xxx ������vjù�j���j��� j��j����jù�j����j�j����j������� �����xjj��j���������j���j�������j�������j���j����j�������jxxx �ƣ��j����j������j������j��j��vj�����xjj����j��������vj��q�j���� �Ʊ���j���j�����k�|�jj����j��j�����j���j��������j����j���j�����j������xxx �Ƙ��j��jù��j����vj����kjj�q��j�����j���j�����jù�j���� �� ��kjj�|ƞ���j��j�����j���j��������j����j���j�����j������jxxx �����������j���jù��j���j���������j����ýj����j��j���j���������j�� ����j����j������j������jwwj��j���j���j��������jwwjù�j����j���� ����jù��j������j���j�����j���j�����j��������j������jù��j����jxxx ����jù�j����j��j�j��ý���j������vj�����jù�j����j� kj���j������j��j��������vj���j����jù� ��� j������j�����������j��jù��j��������j���j�����jù� �j����j����j�����jù�j������j����j����j��j���k ����j�º�������j���������j�� x ��� j�����jù�j�j����j��j�����j������vj�����jù�� ����vj���j�����j���j����j���j�����j������x ���j���� j�º�������k ���j����j�j�����j���j��� j���jxxx ����jù�j����j������j�j����j����j���j����j��� �����j����j��j���j������x ���j�����jù��j�����q�j�����j����j�j���w�������j����j������j��� ����������j�����j���j����jxxx ��������j�j�����j����xjj�����j�����q��j����j����j��������j��j�����xxx ����jù�j����j������j�j����j����j���j����j��� �����j����j��j���j������x ���j�����jù��j�����q�j�����j����j�j���w�������j����j������j��� ����������j�����j���j����jxxx ��������j�j�����j����xjj�����j�����q��j����j����j��������j��j�����xxx ����jù�j����j������j�j����j����j���j����j��� �����j����j��j���j������x ���j�����jù��j�����q�j�����j����j�j���w�������j����j������j��� ����������j�����j���j����jxxx ��������j�j�����j����xjj�����j�����q��j����j����j��������j��j�����xxx ����jù�j����j������j�j����j����j���j����j��� �����j����j��j���j������x ���j�����jù��j�����q�j�����j����j�j���w�������j����j������j��� ����������j�����j���j����jxxx ��������j�j�����j����xjj�����j�����q��j����j����j��������j��j�����xxx ����jù�j����j������j�j����j����j���j����j��� �����j����j��j���j������x ���j�����jù��j�����q�j�����j����j�j���w�������j����j������j��� ����������j�����j���j����jxxx ��������j�j�����j����xjj�����j�����q��j����j����j��������j��j�����xxx ����jù�j����j������j�j����j����j���j����j��� �����j����j��j���j������x ���j�����jù��j�����q�j�����j����j�j���w�������j����j������j��� ����������j�����j���j����jxxx ��������j�j�����j����xjj�����j�����q��j����j����j��������j��j�����xxx ����jù�j����j������j�j����j����j���j����j��� �����j����j��j���j������x ���j�����jù��j�����q�j�����j����j�j���w�������j����j������j��� ����������j�����j���j����jxxx ��������j�j�����j����xjj�����j�����q��j����j����j��������j��j�����xxx ����jù�j����j������j�j����j����j���j����j��� �����j����j��j���j������x ���j�����jù��j�����q�j�����j����j�j���w�������j����j������j��� ����������j�����j���j����jxxx ��������j�j�����j����xjj�����j�����q��j����j����j��������j��j�����xxx ����jù�j����j������j�j����j����j���j����j��� �����j����j��j���j������x ���j�����jù��j�����q�j�����j����j�j���w�������j����j������j��� ����������j�����j���j����jxxx ��������j�j�����j����xjj�����j�����q��j����j����j��������j��j�����xxx ����jù�j����j������j�j����j����j���j����j��� �����j����j��j���j������x ���j�����jù��j�����q�j�����j����j�j���w�������j����j������j��� ����������j�����j���j����jxxx ��������j�j�����j����xjj�����j�����q��j����j����j��������j��j�����xxx ����jù�j����j������j�j����j����j���j����j��� �����j����j��j���j������x ���j�����jù��j�����q�j�����j����j�j���w�������j����j������j��� ����������j�����j���j����jxxx ��������j�j�����j����xjj�����j�����q��j����j����j��������j��j�����xxx ����jù�j����j������j�j����j����j���j����j��� �����j����j��j���j������x ���j�����jù��j�����q�j�����j����j�j���w�������j����j������j��� ����������j�����j���j����jxxx ��������j�j�����j����xjj�����j�����q��j����j����j��������j��j�����xxx ����jù�j����j������j�j����j����j���j����j��� �����j����j��j���j������x ���j�����jù��j�����q�j�����j����j�j���w�������j����j������j��� ����������j�����j���j����jxxx ��������j�j�����j����xjj�����j�����q��j����j����j��������j��j�����xxx ����jù�j����j������j�j����j����j���j����j��� �����j����j��j���j������x ���j�����jù��j�����q�j�����j����j�j���w�������j����j������j��� ����������j�����j���j����jxxx ��������j�j�����j����xjj�����j�����q��j����j����j��������j��j�����xxx ����jù�j����j������j�j����j����j���j����j��� �����j����j��j���j������x ���j�����jù��j�����q�j�����j����j�j���w�������j����j������j��� ����������j�����j���j����jxxx ��������j�j�����j����xjj�����j�����q��j����j����j��������j��j�����xxx ����jù�j����j������j�j����j����j���j����j��� �����j����j��j���j������x ���j�����jù��j�����q�j�����j����j�j���w�������j����j������j��� ����������j�����j���j����jxxx ��������j�j�����j����xjj�����j�����q��j����j����j��������j��j�����xxx ���j������jù�j����j������vj�j�����j���j�������j���j������j�� �������j�ý���������j������jù��j����k ���j����j���jù�� j���j�����j��j����j��j���j���j��j�� ������j���j�����jxxx ���j��������j���j�����j��������j����jù��j����j���j����j���������� �������j�������kjj��j���j����jù�j������j��j���j��j�����vjù�� ��������j�����j����j�j�������q�j����k ���j����j{j�����j�����k ���j���������j���j�������jù�j���j�����j���j�����j������j�����j���� ù��j����k ��j��j�����j����vjù�j������j����w���������j��j���j������j���j���� ����j�j���j����j����j����jù�j�����������j��������jxxx ��w��kjj���j���j�����j��j����j�����jù��j�������j�����j���������k ������jù�j�����įj����q�j���������vj��q�j�������j������j����j� �������kkk ���j�������j���������j����j�j����j��j����j��jù��j����jxxxj���jù� �����j����j���j��j�����j�j�����j�������j���j�����kkk ���j������� j�º�������j��� j����k �������j��q�j����j��j�����j���� ��j���j�j������j��������k �������jù�j������j���j�������j����j�j���j�����j��j�����j����j�� ù��j�����j���j�������j������j��jù��j�����x �|ƣ��q��j����j�{�zoj��jù��j����������|�kjj������j��j���j�����j� �����������k ���j����j�j�����j����j����j���j����vj����j�j��ó��j����j��jù�� �����q�j����vj���j����j����j��j���j������jxxx ���j������jù�j����j������vj�j�����j���j�������j���j������j�� �������j�ý���������j������jù��j����k ���j����j���jù�� j���j�����j��j����j��j���j���j��j�� ������j���j�����jxxx ���j��������j���j�����j��������j����jù��j����j���j����j���������� �������j�������kjj��j���j����jù�j������j��j���j��j�����vjù�� ��������j�����j����j�j�������q�j����k ���j����j{j�����j�����k ���j���������j���j�������jù�j���j�����j���j�����j������j�����j���� ù��j����k ��j��j�����j����vjù�j������j����w���������j��j���j������j���j���� ����j�j���j����j����j����jù�j�����������j��������jxxx ��w��kjj���j���j�����j��j����j�����jù��j�������j�����j���������k ������jù�j�����įj����q�j���������vj��q�j�������j������j����j� �������kkk ���j�������j���������j����j�j����j��j����j��jù��j����jxxxj���jù� �����j����j���j��j�����j�j�����j�������j���j�����kkk ���j������� j�º�������j��� j����k �������j��q�j����j��j�����j���� ��j���j�j������j��������k �������jù�j������j���j�������j����j�j���j�����j��j�����j����j�� ù��j�����j���j�������j������j��jù��j�����x �|ƣ��q��j����j�{�zoj��jù��j����������|�kjj������j��j���j�����j� �����������k ���j����j�j�����j����j����j���j����vj����j�j��ó��j����j��jù�� �����q�j����vj���j����j����j��j���j������jxxx ���j������jù�j����j������vj�j�����j���j�������j���j������j�� �������j�ý���������j������jù��j����k ���j����j���jù�� j���j�����j��j����j��j���j���j��j�� ������j���j�����jxxx ���j��������j���j�����j��������j����jù��j����j���j����j���������� �������j�������kjj��j���j����jù�j������j��j���j��j�����vjù�� ��������j�����j����j�j�������q�j����k ���j����j{j�����j�����k ���j���������j���j�������jù�j���j�����j���j�����j������j�����j���� ù��j����k ��j��j�����j����vjù�j������j����w���������j��j���j������j���j���� ����j�j���j����j����j����jù�j�����������j��������jxxx ��w��kjj���j���j�����j��j����j�����jù��j�������j�����j���������k ������jù�j�����įj����q�j���������vj��q�j�������j������j����j� �������kkk ���j�������j���������j����j�j����j��j����j��jù��j����jxxxj���jù� �����j����j���j��j�����j�j�����j�������j���j�����kkk ���j������� j�º�������j��� j����k �������j��q�j����j��j�����j���� ���j������jù�j����j������vj�j����j�����j��������j������j���j��� ��jù��j����k ���j����j���jù�� j���j�����j��������j��j���j�����j��j�� ��������j����jxxx ���j�����j�����j��������j�����j���j�������j��jù�vj������j����� �������jù��j����k ���j���� j���������k r����j�����j��j����q�j���������vj����s ���j����������j�����j��������j�����j���j�����j������j������jù�� ���jwwj����j�����j����j���j�����j����������k ���j���� j���������k ��w��kjj����j�����q�j����j��j��j���j��������j���j�����vj�����j���k ������jù�j�����įj����q�j���������vj��q�j�������j������j����j�j��� �������kkk ���j����j���j�������j����j����j����j���j�����j���j������j���j��� ������kkk ���j������� j�º�������j��� j����k ��j���j�������j�����į�j���j������j����jù��j�����vjù�j���� �������������jxxx �|ƣ��j����j����j�{�zoj��jù��j����������|�kjj���j�������vj�������vj����� ��������j��jù�xjj���j�����j�����j��j���j�j������j�����j����� ������j����jxxx ���j����j�j�����j����j����j���j����vj����j�j��ó��j����j��jù�� �����q�j����vj���j����j����j��j���j������jxxx ���j������jù�j����j������vj�j����j�����j��������j������j���j��� ��jù��j����k ���j����j���jù�� j���j�����j��������j��j���j�����j��j�� ��������j����jxxx ���j�����j�����j��������j�����j���j�������j��jù�vj������j����� �������jù��j����k ���j���� j���������k r����j�����j��j����q�j���������vj����s ���j����������j�����j��������j�����j���j�����j������j������jù�� ���jwwj����j�����j����j���j�����j����������k ���j���� j���������k ��w��kjj����j�����q�j����j��j��j���j��������j���j�����vj�����j���k ������jù�j�����įj����q�j���������vj��q�j�������j������j����j�j��� �������kkk ���j����j���j�������j����j����j����j���j�����j���j������j���j��� ������kkk ���j������� j�º�������j��� j����k ��j���j�������j�����į�j���j������j����jù��j�����vjù�j���� �������������jxxx �|ƣ��j����j����j�{�zoj��jù��j����������|�kjj���j�������vj�������vj����� ��������j��jù�xjj���j�����j�����j��j���j�j������j�����j����� ������j����jxxx ���j����j�j�����j����j����j���j����vj����j�j��ó��j����j��jù�� �����q�j����vj���j����j����j��j���j������jxxx ���j������jù�j����j������vj�j����j�����j��������j������j���j��� ��jù��j����k ���j����j���jù�� j���j�����j��������j��j���j�����j��j�� ��������j����jxxx ���j�����j�����j��������j�����j���j�������j��jù�vj������j����� �������jù��j����k ���j���� j���������k r����j�����j��j����q�j���������vj����s ���j����������j�����j��������j�����j���j�����j������j������jù�� ���jwwj����j�����j����j���j�����j����������k ���j���� j���������k ��w��kjj����j�����q�j����j��j��j���j��������j���j�����vj�����j���k ������jù�j�����įj����q�j���������vj��q�j�������j������j����j�j��� �������kkk ���j����j���j�������j����j����j����j���j�����j���j������j���j��� ������kkk ���j������� j�º�������j��� j����k ���j�����j���j�������j��j�����j��j�����j����j�������j�� �|Ʋ���������xjj������j���j���������j�����j�������j�����j���� �|Ʋ��j����j����j������j��j�������vj�ƒ�q�jï�v � �ƙ�vj�ïv �|�kjj������j��ýj�������xjj�Ɠj���j����j����jq��� �ư��j����j������kjjq�q��j����jï��{� j�������vjq�j����x �ƣ��j�����j��É �|Ƒ���������vjù�j�����j����jù��j����j�����j���j�����j����{� j�����|�x �|Ǝ�����j������jù�j���j�j����w������j���j���jxxxj�����j����� �|ƾ�����j�j�������������j����j��jù��j����j��j����j����j��q�j�������x �ƙ�vj�ïv kj�|Ǝ�����j��ýj�������xjj�Ɠj���j����j����jq���v �ư��j���j������j�����j������kjjq�q��j����jï��{� j�����j��q�j����x �ƣ��j����j���� �|Ƒ���������vjù�j�����j����jù��j����j�����j���j�����j����{� j�����|�x �|Ǝ�����j������jù�j���j�j�����������j����w�����j��������jxxx �|ƫ����j�����j������j�j�������������j����j��jù��j����j��j����j���� �|Ƴ�q�j�������x �Ɠq��j����j������jï�j�����j�����j���jï�jq���jï�j����� �ƾ��j����j����j���j����v vjj�|Ʋ�j����j�������x �|ƣ��j�����jù��j���j�����j���j������j���jxxx �Ɨ���jï�j���q�j����jq��j���j���j������j�������vj���kj�|Ʋ�j����� �|ƫ����jù�j��jù�j�����jù��j���j�����j���j������j���jxxx �ơ���jï�j����j��j���vj��������j�|Ǝ�����j������x �Ɠj���q�j��ó�qj�j������j�����j����jï�k �|Ɠ���������vjù�j����j���j��������j���������j���j����j���jxxx �ƣ��j�����j����j����j�������j��qj�����vj���jj�|Ǝ�����j��������x �Ɠj���j���j���xjj���q�j���j���j������qj���j������qj�j�������vjq� �ƫ��q�xjj�q��j����jï��{� j�������j���jq��vj�����jï�j����j����j����jxxx �ƫ��j����jï�vj�q�j����qj��������x �|Ǝ�����j�����j���������j��j��j������j���j����{� j����jxxx �Ɠj�����j��j����jù�j��������j���j��������vj�����kjj����j��������� �ƭ�������j��j�����j���j�����j����j�����kj�|�ù�j������j��jù�j����� �|ƹ��j��j���j�������jxxx �ƌ�����qjï�j������v vj���jï�j���q�j���j��j�����j���j����k �|Ǝ�����j�������vj���������j��������x �|ƣ��j�����j����j��j���j����jù�q��j����j�����j��j�����jù�j����j���� �|ƾ������j���jxxx �|ƣ��j����j���j���������j��j���j����j����j���j����j���j�����j������ �|ƹ��j���j����j���vjq�����j����xjj����xjj�q�j�������j����������j�����x �|Ǝ�����q�j����j��j�����j�������j��j��j���Ķ�����j��jù�j������j���j�������x �|Ǝ�����j������j���j������j����j���j����j��j���j�����j���j�������v �ƙ���j�����j��v jwwj����j�j�����vjï�j����q�j����j���� �Ʒ���j����j���j����x �|Ɨ��������vjù�j����j���j���j����j�j�����j����j���j���jù��j����j�� �|ƽ����j���j������j��jù��j���j���jxxx �ƌ�����qjï�j������v j�|Ǝ�����j�������vj�Ƭ��jï�j���j��� �ƫ������k �|ƣ��j�����j����j��j���j����jù�q��j����j�����j��j�����jù�j����j���� �|ƾ������j���jxxx �Ɛ���vj�|Ǝ�����j��ýj����j�j�����xjj�ƞ���j���jï�j���j�����j���jï� �ƫ������j�������j��j���jxxx �Ɛ���vj�|Ǝ�����j��ýj����j�j�����xjj�ơ���jï�j����j���vj����x ���j�����j���j�������j��j�����j��j�����j����j�������j�� �|Ʋ���������xjj������j���j���������j�����j�������j�����j���� �|Ʋ��j����j����j������j��j�������vj�ƒ�q�jï�v � �ƙ�vj�ïv �|�kjj������j��ýj�������xjj�Ɠj���j����j����jq��� �ư��j����j������kjjq�q��j����jï��{� j�������vjq�j����x �ƣ��j�����j��É �|Ƒ���������vjù�j�����j����jù��j����j�����j���j�����j����{� j�����|�x �|Ǝ�����j������jù�j���j�j����w������j���j���jxxxj�����j����� �|ƾ�����j�j�������������j����j��jù��j����j��j����j����j��q�j�������x �ƙ�vj�ïv kj�|Ǝ�����j��ýj�������xjj�Ɠj���j����j����jq���v �ư��j���j������j�����j������kjjq�q��j����jï��{� �������j������j�������j���j����ýj����j���������� ��jù�vj��jù�j������j���j��j�j������j����jxxx ���j�����q�j����j���j����jù�j������j��j��� �������j����j������j���j����x �������vjù�j����j���j����j���j����jxxx �|Ƌj�{Ƒ���|�kjj�������vjù�j����j����j��j���j������jxxx �{Ƙ�������|�kjj������������vjù�j����j����j��j���j������jxxx ������jù��j������j���j�����j��j���������j����vjù�j����j���j��� ���jxxx ��j���j��������vjù�j����j���j����j���j����j�������j��xjj���j��� �������j�����x �������j�����vj���j�����j�����j����j����xjj��j���j������vjù�j���� ���j����j���j����j����vj���j��j�����j������j��j���j����j������� �����jxxx ��j�º����j|j����k ��������j���j���������vjù�j����j��j����j��j���j������jxxx ���j��������j�����j���j����vj����jù������j�j����vj����³��j����v ���j����������j������j��j���j������x ���q��j�º�����j������j����j���j�������j����jù� ���������j�j�����j�������j��j�j���������j�������x ������vjù�j������j���j������j����j����jù��j����j���j���j��j��� �����xjj��������j��j��j����j����j���j����j��� �����vj���j����jù�j�������j���j���j���j����j��j���j������x ���j������j���j�¾��j{zj����j�����j��j����j����jù�j��j�������j��� ��������j��������j����j��j�����j���j����������j������j�����j���q��j�������k r���j��jù�j����j����j�������vjù�j���j����ýj���j�j����j���� �����������jxxxs �������j��j����j������j�������j��jù��j����vjù�j�����j���j������ ����j��j���j����j���j����j��j���j������vj�����jù�j���������j� ����w�����j������j���j���j���������j�������x ����������vjù�j��������jxxx ���j�����j�������j��j�j������j�������j������xjj����j���j����j������ �|ƫj�������{� j����j�����j�|ƫ�jù��j������x �|ƞ��j�����j�������j��j�j�������j�����j������xjj����j���jù��{� j�����|� ��jù��j������jr���j��j����jù��j�����j����j�����j�����j����������sx ���j����j�������j{j�����j�����k ���j�����j������j����j��j����w�����j�����w������vjù�j�����j���� ���j���j��j����j��jù�j���j���j����j����j��j���j������x ���j����j{j�����j���jù��j����w�����������k �������j������j�������j���j����ýj����j���������� ��jù�vj��jù�j������j���j��j�j������j����jxxx ���j�����q�j����j���j����jù�j������j��j��� �������j����j������j���j����x �������vjù�j����j���j����j���j����jxxx �|Ƌj�{Ƒ���|�kjj�������vjù�j����j����j��j���j������jxxx �{Ƙ�������|�kjj������������vjù�j����j����j��j���j������jxxx ������jù��j������j���j�����j��j���������j����vjù�j����j���j��� ���jxxx ��j���j��������vjù�j����j���j����j���j����j�������j��xjj���j��� �������j�����x �������j�����vj���j�����j�����j����j����xjj��j���j������vjù�j���� ���j����j���j����j����vj���j��j�����j������j��j���j����j������� �����jxxx ��j�º����j|j����k ��������j���j���������vjù�j����j��j����j��j���j������jxxx ���j��������j�����j���j����vj����jù������j�j����vj����³��j����v ���j����������j������j��j���j������x ���q��j�º�����j������j����j���j�������j����jù� ���������j�j�����j�������j��j�j���������j�������x ������vjù�j������j���j������j����j����jù��j����j���j���j��j��� �����xjj��������j��j��j����j����j���j����j��� �����vj���j����jù�j�������j���j���j���j����j��j���j������x ���j������j���j�¾��j{zj����j�����j��j����j����jù�j��j�������j��� ��������j��������j����j��j�����j���j����������j������j�����j���q��j�������k r���j��jù�j����j����j�������vjù�j���j����ýj���j�j����j���� �����������jxxxs �������j��j����j������j�������j��jù��j����vjù�j�����j���j������ ����j��j���j����j���j����j��j���j������vj�����jù�j���������j� ����w�����j������j���j���j���������j�������x ����������vjù�j��������jxxx ���j�����j�������j��j�j������j�������j������xjj����j���j����j������ �|ƫj�������{� j����j�����j�|ƫ�jù��j������x �|ƞ��j�����j�������j��j�j�������j�����j������xjj����j���jù��{� j�����|� ��jù��j������jr���j��j����jù��j�����j����j�����j�����j����������sx ����j�����j����j���j��j���j����j�������j�������vj���jù�j����j� �����j��j������j����jù��j�����j���j�������j��j��j��j����jù�j���x �|Ƌ��ij����vj����jù�j������vj���j�����j��������j�� �|�j���j�������j����jù��j���v �ƕ��� ��vjù�q��j�����j��j����j��� �Ɠq�j��������j��jù�xjj���j��j�����jù�j��j������� ��ù�j�j������kjj��q�j������j�����j���j����j����jxxx Ɓƣ��j���j���jù��j�������j������j��j���j�������j�����j��j������ ƁƲ������xjj����j�������j����j��j�������vj���jù��j�������j����j�� ƁƱ���������k ƁƝ��Ķ��j���j���������j���j�j����j����j��j���j�����j���j��xjj��� Ɓƾ����j����vj��jù�j�������j��j���j����j�vj���jr�{ƗƁ�s����vj����j���� Ɓ�ù�vj��q��j����jù�j|j����j���j���j�����j��j{vj��j���jù��j����j�� Ɓƾ����j���j�����j�����k Ɓƞ��j�������j�����j���j�j���j�����j��jr�{ƝƁ�s���j����xjj��jù�j����j��� Ɓ�ù�q��j�j������j��j���vj���q��j����jù�j����j��j���j�������j����� Ɓƚ��j����kjj��j������j������vj���j��q��j����jù�j�j��������j������� ƁƳ�jù�q��j�������j����j����jzzj���������k Ɓƞ���������vj���j��j���j������j��j���j����������vj��j���������j�� ƁƷ���xjj��j��j�����jù�j���j�������vjù�j���j����j��vj���jr�{ƗƁ�s����v Ɓƫ��j�q��j����j���j����jù�j���j����j����j���xjj��j������vjù�j���q� ƁƯ���j���j�º�������j������j����j���vj���jù�j���q�j���� ƁƯ���þ����k Ɓƌ����j��j�����vj�q�j����j����j��j�������j������xjj��¾j����jù�j��� Ɓƫ�j�����������w�������j����j������j�������j��j���j�������vj����j��� ƁƷ�vj���jr�{ƗƁ�s����vj���j�������j�q��j���j���������j�������j��j����jù� ƁƷ����j���������j����k ƁƝ���j����j���j�����j��j���j������xjj����jù�q��j��j���� Ɓƽ������j���j�ú�jq������qj�����vj�j�ý�������j�����j����j���jù� Ɓƾ�j��������j���xjj���q��j��j��������j��jù�j������j����j�������� Ɓƫ�j����j��j����x ƁƝ���j����j���j�����j��j���j������xjj����jù�q��j��j���� Ɓƽ������j���j�ú�jq�{Ɣ�����Ɓ�qj�����vj�j�ý�������j�����j����j���jù� Ɓƾ�j��������j���xjj���q��j��j��������j��jù�j������j����j�������� Ɓƫ�j����vj����vj��j����x ƁƝ���j����j���j�����j��j���j������xjj����jù�q��j��j���� Ɓƽ������j���j�ú�jq�{Ɣ�����Ɓ�qj�����vj�j�ý�������j�����j����j���jù� Ɓƾ�j��������j���xjj���q��j��j�����j��jù�j������j���j������j�� Ɓƭ������j���j����j��j����k Ɓƣ��j���j���j���j����j��j����j��jù�q��j�j�����j��j�����j��� ƁƲ���j�j������j����j������j��j������j��j���jù�xjj����j�j������ ƁƸ�����j��j���j���jr�{�|Ɓ�sjù��j�������j�����k ƁƝ���j����j����jù�j�jr�{ƝƁ�s����j��jù�j���j���j������j����j��� ƁƖ���j�����j����x Ɓ�r�{�{Ɓ�sj������j����j������j����j�����j���j����q�j�����j����j����� Ɓ�ù�j��j���jù��j��������k Ɓƞ����j���j������j��������j�����j�����j�������j�j������j������� ƁƳ�j����j������jxxxj���j�j���j����jù�j��j����j��j����j����k Ɓƞ��j������j�������j��j�����jù�q��j�����j����j��j�j����� Ɓ������vj���j���j�����j�����vjù�j�����j��j���������j��j�������jù�� ƁƯ������jxxxj���j�j����j��j����j����j����j����j���x ƁƜ���j���vj��j���j����vj�����j����j����j��j���j������j�������� ƁƬ�����jù�j����j�����j����jù��j�������j��j�������j���j��j����x ƁƓ�jù�j�����j���jù��jr�{ƐƁ�s����vj���j������j�����j������j�����j������ Ɓƾ�j���j�j���jxxx �������j���j�����j�������j��j������j��jù��j��������j����j�� ��������j����vjù�j����j�j��������j����j������jù�x ����j�����j���������j��j{k �������j��ù��j������j���j���j��j����j���j����������j��j����vjù� ������j���j������j������j����j����j���j����j�����j��j��j���j���� �������k �������jù�j������j�����j��j�������jù��j������j���j����j���� �����������j���j��������j����j��������x ���j����jj�����kkk ����j�����j����j���j��j���j����j�������j�������vj���jù�j����j� �����j��j������j����jù��j�����j���j�������j��j��j��j����jù�j���x �|Ƌ��ij����vj����jù�j������vj���j�����j��������j�� �|�j���j�������j����jù��j���v �ƕ��� ��vjù�q��j�����j��j����j��� �Ɠq�j��������j��jù�xjj���j��j�����jù�j��j������� ��ù�j�j������kjj��q�j������j�����j���j����j����jxxx Ɓƣ��j���j���jù��j�������j������j��j���j�������j�����j��j������ ƁƲ������xjj����j�������j����j��j�������vj���jù��j�������j����j�� ƁƱ���������k ƁƝ��Ķ��j���j���������j���j�j����j����j��j���j�����j���j��xjj��� Ɓƾ����j����vj��jù�j�������j��j���j����j�vj���jr�{ƗƁ�s����vj����j���� Ɓ�ù�vj��q��j����jù�j|j����j���j���j�����j��j{vj��j���jù��j����j�� �|ƚ�������j��j�{zƎ������j�������� �|ƙ�������j����ö���j��j�{zƕ�j������ �������j����j���j�������j������jjr|{�s|��wz~| �{zƜ���������j���j�|� �{|Ɵ������������|�j������j���������jù��j�ý��j��j�������� �{|Ɵ������������|�j���������j�����jxxx �|ƚ�����j����jù��j�ý��j��������j����j���kj� �|ƚ�������j��j�{zƎ������j�������� �|ƙ�������j����ö���j��j�{zƕ�j������ �������j����j���j�������j������jjr|{�s|��wz~| �{zƜ���������j���j�|� �{|Ɵ������������|�j������j���������jù��j�ý��j��j�������� �{|Ɵ������������|�j���������j�����jxxx �|ƚ�����j����jù��j�ý��j��������j����j���kj� �|ƚ�������j��j�{zƎ������j�������� �|ƙ�������j����ö���j��j�{zƕ�j������ �������j����j���j�������j������jjr|{�s|��wz~| �{zƜ���������j���j�|� �{|Ɵ������������|�j������j���������jù��j�ý��j��j�������� �{|Ɵ������������|�j���������j�����jxxx �|ƚ�����j����jù��j�ý��j��������j����j���kj� �|ƚ�������j��j�{zƎ������j�������� �|ƙ�������j����ö���j��j�{zƕ�j������ �������j����j���j�������j������jjr|{�s|��wz~| �{zƜ���������j���j�|� �{|Ɵ������������|�j������j���������jù��j�ý��j��j�������� �{|Ɵ������������|�j���������j�����jxxx �|ƚ�����j����jù��j�ý��j��������j����j���kj� �|ƚ�������j��j�{zƎ������j�������� �|ƙ�������j����ö���j��j�{zƕ�j������ �������j����j���j�������j������jjr|{�s|��wz~| �{zƜ���������j���j�|� �{|Ɵ������������|�j������j���������jù��j�ý��j��j�������� �{|Ɵ������������|�j���������j�����jxxx �|ƚ�����j����jù��j�ý��j��������j����j���kj� �|ƚ�������j��j�{zƎ������j�������� �|ƙ�������j����ö���j��j�{zƕ�j������ �������j����j���j�������j������jjr|{�s|��wz~| �{zƜ���������j���j�|� �{|Ɵ������������|�j������j���������jù��j�ý��j��j�������� �{|Ɵ������������|�j���������j�����jxxx �|ƚ�����j����jù��j�ý��j��������j����j���kj� �|ƚ�������j��j�{zƎ������j�������� �|ƙ�������j����ö���j��j�{zƕ�j������ �������j����j���j�������j������jjr|{�s|��wz~| �{zƜ���������j���j�|� �{|Ɵ������������|�j������j���������jù��j�ý��j��j�������� �{|Ɵ������������|�j���������j�����jxxx �|ƚ�����j����jù��j�ý��j��������j����j���kj� �|ƚ�������j��j�{zƎ������j�������� �|ƙ�������j����ö���j��j�{zƕ�j������ �������j����j���j�������j������jjr|{�s|��wz~| �{zƜ���������j���j�|� �{|Ɵ������������|�j������j���������jù��j�ý��j��j�������� �{|Ɵ������������|�j���������j�����jxxx �|ƚ�����j����jù��j�ý��j��������j����j���kj� �|ƚ�������j��j�{zƎ������j�������� �|ƙ�������j����ö���j��j�{zƕ�j������ �������j����j���j�������j������jjr|{�s|��wz~| �{zƜ���������j���j�|� �{|Ɵ������������|�j������j���������jù��j�ý��j��j�������� �{|Ɵ������������|�j���������j�����jxxx �|ƚ�����j����jù��j�ý��j��������j����j���kj� �|ƚ�������j��j�{zƎ������j�������� �|ƙ�������j����ö���j��j�{zƕ�j������ �������j����j���j�������j������jjr|{�s|��wz~| �{zƜ���������j���j�|� �{|Ɵ������������|�j������j���������jù��j�ý��j��j�������� �{|Ɵ������������|�j���������j�����jxxx �|ƚ�����j����jù��j�ý��j��������j����j���kj� �|ƚ�������j��j�{zƎ������j�������� �|ƙ�������j����ö���j��j�{zƕ�j������ �������j����j���j�������j������jjr|{�s|��wz~| �{zƜ���������j���j�|� �{|Ɵ������������|�j������j���������jù��j�ý��j��j�������� �{|Ɵ������������|�j���������j�����jxxx �|ƚ�����j����jù��j�ý��j��������j����j���kj� �|ƚ�������j��j�{zƎ������j�������� �|ƙ�������j����ö���j��j�{zƕ�j������ �������j����j���j�������j������jjr|{�s|��wz~|
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/castle1.ref b/xtrn/lord2/cnw/castle1.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e715579c9ede230b81bb2791c6bdd8b7d65f2263
--- /dev/null
+++ b/xtrn/lord2/cnw/castle1.ref
@@ -0,0 +1,1165 @@
+; Script file CASTLE1.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:14 2001
+
+@DECLARE wizsign 000001156
+@DECLARE teamsign 000001209
+@DECLARE maid 000001261
+@DECLARE bedguard 000001598
+@DECLARE bedguard2 000001688
+@DECLARE statue 000001774
+@DECLARE sit 000001828
+@DECLARE drinkoff 000001902
+@DECLARE patrons 000001962
+@DECLARE done 000002105
+@DECLARE patron 000002117
+@DECLARE tower 000002210
+@DECLARE cellguard 000002364
+@DECLARE cell0 000002919
+@DECLARE cell1 000003001
+@DECLARE cell2 000003047
+@DECLARE cell3 000003109
+@DECLARE lady 000003161
+@DECLARE toilet 000003257
+@DECLARE mens 000003305
+@DECLARE wmens 000003344
+@DECLARE monster1 000003388
+@DECLARE drunk 000003959
+@DECLARE stables 000004520
+@DECLARE healme 000005635
+@DECLARE barguy 000005855
+@DECLARE rabstart 000006071
+@DECLARE rabchat 000009491
+@DECLARE ladygossip 000012891
+@DECLARE mybank 000013790
+@DECLARE tower 000016573
+@DECLARE doorguard 000016665
+@DECLARE startg 000016694
+@DECLARE sign 000020306
+@DECLARE enter 000020600
+@DECLARE done 000021713
+@DECLARE letmein 000023701
+@DECLARE done 000023801
+@NOCHECK
+; End of .REF index
+
+@#wizsign
+@do saybar
+`$Wizards Tower `5
+@end
+
+@#teamsign
+@do saybar
+`$TeamHouse #1 `5---->
+@end
+
+@#MAID
+@do moveback
+@if castle1.dat exist false then do
+ @begin
+ @do saybar
+`2"This is Nobody's Chambers!" says the Young Woman.
+ @end
+
+@if castle1.dat exist true then do
+ @begin
+@readfile castle1.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2"This is `0`s01`2's Chambers!" says the Young Woman.
+ @end
+
+@#BEDGUARD
+ @do saybar
+`2"Be sure to not take a Royal's Bed!" the Young Man says.
+
+@#BEDGUARD2
+ @do saybar
+`2"Be sure to not take someones bed!" the Young Man says.
+
+@#STATUE
+ @do saybar
+`0Statue of the IceLord Clan!
+
+@#SIT
+ @do saybar
+`2Take a seat! Lets have a drinking contest!
+
+@#DRINKOFF
+ @do saybar
+`4UNDER CONSTRUCTION! `2(sorry)
+
+@#Patrons
+@do x is 37
+@do y is 14
+@do map is 1365
+@loadmap 1365
+@drawmap
+@update
+ @do saybar
+`2Several Patrons hail you!
+@do goto done
+@#done
+
+@#PATRON
+ @do saybar
+`0"`2Welcome! how is the day good s&sir?`0" says the friendly man.
+
+@#TOWER
+@pauseoff
+@clear screen
+@displayfile tower.ans
+@pauseon
+@do x is 33
+@do y is 14
+@do map is 1366
+@loadmap 1366
+@drawmap
+@update
+
+
+@#CELLGUARD
+@do moveback
+@do `p20 random 6 1
+@if `p20 is 1 then saybar
+`%Guard: `0IceLord Keep is the safest place in the world!
+@if `p20 is 2 then saybar
+`%Guard: `0These cells holds the worst criminals ever captured!
+@if `p20 is 3 then saybar
+`%Guard: `0Watch yourself, least you rot in a cell!
+@if `p20 is 4 then saybar
+`%Guard: `0I Have seen many evil people rot in these very cells!
+@if `p20 is 5 then saybar
+`%Guard: `0Be nice to me or you will end up like these bums!
+@if `p20 is 6 then saybar
+`%Guard: `0You can visit the prisoners..
+
+@#CELL0
+ @do saybar
+`0"`2You better be careful!`2"`0 he shouts importantly.
+
+@#CELL1
+ @do saybar
+`0"Nobody knows..."
+
+@#CELL2
+ @do saybar
+`0"I was the most wanted criminal!"
+
+@#CELL3
+ @do saybar
+`0"Damn the IceLord Clan!"
+
+@#lady
+ @do saybar
+`2"`0Your that warrior from east Stonebrook!`2" she says excitingly.
+
+@#toilet
+ @do saybar
+Ahh! takes a load off!
+
+@#mens
+ @do saybar
+`%MEN'S ROOM
+
+@#wmens
+ @do saybar
+`%WOMEN'S ROOM
+
+@#monster1
+@fight
+;name
+Escaping Prisoner
+;string said when you see him
+An escaping prisoner runs toward you!
+;power move kill string
+His cell mates scream at you!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Hits you with a crowbar!|10
+Punches you hard!|7
+Stabs you with a cafeteria spoon!|8
+NONE|NONE
+NONE|NONE
+;defense
+5
+;gold reward
+18
+;experience
+25
+;hit points
+40
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#drunk
+@fight
+;name
+Angry Drunk
+;string said when you see him
+An angry and stupid drunk spits on you!
+;power move kill string
+Everyone cheers for you!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Hits you with a bottle!|2
+Punches you hard!|1
+Stabs you with a broken bottle!|3
+NONE|NONE
+NONE|NONE
+;defense
+2
+;gold reward
+8
+;experience
+15
+;hit points
+40
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+
+@#STABLES
+;lets them warp to a view places
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Stables `r0
+
+ `0"Greetings, s&sir! Where can we drop you off today?" `2a smartly dressed
+ youth asks.
+
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Sosen Village
+Stonepass Lodge
+PortTown
+GreenTree
+I'll stay here, thanks
+@if response not 5 then do
+ @begin
+@show
+`\`\ `0"We shall leave at once!" he shouts importantly.
+
+`k `2A few bumps later you arrive - ah, traveling in style is so much fun!
+
+ `0"I bid you a goodday s&sir, please travel safely."
+
+ `2Looks like you are on your own.
+
+`k
+@if responce is 1 then do
+ @begin
+ ;Sosen village
+ @do x is 38
+ @do y is 5
+ @do map is 456
+ @end
+
+@if responce is 2 then do
+ @begin
+ ;Stonepass Lodge
+ @do x is 40
+ @do y is 11
+ @do map is 880
+ @end
+
+@if responce is 3 then do
+ @begin
+ ;Porttown
+ @do x is 43
+ @do y is 16
+ @do map is 956
+ @end
+
+@if responce is 4 then do
+ @begin
+ ;GreenTree
+ @do x is 54
+ @do y is 12
+ @do map is 1356
+ @end
+
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#HEALME
+;free heal
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Healers `r0
+
+ `2The good doctor looks you over for wounds carefully.
+
+ `%YOU ARE COMPLETEY HEALED.
+
+`k
+@do `p02 is `p03
+@drawmap
+@update
+
+@#BARGUY
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c`% `r1 IceLord Keep Tavern `r0
+
+`2 You grab a seat and wait for some service.
+
+`k A strong man named Rab appears to take your order.
+
+`k
+
+@label rabstart
+@show
+`r0`c`% `r1 Time to quench your thirst `r0
+
+`2 Rab stands their looking at you.
+
+@do write
+`x`x
+@choice
+Look at the drinks.
+Order something
+Shoot the Breeze
+Stand up
+@
+
+@if response is 1 then do
+ @begin
+ @show
+`r0`c `%IceLord Keep Tavern!
+
+ `2You look up and see the labels on the bottles while Rab starts talking
+ to someone else. You will want to try 'em all!
+
+`k `2Beer (`0$2`2)
+
+ `2This is the most commonly ordered drink among the people here its
+ pretty much the same everywhere!
+
+ `2Venom Ale (`0$10`2)
+
+ `2You'll die of satisfaction when you taste this fabulous drink! Created
+ by some old drunk man who loved Cobra's.
+
+ `2Rab's Special (`0$50`2)
+
+ `2Extremely rare and famous for the light feeling you get after drinking
+ one, Many travel around the world to visit this tavern and drink rab's
+ is worth every penny!
+
+`k
+ @do goto rabstart
+ @end
+
+@if response is 2 then do
+ @begin
+
+ @if `p96 > 20 then do
+ @begin
+ @show
+`r0`c`% `r1 You are a DRUNK! `r0
+
+ `2 Sorry Mac! but I don't serve slobbering drunks!!
+ `2Either get help or get the hell outta here! If you
+ `2want help you can talk to me...
+
+ `k
+ @end
+
+ @do write
+`\`\ `2Order what? (`0You have `$&money`2)`\`\`x`x
+ @do `v01 is 1
+ @choice
+`2Beer (`0$2`2)
+`2Venom Ale (`0$10`2)
+`2Rab's Special (`0$40`2)
+`2Nuthin'
+ @
+
+ @if response is 1 then do
+ @begin
+ @if money < 2 then do
+ @begin
+ @show
+`\`\ `4You can't afford that, poor s&boy.`\`\`k
+ @do `v01 is 2
+ @do goto rabstart
+ @end
+ @do money - 2
+ @show
+`r0`c `r1 Drink it up! `r0`\`\ `2Rab sloshes out the mug. You quickly
+ grab it from him `0-`2 looks good. You slurp some up.
+`\`k `4A little stronger than what you are used to...
+`\`k `%But you like it!!! Yum.
+`\`k
+ @do `p96 + 4
+ @end
+
+ @if response is 2 then do
+ @begin
+ @if money < 10 then do
+ @begin
+ @show
+`\`\ `4You can't afford that, poor s&boy.`\`\`k
+ @do `v01 is 2
+ @do goto rabstart
+ @end
+ @do money - 10
+ @show
+`r0`c `r1 Drink it up! `r0`\`\ `2Rab brings out the Venom Ale.
+`\ You see deadly venom swirl inside the ale!
+`\`k `4The venom gives you a major rush!
+`\`k `%You enjoy the feeling!!!! What a drink!
+`\`k
+ @do `p96 + 8
+ @end
+
+ @if response is 3 then do
+ @begin
+ @if money < 40 then do
+ @begin
+ @show
+`\`\ `4You can't afford the special drink.`\`\`k
+ @do `v01 is 2
+ @do goto rabstart
+ @end
+ @do money - 40
+ @do `p96 + 16
+ @show
+`r0`c `r1 OH YEAH! `r0`\`\ `2Rab brings out the drink in a container.
+`\ You take a close look at Rab who smiles.
+`\`k
+ @show
+`k`r0`c `r1 OH YEAH! `r0
+`\ `4The drink has a strong oder!
+`\`\ `2You carefully put the container to your lips, being careful
+ `2not to let it spill.
+`\`k `2You swish the drink with your tongue, oooh, it tickles!
+`\`k `0You finally decide the fun is over and swallow it. Flavors
+ pour into your mouth! Yay!
+`\`k
+ @do `v01 is 3
+ @do goto rabstart
+ @end
+
+ @do `v01 is 2
+ @do goto rabstart
+ @end
+
+@if response is 3 then do
+ @begin
+ @show
+`r0`c`% `r1 Chatting with Rab `r0
+
+`2 Hey Rab.... (You get his full attention)
+
+`k Rab looks at you seriously.
+
+`k
+
+@label rabchat
+@do `v01 is 1
+@show
+`r0`c`% `r1 Talking with the Bartender Rab `r0
+
+`2 Rab stands their looking at you.
+
+@do write
+`x`x
+@choice
+What is Your story?
+Whats with "IceLord"?
+>`p96 8 I am a Drunk!
+=`t45 1 >`i08 0 Ok! Here is the pie!
+Nevermind
+@
+
+ @if response is 1 then do
+ @begin
+ @show
+`r0`c`% `r1 Rab's Story `r0
+
+ `0 "Ok, well I lived in GreenTree as a Youth. I loved to watch the
+ `0other people train! So, I met a lot of great warriors as a lad.
+ `k
+ `0 One day, Turgon asked me to join the warriors. Quickly I trained
+ `0all the way to level 12 Just as I became a man! I met with that
+ `0great warrior who slaid the dragon. Not to brag, but i was just
+ `0as good of a warrior as him!
+ `k
+ `0 On our way to slay the dragon we came across a injured warrior
+ `0she said her name was Neeshis and that she had been injured by the
+ `0dragon. Well, we flipped a silver coin to see who would take her
+ `0to nathan.. and I lost!
+ `k
+ `0 After the defeat of the dragon I decided to vanish.. I had
+ `0trained my whole life to kill that beast and it all was for not
+ `0I met the original owners of this place the IceLord Clan, who
+ `0gave me this job. It pays well! I can still whuup anyone in this
+ `0Kingdom!"
+ `k
+ @do `v01 is 1
+ @do goto rabchat
+ @end
+
+
+ @if response is 2 then do
+ @begin
+ @show
+`r0`c`% `r1 Story Behind IceLord Keep `r0
+
+ `0 "IceLord Keep was started by the IceLord Clan. They were all
+ `0warriors who studied the ancient art of freezing their opponent
+ `0in combat. Of coarse many thought this leathal style of combat
+ `0evil or injust. So, banned from all major towns they built their
+ `0own place to live."
+ `k
+ @do `v01 is 2
+ @do goto rabchat
+ @end
+
+ @if response is 3 then do
+ @begin
+
+ @if `t45 = 1 then do
+ @begin
+ @show
+`r0`c`% `r1 The Pie! `r0
+
+ `0 "Ok, I am trying to be nice, bring the pie and I WILL help
+ `0You... so bring it!! You can't be that slow!!!" he says coldly
+ `0(hint: get the freakin pie!!)
+
+ `k
+ @do `v01 is 3
+ @do goto rabchat
+ @end
+
+ @if `p96 > 3 then do
+ @begin
+ @show
+`r0`c`% `r1 Your a DRUNK! `r0
+
+ `0 "Ok, Your in a situation thats not the best.." he says
+ `0"But,.. at least you admit it! I do have a cure, but first
+ `0I need your mom's famous pie!"
+
+ `k
+ @do `t45 = 1
+ @do `v01 is 3
+ @do goto rabchat
+ @end
+ @end
+
+ @if response is 4 then do
+ @begin
+ @show
+`r0`c`% `r1 Lets Get Healed! `r0
+
+ `0 "Great! You brought the pie!" he says
+ `0"Now I will.. as promised .. restore you to normal! BUT!!
+ `0remember not to make the same mistake you did before! or I may
+ `0not be so kind!"
+ `k
+ `0He gives you the Potion, You take it and.`l.`l.`l.`l.`l.
+
+ `%YOU ARE CURED
+ `k
+ `0You also got 7 more MAX HitPoints!
+ `k
+ `0You thank him and go on your way!
+ `k
+ @do `t45 = 0
+ @do `i08 - 1
+ @do `p03 + 7
+ @do `p02 is `p03
+ @do `v01 is 3
+ @do goto rabchat
+ @end
+
+ @if response is 5 then do
+ @begin
+ @do `v01 is 3
+ @do goto rabstart
+ @end
+ @end
+
+@drawmap
+@update
+
+@#LADYGOSSIP
+@do moveback
+@busy
+@show
+`r0`c `r1 GOSSIP WITH THE LADY `r0
+
+@if Lgossip.txt exist false then do
+ @begin
+ @writefile Lgossip.txt
+ `%Rab said`2: `0I am going to own my own place someday!
+ `%Sandtiger said`2: `0I can out drink all of ya!
+ @end
+
+@if Lgossip.txt exist true then do
+ @begin
+ @displayfile Lgossip.txt
+ @end
+
+@show
+
+@
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 71
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter a message or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile Lgossip.txt
+ `%`n`2 said : `0`s03
+ @do trim Lgossip.txt 17
+ @drawmap
+ @update
+
+
+@#MYBANK
+;team treasury
+@do moveback
+@do `p20 is 0
+@if tres1.dat exist true then do
+ @begin
+ @readfile tres1.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile tres1.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete tres1.dat
+ @writefile tres1.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile castle1.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0IceLord Keep Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile tres1.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete tres1.dat
+ @writefile tres1.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile castle1.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0IceLord Keep Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+@#TOWER
+@DO SAYBAR
+`2The tower on this castle is not accessable yet.
+@do moveback
+
+@#doorguard
+@do moveback
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+@if castle1.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to vacate this keep!" `2the guard barks.
+ @closescript
+ @end
+
+@readfile castle1.dat
+`p20
+`s01
+`s04
+`s08
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the door guard, nice of him to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The huge doorguard snaps to attention when he sees you are going to
+ address him.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+Home Sweet Home
+Leave
+@if responce is 3 then do
+ @begin
+ @do `p69 is 17
+ @show
+`\ This is your HOME now. Welcome Home.
+ @key
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$25,000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your keep to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete castle1.dat
+ @writefile castle1.dat
+`p20
+`s01
+`s04
+`s08
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of IceLord Keep to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%IceLord Keep`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your keep back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete castle1.dat
+ @do money + 25000
+ @show
+`\`\ `%KEEP SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%IceLord Keep`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @drawmap
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\`2 (Enter `4ALL `2for access to everyone! `\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete castle1.dat
+ @writefile castle1.dat
+&playernum
+`s01
+`s04
+`s08
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#sign
+@do moveback
+
+ @if castle1.dat exist false then do
+ @begin
+ @do saybar
+IceLord Keep - For Sale! Enquire inside.
+ @end
+
+@if castle1.dat exist true then do
+ @begin
+@readfile castle1.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+@#enter
+@do moveback
+@offmap
+@if castle1.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2IceLord Keep was once a magnificient structure that housed many of
+ the royal families. Now it is for sale.
+
+ It is for sale, however. The asking price is `$$50,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 49999 Purchase it.
+<&money 50000 Sigh wistfully and leave since you don't have enough.
+>&money 49999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if castle1.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile castle1.dat
+&playernum
+NONE
+ @do money - 50000
+ @do addlog
+ `0`n `2buys `%IceLord Keep`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this keep!
+
+`k `0As a special bonus, a vault, stable, healer, and guards!
+
+`2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile castle1.dat
+`p20
+`s01
+`s04
+`s08
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete castle1.dat
+ @do addlog
+ `%IceLord Keep`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+
+ @if `s01 is ALL then do
+ @begin
+ @show
+`r0`c `0-=ICELORD KEEP=-
+
+ `0"Welcome to `%IceLord Keep`0,"`2 the guard smiles as he opens the gate.`\`\`k
+ @do goto letmein
+ @end
+
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+ `4Ouch!
+
+`k
+ @drawmap
+ @update
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2the door guard asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%IceLord Keep`0,"`2 the guard smiles as he opens the gate.`\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `0IceLord Keep Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The guard doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein
+@do x is 39
+@do y is 19
+@do map is 1361
+@loadmap 1361
+@drawmap
+@update
+@do goto done
+@#done
diff --git a/xtrn/lord2/cnw/castle2.ref b/xtrn/lord2/cnw/castle2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..0c170a3299e1439166b075132617df13ab54cc0f
--- /dev/null
+++ b/xtrn/lord2/cnw/castle2.ref
@@ -0,0 +1,601 @@
+; Script file CASTLE2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:15 2001
+
+@DECLARE mybank 000000683
+@DECLARE stables 000003476
+@DECLARE healme 000004464
+@DECLARE tower 000004685
+@DECLARE doorguard 000004794
+@DECLARE startg 000004823
+@DECLARE sign 000008351
+@DECLARE enter 000008654
+@DECLARE done 000009876
+@DECLARE letmein 000011632
+@DECLARE done 000011709
+@NOCHECK
+; End of .REF index
+
+;note to .ref masters:
+;replace castle2 with something else to use this .ref for other dwellings
+;this .ref uses no long term vars, instead it makes its own data file - this
+;means upgrading the game will not make people 'lose ownership' of their
+;stuff.
+
+@#MYBANK
+;team treasury
+@do moveback
+@do `p20 is 0
+@if tres2.dat exist true then do
+ @begin
+ @readfile tres2.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile tres2.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete tres2.dat
+ @writefile tres2.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile castle2.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Castle Coldrake Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile tres2.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete tres2.dat
+ @writefile tres2.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile castle2.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Castle Coldrake Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+
+@#STABLES
+;lets them warp to a view places
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Stables `r0
+
+ `0"Greetings, s&sir! Where can we drop you off today?" `2a smartly dressed
+ youth asks.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Sosen Village
+Stonepass Lodge
+PortTown
+I'll stay here, thanks
+@if response not 4 then do
+ @begin
+@show
+`\`\ `0"We shall leave at once!" he shouts importantly.
+
+`k `2A few bumps later you arrive - ah, traveling in style is so much fun!
+
+ `0"I bid you a goodday s&sir, please travel safely."
+
+ `2Looks like you are on your own.
+
+`k
+@if responce is 1 then do
+ @begin
+ ;Sosen village
+ @do x is 38
+ @do y is 5
+ @do map is 456
+ @end
+
+@if responce is 2 then do
+ @begin
+ ;Stonepass Lodge
+ @do x is 40
+ @do y is 11
+ @do map is 880
+ @end
+
+@if responce is 3 then do
+ @begin
+ ;Porttown
+ @do x is 43
+ @do y is 16
+ @do map is 956
+ @end
+
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#HEALME
+;free heal
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Healers `r0
+
+ `2The good doctor looks you over for wounds carefully.
+
+ `%YOU ARE COMPLETEY HEALED.
+
+`k
+@do `p02 is `p03
+@drawmap
+@update
+
+
+@#TOWER
+;Tower in the castle
+@DO SAYBAR
+`2The tower on this castle is not ready yet.
+@do moveback
+
+@#doorguard
+@do moveback
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+@if castle2.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to vacate this castle!" `2the guard barks.
+ @closescript
+ @end
+
+@readfile castle2.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the door guard, nice of him to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The huge doorguard snaps to attention when he sees you are going to
+ address him.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+Home Sweet Home
+Leave
+@if responce is 3 then do
+ @begin
+ @do `p69 is 18
+ @show
+`\ This is your HOME now. Welcome Home.
+ @key
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$10000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your castle to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete castle2.dat
+ @writefile castle2.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of Castle Coldrake to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%Castle Coldrake`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your castle back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete castle2.dat
+ @do money + 10000
+ @show
+`\`\ `%CASTLE SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Castle Coldrake`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete castle2.dat
+ @writefile castle2.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#sign
+@do moveback
+
+ @if castle2.dat exist false then do
+ @begin
+ @do saybar
+Castle Coldrake - For sale cheap, enquire inside.
+ @end
+
+@if castle2.dat exist true then do
+ @begin
+@readfile castle2.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+@#enter
+@do moveback
+@offmap
+@if castle2.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2Castle Coldrake was once a magnificient structure that housed many of
+ the royal families.
+
+ Buy now and recieve the following bonuses:
+
+ `0* `2A private carriage service! With drop off points in `0Porttown`2
+ and `0Sosen Village`2!
+
+ `0* `2Your very own physician on the grounds!
+
+ `2The asking price is `$$20,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Purchase it.
+<&money 20000 Sigh wistfully and leave since you don't have enough.
+>&money 19999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if castle2.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile castle2.dat
+&playernum
+NONE
+0
+0
+0
+0
+ @do money - 20000
+ @do addlog
+ `0`n `2buys `%Castle Coldrake`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this castle!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile castle2.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete castle2.dat
+ @do addlog
+ `%Castle Coldrake`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+ `4Ouch!
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2the door guard asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%Castle Coldrake`0,"`2 the guard smiles as he opens the gate.`\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `0Castle Coldrake Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The guard doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein
+@do x is 41
+@do y is 17
+@do map is 80
+@loadmap 80
+@do goto done
+@#done
diff --git a/xtrn/lord2/cnw/castle3.ref b/xtrn/lord2/cnw/castle3.ref
new file mode 100644
index 0000000000000000000000000000000000000000..468e81788922e779466c87b9a4a964820588d580
--- /dev/null
+++ b/xtrn/lord2/cnw/castle3.ref
@@ -0,0 +1,630 @@
+; Script file CASTLE3.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:15 2001
+
+@DECLARE mybank 000000874
+@DECLARE signhelp 000003623
+@DECLARE sign1 000003698
+@DECLARE sign2 000003755
+@DECLARE sign3 000003810
+@DECLARE warpme 000003869
+@DECLARE stone1 000003948
+@DECLARE stone2 000004032
+@DECLARE stone3 000004114
+@DECLARE table 000004197
+@DECLARE fountain 000004766
+@DECLARE doorguard 000004977
+@DECLARE startg 000005006
+@DECLARE sign 000008573
+@DECLARE enter 000008873
+@DECLARE done 000010274
+@DECLARE letmein 000012036
+@DECLARE done 000012117
+@NOCHECK
+; End of .REF index
+
+;note to .ref masters:
+;replace castle3 with something else to use this .ref for other dwellings
+;this .ref uses no long term vars, instead it makes its own data file - this
+;means upgrading the game will not make people 'lose ownership' of their
+;stuff.
+
+
+@#MYBANK
+;team treasury
+@do moveback
+@do `p20 is 0
+@if tres3.dat exist true then do
+ @begin
+ @readfile tres3.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile tres3.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete tres3.dat
+ @writefile tres3.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile castle3.dat
+`p20
+`s01
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Wizard Tower Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile tres3.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete tres3.dat
+ @writefile tres3.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile castle3.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Wizard Tower Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+
+@#signhelp
+@do moveback
+@do saybar
+`0Sign: `2Be careful what you touch.
+
+@#sign1
+@do moveback
+@do saybar
+`0Sign: `4Bonetown
+
+@#sign2
+@do moveback
+@do saybar
+`0Sign: `9Porttown
+@#sign3
+@do moveback
+@do saybar
+`0Sign: `2Greentree
+
+@#warpme
+@loadmap &map
+@drawmap
+@update
+@do quebar
+`%Wow, what a ride!
+
+@#stone1
+;Greentree
+@do x is 51
+@do y is 16
+@do map is 1356
+@do goto warpme
+
+@#stone2
+;Bonetown
+@do x is 68
+@do y is 5
+@do map is 1572
+@do goto warpme
+
+@#stone3
+;Porttown
+@do x is 62
+@do y is 13
+@do map is 956
+@do goto warpme
+
+
+@#TABLE
+;get magic wand
+@do moveback
+@if castle3.dat exist false then do
+ @begin
+ @do saybar
+`0"Geeeet ouuut hoooman.." `2the table creaks.
+ @closescript
+ @end
+
+;load info on owner
+@readfile castle3.dat
+`p20
+`s01
+@
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+`2What? Touch something that isn't yours? Um, no.
+ @closescript
+ @end
+
+@if `i56 > 0 then do
+ @begin
+ @do saybar
+`2There is nothing on the table.
+ @closescript
+ @end
+
+@do saybar
+A wand magically appears when you touch the table! Yeah!
+@do `i56 is 1
+
+@#FOUNTAIN
+;free heal
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Fountain `r0
+
+ `2The strange water makes you tingle.
+
+ `%YOU ARE COMPLETEY HEALED.
+
+`k
+@do `p02 is `p03
+@drawmap
+@update
+
+
+
+@#doorguard
+@do moveback
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+@if castle3.dat exist false then do
+ @begin
+ @do saybar
+`0"You must leave now, human," `2the troll commands.
+ @closescript
+ @end
+
+@readfile castle3.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the troll, nice of it to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The tiny troll snaps to attention when he sees you are going to
+ address him.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+Home Sweet Home
+Leave
+@if responce is 3 then do
+ @begin
+ @do `p69 is 19
+ @show
+`\ This is your HOME now. Welcome Home.
+ @key
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$20000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your tower to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete castle3.dat
+ @writefile castle3.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of Wizard Tower to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%Wizard Tower`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your tower back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete castle3.dat
+ @do `p30 is 4
+ @do `v40 is 20000
+ @routine widthdraw in vaults.ref
+ @do money + 20000
+ @show
+`\`\ `%TOWER SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Wizard Tower`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete castle3.dat
+ @writefile castle3.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the troll promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#sign
+@do moveback
+
+ @if castle3.dat exist false then do
+ @begin
+ @do saybar
+Wizard Tower - For sale cheap, enquire inside.
+ @end
+
+@if castle3.dat exist true then do
+ @begin
+@readfile castle3.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+@#enter
+@do moveback
+@offmap
+@if castle3.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2Wizard Tower may be old and dalapidated but it still houses that old
+ world charm of an enchanters hostel. Perhaps if you buy it, people would
+ call you 'that crazy old wizard who lives in that tower!'. You just
+ can't put a price on that. (ok, it's `$$40,000`2)
+
+ Buy now and recieve the following bonuses:
+
+ `0* `2An indoor fountain.
+
+ `0* `2A magic <maybe> wand the previous owner left.
+
+ `0* `2Some strange rocks upstairs.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 39999 Purchase it.
+<&money 40000 Sigh wistfully and leave since you don't have enough.
+>&money 39999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if castle3.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile castle3.dat
+&playernum
+NONE
+0
+0
+0
+0
+ @do `p30 is 4
+ @do `v40 is 40000
+ @routine deposit in vaults.ref
+ @do money - 40000
+ @do addlog
+ `0`n `2buys `%Wizard Tower`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this tower!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile castle3.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete castle3.dat
+ @do addlog
+ `%Wizard Tower`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ trollish voice calls from behind the wall.
+
+ `4Ouch!
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2a hunched over troll asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%Wizard Tower`0,"`2 the troll smiles as he opens the gate.`\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `0Wizard Tower Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the troll by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The troll doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein
+@do x is 44
+@do y is 17
+@do map is 1179
+@loadmap 1179
+@do goto done
+@#done
diff --git a/xtrn/lord2/cnw/castle32.ref b/xtrn/lord2/cnw/castle32.ref
new file mode 100644
index 0000000000000000000000000000000000000000..b5104001fa28c9abde0b7cdff62cd0b891294db0
--- /dev/null
+++ b/xtrn/lord2/cnw/castle32.ref
@@ -0,0 +1,97 @@
+; Script file CASTLE32.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:40 2001
+
+@DECLARE dance 000000263
+@DECLARE servent1 000000336
+@DECLARE servent2 000000418
+@DECLARE chair 000000463
+@DECLARE agent 000000522
+@NOCHECK
+; End of .REF index
+
+@#DANCE
+@do saybar
+ `2 Ah Ah Ah Ah Stayin' Alive! Stayin' Alive!
+
+@#SERVENT1
+@do `s01 is getname `p20
+@do saybar
+ `2 All Hail King `0`s01`2!
+
+@#SERVENT2
+@do saybar
+ `2 Lets Dance `s03!
+
+@#CHAIR
+@do saybar
+ `2 Power.... How I love thee.....
+
+@#AGENT
+@offmap
+@do moveback
+@show
+`r0`c `r1 Travel Agent `r0
+
+ `0"Hello sir. Where do you wish to go today?" `2Asks Patrica.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+GreenTree
+PortTown
+BoneTown
+FlagCity
+Sosen Village
+ArrisVille
+Nevermind
+@if response not 7 then do
+ @begin
+@show
+`\`\ `0"Okay sir, here we go, I'll just grab my purse."
+
+`k `2Smack! Ouch! <Clonk!> You wake up.
+
+ `2Then suddenly, you are there, on your own.
+`\`k
+@if response is 1 then do
+ @begin
+ @do x is 10
+ @do y is 15
+ @do map is 1356
+ @end
+@if response is 2 then do
+ @begin
+ @do x is 38
+ @do y is 16
+ @do map is 956
+ @end
+@if response is 3 then do
+ @begin
+ @do x is 53
+ @do y is 18
+ @do map is 1572
+ @end
+@if response is 4 then do
+ @begin
+ @do x is 71
+ @do y is 19
+ @do map is 1092
+ @end
+@if response is 5 then do
+ @begin
+ @do x is 36
+ @do y is 5
+ @do map is 456
+ @end
+@if response is 6 then do
+ @begin
+ @do x is 19
+ @do y is 9
+ @do map is 523
+ @end
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
diff --git a/xtrn/lord2/cnw/castle4.ref b/xtrn/lord2/cnw/castle4.ref
new file mode 100644
index 0000000000000000000000000000000000000000..2fb0e75e5cded2d0ad9ce83b70cb4dff011c514b
--- /dev/null
+++ b/xtrn/lord2/cnw/castle4.ref
@@ -0,0 +1,1235 @@
+; Script file CASTLE4.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:16 2001
+
+@DECLARE toy 000000894
+@DECLARE mybank 000000991
+@DECLARE priv 000003769
+@DECLARE innkeeper 000003867
+@DECLARE pass1 000005175
+@DECLARE pass2 000005429
+@DECLARE done 000006782
+@DECLARE doorguard 000006818
+@DECLARE startg 000006847
+@DECLARE potion3 000008441
+@DECLARE sign 000015440
+@DECLARE enter 000015737
+@DECLARE potiond 000016840
+@DECLARE done 000018444
+@DECLARE letmein 000018855
+@DECLARE safeguard 000018942
+@DECLARE leaveguard 000020752
+@DECLARE die 000020919
+@DECLARE done 000025739
+@NOCHECK
+; End of .REF index
+
+;note to .ref masters:
+;replace castle4 with something else to use this .ref for other dwellings
+;this .ref uses no long term vars, instead it makes its own data file - this
+;means upgrading the game will not make people 'lose ownership' of their
+;stuff.
+@#TOY
+@do moveback
+@do saybar
+Ahh... your private restroom. Could life get any better?
+
+@#MYBANK
+;team treasury
+@do moveback
+@do `p20 is 0
+@if tres4.dat exist true then do
+ @begin
+ @readfile tres4.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile tres4.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete tres4.dat
+ @writefile tres4.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile castle4.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Sosen Inn Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile tres4.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete tres4.dat
+ @writefile tres4.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile castle4.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Sosen Inn Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+
+@#priv
+@do moveback
+@do saybar
+Ahhh! The private bedroom! Nothing can hurt you here.
+
+@#innkeeper
+
+
+@do moveback
+
+@if castle4.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@readfile castle4.dat
+`p20
+`s01
+@
+
+@if `p20 is &playernum then do
+ @begin
+ @do moveback
+ @do saybar
+`0Innkeeper: `2Greetings, s&sir!
+ @closescript
+ @end
+
+
+
+@if castle4a.dat exist false then do
+ @begin
+ @writefile castle4a.dat
+200
+0
+ @
+ @end
+
+ @readfile castle4a.dat
+`p26
+`p27
+ @
+
+
+@do `v01 is 1
+@show
+`r0`c `r1 `%Getting a room `r0
+
+`2 The Innkeeper looks at you. `0"Kin I getcha a room? Today it costs
+ only `$$`p26!`2"
+
+@do write
+`x`x
+@choice
+Yeah, what a great deal.
+Shyeah, right.
+@if responce is 1 then do
+ @begin
+ @if money < `p26 then do
+ @begin
+ @show
+`\`\ `2You sort of lack the funds right now. Looks like you're sleeping
+ outside...
+
+`k
+ @do goto innkeeper
+ @end
+ @do `i80 is 1
+ @do money - `p26
+ @do `p27 + `p26
+ @do delete castle4a.dat
+ @writefile castle4a.dat
+`p26
+`p27
+ @
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has stayed at your Inn! Cha-CHING!
+
+ @do y - 3
+ @drawmap
+ @update
+ @do saybar
+`0InnKeeper: `2"Great! Go upstairs and pick out a bed!"
+ @closescript
+ @end
+
+@drawmap
+@update
+
+@#pass1
+@readfile castle4.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+
+@if &lasty is 11 then do
+ @begin
+ @do moveback
+ @do saybar
+`0Innkeeper: `2You need to pay me before you can go back there.
+ @end
+
+@#pass2
+@if castle4.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@if &lastx is 58 then do
+ @begin
+ @closescript
+ @end
+
+@readfile castle4.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @do saybar
+`0Innkeeper: `2No one is allowed over there.. it's private.
+
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 Entrance to the private area `r0
+
+`2 `2The Innkeeper looks over at you. `0"Hey! What business do you have
+ going in there?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok, go on in then!"`\`\`k
+ @do x + 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Inkeeper Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get to the private bedroom by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The Innkeeper isn't impressed.`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+
+
+ @#done
+ @drawmap
+ @update
+
+@#doorguard
+@do moveback
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+
+@if castle4a.dat exist false then do
+ @begin
+ @writefile castle4a.dat
+200
+0
+ @end
+
+
+@if castle4.dat exist false then do
+ @begin
+ @do saybar
+`0"Get out please! The Inn has been sold!" `2the Innkeeper commands.
+ @closescript
+ @end
+
+@readfile castle4.dat
+`p20
+`s01
+@
+
+ @readfile castle4a.dat
+`p26
+`p27
+ @
+@if ninn6b.dat exist false then do
+ @begin
+ @writefile ninn6b.dat
+25
+0
+ @end
+ @readfile ninn6b.dat
+`p25
+`p29
+ @
+@if ninnw6.dat exist false then do
+ @begin
+ @writefile ninnw6.dat
+5
+Red Potion
+ @end
+ @readfile ninnw6.dat
+`p28
+`s03
+@
+
+
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the Innkeeper.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The Innkeeper stops working for a moment.
+
+@do write
+`x`x
+@choice
+Set password to private bedroom. (currently is `0`s01`%)
+Ownership options
+Set inn fee (currently is at `$$`p26`%)
+Take money from register
+Set whore fee (currently is at `$$`p25`%)
+Take money from whores
+Change Toilet Water (currently is composed of `!`s03s`%)
+Home Sweet Home
+Leave
+@if responce is 8 then do
+ @begin
+ @do `p69 is 6
+ @show
+`\ This is your HOME now. Welcome Home.
+ @key
+ @end
+@if response is 7 then do
+ @begin
+ @label potion3
+ @show
+`c`\`\ `0"What do you want your toilet water made of?"
+
+@do write
+`x`x`x
+@do `v01 is 1
+@choice
+Silver Potion
+Gold Potion
+Red Potion
+What!?!
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `2Let's explain, shall we...
+
+ `0In your private room, there will be a toilet. In it, there will be water.
+ What kind of water is your choice. This water will be available to drink
+ once per day by yourself and whomever you allow inside your private room.
+
+ `2Types of Water:
+
+ `$-`0Silver Potion`2: Dodge goes up by 1!
+ `$-`0Gold Potion`2: Muscle goes up by 2!
+ `$-`0Red Potion`2: Max HP goes up by 5!
+
+ `2That's what we're talking about...
+
+`k
+
+ @do goto potion3
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Silver Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw6.DAT exist true then delete ninnw6.DAT
+ @writefile ninnw6.DAT
+1
+Silver Potion
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Gold Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw6.DAT exist true then delete ninnw6.DAT
+ @writefile ninnw6.DAT
+2
+Gold Potion
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Red Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw6.DAT exist true then delete ninnw6.DAT
+ @writefile ninnw6.DAT
+5
+Red Potion
+ @end
+
+ @do goto doorguard
+ @end
+
+@if responce is 4 then do
+ @begin
+ @if `p27 < 1 then do
+ @begin
+@show
+`\`\ `0"Before you look in that register.. lemmie tell you business has
+ been a little slow." `2the Innkeeper tells you.
+
+`k `$"How slow?" `2you ask.
+
+`k `0"Ok, we have not had a single customer since you last checked, ARE
+ YOU HAPPY NOW!?" `2the Innkeeper cries as he bursts into tears.
+
+`k
+ @do goto doorguard
+ @end
+
+
+ @readfile castle4a.dat
+`p26
+`p27
+ @
+ @do money + `p27
+ @do delete castle4a.dat
+ @writefile castle4a.dat
+`p26
+0
+ @
+
+ @show
+`\`\ `2Sure, we've made `$$`p27`2, here ya go!
+
+`k
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You think you're pretty smart, don't you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, yes I do. Now please give me 1,000,000 gold for free, I deserve it.
+No, you oh computer are the true master. We humans suck.
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2GET OUT OF HERE BEFORE I `bDELETE`2 YOU! Next time I will.
+
+ @do goto doorguard
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ The computer playfully slaps your ass as it walks out.
+
+ @do goto doorguard
+
+ @end
+
+ @do goto doorguard
+ @end
+ @readfile castle4a.dat
+`p26
+`p27
+ @
+ @do `p26 is `v40
+ @do delete castle4a.dat
+ @writefile castle4a.dat
+`p26
+`p27
+ @
+ @do goto doorguard
+ @end
+
+
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$10000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your Inn to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete castle4.dat
+ @writefile castle4.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of Sosen Inn to you.
+ Password to enter bedroom will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%Sosen Inn`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Inn back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete castle4.dat
+ @do delete castle4a.dat
+ @do money + 10000
+ @show
+`\`\ `%INN SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Sosen Inn`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete castle4.dat
+ @writefile castle4.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the Innkeeper promises.`\`\`k
+ @do goto startg
+ @end
+@if response is 5 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You think you're pretty smart, don't you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, yes I do. Now please give me 1,000,000 gold for free, I deserve it.
+No, you oh computer are the true master. We humans suck.
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2GET OUT OF HERE BEFORE I `bDELETE`2 YOU! Next time I will.
+
+ @do goto doorguard
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ The computer playfully slaps your ass as it walks out.
+
+ @do goto doorguard
+
+ @end
+
+ @do goto doorguard
+ @end
+ @readfile ninn6b.dat
+`p26
+`p27
+ @
+ @do `p26 is `v40
+ @do delete ninn6b.dat
+ @writefile ninn6b.dat
+`p26
+`p27
+ @
+ @do goto doorguard
+ @end
+
+
+@if response is 6 then do
+ @begin
+ @readfile ninn6b.dat
+`p25
+`p29
+ @if `p29 is 0 then do
+ @begin
+ @show
+`\`\ `2The whores sob uncontrollably. `0"We haven't had sex since you last
+ checked. It's awful!"
+
+`k
+ @do goto doorguard
+ @end
+
+ @do money + `p29
+ @do delete ninn6b.dat
+ @writefile ninn6b.dat
+`p25
+0
+ @
+
+ @show
+`\`\ `2Sure, we've made `$$`p29`2, here ya go!
+
+ `2The whores sure are helpful.
+
+`k
+ @end
+
+@drawmap
+@update
+
+@#sign
+@do moveback
+
+ @if castle4.dat exist false then do
+ @begin
+ @do saybar
+Sosen Inn - For sale cheap, enquire inside.
+ @end
+
+@if castle4.dat exist true then do
+ @begin
+@readfile castle4.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+@#enter
+@do moveback
+@offmap
+
+
+@if castle4.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2Sosen Inn - money making opportunity. Buy it now, only asking
+ `$$25,000`2.
+
+ Buy now and recieve the following bonuses:
+
+ `0* `2Private area for you
+
+ `0* `2Upstairs for your guests - you can set any price you want
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 24999 Purchase it.
+<&money 20000 Sigh wistfully and leave since you don't have enough.
+>&money 19999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if castle4.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile castle4.dat
+&playernum
+NONE
+0
+0
+0
+0
+ @do money - 25000
+ @do addlog
+ `0`n `2buys `%Sosen Inn`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this Inn!
+
+ `2Enjoy your new home.
+
+`k
+@label POTIOND
+@show
+`c`\
+ `2What would you like your toilet water to be made out of?
+
+@do write
+`x`x`x
+@do `v01 is 1
+@choice
+Silver Potion
+Gold Potion
+Red Potion
+What!?!
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `2Let's explain, shall we...
+
+ `0In your private room, there will be a toilet. In it, there will be water.
+ What kind of water is your choice. This water will be available to drink
+ once per day by yourself and whomever you allow inside your private room.
+
+ `2Types of Water:
+
+ `$-`0Silver Potion`2: Dodge goes up by 1!
+ `$-`0Gold Potion`2: Muscle goes up by 2!
+ `$-`0Red Potion`2: Max HP goes up by 5!
+
+ `2That's what we're talking about...
+
+`k
+
+ @do goto POTIOND
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Silver Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw6.DAT exist true then delete ninnw6.DAT
+ @writefile ninnw6.DAT
+1
+Silver Potion
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Gold Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw6.DAT exist true then delete ninnw6.DAT
+ @writefile ninnw6.DAT
+2
+Gold Potion
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Red Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw6.DAT exist true then delete ninnw6.DAT
+ @writefile ninnw6.DAT
+5
+Red Potion
+ @end
+
+
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile castle4.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete castle4.dat
+ @do addlog
+ `%Sosen Inn`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+;let him in
+@label letmein
+@do x is 51
+@do y is 12
+@do map is 616
+@loadmap &map
+@do goto done
+
+@#safeguard
+@do moveback
+@if `I80 is 0 then do
+ @begin
+ @show
+`r0`c `r1`4 Trying to break into the inn `r0
+
+ `2As you get to the top of the stairs you see a friggin' huge keyhole.
+
+`k `2You look around and see that no one is looking, so reach your hand
+ `2into the lock and you start fumbling around with it. When all of the
+ `2sudden you feel someone tapping you on the shoulder`l.`l.`l.
+
+
+`k `2You see the door guard behind you with a big shovel and he looks
+ `2pissed. He takes the shovel and hits you right in the face for all he
+ `2is worth and from then on out it is black`l.`l.`l.
+
+`k`c `%`l.`l.`l.`2You wake and feel yourself being dragged along the ground
+ `%`l.`l.`l.`2eventually he stops, you are out back at what seems like
+ `2a huge pit`%.`2 You see that he has a big axe in his hand so you
+ `2start to frantically struggle to stand up`%`l.`l.`l.`2you then realize that
+ `2you are tied up`%`l.`l.`l.`2the guard looks down at you as an annoid
+ `2expression crosses his face`%. `2He then proceeds to pick up the
+ `2axe and hit you with the blunt side of it, effortlessly crushing
+ `2your skull like a rotten pumpkin.
+
+
+`k `2He then throws in the pit and fills it up with the same shovel he
+ `2smacked you with`%. `2You are `4`bdead.
+
+ @do `p02 is 0
+ @do addlog
+ `n `0has mysteriously dissapeared
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @do goto die
+ @closescript
+ @drawmap
+ @update
+ @end
+@if `I80 is 1 then do
+ @begin
+ @do `I80 is 0
+ @if `I07 > 0 then do
+ @begin
+ @do `I07 is 0
+ @do `I81 is 1
+ @end
+ @loadmap 620
+ @do x is 40
+ @do y is 11
+ @drawmap
+ @update
+ @end
+
+@#leaveguard
+@if `I81 is 1 then do
+ @begin
+ @do `I81 is 0
+ @do `I07 is 1
+ @end
+@do map is 616
+@do x is 37
+@do y is 7
+@loadmap &map
+@drawmap
+@update
+
+
+
+@#DIE
+@do move 3 24
+@do write
+`r0 `x
+
+ @readfile castle4a.dat
+`p26
+`p27
+@
+ @do `p27 + money
+ @do delete castle4a.dat
+ @writefile castle4a.dat
+`p26
+`p27
+ @
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has tried to enter your INN with a smakerod, but died
+ and all the cash was put into the register! Cha-Ching!
+
+ @do X is 27
+ @do Y is 7
+ @do money 0
+ @do `p02 is `p03 (give 'em max hit points)
+ @do `p20 is `p01
+ @do `p20 / 5
+ @do `p01 - `p20
+ @do MAP is 155
+ @do dead is 1
+ @update_update
+
+@do move 3 24
+@do write
+`4You've been killed. `k
+
+@pauseoff
+@show
+`r0`c
+[34C[0m���������������
+[29C���[1;30;47m����[0;47m�[1;30m�[0;47m�����������[40m�
+[28C�[1;30;47m����[0;47m������������������[40m�
+[27C�[1;30;47m����[0;47m��������[1;30m��[0;47m���������[40m�
+[19C��[5C�[1;30;47m����[0;47m����������[1;30m����[0;47m�����[40m
+[A[50C[47m[1;30m�[0m��
+[18C���� [1;30;47m�����[0;47m�����[1;30m� �[0;47m�[1;30m���[40m
+[A[43C[0;47m�����[1;30m�ܲ[0m�[47m�[1C[40m�[1;47m��[40m�
+[17C[30m�[47m�[0;47m��[1m�[0m� [1;30;47m���� [0;47m��[1;30m�[40m
+[A[34C[0;47m�[1;30m�����߰�[0;47m�[1;30m�[0;47m����[1;30m߲�[40m
+[A[52C[47m[0m�[1;30m�[47m�[0;47m�[1m�[40m�
+[17C[30;47m���[0;47m��[1m��[0m� [1;30m�[0m��� [1;30m�߲[47m[40m
+[A[37C[47m����[40m���[5C[0m��[1;30;47m�[40m�[47m��[0m� �
+[18C[1;30m���[47m��[0;47m� [1;30m�[1C[0m� [31m� [1;30m��
+[A[38C[47m���[40m� [0;31m� [37m��[1;30;47m�[40m�
+[23C[0m�[1;30;47m��[40m�[0m���� ��[1;30;47m�[0m��[1;30m�
+[A[41C[47m�[0m�� ��[1;47m�[0m�[1;30m�
+[25C[47m�[40m�[0m�[1;30;47m� [0;47m��[1;30m�����[0m� [1;30m� [0m�
+[A[42C[1;30;47m����[0;47m����[1m��[0m�
+[26C�[1;30;47m�[0;47m����[1;30mܲ��[0;47m�[2C[1;30;40m�� [47m��[40m
+[A[44C[47m�[0;47m�����[40m��
+[27C���[1;30;47m��[40m���[47m�[0m��[1;30;47m�����[40m��[0m� ����
+[29C[1;30m�� �� [0m��[1;30m�� �[0m�[1;30m� �� [47m��[0m�
+[27C�[1;30;47m���[40m� � [47m�[0m�[1;47m��[40m��[0m��[1;30;47m[40m
+[A[43C[47m�[40m� � [47m��[0;47m�[40m�
+[22C[1m� [47m��[30m��[40m� [0m� [1;30m� [0m� �[1m� �[0m� �
+[A[45C[1;30m��[47m�[1C[0m�[47m [1m�[40m���
+[19C�[47m�����[30m�[0m�� ���[1;30;47m�[0;47m�[40m�� ����� ��
+[A[45C[1;30;47m��[0;47m��[40m� �[1;30;47m�[37m��[40m�[47m�[40m
+[19C[0;31m� [37m���[1;30;47m�[40m�[0;33mܲ�� [37m�[1;47m��[30m[40m
+[A[34C[47m�[0;47m���[1;30m��[0;47m���� [1m��[0m� [33m���[1;30m�
+[A[53C[47m�[0m��[31m�
+[17C�����[37m�[1;30m�[0;31m���[33;41m����[40m� [37m�[1;47m�[40m
+[A[35C[0;47m��[1;30mܱ[40m�[47m��[40m�[47m�[37m�[0m� [31m�
+[A[48C[33;41m���[31;40m��[1;30m�[0;31m��۲��
+
+ `%You have made an error, s&boy.
+
+`k
+ @if `v03 is 0 then do
+ @begin
+ ;rules.ref file says unlimited deaths not allowed, so we will boot them
+ ;till tomorrow
+
+ ;take them off the map
+ @do map is 1
+ @halt
+ @end
+
+ @pauseon
+
+ @do dead is 0
+
+ @if `p07 less 0 then do
+ @begin
+ @show
+`r0`c`% `r1IT FEELS KINDA WARM IN HERE?`r0
+
+ `4You open your eyes.
+
+`k `4There are naked screaming people all around you. A little boy with
+ a ghastly face begins to gnaw on your leg.
+
+`k `6"Din, leave the newcomer alone. S&he isn't staying." `4a slow voice that
+ can only be described as an abomination dolefully states.
+
+`k `2You feel yourself floating away... faster and faster.
+ @end
+
+ @if `p07 more -1 then do
+ @begin
+ @show
+`r0`c`% `r1APPARENTLY DEATH ISN'T THE END.`r0
+
+ `2You open your eyes.
+
+`k `2You are lying on a table of solid rock in a marble room. Hundreds of
+ soft voices are murmuring all around you, but you see no one.
+
+`k `%"Send s&him back." `2a voice whispers, this one louder than the others.
+
+`k `2You feel yourself floating away... faster and faster.
+
+`k
+ @end
+
+
+@show
+`c `r1`%AWAKENING.`r0
+
+ `0"Can you hear me, `n?" `2a stressed voice shouts.
+
+ `$"Yeah. Christ mom, lemmie up, I'm fine." `2you assure your mother.
+
+ `0"You're alive!! The elders brought your body here yesterday, you must
+ have fainted out there." `2your mother shouts, tears of joy streaming down
+ her wrinkled face.
+
+ `$"Ok, ok - nice little happy reunion and all that, but I gotta hit the
+ road now. Buhbye." `2you tell her. Afterall, you need to make the most of
+ this new lease on life.
+
+ `2The InnKeeper takes your Gold!
+ `2You lose `4ALL`2 the gold you were carrying and `4`p20`2 experience.
+
+`k
+ @loadmap map
+ @drawmap
+ @update
+
+@#done
diff --git a/xtrn/lord2/cnw/church.ref b/xtrn/lord2/cnw/church.ref
new file mode 100644
index 0000000000000000000000000000000000000000..3d013a35de4f969290bae33b3bbce412068f3ecf
--- /dev/null
+++ b/xtrn/lord2/cnw/church.ref
@@ -0,0 +1,224 @@
+; Script file CHURCH.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:18 2001
+
+@DECLARE start 000000203
+@DECLARE done 000005381
+@DECLARE locked 000005472
+@NOCHECK
+; End of .REF index
+
+@#START
+@DO MOVEBACK
+@datanewday church.idf
+@dataload church.idf &playernum `p20
+
+@IF `p20 IS 1 THEN DO
+ @BEGIN
+ @DO GOTO LOCKED
+ @END
+@CLEAR SCREEN
+@SHOW
+
+ `5 ��ͻ
+ `5 �`7��`5�
+ `5 �`7��`5�
+ `5 �����ͼ`7��`5�����ͻ `7STONEBROOK
+ `5 �`7��������������`5� `7CHURCH
+ `5 �����ͻ`7��`5�����ͼ
+ `5 �`7��`5�
+ `5 �`7��`5�
+ `5 �`7��`5�
+ `5 �`7��`5�
+ `5 �`7��`5�
+ `5 ��ͼ
+
+
+
+`2 You enter the church building. An older man approaches. He smiles
+and extends his hand. You're not sure why, but you feel relaxed in his
+presence. You take his hand and shake it.
+@KEY BOTTOM
+@CLEAR SCREEN
+@SHOW
+
+[0;1m [0;33m������
+ ��������
+ [37m�������[33m�[36;43m�[40m
+[37m����[33m��[37m��[33m�����
+[37m����[33m����[1;30;43m�[0;33m��
+ [37m��[33m�����[1;30;43m���[17C[32;40m"Welcome to the Stonebrook Church. I am one of the
+ [0;33m����[15C[1;32mchurch elders. How can I help you?"
+ [0;35m������
+ ��[1;30;45m����[0;35m��
+ ��[1;30;45m�[0;35m��[1;30;45m�������[40m�[0;33m���
+ [35m��[1;30;45m������[40m�����
+ [0;35m��������
+ ��������
+
+
+
+@do `v01 is 1
+@CHOICE
+"I've come seeking wisdom."
+"I'm sorry. I must have taken a wrong turn."
+"I've come to beat you up, you religious fanatic."
+@IF RESPONCE IS 3 THEN DO
+ @BEGIN
+ @CLEAR SCREEN
+ @SHOW
+[?7h[255D[13C[0;1;33m��[0;30m�
+[14C[1;33m��[0;30m�
+[15C[1;33m��[0;30m�
+[16C[1;33m��[0;30m�
+[17C[1;33m��
+[17C� �[21C[37mAs you draw back your fist to punch
+[16C[33m� � �[16C[37mthe old man, you hear a thunder clap and
+[15C[33m� �� ��[14C[37msee a bright flash. Then suddenly, all
+[14C[33m� � � �[13C[37mis dark.
+[13C[33m� � � ��
+[12C� �[6C� [0;30m�[1;33m��
+[11C��[0;30m�[1;33m�[6C� � �
+[10C�[0;30m� [1;33m�[6C�[6C� �
+[9C� � � � � � �
+[7C�� �[6C� �[8C�
+[6C� �[6C�[5C�[8C�
+[5C� � �[5C�� � �[6C� �
+[8C� � � �[5C� � �
+[13C�[12C�[8C�
+ @KEY BOTTOM
+ @CLEAR SCREEN
+ @SHOW
+
+
+
+ `0 When you awake, you realize that you don't feel very well. You also
+ notice that the sun appears to have travelled a good distance to the west.
+ And if all that wasn't bad enough, you smell like burnt toast!
+
+
+`6 HITPOINTS ARE AT 1
+ ALIGNMENT IS MINUS 4
+ YOU HAVE LOST 500 TURNS
+ @DO `p02 IS 1
+ @DO `p11 - 500
+ @DO `p07 - 4
+ @DO GOTO DONE
+ @END
+
+@IF RESPONCE IS 2 THEN DO
+ @BEGIN
+ @SHOW
+
+
+`0"Feel free to come back any time."
+ @DO GOTO DONE
+ @END
+@CLEAR SCREEN
+@SHOW
+
+
+
+
+ `0 "There is much wisdom in the book of Proverbs. It will help you to
+become a better person."`2
+@DO `p07 + 1
+@DO `p20 RANDOM 10 1
+@IF `p20 IS 1 THEN DO
+ @BEGIN
+ @SHOW
+
+ He who walks with the wise grows wise,
+ but a companion of fools suffers harm.
+`0 Proverbs 13:20
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 2 THEN DO
+ @BEGIN
+ @SHOW
+
+ For the Lord gives wisdom, and from his mouth
+ come knowledge and understanding.
+`0 Proverbs 2:6
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 3 THEN DO
+ @BEGIN
+ @SHOW
+
+ Blessed is the man who finds wisdom,
+ the man who gains understanding.
+`0 Proverbs 3:13
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 4 THEN DO
+ @BEGIN
+ @SHOW
+
+ Wisdom is supreme; therefore get wisdom.
+ Though it cost all you have, get understanding.
+`0 Proverbs 4:7
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 5 THEN DO
+ @BEGIN
+ @SHOW
+
+ For wisdom is more precious than rubies,
+ and nothing you desire can compare with her.
+`0 Proverbs 8:11
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 6 THEN DO
+ @BEGIN
+ @SHOW
+
+ When pride comes, then comes disgrace,
+ but with humility comes wisdom.
+`0 Proverbs 11:2
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 8 THEN DO
+ @BEGIN
+ @SHOW
+
+ Pride only breeds quarrels, but wisdom is found
+ in those who take advice.
+`0 Proverbs 13:10
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 7 THEN DO
+ @BEGIN
+ @SHOW
+
+ A man who loves wisdom brings joy to his father,
+ but a companion of prostitutes squanders his wealth.
+`0 Proverbs 29:3
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 7 THEN DO
+ @BEGIN
+ @SHOW
+
+ The rod of correction imparts wisdom, but a child
+ left to himself disgraces his mother.
+`0 Proverbs 29:15
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 10 THEN DO
+ @BEGIN
+ @SHOW
+
+ Instruct a wise man and he will be wiser still;
+ teach a righteous man and he will add to his learning.
+`0 Proverbs 9:9
+ @DO GOTO DONE
+ @END
+@#DONE
+@datasave church.idf &playernum 1
+@KEY BOTTOM
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@#LOCKED
+@DO SAYBAR
+ The church door is locked. Try again tomorrow.
+@CLOSESCRIPT
diff --git a/xtrn/lord2/cnw/cinnamon.idf b/xtrn/lord2/cnw/cinnamon.idf
new file mode 100644
index 0000000000000000000000000000000000000000..68865850f85f68a3b41e3a27f5e8a297df890ef9
Binary files /dev/null and b/xtrn/lord2/cnw/cinnamon.idf differ
diff --git a/xtrn/lord2/cnw/cleft.ref b/xtrn/lord2/cnw/cleft.ref
new file mode 100644
index 0000000000000000000000000000000000000000..2e5bc1e4422728c95a24d8c9c16d2a6913285432
--- /dev/null
+++ b/xtrn/lord2/cnw/cleft.ref
@@ -0,0 +1,282 @@
+; Script file CLEFT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:34 2001
+
+@DECLARE leave 000000476
+@DECLARE hang 000000543
+@DECLARE dead1 000000610
+@DECLARE dead2 000000668
+@DECLARE monster1 000000719
+@DECLARE monster2 000001232
+@DECLARE monster3 000001752
+@DECLARE monster4 000002274
+@DECLARE fight 000002776
+@DECLARE meetman 000002832
+@DECLARE final 000003353
+@DECLARE winfinal 000003915
+@DECLARE die 000004877
+@NOCHECK
+; End of .REF index
+
+@#leave
+@do moveback
+@do saybar
+`2Leave this place.. uh,.....
+
+@#hang
+@do moveback
+@do saybar
+`4Ewww, this guy is hanging!
+
+@#dead1
+@do moveback
+@do saybar
+`2This is horriable
+
+@#dead2
+@do moveback
+@do saybar
+`2Sick...
+
+@#monster1
+@fight
+;name
+Hell Spawn
+;string said when you see him
+What is this freak of hell doing here?
+;power move kill string
+Go to hell...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+spaps at you|300
+pounces on you|400
+bites you|600
+
+NONE|NONE
+;defense
+50
+;gold reward
+576
+;experience
+325
+;hit points
+200
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Magick Man
+;string said when you see him
+Saladem hablar polais!
+;power move kill string
+Sorry, I don't believe in magic...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+casts ICE|397
+casts FIRE|307
+casts LIT|455
+NONE|NONE
+NONE|NONE
+;defense
+43
+;gold reward
+475
+;experience
+287
+;hit points
+178
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Hell Goblin
+;string said when you see him
+Me want MEAT!
+;power move kill string
+Chew on this: Trident!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+smacks you|205
+pounces on you|220
+hits you with his club|234
+bites you|255
+NONE|NONE
+;defense
+66
+;gold reward
+976
+;experience
+625
+;hit points
+300
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Lobo
+;string said when you see him
+Grrrrr...
+;power move kill string
+Sorry, I don't know spanish...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|107
+jumps on you|194
+bites you|192
+slashes you|155
+NONE|NONE
+;defense
+61
+;gold reward
+734
+;experience
+525
+;hit points
+375
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#FIGHT
+@do `p20 random 4 1
+@do goto monster`p20
+
+@#MeetMan
+@do moveback
+@dataload cleft.idf &playernum `p97
+@if `p97 is 0 then do
+@begin
+@show
+`r0`c`r1 ???? `r0
+
+ `2Suddenly you are wisked away into darkness...
+ `2
+ `% Where am I?
+ `2
+ `4 Welcome to HELL... For all time you will remain here...
+ `2
+ `% I'm sorry I won't be staying long...`L`L`L`L`L`L`L
+ `2
+ `1 You draw your sword...
+
+@key
+@run final in cleft.ref
+@end
+@if `p97 is 1 then do
+@do saybar
+What the hell are you doing back here?!
+@end
+
+@#final
+@fight
+;name
+Hell Mage
+;string said when you see him
+"Damn you Warrior!" He cries
+;power move kill string
+Noooo! Lucifer! I have failed you!!!!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+Stabs you|827
+Slams you into a wall|834
+breaks your arm|892
+burns you|855
+NONE|NONE
+;defense
+897
+;gold reward
+50000
+;experience
+25000
+;hit points
+1000
+;if win: ref file|name or NONE
+CLEFT.REF|WINFINAL
+;if lose: ref file|name or NONE
+CLEFT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#WinFINAL
+@busy
+@show
+`r0`c`r1 `%You Stand Victorious! `r0
+
+ `4Nooooooooooo! How could you have beaten me?
+ `2
+ `%Hell will never win against those with a good heart...
+ `4
+ `4Araggg! I'll be BACK...................."`L`L`L`L`L`L
+
+ `2What's this? Suddenly words form above you...
+ `2
+ `%Go on to victory! Defending truth, humility, and Justace!
+ `%Go forth to awe-inspiring deeds! You love what is good.
+ `%And hate what is wrong. Therefore God, your God, has
+ `%giving you another chance. You are forgiven!`L`L`L`L`L`L
+
+ `2Just like that, you arive in Greentree...
+
+
+
+
+@key
+@datasave cleft.idf &playernum 2
+@do addlog
+ `r1 `r0 `0`n`% has been given another chance! `r1 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+
+@do `p97 is 1
+ @do x is 36
+ @do y is 20
+ @do map is 1356
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#DIE
+@show
+`r0`c `r1FOREVER IN HELL `r0
+
+`2 You step back, bleeding all over...
+
+`%Please spare me! You cry with all your might, but to no avail.
+`2
+`4 I'm sorry, I must add you to my collection of lives
+`4 I need souls, therefore I need YOU!!
+
+`2You start to fall.. fall forever into darkness...
+
+`k
+@do addlog
+ `r1 `r0 `0`n`% took a journey to hell, and never came back... `r1 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+
+@run die in gametxt.ref
diff --git a/xtrn/lord2/cnw/cloak.ref b/xtrn/lord2/cnw/cloak.ref
new file mode 100644
index 0000000000000000000000000000000000000000..99138f35878c9733cc0bf8596ed6884a762be072
--- /dev/null
+++ b/xtrn/lord2/cnw/cloak.ref
@@ -0,0 +1,1039 @@
+; Script file CLOAK.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:30 2001
+
+@DECLARE guard 000001351
+@DECLARE warr 000002068
+@DECLARE deal 000002792
+@DECLARE letmepass 000002870
+@DECLARE noenter 000002894
+@DECLARE clean 000002970
+@DECLARE nowarr 000003374
+@DECLARE man 000003915
+@DECLARE oldman 000007099
+@DECLARE oldgame 000007903
+@DECLARE mug 000008941
+@DECLARE mugran 000010457
+@DECLARE mugr2 000010610
+@DECLARE mugr3 000010742
+@DECLARE mugr4 000010874
+@DECLARE mugr5 000011005
+@DECLARE mugr6 000011136
+@DECLARE mugr7 000011268
+@DECLARE mugr8 000011400
+@DECLARE mugr9 000011531
+@DECLARE mugr10 000011665
+@DECLARE mugwin 000011738
+@DECLARE muglose 000012022
+@DECLARE teeth 000012372
+@DECLARE tothran 000013901
+@DECLARE tothr2 000014057
+@DECLARE tothr3 000014192
+@DECLARE tothr4 000014327
+@DECLARE tothr5 000014461
+@DECLARE tothr6 000014595
+@DECLARE tothr7 000014730
+@DECLARE tothr8 000014865
+@DECLARE tothr9 000014999
+@DECLARE tothr10 000015136
+@DECLARE tothwin 000015211
+@DECLARE tothlose 000015505
+@DECLARE nodough 000015797
+@DECLARE noplay 000015969
+@DECLARE back 000016154
+@DECLARE bar 000016256
+@DECLARE chatwall 000016342
+@DECLARE strange 000017382
+@DECLARE newname 000018091
+@DECLARE nname 000018121
+@DECLARE me 000018415
+@DECLARE nomore 000019579
+@NOCHECK
+; End of .REF index
+
+@#guard
+@do moveback
+@busy
+@if &lastx is 9 then goto letmepass
+@datanewday cloak.idf
+@dataload cloak.idf &playernum `p20
+@if `p20 is 2 then goto noenter
+@if bitcheck `t14 5 1 then goto clean
+@do `v01 is 1
+@show
+`r0`c `r1 `%The Dark Guardian `r0
+
+ `0Halt! Where do you think you're going?
+
+ `$I was gonna go into the next room. You gotta problem with that?
+
+ `0Yes! That room is for Warriors only! It is too dangerous for
+ the likes of you. Therefore, I cannot let you pass.
+
+@do write
+`x`x
+@choice
+I am a Warrior.
+Leave
+@if responce is 2 then do
+ @begin
+ @drawmap
+ @update
+ @end
+
+@if responce is 1 then do
+ @begin
+ @if `p18 less 5 then goto nowarr
+ @do goto warr
+ @end
+
+@#warr
+@do `v01 is 1
+@show
+`r0`c `r1 `%A Warriors Courage `r0
+
+ `$I am a Warrior. Let me pass.
+
+ `2The guard looks you over.
+
+`k `0Hmmm... now that I look at you, you do seem to be worthy.
+ I'll tell you what: If you can defeat the Power the resides
+ in this room, I will help you to become more widely recognised
+ as a true Warrior. But I will warn you: it is not an easy task.
+ There are many monsters in the room who will try to kill you.
+
+ `0Do we have a deal?
+
+@do write
+`x`x
+@choice
+Sure! Bring it on!
+I think I hear my mother calling...
+@if responce is 2 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do goto deal
+ @end
+
+@#deal
+@do x - 2
+@drawmap
+@update
+@do saybar
+`%Guard: Good Luck!
+
+@#letmepass
+@do x + 2
+
+@#noenter
+@do saybar
+`%Guard: Sorry. You are allowed only 1 try per day.
+
+@#clean
+@show
+`r0`c `r1 `%The Dark Guardian `r0
+
+ `0Halt! Where do you think you're going?
+
+ `$I was gonna go into the next room and fight the monsters.
+
+ `0But you have already beaten the Power that resided there....
+ Why do you want to go back?
+
+ `$Because I am a Warrior! I kill monsters to protect the land.
+
+ `0Wow! In that case, go on in!
+
+`k
+@do x - 2
+@drawmap
+@update
+
+@#nowarr
+@show
+`r0`c `r1 `%A Warriors Courage `r0
+
+ `$I am a Warrior. Let me pass.
+
+ `2The guard looks you over.
+
+`k `0HAHAHA! You! A Warrior! Don't make me laugh!
+
+ `$What do you mean?
+
+ `0You need at least `%5 `0quest points before you are
+ considered a true Warrior. Come back when you have earned them.
+
+ `2You barely restrain yourself from killing this fool on the spot.
+ You decide to let him live only because you want to see the look
+ on his face when you return as a true Warrior.
+
+`k
+@drawmap
+@update
+
+@#man
+@do moveback
+@busy
+@do `v01 is 1
+@show
+`r0`c `r1 `%UPC's Or Spys? `r0
+
+ `0Hi! My name is Terrin, and I'm here to teach you about color codes.
+
+ So what would you like to know?
+
+@do write
+`x`x
+@choice
+Tell me about Standard Color Codes
+Tell me about Special Color Codes
+Leave
+@if responce is 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 1 then do
+ @begin
+ @show
+`r0`c `r1 `%Standard Color Codes `r0
+
+ `0Ok, there are 15 Standard Color Codes. If you have ever played
+ `@L.O.R.D.`0, then you probably know what they are.
+
+ But here is a refresher course, just in case:
+
+`k
+ `0In oreder to get a Color Code to work, you have to preceed the Code
+ with the `%Accent `0key, which looks similar to this: `%'`0. The `%Accent
+ `0key is the reverse of the Single Quote key shown above. It is located
+ in the upper-left corner of your keyboard, above the `%Tab `0key.
+
+ `0After pressing the `%Accent `0key, follow it with a number or symbol
+ to get a specific color. The numbers and thier colors are:
+
+`k
+ `11 is Dark Blue
+ `22 is Dark Green
+ `33 is Dark Cyan
+ `44 is Dark Red
+ `55 is Dark Magenta
+ `66 is Brown
+ `77 is Light Grey
+ `88 is Dark Grey
+ `99 is Light Blue
+ `00 is Light Green
+
+`k
+ `0The symbols and their colors are:
+
+`k
+ `!! is Light Cyan
+ `@@ is Light Red
+ `## is Light Magenta
+ `$$ is Yellow
+ `%% is White
+
+`k
+ `0Well, that's all for Standard Colors.
+
+`k
+ @do goto man
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 `%Special Color Codes `r0
+
+ `0Ok, there are 10 Special Color Codes. Most people don't know about
+ these codes. They will also work in the Flower Garden Forest Event in
+ `@L.O.R.D. 3.55+`0.
+
+`k
+ `0In oreder to get a Color Code to work, you have to preceed the Code
+ with the `%Accent `0key, which looks similar to this: `%'`0. The `%Accent
+ `0key is the reverse of the Single Quote key shown above. It is located
+ in the upper-left corner of your keyboard, above the `%Tab `0key.
+
+ `0After pressing the `%Accent `0key, follow it with a `%y `0to get a
+ `yblinking yellow `0or a `%b `0for a `bblinking red`0.
+
+ The other Special Color Codes are:
+
+`k
+ `r1 `%r1 for a Blue Background `r0
+ `r2 `%r2 for a green Background `r0
+ `r3 `%r3 for a Cyan Background `r0
+ `r4 `%r4 for a Red Background `r0
+ `r5 `%r5 for a Magenta Background `r0
+ `r6 `%r6 for a Brown Background `r0
+ `r7 `%r7 for a Grey Background `r0
+ `r1 `%r0 will turn off the background color, and must be put at the end of
+ whatever you are typing. If you don't use r0, the background color will
+ flow over into the next line until you use the r0 code. `r0
+
+`k
+ `r1 `%You can mix and match Standard `r2`yand Special Color Codes `r0
+ `r7 `bfor some fun `!effects. `r0
+
+ `r5 `%Just be careful not to use the same foreground color as your background `r0
+ `r5 `%color, or it will be `5impossible or hard to read. `#(impossible or hard `r0
+ `r5 `#to read) `%impossible or hard to read. `r0
+
+`k
+ `0Well, that's all for Special Colors.
+
+`k
+ @do goto man
+ @end
+
+@drawmap
+@update
+
+@#oldman
+@do moveback
+@do `v01 is 1
+@busy
+@show
+`r0`c `r1 `%The Old Man `r0
+
+ `$"What are you doing in this old place, old man?" `2you ask.
+
+ `0"I used to have a lot of fun here before Chance left. I used
+ to gamble a lot with the people who managed to find the Tavern.
+ It was fun," `2the old man says.
+
+ `$"You already said that it was fun. And you didn't answer my
+ question. Why are you here?"
+
+ `0"I decided to stay so that in case anyone ever stumbled across
+ the Ruins, I could gamble with them. Would ya like to play a game?"
+
+@do write
+`x`x
+@choice
+What games do you play Old Man?
+Maybe another time Old Man.
+@if responce is 2 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do goto oldgame
+ @end
+
+@#oldgame
+@do `p30 is money
+@do `v01 is 1
+@show
+`r0`c `r1 `%Playing Games With The Old Man `r0
+
+ `0Well S&sir, there are two games I used to love to play.
+
+ In the first one, I would balance a mug of ale on my head
+ and you would throw a dagger and try to knock it off without
+ spilling any ale on me.
+
+ In the second game, I would hide my teeth under an ale mug,
+ and you would try to guess which one they were under.
+
+ Doesn't that sound like fun? Do you wanna play?
+
+@do write
+`x`x
+@choice
+Play the first game.
+Play the second game.
+Leave the senile old man alone.
+@if responce is 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 1 then do
+ @begin
+ @if `p33 > 0 then do
+ @begin
+ @do goto mug
+ @end
+ @if `p33 < 1 then do
+ @begin
+ @do goto noplay
+ @end
+ @end
+
+@if responce is 2 then do
+ @begin
+ @if `p33 > 0 then do
+ @begin
+ @do goto teeth
+ @end
+ @if `p33 < 1 then do
+ @begin
+ @do goto noplay
+ @end
+ @end
+
+@#mug
+@do `p30 is money
+@do `v01 is 1
+@show
+`r0`c `r1 `%Playing Games With The Old Man `r0
+
+ `$"I've got a pretty good arm, so I'l play the dagger-throwing
+ game with you, Old Man," `2you say.
+
+ `0"Oh gooddy! How much do you want to bet?"
+
+ `2(`0You have `$$`p30 `0and `%`p33 `0gambles left`2)
+
+@do write
+`x`x
+@choice
+Bet $1
+Bet $5
+Bet $10
+Bet $20
+Bet $50
+Bet $100
+Last chance to quit
+@if responce is 1 then do
+ @begin
+ @if &money < 1 then do
+ @begin
+ @do goto nodough
+ @end
+ @do `p25 is 1
+ @do `p20 is 0
+ @do goto mugran
+ @end
+
+@if responce is 2 then do
+ @begin
+ @if &money < 5 then do
+ @begin
+ @do goto nodough
+ @end
+ @do `p25 is 5
+ @do `p20 is 0
+ @do goto mugran
+ @end
+
+@if responce is 3 then do
+ @begin
+ @if &money < 10 then do
+ @begin
+ @do goto nodough
+ @end
+ @do `p25 is 10
+ @do `p20 is 0
+ @do goto mugran
+ @end
+
+@if responce is 4 then do
+ @begin
+ @if &money < 20 then do
+ @begin
+ @do goto nodough
+ @end
+ @do `p25 is 20
+ @do `p20 is 0
+ @do goto mugran
+ @end
+
+@if responce is 5 then do
+ @begin
+ @if &money < 50 then do
+ @begin
+ @do goto nodough
+ @end
+ @do `p25 is 50
+ @do `p20 is 0
+ @do goto mugran
+ @end
+
+@if responce is 6 then do
+ @begin
+ @if &money < 100 then do
+ @begin
+ @do goto nodough
+ @end
+ @do `p25 is 100
+ @do `p20 is 0
+ @do goto mugran
+ @end
+
+@if responce is 7 then do
+ @begin
+ @drawmap
+ @update
+ @end
+
+@#mugran
+@do `p20 random 10 1
+@if `p20 is 1 then do
+ @begin
+ @do goto mugwin
+ @end
+@if `p20 not 1 then do
+ @begin
+ @do goto mugr2
+ @end
+
+@#mugr2
+@if `p20 is 2 then do
+ @begin
+ @do goto muglose
+ @end
+@if `p20 not 2 then do
+ @begin
+ @do goto mugr3
+ @end
+
+@#mugr3
+@if `p20 is 3 then do
+ @begin
+ @do goto muglose
+ @end
+@if `p20 not 3 then do
+ @begin
+ @do goto mugr4
+ @end
+
+@#mugr4
+@if `p20 is 4 then do
+ @begin
+ @do goto mugwin
+ @end
+@if `p20 not 4 then do
+ @begin
+ @do goto mugr5
+ @end
+
+@#mugr5
+@if `p20 is 5 then do
+ @begin
+ @do goto mugwin
+ @end
+@if `p20 not 5 then do
+ @begin
+ @do goto mugr6
+ @end
+
+@#mugr6
+@if `p20 is 6 then do
+ @begin
+ @do goto muglose
+ @end
+@if `p20 not 6 then do
+ @begin
+ @do goto mugr7
+ @end
+
+@#mugr7
+@if `p20 is 7 then do
+ @begin
+ @do goto muglose
+ @end
+@if `p20 not 7 then do
+ @begin
+ @do goto mugr8
+ @end
+
+@#mugr8
+@if `p20 is 8 then do
+ @begin
+ @do goto mugwin
+ @end
+@if `p20 not 8 then do
+ @begin
+ @do goto mugr9
+ @end
+
+@#mugr9
+@if `p20 is 9 then do
+ @begin
+ @do goto muglose
+ @end
+@if `p20 not 9 then do
+ @begin
+ @do goto mugr10
+ @end
+
+@#mugr10
+@if `p20 is 10 then do
+ @begin
+ @do goto mugwin
+ @end
+
+@#mugwin
+@clear screen
+@pauseoff
+@displayfile toss.ans
+@pauseon
+@show
+`k
+`r0`c `r1 `%You sank my Battleship(tm)! `r0
+
+`2You knock the mug off the old man's head and leave him dry as a bone!
+
+`0You win `$$`p25`0!
+
+`k
+@do money + `p25
+@do `p33 - 1
+@drawmap
+@update
+
+@#muglose
+@clear screen
+@pauseoff
+@displayfile toss.ans
+@pauseon
+@show
+`k
+`r0`c `r1 `%Curses! Foiled Again! `r0
+
+`2Oh, too bad! You knock the mug off the old man's head and soak him with ale!
+
+`2Actually, that's kinda funny, now that you think about it!
+
+`0You lose `$$`p25`0!
+
+`k
+@do money - `p25
+@do `p33 - 1
+@drawmap
+@update
+
+
+@#teeth
+@do `p30 is money
+@do `v01 is 1
+@show
+`r0`c `r1 `%Playing Games With The Old Man `r0
+
+ `$"I'm pretty good at guessing things, so I'll play the
+ hideen-teeth game with you, Old Man," `2you say.
+
+ `0"Oh gooddy! How much do you want to bet?"
+
+ `2(`0You have `$$`p30 `0and `%`p33 `0gambles left`2)
+
+@do write
+`x`x
+@choice
+Bet $1
+Bet $5
+Bet $10
+Bet $20
+Bet $50
+Bet $100
+Last chance to quit
+@if responce is 1 then do
+ @begin
+ @if &money < 1 then do
+ @begin
+ @do goto nodough
+ @end
+ @do `p25 is 1
+ @do `p20 is 0
+ @do goto tothran
+ @end
+
+@if responce is 2 then do
+ @begin
+ @if &money < 5 then do
+ @begin
+ @do goto nodough
+ @end
+ @do `p25 is 5
+ @do `p20 is 0
+ @do goto tothran
+ @end
+
+@if responce is 3 then do
+ @begin
+ @if &money < 10 then do
+ @begin
+ @do goto nodough
+ @end
+ @do `p25 is 10
+ @do `p20 is 0
+ @do goto tothran
+ @end
+
+@if responce is 4 then do
+ @begin
+ @if &money < 20 then do
+ @begin
+ @do goto nodough
+ @end
+ @do `p25 is 20
+ @do `p20 is 0
+ @do goto tothran
+ @end
+
+@if responce is 5 then do
+ @begin
+ @if &money < 50 then do
+ @begin
+ @do goto nodough
+ @end
+ @do `p25 is 50
+ @do `p20 is 0
+ @do goto tothran
+ @end
+
+@if responce is 6 then do
+ @begin
+ @if &money < 100 then do
+ @begin
+ @do goto nodough
+ @end
+ @do `p25 is 100
+ @do `p20 is 0
+ @do goto tothran
+ @end
+
+@if responce is 7 then do
+ @begin
+ @drawmap
+ @update
+ @end
+
+@#tothran
+@do `p20 random 10 1
+@if `p20 is 1 then do
+ @begin
+ @do goto tothwin
+ @end
+@if `p20 not 1 then do
+ @begin
+ @do goto tothr2
+ @end
+
+@#tothr2
+@if `p20 is 2 then do
+ @begin
+ @do goto tothlose
+ @end
+@if `p20 not 2 then do
+ @begin
+ @do goto tothr3
+ @end
+
+@#tothr3
+@if `p20 is 3 then do
+ @begin
+ @do goto tothlose
+ @end
+@if `p20 not 3 then do
+ @begin
+ @do goto tothr4
+ @end
+
+@#tothr4
+@if `p20 is 4 then do
+ @begin
+ @do goto tothwin
+ @end
+@if `p20 not 4 then do
+ @begin
+ @do goto tothr5
+ @end
+
+@#tothr5
+@if `p20 is 5 then do
+ @begin
+ @do goto tothwin
+ @end
+@if `p20 not 5 then do
+ @begin
+ @do goto tothr6
+ @end
+
+@#tothr6
+@if `p20 is 6 then do
+ @begin
+ @do goto tothlose
+ @end
+@if `p20 not 6 then do
+ @begin
+ @do goto tothr7
+ @end
+
+@#tothr7
+@if `p20 is 7 then do
+ @begin
+ @do goto tothlose
+ @end
+@if `p20 not 7 then do
+ @begin
+ @do goto tothr8
+ @end
+
+@#tothr8
+@if `p20 is 8 then do
+ @begin
+ @do goto tothwin
+ @end
+@if `p20 not 8 then do
+ @begin
+ @do goto tothr9
+ @end
+
+@#tothr9
+@if `p20 is 9 then do
+ @begin
+ @do goto tothlose
+ @end
+@if `p20 not 9 then do
+ @begin
+ @do goto tothr10
+ @end
+
+@#tothr10
+@if `p20 is 10 then do
+ @begin
+ @do goto tothwin
+ @end
+
+@#tothwin
+@do `p23 random 3 1
+@show
+`r0`c `r1 `%Picking the Old Man's Teeth `r0
+
+ `2You tell the man to turn over mug #`p23.
+
+ `2Underneath the mug is...
+`k
+ `0The Old Man's teeth!
+
+ `0You win `$$`p25`0!
+`k
+@do money + `p25
+@do `p33 - 1
+@drawmap
+@update
+
+@#tothlose
+@do `p23 random 3 1
+@show
+`r0`c `r1 `%Picking the Old Man's Teeth `r0
+
+ `2You tell the man to turn over mug #`p23.
+
+ `2Underneath the mug is...
+`k
+ `0Absolutly nothing!
+
+ `0You lose `$$`p25`0!
+`k
+@do money - `p25
+@do `p33 - 1
+@drawmap
+@update
+
+@#nodough
+@show
+`r0`c `r1 `%No Dough `r0
+
+ `0Sorry S&sir, but you don't have that much money.
+ Maybe you should stop by the bank first...
+
+`k
+@drawmap
+@update
+
+@#noplay
+@show
+`r0`c `r1 `%No Cheats! `r0
+
+ `0Sorry S&sir, but you don't have any gambles left.
+ Looks like you'll have to wait until tomorrow to play.
+
+`k
+@drawmap
+@update
+
+@#BACK
+@do saybar
+`%The back room where Chance would help young warriors. The door's locked.
+
+
+
+@#BAR
+@do saybar
+`%This is where Chance would serve his customers from...
+
+
+@#CHATWALL
+;Chat wall in Dark Cloak Tavern
+@do moveback
+@busy
+@show
+`r0`c `r1 SCRIBBLING ON THE BULLETIN BOARD `r0
+
+@if cloak.txt exist false then do
+ @begin
+ @writefile cloak.txt
+ `%Chance `2: `0It's been nice doing business with all of you, but I am
+ `%Chance `2: `0moving away now that the Dragon is dead. I will miss you all.
+ @end
+
+@if cloak.txt exist true then do
+ @begin
+ @displayfile cloak.txt
+ @end
+
+@show
+
+@
+(Do tricky stuff with name to determine how much they can type)
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter a special message or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile cloak.txt
+ `%`n`2 : `0`s03
+ @do trim bar.txt 17
+ @drawmap
+ @update
+
+@#strange
+@do moveback
+@busy
+@do `v01 is 1
+@show
+`r0`c `r1 `%A Strange Meeting With A Stranger `r0
+
+ `0"Hold it, `N`0. Just where do you think you're going?" a voice asks.
+
+ `$"I going to go back there and explore. How did you know may name?"
+
+ `0"It's my job to know names. It's also my job to change them."
+
+ `$"Wow! Can you really cahnge my name?"
+
+ `0"If it is your desire, then yes, I can."
+
+ `2What do you do now?
+
+@do write
+`x`x
+@choice
+Ask the stranger to change your name
+Get out of here before things get too spooky
+@if responce is 2 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do goto newname
+ @end
+
+@#newname
+@offmap
+@busy
+@label nname
+@clear screen
+@show
+`r0`c `r1 `%Changing Your Name `r0
+`\`\ `0"So ya wanna change your name huh? Ok. But it'll cost ya `$$200`0. Deal?`\
+@do `v01 is 1
+@choice
+<&money 199 `%Sure! Just change it!
+`%On second thought, `N`%'s not so bad.
+@if responce is 1 then do
+ @begin
+ @label me
+ @clear screen
+ @do `v01 is 1
+ @show
+
+ `0REMEMBER: Your new name will show up when you press `2(`0V`2)`0, but you will have
+ to quit te game before it will show up when you press `2(`0S`2)`0.
+
+ @do write
+ `0You decide you want to be known as:
+ @do readstring 30 NIL
+ @do stripbad `s10
+ ; change dark blue to light blue in their name
+ @do replaceall `1 `! `s10
+ @do `p20 is length `s10
+ @if `p20 less 1 then do
+ @begin
+ @do goto me
+ @end
+
+
+ @if `p20 less 3 then do
+ @begin
+ @show
+
+
+ `0The stranger disagrees. `0"Not such a short name!"
+ @do goto me
+ @end
+
+ @if checkdupe `s10 true then do
+ @begin
+ @show
+
+
+ `2The starnger disagrees. `0"Hello! We already know someone with that name!"
+ @do goto me
+ @end
+
+ @show
+`\`\ `0You decide on `0`s10`0. The stranger studies you carefully.`\
+@do write
+`x`x
+@choice
+"That is a good name. You have chosen very well."
+"What, are you NUTS?! Try again."
+ @if response is 2 then goto me
+ @do copytoname
+ @do money - 200
+ @do goto strange
+ @end
+
+@if responce is 2 then goto strange
+
+@#nomore
diff --git a/xtrn/lord2/cnw/cloakf.ref b/xtrn/lord2/cnw/cloakf.ref
new file mode 100644
index 0000000000000000000000000000000000000000..281bc779af80a8ca00ca97640a3bbc87317150bb
--- /dev/null
+++ b/xtrn/lord2/cnw/cloakf.ref
@@ -0,0 +1,182 @@
+; Script file CLOAKF.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:30 2001
+
+@DECLARE darkq 000000394
+@DECLARE clean 000000494
+@DECLARE monster1 000000560
+@DECLARE monster2 000001171
+@DECLARE monster3 000001768
+@DECLARE monster4 000002327
+@DECLARE win 000002924
+@DECLARE prize 000003041
+@DECLARE run 000003375
+@DECLARE nomore 000003498
+@NOCHECK
+; End of .REF index
+
+@#darkq
+@busy
+@if bitcheck `t14 5 1 then goto clean
+@do `p20 random 4 1
+@do goto monster`p20
+
+@#clean
+@busy
+@do `p20 random 3 1
+@do goto monster`p20
+
+
+@#monster1
+@fight
+;name
+`%Skeleton
+;string said when you see him
+`0A pile of bones comes to life and attacks you
+;power move kill string
+`%The bones clatter to the ground in horrid defeat.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+gives you a bone|10
+slashes with its skinless hand|7
+tears its arm off and hits you with it|12
+NONE|NONE
+NONE|NONE
+;defense
+10
+;gold reward
+48
+;experience
+50
+;hit points
+50
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+`%Zombie
+;string said when you see him
+`0A mass of rotting and deacaying flesh shambles towards you
+;power move kill string
+`%Whoa! He shold switch to decaf!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+uses its amputated arm to bash you|10
+moans "brains" & bites you|15
+gnaws on your leg|13
+NONE|NONE
+NONE|NONE
+;defense
+9
+;gold reward
+42
+;experience
+78
+;hit points
+60
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+`%Ghost
+;string said when you see him
+`0A shimmering figure approaches you
+;power move kill string
+You have killed the undead. Not bad.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+laughs at you|1
+takes you to the other side|15
+grabs at your soul|30
+NONE|NONE
+NONE|NONE
+;defense
+29
+;gold reward
+276
+;experience
+167
+;hit points
+90
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+`%Minor Death
+;string said when you see him
+`0A hooded figure with a scythe approaches
+;power move kill string
+`%Yes! not even Death can stop you!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+slashes with his scythe|46
+uses his Death Gaze|56
+touches you with a deathly cold hand|31
+NONE|NONE
+NONE|NONE
+;defense
+20
+;gold reward
+1300
+;experience
+700
+;hit points
+110
+;if win: ref file|name or NONE
+CLOAKF.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+CLOAKF.REF|RUN
+
+@#win
+@bitset `t14 5 1
+@do saybar
+`%You have completed your mission! You get 5 Quest Points!
+@do goto prize
+
+@#prize
+@if sexmale is 1 then `s01 is He
+@if sexmale is 0 then `s01 is She
+@do addlog
+ `@ `%`@A`9n`@a`9k`@h`9a `0has beaten Death! He is a True Warrior! `@
+@do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@do `p18 + 5
+@do x is 11
+@do y is 11
+@do map is 1583
+@loadmap 1583
+@drawmap
+@update
+
+@#run
+@datasave cloak.idf &playernum 2
+@do x is 11
+@do y is 11
+@do map is 1583
+@loadmap 1583
+@drawmap
+@update
+
+@#nomore
diff --git a/xtrn/lord2/cnw/coliseum.ref b/xtrn/lord2/cnw/coliseum.ref
new file mode 100644
index 0000000000000000000000000000000000000000..7f5e6be975f959a09050eea5649ebe43eebbbaf7
--- /dev/null
+++ b/xtrn/lord2/cnw/coliseum.ref
@@ -0,0 +1,1801 @@
+@#getvars
+@do `p30 is 5
+@do `v40 is 10000
+@routine widthdraw in vaults.ref
+@writefile coliseum.dat
+0
+`v40
+1
+10
+10
+1000
+@#sign
+@do moveback
+@do move 42 10
+@do write
+`r1`%�����������������������Ŀ`r0
+@do move 42 11
+@do write
+`r1� Northlands Coliseum �`r0
+@do move 42 12
+@if coliseum.dat exist false then do
+ @begin
+@do write
+`r1� - FOR SALE � �`r0
+ @end
+@if coliseum.dat exist true then do
+ @begin
+@do write
+`r1� � �`r0
+ @end
+@do move 42 13
+@do write
+`r1� 3 Miles � �`r0
+@do move 42 14
+@do write
+`r1�������������������������`r0`l`l`l`l`l`l`l
+@do move 42 10
+@do write
+`r2`0 `r0
+@do move 42 11
+@do write
+`r2 `r0
+@do move 42 12
+@do write
+`r2 `r0
+@do move 42 13
+@do write
+`r2 `r0
+@do move 42 14
+@do write
+`r2 `r0
+@update
+@closescript
+
+@#top
+@do moveback
+@busy
+@offmap
+@do `p20 is 0
+@datanewday colfite.idf
+@dataload colfite.idf &playernum `p20
+@if coliseum.dat exist false then do
+ @begin
+ @routine getvars
+ @end
+@if coliseum.dat exist true then do
+ @begin
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @end
+@if `p20 > `p40 then goto nogame
+@do `p44 is 1
+@readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+@do `p21 is deleted `p45
+@if `p21 is 1 then do
+ @begin
+ @do delete coliseum.dat
+ @do addlog
+ `%NorthLand Coliseum`2 is put on the market today.
+ @routine seperate in gametxt.ref
+ @end
+@if `p45 is 0 then `p44 is 0
+@if `p45 is &playernum then `p44 is 2
+@do `v01 is 1
+@show
+`r0`c `r1 `%The Coliseum `r0
+
+ `2A hugely muscled man greets you at the door.
+
+ `0Hi! Welcome to the Coliseum! Would you like to bet on a fight?
+
+@do write
+`x`x
+@choice
+You betcha!
+No way jos�
+What are the rules?
+=`p44 0 I want to buy this place
+Who runs this operation?
+=`p44 2 Go to the office
+@if responce is 2 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 3 then do
+ @begin
+ @run rulz
+ @end
+@if responce is 1 then do
+ @begin
+@if coliseum.dat exist false then do
+ @begin
+ @routine getvars
+ @end
+@if coliseum.dat exist true then do
+ @begin
+ @readfile coliseum.dat ;name/vault/combo/bets/min bet$/max bet$
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @end
+ @do `p20 is 0
+ @do `p20 is money
+ @if `p20 < `p41 then do
+ @begin
+ @run nodough
+ @closescript
+ @end
+ @run pickmon
+ @closescript
+ @end
+@if responce is 4 then goto forsale
+@if responce is 5 then do
+ @begin
+ @do `s05 is King`xSysOp
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @if `p45 > 0 then do
+ @begin
+ @do `s05 is getname `p45
+ @end
+ @show
+`r0`c `r1 `%The Coliseum `r0
+
+ `2The hugely muscled man answers you.
+ `%"`$Why of course, `s05 owns this great place.`%"
+
+
+ @key
+ @do goto top
+ @end
+@if responce is 6 then do
+ @begin
+@label office
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @do `v01 is 1
+ @show
+`r0`c `r1 In Your Office `r0
+
+ You sit down in front of your desk on your nice hardwood block chair.
+
+ @do write
+`x`x
+ @do `p45 is 1
+ @label deskloop
+ @if coldesk`p45.txt exist false then do
+ @begin
+ @writefile coldesk`p45.txt
+`r6 `r0
+ @do `p45 + 1
+ @if `p45 < 10 then goto deskloop
+ @end
+ @choice
+Change Vault Combination
+Ownership options
+Open the Vault
+Change limits
+Look at the desk
+Home Sweet Home
+Leave the office
+ @if responce is 5 then do
+ @begin
+ @show
+`c`\
+`r6`8- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`r0
+`r6 `%',Made in China,' `r0
+ @displayfile coldesk1.txt
+ @displayfile coldesk2.txt
+ @displayfile coldesk3.txt
+ @displayfile coldesk4.txt
+ @displayfile coldesk5.txt
+ @displayfile coldesk6.txt
+ @displayfile coldesk7.txt
+ @displayfile coldesk8.txt
+ @displayfile coldesk9.txt
+ @show
+`r6 `r0
+`r6`8- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -`r0
+ @key bottom
+ @end
+ @if responce is 4 then do
+ @begin
+@label limits
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @clear screen
+ @do move 25 2
+ @do write
+`r1`$ NorthLands Coliseum Limits `r0
+ @do move 15 4
+ @do write
+`2-Players can BET `%`p40 `2times.
+ @do move 15 5
+ @do write
+`2-Players can BET a MAX of `%`p42`2.
+ @do move 15 6
+ @do write
+`2-Players can BET as LOW as `%`p41`2.
+ @do move 30 9
+ @do write
+`r0`5�/�����������������������\�
+ @do move 30 10
+ @do write
+`r0`5� �
+ @do move 30 11
+ @do write
+`r0`5� �
+ @do move 30 12
+ @do write
+`r0`5� �
+ @do move 30 13
+ @do write
+`r0`5� �
+ @do move 30 14
+ @do write
+`r0`5�\�����������������������/�
+ @do move 31 10
+ @do `v01 is 1
+ @choice
+`$Change MAX Amount of bets
+`$Change MAX Bet
+`$Change MIN Bet
+`$Change Nothing
+ @if responce is 4 then goto office
+ @if responce is 1 then do
+ @begin
+ @do move 20 17
+ @do write
+`$Change AMOUNT OF BETS to what? :
+ @do readnum 8
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @do `p40 is `v40
+ @do delete coliseum.dat
+ @writefile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @do goto limits
+ @end
+ @if responce is 2 then do
+ @begin
+ @do move 20 17
+ @do write
+`$Change MAX BETS to what? :
+ @do readnum 8
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @do `p42 is `v40
+ @do delete coliseum.dat
+ @writefile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @do goto limits
+ @end
+ @if responce is 3 then do
+ @begin
+ @do move 20 17
+ @do write
+`$Change MIN BETS to what? :
+ @do readnum 8
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @do `p41 is `v40
+ @do delete coliseum.dat
+ @writefile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @do goto limits
+ @end
+ @end
+ @if responce is 3 then do
+
+ @begin
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @clear screen
+ @do move 20 6
+ @do write
+`$You need to know the combonation to open the Vault.
+ @do move 35 10
+ @do write
+�\��������/�
+ @do move 35 11
+ @do write
+� �
+ @do move 35 12
+ @do write
+�\��������/�
+ @do move 36 11
+ @do readnum 8 000
+ @do `p49 is 0
+ @if `v40 is `p47 then goto openvault
+ @if `v40 not `p47 then do
+ @begin
+ @do move 20 15
+ @do write
+`@Lock doesn't budge. Must be wrong combination.`\`\
+ @key
+ @do goto office
+ @end
+ @do goto office
+ @end
+ @if responce is 7 then goto top
+ @if responce is 6 then do
+ @begin
+ @do `p69 is 20
+ @show
+`\`\ This is your HOME now. Living at work is great!`\
+ @key
+ @end
+ @if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$100,000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto office
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your keep to `0`s02`2?
+ @do write
+`x`x
+ @choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto office
+ @end
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @do delete coliseum.dat
+ @writefile coliseum.dat
+`p20
+`p46
+`p47
+`p40
+`p41
+`p42
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of NorthLand Coliseum to you.
+ Vault Combination to open the safe will remain `0"`p47"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%NorthLand Coliseum`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto office
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your keep back to the bank?`\
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto office
+ @end
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @do `p30 is 5
+ @do `v40 is 100000
+ @routine widthdraw in vaults.ref
+ @do delete coliseum.dat
+ @do money + 100000
+ @show
+`\`\ `%KEEP SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%NorthLand Coliseum`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @drawmap
+ @do goto top
+ @end
+ @do goto top
+ @end
+ @if responce is 1 then do
+ @begin
+ @label combo
+ @do write
+`\`\ `0The new Combination? (Digits ONLY): `x
+ @DO READNUM 8 `p47
+ @if `v40 < 100 then do
+ @begin
+ @show
+`\`\ `2Damn, it didn't work like that, the combo is too short.`l `2MIN 3 Digits.`\`\`k
+ @do goto combo
+ @end
+ @readfile coliseum.dat
+`p45
+`p46
+`p43
+`p40
+`p41
+`p42
+ @do `p47 is `v40
+ @do delete coliseum.dat
+ @writefile coliseum.dat
+&playernum
+`p46
+`p47
+`p40
+`p41
+`p42
+ @show
+`\`\ `0Don't forget it.`\Do you want to engrave the combo in the desk? [Y/n]`\
+ @do readspecial `s05 YN
+ @if `s05 is Y then do
+ @begin
+ @do `s06 is `x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+ @do `s07 is `x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+ @do `p49 random 68 1
+ @do pad `s06 `p49
+ @do `p48 is 67
+ @do `p48 - `p49
+ @do pad `s07 `p48
+ @do `p45 random 11 1
+ @if `p45 is 1 then `s05 is ,
+ @if `p45 is 2 then `s05 is /
+ @if `p45 is 3 then `s05 is ;
+ @if `p45 is 4 then `s05 is "
+ @if `p45 is 5 then `s05 is '
+ @if `p45 is 6 then `s05 is ~
+ @if `p45 is 7 then `s05 is !
+ @if `p45 is 8 then `s05 is *
+ @if `p45 is 9 then `s05 is )
+ @if `p45 is 10 then `s05 is (
+ @if `p45 is 11 then `s05 is -
+ @do `s05 add `p47
+ @do `p45 random 11 1
+ @if `p45 is 1 then `s05 add ,
+ @if `p45 is 2 then `s05 add /
+ @if `p45 is 3 then `s05 add ;
+ @if `p45 is 4 then `s05 add "
+ @if `p45 is 5 then `s05 add '
+ @if `p45 is 6 then `s05 add ~
+ @if `p45 is 7 then `s05 add !
+ @if `p45 is 8 then `s05 add *
+ @if `p45 is 9 then `s05 add )
+ @if `p45 is 10 then `s05 add (
+ @if `p45 is 11 then `s05 add -
+ @do pad `s05 12
+ @do `p45 random 9 1
+ @do delete coldesk`p45.txt
+ @writefile coldesk`p45.txt
+`r6`s06`s05`s07
+ @do goto office
+ @end
+ @do goto office
+ @end
+ @do goto office
+ @end
+ @do goto office
+ @end
+
+@#forsale
+@do moveback
+@offmap
+ @show
+`r0`c `r1 `%For Sale `r0
+ `$- `2NorthLands Coliseum `$-
+
+ `%"`$A classic sporting gambling establishment.`%"
+
+ `2Features:
+ `%-`$You get a secured vault.
+ `%-`$You must leave money in the vault to pay
+ `$out winning bets (if any).
+ `%-`$You collect all player lossing bets.
+ `%-`$When & if the vault is empty the Coliseum is closed.
+ `%-`$You set the min and max wagers.
+
+ `2The asking price is, just `$$100,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 99999 Purchase it.
+<&money 100000 Sigh wistfully and leave since you don't have enough.
+>&money 99999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @readfile coliseum.dat
+`p45
+ @if `p45 > 0 then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto top
+ @end
+ @readfile coliseum.dat
+`p45
+`p44
+`p45
+`p40
+`p41
+`p42
+ @do delete coliseum.dat
+ @writefile coliseum.dat
+&playernum
+`p44
+`p45
+`p40
+`p41
+`p42
+ @do money - 100000
+ @do `p30 is 5
+ @do `v40 is 100000
+ @routine deposit in vaults.ref
+ @do addlog
+ `0`n `2buys `%NorthLand Coliseum`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this business now!
+
+`2Enjoy your new business.`\`\`k
+ @do goto top
+ @end
+@do goto top
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+
+@#pickmon
+@dataload colfite.idf &playernum `p20
+@if `p20 is 0 then do
+ @begin
+ @datasave colfite.idf &playernum 1
+ @end
+@do `p20 + 1
+@datasave colfite.idf &playernum `p20
+@do `p26 is 0
+@do `p23 is 0
+@do `p20 is 0
+@show
+`\`\`%Calculating Monster 1. Please Hold...
+@do `p20 random 10 1
+@do goto mon`p20
+
+@#mon1
+;Monster Name
+@do `s01 is Nibbet
+;Monster's Color
+@do `s02 is !
+;Current HP
+@do `p24 random 50 50
+;Total HP
+@do `p27 is `p24
+;Attack Strength
+@do `p26 random 50 50
+;Weapon Strength
+@do `p23 random `p26 1
+@show
+`\`%Calculating Monster 2. Please Hold...
+@run rand
+
+@#mon2
+;Monster Name
+@do `s01 is Branch`xDividian
+;Monster's Color
+@do `s02 is 4
+;Current HP
+@do `p24 random 50 50
+;Total HP
+@do `p27 is `p24
+;Attack Strength
+@do `p26 random 50 50
+;Weapon Strength
+@do `p23 random `p26 1
+@show
+`\`%Calculating Monster 2. Please Hold...
+@run rand
+
+@#mon3
+;Monster Name
+@do `s01 is Evil`xTreant
+;Monster's Color
+@do `s02 is 6
+;Current HP
+@do `p24 random 50 50
+;Total HP
+@do `p27 is `p24
+;Attack Strength
+@do `p26 random 50 50
+;Weapon Strength
+@do `p23 random `p26 1
+@show
+`\`%Calculating Monster 2. Please Hold...
+@run rand
+
+@#mon4
+;Monster Name
+@do `s01 is Slime`xBeast
+;Monster's Color
+@do `s02 is 0
+;Current HP
+@do `p24 random 50 50
+;Total HP
+@do `p27 is `p24
+;Attack Strength
+@do `p26 random 50 50
+;Weapon Strength
+@do `p23 random `p26 1
+@show
+`\`%Calculating Monster 2. Please Hold...
+@run rand
+
+@#mon5
+;Monster Name
+@do `s01 is Alligator
+;Monster's Color
+@do `s02 is 2
+;Current HP
+@do `p24 random 50 50
+;Total HP
+@do `p27 is `p24
+;Attack Strength
+@do `p26 random 50 50
+;Weapon Strength
+@do `p23 random `p26 1
+@show
+`\`%Calculating Monster 2. Please Hold...
+@run rand
+
+@#mon6
+;Monster Name
+@do `s01 is Behemoth
+;Monster's Color
+@do `s02 is 9
+;Current HP
+@do `p24 random 50 50
+;Total HP
+@do `p27 is `p24
+;Attack Strength
+@do `p26 random 50 50
+;Weapon Strength
+@do `p23 random `p26 1
+@show
+`\`%Calculating Monster 2. Please Hold...
+@run rand
+
+@#mon7
+;Monster Name
+@do `s01 is Commando
+;Monster's Color
+@do `s02 is 0
+;Current HP
+@do `p24 random 50 50
+;Total HP
+@do `p27 is `p24
+;Attack Strength
+@do `p26 random 50 50
+;Weapon Strength
+@do `p23 random `p26 1
+@show
+`\`%Calculating Monster 2. Please Hold...
+@run rand
+
+@#mon8
+;Monster Name
+@do `s01 is Goblin
+;Monster's Color
+@do `s02 is 2
+;Current HP
+@do `p24 random 50 50
+;Total HP
+@do `p27 is `p24
+;Attack Strength
+@do `p26 random 50 50
+;Weapon Strength
+@do `p23 random `p26 1
+@show
+`\`%Calculating Monster 2. Please Hold...
+@run rand
+
+@#mon9
+;Monster Name
+@do `s01 is Bear
+;Monster's Color
+@do `s02 is 6
+;Current HP
+@do `p24 random 50 50
+;Total HP
+@do `p27 is `p24
+;Attack Strength
+@do `p26 random 50 50
+;Weapon Strength
+@do `p23 random `p26 1
+@show
+`\`%Calculating Monster 2. Please Hold...
+@run rand
+
+@#mon10
+;Monster Name
+@do `s01 is Chimera
+;Monster's Color
+@do `s02 is 0
+;Current HP
+@do `p24 random 50 50
+;Total HP
+@do `p27 is `p24
+;Attack Strength
+@do `p26 random 50 50
+;Weapon Strength
+@do `p23 random `p26 1
+@show
+`\`%Calculating Monster 2. Please Hold...
+@run rand
+
+@#rand
+@do `p41 is 0
+@do `p42 is 0
+@do `p20 is 0
+@do `p20 random 10 1
+@do goto mons`p20
+
+@#mons1
+;Monster Name
+@do `s03 is Nibbet
+;Monster's Color
+@do `s04 is !
+;Current HP
+@do `p28 random 50 50
+;Total HP
+@do `p29 is `p28
+;Attack Strength
+@do `p42 random 50 50
+;Weapon Strength
+@do `p41 random `p42 1
+@if `s03 = `s01 then do
+ @begin
+ @run rand
+ @end
+@run bet
+
+@#mons2
+;Monster Name
+@do `s03 is Branch`xDividian
+;Monster's Color
+@do `s04 is 4
+;Current HP
+@do `p28 random 50 50
+;Total HP
+@do `p29 is `p28
+;Attack Strength
+@do `p42 random 50 50
+;Weapon Strength
+@do `p41 random `p42 1
+@if `s03 = `s01 then do
+ @begin
+ @run rand
+ @end
+@run bet
+
+@#mons3
+;Monster Name
+@do `s03 is Evil`xTreant
+;Monster's Color
+@do `s04 is 6
+;Current HP
+@do `p28 random 50 50
+;Total HP
+@do `p29 is `p28
+;Attack Strength
+@do `p42 random 50 50
+;Weapon Strength
+@do `p41 random `p42 1
+@if `s03 = `s01 then do
+ @begin
+ @run rand
+ @end
+@run bet
+
+@#mons4
+;Monster Name
+@do `s03 is Slime`xBeast
+;Monster's Color
+@do `s04 is 0
+;Current HP
+@do `p28 random 50 50
+;Total HP
+@do `p29 is `p28
+;Attack Strength
+@do `p42 random 50 50
+;Weapon Strength
+@do `p41 random `p42 1
+@if `s03 = `s01 then do
+ @begin
+ @run rand
+ @end
+@run bet
+
+@#mons5
+;Monster Name
+@do `s03 is Alligator
+;Monster's Color
+@do `s04 is 2
+;Current HP
+@do `p28 random 50 50
+;Total HP
+@do `p29 is `p28
+;Attack Strength
+@do `p42 random 50 50
+;Weapon Strength
+@do `p41 random `p42 1
+@if `s03 = `s01 then do
+ @begin
+ @run rand
+ @end
+@run bet
+
+@#mons6
+;Monster Name
+@do `s03 is Behemoth
+;Monster's Color
+@do `s04 is 9
+;Current HP
+@do `p28 random 50 50
+;Total HP
+@do `p29 is `p28
+;Attack Strength
+@do `p42 random 50 50
+;Weapon Strength
+@do `p41 random `p42 1
+@if `s03 = `s01 then do
+ @begin
+ @run rand
+ @end
+@run bet
+
+@#mons7
+;Monster Name
+@do `s03 is Commando
+;Monster's Color
+@do `s04 is 0
+;Current HP
+@do `p28 random 50 50
+;Total HP
+@do `p29 is `p28
+;Attack Strength
+@do `p42 random 50 50
+;Weapon Strength
+@do `p41 random `p42 1
+@if `s03 = `s01 then do
+ @begin
+ @run rand
+ @end
+@run bet
+
+@#mons8
+;Monster Name
+@do `s03 is Goblin
+;Monster's Color
+@do `s04 is 2
+;Current HP
+@do `p28 random 50 50
+;Total HP
+@do `p29 is `p28
+;Attack Strength
+@do `p42 random 50 50
+;Weapon Strength
+@do `p41 random `p42 1
+@if `s03 = `s01 then do
+ @begin
+ @run rand
+ @end
+@run bet
+
+@#mons9
+;Monster Name
+@do `s03 is Bear
+;Monster's Color
+@do `s04 is 6
+;Current HP
+@do `p28 random 50 50
+;Total HP
+@do `p29 is `p28
+;Attack Strength
+@do `p42 random 50 50
+;Weapon Strength
+@do `p41 random `p42 1
+@if `s03 = `s01 then do
+ @begin
+ @run rand
+ @end
+@run bet
+
+@#mons10
+;Monster Name
+@do `s03 is Chimera
+;Monster's Color
+@do `s04 is 0
+;Current HP
+@do `p28 random 50 50
+;Total HP
+@do `p29 is `p28
+;Attack Strength
+@do `p42 random 50 50
+;Weapon Strength
+@do `p41 random `p42 1
+@if `s03 = `s01 then do
+ @begin
+ @run rand
+ @end
+@run bet
+
+@#bet
+@do `p30 is 0
+@do `v01 is 1
+@if coliseum.dat exist false then do
+ @begin
+ @routine getvars
+ @end
+@if coliseum.dat exist true then do
+ @begin
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @end
+@show
+`r0`c `r1 `%Picking A Winner `r0
+
+ `0The next battle is about to begin! Here are the challengers:
+
+ `0Challenger #1: `l`l`l``s02`s01`2`%!
+
+ `0Challenger #2: `l`l`l``s04`s03`2`%!
+
+ `0Who would you like to bet on?
+
+@do write
+`x`x
+@choice
+`s01
+`s03
+@if responce is 1 then do
+ @begin
+ @do `p30 is 1
+ @do `s09 is ``s02`s01
+ @run bet2
+ @closescript
+ @end
+@if responce is 2 then do
+ @begin
+ @do `p30 is 2
+ @do `s09 is ``s04`s03
+ @run bet2
+ @closescript
+ @end
+
+@#bet2
+@do `p22 is 0
+@do `v01 is 1
+@if coliseum.dat exist false then do
+ @begin
+ @routine getvars
+ @end
+@if coliseum.dat exist true then do
+ @begin
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+@if `p46 < `p42 then `p42 is `p46
+@if `p46 < `p41 then goto broke
+ @end
+@show
+`r0`c `r1 `%Place Your Bets `r0
+
+ `0How much would you like to bet?
+
+ `0Minimum is `$`p41`0 gold, Maximum `$`p42`0 gold
+
+ `#(`0You have `$&money gold`#)
+
+@label pik
+@if coliseum.dat exist false then do
+ @begin
+ @routine getvars
+ @end
+@if coliseum.dat exist true then do
+ @begin
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @end
+@do move 3 11
+@do readnum 8 NIL `% `1
+@if `v40 is 0 then goto NOBET
+@if `v40 less `p41 then do
+ @begin
+ @do goto pik
+ @end
+@if `v40 more `p42 then do
+ @begin
+ @do goto pik
+ @end
+@do `p22 is `v40
+@do goto fitescr
+
+@#fitescr
+@do map is 54
+@loadmap 54
+@drawmap
+@do `p40 is 1
+@do move 5 2
+@do write
+`r0``s02`s01
+@do move 5 6
+@do write
+`r0``s04`s03
+@do move 12 9
+@do write
+`%1
+@do move 46 2
+@do write
+`s09
+@do move 43 4
+@do write
+`$`p22
+@do `p22 + `p22
+@do move 70 4
+@do write
+`$`p22
+@do move 3 14
+@do write
+`r0``s02
+@do move 3 15
+@do write
+ -�-
+@do move 3 16
+@do write
+ / \
+@do move 3 18
+@do write
+``s02`s01
+@do move 3 19
+@do write
+`2HP: `%`p24 `2of `%`p27
+@do move 74 14
+@do write
+`r0``s04
+@do move 74 15
+@do write
+ -�-
+@do move 74 16
+@do write
+ / \
+@do move 55 18
+@do write
+``s04`s03
+@do move 55 19
+@do write
+`2HP: `%`p28 `2of `%`p29
+@run battle
+@closescript
+
+@#battle
+@do `p20 is 0
+@do `p25 is 0
+@do `p21 is 0
+@do `p21 random 10 1
+@if `p21 < 4 then do
+ @begin
+ @do move 35 6
+ @do write
+``s04`s03 `!misses`%!
+ @do move 35 7
+ @do write
+`k
+ @run battle2
+ @closescript
+ @end
+@do `p25 is `p26
+@do `p25 + `p23
+@do `p20 random `p25 1
+@do move 35 6
+@do write
+``s04`s03 `4hits `%for `@`p20 `%damage!
+@do move 35 7
+@do write
+`k
+@do `p24 - `p20
+@if `p24 < 1 then `p24 is 0
+@do move 3 19
+@show
+`2HP: `%`p24 `2of `%`p27`x`x`x`x`x`x
+@if `p24 is 0 then do
+ @begin
+ @run deadguy
+ @closescript
+ @end
+@run battle2
+@closescript
+@end
+
+@#battle2
+@do `p20 is 0
+@do `p25 is 0
+@do `p21 is 0
+@do `p21 random 10 1
+@if `p21 < 4 then do
+ @begin
+ @do move 35 8
+ @do write
+``s02`s01 `!misses`%!
+ @do move 35 9
+ @do write
+`k
+ @routine cleartext
+ @run battle
+ @closescript
+ @end
+@do `p25 is `p26
+@do `p25 + `p23
+@do `p20 random `p25 1
+@do move 35 8
+@do write
+``s02`s01 `4hits `%for `@`p20 `%damage!
+@do move 35 9
+@do write
+`k
+@do `p28 - `p20
+@if `p28 < 1 then `p28 is 0
+@do move 55 19
+@do write
+`2HP: `%`p28 `2of `%`p29`x`x`x
+@if `p28 is 0 then do
+ @begin
+ @run youdead
+ @closescript
+ @end
+@routine cleartext
+@run battle
+@closescript
+@end
+
+@#deadguy
+@do move 3 12
+@do write
+`r0 `%
+@do move 3 13
+@do write
+ `%
+@do move 3 14
+@do write
+ `%
+@do move 3 15
+@do write
+ `%
+@do move 3 16
+@do write
+ `%
+@do move 3 17
+@do write
+ `%
+@do move 3 18
+@do write
+ `%
+@do move 3 19
+@do write
+ `%
+@if `p30 is 2 then do
+ @begin
+ @do move 3 14
+ @do write
+`0Your monster has won!
+ @do move 3 15
+ @do write
+`0You win `$$`p22!
+ @do `p22 / 2
+ @do money + `p22
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+@do `p46 - `p22
+@do delete coliseum.dat
+@writefile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @run endbattle1
+ @closescript
+ @end
+@if `p30 is 1 then do
+ @begin
+ @do move 3 14
+ @do write
+`0Your monster has lost!
+ @do `p22 / 2
+ @do money - `p22
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @do `p46 + `p22
+ @do delete coliseum.dat
+ @writefile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @run endbattle1
+ @closescript
+ @end
+@closescript
+@end
+
+@#youdead
+@do move 42 12
+@do write
+ `%
+@do move 42 13
+@do write
+ `%
+@do move 42 14
+@do write
+ `%
+@do move 42 15
+@do write
+ `%
+@do move 42 16
+@do write
+ `%
+@do move 42 17
+@do write
+ `%
+@do move 42 18
+@do write
+ `%
+@do move 42 19
+@do write
+ `%
+@if `p30 is 1 then do
+ @begin
+ @do move 42 14
+ @do write
+`0Your monster has won!
+ @do move 42 15
+ @do write
+`0You win `$$`p22!
+ @do `p22 / 2
+ @do money + `p22
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @do `p46 - `p22
+ @do delete coliseum.dat
+ @writefile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @run endbattle2
+ @closescript
+ @end
+@if `p30 is 2 then do
+ @begin
+ @do move 42 14
+ @do write
+`0Your monster has lost!
+ @do `p22 / 2
+ @do money - `p22
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @do `p46 + `p22
+ @do delete coliseum.dat
+ @writefile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @run endbattle2
+ @closescript
+ @end
+@closescript
+@end
+
+@#cleartext
+@do move 27 5
+@do write
+ `%
+@do move 27 6
+@do write
+ `%
+@do move 27 7
+@do write
+ `%
+@do move 27 8
+@do write
+ `%
+@do move 27 9
+@do write
+ `%
+@do `p40 + 1
+@do move 12 9
+@do write
+`%`p40
+@closescript
+
+@#endbattle1
+@do `s01 is NIL
+@do move 3 17
+@do write
+`0Do you want to bet again? (Y/N) `%
+@do readspecial `s01 YN
+@if `s01 is Y then do
+ @begin
+ @do `p20 is 0
+ @dataload colfite.idf &playernum `p20
+@if coliseum.dat exist false then do
+ @begin
+ @routine getvars
+ @end
+@if coliseum.dat exist true then do
+ @begin
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @end
+ @if `p20 > `p40 then goto nogame2
+ @clear screen
+ @run pickmon
+ @closescript
+ @end
+@if `s01 is N then do
+ @begin
+ @do map is 57
+ @loadmap 57
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#endbattle2
+@do `s01 is NIL
+@do move 42 17
+@do write
+`0Do you want to bet again? (Y/N) `%
+@do readspecial `s01 YN
+@if `s01 is Y then do
+ @begin
+ @do `p20 is 0
+ @dataload colfite.idf &playernum `p20
+@if coliseum.dat exist false then do
+ @begin
+ @routine getvars
+ @end
+@if coliseum.dat exist true then do
+ @begin
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @end
+ @if `p20 > `p40 then goto nogame2
+ @clear screen
+ @run pickmon
+ @closescript
+ @end
+@if `s01 is N then do
+ @begin
+ @do map is 57
+ @loadmap 57
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#openvault
+@if coliseum.dat exist false then do
+ @begin
+ @routine getvars
+ @end
+@if coliseum.dat exist true then do
+ @begin
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @end
+@clear screen
+@do move 25 4
+@do write
+`r1`$ NorthLands Coliseum Vault `r0
+@do move 15 6
+@do write
+`2The vault has a total of `$`p46`2 gold in it.
+@do move 15 7
+@do write
+`2You have `$&money `2gold.
+@do move 30 8
+@do write
+`r0`5�/���������������\�
+@do move 30 9
+@do write
+`r0`5� �
+@do move 30 10
+@do write
+`r0`5� �
+@do move 30 11
+@do write
+`r0`5� �
+@do move 30 12
+@do write
+`r0`5� �
+@do move 30 13
+@do write
+`r0`5�\���������������/�
+@do move 31 9
+@do `v01 is 1
+@choice
+`$Deposit Gold
+`$Withdraw Gold
+`$Close the Vault
+@if responce is 1 then do
+ @begin
+ @do move 20 15
+ @do write
+`$How much do you wish to deposit into the vault? :
+ @do readnum 9
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @if `v40 > money then goto idiot
+ @do `p46 + `v40
+ @do delete coliseum.dat
+ @writefile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @do money - `v40
+ @do goto openvault
+ @end
+@if responce is 2 then do
+ @begin
+ @do move 5 15
+ @do write
+`$Remeber if there is not much in the vault, not many players can gamble.`\ `$How much do you wish to withdraw into the vault? :
+ @do readnum 8
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @if `v40 > `p46 then goto idiot
+ @do `p46 - `v40
+ @do delete coliseum.dat
+ @writefile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @do money + `v40
+ @do goto openvault
+ @end
+@if `p49 is 0 then goto office
+
+@#idiot
+@do write
+`\`\`$Who do you think you are? You think you can do the imposible here?`\`\
+@key
+@do goto openvault
+
+@#rulz
+@if coliseum.dat exist false then do
+ @begin
+ @routine getvars
+ @end
+@if coliseum.dat exist true then do
+ @begin
+ @readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+ @end
+@show
+`r0`c `r1 `%The Rules of The Coliseum `r0
+
+ `0The rules are very simple. We pick two monsters to fight each other,
+ and you bet on which one you think will win. If your monster wins,
+ then you double your bet. If it loses, then you lose your bet.
+
+ The House Minimum is `$$`p41`0, and the House Maximum is `$$`p42`0.
+
+ Also, you are limited to `p40 fights per day.
+
+ Like I said, it's pretty simple, eh?
+
+`k
+@run top
+@closescript
+
+@#nogame
+@show
+`r0`c `r1 `%The Coliseum `r0
+
+ `2A hugely muscled man greets you at the door.
+
+ `0I'm sorry, but you have already made your `p40 bets today.
+ Please come back tomorrow.
+
+ `2He then ushers you outside.
+
+`k
+@drawmap
+@update
+@closescript
+
+@#nogame2
+@show
+`r0`c `r1 `%The Coliseum `r0
+
+ `2You walk back to the man to place your bet. Just as you get there,
+ the bouncer stops you.
+
+ `0"I'm sorry, but you have already made your `p40 bets today," `2he says.
+ `0"Please come back tomorrow."
+
+ `2He then ushers you outside.
+
+`k
+@do map is 57
+@loadmap 57
+@drawmap
+@update
+@closescript
+
+@#broke
+@do `s05 is King`xSysOp
+@readfile coliseum.dat
+`p45
+`p46
+`p47
+`p40
+`p41
+`p42
+@if `p45 > 0 then do
+ @begin
+ @do `s05 is getname `p45
+ @end
+@show
+`c`r0
+`\`\ `0I'm sorry, but our account is empty, we are waiting for
+ our boss, `s05, to come and fill it up.
+
+ Please come back another day.
+@if `p45 > 0 then do
+ @begin
+ @writefile mail\mail`p45.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 Your vault at the NorthLand Coliseum is almost empty.
+`0 There is exactly `$`p46 `0gold left, please refill the
+`0 vault so we can continue business here.
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ @end
+@if `p45 is 0 then do
+ @begin
+ @do `p30 is 5
+ @do `v40 is 10000
+ @routine widthdraw in vaults.ref
+ @readfile coliseum.dat
+`p20
+`p21
+ @do `p21 + `v40
+ @do delete coliseum.dat
+ @writefile coliseum.dat
+0
+`p21
+1
+10
+10
+1000
+ @end
+@key bottom
+@drawmap
+@update
+@closescript
+@#nodough
+@show
+`\`\ `0I'm sorry, but you need at least `$`p41 `0to bet.
+
+ Please come back when you have that much.
+
+ `2He then ushers you outside.
+
+ `k
+@do map is 57
+@loadmap 57
+@drawmap
+@update
+@closescript
+
+@#NOBET
+@show
+`\`\ `0You decide to not bet anything.
+
+ Please come back when you feel like gambling.
+
+ `k
+@do map is 57
+@loadmap 57
+@drawmap
+@update
+@closescript
+@#nothing
diff --git a/xtrn/lord2/cnw/cottage.ref b/xtrn/lord2/cnw/cottage.ref
new file mode 100644
index 0000000000000000000000000000000000000000..dd6c9c745ebb12699b141e2b38149f972294e6d3
--- /dev/null
+++ b/xtrn/lord2/cnw/cottage.ref
@@ -0,0 +1,692 @@
+; Script file COTTAGE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:20 2001
+
+@DECLARE travel 000000815
+@DECLARE done 000002087
+@DECLARE chooseaplace 000002128
+@DECLARE priv 000002969
+@DECLARE innkeeper 000003046
+@DECLARE pass1 000004252
+@DECLARE pass2 000004484
+@DECLARE done 000005772
+@DECLARE doorguard 000005808
+@DECLARE startg 000005837
+@DECLARE sign 000010880
+@DECLARE enter 000011173
+@DECLARE done 000012201
+@DECLARE letmein 000012609
+@DECLARE done 000012690
+@NOCHECK
+; End of .REF index
+
+;hey all, long time no.. um.. updates. been busy. mebbie ill make some new IGMs
+;later this year, mebbie not. dont copy this, or ill shoot ya. i lit myself on
+;fire once. Call Big R.C.s BBS (still up, dunno, kinda accidentally deleted
+;QMODEM hehehe WHUPS <slap!>)
+;(610)494-4604
+@#Travel
+@if cott.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@if &lastx is 58 then do
+ @begin
+ @closescript
+ @end
+
+@do moveback
+@readfile cott.dat
+`p20
+`s01
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @do saybar
+`0Captain: `2Sorry, the owner has requested that I do not allow anyone
+on this here ferry.
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 Ride on the Ferry `r0
+
+`2 `2The Captain looks over at you. `0"Yeah, what's your business?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"OK, then lets go!"`\`\`k
+ @do goto chooseaplace
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to ride your ferry by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed onboard.
+
+ @show
+`\`\ `2The captain asks you to leave`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+
+
+ @#done
+ @drawmap
+ @update
+
+
+@#ChooseAPlace
+;lets them warp to a view places
+@offmap
+@do moveback
+@show
+`r0`c `r1 Your Ferry `r0
+
+ `0"Good day, sir. Where do you wish to go today?" `2asks the captain.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Sosen Village
+Flag City
+Portown
+I'll stay here, thanks
+@if response not 4 then do
+ @begin
+@show
+`\`\ `0"A fine choice, Sir."
+
+`k `2A few minutes later, you arrive at your destination.
+
+ `0"Have a nice day, Sir."
+
+ `2Looks like you are on your own.
+
+`k
+@if responce is 1 then do
+ @begin
+ @do x is 38
+ @do y is 5
+ @do map is 456
+ @end
+
+@if responce is 2 then do
+ @begin
+ @do x is 40
+ @do y is 14
+ @do map is 71
+ @end
+
+@if responce is 3 then do
+ @begin
+ ;Porttown
+ @do x is 43
+ @do y is 16
+ @do map is 956
+ @end
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#priv
+@do moveback
+@do saybar
+The private bedroom, how peaceful.
+
+@#innkeeper
+
+
+@do moveback
+
+@if cott.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@readfile cott.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do moveback
+ @do saybar
+`0Guard: `2Good day, s&sir!
+ @closescript
+ @end
+
+
+
+@if cotta.dat exist false then do
+ @begin
+ @writefile cotta.dat
+200
+0
+ @end
+
+ @readfile cotta.dat
+`p26
+`p27
+@do `v01 is 1
+@show
+`r0`c `r1 `%Getting a room to Sleep in `r0
+
+`2 The guard looks at you. `0"Hey! You want a room 'ta sleep in? For you
+ only `$$`p26!`2"
+
+@do write
+`x`x
+@choice
+YEAH
+Hellz no!
+@if responce is 1 then do
+ @begin
+ @if money < `p26 then do
+ @begin
+ @show
+`\`\ `2YO! Whutup, fool? You ain't got da money. GET OUT!
+
+
+`k
+ @do goto innkeeper
+ @end
+
+ @do money - `p26
+ @do `p27 + `p26
+ @do delete cotta.dat
+ @writefile cotta.dat
+`p26
+`p27
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has rented a room in your cottage!
+ @do y - 3
+ @drawmap
+ @update
+ @do saybar
+`0Guard: `2"Alright then, go in back and pick out a bed."
+ @closescript
+ @end
+
+@drawmap
+@update
+
+@#pass1
+@readfile cott.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+
+@if &lasty is 11 then do
+ @begin
+ @do moveback
+ @do saybar
+`0Guard: `2Sup, fool? You need to pay first!
+ @end
+
+@#pass2
+@if cott.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@if &lastx is 58 then do
+ @begin
+ @closescript
+ @end
+
+@readfile cott.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @do saybar
+`0Guard: `2Can't go over there, its PRIVATE.
+
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 Entrance to the private area `r0
+
+`2 `2The guard looks over at you. `0"YO! What's your business?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Oh, ok then!"`\`\`k
+ @do x + 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 tried to get into the PRIVATE bedroom by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The Guard draws his sword.`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+
+
+ @#done
+ @drawmap
+ @update
+
+@#doorguard
+@do moveback
+@label startg
+
+@if cotta.dat exist false then do
+ @begin
+ @writefile cotta.dat
+200
+0
+ @end
+
+
+@if cott.dat exist false then do
+ @begin
+ @do saybar
+`0"Get out please! The cottage has been sold!" `2the guard commands.
+ @closescript
+ @end
+
+@readfile cott.dat
+`p20
+ @readfile cotta.dat
+`p26
+`p27
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the guard.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The guard stops working for a moment.
+
+@do write
+`x`x
+@choice
+Set password to private bedroom & ferry. (currently is `0`s01`%)
+Ownership options
+Set room fee (currently is at `$$`p26`%)
+Take money from register
+Home Sweet Home
+Leave
+@if responce is 5 then do
+ @begin
+ @show
+
+`\`2This is you new home now.
+ @key
+ @do `p69 is 16
+ @end
+
+@if responce is 4 then do
+ @begin
+ @if `p27 < 1 then do
+ @begin
+@show
+`\`\ `0"Um, sir, we havn't been doing much business lately..."`2 The guard says.
+
+
+`k `$"How much have we done?" `2you ask.
+
+`k `0"Well, none since you last checked, sir." `2the Innkeeper cries as he bursts into tears.
+
+`k `$"WHY AREN'T WE DOING BUSINESS?"`2 you scream, then throw a tantrum.
+
+`k `0"I guess this would not be a good time to ask for a raise?"`2 he asks. You
+ dont bother to answer
+`k
+ @do goto doorguard
+ @end
+
+
+ @readfile cotta.dat
+`p26
+`p27
+ @do money + `p27
+ @do delete cotta.dat
+ @writefile cotta.dat
+`p26
+0
+ @show
+`\`\ `2Sure, we've made `$$`p27`2, here ya go!
+
+`k
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You think you're pretty smart, don't you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, yes I do. Now please give me 1,000,000 gold for free, I deserve it.
+No, you oh computer are the true master. We humans suck.
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2GET OUT OF HERE BEFORE I `bDELETE`2 YOU! Next time I will.
+
+ @do goto doorguard
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ The computer playfully slaps your ass as it walks out.
+
+ @do goto doorguard
+
+ @end
+
+ @do goto doorguard
+ @end
+ @readfile cotta.dat
+`p26
+`p27
+ @do `p26 is `v40
+ @do delete cotta.dat
+ @writefile cotta.dat
+`p26
+`p27
+ @do goto doorguard
+ @end
+
+
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$40000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your cottage to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete cott.dat
+ @writefile cott.dat
+`p20
+`s01
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of BeachSide Cottage to you.
+ Password to enter bedroom will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%BeachSide Cottage`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your cottage back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete cott.dat
+ @do delete cotta.dat
+ @do money + 40000
+ @show
+`\`\ `%COTTAGE SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%BeachSide Cottage`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete cott.dat
+ @writefile cott.dat
+&playernum
+`s01
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the Innkeeper promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#sign
+@do moveback
+
+ @if cott.dat exist false then do
+ @begin
+ @do saybar
+BeachSide Cottage - For sale cheap, enquire inside.
+ @end
+
+@if cott.dat exist true then do
+ @begin
+@readfile cott.dat
+`p20
+`s01
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+@#enter
+@do moveback
+@offmap
+
+
+@if cott.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2CBeachSide Cottage - a beautiful cottage on the beach.
+ `$$65000`2.
+
+ Buy now and recieve the following bonuses:
+
+ `0* `2Private area for you
+
+ `0* `24 guest beds
+
+ `0* `2A ferry
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 64999 Purchase it.
+<&money 65000 Sigh wistfully and leave since you don't have enough.
+>&money 64999 Leave.
+@if responce is 1 then do
+ @begin
+ @if cott.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone beat ya to it. Don't that just suck? I say ya go
+kick his ass now, dontcha think? `\`\`k
+ @do goto done
+ @end
+
+ @writefile cott.dat
+&playernum
+NONE
+ @do money - 65000
+ @do addlog
+ `0`n `2buys `%BeachSide Cottage`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this Cottage!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile cott.dat
+`p20
+`s01
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete cott.dat
+ @do addlog
+ `%BeachSide Cottage`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+;let him in
+@label letmein
+@do x is 51
+@do y is 12
+@do map is 1411
+@loadmap &map
+@do goto done
+@#done
diff --git a/xtrn/lord2/cnw/crazy.ref b/xtrn/lord2/cnw/crazy.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e375d96ea74d8f9b86e5c6f6348fcae80c948868
--- /dev/null
+++ b/xtrn/lord2/cnw/crazy.ref
@@ -0,0 +1,75 @@
+; Script file CRAZY.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:17 2001
+
+@DECLARE crazy 000000214
+@NOCHECK
+; End of .REF index
+
+;ref file for the Crazy Old Man IGM demo by Seth A. Robinson
+
+@#crazy
+@do moveback
+@do `p20 random 31 1
+@if `p20 is 1 then saybar
+`%Crazy: `0Walking on roads has no advantage at all!
+@if `p20 is 2 then saybar
+`%Crazy: `0Always donate 100 * your level to churches for good stuff...
+@if `p20 is 3 then saybar
+`%Crazy: `0Have you ever played the slots in Bonetown? It rocks!
+@if `p20 is 4 then saybar
+`%Crazy: `0The Dragon Tooth clan eat children. Sick, eh?
+@if `p20 is 5 then saybar
+`%Crazy: `0Ever heard of the Koshi people? They weird me out huge.
+@if `p20 is 6 then saybar
+`%Crazy: `0I hear there is an old Wizard Tower for sale near Flagcity..
+@if `p20 is 7 then saybar
+`%Crazy: `0North of Stone Lodge there is a castle for sale.
+@if `p20 is 8 then saybar
+`%Crazy: `0LORD2 can support IGM's now! Yay!
+@if `p20 is 9 then saybar
+`%Crazy: `0The treehouse password changes everyday.
+@if `p20 is 10 then saybar
+`%Crazy: `0Becareful who you flirt with. They may not like you.
+@if `p20 is 11 then saybar
+`%Crazy: `0If you're very charming, you could change someones sexuality.
+@if `p20 is 12 then saybar
+`%Crazy: `0It's almost imposible to wed with Violet or Seth.
+@if `p20 is 13 then saybar
+`%Crazy: `0Your age counts!
+@if `p20 is 14 then saybar
+`%Crazy: `0Don't ever miss someones wedding.
+@if `p20 is 15 then saybar
+`%Crazy: `0Some people don't mind making love with anyone, if they get paid.
+@if `p20 is 16 then saybar
+`%Crazy: `0Don't propose for marriage too soon.
+@if `p20 is 17 then saybar
+`%Crazy: `0Never forget your RINGs for marriage, buy them before you propose.
+@if `p20 is 18 then saybar
+`%Crazy: `0Do more successful simple flirting before you decide to get serious.
+@if `p20 is 19 then saybar
+`%Crazy: `0Everyone is always invited to all weddings.
+@if `p20 is 20 then saybar
+`%Crazy: `0Bring gifts for any newly weds at the chapel.
+@if `p20 is 21 then saybar
+`%Crazy: `0Take your date out as much as possible.
+@if `p20 is 22 then saybar
+`%Crazy: `0Don't take too long to pop the question.
+@if `p20 is 23 then saybar
+`%Crazy: `0What ever you do, DO NOT MISS YOUR WEDDING DAY!
+@if `p20 is 24 then saybar
+`%Crazy: `0Don't keep someone with you (when not married) when you go to sleep.
+@if `p20 is 25 then saybar
+`%Crazy: `0You can take people out on dates, there are many locations to enjoy.
+@if `p20 is 26 then saybar
+`%Crazy: `0Have Fun!
+@if `p20 is 28 then saybar
+`%Crazy: `0HaVE Fun!
+@if `p20 is 29 then saybar
+`%Crazy: `0After you get married, you can go to the retirement home to relax.
+@if `p20 is 30 then saybar
+`%Crazy: `0Don't flirt too much, you can scare some people.
+@if `p20 is 30 then saybar
+`%Crazy: `0If you're in a bad mood, DO NOT FLIRT. (charm < 0 = no flirt)
+@if `p20 is 31 then saybar
+`%Crazy: `0The bum in GreenTree is a Peeping Tom!
+@if `p20 is 31 then saybar
+`%Crazy: `0You need at least a half of 100 charm to ask someone out.
diff --git a/xtrn/lord2/cnw/dangerf.ref b/xtrn/lord2/cnw/dangerf.ref
new file mode 100644
index 0000000000000000000000000000000000000000..54ab32aaa18f5346510b4ff52c2998b3eff85788
--- /dev/null
+++ b/xtrn/lord2/cnw/dangerf.ref
@@ -0,0 +1,65 @@
+; Script file DANGERF.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:35 2001
+
+@DECLARE forest 000000191
+@DECLARE nomore 000002381
+@NOCHECK
+; End of .REF index
+
+@NOCHECK
+@#FOREST
+@Do `p22 random 60 1
+@if `p22 is 1 then do
+ @begin
+ @run FIGHT in TRAVEL.REF
+ @end
+@IF MAP IS 1116 THEN DO
+@BEGIN
+@IF &LASTY < 9 THEN DO
+ @begin
+ @IF &LASTX < 33 THEN DO
+ @begin
+ @DO `p20 random 6 1
+ @IF `p20 is 1 then do
+ @begin
+ @do `p21 random 4 1
+ @if `p21 is 1 then do
+ @begin
+ @do `p25 is X
+ @do `p25 + 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @run fight in dangerf2.ref
+ @end
+ @if `p21 is 2 then do
+ @begin
+ @do `p25 is X
+ @do `p25 - 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @run fight in dangerf2.ref
+ @end
+ @if `p21 is 3 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 - 1
+ @run fight in dangerf2.ref
+ @end
+ @if `p21 is 4 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 + 1
+ @run fight in dangerf2.ref
+ @end
+ @end
+ @end
+ @END
+@END
+@#NOMORE
diff --git a/xtrn/lord2/cnw/dangerf2.ref b/xtrn/lord2/cnw/dangerf2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..9ca4378861cfcda602e2a826eea883de0c22b2bf
--- /dev/null
+++ b/xtrn/lord2/cnw/dangerf2.ref
@@ -0,0 +1,958 @@
+; Script file DANGERF2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:35 2001
+
+@DECLARE sign 000001560
+@DECLARE sign2 000001646
+@DECLARE sign3 000001720
+@DECLARE chest 000001790
+@DECLARE 1 000003258
+@DECLARE 2 000003498
+@DECLARE 3 000003703
+@DECLARE 4 000003903
+@DECLARE 5 000004101
+@DECLARE 6 000004299
+@DECLARE 7 000004520
+@DECLARE 8 000004722
+@DECLARE 9 000004924
+@DECLARE 10 000005159
+@DECLARE 11 000005394
+@DECLARE 12 000005593
+@DECLARE 13 000005794
+@DECLARE 24 000006007
+@DECLARE 25 000006201
+@DECLARE 26 000006395
+@DECLARE 27 000006589
+@DECLARE 28 000006783
+@DECLARE 29 000006977
+@DECLARE 30 000007171
+@DECLARE 31 000007365
+@DECLARE 32 000007559
+@DECLARE 33 000007753
+@DECLARE 34 000007949
+@DECLARE 35 000008147
+@DECLARE 36 000008343
+@DECLARE 37 000008555
+@DECLARE 38 000008751
+@DECLARE 39 000008947
+@DECLARE 40 000009143
+@DECLARE 41 000009339
+@DECLARE 14 000009535
+@DECLARE 15 000009740
+@DECLARE 16 000009966
+@DECLARE 17 000010159
+@DECLARE 18 000010352
+@DECLARE 19 000010555
+@DECLARE 20 000010756
+@DECLARE 21 000010980
+@DECLARE 22 000011190
+@DECLARE 23 000011404
+@DECLARE 42 000011613
+@DECLARE findit 000011778
+@DECLARE leaving 000012197
+@DECLARE fight 000012241
+@DECLARE monster1 000012321
+@DECLARE monster2 000012926
+@DECLARE monster3 000013557
+@DECLARE monster4 000014186
+@DECLARE monster5 000014922
+@DECLARE monster6 000015619
+@DECLARE monster7 000015815
+@DECLARE die 000016015
+@DECLARE seperate 000020778
+@DECLARE nomore 000020883
+@NOCHECK
+; End of .REF index
+
+@NOCHECK
+@#SIGN
+@DO MOVEBACK
+@DO SAYBAR
+`%Danger inside. `$BEWARE! `%You were WARNED!
+
+@#SIGN2
+@DO MOVEBACK
+@DO SAYBAR
+`%There is nothing in here, honest.
+
+@#SIGN3
+@DO MOVEBACK
+@DO SAYBAR
+`$We told you it was dangerous.
+
+@#CHEST
+@offmap
+@do moveback
+@dataload dangerf.idf &playernum `p20
+@if `p20 > 1 then do
+ @begin
+ @do saybar
+`\The old box is in many peices.
+ @closescript
+ @end
+@show
+`r0`c `%The Danger Forest Box
+
+`2 You find a box within the bushes.
+
+@if `p20 is 0 then do
+ @begin
+ @show
+
+ There is a large box here. What could be in it?
+
+ @end
+
+@if `p20 > 0 then do
+ @begin
+ @show
+
+ There is an open box here. It is empty.
+
+ @end
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+=`p20 0 Open the box - something good must be inside, yahh!
+<`p20 0 Kick the crappy box.
+=`p20 0 Carefully open the thing. Could be a trap?
+Leave it to rot.
+@show
+
+
+@if responce is 4 then goto leaving
+@if response is 1 then do begin
+ @begin
+ @datasave dangerf.idf &playernum 1
+ @do money + 50
+ @Do `p02 is 1
+ @do `p01 + 500
+ @show
+ `2Damn it! a TRAP!
+
+`k
+
+ `%YOU FIND `$50 `%GOLD PIECES!
+ `%YOU GET `$500 `%EXPERIENCE!
+ `%YOUR HP IS DOWN TO `$1`%!
+
+`k
+ @do goto leaving
+ @end
+
+@if response is 3 then do begin
+ @begin
+ @datasave dangerf.idf &playernum 1
+ @do money + 50
+ @do `p11 - 250
+ @do `p01 + 500
+ @show
+ `2You spend half an hour opening a the box.
+ It had a trap, but you avoided it.
+
+ `%YOU FIND 50 GOLD PIECES!
+ `%YOU GET 500 EXPERIENCE!
+
+`k
+ @do goto leaving
+ @end
+
+@if response is 2 then do begin
+ @begin
+@datasave dangerf.idf &playernum 2
+@do `p28 random 42 1
+@do goto `p28
+
+@label 1
+;team houses
+;Royal deed
+@if castle78.dat exist false then do
+ @begin
+ @do `s02 is Royal's`xDeed`x-`xDragon`xHousing
+ @writefile castle78.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+
+@label 2
+;Qfortress
+@if qcastle.dat exist false then do
+ @begin
+ @do `s02 is QFortress`xDeed
+ @writefile qcastle.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+
+@label 3
+;Odins Keep
+@if keep.dat exist false then do
+ @begin
+ @do `s02 is Odins`xKeep`xDeed
+ @writefile keep.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+@label 4
+@if tlhouse4.dat exist false then do
+ @begin
+ @do `s02 is Team`xHouse`x4`xDeed
+ @writefile tlhouse4.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+@label 5
+@if tlhouse5.dat exist false then do
+ @begin
+ @do `s02 is Team`xHouse`x5`xDeed
+ @writefile tlhouse5.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+@label 6
+;Underground City
+@if pass1.dat exist false then do
+ @begin
+ @do `s02 is Underground`xCity`x-`xHome`x#1
+ @writefile pass1.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+@label 7
+@if pass2.dat exist false then do
+ @begin
+ @do `s02 is Underground`xCity`x-`xHome`x#2
+ @writefile pass2.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+@label 8
+@if pass3.dat exist false then do
+ @begin
+ @do `s02 is Underground`xCity`x-`xHome`x#3
+ @writefile pass3.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+@label 9
+;jasminita's deed
+@if castle77.dat exist false then do
+ @begin
+ @do `s02 is Jasminita's`xDeed`x-`xDragon`xHousing
+ @writefile castle77.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+@label 10
+;Esperanto's deed
+@if castle79.dat exist false then do
+ @begin
+ @do `s02 is Esperanto's`xDeed`x-`xDragon`xHousing
+ @writefile castle79.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+@label 11
+@if tlhouse1.dat exist false then do
+ @begin
+ @do `s02 is Team`xHouse`x1`xDeed
+ @writefile tlhouse1.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+@label 12
+@if tlhouse3.dat exist false then do
+ @begin
+ @do `s02 is Team`xHouse`x3`xDeed
+ @writefile tlhouse3.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+
+@label 13
+;Gumtown Castle
+@if gumcast.dat exist false then do
+ @begin
+ @do `s02 is Gumtown`xCastle`xDeed
+ @writefile gumcast.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 24
+@if room1.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x101
+ @writefile room1.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 25
+@if room2.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x102
+ @writefile room2.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 26
+@if room3.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x103
+ @writefile room3.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 27
+@if room4.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x104
+ @writefile room4.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 28
+@if room5.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x105
+ @writefile room5.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 29
+@if room6.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x106
+ @writefile room6.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 30
+@if room7.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x107
+ @writefile room7.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 31
+@if room8.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x108
+ @writefile room8.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 32
+@if room9.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x109
+ @writefile room9.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 33
+@if room10.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x110
+ @writefile room10.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 34
+@if room11.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x111
+ @writefile room11.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 35
+@if room12.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x112
+ @writefile room12.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 36
+@if room13.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x113
+ @writefile room13.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 37
+@if room14.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x114
+ @writefile room14.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 38
+@if room15.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x115
+ @writefile room15.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 39
+@if room16.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x116
+ @writefile room16.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 40
+@if room17.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x117
+ @writefile room17.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@Label 41
+@if room18.dat exist false then do
+ @begin
+ @do `s02 is Loki`xInn`x-`xRoom`x118
+ @writefile room18.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+@label 14
+;Sosen Inn
+@if castle4.dat exist false then do
+ @begin
+ @do `s02 is Sosen`xInn`xDeed
+ @writefile castle4.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+@label 15
+;IceLord
+@if castle1.dat exist false then do
+ @begin
+ @do `s02 is IceLord`xKeep`xDeed
+ @writefile castle1.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+
+;other castles
+
+@label 16
+@if castle2.dat exist false then do
+ @begin
+ @do `s02 is Castle`x#2`xDeed
+ @writefile castle2.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+@label 17
+@if castle3.dat exist false then do
+ @begin
+ @do `s02 is Castle`x#3`xDeed
+ @writefile castle3.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+@label 18
+;cottage inn
+@if cott.dat exist false then do
+ @begin
+ @do `s02 is Cottage`xInn`xDeed
+ @writefile cott.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+@label 19
+@if tlhouse2.dat exist false then do
+ @begin
+ @do `s02 is Team`xHouse`x2`xDeed
+ @writefile tlhouse2.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+
+@label 20
+@if NINN1.dat exist false then do
+;Ma's Boarding house
+ @begin
+ @do `s02 is Ma's`xBoarding`xHouse`xDeed
+ @writefile ninn1.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+
+@label 21
+@if NINN2.dat exist false then do
+;Sea Hag Hotel
+ @begin
+ @do `s02 is Sea`xHag`xHotel`xDeed
+ @writefile ninn2.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+@label 22
+;The Woodlog Inn
+@if NINN3.dat exist false then do
+ @begin
+ @do `s02 is The`xWoodlog`xInn`xDeed
+ @writefile ninn3.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+@label 23
+;FlagCity Inn
+@if NINN4.dat exist false then do
+ @begin
+ @do `s02 is Flag`xCity`xInn`xDeed
+ @writefile ninn4.dat
+&playernum
+NONE
+ @do goto findit
+ @end
+
+@label 42
+ @begin
+ @do `p28 random 100000 10000
+ @do `s02 is `p28
+ @do `s02 add gold
+ @do money + `p28
+ @end
+
+@label findit
+@do `p29 random 10 4
+@datasave dangerf.idf &playernum 2
+@do `p18 + `p29
+ @show
+ `2You defiantly strike the box with strong foot.
+ `l.`l.`l.`l
+ What the?`l?`l`l
+
+ The bottom of the box opened up, and you find
+ `l.`l.`l.`l
+
+ `$`s02!
+
+`k
+ `2You wonder why someone would leave this kind of loot here.
+
+ `%You get `p29 quest points
+@key
+@label leaving
+@drawmap
+@update
+@closescript
+
+@#FIGHT
+@do write
+`'
+@do `p21 random 7 1
+@do goto monster`p21
+@end
+
+
+@#monster1
+@do move `p25 `p26
+@do write
+`4`r0
+@fight
+;name
+Tree branch
+;string said when you see her
+Something pokes at the back of your head...
+;power move kill string
+This timber will burn.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+pokes you|25
+stabs in your back|35
+flaps up and down on your head|50
+NONE|NONE
+NONE|NONE
+;defense
+240
+;gold reward
+300
+;experience
+300
+;hit points
+500
+;if win: ref file|name or NONE
+FIGHT.REF|WIN
+;if lose: ref file|name or NONE
+DANGERF2.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+@#monster2
+@do move `p25 `p26
+@do write
+`4`r0
+@fight
+;name
+VERY VERY Angry Rock
+;string said when you see her
+It jumps on your foot...
+;power move kill string
+You threw the rock as far as possible.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+hits back of your head|250
+rams into your chest|350
+knocks you out for a few seconds|500
+NONE|NONE
+NONE|NONE
+;defense
+900
+;gold reward
+25
+;experience
+300
+;hit points
+1500
+;if win: ref file|name or NONE
+FIGHT.REF|WIN
+;if lose: ref file|name or NONE
+DANGERF2.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+@#monster3
+@do move `p25 `p26
+@do write
+`4`r0
+@fight
+;name
+Long Branches
+;string said when you see her
+It whips your chest!
+;power move kill string
+You slice the branches with you sword!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+they wack the back of your head|250
+rams into your chest|350
+knocks you out for a few seconds|500
+NONE|NONE
+NONE|NONE
+;defense
+900
+;gold reward
+0
+;experience
+600
+;hit points
+900
+;if win: ref file|name or NONE
+FIGHT.REF|WIN
+;if lose: ref file|name or NONE
+DANGERF2.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+
+@#monster4
+@do move `p25 `p26
+@do write
+`4`r0
+@fight
+;name
+Green Elves
+;string said when you see her
+They come running out in large numbers...
+;power move kill string
+You swing your sword to slice them all!
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+Half of them come charging at you|600
+They surround you and beat the crap out of you|800
+They manage to knock you out for a few seconds|50
+The swing their arms at you|100
+One tries to hit you realy hard|25
+;defense
+900
+;gold reward
+25
+;experience
+423
+;hit points
+945
+;if win: ref file|name or NONE
+FIGHT.REF|WIN
+;if lose: ref file|name or NONE
+DANGERF2.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+@#monster5
+@do move `p25 `p26
+@do write
+`4`r0
+@fight
+;name
+Sleep walking elves
+;string said when you see her
+They walk in front of you and stop.
+;power move kill string
+You knock the sleeping elves out!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+He swings his arms at you|100
+Walks into you with his sharp knife|250
+walks right past you, slightly slicing your arm|45
+Walks into you with his sharp knife|250
+NONE|NONE
+;defense
+230
+;gold reward
+361
+;experience
+90
+;hit points
+750
+;if win: ref file|name or NONE
+FIGHT.REF|WIN
+;if lose: ref file|name or NONE
+DANGERF2.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+@#monster6
+@do move `p25 `p26
+@do write
+`4�`r0
+ `4� `$`|It jumped out of nowhere and bit you hard, then zoomed away.`| `4�
+@do `p02 - 60
+@if `p02 < 1 then goto DIE
+@closescript
+@end
+
+
+@#monster7
+@do move `p25 `p26
+@do write
+`4�`r0
+@do `p02 / 3
+@do saybar
+ `4� `$`|It jumped out of nowhere and bit you hard, then zoomed away.`| `4�
+@if `p02 < 1 then goto DIE
+@closescript
+@end
+
+@#DIE
+@do move 3 24
+@do write
+`r0 `x
+
+ @do X is 27
+ @do Y is 7
+ @do money / 2
+ @do `p02 is `p03 (give 'em max hit points)
+ @do `p20 is `p01
+ @do `p20 / 5
+ @do `p01 - `p20
+ @do MAP is 155
+ @do dead is 1
+ @update_update
+
+ @do talk `4Newsflash:`0`x`n`x`2died`xin`xthe`x`0DANGEROUS FOREST`2! all
+ @do addlog
+ `n `%tried to pass through the DANGEROUS FOREST, but was unsuscessful and DIED!
+ @do addlog
+ `$People have been warned not to enter, but do they listen?
+ @routine seperate
+@do move 3 24
+@do write
+`4You've been killed. `k
+
+@pauseoff
+@show
+`r0`c
+[34C[0m���������������
+[29C���[1;30;47m����[0;47m�[1;30m�[0;47m�����������[40m�
+[28C�[1;30;47m����[0;47m������������������[40m�
+[27C�[1;30;47m����[0;47m��������[1;30m��[0;47m���������[40m�
+[19C��[5C�[1;30;47m����[0;47m����������[1;30m����[0;47m�����[40m
+[A[50C[47m[1;30m�[0m��
+[18C���� [1;30;47m�����[0;47m�����[1;30m� �[0;47m�[1;30m���[40m
+[A[43C[0;47m�����[1;30m�ܲ[0m�[47m�[1C[40m�[1;47m��[40m�
+[17C[30m�[47m�[0;47m��[1m�[0m� [1;30;47m���� [0;47m��[1;30m�[40m
+[A[34C[0;47m�[1;30m�����߰�[0;47m�[1;30m�[0;47m����[1;30m߲�[40m
+[A[52C[47m[0m�[1;30m�[47m�[0;47m�[1m�[40m�
+[17C[30;47m���[0;47m��[1m��[0m� [1;30m�[0m��� [1;30m�߲[47m[40m
+[A[37C[47m����[40m���[5C[0m��[1;30;47m�[40m�[47m��[0m� �
+[18C[1;30m���[47m��[0;47m� [1;30m�[1C[0m� [31m� [1;30m��
+[A[38C[47m���[40m� [0;31m� [37m��[1;30;47m�[40m�
+[23C[0m�[1;30;47m��[40m�[0m���� ��[1;30;47m�[0m��[1;30m�
+[A[41C[47m�[0m�� ��[1;47m�[0m�[1;30m�
+[25C[47m�[40m�[0m�[1;30;47m� [0;47m��[1;30m�����[0m� [1;30m� [0m�
+[A[42C[1;30;47m����[0;47m����[1m��[0m�
+[26C�[1;30;47m�[0;47m����[1;30mܲ��[0;47m�[2C[1;30;40m�� [47m��[40m
+[A[44C[47m�[0;47m�����[40m��
+[27C���[1;30;47m��[40m���[47m�[0m��[1;30;47m�����[40m��[0m� ����
+[29C[1;30m�� �� [0m��[1;30m�� �[0m�[1;30m� �� [47m��[0m�
+[27C�[1;30;47m���[40m� � [47m�[0m�[1;47m��[40m��[0m��[1;30;47m[40m
+[A[43C[47m�[40m� � [47m��[0;47m�[40m�
+[22C[1m� [47m��[30m��[40m� [0m� [1;30m� [0m� �[1m� �[0m� �
+[A[45C[1;30m��[47m�[1C[0m�[47m [1m�[40m���
+[19C�[47m�����[30m�[0m�� ���[1;30;47m�[0;47m�[40m�� ����� ��
+[A[45C[1;30;47m��[0;47m��[40m� �[1;30;47m�[37m��[40m�[47m�[40m
+[19C[0;31m� [37m���[1;30;47m�[40m�[0;33mܲ�� [37m�[1;47m��[30m[40m
+[A[34C[47m�[0;47m���[1;30m��[0;47m���� [1m��[0m� [33m���[1;30m�
+[A[53C[47m�[0m��[31m�
+[17C�����[37m�[1;30m�[0;31m���[33;41m����[40m� [37m�[1;47m�[40m
+[A[35C[0;47m��[1;30mܱ[40m�[47m��[40m�[47m�[37m�[0m� [31m�
+[A[48C[33;41m���[31;40m��[1;30m�[0;31m��۲��
+
+ `%You have made a terrible error, s&boy.
+ `%The DANGEROUS FOREST has that name for a reason.
+
+`k
+ @if `v03 is 0 then do
+ @begin
+ ;rules.ref file says unlimited deaths not allowed, so we will boot them
+ ;till tomorrow
+
+ ;take them off the map
+ @do map is 1
+ @halt
+ @end
+
+ @pauseon
+
+ @do dead is 0
+
+ @if `p07 less 0 then do
+ @begin
+ @show
+`r0`c`% `r1IT FEELS KINDA WARM IN HERE?`r0
+
+ `4You open your eyes.
+
+`k `4There are naked screaming people all around you. A little boy with
+ a ghastly face begins to gnaw on your leg.
+
+`k `6"Din, leave the newcomer alone. S&he isn't staying." `4a slow voice that
+ can only be described as an abomination dolefully states.
+
+`k `2You feel yourself floating away... faster and faster.
+ @end
+
+ @if `p07 more -1 then do
+ @begin
+ @show
+`r0`c`% `r1APPARENTLY DEATH ISN'T THE END.`r0
+
+ `2You open your eyes.
+
+`k `2You are lying on a table of solid rock in a marble room. Hundreds of
+ soft voices are murmuring all around you, but you see no one.
+
+`k `%"Send s&him back." `2a voice whispers, this one louder than the others.
+
+`k `2You feel yourself floating away... faster and faster.
+
+`k
+ @end
+
+
+@show
+`c `r1`%AWAKENING.`r0
+
+ `0"Can you hear me, `n?" `2a stressed voice shouts.
+
+ `$"Yeah. Christ mom, lemmie up, I'm fine." `2you assure your mother.
+
+ `0"You're alive!! The elders brought your body here yesterday, you must
+ have fainted out there." `2your mother shouts, tears of joy streaming down
+ her wrinkled face.
+
+ `$"Ok, ok - nice little happy reunion and all that, but I gotta hit the
+ road now. Buhbye." `2you tell her. Afterall, you need to make the most of
+ this new lease on life.
+
+ `2You lose `4half`2 the gold you were carrying and `4`p20`2 experience.
+
+`k
+ @loadmap map
+ @drawmap
+ @update
+
+@#seperate
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@closescript
+
+@#NOMORE
+
diff --git a/xtrn/lord2/cnw/dangerf3.ref b/xtrn/lord2/cnw/dangerf3.ref
new file mode 100644
index 0000000000000000000000000000000000000000..3efea56f2067dc0ee794c3133e1a9145a41074db
--- /dev/null
+++ b/xtrn/lord2/cnw/dangerf3.ref
@@ -0,0 +1,61 @@
+; Script file DANGERF3.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:35 2001
+
+@DECLARE forest 000000192
+@DECLARE nomore 000002276
+@NOCHECK
+; End of .REF index
+
+@NOCHECK
+@#FOREST
+@IF MAP IS 1036 THEN DO
+@BEGIN
+@IF &LASTY > 13 THEN DO
+ @begin
+ @IF &LASTX < 12 THEN DO
+ @begin
+ @DO `p20 random 6 1
+ @IF `p20 is 1 then do
+ @begin
+ @do `p21 random 4 1
+ @if `p21 is 1 then do
+ @begin
+ @do `p25 is X
+ @do `p25 + 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @run fight in dangerf2.ref
+ @end
+ @if `p21 is 2 then do
+ @begin
+ @do `p25 is X
+ @do `p25 - 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @run fight in dangerf2.ref
+ @end
+ @if `p21 is 3 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 - 1
+ @run fight in dangerf2.ref
+ @end
+ @if `p21 is 4 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 + 1
+ @run fight in dangerf2.ref
+ @end
+ @end
+ @end
+ @END
+
+@END
+@#NOMORE
diff --git a/xtrn/lord2/cnw/deeds.ref b/xtrn/lord2/cnw/deeds.ref
new file mode 100644
index 0000000000000000000000000000000000000000..603529d5a784cdefd6ecbdd99ac8d289586ed5ba
--- /dev/null
+++ b/xtrn/lord2/cnw/deeds.ref
@@ -0,0 +1,1552 @@
+; Script file DEEDS.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:18 2001
+
+@DECLARE install 000002122
+@DECLARE deeds 000002271
+@DECLARE top 000003079
+@DECLARE display 000003188
+@DECLARE command 000004030
+@DECLARE 0 000004928
+@DECLARE 1 000004969
+@DECLARE 2 000005036
+@DECLARE 3 000005640
+@DECLARE 4 000006161
+@DECLARE 5 000006579
+@DECLARE 6 000006973
+@DECLARE 7 000007528
+@DECLARE 8 000008063
+@DECLARE 9 000008599
+@DECLARE 10 000009193
+@DECLARE 11 000009788
+@DECLARE 12 000010183
+@DECLARE 13 000010580
+@DECLARE 14 000011085
+@DECLARE 15 000011751
+@DECLARE 16 000012265
+@DECLARE 17 000012746
+@DECLARE 18 000013232
+@DECLARE 19 000013729
+@DECLARE 20 000014134
+@DECLARE 21 000014819
+@DECLARE 22 000015555
+@DECLARE 23 000016301
+@DECLARE 24 000017047
+@DECLARE 25 000017429
+@DECLARE 26 000017811
+@DECLARE 27 000018217
+@DECLARE 28 000018634
+@DECLARE 29 000019016
+@DECLARE 30 000019398
+@DECLARE 31 000019780
+@DECLARE 32 000020162
+@DECLARE 33 000020544
+@DECLARE 34 000020952
+@DECLARE 35 000021360
+@DECLARE 36 000021768
+@DECLARE 37 000022192
+@DECLARE 38 000022600
+@DECLARE 39 000023008
+@DECLARE 40 000023416
+@DECLARE 41 000023824
+@DECLARE 42 000024211
+@DECLARE 43 000024598
+@DECLARE 44 000024983
+@DECLARE 45 000025368
+@DECLARE 46 000025745
+@DECLARE 47 000026133
+@DECLARE 48 000026646
+@DECLARE 49 000027124
+@DECLARE 50 000027576
+@DECLARE 51 000028028
+@DECLARE 52 000028047
+@DECLARE 53 000028499
+@DECLARE 54 000028951
+@DECLARE 55 000029403
+@DECLARE 56 000029838
+@DECLARE 57 000030287
+@DECLARE 58 000030764
+@DECLARE 59 000031214
+@DECLARE 60 000031769
+@DECLARE 61 000032343
+@DECLARE 62 000032901
+@DECLARE 63 000033510
+@DECLARE quit 000033951
+@NOCHECK
+; End of .REF index
+
+;
+; - Pouch of Deeds - v1.63.2 -
+; v= a.b.c
+; a= major release#
+; b= # of deeds supported
+; c= update #
+;
+;
+; by: Joel Gathercole
+;
+; Now released seperately from CNW.
+;
+;
+; http://greenmachinebbs.com/lord2/
+; telnet://greenmachinebbs.com
+; greenie@darktech.org
+;
+@#INSTALL
+@do `s06 is Pouch`|of`|Documents
+@do `s07 is DEEDS
+@do `s08 is DEEDS.ref
+@do `s09 is NIL
+@run install in install.ref
+@closescript
+
+
+@#DEEDS
+@do `s01 is `x ;<--Owner Name
+@do `s02 is None
+@do `s03 is `x ;<--Password
+@do `s04 is N/A ;<--toilet water colour
+@do `s05 is N/A ;<--cash in tresurey
+@do `s06 is NIL ;<--location line1
+@do `s07 is NIL ;<--location line2
+@do `s10 is NIL ;<--location line3
+@do `p20 is 0 <--&Playernum of owner
+@do `p21 is 0 <--Deed#
+@do `p22 is 0 <--Price NEW
+@do `p23 is 0 <--Price to sell
+@do `p24 is 0 <--<temp/unused>
+@do `p25 is 0 <--Whore Rate
+@do `p26 is 0 <--Lodging Rate
+@do `p27 is 0 <--Money in register
+@do `p28 is 0 <--<
+@do `p29 is 0 <--entries left (if rented or something)
+@do `p30 is 0 <--gold in tresurey
+@label top
+@show
+`r0
+@routine justitems in gametxt.ref
+@if `p21 < 1 then `p21 is 1
+@do goto `p21
+
+@label display
+@clearblock 13 23
+@do move 1 14
+@show
+`r0 `r3 `%Your Deeds `r0 (63 deeds supported)
+ `r0`% `r3`7�������������������������������������������������ͻ`r0`%U
+ `r3`7� `r3`7�`r0
+ `r0`% `r3`7�������������������������������������������������ͼ`r0`%D
+ `8Use `7U `8and `7D `8to scroll, `7E`8nter to read deed, `7Q`8 to close it.
+
+ `8(not all deeds may be listed or possible to read yet)
+ (still working on them)`0
+
+@do move 15 16
+@do `p45 is length `s08
+@if `p45 less 49 then do
+ @begin
+ @do `p46 is 50
+ @do `p46 - `p45
+ @do `p46 / 2
+ @do `p45 + `p46
+ @do frontpad `s08 `p45
+ @do pad `s08 46
+ @end
+@do `s09 is `r1`s08
+@show
+`r3`s09
+
+@label command
+@do move 29 19
+@do write
+`d`d
+@do readspecial `s05 equd
+@if `s05 is E then do
+@begin
+@run deedinfo in deeds2.ref
+@end
+@if `s05 is Q then goto quit
+@if `s05 is U then do
+ @begin
+ @do `p21 is 0
+@do `s01 is `x
+@do `s02 is None
+@do `s03 is N/A
+@do `s04 is N/A
+@do `s05 is N/A
+@do `s06 is NIL
+@do `s07 is NIL
+@do `s10 is NIL
+@do `p20 is 0
+@do `p22 is 0
+@do `p23 is 0
+@do `p24 is 0
+@do `p25 is 0
+@do `p26 is 0
+@do `p27 is 0
+@do `p28 is 0
+@do `p29 is 0
+@do `p30 is 0
+ @do goto `p21
+ @end
+@if `s05 is D then do
+ @begin
+ @do `p21 + 1
+@do `s01 is `x
+@do `s02 is None
+@do `s03 is N/A
+@do `s04 is N/A
+@do `s05 is N/A
+@do `s06 is NIL
+@do `s07 is NIL
+@do `s10 is NIL
+@do `p20 is 0
+@do `p22 is 0
+@do `p23 is 0
+@do `p24 is 0
+@do `p25 is 0
+@do `p26 is 0
+@do `p27 is 0
+@do `p28 is 0
+@do `p29 is 0
+@do `p30 is 0
+ @do goto `p21
+ @end
+@do goto `p21
+
+
+@label 0
+@if `p21 < 1 then `p21 is 1
+
+@label 1
+@do `s08 is - Enevelope`xis`xopen -
+@do goto display
+
+@label 2
+@if qcastle.dat exist true then do
+ @begin
+ @readfile qcastle.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile qtres.dat
+`p30
+ @do `s08 is QFortress`xDeed
+ @do `s06 is From`xPort`xTown,`x8`xmiles`xwest,`x6 miles
+ @do `s09 is south,`x1`xmile`xeast.
+ @do `p22 is 50000
+ @do `p23 is 25000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 3
+;Odins Keep
+@if keep.dat exist true then do
+ @begin
+ @readfile keep.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Odins`xKeep`xDeed
+ @do `s06 is 1`xmile`xeast,`x1`xmile`xsouth`xof`xPort`xTown
+ @do `p22 is 50000
+ @do `p23 is 25000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 4
+@if tlhouse4.dat exist true then do
+ @begin
+ @readfile tlhouse4.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile tltres4.dat
+`p30
+ @do `s08 is Team`xHouse`x4`xDeed
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 5
+@if tlhouse5.dat exist true then do
+ @begin
+ @readfile tlhouse5.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile tltres5.dat
+`p30
+ @do `s08 is Team`xHouse`x5`xDeed
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 6
+;Underground City
+@if pass1.dat exist true then do
+ @begin
+ @readfile pass1.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile pastre1.dat
+`p30
+ @do `s08 is Underground`xCity`x-`xHome`x#1
+ @do `s06 is Western`xhome.
+ @do `p22 is 20000
+ @do `p23 is 10500
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 7
+@if pass2.dat exist true then do
+ @begin
+ @readfile pass2.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile pastre2.dat
+`p30
+ @do `s08 is Underground`xCity`x-`xHome`x#2
+ @do `s06 is Middle`xhome.
+ @do `p22 is 20000
+ @do `p23 is 10500
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 8
+@if pass3.dat exist true then do
+ @begin
+ @readfile pass3.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile pastre3.dat
+`p30
+ @do `s08 is Underground`xCity`x-`xHome`x#3
+ @do `s06 is Eastern`xhome.
+ @do `p22 is 20000
+ @do `p23 is 10500
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 9
+;jasminita's deed
+@if castle77.dat exist true then do
+ @begin
+ @readfile castle77.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Jasminita's`xDeed`x-`xDragon`xHousing
+ @do `s06 is Dragon's`xDen`xhousing`xis`xlocated
+ @do `s09 is next`xto`xGreenTree.
+ @do `p22 is 15000
+ @do `p23 is 7500
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 10
+;Esperanto's deed
+@if castle79.dat exist true then do
+ @begin
+ @readfile castle79.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Esperanto's`xDeed`x-`xDragon`xHousing
+ @do `s06 is Dragon's`xDen`xhousing`xis`xlocated
+ @do `s09 is next`xto`xGreenTree.
+ @do `p22 is 25000
+ @do `p23 is 15500
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 11
+@if tlhouse1.dat exist true then do
+ @begin
+ @readfile tlhouse1.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile tltres1.dat
+`p30
+ @do `s08 is Team`xHouse`x1`xDeed
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 12
+@if tlhouse3.dat exist true then do
+ @begin
+ @readfile tlhouse3.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile tltres3.dat
+`p30
+ @do `s08 is Team`xHouse`x3`xDeed
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+
+@label 13
+;Gumtown Castle
+@if gumcast.dat exist true then do
+ @begin
+ @readfile gumcast.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile gumtres.dat
+`p30
+ @do `s08 is Gumtown`xCastle`xDeed
+ @do `p22 is 200000
+ @do `p23 is 100000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+@label 14
+@if castle4.dat exist true then do
+ @begin
+ @readfile castle4.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile tres4.dat
+`p30
+ @readfile castle4a.dat
+`p26
+`p24
+ @readfile ninnw6.dat
+`s04
+`s04
+ @readfile ninn1b.dat
+`p25
+`p27
+ @do `p27 + `p24
+ @do `p22 is 25000
+ @do `p23 is 10000
+ @do `s08 is Sosen`xInn`xDeed
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 15
+;IceLord
+@if castle1.dat exist true then do
+ @begin
+ @readfile castle1.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is IceLord`xKeep`xDeed
+ @readfile tres1.dat
+`p30
+ @do `p22 is 50000
+ @do `p23 is 25000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+
+;other castles
+
+@label 16
+@if castle2.dat exist true then do
+ @begin
+ @readfile castle2.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Castle`xColdrake
+ @readfile tres2.dat
+`p30
+ @do `p22 is 20000
+ @do `p23 is 10000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 17
+@if castle3.dat exist true then do
+ @begin
+ @readfile castle3.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Wizard's`xTower`xDeed
+ @readfile tres3.dat
+`p30
+ @do `p22 is 40000
+ @do `p23 is 20000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 18
+;cottage inn
+@if cott.dat exist true then do
+ @begin
+ @readfile cott.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Cottage`xInn`xDeed
+ @readfile cotta.dat
+`p26
+`p27
+ @do `p22 is 65000
+ @do `p23 is 40000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 19
+@if tlhouse2.dat exist true then do
+ @begin
+ @readfile tlhouse2.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile tltres2.dat
+`p30
+ @do `s08 is Team`xHouse`x2`xDeed
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+
+@label 20
+@if NINN1.dat exist true then do
+;Ma's Boarding house
+ @begin
+ @readfile ninn1.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile ninn1a.dat
+`p26
+`p24
+ @readfile ninn1b.dat
+`p25
+`p27
+ @readfile ninnw1.DAT
+`s04
+`s04
+ @readfile ninnt1.DAT
+`p30
+ @do `p27 + `p24
+ @do `s06 is Inside`xGreenTree. East`xend.
+ @do `s08 is Ma's`xBoarding`xHouse`xDeed
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+
+@label 21
+@if NINN2.dat exist true then do
+;Sea Hag Hotel
+ @begin
+ @readfile ninn2.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile ninn2a.dat
+`p26
+`p24
+ @readfile ninn2b.dat
+`p25
+`p27
+ @readfile ninnw2.DAT
+`s04
+`s04
+ @readfile ninnt2.DAT
+`p30
+ @do `p22 is 65000
+ @do `p23 is 30000
+ @do `p27 + `p24
+ @do `s06 is East`xend`xof`xPortTown.
+ @do `s08 is Sea`xHag`xHotel`xDeed
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 22
+;The Woodlog Inn
+@if NINN3.dat exist true then do
+ @begin
+ @readfile ninn3.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile ninn3a.dat
+`p26
+`p24
+ @readfile ninn3b.dat
+`p25
+`p27
+ @readfile ninnw3.DAT
+`s04
+`s04
+ @readfile ninnt3.DAT
+`p30
+ @do `p22 is 65000
+ @do `p23 is 30000
+ @do `p27 + `p24
+ @do `s06 is The`xinn`xinside`xof`xBoneTown
+ @do `s08 is The`xWoodlog`xInn`xDeed
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 23
+;FlagCity Inn
+@if NINN4.dat exist true then do
+ @begin
+ @readfile ninn4.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile ninn4a.dat
+`p26
+`p24
+ @readfile ninn4b.dat
+`p25
+`p27
+ @readfile ninnw4.DAT
+`s04
+`s04
+ @readfile ninnt4.DAT
+`p30
+ @do `p22 is 65000
+ @do `p23 is 30000
+ @do `p27 + `p24
+ @do `s08 is Flag`xCity`xInn`xDeed
+ @do `s06 is FlagCity`xis`xon`xthe`xwest`xcoast.
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 24
+@if room1.dat exist true then do
+ @begin
+ @readfile room1.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x101
+ @do `p22 is 15000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 25
+@if room2.dat exist true then do
+ @begin
+ @readfile room2.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x102
+ @do `p22 is 15000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 26
+@if room3.dat exist true then do
+ @begin
+ @readfile room3.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x103
+ @do `p22 is 15000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 27
+@if room4.dat exist true then do
+ @begin
+ @readfile room4.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `p22 is 15000
+ @do `s08 is Loki`xInn`x-`xRoom`x104
+ @do `p22 is 15000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 28
+@if room5.dat exist true then do
+ @begin
+ @readfile room5.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x105
+ @do `p22 is 15000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 29
+@if room6.dat exist true then do
+ @begin
+ @readfile room6.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x106
+ @do `p22 is 15000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 30
+@if room7.dat exist true then do
+ @begin
+ @readfile room7.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x107
+ @do `p22 is 15000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 31
+@if room8.dat exist true then do
+ @begin
+ @readfile room8.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x108
+ @do `p22 is 15000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 32
+@if room9.dat exist true then do
+ @begin
+ @readfile room9.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x109
+ @do `p22 is 15000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 33
+@if room10.dat exist true then do
+ @begin
+ @readfile room10.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x110
+ @do `p22 is 20000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 34
+@if room11.dat exist true then do
+ @begin
+ @readfile room11.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x111
+ @do `p22 is 20000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 35
+@if room12.dat exist true then do
+ @begin
+ @readfile room12.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x112
+ @do `p22 is 20000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 36
+@if room13.dat exist true then do
+ @begin
+ @readfile room13.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x113
+ @do `p22 is 20000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 37
+@if room14.dat exist true then do
+ @begin
+ @readfile room14.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x114
+ @do `p22 is 20000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 38
+@if room15.dat exist true then do
+ @begin
+ @readfile room15.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x115
+ @do `p22 is 20000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 39
+@if room16.dat exist true then do
+ @begin
+ @readfile room16.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x116
+ @do `p22 is 20000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 40
+@if room17.dat exist true then do
+ @begin
+ @readfile room17.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x117
+ @do `p22 is 20000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 41
+@if castle71.dat exist true then do
+ @begin
+ @readfile castle71.dat
+`p20
+`p29
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Little`xShack`x-`xDragon`xHousing
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 42
+@if castle72.dat exist true then do
+ @begin
+ @readfile castle72.dat
+`p20
+`p29
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Little`xShack`x-`xDragon`xHousing
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@Label 43
+@if castle73.dat exist true then do
+ @begin
+ @readfile castle73.dat
+`p20
+`p29
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Little`xShack`x-`xDragon`xHousing
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto 44
+@end
+
+@Label 44
+@if castle74.dat exist true then do
+ @begin
+ @readfile castle74.dat
+`p20
+`p29
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Little`xShack`x-`xDragon`xHousing
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto 45
+@end
+
+@Label 45
+@if castle75.dat exist true then do
+ @begin
+ @readfile castle75.dat
+`p20
+`p29
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is House`x-`xDragon`xHousing
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto 46
+@end
+
+@Label 46
+@if castle76.dat exist true then do
+ @begin
+ @readfile castle76.dat
+`p20
+`p29
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Beautiful`xHouse`x-`xDragon`xHousing
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto 47
+@end
+
+@label 47
+@if castle78.dat exist true then do
+ @begin
+ @readfile castle78.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Royal's`xDeed`x-`xDragon`xHousing
+ @do `s06 is Just`xeast`xof`xGreenTree.
+ @do `p22 is 20000
+ @do `p23 is 10000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 48
+@if house1.dat exist true then do
+ @begin
+ @readfile house1.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is GreenTree`xManor
+ @readfile bucket.dat
+`p30
+ @do `p22 is 5000
+ @do `p23 is 2500
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 49
+@if ffhouse1.dat exist true then do
+ @begin
+ @readfile ffhouse1.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is House`x#1`x-`xFortress`xFear
+ @do `p22 is 20000
+ @do `p23 is 15000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 50
+@if ffhouse2.dat exist true then do
+ @begin
+ @readfile ffhouse2.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is House`x#2`x-`xFortress`xFear
+ @do `p22 is 20000
+ @do `p23 is 15000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 51
+@end
+
+@label 52
+@if ffhouse3.dat exist true then do
+ @begin
+ @readfile ffhouse3.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is House`x#3`x-`xFortress`xFear
+ @do `p22 is 20000
+ @do `p23 is 15000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 53
+@if ffhouse4.dat exist true then do
+ @begin
+ @readfile ffhouse4.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is House`x#4`x-`xFortress`xFear
+ @do `p22 is 20000
+ @do `p23 is 15000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 54
+@if ffhouse5.dat exist true then do
+ @begin
+ @readfile ffhouse5.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is House`x#5`x-`xFortress`xFear
+ @do `p22 is 20000
+ @do `p23 is 15000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 55
+@if jcastle.dat exist true then do
+ @begin
+ @readfile jcastle.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Torin`xCastle
+ @do `p22 is 50000
+ @do `p23 is 25000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 56
+@if 1stclass.dat exist true then do
+ @begin
+ @readfile 1stclass.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Extacy's`x1st`xClass`xHouse
+ @do `p22 is 7000
+ @do `p23 is 3000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 57
+@if myst1.dat exist true then do
+ @begin
+ @readfile myst1.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile myst1a.dat
+`p26
+`p27
+ @do `s08 is Myst`xInn
+ @do `p22 is 50000
+ @do `p23 is 10000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 58
+@if felhouse.dat exist true then do
+ @begin
+ @readfile felhouse.dat
+`p20
+`p26
+`p27
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Felicity`xGuest`xHouse
+ @do `p22 is 7000
+ @do `p23 is 5000
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 59
+@if blackdgn.dat exist true then do
+ @begin
+ @readfile blackdgn.dat
+`p20
+`s01
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Black`xDragon`xCastle
+ @do `p22 is 100000
+ @do `p23 is 50000
+ @readfile dragtres.dat
+`p30
+ @do `s06 is Far`xNorth`xWest`xof`xArrisVille.
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 60
+@if ship$.dat exist true then do
+ @begin
+ @readfile ship$.dat
+`p20
+`s01
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is
+ @do `p22 is 100000
+ @do `p23 is 50000
+ @readfile shiptres.dat
+`p30
+ @do `s08 is The`xSea`xSerpent
+ @do `s06 is Along`xthe`xbeach,`xits`xa`xSHIP
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 61
+@if camelot.dat exist true then do
+ @begin
+ @readfile camelot.dat
+`p20
+`s01
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is
+ @do `p22 is 60000
+ @do `p23 is 30000
+ @readfile cam.dat
+`p30
+ @do `s08 is Castle`xCamelot
+ @do `s06 is Near`xSosen`xvillage
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 62
+@if hong3.dat exist true then do
+ @begin
+ @readfile hong3.dat
+`p20
+`s01
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is
+ @do `p22 is 20000
+ @do `p23 is 10000
+ @readfile hong3a.dat
+`p25
+`p27
+ @readfile tres5.dat
+`p30
+ @do `s08 is Hong`xKong`xStudio
+ @do `s06 is Near`xSosen`xvillage
+ @do goto display
+ @end
+ @do `p21 + 1
+ @do goto `p21
+ @end
+@do `p21 + 1
+@do goto `p21
+@end
+
+@label 63
+@if room18.dat exist true then do
+ @begin
+ @readfile room18.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x118
+ @do `p22 is 20000
+ @do `p21 is 0
+ @do goto display
+ @end
+ @do `p21 is 1
+ @do goto 1
+ @end
+@do `p21 is 1
+@do goto 1
+@end
+
+@label quit
+@run justitems in gametxt.ref
+@Closescript
diff --git a/xtrn/lord2/cnw/deeds2.ref b/xtrn/lord2/cnw/deeds2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..6d9c41ebcacbff7d486751bf4cd9cf55d271686a
--- /dev/null
+++ b/xtrn/lord2/cnw/deeds2.ref
@@ -0,0 +1,417 @@
+; Script file DEEDS2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:35 2001
+
+@DECLARE deedinfo 000000272
+@DECLARE rent1 000005934
+@DECLARE showdeed 000007198
+@DECLARE showteams 000009561
+@DECLARE quit 000012019
+@NOCHECK
+; End of .REF index
+
+@label deedinfo
+@if `p21 is 1 then do
+@begin
+@show
+`r0`c
+
+ `r6`4��������������������������������������������������IJ`r0
+ `r6`4��� `r6`4�`r0
+ `r6`4� �� `r6`4�`r0
+ `r6`4� �� `r6`4�`r0
+ `r6`4� �� `r6`4�`r0
+ `r6`4� �� `r6`4�`r0
+ `r6`4� ��� `r6`4�`r0
+ `r6`4� ��� `r6`4�`r0
+ `r6`4� �� `r6`4�`r0
+ `r6`4� �� `r6`4�`r0
+ `r6`4� �� `r6`4�`r0
+ `r6`4� �� `r6`4�`r0
+ `r6`4��� `r6`4�`r0
+ `r6`4��������������������������������������������������IJ`r0
+@do `s01 is `N
+@do `s01 add 's`xDeeds
+@do pad `s01 20
+@DO MOVE 32 9
+@DO WRITE
+`r6`$`s01
+@DO MOVE 35 10
+@DO WRITE
+`r6`%v1.63.2
+@DO MOVE 35 20
+@KEY bottom
+@do move 1 1
+@SHOW
+`r0`%`c
+@run top in deeds.ref
+@end
+
+@if `p21 is 4 then do
+@begin
+@do `p29 is 1
+@readfile tlhouse4.dat
+`p20
+`s03
+`p28
+@do move 1 15
+@show
+ `r6`4� `r6`4�`r0
+ `r6`4�`2Location: `%Eastern Desert `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+@do goto showteams
+@end
+
+@if `p21 is 11 then do
+@begin
+@do `p29 is 1
+@readfile tlhouse1.dat
+`p20
+`s03
+`p28
+@do move 1 15
+@show
+ `r6`4� `r6`4�`r0
+ `r6`4�`2Location: `%1 mile north, 3 miles west of `r6`4�`r0
+ `r6`4� `$GreenTree. `r6`4�`r0
+ `r6`4� `r6`4�`r0
+@do goto showteams
+@end
+
+@if `p21 is 5 then do
+ @begin
+ @do `p29 is 5
+@readfile tlhouse5.dat
+`p20
+`s03
+`p28
+@do move 1 15
+@show
+ `r6`4� `r6`4�`r0
+ `r6`4�`2Location: `%Far North of Sosen Village, along `r6`4�`r0
+ `r6`4� `%the beach. `r6`4�`r0
+ `r6`4� `r6`4�`r0
+@do goto showteams
+@end
+
+@if `p21 is 12 then do
+ @begin
+ @do `p29 is 3
+@readfile tlhouse3.dat
+`p20
+`s03
+`p28
+@do move 1 15
+@show
+ `r6`4� `r6`4�`r0
+ `r6`4�`2Location: `%South-East of Flag City `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+@do goto showteams
+@end
+
+@if `p21 is 19 then do
+ @begin
+ @do `p29 is 2
+@readfile tlhouse2.dat
+`p20
+`s03
+`p28
+@do move 1 15
+@show
+ `r6`4� `r6`4�`r0
+ `r6`4�`2Location: `%7 miles north of StonePass Lodge. `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+@do goto showteams
+@end
+
+@if `p21 is 13 then do
+@begin
+@readfile gumcasta.dat
+`p26
+`p27
+@readfile gumcast.dat
+`p20
+`s03
+@do `s04 is N/A
+@do `p22 is 200000
+@do `p23 is 100000
+@do `p25 is 0
+@do move 1 15
+@show
+ `r6`4� `r6`4�`r0
+ `r6`4�`2Location: `%Gum Town is near Sosen Village `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+@do goto showdeed
+@end
+
+@if `p21 is 14 then do
+@begin
+@readfile castle4a.dat
+`p26
+`p27
+@readfile ninn6b.dat
+`p25
+`p28
+ @readfile ninnw6.DAT
+`p29
+`s04
+@do `p22 is 20,000
+@do `p23 is 10,000
+@do move 1 15
+@show
+ `r6`4� `r6`4�`r0`\
+ `r6`4�`2Location: `%In Sosen Village `r6`4�`r0`\
+ `r6`4� `r6`4�`r0`\
+ `r6`4� `r6`4�`r0`\
+@do goto showdeed
+@end
+
+
+@if `p21 is 41 then do
+ @begin
+ @do `p28 is 500
+ @do `p27 is 1
+ @do goto rent1
+ @end
+@if `p21 is 42 then do
+ @begin
+ @do `p28 is 500
+ @do `p27 is 2
+ @do goto rent1
+ @end
+@if `p21 is 43 then do
+ @begin
+ @do `p28 is 500
+ @do `p27 is 3
+ @do goto rent1
+ @end
+@if `p21 is 44 then do
+ @begin
+ @do `p28 is 800
+ @do `p27 is 4
+ @do goto rent1
+ @end
+@if `p21 is 45 then do
+ @begin
+ @do `p28 is 1500
+ @do `p27 is 5
+ @do goto rent1
+ @end
+@if `p21 is 46 then do
+ @begin
+ @do `p28 is 5000
+ @do `p27 is 6
+ @do goto rent1
+@label rent1
+@show
+`r0`c
+
+ `r6`4��������������������������������������������������IJ`r0
+ `r6`4� `1- `$Rented Property at Dragon Housing `1- `r6`4�`r0
+ `r6`4� `$#`p27 `r6`4�`r0
+ `r6`4� `2Owned by: `%Dragon Housing inc. `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4�`2Location: `%Dragon Housing is located next to `r6`4�`r0
+ `r6`4� `%Greentree. `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4��������������������������������������������������IJ`r0
+
+@do move 14 9
+@do `s01 is `N
+@do pad `s01 20
+@do pad `s03 39
+@do write
+`r6`2Rented to: `%`s01
+@do move 14 10
+@do write
+`r6`2Rent Price: `$`p28
+@do move 14 11
+@do write
+`r6`2Entries Left: `4`p29
+@do move 35 20
+@key bottom
+@show
+`r0`%`c
+@run top in deeds.ref
+@end
+
+@label showdeed
+@show
+`r0`c
+
+ `r6`4��������������������������������������������������IJ`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4��������������������������������������������������IJ`r0`\
+@do move 13 6
+@do write
+`r6`4-`x`$`s08`x`4-
+@do `s01 is `N
+@do pad `s01 20
+@do move 14 8
+@do write
+`r6`2Owned by: `%`s01
+@do move 14 9
+@if `p22 < 1 then `s01 is `1N/A
+@if `p22 > 0 then `s01 is `$$`p22
+@do write
+`r6`2Price New: `s01
+@do move 36 9
+@if `p23 < 1 then `s01 is `1N/A
+@if `p23 > 0 then `s01 is `$$`p23
+@do write
+`r6`2Price to Sell: `s01
+@do move 14 10
+@do pad `s03 39
+@do write
+`r6`2Password: `1`s03
+@do move 14 11
+@if `p26 < 1 then `s01 is `1N/A
+@if `p26 > 0 then `s01 is `$$`p26
+@do write
+`r6`2Lodging Rate: `$`1`s01
+@do move 36 11
+@if `p30 < 1 then `s01 is `1N/A
+@if `p30 > 0 then `s01 is `$$`p30
+@do write
+`r6`2Treasurey: `$`1`s01
+@do move 36 12
+@if `p27 < 1 then `s01 is `1N/A
+@if `p27 > 0 then `s01 is `$$`p27
+@do write
+`r6`2Register: `$$`1`s01
+@do move 14 12
+@if `p25 < 1 then `s01 is `1N/A
+@if `p25 > 0 then `s01 is `$$`p25
+@do write
+`r6`2Whore Rate: `$`1`s01
+@do move 14 13
+@do write
+`r6`2Toilet Water: `1`s04
+@do move 14 15
+@do write
+`r6`2Location: `%`s06
+@do move 14 16
+@do write
+`r6`%`s07
+@do move 14 17
+@do write
+`r6`%`s10
+@do move 1 1
+@do write
+`r0`%`x
+@key bottom
+@show
+`r0`%`c
+@run top in deeds.ref
+
+@label showteams
+@show
+`r0`c
+
+ `r6`4��������������������������������������������������IJ`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4� `r6`4�`r0
+ `r6`4��������������������������������������������������IJ`r0`\
+@do move 13 6
+@do write
+`r6`1- `%Team House #`p29 `1-
+@do move 14 8
+@do `s01 is `N
+@do pad `s01 20
+@do pad `s03 39
+@do write
+`r6`2Owned by: `%`s01
+@do move 14 9
+@do write
+`r6`2Price New: `$$10,000
+@do move 36 9
+@do write
+`r6`2Price to Sell: `$$5,000
+@do move 14 10
+@do write
+`r6`2Password: `$`s03
+@readfile tltpet`p29.dat
+`p20
+`p24
+`p22
+@do move 17 12
+@do write
+`r6`@- Pet Dragon -
+@do move 13 13
+@do write
+`2HP: `1`p24
+@do move 13 14
+@do write
+`2ST: `1`p22
+@do move 13 15
+@do write
+`2DF: `1`p20
+;Load Dragon + colour of Dragon
+@readfile tltpet`p29.dat
+`p20
+`p20
+`p20
+`s05
+@if `s05 is `6 then `s05 is `4
+@do move 34 11
+@do write
+`s05 _(.==. .==.)_
+@do move 34 12
+@do write
+`s05 //'^\\`8(\_._/)`s05//^'\\
+@do move 34 13
+@do write
+`s05 //^ ^ ^`8( `16 6 `8)`s05^ ^ ^\\
+@do move 34 14
+@do write
+`s05 //^ ^ ^/\`8( " )`s05/\^ ^ ^\\
+@do move 34 15
+@do write
+`s05// ^ /\/_/`% v`7"`%v `s05\_\/\^ \\
+@do move 34 16
+@do write
+`s05\\^ / // /`8===`s05\ \\ \ ^//
+@do move 34 17
+@do write
+`s05 \\/ \`7(((`8===`7)))`s05/ \//
+@do move 34 18
+@do write
+`s05 ^ .-' `8/\__/\ `s05'-. ^
+
+
+@key bottom
+@show
+`r0`%`c
+@run top in deeds.ref
+
+@label quit
+@show
+`r0
+@closescript
diff --git a/xtrn/lord2/cnw/deinstal.ref b/xtrn/lord2/cnw/deinstal.ref
new file mode 100644
index 0000000000000000000000000000000000000000..891cfc1ab5f971d338d5567ce514d1adc47b6164
--- /dev/null
+++ b/xtrn/lord2/cnw/deinstal.ref
@@ -0,0 +1,153 @@
+; Script file DEINSTAL.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:23 2001
+
+@DECLARE deinstal 000000480
+@DECLARE loop2 000001063
+@DECLARE writeitem 000001425
+@DECLARE loop3 000001454
+@DECLARE postitem 000002158
+@DECLARE done4 000002281
+@DECLARE loop4 000002406
+@DECLARE done5 000002500
+@DECLARE loop5 000002578
+@DECLARE next 000003008
+@DECLARE quit 000003082
+@DECLARE nonesuch 000003135
+@DECLARE errora 000003208
+@NOCHECK
+; End of .REF index
+
+@#deinstal
+@show
+Enter name of item to remove from game
+@do readstring 50 NIL `s05
+@do `s04 is NIL
+@if `s05 is `s04 then goto nonesuch
+@show
+`\
+searching for item to be removed...
+@do `p22 is -1
+@do `p29 is 1
+@routine `s05 in extitems.ref
+@if `p22 is -1 then goto nonesuch
+@show
+Ok, item found, beginning deinstall..
+@if extitems.bak exists true then delete extitems.bak
+@copyfile extitems.dat extitems.bak
+@do delete extitems.dat
+@do delete extitems.ref
+@do `p23 is `p22
+@do `p23 * 10
+@do `p24 is 301
+@show
+Processing records may require a few minutes....
+@label loop2
+@if `p24 less 2 then goto done4
+@if `p23 is 0 then goto writeitem
+@do `p24 - 1
+@do `p23 - 1
+@readfile extitems.bak
+`s05
+@writefile extitems.dat
+`s05
+@do replaceall | x `s05
+@do replaceall ~ s `s05
+@do replaceall = p `s05
+@writefile extitems.ref
+`s05
+@do trim extitems.bak `p24
+@show
+`p24 lines left to process
+@do goto loop2
+
+@label writeitem
+@do `p25 is 1
+@label loop3
+@if `p25 is 1 then `s05 is @#ITEM`p22
+@if `p25 is 2 then `s05 is @label`x___`p22
+@if `p25 is 3 then `s05 is @do`x`~01`xis`xNIL
+@if `p25 is 4 then `s05 is @do`x`~02`xis`xnouse
+@if `p25 is 5 then `s05 is @do`x`~03`xis`xITEM99.ref
+@if `p25 is 6 then `s05 is ;@dataload`x`s04`x`=29`x`=30
+@if `p25 is 7 then `s05 is ;@do`x`~01`xadd`x`x[`=30]
+@if `p25 is 8 then `s05 is @do`x`=22`xis`x`p22
+@if `p25 is 9 then `s05 is @closescript
+@if `p25 is 10 then `s05 is NIL
+@writefile extitems.dat
+`s05
+@do replaceall | x `s05
+@do replaceall ~ s `s05
+@do replaceall = p `s05
+@writefile extitems.ref
+`s05
+@do `p25 + 1
+@if `p25 is 11 then goto postitem
+@do `s05 is NIL
+@do goto loop3
+
+@label postitem
+@do `p24 - 10
+@do `p23 is 29
+@do `p23 - `p22
+@do `p23 * 10
+@do trim extitems.bak `p24
+@do goto loop2
+
+@label done4
+@show
+Item removed from External Items index.
+Updating player's inventories..
+@do `p24 is 1
+@do `p25 is 0
+@label loop4
+@if `p25 is `p22 then goto done5
+@do `p24 * 2
+@do `p25 + 1
+@do goto loop4
+
+@label done5
+@if extitems.idf exists false then goto errorA
+@do `p23 is 1
+@label loop5
+@dataload extitems.idf `p23 `p21
+@if `p21 is 0 then goto next
+@if `p21 less 0 then goto errorA
+@if `p21 more 1073741823 then goto errorA
+@do `p25 is `p21
+@if `p25 less `p24 then goto next
+@do `p25 / `p24
+@do `p26 is `p25
+@do `p26 / 2
+@do `p26 * 2
+@if `p26 is `p25 then `p20 is 0
+@if `p26 not `p25 then `p20 is 1
+@if `p20 is 1 then do
+ @begin
+ @do `p21 - `p24
+ @datasave extitems.idf `p23 `p21
+ @end
+@label next
+@do `p23 + 1
+@if `p23 is 31 then goto quit
+@do goto loop5
+@label quit
+@show
+All done!
+@closescript
+
+
+@label nonesuch
+@show
+`\
+No item with that name found!
+@closescript
+
+@label errorA
+@show
+`r0 `c
+`bERROR!
+`4An illegal value has been detected for record number &playernum in the
+file EXTITEMS.IDF. This value should never be negative, nor greater than
+1,073,741,823 (=[2^30]-1). If this message has been triggered, either the
+file does not exist, the file record has been altered, or data corruption
+has taken place. `k
+@closescript
diff --git a/xtrn/lord2/cnw/descent.ref b/xtrn/lord2/cnw/descent.ref
new file mode 100644
index 0000000000000000000000000000000000000000..9ee1cb09cfbee0e0e5fa57e4b17150ba3a317306
--- /dev/null
+++ b/xtrn/lord2/cnw/descent.ref
@@ -0,0 +1,513 @@
+; Script file DESCENT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:25 2001
+
+@DECLARE start 000000788
+@DECLARE deadguy 000001503
+@DECLARE fightdrag 000003101
+@DECLARE draghome 000003770
+@DECLARE dragwin 000004441
+@DECLARE draglose 000004631
+@DECLARE dragrun 000004764
+@DECLARE lastmap 000006252
+@DECLARE rock 000006633
+@DECLARE condemmed 000006999
+@DECLARE fight 000007082
+@DECLARE dragon1 000007581
+@DECLARE dragon2 000008130
+@DECLARE dragon3 000008679
+@DECLARE dragon4 000009283
+@DECLARE dragon5 000009881
+@DECLARE checkdead 000010493
+@DECLARE scroll 000010614
+@DECLARE enterl 000010696
+@DECLARE enterr 000010796
+@DECLARE enter 000010895
+@DECLARE sign1 000011166
+@DECLARE nomore 000011266
+@DECLARE done 000011274
+@NOCHECK
+; End of .REF index
+
+@#start
+@datanewday child0.idf
+@dataload child0.idf &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @run genran in genran.ref
+ @end
+@dataload child3.idf &playernum `p20
+@If `p20 is 1 then
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@if `p09 > 4 then do
+ @begin
+ @dataload child1.idf &playernum `p20
+ @if `p20 is 0 then do
+ @begin
+ @do saybar
+You feel a wave of terror as a great winged shape flies overhead
+ @end
+ @if `p20 is 1 then do
+ @begin
+ @run deadguy in descent.ref
+ @end
+ @if `p20 is 2 then do
+ @begin
+ @do goto fightdrag in descent.ref
+ @end
+ @end
+@do saybar
+You feel a wave of terror as a great winged shape passes overhead.
+@#deadguy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`2You hear an injured person nearby. Investigate? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is Y then do
+ @begin
+ @datasave child1.idf &playernum 2
+ @clear screen
+ @show
+
+ `r1`%Something Strange`r0
+
+`2You hear weak moaning from some bushes. You invesigate to find a man who
+looks like he has been in the worst fight of his life, and LOST!
+
+The man is covered with blood. One leg is bent at a very strange angle. You
+can see his lips moving but no sound comes out. You lean closer and you hear
+him whisper, "Beware Dragon." You hear him draw a ragged breath and then
+exhale. Then nothing. It seems he is gone.
+
+ @do `v01 is 1
+ @choice
+ Bury him (20 turns)
+ Leave him for the buzzards
+ @if response is 1 then do
+ @begin
+ @do `p07 + 1
+ @if `v05 > 0 then do
+ @begin
+ @do `p11 - 20
+ @drawmap
+ @update
+ @do saybar
+You bury him near where you found him laying. Alignment goes up by 1.
+ @closescript
+ @end
+ @if `v05 < 1 then do
+ @begin
+ @drawmap
+ @update
+ @do saybar
+You bury him near where you found him laying. Alignment goes up by 1.
+ @closescript
+ @end
+ @end
+ @if response is 2 then do
+ @begin
+ @do `p07 - 2
+ @drawmap
+ @update
+ @do saybar
+You are much too busy to take the time to bury him. Alignment goes down by 2.
+ @closescript
+ @end
+ @drawmap
+ @update
+@end
+@do saybar
+You are much too busy to help the man.
+@#fightdrag
+@fight
+;name
+`9Blue `2Dragon
+;string said when you see him
+A scaly blue dragon lands in front of you
+;power move kill string
+NOOOO!! The dragon screams as you bring your weapon down across her neck.
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+breathes fire at you|178
+claws your throat|143
+hits you with her tail|137
+rips your arm with her teeth|92
+bites your leg|79
+;defense
+49
+;gold reward
+0
+;experience
+1750
+;hit points
+1500
+;if win: ref file|name or NONE
+descent.ref|dragwin
+;if lose: ref file|name or NONE
+descent.ref|draglose
+;if runs: ref file|name or NONE
+descent.ref|dragrun
+
+@#draghome
+@fight
+;name
+`9Blue `2Dragon
+;string said when you see him
+"You are a very foolish human to invade my lair," You hear.
+;power move kill string
+NOOOO!! The dragon screams as you bring your weapon down across her neck.
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+breathes fire at you|178
+claws your throat|143
+hits you with her tail|137
+rips your arm with her teeth|92
+bites your leg|79
+;defense
+49
+;gold reward
+0
+;experience
+1750
+;hit points
+1500
+;if win: ref file|name or NONE
+descent.ref|dragwin
+;if lose: ref file|name or NONE
+gametxt.ref|die
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#dragwin
+@do addlog
+`2 `n has slain `9Blue `0Dragon`2!!
+@routine seperate in gametxt.ref
+@do `p18 + 900
+@datasave child3.idf &playernum 1
+@do quebar
+You recieve 900 quest points.
+@#draglose
+@do `p02 is 3
+@do quebar
+You awaken sometime later very weak. Seems the Dragon left you for dead.
+@clearblock 22 25
+@#dragrun
+@datasave child0.idf &playernum 1
+@do `p20 random 149 1
+@if `p20 < `p05 then do
+ @begin
+ @do saybar
+You barely escape the Dragon.
+ @clearblock 22 25
+ @do goto nomore
+ @end
+@clear screen
+@pauseoff
+@show
+`c`2You were much too slow!! The Dragon blocked your path.
+
+The Dragon has you by the throat. She looks down at you contemptuously.
+
+`3"You puny, pathetic human. You are even more cowardly than I had heard.
+I see no challenge in killing a coward like you. It's much too easy.
+Instead I will take you to my lair and let my babies practice on you."
+
+`2She takes wing and soon the dragon, and you are several hundred feet in the
+air. You just hope she doesn't get tired of your weight and drop you. She
+carries you a long way. A long time later, she seems to be coming in for a
+landing in a field near some rocks. She enters a cave. Still carrying you
+and takes you through dark passages. Soon she seems to reach a chamber. She
+releases you.
+
+`3"See if you can get out of here alive, human. I don't think you can. I've
+been teaching my babies and now they get to practice on you."
+
+`2You begin to wander if running was such a good idea.
+
+@key
+@do `p20 is &map
+@do `p21 is &lastx
+@do `p22 is &lasty
+@datasave childx.idf &playernum `p21
+@datasave childy.idf &playernum `p22
+@datasave childm.idf &playernum `p20
+@do map is 42
+@loadmap 42
+@drawmap
+@do map is 16
+@do x is 74
+@do y is 5
+@loadmap &map
+@drawmap
+@update
+@#lastmap
+@dataload childm.idf &playernum `p20
+@dataload childx.idf &playernum `p21
+@dataload childy.idf &playernum `p22
+@if `p20 is 0 then do
+ @begin
+ @do map is 42
+ @do x is 24
+ @do y is 4
+ @loadmap &map
+ @drawmap
+ @updade
+ @closescript
+ @end
+@do map is `p20
+@do x is `p21
+@do y is `p22
+@datasave childm.idf &playernum 0
+@loadmap &map
+@drawmap
+@update
+@#rock
+@datanewday child2.idf
+@dataload child2.idf &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @do moveback
+ @do saybar
+It's a rock. And a big one at that.
+ @end
+@if `p20 is 0 then do
+ @begin
+ @do moveback
+ @do saybar
+Wow. There is a blue potion laying near the rock. You take it.
+ @do `i40 + 1
+ @datasave child2.idf &playernum 1
+@#condemmed
+@do moveback
+@do saybar
+Sign reads: Dragon Cave near. EXTREME Danger.
+@#fight
+@do `p21 random 30 1
+@if `p21 is 15 then do
+ @begin
+ @routine checkdead
+ @if p30 is 1 then do
+ @begin
+ @closescript
+ @end
+ @dataload childm.idf &playernum `p20
+ @if `p20 is 0 then do
+ @begin
+ @run draghome in descent.ref
+ @end
+ @if `p20 > 0 then do
+ @begin
+ @do saybar
+Dragon: Look! It's the human. Still alive. But not for long! HAHA!
+ @closescript
+ @end
+ @end
+@do `p20 random 5 1
+@do goto dragon`p20
+@#dragon1
+@fight
+;name
+Infant Dragon
+;string said when you see him
+You see a very young dragon.
+;power move kill string
+Ah. Poor baby boo boo.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+claws your throat|35
+hits you with his tail|35
+rips your arm with her teeth|20
+NONE|NONE
+NONE|NONE
+;defense
+12
+;gold reward
+0
+;experience
+87
+;hit points
+65
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+gametxt.ref|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#dragon2
+@fight
+;name
+Infant Dragon
+;string said when you see him
+You see a very young dragon.
+;power move kill string
+Ah. Poor baby boo boo.
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+claws your throat|35
+hits you with her tail|36
+rips your arm with her teeth|18
+NONE|NONE
+NONE|NONE
+;defense
+11
+;gold reward
+0
+;experience
+80
+;hit points
+60
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+gametxt.ref|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#dragon3
+@fight
+;name
+Young Dragon
+;string said when you see him
+Look. It's a dragon. Looks like he needs his mamma.
+;power move kill string
+You kids don't learn very well, do you?
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Breathes fire at you|40
+claws your throat|47
+hits you with his tail|52
+rips your arm with her teeth|49
+NONE|NONE
+;defense
+20
+;gold reward
+0
+;experience
+130
+;hit points
+95
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+gametxt.ref|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#dragon4
+@fight
+;name
+Adolecent Dragon
+;string said when you see him
+Will these dragons never give up?
+;power move kill string
+This Dragon will never grow up to prey on people
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+breathes fire at you|65
+claws your throat|60
+hits you with his tail|67
+rips your arm with her teeth|64
+NONE|NONE
+;defense
+23
+;gold reward
+0
+;experience
+180
+;hit points
+110
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#dragon5
+@fight
+;name
+Adolecent Dragon
+;string said when you see him
+She looks kind of cute. Too bad she wants to kill you.
+;power move kill string
+Looks like these kids will never learn
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+breathes fire at you|72
+claws your throat|79
+hits you with her tail|85
+rips your arm with her teeth|60
+NONE|NONE
+;defense
+27
+;gold reward
+0
+;experience
+220
+;hit points
+150
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#checkdead
+@do `p30 is 0
+@dataload child3.idf &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @do `p30 is 1
+ @end
+@#scroll
+@do moveback
+@do saybar
+Scroll: Things are not always as they seem.
+@#enterl
+@routine enter
+@do map is 16
+@do x is 3
+@do y is 19
+@loadmap &map
+@drawmap
+@update
+@#enterr
+@routine enter
+@do map is 16
+@do x is 4
+@do y is 19
+@loadmap &map
+@drawmap
+@update
+@#enter
+@datanewday child0.idf
+@dataload child0.idf &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @do saybar
+You decide going back in there would be pushing your luck a little too far.
+ @do moveback
+ @routineabort
+ @end
+@datasave child0.idf &playernum 1
+@#sign1
+@do saybar
+Sign: <�� Arrisville Northlands Where you were before ��>
+@do moveback
+@#nomore
+@#done
diff --git a/xtrn/lord2/cnw/devhot.ref b/xtrn/lord2/cnw/devhot.ref
new file mode 100644
index 0000000000000000000000000000000000000000..8f0c83a72a36030917992e260c77900a4cb6f96f
--- /dev/null
+++ b/xtrn/lord2/cnw/devhot.ref
@@ -0,0 +1,484 @@
+; Script file DEVHOT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:34 2001
+
+@DECLARE sig 000001434
+@DECLARE soda 000001556
+@DECLARE snack 000003336
+@DECLARE ice 000005063
+@DECLARE urnal 000005741
+@DECLARE sink 000006192
+@DECLARE tol 000006272
+@DECLARE con 000006753
+@DECLARE goodie 000008428
+@DECLARE lockeddoor 000009525
+@NOCHECK
+; End of .REF index
+
+; Ref File for Devils Island Version v1.50
+; MetaLHeaD Softwares, Copyright 1997(c), All Rights Reserved...
+; DarkLandsBBS 2i5.487.73i5 Call it...
+; Http://www.ibbs.com/darkland/
+; TelNet: 205.198.132.190
+; ^__.190 Can change (sorry) Dynamic ips :<
+;
+;
+; First off, I do allow editing to be done. What I Don't allow is for
+; you to give it out after you have edited and or put your name on it
+; . This is COPYRIGHTED 1997(C), MetaLHeaD Softwarez
+;
+; But if you change something that could be of good. Then send it to me
+; and I will put your name in it, Stating that you have made some good
+; change to it.
+;
+; Use DEVISL.EXE to REST/UNINSTALL/HELP/ On this Igm
+;
+; WARNING: MY SPELLING SUCKS SOMETHING IS MISS SPELLED U CAN FIX IT!
+;
+; Whats New Information
+;
+; Fixed most of the spelling I knew how to
+; Fixed `l`x` error causing running time errors
+; Fixed `p19, `p18 usage, Now using `p20-`p25
+;
+; Finished Hotel:
+; Added Soda Machine
+; Added Ice Machine
+; Added Food Machine
+;
+;---<Sign
+@#Sig
+ @busy
+ @do saybar
+ `%Speaking Sign?!:`2Snacks, Soda, Ice Ahead!
+ @do moveback
+
+;---<Soda Machine!
+
+@#Soda
+ @BUSY
+ @DO MOVEBACK
+ @do `v01 is 1
+@show
+`r0`c `r1`7 Soda Machine `r0
+
+ `0"Your staring at the soda machine. You notice there all 1 Dollar. Damn
+ that's expensive for a little can of soda!.
+
+@do write
+`x`x
+@choice
+>&money 1 Coke (`$$1`%)
+>&money 1 Pepsi (`$$1`%)
+>&money 1 Mountain Due (`$$1`%)
+>&money 1 Cherry Coke (`$$1`%)
+Leave
+@if response not 5 then do
+ @begin
+ @show
+
+@if response is 1 then do
+ @begin
+ @do money - 1
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 5
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"You Push the Button." `2A Coke comes out, ahh refreshing
+`\`k
+ @do goto soda
+ @end
+
+@if response is 2 then do
+ @begin
+ @do money - 1
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 5
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"You Push the Button." `2A Pepsi comes out, ahh refreshing
+`\`k
+ @do goto soda
+ @end
+
+@if response is 3 then do
+ @begin
+ @do money - 1
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 5
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"You Push the Button." `2A Mountian Due comes out, ahh refreshing.
+`\`k
+ @do goto soda
+ @end
+
+@if response is 4 then do
+ @begin
+ @do money - 1
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 5
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"You Push the Button" `2A Cherry Coke comes out, ahh refreshing
+`\`k
+ @do goto soda
+ @end
+
+@if responce is 5 then do
+ @begin
+ @show
+`\`\ `$"You walk away drinking your soda.."
+`\`k
+ @end
+ @end
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+;---<Snack Machine!
+@#Snack
+ @BUSY
+ @DO MOVEBACK
+ @do `v01 is 1
+@show
+`r0`c `r1`7 Snack Machine `r0
+
+ `0"Your staring at the snack machine.
+
+@do write
+`x`x
+@choice
+>&money 1 Snickers (`$$1`%)
+>&money 2 Milkyway (`$$2`%)
+>&money 3 Skittles (`$$3`%)
+>&money 4 Goobers (`$$4`%)
+Leave
+@if response not 5 then do
+ @begin
+ @show
+
+@if response is 1 then do
+ @begin
+ @do money - 1
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 5
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"You Push the Button." `2The Snickers falls down, you reach for it.
+`\`k
+ @do goto snack
+ @end
+
+@if response is 2 then do
+ @begin
+ @do money - 2
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 6
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"You Push the Button." `2The Milkyway falls down, you reach for it.
+`\`k
+ @do goto snack
+ @end
+
+@if response is 3 then do
+ @begin
+ @do money - 3
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 7
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"You Push the Button." `2The Skittles fall down, you reach for them.
+`\`k
+ @do goto snack
+ @end
+
+@if response is 4 then do
+ @begin
+ @do money - 4
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 5
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"You Push the Button" `2The goobers fall down, you reach for them.
+`\`k
+ @do goto snack
+ @end
+
+@if responce is 5 then do
+ @begin
+ @show
+`\`\ `$"You walk away eating your little snack.."
+`\`k
+ @end
+ @end
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+
+;---<Ice Machine!
+@#Ice
+ @BUSY
+ @DO MOVEBACK
+ @do `v01 is 1
+@show
+`r0`c `r1`7Your looking at a ice machine! `r0
+
+ `0"Gee Ice is all they have!. damn
+
+@do write
+`x`x
+@choice
+>&money 1 Ice (`$$3`%)
+Leave
+@if response not 2 then do
+ @begin
+@if response is 1 then do
+ @begin
+ @do money - 3
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 0
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$You push the button `2WOW ICE! what the hell can ya do with it! NUTTIN!
+`\`k
+ @end
+
+@if response is 2 then do
+ @end
+ @drawmap
+ @update
+ @closescript
+ @end
+
+;---<Urnal
+@#URNAL
+ @datanewday devbath.idf
+ @dataload devbath.idf &playernum `p21
+
+ @if `p21 is 0 then do
+ @begin
+ @do saybar
+ `%AHHHHHHHH, Ohhhhhhhhh, yesssss, that felt great!
+ @datasave devbath.idf &playernum 1 ;Set Flag to 1=Went today
+ @Key
+ @end
+
+ @if `p21 is 1 then do
+ @begin
+ @do saybar
+ `%Gee. You just went, and don't have the urge yet.
+ @key
+ @end
+
+
+;---<Sink
+@#SINK
+ @do saybar
+ `%Ewww sticky stuff!, gotta wash that off
+
+;---<Toliet
+@#TOL
+ @datanewday devbath.idf
+ @dataload devbath.idf &playernum `p21
+
+ @if `p21 is 0 then do
+ @begin
+ @do saybar
+ `%Ouch Ouch!, Its a big one, ahhhhhhhhhhhhhhhhh, AHHHHHHH that's better
+ @datasave devbath.idf &playernum 1 ;Set Flag to 1=Went today
+ @Key
+ @end
+
+ @if `p21 is 1 then do
+ @begin
+ @do saybar
+ `%Gee. You just went, and don't have the urge yet.
+ @key
+ @end
+
+;---<Condom Dispenser
+@#CON
+ @BUSY
+ @DO MOVEBACK
+ @do `v01 is 1
+
+@show
+`r0`c `r1`7 Condom Dispenser `r0
+
+ `0"Look at the selection!
+
+@do write
+`x`x
+@choice
+>&money 5 Ribbed (`$$5`%)
+>&money 10 Rainbow (`$$10`%)
+>&money 3 Basic Type (`$$3`%)
+>&money 14 Eatable type (`$$14`%)
+Leave
+@if response not 5 then do
+ @begin
+ @show
+
+@if response is 1 then do
+ @begin
+ @do money - 5
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 0
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"You Push the Button." `2Wow! Cool Ribbed one!, now how do I use it?
+`\`k
+ @do goto con
+ @end
+
+@if response is 2 then do
+ @begin
+ @do money - 10
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 0
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"You Push the Button." `2Wow! Cool Rainbow one!, now how do I use it?
+`\`k
+ @do goto con
+ @end
+
+@if response is 3 then do
+ @begin
+ @do money - 3
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 0
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"You Push the Button." `2Hm Basic one, no fun!, now how do I use it?
+`\`k
+ @do goto con
+ @end
+
+@if response is 4 then do
+ @begin
+ @do money - 14
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 0
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"You Push the Button." `2Cool Eatable one! Yes!, now how do I use it?
+`\`k
+ @do goto con
+ @end
+
+@if response is 5 then do
+ @begin
+ @end
+
+ @end
+ @drawmap
+ @update
+ @closescript
+ @end
+
+;---<Goodies!
+@#GOODIE
+ @datanewday devgood.idf
+ @dataload devgood.idf &playernum `p20
+ @if `p20 not 1 then do
+ @begin
+ @do `p21 random 4 1
+ @if `p21 is 1 then do
+ @begin
+ @do saybar
+ `0You Gain 5 bucks! Whoohoo!
+ @do money + 5
+ @key
+ @end
+ @datasave devgood.idf &playernum 1
+
+ @if `p21 is 2 then do
+ @begin
+ @do saybar
+ `0You Gain 5 HitPts! Wow cool!
+ @do `p03 + 5
+ @key
+ @end
+ @datasave devgood.idf &playernum 1
+
+ @if `p21 is 3 then do
+ @begin
+ @do saybar
+ `0You got stronger, (must have been wacking!)
+ @do `p05 + 5
+ @key
+ @end
+ @datasave devgood.idf &playernum 1
+
+ @if `p21 is 4 then do
+ @begin
+ @do saybar
+ `0No more sorry :<
+ @end
+ @end
+
+ @datasave devgood.idf &playernum 1 ;Set Flag to 1=Went today
+ @end
+
+ @if `p20 is 1 then do
+ @begin
+ @do saybar
+ `%Damn you, you you pig! you where just here go away!
+ @key
+ @end
+
+ @do x is 34
+ @do y is 14
+ @do map is 866
+ @drawmap
+ @update
+ @end
+
+;---<Locked door
+@#LOCKEDDOOR
+@dataload devisl2.idf &playernum `p25
+ @if `p25 is 1 then do
+ ;---User can access door
+ @begin
+ @do saybar
+ `%"You may pass my fellow man
+ @key
+ @do x is 33
+ @do y is 12
+ @do map is 866
+ @drawmap
+ @update
+ @closescript
+ @end
diff --git a/xtrn/lord2/cnw/devil.ref b/xtrn/lord2/cnw/devil.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c55556534e754108c9e2f176504391d40231e0c6
--- /dev/null
+++ b/xtrn/lord2/cnw/devil.ref
@@ -0,0 +1,260 @@
+; Script file DEVIL.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:43 2001
+
+@DECLARE enter 000000310
+@DECLARE enter2 000000846
+@DECLARE enter3 000001391
+@DECLARE die 000001929
+@DECLARE welcome 000006613
+@DECLARE hell 000006679
+@DECLARE helpsign 000006773
+@NOCHECK
+; End of .REF index
+
+@#enter
+@fight
+;name
+Tiny Fireball
+;string said when you see him
+Out of nowhere, comes this 'thing'!
+;power move kill string
+You laugh as the thing explodes.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+shoots fire at you|44
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+15
+;gold reward
+89
+;experience
+54
+;hit points
+64
+;if win: ref file|name or NONE
+DEVIL.REF|enter2
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#enter2
+@fight
+;name
+Bigger Fireball
+;string said when you see him
+Out of nowhere, comes this 'thing'!
+;power move kill string
+You laugh as the thing explodes.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+shoots fire at you|88
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+30
+;gold reward
+178
+;experience
+108
+;hit points
+128
+;if win: ref file|name or NONE
+DEVIL.REF|enter3
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+DEVIL.REF|DIE
+
+@#enter3
+@fight
+;name
+Huge Fireball
+;string said when you see him
+Holy shit load! God it is huge!
+;power move kill string
+You laugh as the thing explodes.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+shoots fire at you|176
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+60
+;gold reward
+356
+;experience
+216
+;hit points
+256
+;if win: ref file|name or NONE
+DEVIL.REF|welcome
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+DEVIL.REF|DIE
+
+@#DIE
+@do move 3 24
+@do write
+`r0 `x
+
+ @do X is 27
+ @do Y is 7
+ @do money / 2
+ @do `p02 is `p03 (give 'em max hit points)
+ @do `p20 is `p01
+ @do `p20 / 5
+ @do `p01 - `p20
+ @do MAP is 155
+ @do dead is 1
+ @update_update
+
+ @do talk `4Newsflash:`0`x`n`x`2was`xdefeated`xby`x`0`e`2! all
+ @do addlog
+ `0`n`2 was whipped up on by `0`e`2!
+ @routine seperate
+@do move 3 24
+@do write
+`4You ran, and where injured by the fireball... you couldn't get medical
+help so you sat there and rotted! -The Devil`k
+
+@pauseoff
+@show
+`r0`c
+[34C[0m���������������
+[29C���[1;30;47m����[0;47m�[1;30m�[0;47m�����������[40m�
+[28C�[1;30;47m����[0;47m������������������[40m�
+[27C�[1;30;47m����[0;47m��������[1;30m��[0;47m���������[40m�
+[19C��[5C�[1;30;47m����[0;47m����������[1;30m����[0;47m�����[40m
+[A[50C[47m[1;30m�[0m��
+[18C���� [1;30;47m�����[0;47m�����[1;30m� �[0;47m�[1;30m���[40m
+[A[43C[0;47m�����[1;30m�ܲ[0m�[47m�[1C[40m�[1;47m��[40m�
+[17C[30m�[47m�[0;47m��[1m�[0m� [1;30;47m���� [0;47m��[1;30m�[40m
+[A[34C[0;47m�[1;30m�����߰�[0;47m�[1;30m�[0;47m����[1;30m߲�[40m
+[A[52C[47m[0m�[1;30m�[47m�[0;47m�[1m�[40m�
+[17C[30;47m���[0;47m��[1m��[0m� [1;30m�[0m��� [1;30m�߲[47m[40m
+[A[37C[47m����[40m���[5C[0m��[1;30;47m�[40m�[47m��[0m� �
+[18C[1;30m���[47m��[0;47m� [1;30m�[1C[0m� [31m� [1;30m��
+[A[38C[47m���[40m� [0;31m� [37m��[1;30;47m�[40m�
+[23C[0m�[1;30;47m��[40m�[0m���� ��[1;30;47m�[0m��[1;30m�
+[A[41C[47m�[0m�� ��[1;47m�[0m�[1;30m�
+[25C[47m�[40m�[0m�[1;30;47m� [0;47m��[1;30m�����[0m� [1;30m� [0m�
+[A[42C[1;30;47m����[0;47m����[1m��[0m�
+[26C�[1;30;47m�[0;47m����[1;30mܲ��[0;47m�[2C[1;30;40m�� [47m��[40m
+[A[44C[47m�[0;47m�����[40m��
+[27C���[1;30;47m��[40m���[47m�[0m��[1;30;47m�����[40m��[0m� ����
+[29C[1;30m�� �� [0m��[1;30m�� �[0m�[1;30m� �� [47m��[0m�
+[27C�[1;30;47m���[40m� � [47m�[0m�[1;47m��[40m��[0m��[1;30;47m[40m
+[A[43C[47m�[40m� � [47m��[0;47m�[40m�
+[22C[1m� [47m��[30m��[40m� [0m� [1;30m� [0m� �[1m� �[0m� �
+[A[45C[1;30m��[47m�[1C[0m�[47m [1m�[40m���
+[19C�[47m�����[30m�[0m�� ���[1;30;47m�[0;47m�[40m�� ����� ��
+[A[45C[1;30;47m��[0;47m��[40m� �[1;30;47m�[37m��[40m�[47m�[40m
+[19C[0;31m� [37m���[1;30;47m�[40m�[0;33mܲ�� [37m�[1;47m��[30m[40m
+[A[34C[47m�[0;47m���[1;30m��[0;47m���� [1m��[0m� [33m���[1;30m�
+[A[53C[47m�[0m��[31m�
+[17C�����[37m�[1;30m�[0;31m���[33;41m����[40m� [37m�[1;47m�[40m
+[A[35C[0;47m��[1;30mܱ[40m�[47m��[40m�[47m�[37m�[0m� [31m�
+[A[48C[33;41m���[31;40m��[1;30m�[0;31m��۲��
+
+ `%You have made an error, s&boy.
+
+`k
+ @if `v03 is 0 then do
+ @begin
+ ;rules.ref file says unlimited deaths not allowed, so we will boot them
+ ;till tomorrow
+
+ ;take them off the map
+ @do map is 1
+ @halt
+ @end
+
+ @pauseon
+
+ @do dead is 0
+
+ @if `p07 less 0 then do
+ @begin
+ @show
+`r0`c`% `r1IT FEELS KINDA WARM IN HERE?`r0
+
+ `4You open your eyes.
+
+`k `4There are naked screaming people all around you. A little boy with
+ a ghastly face begins to gnaw on your leg.
+
+`k `6"Din, leave the newcomer alone. S&he isn't staying." `4a slow voice that
+ can only be described as an abomination dolefully states.
+
+`k `2You feel yourself floating away... faster and faster.
+ @end
+
+ @if `p07 more -1 then do
+ @begin
+ @show
+`r0`c`% `r1APPARENTLY DEATH ISN'T THE END.`r0
+
+ `2You open your eyes.
+
+`k `2You are lying on a table of solid rock in a marble room. Hundreds of
+ soft voices are murmuring all around you, but you see no one.
+
+`k `%"Send s&him back." `2a voice whispers, this one louder than the others.
+
+`k `2You feel yourself floating away... faster and faster.
+
+`k
+ @end
+
+
+@show
+`c `r1`%AWAKENING.`r0
+
+ `0"Can you hear me, `n?" `2a stressed voice shouts.
+
+ `$"Yeah. Christ mom, lemmie up, I'm fine." `2you assure your mother.
+
+ `0"You're alive!! The elders brought your body here yesterday, you must
+ have fainted out there." `2your mother shouts, tears of joy streaming down
+ her wrinkled face.
+
+ `$"Ok, ok - nice little happy reunion and all that, but I gotta hit the
+ road now. Buhbye." `2you tell her. Afterall, you need to make the most of
+ this new lease on life.
+
+ `2You lose `4half`2 the gold you were carrying and `4`p20`2 experience.
+
+`k
+ @loadmap map
+ @drawmap
+ @update
+
+
+@#welcome
+@do x is 2
+@do y is 8
+@do map is 989
+@do goto hell
+
+@#hell
+@loadmap &map
+@drawmap
+@update
+@do quebar
+`%Welcome to hell! `4-The Devil
+
+@#helpsign
+@do moveback
+@do saybar
+`6If you run, you will die! HAHAHAHAHA!
diff --git a/xtrn/lord2/cnw/devisl.ref b/xtrn/lord2/cnw/devisl.ref
new file mode 100644
index 0000000000000000000000000000000000000000..230a9339ce0c43a34f8f14e6797c50bae06e18b5
--- /dev/null
+++ b/xtrn/lord2/cnw/devisl.ref
@@ -0,0 +1,1728 @@
+; Script file DEVISL.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:34 2001
+
+@DECLARE welcomesign 000002159
+@DECLARE canoe 000002360
+@DECLARE fight 000003012
+@DECLARE monster1 000003082
+@DECLARE monster2 000003634
+@DECLARE monster3 000004199
+@DECLARE monster4 000004805
+@DECLARE monster5 000005408
+@DECLARE monster6 000005934
+@DECLARE monster7 000006539
+@DECLARE monster8 000007193
+@DECLARE monster9 000007746
+@DECLARE monster10 000008461
+@DECLARE monster11 000009023
+@DECLARE welcomedude 000009708
+@DECLARE cityhall 000009829
+@DECLARE bank 000009852
+@DECLARE bankstart 000009993
+@DECLARE bankagain 000011099
+@DECLARE deposit 000012518
+@DECLARE withdraw 000013068
+@DECLARE hospital 000013944
+@DECLARE train 000014077
+@DECLARE paydudeinn 000014212
+@DECLARE demonknight 000014681
+@DECLARE askdemon? 000020265
+@DECLARE theman 000020876
+@DECLARE thekey 000021055
+@DECLARE endofquest 000021198
+@DECLARE up 000022444
+@DECLARE imback 000023083
+@DECLARE house1 000026026
+@DECLARE fish 000027323
+@DECLARE fishcast 000027941
+@DECLARE bartender 000029790
+@DECLARE bathroom 000031621
+@DECLARE drugdealer 000031801
+@DECLARE sign1 000033568
+@DECLARE washop 000033661
+@DECLARE wast 000033708
+@DECLARE done 000034769
+@NOCHECK
+; End of .REF index
+
+; Script file DEVISL.REF, indexed by REFINDEX v0.01 on Sun Oct 05 22:08:36 1997
+
+; Ref File for Devils Island Version v1.50
+; MetaLHeaD Softwares, Copyright 1997(c), All Rights Reserved...
+; DarkLandsBBS 2i5.487.73i5 Call it...
+;
+; First off, I do allow editing to be done. What I Don't allow is for
+; you to give it out after you have edited and or put your name on it
+; . This is COPYRIGHTED 1997(C), MetaLHeaD Softwarez
+;
+; But if you change something that could be of good. Then send it to me
+; and I will put your name in it, Stating that you have made some good
+; change to it.
+;
+; Use DEVISL.EXE to rest/Uninstall/help/ on this fine igm!
+;
+; Fits the new world only
+;
+;
+;-----------------///DONT TOUCH USED BY INSTALL.EXE///-----------------------
+; REGISTERED
+; VERSION 1.50
+; REL: 12-07-97 : 10:22am
+@#welcomesign
+@bitset `t93 2 1
+ @busy
+ @do saybar
+ `%Speaking Sign?!:`2Welcome to Devils Island!
+ @do moveback
+
+;------------------------<devils island monsters>----------------------------
+
+@#canoe
+@dataload canoe.idf &playernum `p20
+@IF `p20 LESS 1 THEN DO
+@BEGIN
+@DO MOVEBACK
+@do saybar
+You jump in, and piranas attack you! You jump out quickly. but are hurt.
+@do quebar
+You need a canoe to travel these waters.
+@do `p02 - 8
+@CLOSESCRIPT
+@END
+
+@IF &LASTY = 15 THEN DO
+@BEGIN
+@DO SAYBAR
+You get in your canoe and push off
+@DO `P99 IS 1
+@DO Y is 13
+@END
+@IF &LASTY = 13 THEN DO
+@BEGIN
+@DO SAYBAR
+You dock your canoe and step onto the dock
+@DO `P99 IS 0
+@DO Y is 15
+@END
+
+@IF &LASTY = 13 THEN DO
+@BEGIN
+@DO SAYBAR
+You dock your canoe and step onto the dock
+@DO `P99 IS 0
+@DO Y is 15
+@END
+
+@CLOSESCRIPT
+
+
+@#fight
+ @busy
+ @do `p20 random 11 1
+ @do goto monster`p20
+
+@#monster1
+@fight
+;name
+HeadBanger
+;string said when you see him
+`0"Yo, come here :> lemme stomp on you."
+;power move kill string
+You see the lifeless body on the ground.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+punches you|58
+backstabs you|83
+Jumps you|78
+Stomps on you|67
+NONE|NONE
+;defense
+10
+;gold reward
+230
+;experience
+180
+;hit points
+90
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Evil Man
+;string said when you see him
+You hear someone laughing, you look behind you.
+;power move kill string
+you see the dead body disappear?!?
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Eats half your arm|73
+bats you hard with a claw|85
+charges you|105
+NONE|NONE
+NONE|NONE
+;defense
+20
+;gold reward
+157
+;experience
+96
+;hit points
+78
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+SandWorm
+;string said when you see him
+You see a BIG, Striped black/white with purple lips and white teeth..
+;power move kill string
+`$"Twikie from Buck Rodgers called, he want's his double back," `2you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+Crushs you|60
+Wacks you|75
+Bits you|78
+Wacks you|75
+NONE|NONE
+;defense
+12
+;gold reward
+245
+;experience
+135
+;hit points
+103
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+`4Gremlin
+;string said when you see him
+You hear a little voices, you look down and see a germlin!
+;power move kill string
+You rock out with a swing of your s&weapon & split it in two.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+pounds your foot|40
+throws its arm at your head|56
+sands out|43
+NONE|NONE
+NONE|NONE
+;defense
+30
+;gold reward
+534
+;experience
+365
+;hit points
+380
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Demon
+;string said when you see him
+`0"Die!!!!!," `2you hear from behind.
+;power move kill string
+`2Ahah!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+twists your arm|60
+sweeps your feet|65
+bites at your finger|50
+headbangs you|70
+NONE|NONE
+;defense
+2
+;gold reward
+23
+;experience
+30
+;hit points
+34
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster6
+@fight
+;name
+Sir Beavis
+;string said when you see him
+`0"Halt, heir person, or like ... uh something," `2you hear from behind.
+;power move kill string
+That knight guy ... really sucked.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hears voices|68
+slams you with his warhammer|78
+lays the smack down|89
+has a seizure|90
+NONE|NONE
+;defense
+37
+;gold reward
+343
+;experience
+289
+;hit points
+145
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster7
+@fight
+;name
+Mexican worker
+;string said when you see him
+`0"Halt you too must be an enemy of this land," `2says a confused voice.
+;power move kill string
+`$"I thought you found your way home last time?" `2you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+breaks his club on your face|70
+hits with his broadsword|86
+bludgeons you|69
+stabs with a hidden dagger|68
+NONE|NONE
+;defense
+22
+;gold reward
+322
+;experience
+210
+;hit points
+87
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster8
+@fight
+;name
+Banshee
+;string said when you see him
+You see a ghost like figure coming at you!
+;power move kill string
+My anaconda don't want none unless it's got buns hun.
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+Scares you|78
+Screams|60
+Freeze's you|67
+NONE|NONE
+NONE|NONE
+;defense
+14
+;gold reward
+287
+;experience
+102
+;hit points
+65
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster9
+@fight
+;name
+Cyber Warrior
+;string said when you see him
+`0"I'm afraid I have to take you back with me," `2you hear from behind.
+;power move kill string
+`$"I'm not going back with you," `2you scream .
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+blasts you with his laser|100
+gets lock on you with a beam of some kind|95
+uses his proton launcher|110
+launches a flying explosive thing at you|108
+calls for an airstrike from his Mauler|120
+;defense
+35
+;gold reward
+700
+;experience
+290
+;hit points
+120
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster10
+@fight
+;name
+Land Shark
+;string said when you see him
+There's an awfully big tube hangin out of that carcus.
+;power move kill string
+No way you're getting worms.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+touches you|67
+gets slime on you|60
+attaches to your leg|70
+NONE|NONE
+NONE|NONE
+;defense
+12
+;gold reward
+199
+;experience
+98
+;hit points
+55
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster11
+@fight
+;name
+Oversized Hawk
+;string said when you see him
+A rather large shadow passes overhead.
+;power move kill string
+Put em on the endagered species list.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+gashes away some flesh|65
+buries its beak in your shoulder|60
+lands on your head|67
+NONE|NONE
+NONE|NONE
+;defense
+10
+;gold reward
+88
+;experience
+67
+;hit points
+50
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+;------------------------<End of Disland monsters>---------------------------
+
+
+;---Welcome Sign
+@#welcomedude
+ @do saybar
+ `%Gaurd:`0Welcome to Devils Island! v1.50 By: Demon Knight
+ @do moveback
+
+;---CityHall
+@#cityhall
+@do goto bank
+@#bank
+@do `p22 is 0
+@do `p30 is 13
+@do `v01 is 1
+@offmap
+@do moveback
+@do `s09 is devisl
+@routine DONEQUEST in VAULTS.REF
+@label bankstart
+@show
+`r0`c `r1 `%1st Bank Of Devils Island `r0
+
+`2 A young sexy clerk eyes you.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdraw.
+=&bank 0 Apply for an account here.
+Leave
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last questions?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+@drawmap
+@update
+
+;---Hospital
+@#hospital
+`c
+@clear screen
+ @offmap
+ @RUN healers IN green.ref
+ @loadmap &map
+ @drawmap
+ @update
+
+;---Train Center
+@#train
+ @clear screen
+ @offmap
+ @RUN raise IN gshops.ref
+ @loadmap &map
+ @drawmap
+ @update
+
+;---Hotel (Pay dude)
+@#paydudeinn
+ @do `v01 is 1
+ @busy
+ @do moveback
+ @show
+`\
+`r0`c `r1 Mr. Inn Dude(Slayer)`r0
+
+ `0"Yo, s&sir! do you want a room for 20 bucks or not?"
+
+@do `v01 is 1
+@do write
+`x`x
+@CHOICE
+>&money 19 Get a room (`$$20`%)
+Leave
+ @if responce not 3 then do
+ @begin
+ @if responce is 1 then do
+ @begin
+ @do money - 20
+ @do x is 57
+ @do y is 14
+ @do map is 863
+ @end
+ @drawmap
+ @update
+
+;---Blue dude in tree's.
+@#demonknight
+ @do moveback
+@busy
+ ;DataOption
+;---Loads data to read from
+ @dataload devisl2.idf &playernum `p21
+ @if `p21 is 1 then do
+ @begin
+ @end
+
+;---Back from mission
+ @dataload devisl1.idf &playernum `p22
+ @if `p22 is 2 then do
+ @begin
+ @do goto ImBack
+ @end
+
+;---Showed where to go, and didnt (Come's back)
+ @if `p22 is 1 then do
+ @begin
+ @do saybar
+ `%Fool, go where I just showed you, And bring me the KEY!
+ @key
+ @end
+ @if `p22 not 1 then do
+ @begin
+ @CLEAR SCREEN
+;---Show's Mission
+ @show
+[?7h[40m[2J[40m
+[0;1m[35C[30m�� ��� [0m��[1;30m����[0m������[1;30m���[0m��[1;30m��� [47m���[40m��۲��������
+[33C���� �������������[0m����[1;30m�[0m�[1;30;47m����������[40m���۲����
+[37C����� ��[0m�����[1;30;47m��[0m���[1;30;47m���������[40m��[47m��������[40m�����
+ [37m"[32mDevils Island v1.50[37m"[16C[30m��� ��[47m������[1C����[40m�[0m�[1;30;47m���[40m����[47m��������[40m����
+[34C���� � � ����[47m���[1C����[40m������[47m����[40m������ [0;31m��
+[33C[1;30m� �� �[5C�������[47m��[40m��������� [0;31m����� [1;30m�
+[37m"[30mThe dark figure speaks[37m"[9C[30m� �[5C� [0;31m��� [1;30m���������[5C[0;31m������[5C[1;30m۱
+[33C�� �� ���� [0;31m��[1;30mް��� ������[9C����߰�
+[33m"[0;35mI'v been waiting for you[1;33m"[13C[30m�� �[47m���[40m��� ��� [47m�[40m� �[47m���[40m����۲������ �
+[40C�� ���[47m���[40m� ��� ����[47m������[40m�[47m��[40m������۲���
+[37m"[32mUh, Uhmm (you look around), Uh-m[33m"[7C[30m� ��[47m�[40m� ������[47m����[0m����[1;30;47m�[1C�[0m����[1;30m�������
+ [32mMu, mu mu me??.[37m"[24C[30m�[5C�ݰ�������[0m��[1;30;47m�[0m����[1;30;47m��[0m����[1;30;47m�[0m�� [1;30m���
+[43C�[5C� �����[47m���������[0m���[1;30;47m���[0m����[1;30m�
+[33m"[0;35mNo, the one behind you, YES YOU![1;33m"[8C[30m�[10C����[47m�����������[0m��� [1;30m���߰�
+ [35mAs the earth shake's.[19C[30m� ��[7C����������� [37m������[47m��[0m�
+[41C[1;30m�� �[7C۲��� [47m��[0m��[1m��[47m������[0m��� [1;30m�
+[33m"[31mThere is a key, a hidden key, if you [30m� �[8C��� � [0m��[1;30;47m��[37m�[0m����[5C[1;30m����
+ [31mfind this key, bring it to me. Some[9C[30m�[8C۲� [47m�[40m�[9C����� [0m��[1;47m�[0m�
+ [1;31msay it doesn't exist. But I know the[17C[30m�� [47m��[12C[37;40m��[47m���[1C[0m�
+ [1;31mtruth!.........[33m"[38C[30m� [0m�[1;30;47m�[0m� [1m������[47m���[0m� �
+[56C[1;30m� [0m�[1;47m�����[40m����� � [0m��� [1;30m��
+ [37m"[30mThe dark figure begins to move,[0mFOLLOW ME![1m"[13C[30m��� [0m��[5C�����[1;30m����
+ [37m"[30mOh, and if you don't bring it back, ill kill you[37m"[7C[30m��[47m������[0m�� [1;30m��� ���
+[61C[0m��� [1;30m�� ��� ���[0m[255D
+@
+
+;--- Moves use back
+@key
+@CLEAR SCREEN
+@drawmap
+ @DO x is 25
+ @DO y is 12
+@DRAWPART 24 12
+@UPDATE
+ @DO x is 26
+ @DO y is 12
+@DRAWPART 25 12
+@UPDATE ;End Of user moving
+
+ @do move 23 12 ;Begin Of Moving Dude
+ @do write
+`1
+ @do move 23 12
+ @do write
+`l`x
+ @do move 24 12
+ @do write
+`1
+ @do move 24 12
+ @do write
+`l`x
+ @do move 25 12
+ @do write
+`1
+ @do move 25 12
+ @do write
+`l`x
+ @do move 25 11
+ @do write
+`1
+ @do move 25 11
+ @do write
+`l`x
+ @do move 25 10
+ @do write
+`1
+ @do move 25 10
+ @do write
+`l`x
+ @do move 24 10
+ @do write
+`1
+ @do move 24 10
+ @do write
+`l`x
+ @do move 23 10
+ @do write
+`1
+ @do move 23 10
+ @do write
+`l`x
+ @do move 22 10
+ @do write
+`1
+ @do move 22 10
+ @do write
+`l`x
+ @do move 21 10
+ @do write
+`1
+ @do move 21 10
+ @do write
+`l`x
+ @do move 20 10
+ @do write
+`1
+ @do move 20 10
+ @do write
+`l`x
+ @do move 19 10
+ @do write
+`1
+ @do move 19 10
+ @do write
+`l`x
+ @do move 18 10
+ @do write
+`1
+ @do move 18 10
+ @do write
+`l`x
+ @do move 17 10
+ @do write
+`1
+ @do move 17 10
+ @do write
+`l`x
+ @do move 16 10
+ @do write
+`1
+ @do move 16 10
+ @do write
+`l`x
+ @do move 15 10
+ @do write
+`1
+ @do move 15 10
+ @do write
+`l`x
+ @do move 14 10
+ @do write
+`1
+ @do move 14 10
+ @do write
+`l`x
+ @do move 13 10
+ @do write
+`1
+ @do move 13 10
+ @do write
+`l`x
+ @do move 12 10
+ @do write
+`1
+ @do move 12 10
+ @do write
+`l`x
+ @do move 11 10
+ @do write
+`1
+ @do move 11 10
+ @do write
+`l`x
+ @do move 10 10
+ @do write
+`1
+ @do move 10 10
+ @do write
+`l`x
+ @do move 9 10
+ @do write
+`1
+ @do move 9 10
+ @do write
+`l`x
+ @do move 8 10
+ @do write
+`1
+ @do move 8 10
+ @do write
+`l`x
+ @do move 7 10
+ @do write
+`1
+ @do move 7 10
+ @do write
+`l`x
+ @do move 6 10
+ @do write
+`1
+ @do move 6 10
+ @do write
+`l`x
+ @do move 5 10
+ @do write
+`1
+ @do move 5 10
+ @do write
+`l`x
+ @do move 4 10
+ @do write
+`1
+ @do move 4 10
+ @do write
+`l`x
+ @do move 3 10
+ @do write
+`1
+ @do move 3 10
+ @do write
+`l`x
+
+ @update ;End Of Moving Dude
+ @loadmap &map
+ @drawmap
+
+;---After he moves give users instruction unto follow his fsteps.
+@do saybar
+ `2Follow the path I have just gone, and hope you die, or I mean come back ok!
+ ;DataSaving Option
+ @datasave devisl1.idf &playernum 1 ;Sets flag to 1 (talked to dude)
+ @end
+;---If user goes to wall, and didnt ask will do nothing
+;---Flags 1=Did start, 0=Did not Start
+ @#AskDemon?
+ @do moveback
+ @busy
+ ;DataOption
+ @dataload devisl1.idf &playernum `p23
+ @if `p23 is 1 then do ;Yes he did!, Beging Quest
+ @begin
+
+;---Loads maze Screen 864
+ @do saybar
+ `4The earth opens up, and you fall down!
+ @key
+ @clear screen
+ @do map is 864 ;Loads Maze
+ @do x is 2
+ @do y is 19
+ @update
+ @loadmap &map
+ @drawmap
+ @end
+ @if `p23 not 1 then do
+ @end
+
+;---Man down in hell, Tells of secret. (can walk over him)
+@#TheMan ;Man In maze
+ @do saybar
+ `2Some say the walls have holes..
+ @do moveback
+ @end
+
+;---User found key. Sets Flag to 2
+@#TheKeY ;Gets the Key Flag=2
+@datasave devisl1.idf &playernum 2
+ @do saybar
+ You got the key!, BuT HoW Do You geT ouT!!?!?
+ @end
+
+;---Hids the end..
+@#EndOfQuest
+@update_update
+ @dataload devisl1.idf &playernum `p24
+ @if `p24 is 1 then do
+
+;---Didn't get key :<
+ @begin
+ @do saybar
+ `%Fool, YOU DIDNT GET THE DAMN KEY!, GO BACK Muahahahahah!
+ @key
+
+;---Warps back to beging! Damnit!
+ @do map is 864
+ @do x is 2
+ @do y is 19
+ @update
+ @end
+
+;---Got key, Finnal mission. Destroy SATAN
+ @if `p24 is 2 then do
+ @begin
+ @do saybar
+ Your faced with a fiery demon named: SATAN! Kill 'em
+ @key
+ @busy
+
+;---Now if he is too hard. just lower his stats. Im lvl 11 and killed him
+ ;---Lower lvl may not beable to.
+
+@fight
+;name
+Satan
+;string said when you see him
+You see a huge, Fiery red like figure.
+;power move kill string
+It disappears.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Shoots Flames at you|100
+Hits you with a wing|200
+charges you|390
+Bites you|250
+Spits blood at you|290
+;defense
+200
+;gold reward
+10000
+;experience
+10000
+;hit points
+90000
+;if win: ref file|name or NONE
+DEVISL.REF|UP
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+;---Defeated satan, Moves you to upper lvl
+@#Up
+@do saybar
+ Nice work!, Now go give DemonKnight the Key!
+ @key
+ @do move 79 6 ;Going Up
+ @do write
+
+ @do move 79 6
+ @do write
+`l`x
+ @do move 79 5
+ @do write
+
+ @do move 79 5
+ @do write
+`l`x
+ @do move 79 4
+ @do write
+
+ @do move 79 4
+ @do write
+`l`x
+ @do move 79 3
+ @do write
+
+ @do move 79 3
+ @do write
+`l`x
+ @do move 79 2
+ @do write
+
+ @do move 79 2
+ @do write
+`l`x
+ @do move 79 1
+ @do write
+
+ @do move 79 1
+ @do write
+`l`x
+ @do x is 25
+ @do y is 11
+ @do map is 862
+ @loadmap &map
+ @drawmap
+ @update
+ @end
+ @closescript
+
+;---User returns
+@LABEL ImBack
+@dataload devisl2.idf &playernum `p25
+@if `p25 is 1 then do
+
+;---User completed quest allready! run DEVISL.EXE TO RESET
+ @begin
+ @do saybar
+ `%"Hello fellow traveler, Thanks for the key", As he smiles evilly
+ @end
+
+;---User just returns!
+ @if `p25 is 0 then do
+ @begin
+ @do Saybar
+ I see you've returned. (damn he mubles) give me the key!
+ @Key
+@CLEAR SCREEN
+
+;---Shows what he gets for killing satan and retreaving key
+@show
+[?7h[40m[2J[40m
+[0;1m[35C[30m�� ��� [0m��[1;30m����[0m������[1;30m���[0m��[1;30m��� [47m���[40m��۲��������
+[33C���� �������������[0m����[1;30m�[0m�[1;30;47m����������[40m���۲����
+[37C����� ��[0m�����[1;30;47m��[0m���[1;30;47m���������[40m��[47m��������[40m�����
+ [37m"[0mDevils Island v1.50[1m"[16C[30m��� ��[47m������[1C����[40m�[0m�[1;30;47m���[40m����[47m��������[40m����
+[34C���� � � ����[47m���[1C����[40m������[47m����[40m������ [0;31m��
+[33C[1;30m� �� �[5C�������[47m��[40m��������� [0;31m����� [1;30m�
+[37m"[30mGood to see you back, and alive[37m"[30m� �[5C� [0;31m��� [1;30m���������[5C[0;31m������[5C[1;30m۱
+[0m(damnit he mubles)[1;30m,[37m"[30mI see you killed �� ���� [0;31m��[1;30mް��� ������[9C����߰�
+ SataN?, and got the key! good.[10C�[47m���[40m��� ��� [47m�[40m� �[47m���[40m����۲������ �
+ now give me the key![37m"[15C[30m�� ���[47m���[40m� ��� ����[47m������[40m�[47m��[40m������۲���
+[41C� ��[47m�[40m� ������[47m����[0m����[1;30;47m�[1C�[0m����[1;30m�������
+ [31m"[0;31mSo what I get?[1m"[37m,[0;35mYou ask[15C[1;30m�[5C�ݰ�������[0m��[1;30;47m�[0m����[1;30;47m��[0m����[1;30;47m�[0m�� [1;30m���
+[43C�[5C� �����[47m���������[0m���[1;30;47m���[0m����[1;30m�
+[37m"[30mWell for getting the key, and killing �[10C����[47m�����������[0m��� [1;30m���߰�
+ the so called SATAN, I'll give you[5C� ��[7C����������� [37m������[47m��[0m�
+ [1;30mthe following:[37m"[23C[30m�� �[7C۲��� [47m��[0m��[1m��[47m������[0m��� [1;30m�
+[41C� �[8C��� � [0m��[1;30;47m��[37m�[0m����[5C[1;30m����
+ [32mExp..................[36m+1,000[15C[30m�[8C۲� [47m�[40m�[9C����� [0m��[1;47m�[0m�
+ [1;32mGold.................[36m+900[26C[30m�� [47m��[12C[37;40m��[47m���[1C[0m�
+ [1;32mHitPt................[36m+20[28C[30m� [0m�[1;30;47m�[0m� [1m������[47m���[0m� �
+ [1;32mMuscle...............[36m+10[29C[30m� [0m�[1;47m�����[40m����� � [0m��� [1;30m��
+ [32mDodge................[36m+10[30C[30m��� [0m��[5C�����[1;30m����
+[59C��[47m������[0m�� [1;30m��� ���
+[61C[0m��� [1;30m�� ��� ���[0m[255D
+@
+@key
+@do money + 900
+@do `p03 + 20
+@do `p01 + 1000
+@do `p04 + 10
+@do `p05 + 10
+@datasave devisl2.idf &playernum 1
+@loadmap &map
+@drawmap
+@update
+@closescript
+
+;---Portals
+@#house1
+@do `v01 is 1
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Portal Room `r0
+
+ `0"Greetings, s&sir! Where can we port you off today?"
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Sosen Village
+Stonepass Lodge
+PortTown
+Koshi Land
+ArrisVille
+Castle
+Jacks Restaurant
+I'll stay here, thanks
+@if response not 8 then do
+ @begin
+ @show
+
+@if responce is 1 then do
+ @begin
+ ;Sosen village
+ @do x is 38
+ @do y is 5
+ @do map is 456
+ @end
+
+@if responce is 2 then do
+ @begin
+ ;Stonepass Lodge
+ @do x is 40
+ @do y is 11
+ @do map is 880
+ @end
+
+@if responce is 3 then do
+ @begin
+ ;Porttown
+ @do x is 43
+ @do y is 16
+ @do map is 956
+ @end
+
+@if responce is 4 then do
+ @begin
+ ;Koshi Land
+ @do x is 38
+ @do y is 12
+ @do map is 196
+ @end
+
+@if responce is 5 then do
+ @begin
+ ;ArrisVille
+ @do x is 21
+ @do y is 11
+ @do map is 523
+ @end
+
+@if responce is 6 then do
+ @begin
+ ;Castle
+ @do x is 46
+ @do y is 12
+ @do map is 320
+ @end
+
+@if responce is 7 then do
+ @begin
+ ;Jacks
+ @do x is 20
+ @do y is 19
+ @do map is 1278
+ @end
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+;---Fishing.. Direct copy from some lord 2 igm :>
+ ;---THIS IS NOT COPYWRITTED FROM MetaLHeaD But RTSOFTS 1997(c)
+@#Fish
+;Fishing dock...
+@do moveback
+
+@if `i28 < 1 then do
+ @begin
+ ;person doesn't have fishing pole
+ @DO SAYBAR
+`2You doubt you would catch anything with your s&weapon...
+ @closescript
+ @end
+
+
+@if `t10 < 1 then do
+ @begin
+ @do saybar
+You have caught all the fish in the stream. Maybe tomorrow.
+ @closescript
+ @end
+
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2Wanna try your luck fishing? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is N then do
+ @begin
+ @do saybar
+Maybe later when the fish are biting.
+ @closescript
+ @end
+
+@label fishcast
+
+@do `p20 is `i29
+@do `p20 + `i30
+@do `s01 is `p20
+@if `s01 is 0 then `s01 is no
+
+@show
+`r0`c `r1 `%The Fishing Dock `r0
+
+ `2You sit yourself down on the dock and relax a bit.
+
+ You have `s01 fish.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Cast far
+Cast short
+Get up and leave
+@if responce is 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if response is 1 then do
+ @begin
+ @do `p20 random 80 20
+ @show
+`\`\ `2You whip your rod fast and watch as your hook plops down
+ about `0`p20`2 feet away.
+
+@end
+
+@if response is 2 then do
+ @begin
+ @do `p20 random 20 1
+ @show
+`\`\ `2You gently cast the pole. Your hook makes a soft splash
+ about `0`p20 `2feet away.
+
+@end
+
+
+@do write
+ `2You wait.`l.`l.`l.`l.
+@if `t10 < 1 then do
+ @begin
+ @show
+`4No fish are biting.`2
+
+ It looks like the action is finished for today.
+
+`k
+ @do goto fishcast
+ @end
+@do `p20 random 2 1
+@if `p20 is 1 then do
+ @begin
+ @show
+`4Nothing happens.
+
+`2 You reel the line back in.
+
+`k
+ @do goto fishcast
+ @end
+@if `p20 is 2 then do
+ @begin
+ @show
+`%You have a bite!`2
+
+@do write
+`k
+@do `p20 random 4 1
+@IF `P20 IS 1 then do
+ @begin
+ ;catching a special fish
+ @show
+ The fish is suprisingly strong! But you reel it in slowly...
+
+@do write
+`k
+@do `p20 random 4 1
+@IF `P20 IS 1 then do
+ @begin
+ @show
+ `bTHE LINE BREAKS!
+
+ `2The mighty fish has escaped.
+
+`k
+ @do goto fishcast
+ @end
+ @show
+ `2You have just caught a `0Sparkling Green Salmon`2!
+`\`k
+ @do `i30 + 1
+ @do `t10 - 1
+ @do goto fishcast
+ @end
+
+ @show
+ You slowly reel the fish to shore.
+
+`k You have caught a Salmon.
+
+`k
+ @do `i29 + 1
+ @do `t10 - 1
+ @do goto fishcast
+ @end
+ @end
+
+
+;---BarTender in Bar (`Dave Mustain')
+@#BarTender
+ @BUSY
+ @DO MOVEBACK
+ @do `v01 is 1
+@show
+`r0`c `r1`15 Devils Island Bar! `r0
+
+ `0"Hello there, I'm Dave Mustain, You might know me, Im the lead singer for
+ MegadetH. I must say we rock!. So what can I do you for today?...
+
+@do write
+`x`x
+@choice
+>&money 9 Whisky (`$$10`%)
+>&money 19 Rum (`$$20`%)
+>&money 39 Jd (`$$40`%)
+>&money 1 Coors (`$$2`%)
+Leave
+@if response not 5 then do
+ @begin
+ @show
+
+@if response is 1 then do
+ @begin
+ @do money - 10
+ @do `p96 + 4
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 5
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"Gimme some Whisky." `2you say as you pay him.
+`\`k
+ @do goto Bartender
+ @end
+
+@if response is 2 then do
+ @begin
+ @do money - 20
+ @do `p96 + 7
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 10
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"Gimme some Rum." `2you say as you pay him.
+`\`k
+ @do goto bartender
+ @end
+
+@if response is 3 then do
+ @begin
+ @do money - 40
+ @do `p96 + 13
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 20
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"Gimme some Jd." `2you say as you pay him.
+`\`k
+ @do goto bartender
+ @end
+
+@if response is 4 then do
+ @begin
+ @do money - 2
+ @do `p96 + 2
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 2
+ @if `p02 > `p03 then `p02 is `p03
+ @end
+ @show
+`\`\ `$"I want a bottel of coolors." `2you say as you pay him.
+`\`k
+ @do goto bartender
+ @end
+
+@if responce is 5 then do
+ @begin
+ @show
+`\`\ `$"Hey now, Don't be a stranger, come back now..."
+`\`k
+ @end
+ @end
+ @drawmap
+ @update
+ @closescript
+ @end
+
+;---Bathroom.
+@#Bathroom
+ @do saybar
+ `9A sign on the door says, "Closed", Damnit! I gotta go!
+ @do moveback
+ @busy
+ @end
+ @closescript
+
+;---Nice little drug dealer.
+@#Drugdealer
+ @BUSY
+ @DO MOVEBACK
+ @do `v01 is 1
+ @update_update ;for crash reasons
+ @clear screen
+ @show
+[?7h[40m[2J[40m
+[0;1m ������[62C[0m�[1m�����
+ [47m��[40m�����[47m�[40m� [0m�[1;47m�[40m���[43C[0m�[1m�[47m�[40m��[5C[0m�[1;47m�[40m��������
+ �������� [0m�[1;47m�[40m���[7C[47m [40m�[29C���� [0m�[1;47m�[40m���[6C[0m�[1;47m�[40m������
+ �������[0;31m�[1m�[0;31m� [37m� [31m� [37m�[1;47m�[40m���[24C�������[6C[0m� [31m�� [37m�[1;47m�[40m����
+[7C��� [0;31m�[1m�[47m��[41m�[40m���[41m�[0;31m� [47m [1;37;40m������[20C��������� [0;31m�[1;41m�[47m�[40m���[41m���[0;31m�[37m��[1m�
+[12C[0;31m�[1m��[41m�[40m�[47m�[41m�[0;31m�[37m��[1m��� [0m�[1m��[16C��� ������[0;31m�[1;41m�[40m�[47m�[41m�[40m��[0;31m�
+
+
+[6C[1;37m"[0mHey you, You wanna by some acid, cannabis hemp, or some LSD?[1m"
+@
+@do write
+`x`x`x
+@CHOICE
+>&money 9 Acid (`$$10`%)
+>&money 4 WeeD(Cann.) (`$$5`%)
+>&money 39 LSD (`$$40`%)
+Leave
+@if response not 4 then do
+ @begin
+ @show
+
+@if response is 1 then do
+ @begin
+ @do money - 10
+ @do `p02 - 10
+ @show
+`\`\ `$"You take the Acid. Suddlenly you begging to trip WhoAaA."
+`\`k
+ @do goto Drugdealer
+ @end
+
+@if response is 2 then do
+ @begin
+ @do money - 5
+ @do `p02 - 5
+ @show
+`\`\ `$"You take the WeeD, Well not much of a Hi, But it was good."
+`\`k
+ @do goto Drugdealer
+ @end
+
+@if response is 3 then do
+ @begin
+ @do money - 40
+ @do `p02 - 40
+ @show
+`\`\ `$"You take the LSD, DaMn YoUr WaCkEd!."
+`\`k
+ @do goto Drugdealer
+ @end
+
+ @end
+ @do moveback
+ @drawmap
+ @update
+ @update_update
+ @closescript
+
+;---Sign around docks
+@#Sign1
+@do saybar
+ `6North Side of Devils Island! v1.50
+
+;---Weaponds and armour shop
+@#WASHOP
+ @offmap
+ @busy
+ @do moveback
+@label wast
+ @do `v01 is 1
+ @show
+`r0`c `%Devils Island Weaponds and armour shop
+
+`2 You see fine weaponds, leather, chains, foods, all over the place.
+
+@do write
+`x`x
+@choice
+See Armour
+See Weaponds
+See spells
+See potions
+Buy tickets
+See goodies
+Leave.
+ @show
+ `\
+
+@if responce is 1 then do begin
+ @begin
+ @clear screen
+@buymanager
+ 10
+ 12
+ 14
+ 37
+ 63
+ 62
+ 68
+ @end
+
+@if responce is 2 then do begin
+ @begin
+ @clear screen
+@buymanager
+ 6
+ 15
+ 36
+ 39
+ 58
+ 59
+ 60
+ 65
+ 71
+ @end
+
+@if responce is 3 then do begin
+ @begin
+ @clear screen
+@buymanager
+ 70
+ 64
+ @end
+
+@if responce is 4 then do begin
+ @begin
+ @clear screen
+@buymanager
+ 55
+ 50
+ 40
+ @end
+
+@if responce is 5 then do begin
+ @begin
+ @clear screen
+@buymanager
+ 20
+ 26
+ 27
+ 32
+ 33
+ @end
+
+@if responce is 6 then do begin
+ @begin
+ @clear screen
+@buymanager
+ 1
+ 3
+ 29
+ 30
+ 43
+ @end
+
+@if responce not 7 then goto wast
+
+ @end
+ @drawmap
+ @update
+ @end
+
+@#done
+;------------------------<END OF DEVISL.REF>---------------------------------
+;Memory takes up: Unsure :< Can't figure it out. But! I have seen people
+ ;Have memory peoblems. Make sure EMM386 Is installed and or it looks like
+ ;this "DEVICE=(PATH)\IMM386.EXE RAM" (Makes hi memory btw dont add this)
diff --git a/xtrn/lord2/cnw/devisl2.ref b/xtrn/lord2/cnw/devisl2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..5493c06f33d2ece5307d59f903e874aef75c7019
--- /dev/null
+++ b/xtrn/lord2/cnw/devisl2.ref
@@ -0,0 +1,278 @@
+; Script file DEVISL2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:33 2001
+
+@DECLARE fight 000000751
+@DECLARE monster1 000000815
+@DECLARE monster2 000001344
+@DECLARE monster3 000001884
+@DECLARE monster4 000002409
+@DECLARE monster5 000002927
+@DECLARE monster6 000003485
+@DECLARE monster7 000004003
+@DECLARE monster8 000004570
+@NOCHECK
+; End of .REF index
+
+; Ref File for Devils Island Version v1.50
+; MetaLHeaD Softwares, Copyright 1997(c), All Rights Reserved...
+; DarkLandsBBS 2i5.487.73i5 Call it...
+;-----------------///DONT TOUCH USED BY INSTALL.EXE///-----------------------
+; REGISTERED
+; VERSION 1.50
+; REL: 12-07-97 : 10:22am
+;-----------------///HELL'S MONSTERS, SCREEN 864///--------------------------
+
+@#Fight
+@busy
+@do `p20 random 8 1
+@do goto monster`p20
+
+@#monster1
+@fight
+;name
+Devils Advocate
+;string said when you see him
+Devillsh looking person.
+;power move kill string
+It floats into the air disappears!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+burns you|80
+throws fire balls|100
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+60
+;gold reward
+289
+;experience
+122
+;hit points
+500
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Gremlin
+;string said when you see him
+Little weird looking thing.
+;power move kill string
+Green slim on the floor ich!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+Shoots you with slime|90
+squeezes your crotch|80
+Runs you over|100
+NONE|NONE
+NONE|NONE
+;defense
+34
+;gold reward
+289
+;experience
+122
+;hit points
+400
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Hell Hound
+;string said when you see him
+Huge dog, with glowing red eyes.
+;power move kill string
+It flies back as you kill it.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Bites you|60
+bits your|60
+Jumps on you|100
+NONE|NONE
+NONE|NONE
+;defense
+34
+;gold reward
+289
+;experience
+122
+;hit points
+300
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Magma dude
+;string said when you see him
+Fiery looking guy.
+;power move kill string
+Burns out.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Shoots you with firebals|190
+Burns you|180
+Surrounds you in fire|200
+NONE|NONE
+NONE|NONE
+;defense
+34
+;gold reward
+289
+;experience
+122
+;hit points
+190
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Baby dragon
+;string said when you see him
+A half sized dragon. Aww aint it so cute NOT!
+;power move kill string
+It falls to the ground
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Shoots you with firebals|190
+Burns you|110
+Surrounds you in fire|100
+NONE|NONE
+NONE|NONE
+;defense
+34
+;gold reward
+289
+;experience
+122
+;hit points
+990
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster6
+@fight
+;name
+Pyro Jelly
+;string said when you see him
+Pyro Lunatic, careful!
+;power move kill string
+Die's.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Lights you with a ligter|190
+Burns you|180
+Surrounds you in fire|200
+NONE|NONE
+NONE|NONE
+;defense
+34
+;gold reward
+289
+;experience
+122
+;hit points
+190
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster7
+@fight
+;name
+Druid
+;string said when you see him
+Dressed in a brown robe, some blood on the side of his mouth!
+;power move kill string
+Disappear's
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Wacks you with a stick|190
+Performs magic on you|180
+Surrounds you in fire|200
+NONE|NONE
+NONE|NONE
+;defense
+34
+;gold reward
+289
+;experience
+122
+;hit points
+190
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster8
+@fight
+;name
+Moving Flame
+;string said when you see him
+Moving Fire, with teeth!
+;power move kill string
+Disappear's
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Burns you|190
+Melts you skin|180
+Spread
+s around you|200
+NONE|NONE
+NONE|NONE
+;defense
+34
+;gold reward
+289
+;experience
+122
+;hit points
+190
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+;-----------------///END OFHELL'S MONSTERS, SCREEN 864///---------------------
diff --git a/xtrn/lord2/cnw/df.ref b/xtrn/lord2/cnw/df.ref
new file mode 100644
index 0000000000000000000000000000000000000000..4e2d9de966a80950a85f0872a1c57ab28d9edd24
--- /dev/null
+++ b/xtrn/lord2/cnw/df.ref
@@ -0,0 +1,267 @@
+; Script file DF.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:37 2001
+
+@DECLARE guard 000000634
+@DECLARE locke 000000711
+@DECLARE matt 000000794
+@DECLARE kstart 000001113
+@DECLARE help 000002037
+@DECLARE 000002199
+@DECLARE krystal2 000002213
+@DECLARE krystal3 000003609
+@DECLARE ps 000004027
+@DECLARE touch 000004097
+@DECLARE zelda 000004193
+@DECLARE wee 000004252
+@DECLARE auto 000004309
+@DECLARE welcome 000005117
+@DECLARE computer 000005208
+@DECLARE man 000005287
+@DECLARE man2 000005360
+@DECLARE man3 000005454
+@DECLARE man4 000005558
+@DECLARE man5 000005660
+@NOCHECK
+; End of .REF index
+
+@#Guard
+@do saybar
+`2You better be good or you won't make it back home.
+
+@#Locke
+@Do moveback
+@do saybar
+`5Locke`2: Why me?! Why is it always broken?!
+
+@#Matt
+;My Boss
+@busy
+@do moveback
+@do `p20 is 0
+@dataload DF.IDF &playernum `p98
+
+@if `p98 is 1 then do
+@begin
+@run Krystal2 in DF.REF
+@end
+
+@if `p98 is 2 then do
+@begin
+@run Krystal2 in DF.REF
+@end
+
+@if `p98 is 3 then do
+@begin
+@run Krystal3 in DF.REF
+@end
+
+@do `p20 is 0
+@do `p97 is 0
+@label KStart
+@do `v01 is 1
+@show
+`r0`c`r1 `%Matt the President `r0
+
+ `2As you enter the room you see Playstation posters fill every inch of
+ `2wall. Matt raises an eyebrow...
+
+ `2"What do you want?" he asks.
+
+@choice
+<`p97 1 I heard you're in a bit of some trouble.
+=`p97 1 I'll help you destroy SoldaCar!
+Run!
+@if responce is 3 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+
+@if responce is 2 then do
+@begin
+@do write
+`\`\
+@show
+ `0"Thank you! Check the Computers downstairs to learn the
+ `0location of SoldaCar headquarters. Your mission, is to
+ `0kill the evil Dr. Notnilc who has kidnapped my dog for
+ `0his "science." Please hurry.
+
+@key
+@datasave df.IDF &playernum 1
+@drawmap
+@update
+@closescript
+@end
+
+
+@if responce is 1 then do
+@begin
+@display help in DF.REF
+@key
+@do `p97 is 1
+@do goto KStart
+@end
+
+@if responce is 1 then do
+
+@#help
+`c`r0 `%We want you!
+
+ `2Well you see, we are at war with SoldaCar and we need someone
+ `2to help us take them out... Will you be that person?
+@#
+
+@#Krystal2
+@do `v01 is 1
+@show
+`r0`c`r1 `%The President `r0
+
+ `2As you enter the room you see Playstation posters fill every
+ `2inch of wall. Matt raises an eyebrow...
+
+ `2He looks at you and speaks, "Did you destroy Notnilc and save
+ `2my dog?"
+
+@choice
+=`p98 2 I have done so. But I have bad news as well...
+=`p98 1 I have yet to do so.
+@if responce is 2 then do
+@begin
+@do write
+`\`\
+@show
+ `0"Please hurry. There isn't much time!"
+@key
+@drawmap
+@update
+@closescript
+@end
+
+@If responce is 1 then do
+@begin
+@show
+`r0`c`r1 `%VICTORY! `r0
+
+ `2"You have defeated SoldaCar! Thank you! Now, where is my dog?"
+ `2he asks softly.
+
+ `%"I'm sorry to inform you of this. But I was too late.
+ `%Dr. Notnilc transformed Zelda into a monster and it had to
+ `%be destroyed...
+
+ `2Matt stands there, motionless. Locke hears the news and talks
+ `2to Matt.
+
+ `7Locke speaks up, "I talked to him so he should be ok now.
+ `7Thank you for helping us. In return, I shall give you a reward."
+
+ You get 20 Muscle and 20 Dodge!
+@key
+@do `p03 + 20
+@do `p04 + 20
+@datasave df.idf &playernum 3
+@do addlog
+ `r1 `r0 `0`n`% has solved the `4SoldaCar Crisis`%!`r1 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+
+@drawmap
+@update
+@closescript
+@end
+
+@#Krystal3
+@show
+`r0`c`r1 `%Matt `r0
+
+ `2As you enter the room you see Playstation posters fill every inch of
+ `2wall. Matt raises an eyebrow...
+
+ `2Matt looks up at you... "Ah, it is you again. Well, Locke has helped
+ `2me calm down. But I don't want to speak now... Please, leave...
+
+@choice
+Sorry, I'll leave.
+@if responce is 1 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+
+
+@#PS
+@do saybar
+Matt: `2Wouldn't you rather play PlayStation?
+
+@#Touch
+@Do moveback
+@Do saybar
+`5Locke`2: Don't touch my computer. It's fucked anyway...
+
+@#Zelda
+@Do saybar
+Matt: `2I wonder where Zelda is now?
+
+@#Wee
+@do saybar
+Weeeeeee! I love indoor swimming!
+
+@#Auto
+@do moveback
+@busy
+@show
+`r0`c `%`r1 A Computer Image `r0
+
+ `3You walk up to the computer to ask for directions. Suddenly the blank
+ screen turns into a face of a Woman.
+
+ `2"Here are your directions: To the SouthWest of you is the council
+ room. Today they are debating about the SoldaCar crisis. You might
+ Want to talk to them...
+ To your SouthEast is the Computer room, where we gather as much
+ info on this world. Go there and it may give you some info on things.
+ Upstairs are the personal quarters of our Leaders, Matt & Locke.
+ You might wanna talk to them last because they are kinda in a huff
+ about SoldaCar kidnapping Mat's dog. Enjoy!"
+
+ `3"Thanks... er..."
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#Welcome
+@do saybar
+Welcome to the Computer room. Use the purple terminal to start.
+
+@#Computer
+@do saybar
+On the screen you see a dark castle in the RockHolm Mts.
+
+@#Man
+@do moveback
+@do saybar
+Man: `2We must get rid of SoldaCar!
+
+@#Man2
+@do moveback
+@do saybar
+Ashley: `2But what can we do? Our spys have been killed.
+
+@#Man3
+@do moveback
+@do saybar
+Man: `2If we want to attack them, we'll need a very small force...
+
+@#Man4
+@do moveback
+@do saybar
+Woman: `2Why don't you become our spy? Go upstairs and ask Matt.
+
+@#Man5
+@do moveback
+@do saybar
+Man: ...
diff --git a/xtrn/lord2/cnw/dforest.ref b/xtrn/lord2/cnw/dforest.ref
new file mode 100644
index 0000000000000000000000000000000000000000..970cd697d41a7f0f30e8260c57a9adc21ed051f0
--- /dev/null
+++ b/xtrn/lord2/cnw/dforest.ref
@@ -0,0 +1,532 @@
+; Script file DFOREST.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:13 2001
+
+@DECLARE bird 000000832
+@DECLARE warp 000004554
+@DECLARE run 000004686
+@DECLARE win 000005108
+@DECLARE tree 000005406
+@DECLARE sign 000005518
+@DECLARE darksign 000005664
+@DECLARE enter 000005760
+@DECLARE monster1 000006760
+@DECLARE monster2 000007409
+@DECLARE monster3 000008058
+@DECLARE monster4 000008685
+@DECLARE monster5 000009316
+@DECLARE monster6 000009983
+@DECLARE fight1 000010586
+@DECLARE fiteme 000011204
+@DECLARE fight2 000011259
+@DECLARE fiteme2 000011882
+@DECLARE win2 000011935
+@DECLARE done 000011964
+@NOCHECK
+; End of .REF index
+
+;NOTE: This file has been modified by ShroomTrip Software. Please read the
+; Sysop.Doc that came with this file to determine what changes have been
+; made.
+
+@#bird
+@if bitcheck `t14 3 1 then do
+ @begin
+ @do moveback
+ @do saybar
+Tash's dead body lies still.
+ @closescript
+ @end
+
+@do `v01 is 1
+@pauseoff
+@do moveback
+@show
+`r0`c
+[44C[1;30m����[0m [1;30m��[0;32m����[1;30;42m��[32m������[0;32m��
+[A[65C[1;30;42m��[0;32m������[1m������
+[A[79C�[26C[33m [12C[30m��[0m [1;30m�[0m [1;30m��[42m������[40m
+[A[54C[42m[0;32m������[3C�����[1;42m��[33m�[32m����[40m���[42m�[40m
+[A[79C[42m�[3C[0;33m�[37m [33mnighthawk[21C��[6C[1;30m�[0m
+[A[45C[1;30m�[42m۲��[40m�߰[0m [32m�����[1;30;42m � [32m����[40m
+[A[69C[42m����[40m�����[42m�[40m
+[A[79C[42m�[0m [1;33m�[0;33m�ܲ��߰[1m��[0;33m�[37m [33m�
+[A[14C[1;30m��[6C[0;33m�[37m [33m��[1;30m�[4C�[0m [1;33m�
+[A[35C[43m�[40m�[0;33m��[1;30m�[3C�[0m [1;30m���[4C[0;32m��
+[A[54C[1;42m�������[30m [32m� ������[33m�[32m��������[40m
+[A[79C[42m�[0m [33m��[1;43m�[31C[0;33m�[1;43m�[0;33m�[5C
+[A[43C[1;30m�[0m [1;30m��[0;32m��[1;42m�����������[33m�[0;32m��
+[A[64C����[1;42m�����������[40m
+[A[79C[42m�[0m [33m�[1;43m�[32C[0;33m�[6C[1;30m�[0m [32m�
+[A[46C[1;42m������[40m���[42m����[33m��[0;32m��[1;30;42m��[0;32m
+[A[65C��[1;30;42m�[0;32m�����[5C�
+[A[79C[1;33;42m�[3C[0;33m�[4C[1;30mStanding before you is a[4C
+[A[36C[0;33m�[6C[1;30m�[0m [1;32;42m����[40m�[42m۲��������[40m
+[A[60C[42m[0;32m��[4C[1m�[0;32m�
+[37m [33m��[1;43m�[40C[0;32m�[1;42m����������[0;32m��[10C�
+[3C[33m�[4C[1;30mNighthawk. With the body [9C[0;32m�[1;42m������[40m
+[A[51C[42m[0;32m߲�[3C[1;30m�[8C[0;31m�[37m [1m �[0;31m�[6C
+[A[77C[1;30m�[0m�
+[A[79C [3C[1;33m�[32C[0;33m�[8C[1;42m��[32m��[3C[0;32m�[1m�
+[A[54C[10C[0;31m�[1;33;41m�[0m [32m�[37m [1m �[0;35;41m�[40m
+[A[72C[41m[31;40m�[37m [1;30m�[0m�
+ [33m�[1;43m�[0;33m�[3C[1;30mof a man and head of a [C[0;33m�
+[A[37C[1;30m�[5C�[0;32m �[7C[1m�[6C[30m�[0m�� [1;31;41m�[40m
+[A[65C[41m[0;31m��[4Cް
+[3C[33m�[32C�[6C[32m�� [10C[1;30m��[0m�[4C[1;30m�[0m [31m�
+[A[66C[37m� [1m�[0;31m�
+[3C[33m�[4C[1;30mchicken, this abomination[9C�[32;42m��[0;32m�
+[A[46C[37m [1;30m��[0m [32m�[15C[31m�
+[43C[1;32m�[42m�[33m�[0m [1;30m߲�[42m����[40m��[0;32m����[6C�
+[A[68C[10C�
+[A[79C�[3C[33m�[4C[1;30mof nature must be slain.[11C[0;32m [1m��
+[A[46C[0;32m��[37m [32m [37m [1;30m������߲[42m��[0;32m�����
+[A[68C[1;42m���[33m�[0;32m������[1;33;42m�[40m
+[A[79C[42m�[3C[0;33m�[32C�[6C[1;32;42m��[40m��[0;32m [37m
+[A[50C[1;30m����[0;32m������[7C�[1;33;42m�[0;32m�������[1;33;42m�[40m
+[A[77C[42m��[40m
+[A[79C[42m�[3C[43m�[0;33m�[30C�[1;43m�[0;33m�[4C[1;30m�
+[A[43C[32;42m����[40m���[7C[30m��[42m����ܰ[0;32m�����[37m
+[A[71C[1;30m��[5C[0;32m�
+[A[79C�[37m [1;33m���[0;33m��[37m [1;33m�[0;33m�[37m [33m��
+[A[13C[7C[1;30m��[8C[33m��[0;33m� [1m�[0;33m��[1;30m߰[2C
+[A[46C
+
+`k
+@fight
+;name
+Tash
+;string said when you see him
+`0"HOW DID YOU FIND ME?! NO MATTER, I WILL DINE ON YOUR CARCASS."
+;power move kill string
+You split the thing wide open!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+pecks you|46
+stares at you|56
+screams at you|31
+NONE|NONE
+NONE|NONE
+;defense
+19
+;gold reward
+1500
+;experience
+800
+;hit points
+80
+;if win: ref file|name or NONE
+DFOREST.REF|WIN
+;if lose: ref file|name or NONE
+gametxt.ref|die
+;if runs: ref file|name or NONE
+dforest.ref|run
+
+@#warp
+@do map is 1271
+@do x is 10
+@do y is 8
+@loadmap &map
+@drawmap
+@update
+@do quebar
+Gawd!! Where in hell are you now?
+
+@#run
+@do map is 1512
+@do x is 1
+@do y is 1
+@loadmap &map
+@show
+`r0`c `r1 RUNNING FOR YOUR LIFE `r0
+
+ `0"RUN FROM TASH, WILL YOU?! I WILL SEND YOU TO WHERE YOU BELONG!"
+
+`k `$"Oh yeah? Where do I belong?" `2you ask as you feel your body
+ floating away...
+
+`k
+@drawmap
+@update
+@do quebar
+Your mind is buzzing.. you need to find your way out quick.
+@do quebar
+Damn tash and his childish games!
+
+@#win
+@show
+`r0`c `r1 `%YOU HAVE SLAIN THIS BEAST! `r0
+
+ `2Tash's dead body lays on the cold stone floor before you.
+
+`k `2You search the body and find a `%Moonstone`2!
+
+ `2Now, if you can just figure out how to get out...
+
+`k
+@drawmap
+@update
+@do `i57 + 1
+@bitset `t14 3 1
+
+@#TREE
+;Dead tree in the Mystery Forest
+@DO SAYBAR
+`2You hear the tree whisper "Join me..."
+@do moveback
+
+@#SIGN
+;Sign outside the mystery forest entrance
+@DO SAYBAR
+`bWarning:`2 Dark Forest area condemned by GreenTree Council.
+@do moveback
+
+@#DARKSIGN
+;When enter the Dark Forest
+@DO SAYBAR
+`2You ... feel this is a dark & evil place
+
+@#ENTER
+;When enter the Mystery Forest
+
+@IF &lasty is 11 then do
+@BEGIN
+@DO SAYBAR
+`2You're glad to get out of that place.
+@CLOSESCRIPT
+@END
+1
+@BUSY
+@DO `v01 is 1
+@SHOW
+`r0`c `r1 You feel darkness is just beyond this path... `r0
+
+ `2After reading the sign you realize only a complete fool would risk
+ s&his life by going in there. You can't help but remember your mother's
+ stories, and the time your uncle came back bleeding, buck naked and
+ speaking in unknown tongues.
+
+@DO WRITE
+`x`x
+@CHOICE
+Ignore the warnings; your mind is too strong for these tricks
+Heed the warnings and run back to mommy
+@IF RESPONSE IS 1 THEN DO
+@Begin
+@Show
+`\`\ `2Illusions are for the weak, you will not falter.
+`\`k
+@DRAWMAP
+@UPDATE
+@DO SAYBAR
+`2You feel a chill as you pass the gate.
+@CLOSESCRIPT
+@End
+@IF RESPONSE IS 2 THEN DO
+@Begin
+@Show
+`\`\ `2You are wise, and may live to fight another day.
+`\`k
+@DO MOVEBACK
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+
+@#monster1
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Dark Tree
+;string said when you see him
+You walk too close to the woods ... A branch lashes out!
+;power move kill string
+Better replant something for that one!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+branches out & hits|12
+gives you its wood|26
+slashes you with its broken branches|17
+NONE|NONE
+NONE|NONE
+;defense
+17
+;gold reward
+89
+;experience
+45
+;hit points
+70
+;if win: ref file|name or NONE
+DFOREST.REF|WIN2
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+DFOREST.REF|WIN2
+
+@#monster2
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Dark Elf
+;string said when you see him
+A bow pokes out from the woods ...
+;power move kill string
+`$"Dark, dead, I'm the one with the gun" `2you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+makes contact with an arrow|14
+stabs you with his wooden dagger|8
+punctures your leg, ouch|16
+NONE|NONE
+NONE|NONE
+;defense
+0
+;gold reward
+46
+;experience
+76
+;hit points
+80
+;if win: ref file|name or NONE
+DFOREST.REF|WIN2
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+DFOREST.REF|WIN2
+
+@#monster3
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Dark Wolf
+;string said when you see him
+A howling sound approaches
+;power move kill string
+`$"Put em on the endangered species list."
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+takes a bite of your leg|8
+slashes with its claws|7
+introduces your ankle to his teeth|14
+NONE|NONE
+NONE|NONE
+;defense
+5
+;gold reward
+46
+;experience
+48
+;hit points
+55
+;if win: ref file|name or NONE
+DFOREST.REF|WIN2
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+DFOREST.REF|WIN2
+
+@#monster4
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Ghost
+;string said when you see him
+You hope that thing approaching is just a trick of light!
+;power move kill string
+You have killed the undead. Not bad.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+laughs at you|0
+takes you to the other side|15
+grabs at your soul|30
+NONE|NONE
+NONE|NONE
+;defense
+29
+;gold reward
+176
+;experience
+167
+;hit points
+90
+;if win: ref file|name or NONE
+DFOREST.REF|WIN2
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+DFOREST.REF|WIN2
+
+@#monster5
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Evil Elf
+;string said when you see him
+You trip over an outstreched foot, whoever did that is evil
+;power move kill string
+now he's evil and crippled, nobody trips you
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+uses his quarterstaff on your head|8
+contacts you with his foot|10
+stabs with a wooden dagger|6
+NONE|NONE
+NONE|NONE
+;defense
+4
+;gold reward
+29
+;experience
+17
+;hit points
+40
+;if win: ref file|name or NONE
+DFOREST.REF|WIN2
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+DFOREST.REF|WIN2
+
+@#monster6
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Bear
+;string said when you see him
+You hear the roar of something big ... not good
+;power move kill string
+hey, smokey take that!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites your good hand|9
+claws your chest|10
+lunges at you, claws out|7
+NONE|NONE
+NONE|NONE
+;defense
+6
+;gold reward
+25
+;experience
+19
+;hit points
+45
+;if win: ref file|name or NONE
+DFOREST.REF|WIN2
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+DFOREST.REF|WIN2
+
+
+@#FIGHT1
+@busy
+@do `p21 random 4 1
+@if `p21 is 1 then do
+ @begin
+ @do `p25 is X
+ @do `p25 + 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do `p25 is X
+ @do `p25 - 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 - 1
+ @do goto fiteme
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 + 1
+ @do goto fiteme
+ @end
+
+@#fiteme
+@do `p20 random 4 1
+@do goto monster`p20
+
+@#FIGHT2
+@busy
+@do `p21 random 4 1
+@if `p21 is 1 then do
+ @begin
+ @do `p25 is X
+ @do `p25 + 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme2
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do `p25 is X
+ @do `p25 - 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme2
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 - 1
+ @do goto fiteme2
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 + 1
+ @do goto fiteme2
+ @end
+
+@#fiteme2
+@do `p20 random 2 5
+@do goto monster`p20
+
+@#WIN2
+@drawmap
+@update
+
+@#done
diff --git a/xtrn/lord2/cnw/disco.ref b/xtrn/lord2/cnw/disco.ref
new file mode 100644
index 0000000000000000000000000000000000000000..d11e66b779427b4facf618ba9ef974eb3085c61f
--- /dev/null
+++ b/xtrn/lord2/cnw/disco.ref
@@ -0,0 +1,236 @@
+; Script file DISCO.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:13 2001
+
+@DECLARE start 000000229
+@DECLARE start2 000000399
+@DECLARE done 000005694
+@DECLARE locked 000005786
+@NOCHECK
+; End of .REF index
+
+@#START
+;@if `p71 is 0 then goto start2
+@if bitcheck `t50 7 1 then goto locked
+@if bitcheck `t51 7 1 then goto locked
+@if bitcheck `t51 1 1 then goto locked
+
+@label start2
+@DO MOVEBACK
+@datanewday disco.idf
+@dataload disco.idf &playernum `p20
+@IF `p20 IS 1 THEN DO
+ @BEGIN
+ @DO GOTO LOCKED
+ @END
+@CLEAR SCREEN
+@SHOW
+`% �
+`% �
+`% ��ܰ���
+`% ܱ����������� `4G`7-`6Dogg's
+`% ܱ��������������� `2D`3i`#s`$c`0o
+`% ܱ������������������� `7Hall
+`% ۱�������������������
+`% ߱�������������������
+`% ߱���������������
+`% ߱�����������
+`% �������
+
+`5 You enter the disco hall and are greeted by a big white ball hanging
+from the ceiling. You see tons of people "getting funky" and making complete
+idiots out of themselves! You ponder what to do...
+@KEY BOTTOM
+@CLEAR SCREEN
+@SHOW
+`$ �� � `!���� ��� `0�������� `@ ����
+`$ �� � `!�� �� �� � `0�� `@ ��� ��
+`$ ������ `!�� �� �� � `0�� `@��� ��
+`$ �� `!�� ��� � `0�� `@��������
+`$ �� `!�� � `0�� `@�� �
+`$ �� `!�� � `0�� `@�� �
+`$ �� `!�� � `0�������� `@�� �
+`%
+@do move 25 10
+@do `v01 is 1
+@CHOICE
+Dance in the Disco
+Leave before someone you know sees you
+Kick the bouncer's ass
+>`p71 0 Dance with your date
+@if response is 4 then do
+ @begin
+ @do `p26 is `p71
+ @routine getname in npcname2.ref
+ @do move 1 1
+ @CLEAR SCREEN
+ @SHOW
+
+
+
+
+ `0 Yeah! Time to show `s01 your disco moves!
+`k
+ After an hour of constant dancing, you both decide to leave
+ the place and relax a while.
+
+ @bitset `t50 6 1
+ @bitset `t51 1 1
+ @do `p20 random 3 1
+ @if `p20 is 1 then do
+ @begin
+ @bitset `t51 7 1
+ @end
+ @dataload npc/npc-`p71.idf &playernum `p26
+ @do `p26 + 1
+ @do `p26 + `p20
+ @if `p26 > 200000 then `p26 is 200000
+ @datasave npc/npc-`p71.idf &playernum `p26
+ @do `p08 + 1
+ @do `p02 / 2
+ @do `p01 + 250
+ @do `p11 - 100
+ @do goto done
+ @end
+
+@IF RESPONCE IS 3 THEN DO
+ @BEGIN
+ @CLEAR SCREEN
+ @SHOW
+ @KEY BOTTOM
+ @CLEAR SCREEN
+ @SHOW
+ `4 You pull back your fist to punch the bouncer and all of a sudden...
+ WHAM! Everything goes black!
+
+
+ `0 When you awake, you realize that you don't feel very well. You also
+ notice that you spent a great deal of time unconscious... Better not try
+ that again...
+
+
+
+`6 HITPOINTS ARE AT 1
+ YOU HAVE LOST 300 TURNS
+ @DO `p02 IS 1
+ @DO `p11 - 300
+ @DO GOTO DONE
+ @END
+
+7@IF RESPONCE IS 2 THEN DO
+ @BEGIN
+ @SHOW
+
+
+`0You exit the disco hall behind the cover of a fat woman! Whew! It's good to
+ be outta there!!!
+ @DO GOTO DONE
+ @END
+@CLEAR SCREEN
+@SHOW
+
+
+
+
+ `0 Yeah! Time to show some of them so called disco-ers your moves!
+@DO `p20 RANDOM 10 1
+@IF `p20 IS 1 THEN DO
+ @BEGIN
+ @SHOW
+
+`3 You manage to make a complete ass outta yourself! All ya did is waste
+ precious time!
+
+
+@DO `p11 - 50
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 2 THEN DO
+ @BEGIN
+ @SHOW
+
+`5 You were discoing when all of a sudden, you bounced into some fat woman!
+ You then richocheted into the bouncer who painfully throws ya out!
+@DO `p02 = 1
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 3 THEN DO
+ @BEGIN
+ @SHOW
+
+`3 You were getting down when all of a sudden an old woman falls down on the
+ floor and has a heart attack! You instinctively dial 911 and save her life!
+ Way to go!
+@DO `p07 + 1
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 4 THEN DO
+ @BEGIN
+ @SHOW
+
+`7 While getting down on the dance floor you bang into someone! Then ya feel
+ like moshing! You mosh all over the place and the hall becomes a mosh pit!
+ This has to be one of the most evil things ya ever did! He he he!!!
+ @DO `p07 - 1
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 5 THEN DO
+ @BEGIN
+ @SHOW
+
+`5 You dance in the disco but nothing happens... You just have some fun...
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 6 THEN DO
+ @BEGIN
+ @SHOW
+
+`6 You jazz up the dance floor and win a disco contest in which the prize is
+ one hundred gold!
+ @DO money + 100
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 7 THEN DO
+ @BEGIN
+ @SHOW
+
+`9 You got down on the dance floor but all ya wasted was precious time...
+ @DO `p11 - 50
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 8 THEN DO
+ @BEGIN
+ @SHOW
+
+`# All that disco has somewhat relaxed you and makes you feel better! You are
+ totally refreshed!
+ @DO `p02 = `p03
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 9 THEN DO
+ @BEGIN
+ @SHOW
+
+`@ All that discoing has improved your lung capicity! You feel a lot
+ healthier!
+ @DO `p03 + 1
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 10 THEN DO
+ @BEGIN
+ @SHOW
+
+`$ While discoing you manage to find some spare change on the floor... Not a
+ lot of cash but still it's free!
+ @DO money + 25
+ @DO GOTO DONE
+ @END
+@#DONE
+@datasave disco.idf &playernum 1
+@KEY BOTTOM
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+
+@#LOCKED
+@DO SAYBAR
+ The disco hall is closed. Try entering it tomorrow.
+@CLOSESCRIPT
diff --git a/xtrn/lord2/cnw/divinec.ref b/xtrn/lord2/cnw/divinec.ref
new file mode 100644
index 0000000000000000000000000000000000000000..fa8b1435e152a6406f5fd011c2c4214717326182
--- /dev/null
+++ b/xtrn/lord2/cnw/divinec.ref
@@ -0,0 +1,192 @@
+; Script file DIVINEC.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:36 2001
+
+@DECLARE begintal 000000686
+@DECLARE telehome 000001026
+@DECLARE peter 000001322
+@DECLARE incubus 000002058
+@DECLARE raphael 000002284
+@DECLARE beel 000002519
+@DECLARE isa 000003358
+@DECLARE nomore 000004168
+@NOCHECK
+; End of .REF index
+
+;-----------------------------------------
+; Version 0.11 of Divine Comedy ref by Talaphid Elsdragon [ Tal ]
+; Contact via TALAPHID@JUNO.COM
+; Have a good idea but can't/won't implement it? Email me, I'll give
+; ya credit and stuffs [and, rather obviously, add the idea] -- if I
+; like it. =)
+
+
+@#BEGINTAL
+@do moveback
+@datanewday divdeity.idf
+@do saybar
+`@F`4iend `%Prophet`3: `!K`9now well your fate before it is too late.
+@KEY
+@do saybar
+`L`7before you can speak, the prophet is gone, and you have been teleported...`L
+@KEY
+@do x is 15
+@do y is 14
+@do MAP is 321
+@loadmap &map
+@drawmap
+@update
+@closescript
+
+@#TELEHOME
+@do saybar
+`0 You step upon the hazy `9blue`0 aura of all creation, and `L`L. `L`L. `L`L.
+@KEY
+@do saybar
+`L`3you find yourself in your bed... it was all a dream, you tell your self...
+@KEY
+@do MAP is 155
+@do x is 28
+@do y is 7
+@loadmap &map
+@drawmap
+@update
+@closescript
+
+@#PETER
+@dataload divpeter.idf &playernum `p91
+@if `p91 is 0 then do
+ @begin
+ @if `i22 not 0 then do
+ @begin
+ @if `i23 not 0 then do
+ @begin
+ @if `i24 not 0 then do
+ @if `i25 not 0 then do
+ @begin
+ @do `i22 - 1
+ @do `i23 - 1
+ @do `i24 - 1
+ @do `i25 - 1
+ @do `p91 is 1
+ @datasave divpeter.idf &playernum `p91
+ @end
+ @end
+ @end
+ @end
+ @end
+@if `p91 is 0 then do
+ @begin
+ @do saybar
+`%Pe`7te`8r`3: `7I require you bring me the four shards of a `%Skystaff`3.
+ @do moveback
+ @closescript
+ @end
+@if `p91 is 1 then do
+ @begin
+ @do saybar
+`%Pe`7te`8r`3: `7You have given me my due. You may proceed.
+ @closescript
+ @end
+@closescript
+
+;`p07 == alignment
+
+@#INCUBUS
+@if `p07 > -20 then do
+ @begin
+@do saybar
+`r1`@I`4ncubus`3: `%Only those of evil intent may pass!
+@do moveback
+ @closescript
+ @end
+@do saybar
+`r1`@I`4ncubus`3: `7Ah... a fellow daemonspawn.
+@closescript
+
+@#RAPHAEL
+@if `p07 less 20 then do
+ @begin
+@do saybar
+`r1`%R`7aphael`3: `%BEGONE, CHILD OF DARKNESS!!!
+ @do moveback
+ @closescript
+ @end
+@do saybar
+`r1`%R`7aphael`3: `7Its so nice to see another source of light.
+@closescript
+
+@#BEEL
+@dataload divdeity.idf &playernum `p92
+@if `p92 is 1 then do
+ @begin
+ @do saybar
+`@Greed is good, my minion, but nonetheless, nothing more today.
+ @closescript
+ @end
+@DO `p92 RANDOM 4 1
+@if `p92 is 1 then do
+ @begin
+ @do `p93 is 15 * `p09 * `p09
+ @do saybar
+`@I'm giving you `$`p93 gold`@. Use it towards fiendish ends.
+ @do money + `p93
+ @end
+@if `p92 is 2 then do
+ @begin
+ @do saybar
+`@I'm giving you `05 gems`@. May your greedy little heart stop.
+ @do `p19 + 5
+ @end
+@if `p92 is 3 then do
+ @begin
+ @do saybar
+`@I'm giving you `%2 dodge`@, since I deem thee agility-challenged.
+ @do `p04 + 2
+ @end
+@if `p92 is 4 then do
+ @begin
+ @do saybar
+`@I'm giving you `%5 muscle`@, since I deem thee might-impaired.
+ @do `p05 + 5
+ @end
+@do `p92 is 1
+@datasave divdeity.idf &playernum `p92
+@closescript
+
+@#ISA
+@dataload divdeity.idf &playernum `p92
+@if `p92 is 1 then do
+ @begin
+ @do saybar
+`%Don't give in to greed... visit again tomorrow.
+ @closescript
+ @end
+@DO `p92 RANDOM 4 1
+@if `p92 is 1 then do
+ @begin
+ @do saybar
+`%I'm giving you `9500 energy`%. Spread the light, child.
+ @do `p11 + 500
+ @end
+@if `p92 is 2 then do
+ @begin
+ @do saybar
+`%I'm giving you `03 gems`%. Too bad material wealth is sometimes needed...
+ @do `p19 + 3
+ @end
+@if `p92 is 3 then do
+ @begin
+ @do saybar
+`%I'm bestowing `75 dodge`%, because we know survival is an asset.
+ @do `p04 + 5
+ @end
+@if `p92 is 4 then do
+ @begin
+ @do saybar
+`%I'm giving you `75 muscle`%, to rightuously crush the enemies of light!
+ @do `p05 + 5
+ @end
+@do `p92 is 1
+@datasave divdeity.idf &playernum `p92
+@closescript
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/doc.ref b/xtrn/lord2/cnw/doc.ref
new file mode 100644
index 0000000000000000000000000000000000000000..736ac5d6f98ec1fa54f33feb08be40d39841383a
--- /dev/null
+++ b/xtrn/lord2/cnw/doc.ref
@@ -0,0 +1,2272 @@
+; Script file DOC.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:33 2001
+
+@DECLARE welcome 000001200
+@DECLARE loop 000001441
+@DECLARE loop2 000001687
+@DECLARE doc 000002469
+@DECLARE talk 000007721
+@DECLARE guest 000012720
+@DECLARE namechange 000018036
+@DECLARE changename 000018645
+@DECLARE key 000019760
+@DECLARE passage 000021776
+@DECLARE secratary 000022529
+@DECLARE sectalk 000022978
+@DECLARE gossip 000023542
+@DECLARE random 000031724
+@DECLARE treasure 000031790
+@DECLARE usedchest 000032086
+@DECLARE chestprize 000032239
+@DECLARE treasure1 000033501
+@DECLARE treasure2 000033763
+@DECLARE treasure3 000034028
+@DECLARE treasure4 000034290
+@DECLARE treasure5 000034555
+@DECLARE treasure6 000034820
+@DECLARE treasure7 000035082
+@DECLARE treasure8 000035344
+@DECLARE treasure9 000035606
+@DECLARE guy 000035865
+@DECLARE usedguy 000036110
+@DECLARE guy1 000036345
+@DECLARE guy2 000037780
+@DECLARE guy3 000039482
+@DECLARE guy4 000040188
+@DECLARE guy5 000040471
+@DECLARE color 000043581
+@DECLARE backroom 000044991
+@DECLARE bed 000045087
+@DECLARE nohome 000045166
+@DECLARE bye 000047328
+@DECLARE thatsall 000047518
+@NOCHECK
+; End of .REF index
+
+@#welcome
+@datanewday docpass.idf
+@dataload docpass.idf 1 `p20
+@if `p20 is 0 then do
+ @begin
+ @do `p21 random 99999999 1
+ @datasave docpass.idf 1 `p21
+ @end
+@show
+`r0`c
+@do `p20 is 39
+@do `p21 is 41
+@label loop
+@do move 40 13
+@do write
+`3�`w
+@do move `p20 13
+@do write
+`3�
+@do move `p21 13
+@do write
+`3�`w
+@do `p21 + 1
+@do `p20 - 1
+@if `p21 < 56 then do
+ @begin
+ @do goto loop
+@end
+@do `p20 is 12
+@do `p21 is 14
+@label loop2
+@do move 25 `p20
+@do write
+`3�������������������������������
+@do move 25 `p21
+@do write
+`3�������������������������������`l
+@do `p20 - 1
+@do `p21 + 1
+@if `p21 < 17 then do
+ @begin
+ @do goto loop2
+@end
+@do move 25 10
+@do write
+`r3`6 Welcome to the Doc's Office!!
+@do move 25 11
+@do write
+`r3`6 There are many treasures that
+@do move 25 12
+@do write
+`r3`6 await, even a hidden cave!!!!
+@do move 25 13
+@do write
+`r3`6 The Doc can heal you for very
+@do move 25 14
+@do write
+`r3`6 cheap!! And you can even try
+@do move 25 15
+@do write
+`r3`6 your luck with the secratary!
+@do move 25 16
+@do write
+`r3`6 Be nice to the homeless guy!!
+@do move 1 22
+@key
+@loadmap 169
+@do x is 32
+@do y is 12
+@drawmap
+@update
+@closescript
+
+
+@#doc
+@do moveback
+@busy
+@datanewday docpass.idf
+@dataload docpass.idf &playernum `p21
+@if `p21 is 0 then do
+@begin
+@do `p21 random 10000 89999
+@datasave docpass.idf &playernum `p21
+@do `p30 is `p21
+@end
+@do moveback
+@busy
+@show
+`r0`c
+ `2Hello there `n`2, how can I help you?
+
+ `2(`6T`2)alk with da Doc
+ `2(`6H`2)eal yourself for 1 gold per 3 hitpoints
+ `2(`6G`2)et Doc to heal VD
+ `2(`6S`2)ex Change
+ `2(`6A`2)sk the Doc if he has any spare change
+ `2(`6R`2)eal time chat with da Doc
+ `2(`6W`2)rite in the Doc's guest sheet
+ `3(`2L`3)eave
+
+@do write
+`r0 `6What would you like to do? :
+@do readspecial `s01 LTHSARWG
+@if `s01 is L then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@if `s01 is T then do
+@begin
+@show
+`r0`c
+ `3Excuse me there Doc...how come you put your office here in the
+ middle of the forest? Why don't you get an office in town somewhere?
+
+@key
+@show
+`r0
+ `2Well you see young `%`n`2, I don't have the money right now...maybe
+ after I sell a few sex changes...I have fixed up my office though!
+ Hmmm...hey you know what? I used to be a warrior when I was a boy too.
+ I bet you've heard of me eh?
+
+@key
+@show
+`r0
+ `3"Um...actually...no." you say.
+
+@key
+@show
+`r0
+ `2"Oh...ok" says the Doc sadly, "but anyway, I was a warrior and I
+ wasn't quite as tough as I thought...oh sure I killed everyone in town
+ that one time but that was mostly because it was 4 in the morning and
+ everyone was asleep...but anyway...I thought I was tough enough to
+ take out the `4Red Dragon`2. Guess what? I was wrong.
+
+@key
+@show
+`r0
+ `3"Wow Doc, that's um...neat," you say, trying not to be too mean.
+ "but uh...I better be going!"
+
+@key
+@show
+`r0
+ `2Oh don't worry...this isn't a long story. Well, you see...I was
+ laying in the forest, mostly coughing up blood. And I saw a light
+ come down out of the sky...and then in what seemed like just seconds,
+ it was gone...then...I realized I was completely healed! That's when
+ I thought that I could help people...and decided to become a doctor!
+
+@key
+@show
+`r0
+ `3"Wow" you say, trying to be enthused, "that's um...really awesome,
+ but I uh...uh...better get going."
+
+@key
+@do goto doc
+@end
+
+
+@if `s01 is H then do
+@begin
+@if `p02 < `p03 then do
+@begin
+@do `p20 = `p03
+@do `p20 - `p02
+@do `p21 = `p20
+@do `p20 / 3
+@show
+`r0`c
+ `3Well there `n, you don't look to good. You only have `p02 out of
+ `p03 hitpoints. I'll heal your `p21 hitpoints for $`p20 gold.
+
+@do write
+`r0 `2How 'bout it? `4Y`2/`4N :
+@do readspecial `s02 NY
+@if `s02 is N then do
+@begin
+@show
+`r0`c
+
+
+ `4FINE!! RUN AROUND WITH BLOOD ALL OVER YOU. SEE IF I CARE!!!!
+
+@key
+@do goto doc
+@end
+@if `s02 is Y then do
+@begin
+@if money < `p20 then do
+@begin
+@show
+`r0`c
+
+ `4HEY!!! WHAT THE HECK ARE YOU TRYING TO PULL??? YOU THINK I CAN
+ AFFORD TO DO ALL THIS STUFF FOR FREE???
+ Try again when you have the cash
+
+@key
+@do goto doc
+@end
+@do money - `p20
+@do `p02 = `p03
+@show
+`r0`c
+
+ `2I've healed your `p21 hitpoints for $`p20 gold.
+ Your hitpoints are now `3(`%`p02 `3of `%`p03`3)`2.
+
+@key
+@do goto doc
+@end
+@end
+@show
+`r0`c
+
+ `2Whatcha smokin' dude? You don't got a bruise on ya!
+
+@key
+@do goto doc
+@end
+
+
+
+@if `s01 is S then do
+@begin
+@if &sex is 0 then `s03 is boy
+@if &sex is 1 then `s03 is girl
+@show
+`r0`c
+
+ `9So...you ain't happy being a s&boy eh? Well...I could make you a
+ `s03 for just $50000!!!
+
+@do write
+`r0 `2What do ya say? Y/N :
+@do readspecial `s02 NY
+@if `s02 is N then do
+@begin
+@show
+`r0`c
+
+ `6I wouldn't wanna screw with my organs either.
+
+@key
+@do goto doc
+@end
+@if `s02 is Y then do
+@begin
+@if money < 50000 then do
+@begin
+@show
+`r0`c
+ `4WHAT DO YOU MEAN YOU DON'T HAVE THE MONEY? YOU SORRY LITTLE BRAT!!
+ Come back when you have the cash!!!
+
+@key
+@do goto doc
+@end
+@if &sex is 0 then do
+@begin
+@do sexmale is 1
+@do money - 50000
+@show
+`r0`c
+
+ `2The Doc takes you into the back room and lays you on the bed, he
+ drugs you up real good and gets to work...then next thing you know
+ when you wake up you are now a `3BOY`2!!! You rush of to the
+ bathroom to look at your new MANLY features.
+
+@key
+@do goto doc
+@end
+@if &sex is 1 then do
+@begin
+@do sexmale is 0
+@do money - 50000
+@show
+`r0`c
+
+ `2The Doc takes you into the backroom and lays you down on the bed.
+ He drugs you up and starts working on your body...next thing you know
+ you wake up and run to the bathroom and look your self over a couple
+ hundred times! `3MAN YOU'RE A HOT CHICK!
+
+@key
+@do goto doc
+@end
+@end
+@end
+
+@if `s01 is R then do
+@begin
+@label talk
+@show
+`r0`c
+ `3What would you like to talk about? (Enter to abort)
+@do readstring 76 NIL `s02
+@show
+
+@
+@do `p23 is length `s02
+@if `p23 < 1 then do
+ @begin
+ @do goto doc
+ @end
+@if lord2 inside `s02 then do
+ @begin
+ @show
+`r0`3DA BEST DOOR GAME EVER MADE!!!!!!!!!!!
+ @key
+ @do goto talk
+ @end
+@if lord inside `s02 then do
+ @begin
+ @show
+`r0`2The original Legend of the Red Dragon door game...one of the best ever made!
+ @key
+ @do goto talk
+ @end
+@if complete inside `s02 then do
+ @begin
+ @show
+`r0`3DA "Complete New World": BEST lord2 package ever made!
+ @key
+ @do goto talk
+ @end
+@if cnw inside `s02 then do
+ @begin
+ @show
+`r0`3DA "Complete New World": BEST lord2 package ever made!
+ @key
+ @do goto talk
+ @end
+@if world inside `s02 then do
+ @begin
+ @show
+`r0`3DA "New World": BEST DOOR GAME EVER MADE!!!!!!!!!!!
+ @key
+ @do goto talk
+ @end
+@if dragon inside `s02 then do
+ @begin
+ @show
+`r0`5Oooohh...watch out for the `4Red Dragon`5!!!!!
+ @key
+ @do goto talk
+ @end
+@if farrell inside `s02 then do
+ @begin
+ @show
+`r0`2Kevin Farrell is the creator of `%D`7oc `%F`7arrell`1!!!!!
+ @key
+ @do goto talk
+ @end
+@if kevin inside `s02 then do
+ @begin
+ @show
+`r0`3Kevin? Kevin Farrell? He created me!!
+ @key
+ @do goto talk
+ @end
+@if doc inside `s02 then do
+ @begin
+ @show
+`r0`5I am the best docter in the `1N`4ew `1W`4orld`5!!!
+ @key
+ @do goto talk
+ @end
+@if `n inside `s02 then do
+ @begin
+ @show
+`r0`9Yes I know you are `n!
+ @key
+ @do goto talk
+ @end
+@if secret inside `s02 then do
+ @begin
+ @do `p20 random 4 1
+ @if `p20 is 1 then do
+ @begin
+ @show
+`r0`!Try asking me about a password!
+ @key
+ @do goto talk
+ @end
+ @if `p20 is 2 then do
+ @begin
+ @show
+`r0`#I heal cheaper then the Healers in Stonebrook!!!
+ @key
+ @do goto talk
+ @end
+ @if `p20 is 3 then do
+ @begin
+ @show
+`r0`9E-mail Kevin Farrell at `%kfarrell@kearney.net
+ @key
+ @do goto talk
+ @end
+ @if `p20 is 4 then do
+ @begin
+ @show
+`r0`%Visit `7Kevin Farrell's `%web page at `3www.kearney.net/~kfarrell
+ @key
+ @do goto talk
+ @end
+ @end
+
+@dataload docpass.idf 1 `p25
+@if password inside `s02 then do
+ @begin
+ @show
+`r0`6Password...my password for today is "`%`p25`6"
+ @key
+ @do goto talk
+ @end
+@if key inside `s02 then do
+ @begin
+ @show
+`r0`3There is a key hidden in my office somewhere!
+ @key
+ @do goto talk
+ @end
+@do `p21 random 6 1
+@if `p21 is 1 then do
+ @begin
+ @show
+`r0`3I don't know what you're talking about
+ @key
+ @do goto talk
+ @end
+@if `p21 is 2 then do
+ @begin
+ @show
+`r0`1Bla bla bla bla....
+ @key
+@do goto talk
+ @end
+@if `p21 is 3 then do
+ @begin
+ @show
+`r0`2Wow...that's uh...er...interesting...
+ @key
+ @do goto talk
+ @end
+@if `p21 is 4 then do
+ @begin
+ @show
+`r0`6You're starting to bore me...
+ @key
+ @do goto talk
+ @end
+@if `p21 is 5 then do
+ @begin
+ @show
+`r0`6Really?
+ @key
+ @do goto talk
+ @end
+@if `p21 is 6 then do
+ @begin
+ @show
+`r0`9Zzzzzzzzz
+ @key
+ @do goto talk
+ @end
+@end
+
+
+@if `s01 is A then do
+@begin
+@datanewday doccash.idf
+@dataload doccash.idf &playernum `p20
+@if `p20 not 0 then do
+@begin
+@show
+`r0`c
+
+ `4You decide that the Doc has been generous enough for today.
+
+@key
+@do goto doc
+@end
+@show
+`r0`c
+
+ `3So...you need a little cash help eh? Well...I might be able to help
+ you out a little there...that is...if you can get my password...
+
+@do write
+`r0 `2What's the password? :
+@do readnum 5 NIL
+@dataload docpass.idf 1 `p25
+@if `p25 not `v40 then do
+@begin
+@show
+`r0`c
+
+ `4Sorry...that wasn't the right password...
+ `2(HINT: You can get the password from da Doc!)
+
+@key
+@do goto doc
+@end
+@do `p23 random 1000 1
+@show
+`r0`c
+
+ `3THAT'S IT!!!!! YOU GOT MY PASSWORD RIGHT!!!!!!
+ You will recieve $`p23 gold!!!
+
+@key
+@do money + `p23
+@datasave doccash.idf &playernum 1
+@do goto doc
+@end
+
+
+@if `s01 is W then do
+@begin
+@label guest
+@if docguest.txt exists false then do
+@begin
+@writefile docguest.txt
+`r0`2D`3oc `2F`3arrell : `%ATTENTION ALL GUESTS: Please sign my guest sheet!
+@end
+@clear screen
+@displayfile docguest.txt
+@show
+
+
+@
+@do `s08 is NIL
+@do `s08 add `3
+@do `s08 add `n
+@do strip `s08
+@do `s08 add `x`3:`x`%
+@do `p21 is length `s08
+@do `p22 is 76
+@do `p22 - `p21
+@do write
+`r0`2Type what you would like to add below. (Enter to quit)`\`s08
+@do readstring `p22 NIL `s09
+@do stripbad `s09
+@do `p23 is length `s09
+@if `p23 < 2 then do
+@begin
+@do goto doc
+@end
+@writefile docguest.txt
+`3`n`3 : `%`s09
+@do trim docguest.txt 15
+@do goto guest
+@end
+
+@if `s01 is G then do
+@begin
+@if bitcheck `t50 2 1 then do
+ @begin
+ @routine getname in npcwith.ref
+ @show
+`r0`c
+ `2So, `s01 has the deadly disease, `4VD`2?
+ For just $1000 gold I can cure `s01 of this!!
+
+ @do write
+`r0 `2Do it? `3Y`2/`3N`2 :
+ @do readspecial `s02 NY
+ @if `s02 is N then do
+ @begin
+ @show
+`r0`c
+
+ `4FINE!! JUST LET `s01 RUN AROUND GETTING SICKER AND
+ SICKER UNTIL `s01 IS PAINFUL AND SUFFERING DEATH!!!!!!!!!!!
+
+ @key
+ @do goto doc
+ @end
+ @if `s02 is Y then do
+ @begin
+ @if money < 1000 then do
+ @begin
+ @show
+`r0`c
+
+ `4HEY PUNK!!! YOU DON'T HAVE ENOUGH MONEY!! I AIN'T GONNA CURE
+ ANYONE UNTIL YOU HAVE $1000 GOLD!!!!!!!
+
+ @key
+ @do goto doc
+ @end
+
+ @do `p21 is `v05
+ @do `p21 / 24
+ @do `p11 - `p21
+ @show
+`r0`c
+
+ `3The Doc takes `s01 into his back room, sets you down
+ and gets started.
+
+ `k
+ You wait out in the waiting for about an hour.
+
+ `k
+ `s01 is `2CURED`3!!!
+
+ `$`s01: `2Thanks, I'll give you everything I've got for doing
+ this for me. Here take this. Please take me home safely.
+
+ `%You Earned:
+ @dataload npc/npcgold.idf `p71 `p21
+ @if `p21 > 0 then do
+ @begin
+ @dataload npc/npcgold.idf `p71 `p21
+ @do `p20 random `p21 1
+ @if `p20 > 2000 then `p20 is 100
+ @do money + `p20
+ @do `p21 - `p20
+ @datasave npc/npcgold.idf `p71 `p21
+ @show
+ `$`p20 GOLD
+ @end
+ @dataload npc/npcgems.idf `p71 `p21
+ @if `p21 > 0 then do
+ @begin
+ @dataload npc/npcgems.idf `p71 `p21
+ @do `p20 random `p21 1
+ @if `p20 > 10 then `p20 is 0
+ @do `p19 + `p20
+ @do `p21 - `p20
+ @datasave npc/npcgems.idf `p71 `p21
+ @show
+ `$`p20 GEMS
+ @end
+ `$3 CHARM
+ `$500 EXPERIENCE
+ `$1 QUEST POINT
+ @key
+ @bitset `t50 0 1
+ @bitset `t50 2 0
+ @bitset `t50 7 1
+ @do money - 1000
+ @do `p08 + 3
+ @do `p01 + 500
+ @do `p18 + 1
+ @datasave npc/npcvd.idf `p71 0
+ @dataload npc/npc-`p71 &playernum `p22
+ @do `p22 + 25
+ @datasave npc/npc-`p71 &playernum `p22
+ @do `p12 is 0
+ @do `p02 is `p03
+ @do goto doc
+ @end
+ @do goto doc
+ @end
+
+@if `p12 not 1 then do
+ @begin
+ @show
+`r0`c
+
+ `3Aah...I can see that you're drunk again...YOU DON'T HAVE `4VD`3!!!
+
+ @key
+ @do goto doc
+ @end
+@show
+`r0`c
+ `2So you are one those people who has the deadly disease, `4VD`2?
+ For just $1000 gold I can cure you of this!!
+
+@do write
+`r0 `2Do it? `3Y`2/`3N`2 :
+@do readspecial `s02 NY
+@if `s02 is N then do
+ @begin
+ @show
+`r0`c
+
+ `4FINE!! JUST RUN AROUND GETTING SICKER AND SICKER UNTIL YOUR
+ PAINFUL AND SUFFERING DEATH!!!!!!!!!!!
+
+ @key
+ @do goto doc
+ @end
+@if `s02 is Y then do
+ @begin
+ @if money < 1000 then do
+ @begin
+ @show
+`r0`c
+
+ `4HEY PUNK!!! YOU DON'T HAVE ENOUGH MONEY!! I AIN'T GONNA CURE YOU
+ UNTIL YOU HAVE $1000 GOLD!!!!!!!
+
+ @key
+ @do goto doc
+ @end
+ @do `p21 is `v05
+ @do `p21 / 24
+ @do `p11 - `p21
+ @show
+`r0`c
+
+ `3The Doc takes you into his back room, sets you down and gets started.
+ You wake up about an hour later `2CURED`3!!!
+
+ You are fully refreshed!!
+
+ @key
+ @do money - 1000
+ @do `p12 is 0
+ @do `p02 is `p03
+ @do goto doc
+ @end
+@do goto doc
+@end
+
+
+@#namechange
+@do moveback
+@busy
+@datanewday docname.idf
+@dataload docname.idf &playernum `p21
+@if `p21 not 0 then do
+@begin
+@show
+`r0`c
+
+ `4You better not change your name again today!!!
+
+@key
+@drawmap
+@update
+@closescript
+@end
+@show
+`r0`c
+
+ `%You find a stack of papers laying on the table...they're the
+ Personal ID papers for everyone in town. You find yours.
+
+@do `v01 is 1
+@choice
+`x`x`x`x`x`2Erase your name and change it
+`x`x`x`x`x`6Leave 'em alone
+@if responce is 2 then do
+@begin
+@drawmap
+@update
+@end
+@if responce is 1 then do
+@begin
+@label changename
+@do write
+`r0`c`\`\`\`\ `3You scribble out your name and replace it with :`\ `2
+@do readstring 40 NIL `s10
+@do `p20 is length `s10
+@if `p20 < 3 then do
+@begin
+@show
+`r0`c
+
+ `4Sorry, that name is too short!!
+
+@do write
+`r0`4 Try again? `3Y`4/`3N`4 :
+@do readspecial `s02 NY
+@if `s02 is N then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@if `s02 is Y then do
+@begin
+@do goto changename
+@end
+@end
+@if checkdupe is true then do
+@begin
+@show
+`r0`c
+
+ `3There is already someone named `s10`3!
+
+@do write
+`r0`2 Try again? Y/N
+@do readspecial `s02 NY
+@if `s02 is N then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@if `s02 is Y then do
+@begin
+@do goto changename
+@end
+@end
+@do write
+`r0`c `3Are you sure you want to be known as `s10 `3from now on? Y/N :
+@do readspecial `s02 NY
+@if `s02 is N then do
+@begin
+@drawmap
+@update
+@end
+@if `s02 is Y then do
+@begin
+@do copytoname
+@show
+`r0`c
+
+ `2CONGRATULATIONS!!! You are now known as `n!!!!!!!!!!!
+
+@key
+@datasave docname.idf &playernum 1
+@drawmap
+@update
+@end
+
+@#key
+@do moveback
+@busy
+@dataload dockey.idf &playernum `p20
+@show
+`r0`c
+[?7h[255D[40m
+
+[0;1m[16C[0;33m������������������������������������������������
+[16C��[46m [40m��
+[16C��[46m [40m��
+[16C��[46m [40m��
+[16C��[46m [1;30m�[40m�[46m� [0;33m��
+[16C��[46m [1;30m�[40m�[46m� �[40m�����[46m� [0;33m��
+[16C��[1;30m�[46m�� �[40m�����[46m� �[40m�����������[46m� [0;33m��
+[16C��[1;30m����[46m��[40m���������[46m� �[40m���������������[46m� [0;33m��
+[16C��[1;30m�����������������[46m �[40m�������������������[46m [0;33m��
+[16C��[32m��������������������������������������������[33m��
+[16C��[32m��������������������������������������������[33m��
+[16C��[32m��������������������������������������������[33m��
+[16C��[32m��������������������������������������������[33m��
+[16C��[32m��������������������������������������������[33m��
+[16C��[32m��������������������������������������������[33m��
+[16C������������������������������������������������
+[0m[255D
+
+@if `p20 is 1 then do
+@begin
+@show
+`r0 `2Not much to do here since you already took the key!
+
+@key
+@drawmap
+@update
+@closescript
+@end
+@do write
+`r0 `3(`2L`3)`2eave `2(`3K`2)`3nock the picture down
+@do readspecial `s02 LK
+@if `s02 is L then do
+@begin
+@drawmap
+@update
+@end
+@if `s02 is K then do
+@begin
+@show
+`r0`c
+
+ `2You knock the picture to the ground and it makes a loud `4THUD`2!!
+ You turn around and look at the secretary...she didn't even notice.
+ You look at the wall where the picture used to be.
+ There's a `$KEY `2there!!!!
+
+ `3You wonder what the key goes to.
+
+@key
+@datasave dockey.idf &playernum 1
+@drawmap
+@update
+@end
+
+@#passage
+@do moveback
+@busy
+@dataload dockey.idf &playernum `p20
+@show
+`r0`c
+
+ `2You walk back behind the tables and you find a `3HIDDEN DOOR`2!!!!
+@if `p20 not 1 then do
+@begin
+@show
+`r0`2 You mess around with it for a long time...then you realize that
+ you won't be able to open it without a key.
+
+ (`0HINT: You can find the key in the Doc's office!`2)
+
+@key
+@drawmap
+@update
+@closescript
+@end
+@show
+`r0`2 You play with the lock until you're about to give up when you
+ remember that you found a key behind a picture in the secretary's
+ office!! You insert the key...turn...and the door OPENS!!!
+
+@key
+@loadmap 167
+@do x is 1
+@do y is 9
+@drawmap
+@update
+@end
+
+@#secratary
+@do `p70 is 132
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@busy
+@if &sex is 0 then do
+@begin
+@show
+`r0`c
+
+ `3You see the Doc's secretary sitting at her desk. Her name tag
+ says: "`%Rosie Luver`3"
+
+@do write
+`r0`2 Talk to her? `3Y`2/`3N `2:
+@do readspecial `s02 NY
+@if `s02 is N then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@if `s02 is Y then do
+@begin
+@label sectalk
+@show
+`r0`c
+
+ `3-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
+ `2"`%What do you want to talk about?`2" asks Rosie.
+
+ `3(`2G`3)ossip
+ `2(`6N`2)ever Mind
+
+@do write
+`r0`0 What will it be?
+@do readspecial `s03 NG
+@if `s03 is N then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@if `s03 is G then do
+@begin
+@if docsec.txt exists false then do
+@begin
+@writefile docsec.txt
+ `2Rosie `3: `%I heard that `7Kevin Farrell `%is one `@HANDSOME `%guy!!
+@end
+@label gossip
+@clear screen
+@displayfile docsec.txt
+@show
+`r0
+
+
+@do `s04 is NIL
+@do `s04 add `x`2
+@do `s04 add `n
+@do strip `s04
+@do `s04 add `x`3:`x`%
+@do `p21 is length `s04
+@do `p22 is 78
+@do `p22 - `p21
+@do write
+`r0`2 Enter you gossip below (Enter blank line to quit) :`\`s04
+@do readstring `p22 NIL `s05
+@do `p21 is length `s05
+@if `p21 < 1 then goto sectalk
+@writefile docsec.txt
+ `2`n `3: `%`s05
+@do trim docsec.txt 17
+@do goto gossip
+@end
+@end
+@end
+@datanewday docflirt.idf
+@dataload docflirt.idf &playernum `p20
+@if `p20 is 2 then do
+@begin
+@show
+`r0`c
+
+ `2You better not push it! You don't want to go to fast...
+ maybe tomorrow!
+
+@key
+@drawmap
+@update
+@closescript
+@end
+@show
+`r0`c
+
+ `3You see a `4GREAT `3looking secretary with beautiful blue eyes,
+ teeth as white as snow, and lips as red as roses. You feel like
+ you're in Heaven, and are almost expecting an angel to come and
+ tap you on your shoulder. You see a sign on the desk that says
+ "`%Secretary: Rosie Luver`3"
+
+
+@do write
+`r0 `3Flirt with her `2Y`3/`2N`3 :
+@do readspecial `s02 NY
+@if `s02 is N then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@if `s02 is Y then do
+@begin
+@show
+`r0`c
+ `3-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
+ `2You walk up to her and say "`%Excuse me Miss Luver`2"
+ `9She turns and looks at you with her beautiful eyes
+
+ `6(`%N`6)`7ever mind
+ `6(`%1`6)`7Suck in your gut and act cool
+ `6(`%2`6)`7Tell her you love her eyes
+ `6(`%3`6)`7Kiss her on the cheek
+ `6(`%4`6)`7Ask her on a date
+ `6(`%5`6)`7Give FULL kiss on the lips
+ `6(`%6`6)`7Grab her rear end
+ `6(`%7`6)`7Lay her down on the desk
+ `3=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@do write
+`r0 `2What will it be? :
+@do readspecial `s03 N1234567
+@if `s03 is N then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@if `s03 is 1 then do
+@begin
+@show
+`r0`c
+ `3You suck in your stomach and push out your chest. As you walk
+ out you let your gut back out and your pants fall as the button
+ pops of your pants and you trip and fall over and `4LAND FLAT ON
+ YOUR FACE!!!! `3Rosie starts laughing at you!!!
+
+ `4You're so embarrassed your hitpoints drop to 1 !!!!!!
+@key
+@do `p02 is 1
+@do `p20 + 1
+@datasave docflirt.idf &playernum `p20
+@drawmap
+@update
+@closescript
+@end
+@if `s03 is 2 then do
+@begin
+@show
+`r0`c
+ `3You walk up to her and tell her that her eyes are very beautiful
+@do write
+`r0 `3She tells you`l.`l.`l.`l.
+@if `p08 < 1 then do
+@begin
+@key
+@show
+`r0`4TO DROP DEAD!!!!!!
+
+ You lose 10 experience!!!
+@key
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 - 1
+@datasave npc/npc-`p70.idf &playernum `p29
+@do `p01 - 10
+@do `p20 + 1
+@datasave docflirt.idf &playernum `p20
+@drawmap
+@update
+@closescript
+@end
+@show
+`r0`2thanks and winks at you!
+
+ You gain 1 max hitpoint!
+@key
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 + 1
+@datasave npc/npc-`p70.idf &playernum `p29
+@do `p03 + 1
+@do `p02 is `p03
+@do `p20 + 1
+@datasave docflirt.idf &playernum `p20
+@drawmap
+@update
+@closescript
+@end
+@if `s03 is 3 then do
+@begin
+@show
+`r0`c
+ `2You kiss Rosie on the cheek!
+@do write
+`r0 `!She`l.`l.`l.`l.
+@if `p08 < 4 then do
+@begin
+@show
+`r0`4SAYS "EEW!!! GET LOST CREEP!!!"
+
+ Your hitpoints drop to 1 !!!
+@key
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 - 2
+@datasave npc/npc-`p70.idf &playernum `p29
+@do `p02 is 1
+@do `p20 + 1
+@datasave docflirt.idf &playernum `p20
+@drawmap
+@update
+@closescript
+@end
+@show
+`r0`3smiles and says hi.
+
+ You gain 25 experience!!
+@key
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 + 2
+@datasave npc/npc-`p70.idf &playernum `p29
+@do `p01 + 25
+@do `p20 + 1
+@datasave docflirt.idf &playernum `p20
+@drawmap
+@update
+@closescript
+@end
+@if `s03 is 4 then do
+@begin
+@show
+`r0`c
+ `2You walk over to Rosie, look into her eyes, and ask her if she
+ would like to go on a date with you tonight.
+
+@do write
+`r0 `3She`l.`l.`l.`l.
+@if `p08 < 8 then do
+@begin
+@show
+`r0`4LAUGHS IN YOUR FACE AND TELLS YOU TO GET LOST!
+
+ You spend the night alone in the woods!
+
+ You lose 40 experience!!
+@key
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 - 3
+@datasave npc/npc-`p70.idf &playernum `p29
+@do `p01 - 40
+@do `p20 + 1
+@datasave docflirt.idf &playernum `p20
+@drawmap
+@update
+@closescript
+@end
+@show
+`r0`agrees to go!!
+
+ You have a GREAT time that night at dinner.
+
+ You gain 5 charm!!!!
+@key
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 + 3
+@datasave npc/npc-`p70.idf &playernum `p29
+@do `p08 + 5
+@do `p20 + 1
+@datasave docflirt.idf &playernum `p20
+@drawmap
+@update
+@closescript
+@end
+@if `s03 is 5 then do
+@begin
+@show
+`r0`c
+ `@You lean down to her and press your lips against hers.
+
+@do write
+`r0`@ She`l.`l.`l.`l.
+@if `p08 < 15 then do
+@begin
+@show
+`r0`4PUSHES YOU AWAY, SLAPS YOUR FACE AND TELLS YOU NEVER TO TOUCH HER AGAIN!
+
+ You lose 5 charm!
+@key
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 - 6
+@datasave npc/npc-`p70.idf &playernum `p29
+@do `p08 - 5
+@do `p20 + 1
+@datasave docflirt.idf &playernum `p20
+@drawmap
+@update
+@closescript
+@end
+@do `p22 random 5 1
+@show
+`r0`3wraps her arms around you and kisses you for `%`p22 `3minutes!!!
+
+ You gain 100 experience!!!!!
+@key
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 + 6
+@datasave npc/npc-`p70.idf &playernum `p29
+@do `p01 + 100
+@do `p20 + 1
+@datasave docflirt.idf &playernum `p20
+@drawmap
+@update
+@closescript
+@end
+@if `s03 is 6 then do
+@begin
+@show
+`r0`c
+ `6You reach down and grab Rosie's rear end
+
+@do write
+`r0`6 Rosie`l.`l.`l.`l.
+@if `p08 < 20 then do
+@begin
+@show
+`r0`4SLAPS YOU AND KICKS YOU BETWEEN THE LEGS!!!
+
+ You lose 175 experience and hitpoints drop to 1 !!
+@key
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 - 6
+@datasave npc/npc-`p70.idf &playernum `p29
+@do `p01 - 175
+@do `p02 is 1
+@do `p20 + 1
+@datasave docflirt.idf &playernum `p20
+@drawmap
+@update
+@closescript
+@end
+@show
+`r0`9smiles and draws close!!!
+
+ You recieve 250 experience and 5 charm
+@key
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 + 9
+@datasave npc/npc-`p70.idf &playernum `p29
+@do `p01 + 250
+@do `p08 + 5
+@do `p20 + 1
+@datasave docflirt.idf &playernum `p20
+@drawmap
+@update
+@closescript
+@end
+@if `s03 is 7 then do
+@begin
+@show
+`r0`c
+ `0You pick Rosie up off her feet and lay her on the desk...
+
+@do write
+`r0`7 She`l.`l.`l.`l.
+@if `p08 < 30 then do
+@begin
+@show
+`r0`4PUNCHES YOU RIGHT IN THE SNOT-LOCKER!!!!
+
+ You lose 300 experience and 5 charm!
+@key
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 - 9
+@datasave npc/npc-`p70.idf &playernum `p29
+@do `p01 - 300
+@do `p08 - 5
+@do `p20 + 1
+@datasave docflirt.idf &playernum `p20
+@drawmap
+@update
+@closescript
+@end
+ @do `p21 is `v05
+ @do `p21 / 24
+ @do `p11 - `p21
+@show
+`r0`3giggles and pulls you onto the desk!
+
+ 1 hour later you feel GREAT!
+
+ You gain 800 experience, 1 lay, 7 charm and you are fully refreshed!
+@key
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 + 12
+@datasave npc/npc-`p70.idf &playernum `p29
+@dataload npc/npcvd.idf `p70 `p29
+@do `p25 random 100 1
+@if `p25 is 25 then goto rosievd
+
+@if `p29 > 0 then do
+@begin
+@lable rosievd
+@show
+`r0`c
+
+
+ `4YOU GET VD FROM ROSIE!!!!!! YOU MUST CURE THIS DEADLY DISEASE
+ BEFORE YOU DIE!!!!
+
+@key
+@datasave npc/npcvd.idf `p70 1
+@do `p12 is 1
+@end
+@do `p34 + 1
+@do `p01 + 800
+@do `p08 + 7
+@do `p02 = `p03
+@do `p20 + 1
+@datasave docflirt.idf &playernum `p20
+@drawmap
+@update
+@closescript
+@end
+@end
+
+@#random
+@do saybar
+`6 It's so dark and wet down here!
+
+
+@#treasure
+@datanewday docchest.idf
+@datanewday doctreas.idf
+@dataload doctreas.idf &playernum `p22
+@if `p22 is 2 then do
+@begin
+@show
+`r0`c
+
+ `4You have already opened 2 treasure chests today...maybe tomorrow.
+
+@key
+@routineabort
+@drawmap
+@update
+@closescript
+@end
+
+@#usedchest
+@show
+`r0`c
+
+ `4Sorry...you've already opened that chest today...try another one!
+
+@key
+@drawmap
+@update
+@closescript
+
+@#chestprize
+@do `p23 random 7 1
+@show
+`r0`c`\`\`\`\ `2You open up the chest.
+@do write
+`r0 `2You find`l.`l.`l.`l.
+@if `p23 is 1 then do
+@begin
+@show
+`r0`2a book on how to be a great warrior!!!
+
+ You recieve 200 experience!
+
+@key
+@do `p01 + 100
+@end
+@if `p23 is 2 then do
+@begin
+@show
+`r0`3a bag of gold!!!
+
+ There is $1,000 gold in the bag!!!!
+
+@key
+@do money + 1000
+@end
+@if `p23 is 3 then do
+@begin
+@show
+`r0`9some 50 pound weights!!!
+
+ You get 25 muscle points!!
+
+@key
+@do `p04 + 25
+@end
+@if `p23 is 4 then do
+@begin
+@show
+`r0`$a bottle of cologne!!
+
+ You gain 10 charm!!
+
+@key
+@do `p08 + 10
+@end
+@if `p23 is 5 then do
+@begin
+@show
+`r0`0a new suit!!!
+
+ You get 1 extra flirt with the secretary in the Doc's office!
+
+@key
+@datanewday docflirt.idf
+@dataload docflirt.idf &playernum `p24
+@do `p24 - 1
+@datasave docflirt.idf &playernum `p24
+@end
+@if `p23 is 6 then do
+@begin
+@show
+`r0`%a great looking sheild!!
+
+ You gain 15 max hitpoints!!!
+
+@key
+@do `p03 + 15
+@do `p02 = `p03
+@end
+@if `p23 is 7 then do
+@begin
+@show
+`r0`%a new pair of shoes!
+
+ You gain 15 dodge points!
+
+@key
+@do `p05 + 15
+@end
+
+
+
+@#treasure1
+@do moveback
+@busy
+@routine treasure
+@dataload docchest.idf &playernum `p20
+@if `p20 is 1 then goto usedchest
+@routine chestprize
+@datasave docchest.idf &playernum 1
+@do `p22 + 1
+@datasave doctreas.idf &playernum `p22
+@drawmap
+@update
+
+@#treasure2
+@do moveback
+@busy
+@routine treasure
+@dataload docchest.idf &playernum `p20
+@if `p20 is 2 then goto usedchest
+@routine chestprize
+@datasave docchest.idf &playernum 2
+@do `p22 + 1
+@datasave doctreas.idf &playernum `p22
+@drawmap
+@update
+
+
+@#treasure3
+@do moveback
+@busy
+@routine treasure
+@dataload docchest.idf &playernum `p20
+@if `p20 is 3 then goto usedchest
+@routine chestprize
+@datasave docchest.idf &playernum 3
+@do `p22 + 1
+@datasave doctreas.idf &playernum `p22
+@drawmap
+@update
+
+@#treasure4
+@do moveback
+@busy
+@routine treasure
+@dataload docchest.idf &playernum `p20
+@if `p20 is 4 then goto usedchest
+@routine chestprize
+@datasave docchest.idf &playernum 4
+@do `p22 + 1
+@datasave doctreas.idf &playernum `p22
+@drawmap
+@update
+
+
+@#treasure5
+@do moveback
+@busy
+@routine treasure
+@dataload docchest.idf &playernum `p20
+@if `p20 is 5 then goto usedchest
+@routine chestprize
+@datasave docchest.idf &playernum 5
+@do `p22 + 1
+@datasave doctreas.idf &playernum `p22
+@drawmap
+@update
+
+
+@#treasure6
+@do moveback
+@busy
+@routine treasure
+@dataload docchest.idf &playernum `p20
+@if `p20 is 6 then goto usedchest
+@routine chestprize
+@datasave docchest.idf &playernum 6
+@do `p22 + 1
+@datasave doctreas.idf &playernum `p22
+@drawmap
+@update
+
+@#treasure7
+@do moveback
+@busy
+@routine treasure
+@dataload docchest.idf &playernum `p20
+@if `p20 is 7 then goto usedchest
+@routine chestprize
+@datasave docchest.idf &playernum 7
+@do `p22 + 1
+@datasave doctreas.idf &playernum `p22
+@drawmap
+@update
+
+@#treasure8
+@do moveback
+@busy
+@routine treasure
+@dataload docchest.idf &playernum `p20
+@if `p20 is 8 then goto usedchest
+@routine chestprize
+@datasave docchest.idf &playernum 8
+@do `p22 + 1
+@datasave doctreas.idf &playernum `p22
+@drawmap
+@update
+
+@#treasure9
+@do moveback
+@busy
+@routine treasure
+@dataload docchest.idf &playernum `p20
+@if `p20 is 9 then goto usedchest
+@routine chestprize
+@datasave docchest.idf &playernum 9
+@do `p22 + 1
+@datasave doctreas.idf &playernum `p22
+@drawmap
+@update
+
+
+@#guy
+@datanewday docguy.idf
+@dataload docguy.idf &playernum `p20
+@if `p20 is 2 then do
+@begin
+@show
+`r0`c
+
+ `4You've already talked to 2 people today...maybe tomorrow.
+
+@key
+@routineabort
+@drawmap
+@update
+@end
+
+
+@#usedguy
+@datanewday doclast.idf
+@dataload doclast.idf &playernum `p22
+@if `p22 is `p21 then do
+@begin
+@show
+`r0`c
+
+ `8I refuse to talk to you again until tomorrow!
+
+@key
+@routineabort
+@drawmap
+@update
+@end
+
+
+@#guy1
+@do moveback
+@busy
+@routine guy
+@do `p21 is 1
+@routine usedguy
+@do `p23 is money
+@do `p24 is `p23
+@do `p24 / 25
+@if `p24 < 10 then `p25 is 1
+@if `p24 < 100 then `p25 is 2
+@if `p24 < 1000 then `p25 is 3
+@if `p24 < 10000 then `p25 is 4
+@if `p24 < 100000 then `p25 is 5
+@if `p24 < 1000000 then `p25 is 6
+@if `p24 < 10000000 then `p25 is 7
+@if `p24 < 100000000 then `p25 is 8
+@show
+`r0`c
+
+ `8Hello there `n`8. I've been waiting for someone to come down here.
+ Not a lot of people can find this place. But anyway...are you having
+ trouble getting attention from the opposite sex? Well...I can teach
+ you to be charming for just `$$25 gold `8per point!
+
+ `7How many would you like? You can afford `%`p24`7.
+@do write
+`r0`7 ( `%0 to exit `7) :
+@do readnum `p25 NIL
+@do `p26 is `p24
+@do `p26 * 25
+@if `p24 is 0 then do
+@begin
+@do `p20 + 1
+@datasave docguy.idf &playernum `p20
+@datasave doclast.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+@if `p26 > money then do
+@begin
+@show
+`r0`c
+
+ `4HEY!!! You don't have enough gold for `%`p24 `4charm!
+ Try again!
+
+@key
+@do goto guy1
+@end
+@do money - `p26
+@do `p08 + `p24
+@show
+`r0`c
+
+ `3You gained `!`p24 `3charm and you now have `%`p08 `3charm!!
+
+@key
+@do `p20 + 1
+@datasave docguy.idf &playernum `p20
+@datasave doclast.idf &playernum 1
+@drawmap
+@update
+
+
+@#guy2
+@do moveback
+@busy
+@routine guy
+@do `p21 is 2
+@routine usedguy
+@show
+`r0`c
+
+ `8Hello `n`8. How may I help you?
+
+ `8(`%W`8)`7hat's down here?
+ `8(`%H`8)`7ow come this is here?
+ `8(`%L`8)`7eave
+
+@do write
+`r0`7 Your choice? :
+@do readspecial `s02 LHW
+@if `s02 is L then do
+@begin
+@do `p20 + 1
+@datasave docguy.idf &playernum `p20
+@datasave doclast.idf &playernum 2
+@drawmap
+@update
+@end
+@if `s02 is W then do
+@begin
+@show
+`r0`c
+
+ `7Man this place is creepy! What exactly is down here?
+
+@key
+@show
+`r0
+
+ `8This "`%creepy`8" place is my home! There are many treasures
+ to be found here! And all of the other people that live down here
+ are VERY generous and will help you out a lot!
+
+@key
+@do goto guy2
+@end
+@if `s02 is H then do
+@begin
+@show
+`r0`c
+
+ `7Hey! Why is this place even here? It's sooo creepy!
+
+@key
+@show
+`r0
+
+ `8This place is here because we are all ex-cons! We were framed and
+ were being sentenced to death because of a gang that runs around
+ beating up on everyone! All of us down here are friends and we gave
+ them a pretty good butt-whoopin'! Well...they were friends with
+ some rich guy and he told everyone that we tried to kill him. He
+ even stabbed himself to make it look more convincing. Then one day we
+ ran across the Doc and he agreed to help us. So then we built
+ this underground tunnel and have been hiding here ever since...
+ "I don't even remember what day-light looks like" he says sadly.
+
+@key
+@do goto guy2
+@end
+
+@#guy3
+@do moveback
+@busy
+@routine guy
+@do `p21 is 3
+@routine usedguy
+@do `p23 random 4 1
+@if `p23 is 1 then do
+@begin
+@do saybar
+The Doc heals cheeper then any other docter in the world!!!!!
+@end
+@if `p23 is 2 then do
+@begin
+@do saybar
+Talk with other people by writing in the tree on the east side of the tunnel!
+@end
+@if `p23 is 3 then do
+@begin
+@do saybar
+You can open 2 treasure chest and talk to 2 people every day!
+@end
+@if `p23 is 4 then do
+@begin
+@if `p34 < 1 then `s03 is :(
+@if `p34 > 0 then `s03 is `2Way to be!! :)
+@do saybar
+`6You've been laid `2`p34 `6times. `s03
+@end
+@do `p20 + 1
+@datasave docguy.idf &playernum `p20
+@datasave doclast.idf &playernum 3
+
+@#guy4
+@do moveback
+@busy
+@routine guy
+@do `p21 is 4
+@routine usedguy
+@show
+`r0`c
+
+ `3Is there anything you'd like to get rid of?
+
+@sellmanager
+@do `p20 + 1
+@datasave docguy.idf &playernum `p20
+@datasave doclast.idf &playernum 4
+@drawmap
+@update
+
+@#guy5
+@do moveback
+@busy
+@routine guy
+@do `p21 is 5
+@routine usedguy
+@do `p27 is 0
+@do `p28 is 0
+@do `p29 is 0
+@do `p23 is money
+@do `p24 is `p23
+@do `p24 / 15
+@if `p24 > 99 then do `p24 is 99
+@do `p25 is 2
+@show
+`r0`c
+
+ `8I can enhance your muscle, dodge, or hitpoints for just $100 gold
+ per point!!! (limit of 99 muscle, dodge and hitpoints per day)
+
+ `8(`%M`8)`7uscle
+ `8(`%D`8)`7odge
+ `8(`%H`8)`7itpoints
+ `7(`8L`7)`%eave
+
+@do write
+`r0`8 Which will it be? :
+@do readspecial `s02 LMDH
+@if `s02 is L then do
+@begin
+@drawmap
+@update
+@do `p20 + 1
+@datasave docguy.idf &playernum `p20
+@datasave doclast.idf &playernum 5
+@end
+@if `s02 is M then do
+@begin
+@if `p27 is 1 then do
+@begin
+@show
+`r0`c
+
+ `8You already bought some muscle today! Maybe tomorrow.
+
+@key
+@do goto guy5
+@end
+@show
+`r0`c
+
+ `8You have `p04 muscle points right now. You have enough money
+ to get `p24 more.
+
+@do write
+`r0`7 How many would you like?
+@do readnum `p25 NIL
+@if `p24 is 0 then goto guy5
+@do `p26 is `p24
+@do `p26 * 100
+@if `p26 > money then do
+@begin
+@show
+`r0`c
+
+ `4You don't have enough money for `p24 muscle!!! That would cost
+ `$$`p26 `4gold and you only have `$$`p23 `4gold!!
+
+@key
+@do goto guy5
+@end
+@do `p27 is 1
+@do money - `p26
+@do `p04 + `p24
+@do
+@show
+`r0`c
+
+ `%You now have `p04 muscle!!!
+
+@key
+@do goto guy5
+@end
+@if `s02 is D then do
+@begin
+@if `p28 is 1 then do
+@begin
+@show
+`r0`c
+
+ `8You already bought some dodge today! Maybe tomorrow.
+
+@key
+@do goto guy5
+@end
+@show
+`r0`c
+
+ `8You have `p05 dodge right now. You have enough money to buy `p24
+ more.
+
+@do write
+`r0`7 How many do you want?
+@do readnum `p25 NIL
+@do `p26 is `p24
+@do `p26 * 100
+@if `p24 is 0 then goto guy5
+@if `p26 > money then do
+@begin
+@show
+`r0`c
+
+ `4You don't have enough money for `%`p24 `4dodge!!! That would cost
+ `$$`p26 `4gold and you only have `$$`p23 `4gold!!!
+
+@key
+@do goto guy5
+@end
+@do `p28 is 1
+@do money - `p26
+@do `p05 + `p24
+@show
+`r0`c
+
+ `7You now have `%`p24 `7dodge!!!!!
+
+@key
+@do goto guy5
+@end
+@if `s02 is H then do
+@begin
+@if `p29 is 1 then do
+@begin
+@show
+`r0`c
+
+ `8You already bought some hitpoints today! Maybe tomorrow.
+
+@key
+@do goto guy5
+@end
+@show
+`r0`c
+
+ `8You have `p03 max hitpoints now. You have enough money to buy
+ `p24 more!
+
+@do write
+`r0`7 How many would you like?
+@do readnum `p25 NIL
+@do `p26 is `p24
+@do `p26 * 100
+@if `p24 is 0 then goto guy5
+@if `p26 > money then do
+@begin
+@show
+`r0`c
+
+ `4You don't have enough money for `%`p24 `4max hitpoints. That would
+ cost you `$$`p26 `4gold and you only have `$$`p23 `4gold!
+
+@key
+@do goto guy5
+@end
+@do `p29 is 1
+@do money - `p26
+@do `p03 + `p24
+@show
+`r0`c
+
+ `7You know have `p03 max hitpoints!!!!!
+
+@key
+@do goto guy5
+@end
+
+
+
+
+
+@#color
+@do moveback
+@busy
+@if doctree.txt exists false then do
+@begin
+@writefile doctree.txt
+`%Hobb : `7Are we ever gonna be able to get out of this cave?
+`%Barley : `8I hope so...some day.
+@end
+@clear screen
+@displayfile doctree.txt
+@show
+
+
+@do `s02 is `n`x:`x
+@do `p21 is length `s02
+@do `p22 is 78
+@do `p22 - `p21
+@do `v01 is 1
+@choice
+`x`2Write on tree with `7chalk
+`x`2Write on tree with `8coal
+`x`6Leave
+@if responce is 3 then do
+@begin
+@drawmap
+@update
+@end
+@if responce is 1 then do
+@begin
+@clear screen
+@displayfile doctree.txt
+@show
+`r0`c
+
+ `3Type what you would like to add below (Enter blank line to quit) :
+@do readstring `p22 NIL `s03
+@do `p20 is length `s03
+@if `p20 < 3 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@do stripall `s03
+@do `s02 is NIL
+@do `s02 is `n
+@do stripall `s02
+@writefile doctree.txt
+`%`s02`x:`x`7`s03
+@do trim doctree.txt 17
+@do goto color
+@end
+@if responce is 2 then do
+@begin
+@clear screen
+@displayfile doctree.txt
+@show
+`r0`c
+
+ `3Type what you would like to add below (Enter blank line to quit) :
+@do readstring `p22 NIL `s03
+@do `p20 is length `s03
+@if `p20 < 3 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@do stripall `s03
+@do `s02 is NIL
+@do `s02 is `n
+@do stripall `s02
+@writefile doctree.txt
+`%`s02`x:`x`8`s03
+@do trim doctree.txt 17
+@do goto color
+@end
+
+
+
+@#backroom
+@if &lasty is 7 then do
+@begin
+@do saybar
+`6The Doc seems busy in his work.
+@end
+
+@#bed
+@do moveback
+@do saybar
+`2Eeew...it smells like a dead carcus.
+
+@#nohome
+@do moveback
+@datanewday docnohom.idf
+@dataload docnohom.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do saybar
+`2The man is lying on the ground bleeding all over `4THANKS TO YOU!
+@closescript
+@end
+@datanewday dochomno.idf
+@dataload dochomno.idf &playernum `p20
+@if `p20 = 1 then do
+ @begin
+ @if &lastx is 40 then do
+ @begin
+ @do x is 42
+ @update
+ @closescript
+ @end
+ @if &lastx is 42 then do
+ @begin
+ @do x is 40
+ @update
+ @closescript
+ @end
+@end
+@show
+`r0`c
+ `r1`2TALKING WITH HOMELESS GUY`r0
+
+
+ `3HEY KID! If you give me $1000 gold I will make it worth your while.
+
+
+@if money < 1000 then do
+@begin
+@do `v01 is 1
+@choice
+`4Beat him
+`6Leave since you don't have $1000
+@if responce is 2 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@if responce is 1 then do
+@begin
+@show
+`r0`c
+
+ `2You push him to the ground and beat him with your s&weapon.
+@do `p21 is random 1000 1
+@show
+`r0 `2You find $`p21 gold on him!
+
+ `4ALIGNMENT GOES DOWN BY 2
+
+@key
+@do money + `p21
+@do `p07 - 2
+@datasave docnohom.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+@end
+@do `v01 is 1
+@choice
+`3Give him the money
+`4Beat him
+`6Leave
+@if responce is 3 then do
+@begin
+@drawmap
+@update
+@end
+@if responce is 1 then do
+@begin
+@show
+`r0`c
+
+ `3Thank you so very much young `n`3. I am very thankful.
+ For being such a nice warrior I will let ya go around to the
+ back of the building!!!
+
+
+
+
+@key
+@do x is 40
+@do money - 1000
+@datasave dochomno.idf &playernum 1
+@drawmap
+@update
+@end
+@if responce is 2 then do
+@begin
+@do `p21 random 1000 1
+@show
+`r0`c
+
+ `2You shove the old man into the wall and beat him with your trusty
+ s&weapon.
+
+ You find $`p21 gold!!!
+
+ `4ALIGNMENT GOES DOWN BY 2
+
+@key
+@do `p07 - 2
+@do money + `p21
+@datasave docnohome.idf &playernum 1
+@drawmap
+@update
+@end
+
+
+
+@#bye
+@offmap
+@show
+`r0`c
+
+ `2Thank you for using `%D`7oc `%F`7arrell `2by `3Kevin Farrell
+
+@key
+@loadmap 1040
+@do x is 43
+@do y is 9
+@drawmap
+@update
+@end
+
+
+@#thatsall
diff --git a/xtrn/lord2/cnw/doc2.ref b/xtrn/lord2/cnw/doc2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e31c59009f344667a28ed43a20bee25a83cc55dd
--- /dev/null
+++ b/xtrn/lord2/cnw/doc2.ref
@@ -0,0 +1,905 @@
+; Script file DOC2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:38 2001
+
+@DECLARE backdoor 000000710
+@DECLARE bid 000002964
+@DECLARE dartgame 000003623
+@DECLARE position 000004284
+@DECLARE power 000004623
+@DECLARE shoot 000005406
+@DECLARE prize 000006793
+@DECLARE redtree 000009089
+@DECLARE fight1 000009288
+@DECLARE fight2 000009920
+@DECLARE fight3 000010583
+@DECLARE fight4 000011229
+@DECLARE fight5 000011865
+@DECLARE fight6 000012531
+@DECLARE fight7 000013173
+@DECLARE fight8 000013844
+@DECLARE fight9 000014535
+@DECLARE lose 000015332
+@DECLARE win 000015742
+@DECLARE win2 000016116
+@DECLARE champ 000016649
+@DECLARE end 000017429
+@NOCHECK
+; End of .REF index
+
+@#backdoor
+@do moveback
+@if &lasty is 6 then do
+@begin
+@update
+@closescript
+@end
+@offmap
+@show
+`r0`c
+
+ `r1 `%BACKYARD `r0
+
+ `2You walk around to the back of the building. You rub your eyes
+ when you see a door just standing there in the middle of the yard,
+ seeming to serve no purpose.
+
+@do write
+`3 What do you do?
+@do `v01 is 1
+@choice
+`2Go in the front side
+`2Go in the back side
+`6Leave
+@if response is 3 then do
+@begin
+@do x is 39
+@do y is 8
+@loadmap 1040
+@drawmap
+@update
+@closescript
+@end
+@if response is 1 then do
+@begin
+@show
+`r0`c
+
+ `2TO YOUR AMAZMENT!!! When you step through the door there is another
+ room! You see two beautiful women in bikinis walk by.
+
+`k
+
+ `2Then you see four guys sitting at a table (obviously drunk!) and
+ they yell for you to come over.
+
+ `3"Hey there little s&boy, how'd ya like ta try and make some money?"
+
+ `0"And exactly how would I do that?" you say sarcasticly
+
+ `3"Well you see that dart board? If you can get 200 or more points
+ then you get double your money, and if you can't then you lose it!
+ Whado ya say?"
+
+@do write
+`2 Well? Y/[N] :
+@do readspecial `s01 NY
+@if `s01 is N then do
+@begin
+@do goto backdoor
+@end
+@do write
+`\`\`\`2 Do you want to see the instructions? Y/[N] :
+@do readspecial `s01 NY
+@if `s01 is Y then do
+@begin
+@show
+`r0`c
+ `r1 `%DARTS INSTRUCTIONS `r0
+
+ `3This game is simple! First, you will be the head on the left side
+ moving up and down. When you are ready hit a key and it will stop.
+ That will be your position. Then, on the bottom there will be a bar
+ going back and forth. When you are ready hit a key. That will be
+ your power. Red is the strongest and Green is the weakest. The
+ Stronger you throw the straighter it goes! You will want to try to
+ hit as close as you can to the bullseye on the dart board at the
+ right end of the screen. If you can 200 or more points then you will
+ get double your money, otherwise you lose it.
+ Good Luck!
+
+@key
+@end
+@label bid
+@do `p24 is 200
+@show
+`r0`c
+
+ `2How much would you like to bet? MIN $200 (blank to cancel)
+@if `p24 is 0 then do goto backdoor
+@if money < 200 then do
+@begin
+@do write
+`4 YOU DON'T HAVE ENOUGH MONEY `\`\`\`\
+@key
+@do goto backdoor
+@end
+@do write
+`3 Enter amount :
+@do readnum 6 200
+@if `p24 < 200 then do
+@begin
+@show
+`r0
+ `4Sorry the minimum bid is $200 gold.
+
+@key
+@do goto bid
+@end
+@if `p24 > money then do
+@begin
+@show
+`r0`c
+
+ `4Damn! `2You must be drunker then me cuz `4YOU DON'T HAVE THAT MUCH
+ MONEY!!!
+
+@key
+@do goto bid
+@end
+@do `p28 is 0
+@do `p22 is 0
+@label dartgame
+@do `p28 + 1
+@do move 20 12
+@do write
+ `2Press a key when you're ready to throw...
+@key nodisplay
+@clear screen
+@show
+[?7h[255D[0;1;32;44m�������������������������������������������������������������������������������[40m
+[A[79C[44m�[40m
+
+
+[77C[37mpts[75C[34m�� [37m10[75C[34m��
+[75C[33m�� [37m20[75C[33m��
+[75C[0;32m�� [1;37m30[75C[0;31m�� [1;37m50[75C[0;32m�� [1;37m30[75C[33m��
+[75C�� [37m20[75C[34m��
+[75C�� [37m10
+
+
+[32;44m�������������������������������������������������������������������������������[40m
+[A[79C[44m�[40m
+
+[0m[255D
+@do `p20 is 2
+@do `p29 is 1
+
+@label position
+@do move 1 `p20
+@do write
+`%`w
+@do getkey `s01
+@if `s01 not _ then do
+@begin
+@do `p25 is `p20
+@do `p20 is 1
+@do `p29 is 1
+@do `p21 is 5
+@do `s10 is `2�
+@do goto power
+@end
+@do move 1 `p20
+@do write
+`r0`x
+@if `p20 is 19 then `p29 is -1
+@if `p20 is 2 then `p29 is 1
+@do `p20 + `p29
+@do goto position
+
+
+@label power
+@do move `p20 22
+@do write
+`s10`w
+@do getkey `s01
+@if `s01 not _ then do
+ @begin
+ @do `p26 is `p27 ;power
+ @do `p24 is 0 ;move 'till drop
+ @do `p21 is 1 ;x position
+ @do goto shoot
+@end
+@if `p20 not 1 then do
+@begin
+@if `p29 is -1 then do
+@begin
+@do move `p20 22
+@do write
+`r0`x`x
+@end
+@end
+@if `p20 is 6 then `p29 is -1
+@if `p20 is 1 then `p29 is 1
+@if `p20 is 1 then `p27 is 5
+@if `p20 is 2 then `p27 is 10
+@if `p20 is 3 then `p27 is 20
+@if `p20 is 4 then `p27 is 30
+@if `p20 is 5 then `p27 is 50
+@if `p20 is 6 then `p27 is 100
+@do `p20 + `p29
+@if `p20 is 2 then `s10 is `2�
+@if `p20 is 3 then `s10 is `$�
+@if `p20 is 4 then `s10 is `$�
+@if `p20 is 5 then `s10 is `4�
+@do goto power
+
+
+@label shoot
+@do move `p21 `p25
+@do write
+ `%>�>`w
+@if `p24 is `p26 then do
+ @begin
+ @do move `p21 `p25
+ @do write
+ `r0`x`x`x`x
+ @do `p25 + 1
+ @do `p21 + 1
+ @do `p24 is 0
+ @if `p25 is 19 then do
+ @begin
+ @if `p28 is 5 then do
+ @begin
+ @do goto prize
+ @end
+ @do goto dartgame
+ @end
+ @do `p24 + 1
+ @do goto shoot
+@end
+@if `p21 is 72 then do
+ @begin
+ @do move `p21 `p25
+ @do write
+ `%>�
+ @if `p25 is 6 then `p22 + 10
+ @if `p25 is 7 then `p22 + 10
+ @if `p25 is 8 then `p22 + 20
+ @if `p25 is 9 then `p22 + 20
+ @if `p25 is 10 then `p22 + 30
+ @if `p25 is 11 then `p22 + 50
+ @if `p25 is 12 then `p22 + 30
+ @if `p25 is 13 then `p22 + 20
+ @if `p25 is 14 then `p22 + 20
+ @if `p25 is 15 then `p22 + 10
+ @if `p25 is 16 then `p22 + 10
+ @do `p24 is 0
+ @if `p28 is 5 then do
+ @begin
+ @do move 15 13
+ @do write
+`%That was your last dart, hit any key to continue...
+ @key nodisplay
+ @do goto prize
+ @end
+ @do goto dartgame
+@end
+@do `p21 + 1
+@do `p24 + 1
+@do goto shoot
+
+
+@label prize
+@if `p22 < 200 then do
+ @begin
+ @show
+`r0`c
+
+ `2HA HA HA HA HA!!!! Sorry Jr., you only got `p22 points!
+ `4Now cough up the dough!
+
+ `3So you sadly hand over the `$$`p23 `3gold you bet.
+
+ @key
+ @do money - `p23
+ @do goto backdoor
+@end
+@show
+`r0`c
+
+ `2WOW!!! They stare in amazment as even they can see that you've
+ won!
+
+ YOU GOT `p22 POINTS!!!
+
+ `3Excuse me BOYS, I belive ya'll owe me some money! You say happily.
+
+ `0They hand you the money and go sit at their table and start yelling.
+
+@key
+@do `p23 * 2
+@do money + `p23
+@do goto backdoor
+@end
+@end
+@if response is 2 then do
+ @begin
+ @datanewday docbrutl.idf
+ @dataload docbrutl.idf &playernum `p20
+ @if `p20 is 1 then do
+ @begin
+ @show
+`r0`c
+
+ `2Sorry...you may not enter again today for you have already beaten
+ everyone in the Brutal World!
+
+ @key
+ @do goto backdoor
+ @end
+ @show
+`r0`c
+ `r1 `%BRUTAL WORLD `r0
+
+ `%You walk through the door and there is another world!
+
+ `2Welcome `n`2, we've been expecting you. Ahead lies a great
+ challenge, that is, if you're brave enough to except it.
+
+ You see...there is a world ahead with many dangers, a world where
+ there are no moral boundries. You must be prepared for the worst.
+ If you go there will be 9 enemies awaiting, each one tougher then
+ the other. You will have to fight them all to win. If you beat
+ them all then you will be GREATLY REWARDED! If you fail you will
+ be remembered as a sissy little s&boy.
+
+@do write
+`3 Do you except the challenge? Y/[N] :
+@do readspecial `s01 NY
+@if `s01 is N then do
+@begin
+@show
+`r0`c
+`\`\`\`\`\`\`\
+ `4SISSY!!!!
+`\`\`\
+@key
+@do goto backdoor
+@end
+@show
+`r0`c
+
+ `2It's great that the warriors today are still brave...
+
+ But I warn you friend that this will not be easy!
+
+
+@key
+@datasave docbrute.idf &playernum 0
+@do x is 46
+@do y is 12
+@loadmap 170
+@drawmap
+@update
+@end
+
+
+
+@#redtree
+@show
+`r0`c
+
+ `4YOU COWARD!!! `2You don't even have the courage to TRY and become
+ a great warrior! Ya know what? You're a wimp!
+
+
+@key
+@do goto backdoor
+
+
+@#fight1
+@do moveback
+@busy
+@dataload docbrute.idf &playernum `p20
+@if `p20 > 0 then do
+@begin
+@do saybar
+`2The "Great Brian" is laying on the ground unconscious. What a GEEK!
+@closescript
+@end
+@fight
+;name
+The Great Brian
+;string
+You dare to challenge me The GREAT BRIAN?
+;power move
+You hit him with your s&weapon and kill him! What a wimp!
+;sex
+1
+;weapons 1-5
+hits you with his sword|25
+punches you in the face|31
+kicks you in the shins|29
+NONE|NONE
+NONE|NONE
+;defence
+34
+;experience
+0
+;gold
+0
+;hitpoints
+75
+;ref if wins
+DOC2.REF|WIN
+;ref if loses
+DOC2.REF|LOSE
+;ref if runs
+NONE|NONE
+
+@#fight2
+@do moveback
+@busy
+@dataload docbrute.idf &playernum `p20
+@if `p20 < 1 then do
+@begin
+@do saybar
+`2 You are not yet worthy of me!
+@closescript
+@end
+@if `p20 > 1 then do
+@begin
+@do saybar
+`2 You have already beaten him!
+@closescript
+@end
+@fight
+;name
+Daggus
+;string
+HA HA HA! You make me laugh s&boy.
+;power move
+Is it possible a wimp like you could defeat me? Daggus?
+;sex
+1
+;weapons
+body slams you|34
+throws you into a tree|39
+slashes you with his daggar|47
+NONE|NONE
+NONE|NONE
+;defence
+40
+;exper
+0
+;gold
+0
+;hitpoints
+100
+;ref if win
+DOC2.REF|WIN
+;ref if lose
+DOC2.REF|LOSE
+;ref if run
+NONE|NONE
+
+@#fight3
+@do moveback
+@busy
+@dataload docbrute.idf &playernum `p20
+@if `p20 < 2 then do
+@begin
+@do saybar
+`2 You are not yet worthy of me!
+@closesript
+@end
+@if `p20 > 2 then do
+@begin
+@do saybar
+`2 She's dead!
+@closescript
+@end
+@fight
+;name
+Veronica
+;string
+Challenge me? Veronica? Good Luck! You'll need it!
+;power move
+You got lucky!!!
+;sex
+2
+;weapon
+kicks you between the legs|45
+slaps you across the face|57
+shoves your face in the dirt|49
+NONE|NONE
+NONE|NONE
+;defence
+60
+;exper
+0
+;gold
+0
+;hitpoints
+150
+;win ref
+DOC2.REF|WIN
+;lose ref
+DOC2.REF|LOSE
+;run ref
+NONE|NONE
+
+@#fight4
+@do moveback
+@busy
+@dataload docbrute.idf &playernum `p20
+@if `p20 < 3 then do
+@begin
+@do saybar
+`2 You are not yet worthy of me!
+@closescript
+@end
+@if `p20 > 3 then do
+@begin
+@do saybar
+`2 The giant bug lying on the ground bleading.
+@closescript
+@end
+@fight
+;name
+Giant Gahaniet
+;string
+Come on you puny human!
+;powermove
+AAAAAAAAAAAAAAAAAHHHHHHHHHHHHHHHHH a puny human has defeated me!
+;sex
+3
+;weapons
+whips you with its antenna|69
+bites your leg|54
+mauls you|94
+NONE|NONE
+NONE|NONE
+;defence
+75
+;exper
+0
+;gold
+0
+;hp
+200
+;win
+DOC2.REF|WIN
+;lose
+DOC2.REF|LOSE
+;run
+NONE|NONE
+
+@#fight5
+@do moveback
+@busy
+@dataload docbrute.idf &playernum `p20
+@if `p20 < 4 then do
+@begin
+@do saybar
+`2 You are not yet worthy of me!
+@closescript
+@end
+@if `p20 > 4 then do
+@begin
+@do saybar
+`2 Jake "the Jerk" has already been defeated!
+@closescript
+@end
+@fight
+;name
+Jack the Champ
+;string
+You? Beat me? I'd like to see you try!
+;power
+I don't believe I've been bested by YOU!!
+;sex
+1
+;weapons
+gives you a straight jab to the face|78
+gives you a left hook to the jaw|91
+drop kicks you|87
+NONE|NONE
+NONE|NONE
+;defence
+150
+;exper
+0
+;gold
+0
+;hitpoints
+300
+;win
+DOC2.REF|WIN
+;lose
+DOC2.REF|LOSE
+;run
+NONE|NONE
+
+@#fight6
+@do moveback
+@busy
+@dataload docbrute.idf &playernum `p20
+@if `p20 < 5 then do
+@begin
+@do saybar
+`2 You are not yet worthy of me!
+@closescript
+@end
+@if `p20 > 5 then do
+@begin
+@do saybar
+`2 You have already defeated him!
+@closescript
+@end
+@fight
+;name
+Evil King Drake
+;string
+Hah! You're nothing but a worthless peasant!
+;power
+Nooo! You can't beat me! I'm a KING!!!
+;sex
+1
+;weapons
+hits you with his staff|97
+calls his guards|113
+stabs you with his crown|102
+NONE|NONE
+NONE|NONE
+;defence
+300
+;exper
+0
+;gold
+0
+;hitpoints
+600
+;win
+DOC2.REF|WIN
+;lose
+DOC2.REF|LOSE
+;run
+NONE|NONE
+
+@#fight7
+@do moveback
+@busy
+@dataload docbrute.idf &playernum `p20
+@if `p20 < 6 then do
+@begin
+@do saybar
+`2 You are not yet worthy of me!
+@closescript
+@end
+@if `p20 > 6 then do
+@begin
+@do saybar
+`2 You have already defeated he...er...she...er...IT!
+@closescript
+@end
+@fight
+;name
+Green Alien
+;string
+Are you ready to die earthling?
+;powermove
+NOOOOOOOOOO!! M-m-must f-f-find sp-sp-space sh-sh-ship f-f-fast!
+;sex
+3
+;weapon
+zaps you with it's phaser|139
+throws you 30 feet into the air|160
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defence
+400
+;exper
+0
+;gold
+0
+;hitpoints
+800
+;win
+DOC2.REF|WIN
+;lose
+DOC2.REF|LOSE
+;run
+NONE|NONE
+
+@#fight8
+@do moveback
+@busy
+@dataload docbrute.idf &playernum `p20
+@if `p20 < 7 then do
+@begin
+@do saybar
+`2 You are not worthy of me!
+@closescript
+@end
+@if `p20 > 7 then do
+@begin
+@do saybar
+`2 The entire mob is dead and scattered around the ground!
+@closescript
+@end
+@fight
+;name
+Angry Mob
+;string
+It's people like you who have destroyed are land! LET'S GET 'EM!
+;power
+B-B-But that's impossible! You are one...we are many!
+;sex
+3
+;weapons
+dogpile you|197
+pin you down and massacre you|237
+stampede and plow you|249
+NONE|NONE
+NONE|NONE
+;defence
+700
+;exper
+0
+;gold
+0
+;hitpoints
+1200
+;win
+DOC2.REF|WIN2
+;lose
+DOC2.REF|LOSE
+;run
+NONE|NONE
+
+@#fight9
+@do moveback
+@busy
+@dataload docbrute.idf &playernum `p20
+@if `p20 < 8 then do
+@begin
+@do saybar
+`2 You are not worthy of me!
+@closescript
+@end
+@if docchamp.dat exists false then do
+@begin
+@writefile docchamp.dat
+Gander the Warrior
+@end
+@readfile docchamp.dat
+`s01
+@fight
+;name
+`s01
+;string
+You may have beaten the others, but you have no chance against me!
+;power
+W-w-what?!? It's impossible!!! I've never been beaten!! NOOOOOOOOO!!!
+;sex
+1
+;weapon
+strikes you with a bolt of lightning|374
+opens the earth between your feet|334
+lifts you off the earth and drops you|364
+changes into a dragon and breathes fire on you|578
+NONE|NONE
+;defence
+1000
+;exper
+0
+;gold
+0
+;hitpoints
+2000
+;win
+DOC2.REF|CHAMP
+;lose
+DOC2.REF|LOSE
+;run
+NONE|NONE
+
+
+@#lose
+@show
+`r0`c
+
+
+ `4You are a disgrace to ALL warriors! `2You have failed to meet
+ your challenge! Why don't you go off into the world, get stronger,
+ get smarter, and then come back and try again!
+
+@key
+@do addlog
+`n `2was defeated by `e `2and is a disgrace to all warriors!
+@do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@do goto backdoor
+
+
+@#win
+@show
+`r0`c
+
+ `r1 `%CONGRATULATIONS `r0
+
+ `%You are another step up on your way to glory! But don't get cocky
+ yet! You still have a long way to go! But NEVER give up! Keep
+ trying, and you will be a CHAMPION!
+
+
+@key
+@do `p20 + 1
+@datasave docbrute.idf &playernum `p20
+@drawmap
+@update
+
+
+
+@#win2
+@if docchamp.dat exists false then do
+@begin
+@writefile docchamp.dat
+Gander the Wizard
+@end
+@readfile docchamp.dat
+`s01
+@show
+`r0`c
+
+ `r1 `%CONGRATULATIONS `r0
+
+ `%You are only one step away from becoming a CHAMPION! But your
+ next and last challenge is the greatest one of all! Your next
+ challenge is `s01`%!
+ If you win you become King of the Mountain!!!
+
+
+@key
+@do `p20 + 1
+@datasave docbrute.idf &playernum `p20
+@drawmap
+@update
+
+
+@#champ
+@if docchamp.dat exists false then do
+@begin
+@writefile docchamp.dat
+Gander the Wizard
+@end
+@readfile docchamp.dat
+`s01
+@show
+`r0`c
+
+ `r1 `%CONGRATULATIONS `r0
+
+ `%YOU'VE DONE IT! You've accomplished the impossible! You've
+ beaten `s01`%!! You truly are a GREAT warrior!
+ You are now the king of the mountain!!!
+
+ `2You recieve 1000 experience, and $2000 gold.
+
+
+@key
+@do `p01 + 1000
+@do money + 2000
+@datasave docbrutl.idf &playernum 1
+@do addlog
+`2`n`2 has beaten `e `2and has become King of the Mountain!
+@do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@if docchamp.dat exists true then delete docchamp.dat
+@writefile docchamp.dat
+`n
+@do goto backdoor
+
+
+@#end
diff --git a/xtrn/lord2/cnw/docs/3rdparty.bak b/xtrn/lord2/cnw/docs/3rdparty.bak
new file mode 100644
index 0000000000000000000000000000000000000000..4d9dfb54a6bb7e67a234ddff9cae5723b1e120d1
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/3rdparty.bak
@@ -0,0 +1,246 @@
+
+ THIRD PARTY DOCUMENTATION FOR THE LORD2 ENGINE
+
+
+FOR INFO ON CREATING AN IGM FOR LORD2, READ IGM.DOC!!!!!!!!!!!!!! This
+stuff is generally usefull info too, though.
+
+This is some extra info and help on creating addons/new areas/stand alone
+.refs/new worlds for the LORD2 engine.
+
+My goal is to make it easy and free (besides our cheap $15 registration
+fee to use more than the unregistered portion of the world screens) for
+any non programmer to make his own door or world.
+
+** The pascal structures of most data files are listed at the end of this **
+** file. **
+
+Q: How do I start adding screens from a clear map?
+
+A: Delete the files WORLD.DAT and MAP.DAT.
+
+Q: If I make my own world, what do I need to distribute it?
+
+A: MAP.DAT, WORLD.DAT and all your .REF files. Probably a good idea to
+ also throw in a file_id.diz and a .doc file of some sort.
+
+ To install it, a person should setup a NEW game of LORD2 somewhere, then
+ copy your files over it. Otherwise it would destroy the real LORD2 game
+ they were running. Be sure to make this clear in your documentation.
+
+ Do *NOT* distribute the GAME.DAT file. This is where non game
+ information is held like their registration info (they probably don't
+ want this overwritten!) and ticks per second, etc.
+
+Q: You made LORD2 and my game needs it to run - does this mean I cannot
+ charge people for it?
+
+A: Charge away, I don't want any royalities, you might thank me in your
+ docs though. ;> Since there is no way to compile or protect your work,
+ I doubt many will charge for addons which is fine by me.
+
+ A situation that would make charging feasible is say, if you have one
+ full world addon, and for $5 you would send them two more. This worked
+ with new LORD ansi packs for a few people, and so much more than new
+ ANSI can be done now.
+
+Q: I'm editting some stuff in LORD2 - How do I know what vars you used for
+ what?
+
+A: Check the VARLIST.DAT file - at the top I list every var I am using and
+ tell you what it is for. Any addon you make should contain a list like
+ this in the file. It also helps the Sysop's to know what stuff is, as
+ L2CFG.EXE reads this file to put descriptions by vars.
+
+Q: I made my own game using your system - but it says LORDII: New World at
+ the bottom of the screen!! How tacky!
+
+A: You can change this. As well as the default <more> prompt. Check
+ REFHELP.DOC to learn about the @PROGNAME and @MOREMAP commands.
+
+Q: Do I have to use your realtime movement/messaging system?
+
+A: No. Download my addon BRADYREF.ZIP from my website and check it out - it
+ demonstrates how you can run a single .REF file for the game instead of
+ using the full on system. For .REF's like these, it is possible to run
+ them FROM the LORD2 dir, and not disrupt LORD2's real data files, in
+ case the sysop also has a LORD2 game running there.
+
+ It looks like this: LORD2 crap+crap.ref <other parms here>. This is
+ good for testing specific .ref files also. "crap" is the label to
+ run, and "crap.ref" is the filename.
+
+ When LORD2 is run this way, it behaves a little differently - for one, it
+ quits the game as soon as the .ref is done. Also, you cannot use the
+ built in load/save player data.
+
+ If you NEEDED this, but didn't want to use the mapping system at all, you
+ still can. You would edit the @#STARTGAME function to start your main
+ .REF game, then do a @halt to stop the game before it moves on to the
+ mapping system.
+
+-= Summary =-
+
+In any case - *IF* you are using the mapping engine in your game, be sure
+to tell the user in the docs if a registered LORD2 is required so they
+don't think your .ref is buggy if things go wrong.
+
+They need a registered LORD2 if:
+
+ * You use maps that are not in the unregistered area. This kinda tricky -
+ but basically all the maps you can access in the very first part of the
+ game up to until you get to Porttown are the unregistered area.
+
+ * You use more than 57 items in the items system. If they pickup/buy an
+ item pass 57, it will show up as blank, and will not be useable.
+
+Please send your finishes addons/games over to me to check out, I'll put the
+best ones/ones that work on my web page for download!
+
+Just email attach them mime or uue to sethable@rtsoft.com.
+
+If you have questions and need help with .REF's please feel free to email
+me for help and suggestions, but even in LORD2's beta form I am getting
+.REF's sent to me every day to diagnose problems and such and I can see
+I won't be able to do this for everyone... <G>
+
+But I'll do what I can!
+
+Also: I'll probably have LORD2 ref/world download area on my website soon,
+as well as a developers area. So hit www.rtsoft.com once in a while to
+see what is new there!
+
+-Seth (sethable@rtsoft.com)
+
+-=-=-= Record formats for the map.dat, world.dat and trader.dat files =-=-
+
+I got a few people wanting to make their own player/screen editors for
+L2, this is fine with me. As promised here is the record format in
+Pascal:
+
+ type world_info = record {For the world.dat file - this is kind of
+ the index for the MAP.REF file. It tells LORD2 how each screen hooks
+ to each other. loc is each screen - starting at x1,y1 is 1, then this
+ goes right until 80 is reached, then starts at x1,y2 for 81 etc.}
+ name: string[60];
+ loc: array[1..1600] of integer; {holds the physical map # of the
+ record for this screen from the MAP.DAT file.. If # is 0, there is
+ no screen here. }
+ v: array[1..40] of longint; {used by `v}
+ s: array[1..10] of string[80]; {used by `s}
+ time: longint; {year+month+day?.. not sure can't remember}
+ show: array[1..1600] of byte; {show up on the players auto 'map'?}
+ extra: array[1..396] of char; {extra for me}
+ end;
+
+
+ type all_players = record
+ p: array[1..200] of all_p;
+ end;
+
+
+ type user_rec = record
+ name : string[25]; {handle they choose for LORD2}
+ real_names: string[40]; {name from BBS}
+ gold,bank,exp: longint; {exp isn't used but reserved}
+ last_day_on,love: integer; {love isn't used but reserved}
+ wep,arm: shortint; {item # of wep/arm they have equipped}
+ race: string[30]; {reserved}
+ sex_male: integer; {1 if male.. yes there is a reason I didn't use
+ a byte!! <G> }
+ on_now,battle: byte; {these will be OFF when a player is offline}
+ dead,busy,deleted,nice,map,e6: integer;
+ {If dead, dead is 1, if deleted, deleted is 1. Map is map block #.}
+ x,y: integer; {current cordinates of player}
+ item: array[1..99] of integer; {items. used by `i}
+ p: array[1..99] of longint; {longints. used by `i}
+ b: array[1..99] of byte; {bytes. Used by `t}
+ last_saved: longint; {last day saved}
+ last_day_played: longint; {duh}
+ lmap: integer; {last map player was on that was 'visable'}
+ extra: array[1..354] of char; {reserved for me}
+ end;
+
+
+{The update.tmp file is made up of this record, one for each player
+in order. Just in case you wanted to write an ap that needed to know
+what was going on realtime.}
+
+ type q_update = record
+ x,y: shortint;
+ map: integer;
+ on_now: byte;
+ busy: byte; {these are all 0 or 1 if true}
+ battle: byte;
+ end;
+
+
+
+
+
+ type item_struct = record {used by item.ref}
+ name: string[30]; {name of item}
+ action: string[40]; {string for hitting someone with it}
+ use_once,armour,weapon,sell,used: boolean;
+ value: longint; {gold value}
+ breakage: integer; {break percentage per use}
+ max_buy: integer; {unused for now}
+ def,strength: integer; {strength/defence added if equipped}
+ eat: integer; {unused for now}
+ ref: string[12]; {label of .ref procedure in ITEMS.REF}
+ use_action: string[30]; {text for using it with the .ref}
+ descrip: string[30]; {description of item that shows to the right}
+ drop: boolean; {if true, item cannot be dropped, it is a quest item}
+ extra: array[1..37] of char; {reserved}
+ end;
+
+ type item_rec = record {the entire ITEMS.DAT file is ONE of this
+ record format}
+ i: array[1..99] of item_struct;
+ end;
+
+
+ type map_info = record {used by plan_rec, which is for each
+ screen}
+ fc: shortint; {foreground color of square}
+ bc: shortint; {background color of square}
+ c: char; {actual char}
+ t: integer; {can't remember}
+ s: shortint; {what type so it knows if you can walk through it or
+ not.. here is the list:
+
+if map^.w[x,y].s = 0 then ter := 'Unpassable';
+if map^.w[x,y].s = 1 then ter := 'Grass';
+if map^.w[x,y].s = 2 then ter := 'Rocky';
+if map^.w[x,y].s = 3 then ter := 'Water';
+if map^.w[x,y].s = 4 then ter := 'Ocean';
+if map^.w[x,y].s = 5 then ter := 'Forest'; }
+
+ end;
+
+
+ type special_struct = record {also used by plan_rec, the ten
+hotspots available all use this format}
+ move_place: integer; {map to move to, 0 if not a warp}
+ dx,dy: shortint; {xy cords of hotspot, 0 if hotspot not used}
+ x,y: shortint; {xy cords of warp destination, 0 if not a warp}
+ refname: string[12]; {label of ref procedure to run, if not a warp}
+ reffile: string[12]; {filename of .ref to run if not a warp}
+ extra: array[1..100] of char; {reserved by me}
+ end;
+
+
+ type plan_rec = record {record for the MAP.DAT file, which is
+ screen info}
+ name: string[30]; {name of screen}
+ w: array[1..80] of array[1..20] of map_info; {each block on screen}
+ special: array[1..10] of special_struct; {the 10 hotspots}
+ battle_odds: longint; {odds of running the 'screen random ref'}
+ batfile: string[12]; {ref file name}
+ batname: string[12]; {label of ref procedure}
+ safe: boolean; {true if players cannot fight on this screen}
+ extra: array[1..469] of char; {reserved by me}
+ end;
+
+
+
diff --git a/xtrn/lord2/cnw/docs/3rdparty.doc b/xtrn/lord2/cnw/docs/3rdparty.doc
new file mode 100644
index 0000000000000000000000000000000000000000..3386b292bae96811a8db98cd668ed9901406deec
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/3rdparty.doc
@@ -0,0 +1,257 @@
+
+ THIRD PARTY DOCUMENTATION FOR THE LORD2 ENGINE
+
+
+FOR INFO ON CREATING AN IGM FOR LORD2, READ IGM.DOC!!!!!!!!!!!!!! This
+stuff is generally usefull info too, though.
+
+This is some extra info and help on creating addons/new areas/stand alone
+.refs/new worlds for the LORD2 engine.
+
+My goal is to make it easy and free (besides our cheap $15 registration
+fee to use more than the unregistered portion of the world screens) for
+any non programmer to make his own door or world.
+
+** The pascal structures of most data files are listed at the end of this **
+** file. **
+
+Q: How do I start adding screens from a clear map?
+
+A: Delete the files WORLD.DAT and MAP.DAT.
+
+Q: If I make my own world, what do I need to distribute it?
+
+A: MAP.DAT, WORLD.DAT and all your .REF files. Probably a good idea to
+ also throw in a file_id.diz and a .doc file of some sort.
+
+ To install it, a person should setup a NEW game of LORD2 somewhere, then
+ copy your files over it. Otherwise it would destroy the real LORD2 game
+ they were running. Be sure to make this clear in your documentation.
+
+ Do *NOT* distribute the GAME.DAT file. This is where non game
+ information is held like their registration info (they probably don't
+ want this overwritten!) and ticks per second, etc.
+
+Q: You made LORD2 and my game needs it to run - does this mean I cannot
+ charge people for it?
+
+A: Charge away, I don't want any royalities, you might thank me in your
+ docs though. ;> Since there is no way to compile or protect your work,
+ I doubt many will charge for addons which is fine by me.
+
+ A situation that would make charging feasible is say, if you have one
+ full world addon, and for $5 you would send them two more. This worked
+ with new LORD ansi packs for a few people, and so much more than new
+ ANSI can be done now.
+
+Q: I'm editting some stuff in LORD2 - How do I know what vars you used for
+ what?
+
+A: Check the VARLIST.DAT file - at the top I list every var I am using and
+ tell you what it is for. Any addon you make should contain a list like
+ this in the file. It also helps the Sysop's to know what stuff is, as
+ L2CFG.EXE reads this file to put descriptions by vars.
+
+Q: I made my own game using your system - but it says LORDII: New World at
+ the bottom of the screen!! How tacky!
+
+A: You can change this. As well as the default <more> prompt. Check
+ REFHELP.DOC to learn about the @PROGNAME and @MOREMAP commands.
+
+Q: Do I have to use your realtime movement/messaging system?
+
+A: No. Download my addon BRADYREF.ZIP from my website and check it out - it
+ demonstrates how you can run a single .REF file for the game instead of
+ using the full on system. For .REF's like these, it is possible to run
+ them FROM the LORD2 dir, and not disrupt LORD2's real data files, in
+ case the sysop also has a LORD2 game running there.
+
+ It looks like this: LORD2 crap+crap.ref <other parms here>. This is
+ good for testing specific .ref files also. "crap" is the label to
+ run, and "crap.ref" is the filename.
+
+ When LORD2 is run this way, it behaves a little differently - for one, it
+ quits the game as soon as the .ref is done. Also, you cannot use the
+ built in load/save player data.
+
+ If you NEEDED this, but didn't want to use the mapping system at all, you
+ still can. You would edit the @#STARTGAME function to start your main
+ .REF game, then do a @halt to stop the game before it moves on to the
+ mapping system.
+
+-= Summary =-
+
+In any case - *IF* you are using the mapping engine in your game, be sure
+to tell the user in the docs if a registered LORD2 is required so they
+don't think your .ref is buggy if things go wrong.
+
+They need a registered LORD2 if:
+
+ * You use maps that are not in the unregistered area. This kinda tricky -
+ but basically all the maps you can access in the very first part of the
+ game up to until you get to Porttown are the unregistered area.
+
+ * You use more than 57 items in the items system. If they pickup/buy an
+ item pass 57, it will show up as blank, and will not be useable.
+
+Please send your finishes addons/games over to me to check out, I'll put the
+best ones/ones that work on my web page for download!
+
+Just email attach them mime or uue to sethable@rtsoft.com.
+
+If you have questions and need help with .REF's please feel free to email
+me for help and suggestions, but even in LORD2's beta form I am getting
+.REF's sent to me every day to diagnose problems and such and I can see
+I won't be able to do this for everyone... <G>
+
+But I'll do what I can!
+
+Also: I'll probably have LORD2 ref/world download area on my website soon,
+as well as a developers area. So hit www.rtsoft.com once in a while to
+see what is new there!
+
+-Seth (sethable@rtsoft.com)
+
+-=-=-= Record formats for the map.dat, world.dat and trader.dat files =-=-
+
+I got a few people wanting to make their own player/screen editors for
+L2, this is fine with me. As promised here is the record formats in
+Pascal:
+
+ type igm_data = record {format of the @data commands when saved}
+ last_used: longint; {used for the @datanewday feature, this is how it tells
+ if it should reset the data because it is a new day
+ or not}
+ data: array[1..200] of longint; {the real data is kept here}
+ extra: array[1..200] of char; {reserved for gracefull upgrades..
+ hey, you never know}
+ end;
+
+ The above is the format for the new *.IDF files.
+
+ type world_info = record {For the world.dat file - this is kind of
+ the index for the MAP.REF file. It tells LORD2 how each screen hooks
+ to each other. loc is each screen - starting at x1,y1 is 1, then this
+ goes right until 80 is reached, then starts at x1,y2 for 81 etc.}
+ name: string[60];
+ loc: array[1..1600] of integer; {holds the physical map # of the
+ record for this screen from the MAP.DAT file.. If # is 0, there is
+ no screen here. }
+ v: array[1..40] of longint; {used by `v}
+ s: array[1..10] of string[80]; {used by `s}
+ time: longint; {year+month+day?.. not sure can't remember}
+ show: array[1..1600] of byte; {show up on the players auto 'map'?}
+ extra: array[1..396] of char; {extra for me}
+ end;
+
+
+ type all_players = record
+ p: array[1..200] of all_p;
+ end;
+
+
+ type user_rec = record
+ name : string[25]; {handle they choose for LORD2}
+ real_names: string[40]; {name from BBS}
+ gold,bank,exp: longint; {exp isn't used but reserved}
+ last_day_on,love: integer; {love isn't used but reserved}
+ wep,arm: shortint; {item # of wep/arm they have equipped}
+ race: string[30]; {reserved}
+ sex_male: integer; {1 if male.. yes there is a reason I didn't use
+ a byte!! <G> }
+ on_now,battle: byte; {these will be OFF when a player is offline}
+ dead,busy,deleted,nice,map,e6: integer;
+ {If dead, dead is 1, if deleted, deleted is 1. Map is map block #.}
+ x,y: integer; {current cordinates of player}
+ item: array[1..99] of integer; {items. used by `i}
+ p: array[1..99] of longint; {longints. used by `i}
+ b: array[1..99] of byte; {bytes. Used by `t}
+ last_saved: longint; {last day saved}
+ last_day_played: longint; {duh}
+ lmap: integer; {last map player was on that was 'visable'}
+ extra: array[1..354] of char; {reserved for me}
+ end;
+
+
+{The update.tmp file is made up of this record, one for each player
+in order. Just in case you wanted to write an ap that needed to know
+what was going on realtime.}
+
+ type q_update = record
+ x,y: shortint;
+ map: integer;
+ on_now: byte;
+ busy: byte; {these are all 0 or 1 if true}
+ battle: byte;
+ end;
+
+
+
+
+
+ type item_struct = record {used by item.ref}
+ name: string[30]; {name of item}
+ action: string[40]; {string for hitting someone with it}
+ use_once,armour,weapon,sell,used: boolean;
+ value: longint; {gold value}
+ breakage: integer; {break percentage per use}
+ max_buy: integer; {unused for now}
+ def,strength: integer; {strength/defence added if equipped}
+ eat: integer; {unused for now}
+ ref: string[12]; {label of .ref procedure in ITEMS.REF}
+ use_action: string[30]; {text for using it with the .ref}
+ descrip: string[30]; {description of item that shows to the right}
+ drop: boolean; {if true, item cannot be dropped, it is a quest item}
+ extra: array[1..37] of char; {reserved}
+ end;
+
+ type item_rec = record {the entire ITEMS.DAT file is ONE of this
+ record format}
+ i: array[1..99] of item_struct;
+ end;
+
+
+ type map_info = record {used by plan_rec, which is for each
+ screen}
+ fc: shortint; {foreground color of square}
+ bc: shortint; {background color of square}
+ c: char; {actual char}
+ t: integer; {can't remember}
+ s: shortint; {what type so it knows if you can walk through it or
+ not.. here is the list:
+
+if map^.w[x,y].s = 0 then ter := 'Unpassable';
+if map^.w[x,y].s = 1 then ter := 'Grass';
+if map^.w[x,y].s = 2 then ter := 'Rocky';
+if map^.w[x,y].s = 3 then ter := 'Water';
+if map^.w[x,y].s = 4 then ter := 'Ocean';
+if map^.w[x,y].s = 5 then ter := 'Forest'; }
+
+ end;
+
+
+ type special_struct = record {also used by plan_rec, the ten
+hotspots available all use this format}
+ move_place: integer; {map to move to, 0 if not a warp}
+ dx,dy: shortint; {xy cords of hotspot, 0 if hotspot not used}
+ x,y: shortint; {xy cords of warp destination, 0 if not a warp}
+ refname: string[12]; {label of ref procedure to run, if not a warp}
+ reffile: string[12]; {filename of .ref to run if not a warp}
+ extra: array[1..100] of char; {reserved by me}
+ end;
+
+
+ type plan_rec = record {record for the MAP.DAT file, which is
+ screen info}
+ name: string[30]; {name of screen}
+ w: array[1..80] of array[1..20] of map_info; {each block on screen}
+ special: array[1..10] of special_struct; {the 10 hotspots}
+ battle_odds: longint; {odds of running the 'screen random ref'}
+ batfile: string[12]; {ref file name}
+ batname: string[12]; {label of ref procedure}
+ safe: boolean; {true if players cannot fight on this screen}
+ extra: array[1..469] of char; {reserved by me}
+ end;
+
+
+
diff --git a/xtrn/lord2/cnw/docs/about.txt b/xtrn/lord2/cnw/docs/about.txt
new file mode 100644
index 0000000000000000000000000000000000000000..e86b2a53700942e2bb3b7733a5baa86f3aec91b7
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/about.txt
@@ -0,0 +1,42 @@
+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
+ About Devils Island v1.50
+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
+
+
+ Devils Island Version 1.50
+
+ Completed Demon Inn!
+
+ File: DEVHOT.REF
+ Added
+ :Soda Machine
+ :Snack Machine
+ :Ice Machine
+ :If completion of quest user has acs to the locked door!
+ \_Tables have some stuff for them on it, Only Once a day
+
+
+ Completed Demon's Bar!
+
+ FILE: DEVHOT.REF
+ Updated
+ :Bathroom
+ Added
+ :Sink
+ :Urnal
+ :Toliet
+ :Condom dispencer
+
+ Party finished CityHall (Bank only)
+
+ FILE: DEVISL.REF
+ Added
+ :Bank
+
+
+Darklands BBS (215) 487 7315
+Http://www.ibbs.com/darkland/
+TelNet: 205.198.132.190
+ ^__.190 can change.(sorry)damn dynamic ips
+
+
diff --git a/xtrn/lord2/cnw/docs/backdoor.doc b/xtrn/lord2/cnw/docs/backdoor.doc
new file mode 100644
index 0000000000000000000000000000000000000000..7e7607e0928c931129f40e7d9eef8e97dd1404d3
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/backdoor.doc
@@ -0,0 +1,49 @@
+TURGON'S BACKDOOR v1.1
+by Robby Dittmann
+
+Welcome to the latest version of Mamoosoft Programming's TURGON'S BACKDOOR!
+
+TO INSTALL:
+
+1) Make sure the files are in your LORD II directory.
+
+2) Type the following at a command prompt:
+
+ IGM BACKDOOR.IGM
+
+3) Crank up LORD II and head to the Training Center!
+
+TO UNINSTALL:
+
+1) Type IGM BACKDOOR.IGM again.
+
+
+HISTORY:
+
+v1.0
+Original release
+
+v1.1
+Fixed a bug where a non-existant loop was detected by the LORD2 engine and
+crashed anyone who tried to donate more than they had.
+
+Changed the .IGM file from "show" to "noshow"
+
+SPECIAL THANKS TO:
+
+Mariam Dittmann for alpha, beta, and gamma testing! And for her help with
+the ANSI artwork.
+
+
+REGISTRATION:
+
+Turgon's Backdoor is absolutely FREE. Of course, the author takes no
+responsibility for any damage or problems you may incur.
+
+Please let me know if you have any problems or questions. And let me know
+what you think!
+
+Robby Dittmann
+Mamoosoft Programming
+1:133/8003
+robbyd@sprynet.com
diff --git a/xtrn/lord2/cnw/docs/begger.txt b/xtrn/lord2/cnw/docs/begger.txt
new file mode 100644
index 0000000000000000000000000000000000000000..f908bcb33436ead77327ec58d77263dbe7f0cff5
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/begger.txt
@@ -0,0 +1,34 @@
+-= The Begger by Craig Goldsmith =-
+
+Ok well I just sat down and made this I can't test it
+very well so please be patient about any bugs and report
+them A.S.A.P. Well if you guys like this I am considering
+making the `rewards' more varied and raise the price. Well
+it's for you guys so If you wanna have your say do it coz
+thats what I wanna hear opinions and suggestions flames
+and otherwise. So far it only gives away gold and Alignment
+I thought I might minus Alignment for not paying but it
+mite go in the next version. Theres more IGM's out there
+so why not get em.. Like the Faeries Glade, Wishing Well
+Felicity's Temple a Church and many more by now...
+There are also some Ref File Brady Bunch and X-Rated Bradies.
+So support me and fellow Programmers by using these cool Igm's.
+
+What I would like to see in the next version is a full configurable
+IGM : how many vists, the price, the # of rewards / what you get etc
+If you would like to see that well tell me...
+
+Please don't hold me liable if it does things to ya System that
+you didn't want coz it won't be my fault.. -Disclaimer-
+
+*** Thanks to Justin Gardner *** for use of his email address :-)
+
+To Contact Me..
+ To: Craig Goldsmith
+ In the Lord Fido Net Echo OR
+ Netmail: at (3:625/160) Cyber-Net-X BBS, Broulee NSW
+OR
+ E-mail: gardnerj@onaustralia.com.au
+ soon to have my own address.
+
+
diff --git a/xtrn/lord2/cnw/docs/blue.doc b/xtrn/lord2/cnw/docs/blue.doc
new file mode 100644
index 0000000000000000000000000000000000000000..32b21d18b71d80c0d343ea5e63540b2f1e18f3c3
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/blue.doc
@@ -0,0 +1,29 @@
+In this IGM you are kidnapped by the "Blue Dragon". You must solve all the
+puzzles to get out. They are not that hard, but may require some thinking.
+I will put the answers in this file. Once again the refs are compiled to
+prevent my work from being stolen! This is the third IGM
+by SlayerSoft, the second by me. If you like it (or hate it) please drop me
+an email at slayer@calgary.crosswinds.net. To check out all the lastest
+versions of SlayerSoft stuff, check us out on the web at
+http://www.crosswinds.net/calgary/~slayer. This IGM is free for everyone.
+Since it is not really worth it to copyright an IGM, I have decided to encrypt
+the files instead. Sorry to those of you who might want to edit for local use
+but I have seen IGMs stolen, some artwork changed and then the thief putting
+their name on it. I hate that!
+
+Disclaimer:
+The author takes no responsiblity for any damages you may suffer from using
+this software, including but not limited to: loss of hardware of software,
+loss of revenue, abduction by aliens, descruction of your neighborhood.
+
+Thank Yous:
+
+Bobby Queen, web master of Official LORD2 IGM Archive
+Seth Able Robinson, maker of LORD2; sold to Metropolis
+Jeremy Olson, helping me with the artwork
+
+Answer to one: oneword
+
+Answer to two: Choose 3
+
+Answer to three: This one's a fight.
diff --git a/xtrn/lord2/cnw/docs/bong.doc b/xtrn/lord2/cnw/docs/bong.doc
new file mode 100644
index 0000000000000000000000000000000000000000..1aeef23a4e959d210025e79323b82f6ac9f4d586
Binary files /dev/null and b/xtrn/lord2/cnw/docs/bong.doc differ
diff --git a/xtrn/lord2/cnw/docs/canoe.doc b/xtrn/lord2/cnw/docs/canoe.doc
new file mode 100644
index 0000000000000000000000000000000000000000..7ba2386fea977c8a723d78330cdf5bd8f6ca22da
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/canoe.doc
@@ -0,0 +1,10 @@
+Thanks for downloading my third Lord2 IGM. This IGM adds a canoe to the game
+which you can use to visit a bar and grille, and a safehouse.
+
+:) Anywho, run the install.bat or IGM CANOE.IGM to install it.
+to Uninstall it for some reason, run install.bat or IGM CANOE.IGM
+
+Enjoy it
+
+ James Jones Sysop of The Shadow BBS! (850) 864-4292 (1:366/82)
+
diff --git a/xtrn/lord2/cnw/docs/cnw-bugs.txt b/xtrn/lord2/cnw/docs/cnw-bugs.txt
new file mode 100644
index 0000000000000000000000000000000000000000..12c1b588877858ca69e26459ad6624466e5956fb
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/cnw-bugs.txt
@@ -0,0 +1,132 @@
+
+ --------------- CNW BUG REPORTS -------------------
+
+ These are the known CNW bugs which have been reported and
+ unable to currently fix. All other bugs are listed in the
+ cnw-todo.txt file, as they have been fixed or will be fixed.
+
+ An updated version of this file can be found at:
+ http://www.greenmachinebbs.com/lord2/cnwfiles/docs/cnw-bugs.txt
+
+ KNOWN BUGS IN LATEST RELEASE v137.0
+
++#---BUG-------------------MAR 17-2001-----------------------------------+
+1 Sometimes, no idea why yet, the first player of the day does not
+ get started as a fresh new day, the game thinks they sre still
+ playing from the last day they played, meaning if there is no
+ more turns left, they will still have no more turns left.
+
+ There is a temperary and quick way to pass this; Just have that
+ player quit and join the game again, everything should be fine.
+
+UPDATE-FEB-5-2001
+ If you run the "lord2.bat" as maint each night, this bug will not
+ show up to the users.
+
+ I need some more tests done on this, need more information. If you
+ can see any paterns, please inform me.
+
++-----------------------------------------------------------------------+
+2 The first player of the day does still run some maint, and will
+ take longer than usual. (aprox 1min on 233mhz system)
+
+ I've tried to fix this so they don't have to wait as much.
+ The maint is suposed to run when you run "l2.exe /maint",
+ but the "/maint" doesn't seem to work properly :(
+
+ All the /maint does is advance the game by 1 more day.
+ So, don't run this as nightly maintnence.
+ Why was is call "/maint" then??
+
+UPDATE-JAN-20-2001
+ I've played around with the maint.ref and the rules.ref, now you
+ must run "lord2.bat" with no switches to run the maint each night.
+ Of course it would be good to run this right at midnight.
+ What this actualy does, is loads up player "SYSOP" and runs a set
+ of maintence routines. If this is not run, the 1st player in the
+ game will have to suffer during the maintence routines.
+
+UPDATE-FEB-5-2001
+ To make sure it is ran, run the "lord.bat" two times. Yes two times.
+ Why? cuz sometimes the bug#1 happens. Sometimes, not always. Its
+ like random or something.
+
+UPDATE-MAR-17-2001
+ If you do not have or want a SYSOP player in the game, then you can
+ alternately run "lord2.bat maint+maint.ref". This will only call
+ maint routines then quit. It will actualy take the player #1 and
+ use it, but not effect the player stats or whatever. Well it didn't
+ before either. Its just another way of running the maint i guess. :)
+
++-----------------------------------------------------------------------+
+3 Sometimes when new users try to enter the game, they get the
+ message "ERROR: Cannot dataload record 0!". Then the game returns
+ to the BBS.
+
+ I still don't know why this happens, but i've got a few ideas why,
+ and working on those ideas. So far no luck.
+
+UPDATE-JAN-20-2001
+ I found one possible place this bug probably is. TAXES.REF. I've
+ made the apropiated changes and hope it will not re-occur again.
+
+UPDATE-FEB-23-2001
+ It has not happened again, maybe i fixed it. Report to me if it
+ still happens in v137.0+
+
++-----------------------------------------------------------------------+
+4 If you buy the Pouch of Documents BEFORE you open an account,
+ sometimes the game will crash. But the player still gets the pouch
+ when they go back in the game, and is left off where they were last.
+ (in front of bank)
+
+UPDATE-FEB-23-2001
+ The Pouch of Documents is now used as an EXT ITEMS, and does not seem
+ to have this problem anymore.
+ Most likely fixed. :)
+
++-----------------------------------------------------------------------+
+6-deleted players
+ when a player is deleted, taxes owed and many deeds owned by that
+ player will for the next player that joins the game which takes
+ the &playernum. As well as all the relationships with the NPCs
+ will still be the same.
+
+ This could be a bad thing and a good thing. It could mean the new
+ player has inherited the properties + owed taxes (good+bad).
+
+ Accept it for now!
+
++-----------------------------------------------------------------------+
+ ------- SUBMIT BUG REPORTS! --------
+
+
+If you see a bug in CNW v137.0 package that is not listed here,
+please contact greenie@darktech.org or icq#16277704
+
+Please submit any of the following information to fix this bug asap.
+
+MAP #:
+related REF files:
+Whats wrong?:
+
++-----------------------------------------------------------------------+
+And many thanks to our BUG REPORTERS:
+
+- Peter Anderson
+ Sysop, The Establishment BBS
+ 604-575-1183
+- Eric Vinson
+- Wayne Steele
+- Rob Starr aka Lord Time
+ SysOp, Time Warp of the Future BBS
+ 360-891-0969
+ telnet://Time.Darktech.Org (9am-12am PT)
+- Tom Kolb Jr
+ aka sys-error and Malichi
+
+-And the many players on the CNW server which keep finding more small bugs.
+
+(possibly others that I had missed, please tell me if so)
+
+
diff --git a/xtrn/lord2/cnw/docs/cnw-todo.txt b/xtrn/lord2/cnw/docs/cnw-todo.txt
new file mode 100644
index 0000000000000000000000000000000000000000..50d2e91f59ba8251eafbbaca947f542decd3c27a
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/cnw-todo.txt
@@ -0,0 +1,177 @@
++--------------------------- CNW-TO-DO List ------------------------------+
+
+ An updated version of this file can be found at:
+ http://www.greenmachinebbs.com/lord2/cnwfiles/docs/cnw-todo.txt
+
++--------------------------- MAR 29th 2001 ------------------------------+
+
+ +##---LEGEND----------+
+ * = Started work on
+ ! = Finished
+ +---------------------+
+
++##---------------- To-Do's for release of v137.2 -----------------------+
+ 46- Change entrance for Shark Island, make it via a dock not jumping in bushes!
+ 99- Finish the whores as NPCs. Hirable by any inn owners.
+100- Make guards hirable too. Various strength and honorables (greed level)
+
++##-------------------- Non-Scheduled To-Do's ---------------------------+
+ 1- Add Locker Rooms Documents to Pouch of Documents. (this is hard todo)
+ 11- make possible to give deeds to online players when meeting them "h"ail
+ -or drop deeds off in locker rooms or something of this sort.
+ 15- Create more graphic levels (long time ago I tried level4=ddo-f/x)
+ Want to create one for the java applet (level5 or something)
+ but need it to be detected by lord2.
+ 16- Make a new online chat routines to include keyword responces
+ (flirt,hate,etc)
+*18- Make SEX interactive! (want to test it? ask me) (I NEED ANSi scenes)
+ 19- Add support to give roses to NPCs. ROSE.REF
+*36- Make new date locations (dinners/parties/taverns/etc)
+ 47- Gossip with NPCs may give random tips and tricks. <-gotta write them up first
+ 68- Install Castle Coldrake IGM again. (was removed in old CNW)
+ 69- Install Beach Side swimming area IGM
+ 70- Fortress Fear igm needs to be updated!
+ 74- Finish the NPCWED stuff. (even have NPC propose to players!)
+ 92- Add in routines for buying stuff from NPCs. They can earn cash too.
+ 93- Finish "GIVE" routines for NPCs (give items)
+ 94- Have NPCs able to own ITEMS too. (even sell/trade the stuff)
+106- Have kids, make sure they stay alive, send the family(s) food/money
+108- possible Co-SYSOP.
+109- Make ALL other KINGs and QUEENS as dukes and other types of ROYALTY.
+
++##-------------------- DONE TO-DO's for v137.1--------------------------+
+104- Xena's House fixed. It let players continuely fight and get more potions.
+105- StonePass Lodge totaly fixed. Was full of bugs and errors, even made the code shorter.
+107- Made an AUCTION HOUSE IGM
+108- Fixed TeamLord to automake pet dragon data file if not exists.
+110- Property Taxes added, uses regular tax rate.
+111- Added Loki's Inn as a quest opertunity.
+112- Changed around the background of Mom's House cuz of a bug that warps people to top left corner of screen.
+113- Fixed Gargoyle tower, in basement used to keep giving MoonStones. Now only 1.
+114- Added TeamLord Members list, and a BAN list, players only can be on 1 team.
+115- Fixed UGA physics department.
+116- TeamLord- when attack the dragon, now you'll enter the proper locations.
+
+
++ +
++---------------------- OLD DONE TO-DO'S --------------------------------+
++ +
++##-------------------- DONE TO-DO's for v137.0--------------------------+
+!2- Work on redoing the ANSi maps.
+!3- Make some NPCs higher HP
+!4- Made is possible to list players AGE/GENDER/HOMETOWN/LAST FLIRT
+!6- Make Laura and Ed as NPC that goes with player, not an ITEM!
+!7- Finish "That Guy Has problems" guy north or Greentree.
+!8- Make view game settings to query to list the igms or not.
+!9- Fix up and shorten the npcwed.ref files and other npc creation/maint files.
+!10- add more NPCs to the game make it to at least total of 100 NPCs (125 now)
+!12- pay taxes at more banks (done: GreenTree,sosinbank,arrisville)
+*13- updated myhome.ref for all homes. (30 possible homes listed)
+!14- Add all towns to the MAP ANSi. (uses `t92,93 for if show on map)
+!17- Make min age to pay taxes.
+!20- fix "@do moveback" bug with talking with pharoh (near stonebrook)
+*21- fix as many as possible variable conflicts! - Replace to IDF files.
+!22- fix npc/npcstat2.idf (association with npc)
+!23- fix "TeamHouse #" to say the actual team house custom name not team#.
+!24- fix teamhouse list details at Red Dragon Inn
+!25- fix up FLIRT.REF, make appropiate CNW changes. Added a standard VD check.
+!26- finish the vehicles (done: horse)
+!27- add option to disable npc+npc maintence (goes with #30)
+!28- fix Loki's Inn, remove "little girl" from store.
+!29- fix bugs in Grizeldas house.. conflicts with `t12 and `t13 + add them as NPCs
+!30- create different playing styles (rules.ref)(goes with #27)
+!31- Re-write REFHELP.DOC file for new versions of LoRD2.
+!32- fix maint to quit only if SYSOP after completed.
+!33- add when training and with npc (on date),fails will be not good, passes would be impressive.
+!34- Updated RESET.BAT, now you can reset any LoRD2: New World
+!35- fix up date locations plus change to bitsets vars.
+!37- Fix DOC FARRELS REF files. They conflict and use `v vars!! THIS IS CRAZY!!
+!38- TeamLord REF bugs, quits if you try to take/leave gold and nobody owns it.
+!39- Make when bought or sell property, the real cash is sent to the local bank vaults (realm vaults).
+!40- If player keep npc over night, npc can get lost, reported if lost.
+!42- Removed "make batch file info" from Mother Home and put in the HELP stuff.
+!43- Made 'Janitor's Key'from Felicity Temple into an extented item goes in small pouch.
+!44- ArrisTraining Grounds moved and fixed map problems. Now in ArrisVille area!
+!45- Realm Vaults are now used. There put into banks.
+!48- Add missed towns to the MAP ANSi. (uses bitsets `t92,93 for if show on map)
+!49- Another Elle quest, talk to Johnny to find out.
+!50- Fix Canoe bugs.. keeps buying and they say you dont owe on tabs.. yet you have.
+!51- FrostGlint Keep - bartender sells too much and buys too much, bad routines to other refs, etc..
+ -warps you to dragon den housing? bug there!
+!52- Made TRAINING.REF to support going back to alternitive ref files. uses `s01 for ref file name.
+!53- Town of Glendale bugs fixed. Too many, also redone ansi work for the town.
+!54- Added a time/date question for the bartender at RedDragon Inn, in case you wanted to know the day.
+!55- Fixed Tower of Krystals IGM! Used `p97-`p99 vars and had lots of REF bugs. ALL FIXED!
+!56- Gems in "V"iew seemed to have a few extra spaces, fixed.
+!57- Fixed RedDragon Town, used `p64 var, shouldn't have.
+!58- Pay taxes in FlagCity CityHall - was there already, just need to implement it for real :)
+!59- Added bank quests. Transport money if your alignment is good. Talk to SYSOP in SYSOP Castle
+!60- Changed SYSOP Castle, its more useful now. Get quests, pay taxes, view vault amounts.
+!61- Changed begger requirement donation *10 of your level.
+!62- Changed SCRIBE in GreenTree *10 of your level.
+!63- The Loose Screw Resort was missing, put it back in, plus map location fixes.
+!64- Fixed The Loose Screw IGM. Removed var conflicts
+!65- Added Felicity Guest house to Pouch of Deeds
+!66- Changed Felicity Guest house into an Inn style rest area.
+!67- Wizard's Tower IGM was also missing, cuz it conflicted with TEAM#3, FIXED.
+!71- Updated Time Stands Still IGM to v2.01
+!72- Myst Inn had bugs
+!73- Updated Pouch of Deeds. Shows info about ever deed supported.
+!75- DragonDen housing warp bug fixed.
+!76- The Loose Screw Resort igm - Wanted man, fixed, now only can fight once, not over and over.
+!77- added some cool ansi for fishing.
+!78- added some cool ansi for swimming hole.
+!79- added people.ref - a file with a bunch of standard ansi/ascii pics of people
+!80- added dragons.ref - a file with a bunch of standard ansi/ascii pics of dragons
+!81- TeamLord - only uses 1 ref file now, removed tlhouse1.ref thru ...5.ref
+!82- TeamLord - made the menu system much better.
+!83- TeamLord - added dragon pics. As it gets stronger, it grows!
+!84- TeamLord - added time/turns are used to train as well (max turns/98)
+!85- TeamLord - added colour choice for the dragon (only owner can select colour)
+!86- UnderGround city houses only use 1 ref file now. removed pass1.ref and pass2.ref, no longer needed
+!87- UnderGround city houses - added a sexy maid (from people.ref) as the door maid.
+!88- Removed the Koshi Sword and Armour from being purchasable in many exploitable IGMs.
+!89- BoneTown MoshPit hall ansi bugs! Used lots of invalid hidden ansi chars.
+!90- DragonDen housing - Jasimita house had no maid for ownership options, yet
+ the code was already written. So, added a hotspot for it.
+!91- Added MoshPit as another NPC date location.
+!95- Start NPC "GIVE" routines. (give gold&gems)
+!96- Fast Freddy's Gems IGM now has real cash amount and amount of gems available.
+!97- UGA alchemist is now a little harder to get cash from gems. :)
+!98- Fix Northern Colliseum bugs.
+101- Fixed all the QUESTs with the package/sachet thing. Was problems with Pyramid/SpringFang/AquaMan
+102- Fixed Black Sheep conflist with `p90 and `t19 vars.
+103- Optimized the Barak/Turgeon quest. conflicted with igms and bad coding.
+
+------------ ToDo's in L2.EXE, not CNW -------------------------------+
+1- When a player is deleted from the play data base, to run a check on
+ ALL the *.IDF files to set everything to 0 for that &playernum.
+
+2- need a LoRDANSi -> HTML converter. (I could try to make a REF to do
+ this, but it complicated, want to try yourself??)
+
+3- SysOp <-> Player chat! there is one, but only works on dial-up nodes
+ or bbses that use com/ip or netmodem. Some reason lord2 needs a
+ com port for the chat to work.
+
+4- @LORDRANK figure out proper options if cant configure it, add options
+ to customize the listing.
+
+5- Make a possible command for writing "@"'s in a new file, something
+ like @writefile, but will stop writing the file at @fileend or
+ something.
+ UPDATE MAR 1-2001 --I think this is possible using `s vars.
+
+6- Make all NEW players added to end of player list, instead of
+ always replacing "DELETED" ones, untill player #200 is reached,
+ then start re-writing "DELETED" ones. This will help out with
+ problem #1.
+
+7- Player stays on overmidnight sometimes do not get their new day turns.
+
++-------------------------- Contact CNW ---------------------------------+
+ Joel Gathercole greenie@darktech.org icq#16277704
+WebSite --> http://www.greenmachinebbs.com/lord2/
+Play here --> telnet://greenmachinebbs.com
+IRC --> irc.lordlegacy.org #lord
++--------------------------E-O-F---------------------------------------+
diff --git a/xtrn/lord2/cnw/docs/cnw.ad b/xtrn/lord2/cnw/docs/cnw.ad
new file mode 100644
index 0000000000000000000000000000000000000000..25342a09692de894bca25dd9a72320ea39e769bc
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/cnw.ad
@@ -0,0 +1,71 @@
+ ����������� ��������������� ����������������� ����������������
+ �������� �������������� � ���������������� ������������� �
+ ����� � ����������������� ���������������� ����������������
+ �������� ��������� ������� ������������� � �������� �����
+ �������� ��������� ������� �������������� �������� ������
+ ������ � ������������ � ����� � ������������ ������ � ������
+ ��������������� � ��������������� � �������������� ���������������
+ ����������������� ����������������� ������� �������� ���������������
+ ���������������� � ���������������� ������ � ����� �� ������������� �
+ �������������������� ������������ ���������� ������� ���������������
+Part II:�¿� ��Ŀ �� �Ŀڿڿ�Ŀ� �Ŀ�¿�Ŀ ڿ��Ŀ� � � ��Ŀ�Ŀ� �Ŀ
+ � �Ĵ�� � � ���ٳ��ٳ �� � �� ����� �ڿ� �ڿ�� ���ٳ � �
+ � � ���� ������� �� ����� � ��� ���������� ��������� ������
+ v137.0
+WebPage: http://www.greenmachinebbs.com/lord2/
+To Play: telnet://greenmachinebbs.com
+Alternate connections to our server:
+ telnet://time.darktech.org
+ telnet://bobobbs.net
+ telnet://hdcbbs.net
+
+---------------------Special Features--------------------------------------
+-More than 137 PRE-INSTALLED IGMs, you do not have to worry about bugs
+ overwriting another IGM, let us do it for you. Only the BEST IGMs have
+ been selected for this one of a kind package.
+-IGMs have been repaired, updated and merged with others.
+-More interactive NPCs than ever before. Players can flirt and eventualy
+ the tough challange of wedding the NPC. You can KILL an NPC and take
+ their gold+items. You can give them stuff, or even take them with
+ you on a romantic date! Now 125 NPCs.
+-NPC Quests.
+-Vehicles, such as canoe, horse, and more to come.
+-Check your vehichles and talk with NPCs that are following you.
+-Pouch of Documents, a pouch which holds all your property details and
+ locations.
+-Locker Room house! - you can rent a locker and pass the password to
+ your buddies, you can put gold,gems,items, or write on the bulletin
+ board in each locker.
+-RealMoney structures. Money is put into bank vaults, the vaults can go
+ empty then players will have probs widthdrawing large amounts. This
+ also creates quests for moving money for GOOD players.
+-Cool new ANSi art used for people/dragons and map screens have been redone.
+-Amazing new TeamLord, only in CNW!
+-Lots of new buildings, many igms put together to form new villages.
+ (eg, East Knotwood)
+-...and much, much, much more cool stuff
+
+---------------------NEW SysOp Definable Variables-------------------------
+-TIME! There are years and ages of players and NPCs.
+-PREGNANCY LEGNTH, how long should female NPCs and players be preg for.
+ (soon to come, raise your own family!)
+-Days to keep NPCs dead for after being killed by a player.
+-Tax Rates
+-Interest Rates (banks and on owed taxes)
+-Casino restrictions on player's age.
+-Game types! (standard - basic - WAR - and in between)
+
+ http://www.greenmachinebbs.com/lord2/
+
+ We even list telnet boards which have ANY LoRD2 game running on our
+ website and with-in the game of CNW.
+
+ http://www.greenmachinebbs.com/lord2/playit.htm
+ or play on our own server, telnet://greenmachinebbs.com
+ or our new web java telnet client, http://greenmachinebbs.com:8000
+
+ Our telnet server is powered by Synchronet BBS software.
+
+ Come and play or try out the latest and up to date CNW TODAY.
+
+
diff --git a/xtrn/lord2/cnw/docs/cnw.txt b/xtrn/lord2/cnw/docs/cnw.txt
new file mode 100644
index 0000000000000000000000000000000000000000..49f78581628df83e1bef4873246ae6e033ddbf98
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/cnw.txt
@@ -0,0 +1,618 @@
+ ����������� ��������������� ����������������� ����������������
+ �������� �������������� � ���������������� ������������� �
+ ����� � ����������������� ���������������� ����������������
+ �������� ��������� ������� ������������� � �������� �����
+ �������� ��������� ������� �������������� �������� ������
+ ������ � ������������ � ����� � ������������ ������ � ������
+ ��������������� � ��������������� � �������������� ���������������
+ ����������������� ����������������� ������� �������� ���������������
+ ���������������� � ���������������� ������ � ����� �� ������������� �
+ �������������������� ������������ ���������� ������� ���������������
+ Part II
+ �¿� ��Ŀ �� �Ŀڿڿ�Ŀ� �Ŀ�¿�Ŀ ڿ��Ŀ� � � ��Ŀ�Ŀ� �Ŀ
+ � �Ĵ�� � � ���ٳ��ٳ �� � �� ����� �ڿ� �ڿ�� ���ٳ � �
+ � � ���� ������� �� ����� � ��� ���������� ��������� ������v137.0
+ Now with 125 NPC CHARACTERS!
+
+
+ Packaged by: Joel Gathercole aka Greenie
+ Last Modified: MAR 17th, 2001
+
+ http://www.greenmachinebbs.com/lord2/
+ Please check the site for future versions.
+
+ Or play the latest at
+ telnet://greenmachinebbs.com
+
+ Or our alternate connections to our server:
+ telnet://time.darktech.org
+ telnet://bobobbs.net
+ telnet://hdcbbs.net
+
+-------------------------------------0---------------------------------------
+ -Index of Contents-
+
+ 1.0 - Complete New World 3.0 - IGMs
+ 1.1 - What is it 3.1 - 3rdparty IGMs
+ 1.2 - Who needs it 3.2 - CNW FEATURES
+ 1.3 - Paths & Files 3.3 - <merged with 3.2>
+ 1.4 - Title Screen 3.4 - Removing an IGM
+ 1.5 - Who done it 3.5 - NPCs
+ 1.6 - LoRD2 Mailing List 3.6 - Fonts
+ 3.7 - Make your own CNW IGM
+ 2.0 - Installation
+ 2.1 - Fresh New Game 4.0 - iBBS LoRD 2
+ 2.2 - Restart Game 4.2 - iBBS IGMs
+ 2.3 - Keep Game
+ 2.4 - Upgrade CNW Game 5.0 - Auto-Update System
+ 2.5 - RESET.BAT 5.1 - Manual Updates
+ 2.6 - 1st Player
+ 6.0 - WWW Links
+ 6.1 - Elysoft.org group
+
+------------------------------------1.0--------------------------------------
+1.0 - Complete New World
+ This is a package set up for sysops that do not have the time
+ to install many IGMs, and to keep checking for overwritting other
+ IGMs. It is an easy way to have most of the GOOD IGMs quickly installed.
+
+ >>>>>> YOU MUST HAVE LORD2 ALREADY! <<<<<<<<
+ >>>> JUST COPY OVER ALL YOUR LORD2 FILES. <<<
+
+ Get the latest version LoRD2 v1.02 (L2102.ZIP)
+ http://lord.lordlegacy.org/l2102.zip
+ http://greenmachinebbs.com/lord2/files/l2102.zip
+
+ There are 137 external IGMS included in this version, PLUS
+ many other IGMs I have made myself, which have not been
+ released individualy yet (only available in CNW)
+
+ +------------------------------------------------------------------------+
+1.1 - What is it
+ A compilation of the best IGMs for LoRD2: New World. Hence the name
+ "Complete". Also includes many special features which can not be
+ found for the normal New World. (see 3.2 and 3.3)
+
+ In other terms, this is also a "Pre-installed IGMs Package".
+
+ CNW is FREEWARE, and only FREEWARE IGMs will be accepted in CNW.
+ LoRD2 is NOT FREEWARE, even though in my opinion it should be. :)
+ Visit www.gameport.com for details.
+
+ CNW is not LoRD2, its an addition of lord2, you will need a registered
+ copy of LoRD2 to play CNW fully. $15 USD at www.gameport.com.
+
+ CNW has fixed countles bugs from the IGMS which authors have not fixed,
+ or will not fix.
+
+ +------------------------------------------------------------------------+
+1.2 - Who needs it
+ I would say EVERY SysOp who wants LoRD2: New World on their system should
+ have CNW.
+
+ It has been made very easy to setup and maintain, that every lazy SysOp
+ out there that does not want to have to worry about it, will NOT have to
+ worry about it. :)
+
+ Any SysOp who wishes to have many IGMs, but does NOT want to spend the
+ many HOURS of finding good IGMs, installing them, then testing them to
+ see if they will work properly with other IGMs that they have installed.
+ CNW is already setup to handle many IGMs already installed.
+
+ +------------------------------------------------------------------------+
+1.3 - Paths & Files
+ Description of some files and ALL directories in this version:
+
+ / = main lord2 files, REF and REC files. (removing REC's slowly)
+ /RESET.BAT = run this when you need to reset the game.
+ /UPDATE.BAT = run this to update to latest version of CNW
+ /INSTALL.BAT= Install a new CNW game.
+ /MAIL/ = lord2 mail files
+ /IGM/ = *.IGM files are here, so you can get quick info on any IGM.
+ /NPC = NPC *.IDF directory
+ /regconf/ = registry config files *REMOVED* (should no longer exist)
+ /regdata/ = registry data files *REMOVED* (should no longer exist)
+ /docs/ = all the document files related to lord2 and the IGMs.
+ /fonts/ = going to store the fonts here for various terms and such.
+
+ +------------------------------------------------------------------------+
+1.4 - Title Screen
+ Humm, its cool isn't it? :)
+
+ +------------------------------------------------------------------------+
+1.5 - Who done it
+ Me of course. Joel Gathercole aka Greenie.
+ ICQ# 16277704
+ greenie@darktech.org
+ SysOp Green Machine WebBBS http://www.greenmachinebbs.com
+ telnet://greenmachinebbs.com
+
+ +------------------------------------------------------------------------+
+1.6 - LoRD2 Mailing List
+ A replacement for the Auto-update, just join the lord2 mailing list,
+ you'll be informed via the list of upgrade for CNW.
+
+ Join it at yahoogroups.com/groups/lord2
+ lord2@yahoogroups.com
+ Send an email to: lord2-subscribe@yahoogroups.com
+
+ The YahooGroups also offers more useful services;
+ -Database of telnet bbs' to play LoRD2 and play LoRD2:CNW
+ (we've added an igm in v136.1+ to list these places to play, to get
+ your bbs added in next release, make sure you add yourself to the
+ list on egroups.com
+
+ -Files, you can get igms, and the most up to date CNW available from
+ the files section.
+
+ -Links, you can find useful lord2 links, not just CNW stuff!. :)
+
+So, humm, JOIN NOW! :)
+
+------------------------------------2.0--------------------------------------
+2.0 - Installation
+ Complete New World has been made to be extremely easy to install. You
+ should not have any difficulties what so ever. :) In any case, you do
+ have problems, simply contact me (see 1.5)
+
+ You need a copy of the FULL CNW package plus any latest small UPDATE
+ packages which may be available. If so, please run the earliest
+ INSTALL.BAT, then the UPGRADE.BAT if you are upgrading a sub version number
+ like 136.1 or something.
+
+ You DO NOT need to download every small update package. Every update
+ package i create supports all the previous updates.
+
+ So make sure you have eg.
+ CNW-1361.ZIP and CNW-1363.ZIP, no need for cnw-1362.zip in this situation.
+
+ An easy way to see if its a FULL or an UPGRADE is the size, usualy the
+ FULL is more than 2.2megs
+ UPGRADE is less than 1 meg
+
+ Complete New World v137.0+ REQUIRES LoRD2 v1.02.
+
+ If installing a FULL version like v137.0, I recomend you do a complete
+ new install, not overtop of the old version of CNW. There are lots of
+ files in old CNW that are no longer needed and just takes up space.
+
+ +------------------------------------------------------------------------+
+2.1 - Fresh New Game
+ If you have just installed LORD2 original game, then it'll be easier than
+ other ways of installing.
+
+ Make sure you have LoRD2 v1.02 installed before you install CNW.
+
+ To install a fresh copy of CNW, just run INSTALL.BAT
+
+ +------------------------------------------------------------------------+
+2.2 - Restart Game (Reset)
+ It is recommended that you do restart a fresh new game if you have not had
+ CNW installed previously.
+ -run RESET.BAT (see 2.5 for details)
+ -run L2CFG.EXE --> RESET GAME
+ -run lord2.bat (no switches) (see 2.6)
+
+ +------------------------------------------------------------------------+
+2.3 - Keep Game
+ If you wish to keep the same game running, and have not had CNW previously
+ installed, it is possible to do, but may cause confusion and players stuck
+ in locations that do not exist.
+
+ If installing a FULL version like v137.0, I recomend you do a complete
+ new install, not overtop of the old one. There are lots of files in old
+ CNW that are no longer needed and just takes up space.
+
+ +------------------------------------------------------------------------+
+2.4 - Upgrade CNW Game
+
+ To upgrade from a previous version of CNW, run UPGRADE.BAT
+
+ This will not automaticly RESET your game, but, it is recomended to run
+ RESET.BAT after upgrading.
+
+ Make sure you edit/check the RULES.REF for the games default settings,
+ everytime you upgrade CNW, this file is overwriten, because of changes
+ within this file are needed for most upgrades.
+
+ Upgrading from v136.* to v137.0 should be a complete new INSTALL, there
+ are lots of files no longer needed from the old CNW version, and will
+ take up space.
+
+ +------------------------------------------------------------------------+
+2.5 - RESET.BAT
+ This is a batch file which I spent a long time verifing that ALL the
+ data files used in as many IGMs as I could get my hands on, datafiles
+ were being deleted properly. It also includes some data files of IGMs
+ which are not in CNW.
+
+ Run this batch file when ever you want to reset the game. Thats it for
+ a reset. ;)
+
+ You also need to reset the game via L2CFG.EXE.
+
+ +------------------------------------------------------------------------+
+2.6 - 1st Player
+ The very first player to enter a new game of CNW, will have a long wait
+ for all the files to get created and updated for the world. It is HIGHLY
+ recomended that this first player is YOU, the SysOp. This is so that the
+ first player does not have to wait about 5 minutes or longer
+ (depends on your cpu) to wait for these files to be created, and there
+ are a lot of NPC files to be created.
+
+ The UPGRADE.BAT or INSTALL.BAT will automaticly now try to run "SYSOP"
+ after upgrading, it will in effect run everything that is needed to be
+ run after install.
+
+------------------------------------3.0-------------------------------------
+3.0 - IGMs
+ - I do NOT recomend you installing other IGMs on top of CNW!
+ - I do NOT recomend you REMOVE any IGMs with the IGM.EXE program with CNW
+ package! (see 3.4)
+ - If you see an IGM which you do not like in the CNW, contact me (see 1.5)
+ and I will look into the IGM to see if it is worth removing, also
+ please specify map location of IGM and whats so bad about it. :)
+ - If you want to know which IGMs are in included in CNW, check the
+ /IGMS/ path and 3RDPARTY.DAT after installing CNW.
+
+ +------------------------------------------------------------------------+
+3.1 - 3rdparty IGMs
+ There are well over 137 IGMs included in the latest package.
+
+ If you count the number listed in the 3RDPARTY.DAT file, it will report
+ much less. This is not 100% accurate, this is cuz some IGMs did not get
+ listed when I installed, or they go removed, no idea why or which ones
+ got missed.
+
+ If you were to count the number of *.IGM files in the /IGM/ subdirectory,
+ It will show a more accurate number of IGMs included in the package.
+
+ I have added and removed many IGMs, doing it both with the IGM.EXE and
+ manualy. Also deleting the ?.IGM file in question. But, I also do not
+ trust myself 100% that I have done the complete removal of each IGM I
+ have removed from the package. I also have seen a few IGMs that did NOT
+ have an ?.IGM with the IGM package. (non-map igms, .ref only, and my IGMs)
+
+ Therefor, the actual number of IGMs installed in CNW is really unknown.
+ I go by the number of *.IGM files in the /IGM/ subdirectory for the
+ version number or each CNW package.
+
+ Some of you may noticed I would say for example.
+ "There are 136+ IGMs in v136.1 of CNW." Notice the "+" ;)
+
+ +------------------------------------------------------------------------+
+3.2 - CNW FEATURES
+ This is a complete list of features in CNW that are not 3rd party IGMS,
+ these ONLY can be found in CNW.
+
+��������Feature����������������Location���������Description�����������������Ŀ
+� LoRD2 ANSi intro screen � start-up �Also includes list players and �
+� � �check mail if player is dead. �
+� � � �
+� NEW & BETTER ANSi SCREENS � THE REALM �Made nicer ANSi screens all �
+� � �over the place. Needed to do �
+� � �this for support of many telnet�
+� � �clients, including the Java �
+� � �Telnet Applet. �
+� � � �
+� HomeTown � "V"iew �If you buy a new home, it can �
+� � �be your HomeTown. �
+� � � �
+� List Players � "L" �Lists charm/hometown/lays/kills�
+� � �/last flirt/age �
+� � � �
+� NPC CHARACTERS � now 76! �talk/flirt/give/fight/quests/ �
+� � �lay/marriage/kids/and more. �
+� � � �
+� Time � RULES.REF �set days of a year �
+� � � �
+� Age � "V"iew �players and NPCs have age, goes�
+� � �with TIME. �
+� � � �
+� Casino Age restrictrions � RULES.REF �Restriction of age to go in a �
+� � �casino. �
+� � � �
+� TAXES � RULES.REF �Set the amount to charge your �
+� � �players on taxes! checks their �
+� � �amount in hand, banks, and �
+� � �properties owned. NPCs pay this�
+� � �too. All the taxes collected �
+� � �are placed in 200 vaults in the�
+� � �realm. Sometimes players can �
+� � �get tax returns!! Also adjust- �
+� � �able min age to pay the taxes. �
+� � � �
+� NPC SEX<soon player-player>� <npc> �A more interactive rpg sex. A �
+� � �cool status/hp/actions windows.�
+� � �Soon to add ANSi and ASCii art.�
+� � � �
+� Locker Rooms � East KnotWood �Rent a locker to keep your �
+� � �belongings, or share with other�
+� � �players. KeyCode to enter the �
+� � �locker. �
+� � �You can try to rob a locker, �
+� � �or check the empty ones for �
+� � �left over goods or gold. �
+� � �Enter "000000" as the password.�
+� � �Be careful, you could be sent �
+� � �to prison. �
+� � � �
+� Date Locations � some places �Bring an NPC on a DATE! �
+� � � -Disco Hall in East KnotWood �
+� � � -Bed Of Roses �
+� � � -Make out mountain �
+� � � -and more hidden places �
+� � � �
+� Bed of Roses � Dark Forest �Beautiful sancuary to bring a �
+� � �special someone, get charm, get�
+� � �the white flower and give to �
+� � �a special someone. �
+� � � �
+� Make Out Mountain � EasternDesert �A mountain to take an NPC. �
+� � �very romantic. Try to get layed�
+� � �here. :) �
+� � � �
+� Pouch of Documents � �A pouch to hold all your prop- �
+� (recently released IGM) � �erties owned by you. �
+� � � �
+� Blue Water Falls � N-E GreenTree �<incomplete> �
+� � � �
+� Moved KnotWood Village � West GreenTree�Moved to better location �
+� � � �
+� Created East-KnotWood � West GreenTree�Mixed a lot of IGMs from the �
+� � �area of GreenTree to make East �
+� � �KnotWood. �
+� � � �
+� � � �
+� Vehicles & People � "V"iew �You can check which NPC is with�
+� � �you, and check what vehicles �
+� � �you have, (eg, canoe or horse) �
+� � � �
+� Canoe � East PortTown �The rentable canoe is needed in�
+� � �every place you need to pass a �
+� � �water area. �
+� � � �
+� Horse � stables �You can buy a horse to get 2x �
+� � �your turns when mounted. Press �
+� � �"Z" to mount and dismount your �
+� � �horse. �
+� � �You must FEED your horse or it �
+� � �will get sick and die on you. �
+� � �If you own a smack rod, you no �
+� � �longer can use your horse. �
+� � �Horses do not like the smackrod�
+� � �A picture too! �
+� � � �
+� LoRD2 Telnet BBS List � Moms House �List of LoRD2 BBSes. Players �
+� � �can add more. If you want a BBS�
+� � �added, contact CNW. �
+� � � �
+������������������������������������������������������������������������������
+
+ +------------------------------------------------------------------------+
+3.3 - <removed, merged with 3.2>
+ +------------------------------------------------------------------------+
+3.4 - Removing an IGM
+ DO NOT remove an IGM with IGM.EXE, it will not work, and it will cause
+ way too many problems. I recomend that you use the world editor, and
+ physicly remove the IGM from the map, then delete the corisponding REF
+ files. (RTWEDIT.EXE)
+
+ I do not think anyone will be doing this, if you must, I would like to
+ hear which IGM you plan to remove, and why. If it's a good reason, I may
+ either modify that IGM to better the game for the next release, or totaly
+ remove the IGM for the next release.
+
+ +------------------------------------------------------------------------+
+3.5 - NPCs
+ Here is something NEW and very characteristic of CNW now. CNW can currently
+ only handle a max of 200 interactive NPCs. Do not worry, this is far off
+ from how many currently are around. (125 now)
+
+ NPC profiles!, NPCs are very interactive, you can flirt, kiss, take out,
+ bring with you, marry them and even kill them. Each one is different,
+ and they change their attitudes as well as time passes and their
+ experiences develope with the players. Some are greedy, theives and
+ slutty, while others are very nice and hard to get, even JEALOUSY!
+
+ Each game that is run will be different, meaning, you might be able
+ to have a great time couting with the NPC in one game, while the other
+ game, that same character can rob and hate your guts!
+
+ NPCs have sexual prefrences, yes, some are gay, lesbian, or even bi, I
+ was thinking of adding another beastility (animal)
+ (only if someone requests it, I'll add it)
+ It is possible their preferences would change without notice.
+
+ NPCs can get lost too, if you see it mentioned in the daily news, then
+ you've got a chance to go find the NPC and earn stuff.
+
+ NPC Quests, sometimes they may ask for your help to bring them to
+ a place to pay their taxes. Help them out and earn quest points and
+ more.
+
+ With NPCs you can:
+ - flirt (take out on dates, marry,
+ - cure them on VD (quest points here)
+ - Other little quests they may ask for.
+ - attack and kill (or kill you) :)
+ - they can rob you if you are not nice to them.
+ - give gems or gold
+ - get information
+ - and much, much more!
+
+ In the future, by the time I complete this huge NPC project, there will
+ be features such as, trade items, give items and rob them.
+
+ +------------------------------------------------------------------------+
+3.6 - Fonts
+ This is something I started way back when CNW had first been released.
+ A font you could load with various programs.
+
+ I am sorry, I only so far created a font for the LiTERM terminal program
+ for DDO-F/X graphics.
+
+ I do plan to make a DOS font, and a Windows Font which you could load
+ at any time for any terminal program for DOS or Windows. I may need help
+ on this. Not sure at this moment.
+
+ If you have made fonts before or would like to help in making some,
+ please contact me. (see 1.5)
+
+ +------------------------------------------------------------------------+
+3.7 - Make your own CNW IGM
+ If you plan to make your own IGM for CNW, or have an IGM that you wish
+ to be included in CNW, please follow this requirements:
+ - MUST BE FREEWARE!
+ - Must NOT be compiled in REC only REFs permitted.
+ - Make sure it does NOT mix up with other map screens used by
+ other IGMs. Check the CNW map, then use that map instead of
+ the original New World map.
+ - If you're adding NPCs, please send me the choosen NPC#, and
+ profile info to include in CNW. Check these files for info
+ TALK.REF <- has a list of ALL NPC related files
+ NPCNAME.REF <- names and npc#'s already taken
+ NPCMAKE1.REF <- npc profile info 1
+ NPCMAKE2.REF <- npc profile info 2
+ NPCMAKE3.REF <- npc profile info 3
+ NPCMAKE4.REF <- npc profile info 4
+ NPCMAKE5.REF <- npc profile info 4
+ - If an NPC has a quest, please contact me with ideas, and I'll help
+ you make it the proper way. :)
+ - DO NOT OVERWRITE ANY CURRENT FILE NAME!
+ - All data files (.IDF), must be saved into the /data/ subdirectory.
+ (I'm still working on that IDF thing)
+ - Tell me that you made it! If it's good, I'll include it in next
+ release.
+
+ If you really want, you may join the CNW team. please contact me.
+
+ Joel Gathercole aka Greenie
+ ICQ#16277704
+ greenie@darktech.org
+ Green Machine WebBBS
+ http://www.greenmachinebbs.com/lord2/
+ telnet://greenmachinebbs.com
+
+(so don't say you could no contact me!) :)
+
+------------------------------------4.0-------------------------------------
+4.0 iBBS LoRD 2
+ There is currently developement for a lord2 ibbs program. As of now,
+ this program will be FREEWARE. We do not have a release date yet.
+ When available, this program will be distrubed with the CNW package,
+ and mostly set up for joining our league. Will require to email me
+ when this is ready.
+
+UPDATE JAN30th 2000-
+ We may not make the typical ibbs game, but the real time line ibbs game,
+ a lot like the tw2002 for real time game. This will mean only bbses
+ connected to the internet will be able to function properly. This game
+ is more complicated to make into an ibbs as your typical game may be.
+ There is still a lot of talk about this. Please send your comments
+ to the lord2 mailing list at
+ lord2@egroups.com
+
+UPDATE DEC 2000 -
+ I'm planning to drop iBBS support at the moment, unless there is
+ any demand then I may try it again.
+
+ +------------------------------------------------------------------------+
+4.1 - CNW iBBS LoRD2
+ I've started a somewhat iBBS LoRD2. Your bbs MUST be connected to internet
+ all the time in order for this idea to work. So far there are 3 boards
+ connected to the LoRD2 CNW iBBS game, but is also currently still open for
+ other individual users/players.
+
+ What is it really?
+ Its a telnet server running off syncronet software, and can be setup
+ to only accept pre-configured boards to connect to the main server. Each
+ BBS will then be able to recruit players from their own board (like any
+ other iBBS game) and try to get them to join the same team, against players
+ from other boards that are connected to the main telnet server.
+
+ Contact me for details on starting your own lord2 ibbs league, in fact,
+ you can do this idea for ANY door game! You just need a dedicated telnet
+ server with a fast enough bandwidth. :)
+
+ To join the CNW iBBS network, fill out the /DOCS/L2CNW.APP form.
+
+ +------------------------------------------------------------------------+
+4.2 - iBBS IGMs (do not worry about this yet)
+ --- Notice to IGM authors for iBBS compatibility ---
+
+ Directories to be added in future versions for iBBS compatibility:
+ /data/ = for all *.IDF and *.DAT files which are used during the game.
+ /ibbs-out/ = files to be processed and sent to another node.
+ /ibbs-in/ = files received from another node.
+
+ Have ALL your data files to store any info about the player or game
+ settings stored in the /data/ directory instead of the main lord2
+ directory. This will make it iBBS compatible and the same time, easier
+ to reset the game.
+
+ Any file in the /data/ directory which gets modified in the game, should
+ be copied into the /ibbs-out/ directory so they can be processed and
+ send to other nodes.
+
+ All IGMs already included in this version of CNW, I will make the
+ apropiate modifications to include iBBS support, if you wish your
+ IGM to be included in future versions, PLEASE make those new regulations
+ to make it iBBS compatible.
+
+ This version of CNW is NOT iBBS ready. The iBBS program is still under
+ developement.
+ If any other door authors wish to make iBBS programs, to handle the
+ processing and distribution, please use these standards laid out
+ here.
+
+------------------------------------5.0-------------------------------------
+5.0 - Auto Update System
+ The Auto Update System has been currently canceled.
+
+ I'm very sorry for this and to those sysops who did sign up.
+
+ +------------------------------------------------------------------------+
+5.1 - Manual Updates
+ I now automaticly upload all the files from the /IGM /DOCS and the *.REF
+ from the main lord2 path. You can manualy grab them any time with any
+ http file grabber, if you wish to do quick upgrades which I recently make
+ almost every day.
+
+ The best way to check if i updated something, is by the date on the file.
+ You can find various http grabbing programs to handle this, if you are
+ so interested in doing it.
+
+ "WGET" is a program for linux, I also heard there was a windows version,
+ I would recomend using it, as its very easy to use. :)
+
+ So set your grabber program to just grab NEW files that compare to yours.
+
+ make sure you add the option to not grab ALL the files off my server
+ (eg. wget -np http://greenmachinebbs.com/lord2/cwnfiles/)
+
+ If you figure out the proper command line for any program, please send
+ the details to me, so I could include it in here. thanks.
+
+ Get the updated files from here:
+ http://www.greenmachinebbs.com/lord2/cnwfiles/
+
+------------------------------------6.0-------------------------------------
+6.0 - WWW Links
+
+��������������������������������������������������������������������������Ŀ
+�greenmachinebbs.com/lord2 � CNW SITE � CNW home site �
+�greenmachinebbs.com � TELNET! � telnet here to play latest CNW �
+�greenmachinebbs.com:8000 � JAVA � Java LoRD2 �
+�www.lordlegacy.org �LordLegacy� Michael Presler's site, developer�
+�www.gameport.com � GamePort � the owners of LoRD2 �
+�shelby.net/wizards/lord2igm �LoRD2 IGMs� Offical L2 IGM site �
+�lordlegacy.org/lord2igm �LoRD2 IGMs� Un-Offical L2 IGM MIRROR site �
+�yahoogroups.com/groups/lord2�Mail List � MailList/Voting/Files/Database �
+�elysoft.org � ElySoft � CNW is now part of ElySoft group �
+�time.darktech.org � TELNET � Alternate CNW server connection �
+�bobobbs.net � TELNET � Alternate CNW server connection �
+�hdcbbs.net � TELNET � Alternate CNW server connection �
+����������������������������������������������������������������������������
+
+ +---------------------------E-O-F----------------------------------------+
diff --git a/xtrn/lord2/cnw/docs/coliseum.doc b/xtrn/lord2/cnw/docs/coliseum.doc
new file mode 100644
index 0000000000000000000000000000000000000000..7e26db6190f2b2398d94dafd3035bded8c6ecdd2
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/coliseum.doc
@@ -0,0 +1,57 @@
+
+ Northlands Coliseum v1.00b by ShroomTrip Software
+ (c) Copyright 1997: ShroomTrip Software
+ All rights reserved.
+
+ Written By: Jay Weber
+ Compiled 12/04/97
+
+ Find Jay Weber on
+ The Stellar Net BBS
+ Handle: blade
+ (352) 378-2119
+
+ or
+
+ WWW: www.afn.org/~afn50378/sthome.html
+ Email: elric@innocent.com
+ afn50378@afn.org (always works)
+ Bug Reports: kender@innocent.com
+
+ This archive may be shared with all, in its unmodified
+ shareware format.
+
+ Files contained in Col100B.Zip:
+
+ COLISEUM.DOC <--This File
+ COLISEUM.IGM <--IGM Control File
+ COLISEUM.DAT <--DATA File Containing Maps For This IGM
+ COLISEUM.REF <--.REF File For This IGM
+ 215PATCH.ZIP <--Patch For Bridge Of Theives, Fishing Docks, And This IGM
+ FCPATCH.ZIP <--Patch For Fishing Docks And This IGM
+ TCPATCH.ZIP <--Patch For Bridge Of Theives And This IGM
+ FILE_ID.DIZ <--Discription File For BBS's
+
+ This IGM adds a Coliseum in the Northlands. You get to bet on which
+ monster will win a fight. The amount of times you can bet is limited
+ to 6 per day.
+
+ WARNING: This IGM is incompatible with The Bridge of Theives IGM and
+ The Fishing Docks IGM, as they all use Screen 215.
+
+ What's New:
+
+ 100 : * The IGM first debutes
+
+ 100a: * Fixed an error in COLISEUM.IGM which loaded
+ screens 216 & 217 at screen 217
+ * Fixed a few spelling errors
+ * Changed the max bet from $10,000 to $1,000
+ * Changed the monster variables from fixed values to random values
+ * Limited bets to 6 per day, instead of going by gambles left
+ * Added a Play Again option to the end of the fight sequance
+
+ 100b: * Fixed an error that would let you bet even if you had less than
+ the $100 minimum, and would let your money go into the negative.
+ * Added more monsters (for a total of 10)
+
diff --git a/xtrn/lord2/cnw/docs/compile.doc b/xtrn/lord2/cnw/docs/compile.doc
new file mode 100644
index 0000000000000000000000000000000000000000..427cbfd0c85b0311bfc344124c3db9baf1a1c78f
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/compile.doc
@@ -0,0 +1,41 @@
+
+ LORD2 Compile.exe V1.00 by Seth.
+
+ Have you written an IGM or World and you don't want others to be able
+ to look inside it?
+
+ Use COMPILE.EXE on your ref and people CAN'T do the following:
+
+ * Look at the .ref to find hidden tricks
+ * Change the .ref to make it easier/customized
+ * Steal your work and copy it
+
+ Sounds great! Is it hard to do?
+
+ Nope, just type "COMPILER.EXE refname.ref" and it will create a file
+ called "refname.rec" without touching your original.
+
+ Now, take your source (the .ref file) out of the dir and run LORD2, it will
+ automatically load the .REC after it cannot find the .REF file! If a .ref
+ exists, it will always run that instead of the .REC. (.ref is the source
+ file, .rec is the compiled version. Get it? LORD2 can read both)
+
+ ** Info and quirks **
+
+ * SHOW SCROLL will not work inside of a compiled .ref. The good news
+ is nobody I've ever seen has used this feature, and if you need it just
+ stick it into a different .ref file - you can mix and match uncompiled
+ and compiled together. As for as original LORD2 .refs, HELP.REF is the
+ only one that uses it.
+
+ * Compiled .refs aren't really compiled.. they are encrypted. This means
+ they are not smaller or faster, just the opposite actually.
+
+ * Declare command will not work with compiled .refs. I may add this
+ later, it would really speed up .refs as they would not need to be
+ 'scanned' before running each time. (although no one has built a util
+ to add DECLARE statements to uncompiled .refs either, so no great loss)
+
+ * I did a compile *.ref in the LORD2 dir, then deleted *.ref and manually
+ copied help.ref into the dir (the one with the scroll scroll), and everything
+ worked great but be warned that this is basically untested.
diff --git a/xtrn/lord2/cnw/docs/coolhou.nfo b/xtrn/lord2/cnw/docs/coolhou.nfo
new file mode 100644
index 0000000000000000000000000000000000000000..83612314a77245cfa5d67f874bf54043f8cd2c8b
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/coolhou.nfo
@@ -0,0 +1,66 @@
+ �����
+ �� ��� ���� �
+ � �� ��� � � � � �
+ � � � � � � � �����
+ � � � � � � ��� �
+ � � � ��� � � � � � �������
+ � � � � � � � � � � � �
+ �� � � � � � � � � � ���
+ � � � � � � ���� ��� �
+ ��� � � � ���� �
+ � � � � � �
+ � � ��� �
+ ��
+
+===============================================================================0
+
+ Vuonna 1995 Suomi koki j�r�hdyksen! Uusi ohjelmointiryhm� oli perus-
+tettu. Pelej� rupesi tulvimaan, maan joka kolkkaan. Jo vuonna 95 pelej� oli il-
+mestynyt noin 5 kpl, jonka j�lkeen niit� on tullut enemm�n. Vuonna 1996 Puhelin
+laskut nousivat huippuun, koska ihmiset soittivat Coolhouse BBS:s��n.
+Vuoden 1997 puolella Coolhouse melkein tuhoutui, kiitos Windows fanin kehittele-m�st� viruksesta (DelWIN) Vuoden 1997 loppupuolella purkki avattiin taas ja
+Coolhouse nousi taas huipulle.
+
+
+-------------------------------------------------------------------------------- Coolhousen j�senet:
+
+
+Lauri Aalto (Latex) - Coolhousen perustaja.
+ P��ohjelmoija
+ Musiikin teko
+
+Antero Aalto (Luopio) - Tekee A & M Softwarea
+
+Matti Koivisto (Cutter) - Tekee A & M Softwarea
+ Kehittelee juttuja
+
+Antti Aaltio - Ohjelmoija. Pelintekij�
+
+Kalle-Pekka Ker�nen - Animaattori
+
+Joona P�h� - Amiga v�s��j�
+
+-------------------------------------------------------------------------------- Ja jos todella kiinnostaa niin osa tuotoksistamme:(osa)
+
+Windows 95:
+
+Cool Space - Avaruusr�iskint�
+Cool Racers - Autor�iskint�
+Cool Diamond Quest - Avaruuspeli
+Cool Diamond Man - Tasohyppely
+CoolMan - Tasohyppely
+Ultra Man - Tasohyppely
+
+
+DOS:
+
+Cool Fantasy - Roolipeli
+VirtualDog - Virtuaalikoira (JESH..)
+Cool Piano - Pimputteluohjelma
+
+
+
+================================================================================
+ Coolhouse antaa sinulle tyytyv�isyys-takuun. Mik�li jostain syyst� et ole
+ tyytyv�inen ohjelmaamme, voit palauttaa sen 7 p�iv�n kuluessa ja saat
+ varmasti turpaasi ja p��set hengest�si
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/docs/cstats.doc b/xtrn/lord2/cnw/docs/cstats.doc
new file mode 100644
index 0000000000000000000000000000000000000000..c5b9e77cd5f2308f4322a62153bf6a9e13ae28ea
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/cstats.doc
@@ -0,0 +1,141 @@
+ C R Y S T A L L I N E S T A T S
+ ---------------------------------
+ Game Statistics Generator
+
+ Version 0.1.2
+
+ Copyright (C) 2000 Michael Dillon. All Rights Reserved.
+
+
+I. Legal Disclaimer
+
+This program is under no warranty explicit, expressed, or implied. You may
+use this program freely without obligation to the author. The author is NOT
+responsible for any damages that may incur or be caused directly or remotely
+by this program or any of its companion files. You may distribute this
+program freely without any charge as long as the original archive's contents
+are not modified.
+
+II. Programs and Operating Systems Supported
+
+To date Crystalline Stats supports the following software:
+
+Legend Of the Red Dragon
+Legend Of the Red Dragon II
+Planets: The Exploration Of Space
+Avalon - Live The Epic
+
+Crystalline Stats runs on these Operating Systems:
+
+DOS/DPMI You need an active DPMI server or use CWSDPMI.
+Windows 32 This will run on any Windows 9x/ME/NT/2000 machine.
+Linux, *NIX Statically Linked ELF Binary. Should work on any *NIX OS.
+
+There is plans for an OS/2 version. Once a suitable compiler is obtained
+this version will become available with all the same functionality as the
+other versions.
+
+III. General Information
+
+Crystalline Stats is a program that will take the player information from
+certain games and then create an HTML file that will list all the current
+players and various information about them.
+
+Minimum Requirements for all versions are:
+Intel Compatible 386 or better processor
+500KB of space for the program
+Monochrome Monitor or better
+640KB Minimum RAM
+
+Other Requirements:
+Windows Windows 9x/ME/NT/2000
+*NIX Anything that can support ELF binaries
+DOS DPMI server such as CWSDPMI.
+
+Note: Might require more RAM to run the DPMI server. DOS Specific.
+
+This program takes a few command line arguments. These arguments or
+parameters will tell it which game to parse and where the game is located.
+
+Usage: cstats <game> <path>
+
+First Parameter ( game ):
+
+ Option Game Being Parsed
+ ------ ---------------------------------
+-lord Legend Of the Red Dragon
+-lord2 Legend Of the Red Dragon II
+-teos Planets: The Exploration Of Space
+-avln85 Avalon - Live The Epic
+
+The second parameter/argument is the path where the program is stored. Some
+examples of paths are as follows:
+
+Windows, DOS, OS/2: C:\BBS\DOORS\LORD
+*NIX, Linux, etc : /usr/home/bbs/doors/lord
+
+The leading slash (forward or backward) is not required. Those are the only
+parameters that Crystalline Stats needs. If one or more of these are not
+given or are invalid then the program will exit in error.
+
+If you specify more than one game it will only use the first one specified.
+Also, if you specify more than one path it will also only use the first one.
+
+Note: Do not use <, >, or | in the path name since those are illegal
+ characters.
+
+IV: What The Program Does.
+
+It will attempt to open the required files for each game from the path you
+specify. If the open fails it will exit informing you of the problem.
+Otherwise it will read the player data and any other required information.
+After all players are loaded it will then parse them to sort, usually
+sorting by using the experience of the player. Players are then outputted
+to an HTML file. If any problems occur the program will normally exit or
+stop processing and verbally inform you of the problem.
+
+V: Files created by Crystalline Stats
+
+Depending on which door is parsed, a file is created that is the actual
+statistics file. A list of the known created files are:
+
+Game Stat File Created
+--------------------------------- -----------------
+Legend Of the Red Dragon lstat.htm
+Legend Of the Red Dragon 2 l2stat.htm
+Planets: The Exploration Of Space pstat.htm
+Avalon - Live The Epic avlnstat.htm
+
+As games are added then number of outputted files will increase.
+
+VI: How To Contact Me
+
+You may contact me, Michael Dillon, with any comments or suggestions using
+the following methods:
+
+IRC: DALnet ( dragons.dal.net ) in #CrystallineRealms
+ BBSNet ( irc.lordlegacy.org, irc.thebbs.org ) in #bbs
+E-Mail: gsvalore@arn.net ( Primary e-mail )
+ crealms@arn.net ( Crystalline Realms e-mail address )
+Website: http://members.darktech.org/gsvalore/ ( Crystalline Realms )
+
+If you'd like to become a beta tester, please use one of the method above
+to contact me.
+
+*Note I use the alias of GSValore on IRC networks.
+
+VII: Thanks
+
+My thanks go out to all those that helped me work on this software mostly
+by tolerating my rantings. Most especially those that tested the software
+on various platforms to make sure it worked.
+
+VIII: Other Legal Information
+
+Crystalline Realms is trademarked to Michael Dillon.
+All other copyrights belong to the respected holders.
+
+Legend Of the Red Dragon, Legend Of the Red Dragon 2,
+Planets: The Exploration Of Space are Copyright (C) Metropolis.
+
+Avalon - Live The Epic is Copyright (C) Dean Woodside.
diff --git a/xtrn/lord2/cnw/docs/deadsay.txt b/xtrn/lord2/cnw/docs/deadsay.txt
new file mode 100644
index 0000000000000000000000000000000000000000..edac95a55d5e7ebc282b3e0114eb511b4b498095
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/deadsay.txt
@@ -0,0 +1,19 @@
+
+ LORD Stuff Pack 1
+ (c) 1997 ShroomTrip Software
+
+ These are all 8 of the random sayings that will be added to the Daily News
+when a player is killed by a monster:
+
+ `n was whipped up on by `e!
+ `e has decapitated `n!
+ `e has eaten `n for breakfast!
+ `n got s&his ass slaughtered by `e!
+ `n has died a pitiful death at the hands of `e!
+ `e was last seen hauling `n's body to their lair!
+ `e totally humiliates `n in front of s&his lover!
+ `n curses the day `e was born!
+
+`n = This is the player's name in LORD 2
+`e = This is the name of the monster that killed the player
+s&his = his if sex is male, her if sex is female
diff --git a/xtrn/lord2/cnw/docs/descent.doc b/xtrn/lord2/cnw/docs/descent.doc
new file mode 100644
index 0000000000000000000000000000000000000000..615bd375abc7cc111c30331c0ad443f239783df4
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/descent.doc
@@ -0,0 +1,46 @@
+
+
+
+
+ Descent of The Dragon
+ An IGM for LORD II v1.01a and later
+
+
+Installation:
+I know. You are sitting there saying, "Where the heck is DESCENT.IGM? What's
+going on?" DESCENT.IGM is written by INSTALL.COM. The reason for this is that
+it is absolutely essential that this IGM be installed by the installation
+program INSTALL.COM. The reason for this is that the IGM requires GENRAN.REF
+to be modified. The original is saved as GENRAN.BAK for easy restoration.
+If GENRAN.BAK already exists the installation will be aborted.
+
+The install program contains a patch so that you may run Soda Machine by
+MamooSoft Programming along with this IGM. If SODA.REF is found then you
+will be presented with a menu. Select the apporpriate choice.
+
+To uninstall, type INSTALL /U. /U is the only command line parameter that
+INSTALL.COM accepts. GENRAN.BAK MUST exist for uninstallation to be
+successful.
+
+General Information:
+This IGM will add a random event. A fight with a Blue Dragon. The player
+must be level 5 or higher. Once a player has killed this monster, this
+event will no longer happen for that player. If the player loses the fight
+with the Dragon, the dragon will leave the player for dead with 3 hit points.
+If the player runs, the dragon will most likely detain the player and carry
+him to her lair for her babies to practice on. If the Lair is entered in
+the normal way, there is a 1 in 900(i think) chance that the dragon will find
+the player no matter the level. If the player loses that fight they will die.
+If the player runs from that encounter, the normal routines will be ran.
+
+Resetting:
+When you reset your game type DEL CHILD*.IDF
+This will delete the IGM data files.
+
+Acknowledgements:
+Thanks to Seth Robinson for creating the LORD II engine and game
+Thanks to Robby Dittman from MamooSoft Programming. Soda Machine routines
+ used with permission.
+
+END OF FILE DESCENT.DOC
+
diff --git a/xtrn/lord2/cnw/docs/developr.doc b/xtrn/lord2/cnw/docs/developr.doc
new file mode 100644
index 0000000000000000000000000000000000000000..5772506a0581ec5290c82a9b052acc481f4608a0
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/developr.doc
@@ -0,0 +1,1229 @@
+Beta testers and debugger's documentation file for
+Externally Defined Items package Beta 1.00, by Michael Hutson
+
+=============================================================================
+Table of Contents
+
+1. Introduction & Overview: What the External Items package is, what files
+ it uses, and an overview of how it works.
+2. Using an external item from a menu: @#menu in ITEM99.REF
+ A. Initialization
+ B. Label Loop
+ C. Getting Data: Labels Getname, Nada, and Nouse
+ D. Label Display
+ E. Menu Choices and Results: Labels Command, Next, Runref, & Quit
+3. Using an external item from a routine: @#bitcheck, @#giveitem, and
+ @#takeitem in ITEM99.REF
+4. INSTALL.REF
+5. DEINSTAL.REF
+6. Appendix: Source code of ADDEXT99.EXE
+============================================================================
+1. INTRODUCTION & OVERVIEW
+
+This is the second of two .DOC files written to explain the workings of the
+Externally Defined Items package for LORD2. The first file, EXTITEMS.DOC,
+covered basic information on how to install and use the package. This file
+goes into the workings of the package in greater detail for the benefit of
+Beta testers, debuggers, or simply those curious to know exactly how it
+works. In particular, it contains heavily annotated copies of the files
+ITEM99.REF, INSTALL.REF, and DEINSTAL.REF with full explanations of the
+purpose and reasoning behind each line of the scripts.
+
+The Externally Defined Items package (or simply, External Items package) is a
+system of .REF and data files that allow players of LORD2 to reference items
+outside of LORD2's ITEMS.DAT and ITEMS.REF file system. It is intended to
+make it possible for writers of Internal Game Modules (IGMs) to add custom
+items to the game without the necessity of manually editing LORD2's Item
+Menu, and to have the .REF file for the IGM contain the routine for that
+item's action, instead of having to edit ITEMS.REF.
+
+The main files used with the External Items package are:
+
+- ADDEXT99.EXE: A utility program to automatically configure Lord2's main
+item files, ITEMS.DAT and ITEMS.REF, to work with the External Items package.
+
+- EXTITEMS.DAT: A master file containing the index of external items that
+have been installed to the game. When an item is added or deleted from the
+game, this file is updated, and the data contained in it used to generate:
+
+- EXTITEMS.REF: This .REF file contains up to 30 routines, one for each
+possible external item, each routine setting variables to equal the value
+needed to define the item. It is a "working" copy of EXTITEMS.DAT.
+
+- EXTITEMS.IDF: This is the data file containing the players' external item
+inventories. The number in the record for each player is considered as a
+30-digit binary number, with each bit a yes or no flag for possession of an
+external item.
+
+- ITEM99.REF: The routines in this file are the "engine" of the External
+Items package. It allows a player to see and use any external items they
+possess, and allows routines in a .REF to test for, give, or take a player's
+external items.
+
+- INSTALL.REF: This file installs an external item into the EXTITEMS .DAT and
+.REF files, allowing it to be recognized by the package.
+
+- DEINSTAL.REF: And this removes an item that is no longer wanted.
+
+ How it works is this: The file EXTITEMS.IDF contains 200 records, one for
+each possible Lord2 player, and each record stores a long integer. The long
+integer will be used to store a numerical value from 0 to 1,073,741,823. This
+number represents the value of 30 binary digits, from 0-29. The main "engine"
+of the package are the routines in the file ITEM99.REF, which uses the value
+returned from EXTITEMS.IDF to determine if a player does or does not possess
+any of 30 possible items. The data for these items is referenced by using
+the command @ROUTINE to go to one of 30 routines in the file EXTITEMS.REF,
+where string and longint variables used to define the items are set, so that
+ITEM99.REF can then call the routine of where that item's use routine is.
+ New items that are being added from an IGM are added to the list of items
+using the INSTALL.REF file, with the help of the master copy of the item data
+in EXTITEMS.DAT. And if an IGM should be removed from Lord2, the item used
+with it can be removed using the DEINSTAL.REF file.
+
+ The rest of this documentation file is devoted to explaining each line
+of the the files ITEM99.REF and INSTALL.REF (DEINSTAL.REF largely consists
+of the same routines as INSTALL.REF). It is hoped that this doc file will be
+helpful to those interested in knowing exactly how the program works. I
+apologize in advance for any deficiencies, especially since it's difficult
+to remember what I might be taking for granted that someone else wouldn't
+know. Please feel free to send any questions or comments to the author at
+the E-mail address listed in the README.1ST file included with these files.
+
+============================================================================
+2. @#MENU in ITEM99.REF
+
+This is the routine that displays what external items a player finds if they
+go into their Items menu and choose to see what extra items they possess.
+It is what is run when a player "uses" item99. It takes the value for their
+external item inventory, and looks for any bits equaling one. The first one
+found is displayed to a "scrollbox", and they are given the option to use
+that item, search for other external items, or quit to their regular item
+menu.
+
+----------------------------------------------------------------------------
+ A. INITIALIZATION
+
+@#menu; header for routine
+............................................................................
+; The following lines initialize the variables used by @#menu
+
+@do `p20 is 0; returns final value of whether player possesses an item with
+; 0 for no and 1 for yes. Default is 0 for no they dont.
+
+@do `p21 is 0; number stored in player's record in EXTITEMS.IDF, used to
+;determine which items they own. Default is 0 for no items at all.
+
+@do `p22 is 0; this is the number of which item is being checked to see if
+;player owns it. It can refer either to which routine in EXTITEMS.REF is
+;being run, or which bit in the binary value of p21 is being tested.
+
+@do `p23 is 1; this number is set in the label command to either 1 or -1,
+;depending on whether a player checking his extra items scrollbox choses to
+;scroll Up or Down the list. Default is 1 for down. It's used in label next
+;to reset the variables for which item will be searched for next.
+
+@do `p24 is 1; as part of the math for checking the binary value of the
+;player's inventory record, this variable will be set to 2^`p22.
+
+;in addition, the following variables will be used in different places:
+; p25 scratch value used for math
+; p26 scratch value used for math
+; p29 set to equal &playernum
+; p30 used to determine if an error message should quit to the Item menu or
+ to the screen player is on. Also used in other routines as the value
+ returned for the quantity of an external item from an .IDF file.
+; s01 name of external item
+; s02 name of header of routine for what item does
+; s03 name of reffile of routine for what item does
+; s04 scratch string used for testing if string is NIL, and for padding
+; item name to center display
+; s05 value of readspecial for player's choice of action in label command
+............................................................................
+
+;The following lines get the value of the player's external items inventory,
+; and attempts to do some error trapping
+
+@if extitems.idf exists false then goto error1; you'd think the inventory
+;file would have to have been added, but who knows?
+
+@dataload extitems.idf &playernum `p21; gets value stored in current player's
+;record.
+
+@if `p21 is 0 then goto nada; if they possess nothing at all, can skip
+;procedure to check their inventory.
+
+@if `p21 less 0 then goto error1
+@if `p21 more 1073741823 then goto error1; checks for illegal values. The
+;number in their inventory should never be negative, nor greater than the
+;value of all bits 0-29 = 1. Actually, I could have squeezed out 31 items
+;by testing bit 30, but 30 is a nice round number and it gives some leeway
+;so that setting the value doesn't crash if the record has somehow been
+;screwed up.
+
+----------------------------------------------------------------------------
+ B. LABEL LOOP
+
+;label loop returns the value of the bit being checked (initially bit 0)
+;to `p20. This is the heart of the program, and I actually believe God told
+;me how to do it. How it works is this: Let's say we want to know whether
+;bit 4 (= 2^4 = 16) in the binary value of a long integer would equal 0 or 1.
+;if we list the values of a binary string, we get
+; value|.. 128 64 32 16 8 4 2 1
+; bit |.. 7 6 5 4 3 2 1 0
+;all the values above bit 4 are binary multiples of the value of bit 4
+;(32= 16*2, 64= 16*4, etc.), and all the bits below bit 4 together could only
+;add up to 16-1. So if we divide the number being tested by 16, we get a
+;result that is how many multiples of 16 the first number is. If that result
+;is even, it means that the value being tested contains only even multiples
+;of bit 4, meaning bit 4 has to be 0. If the result is odd, it means that
+;bit 4 has to be 1. The math to figure this out:
+
+@label loop; when the label next is finished setting up the variables for the
+;next bit to test, it returns to this point
+
+@do `p25 is `p21; `p25 as a scratch copy of player's inventory number.
+
+@if `p25 less `p24 then goto next; p24 equals the value resulting from the
+;bit being checked (p24 = 2^p22). If this number is greater than the value
+;of the player's inventory, then we know they can't own that item, and it
+;goes to begin the next check. (if we're checking the value of bit 4 (=16),
+;and the number being checked is less than 16, bit 4 is obviously 0.)
+;Goes to label next to set up for next bit to check.
+
+@do `p25 / `p24; divides the value of the player's inventory number by 2^p22
+
+@do `p26 is `p25; scratch copy of the resulting quotient
+
+@do `p26 / 2
+@do `p26 * 2 ; since divison rounds off all values to integers, it will not
+;have the same value it started with if it was odd, and will if it was even
+
+@if `p26 is `p25 then `p20 is 0
+@if `p26 not `p25 then `p20 is 1; our final results
+
+@if `p20 is 0 then goto next; if the result is zero, they don't have that
+;item. Label next will set up for the next bit to be checked.
+
+-----------------------------------------------------------------------------
+ C. LABEL GETNAME
+
+;Ok, we've found a bit equaling one, meaning they have that item. We can
+;then call the routine in EXTITEMS.REF that sets the values for that item.
+
+@label getname; this label is used by the routines for external items that
+;temporarily display a message overwriting the scrollbox. When done, those
+;routines will jump back here to redraw the scrollbox with the current item.
+;It's necessary to reacquire the string for the item name because items with
+;a quantity have the format <itemname> [##], where ## is the quantity of
+;that item, which will have changed if they called the use routine for an
+;expendable item.
+
+@if `p20 is 1 then do; hmm..this may be left over from an older version of
+;the code. As far as I can tell, p20 WILL equal 1 whenever this is run. But
+;it doesn't hurt anything so I'm not going to monkey with it.
+
+ @begin; see above-may be unnecessary
+
+ @do `s04 is Item`p22; each routine in EXTITEMS.REF has the header format
+ ;ITEM#, where # is 0-29. s04 is used here a temporary scratch string to
+ ;equal the name of the header of the routine that will be called.
+
+ @do `p29 is &playernum; p29 must ALWAYS be set to equal &playernum before
+ ;ever calling a routine in EXTITEMS.REF. This is because the routines in
+ ;EXTITEMS.REF include a line that when enabled has the format:
+ ; @dataload ITEM.idf `P29 `P30
+ ;This is the line that acquires the data for an item with an associated
+ ;.IDF file giving it a quantity. P29 is used as the value of &playernum,
+ ;and if it is not set, it will either give incorrect results or crash the
+ ;routine. And why, you ask, doesn't the line simply use &playernum
+ ;directly? <SIGH>. To make a long story short, the INSTALL.REF and
+ ;DEINSTAL.REF files have to copy lines of code into a string, and if I
+ ;used &playernum, it would copy the VALUE of &playernum, not the literal
+ ;string. After much tearing out of hair over this, I concluded that the
+ ;only practical way around this was to use a P variable, and always make
+ ;sure it's initialized before use. I stress this so strongly because IGM
+ ;writers creating routines that use external items MUST remember to include
+ ;this line. See EXTITEMS.DOC for examples.
+
+ @routine `s04 in extitems.ref; ok, we have `s04 equal the name of the header
+ ;of the routine that we want to go to, so we go there and get the data we
+ ;need. NOTE: for those interested, the command ROUTINE will accept a string
+ ;variable for the header, but will NOT accept a string for the filename-
+ ;that has to be given explicitly. RUN will accept string variables for both.
+
+; When a routine in EXTITEMS.REF is run, the routines there will set
+; variables for the item in question. A typical routine is shown below:
+
+|@#ITEM1; the header name, allows us to run the routine by referencing a
+|;bit# from the player's item inventory.
+|
+|@label Stick of gum; this alllows us to run the same routine by referencing
+|;the NAME of the item, this is done from .REFs that use external items.
+|
+|@do `s01 is Stick`xof`xgum
+|@do `s02 is gum
+|@do `s03 is test.ref; sets the three main string variables used to for the
+|;item's properties: it's name, the header of it's use routine, and the ref
+|;file that routine is in.
+|
+|@dataload gum.idf `P29 `P30; this line will be disabled by a preceding ; if
+|; there is in fact no .IDF file for that item.
+|
+|@do `s01 add [`P30]; adds to the item name the number set by the preceding
+|;line. Also disabled by a preceding ; if no such .IDF
+|
+|@do `P22 is 1; If the routine has been called by name rather than by Item#,
+|;this sets the item/bit#.
+|
+|@closescript; end of routine.
+
+;Anyway, to continue the commands following the label getname;
+;now that we have gotten the data we need, we are ready to display the data:
+
+ @do goto display
+
+ @end; may be unnecessary if the above IF command is redundant.
+.............................................................................
+
+;If the player has an item99, but has no external items , this routine sets
+;s01 so that the scrollbox has something to display
+
+@label nada
+@do `s01 is <All`xyou`xhave`xis`xan`xempty`xsack!>
+@do goto display
+............................................................................
+
+;This is the use routine for items that are intended to simply be tokens for
+;testing that the player has one of, that don't otherwise do anything. Such
+;an object will have a routine in EXTITEMS.REF that sets `s02 to NOUSE and
+;`s03 to ITEM99.REF, and the label runref will simply jump back to here if
+;that's the case.
+
+@label nouse
+@do `s01 is You`xcant`xthink`xof`xany`xway`xto`xuse`xthis`xitem!
+
+----------------------------------------------------------------------------
+ D. LABEL DISPLAY
+
+;Next, some error trapping against the possibility that somehow a mixup
+;occurred that has caused a player's inventory record to indicate they own
+;an item that doesn't exist. If the label loop caused label getname to go
+;to a record in EXTITEMS.REF that is blank, the item name in s01 will be NIL,
+;and that is tested for. The message in @#errorB is pretty self-explanatory.
+
+@label display; finally, where all those do goto display commands end up.
+@do `s04 is NIL
+@if `s01 is `s04 then do
+ @begin
+ @run errorB in item99.ref
+ @end; this test is done using `s04 because for some reason you can't test
+;if an empty string equals NIL. You have to set another string to NIL, and
+;then compare the two.
+
+;And now, finally, something the player can actually see happening. Having
+;done all the preliminary work, we are ready to proudly display the results
+;of our search:
+
+@clearblock 13 23; in the regular items menu, clears the lower half of
+;the screen below the player's stats
+
+@do move 1 14; moves the cursor to column 1 line 14 onscreen
+@show
+ EXTRA ITEMS
+ `r1 ��������������������������������������������������ͻ`r0
+ `r1 � �`r0
+ `r1 ��������������������������������������������������ͼ`r0
+ Use U and D to scroll, Enter to choose, Q to exit
+ Your Command?
+
+@do move 15 16; moves the cursor to the first space of the scrollbox
+
+;we want the name of the item being displayed to be centered. The following
+;makes sure that the name string is padded with the proper number of spaces:
+
+@do `p25 is length `s01; get string length for following math.
+
+@if `p25 less 49 then do; the name string should be 50 characters or less. If
+;it's 50 or 49, obviously no padding needed.
+
+ @begin
+ @do `p26 is 50; length string should be after padding
+ @do `p26 - `p25; minus length of item name, equals number of spaces to pad
+ @do `p26 / 2; and half those spaces will go in front of the item name
+ @do `p25 + `p26; length name string should be with front spaces padded
+ @do frontpad `s01 `p25; does the front padding
+ @do pad `s01 49; adds spaces to the end of the name string to bring it up
+ ;to the proper length. Somehow 50 is too long, so I put 49.
+ @end
+
+; And then the centered string is displayed in the scrollbox
+@show
+`r1`s01; background set to blue to highlight item name.
+----------------------------------------------------------------------------
+
+ E. MENU CHOICES AND RESULTS: labels command, runref, next, & quit.
+
+;Now we are ready to offer the player a choice of what he wants to do.
+
+@label command; hmm.. possibly another fossil from the development process.
+; I don't see any goto's to this label, unless there's something I'm
+; forgetting; Maybe will be cleaned up in the revised version.
+
+@do move 29 19; moves cursor to just after question mark in Your Command?
+
+@do write
+`d `d; this is a backspace, a space, then another backspace. What this does
+;is after the player has entered a letter, when the action of that command
+;has been completed, it will space over the previous entry leaving a blank
+;for the next command to be entered.
+
+@do readspecial `s05 equd; only possible entries are E, Q, U, & D, for Enter,
+; Quit, scroll Up, or scroll Down. Readspecial will take an enter or return
+; as defaulting to the first entry, which is why E is there.
+
+@if `s05 is E then goto runref; see label runref below
+
+@if `s05 is Q then goto quit; see label quit below
+
+@if `s05 is U then do
+ @begin
+ @do `p23 is -1
+ @do goto next
+ @end
+; if player has multiple items and want's to scroll up his list, this sets
+; the variable that will determine the direction of the search.
+
+@if `s05 is D then do
+ @begin
+ @do `p23 is 1
+ @do goto next
+ @end
+; ditto for scroll down, only sets to 1 instead of -1
+.............................................................................
+
+; This is run after label loop has checked a bit (initially 0) for possession
+; of an item and gotten a result of 0 (no), or if player is scrolling through
+; their list of external items in their scrollbox. It resets the variables
+; used so that label loop will have the correct values to do the math for
+; checking the next bit.
+
+@label next; label to goto when ready to check next bit
+
+@if `p21 is 0 then goto nada; if they have no items at all, no point in doing
+;any of the following lines, so just goes back to label nada, which sets
+;s01 to the "empty sack" message and redisplays it.
+
+@do `p22 + `p23; p22 is the bit being checked, and p23 is the amount that
+;number should be incremented for the next search. p23 equals 1 if they have
+;just entered their external items menu or chosen to scroll Down; and it will
+;equal -1 if from they have chosen to scroll Up.
+
+@if `p22 more 29 then do
+ @begin
+ @do `p22 is 0
+ @do `p24 is 1
+ @do goto loop
+ @end; p22 should be 0-29, and if incrementing it makes it greater than 29,
+;this section wraps p22 back to 0 and p24 back to 2^0. Then they are sent
+;back to label loop to begin next bit test.
+
+@if `p22 less 0 then do
+ @begin
+ @do `p22 is 29
+ @do `p24 is 536870912
+ @do goto loop
+ @end; And similarly, if they have deincremented below zero, this section
+;wraps p22 back to 29, and p24 to 2^29
+
+@if `p23 is 1 then `p24 * 2
+@if `p23 is -1 then `p24 / 2
+@do goto loop; p24 should equal 2^p22. Depending on whether p22 was
+;incremented by 1 or -1, sets p24 to new value of 2^p22; then goes to label
+;loop for next bit check.
+.............................................................................
+
+; If player has found an external item, and chooses from label command to
+;try to use it, they are sent to this label. S02 and s03 will have been set
+;to the header name and reffile name of where the item's use routine is
+;located.
+
+@label runref
+@if `p21 is 0 then goto display; If they have no external items, the empty
+;sack message will have been set, and hitting the enter command will only
+;redisplay that.
+@run `s02 in `s03; jumps to the use routine for the chosen item.
+
+............................................................................
+
+; The error message in header errorA needs to know whether to quit back to
+;the player's item menu, or to a screen. This label set p30 to 1 for
+;returning back to the item menu, and the header @#bitcheck has a label
+;setting it to -1 to quit to the screen.
+@label error1
+@do `p30 is 1
+@run errorA in item99.ref
+............................................................................
+
+; And finally, if they have chosen to quit from their external items
+;scrollbox:
+@label quit
+@run stats in gametxt.ref; redraws their stats/inventory screen.
+@closescript
+
+=============================================================================
+3. USING EXTERNAL ITEMS FROM A ROUTINE
+
+ A. @#bitcheck in ITEM99.REf
+
+;This routine is similar in many ways to the routine @#menu, in that it does
+;much the same basic task: determine if a player owns an external item or
+;not. The main difference is that this routine will be called from routines
+;in .REF files that are written to check for, give, or take external items.
+
+@#bitcheck; header name
+............................................................................
+
+;like @#menu, variables are initialized first. The main differences here are
+;that p22 is not set because the bitcheck routine will always be called
+;after the reffile routine has first gotten the item data from EXTITEMS.REF,
+;which will have set p22 to the proper value. Also, p23 is used here as a
+;loop counter instead of an increment setting.
+
+@do `p20 is 0
+@do `p21 is 0
+@do `p23 is 0 ; here p23 is a loop counter
+@do `p24 is 1
+............................................................................
+
+;likewise very similar to @#menu, except that if an error is detected here,
+;the error message will need to quit to a screen, not the item menu. So a
+;call is made to label error2, which sets p30 to the value needed. Also, if
+;player has lost their Item 99, a check of their inventory will zero out
+;their previous belongings.
+
+@if extitems.idf exists false then goto error2
+@if `i99 is 0 then do
+ @begin
+ @datasave extitems.idf &playernum 0
+ @end
+@dataload extitems.idf &playernum `p21
+@if `p21 less 0 then goto error2
+@if `p21 more 1073741823 then goto error2
+............................................................................
+
+; This next section runs a loop until p24 is set to equal 2^p22
+@label exponent
+@if `p23 is `p22 then goto done
+@do `p23 + 1
+@do `p24 * 2
+@do goto exponent
+............................................................................
+
+;having set p24 to the needed value, the math to get bit p22 = 0 or 1 is
+;is done. See section 2B, label loop, for full explanation of math.
+@label done
+@do `p25 is `p21
+@if `p25 less `p24 then goto finished
+@do `p25 / `p24
+@do `p26 is `p25
+@do `p26 / 2
+@do `p26 * 2
+@if `p26 is `p25 then `p20 is 0
+@if `p26 not `p25 then `p20 is 1
+@do goto finished
+...........................................................................
+
+;p30 is set to the value that header errorA will need to know to abort to
+;the map screen, instead of the item menu.
+@label error2
+@do `p30 is -1
+@routineabort; this is necessary since @#bitcheck is being run from a
+;ROUTINE command in a .REFfile.
+@run errorA in item99.ref
+............................................................................
+
+;And now we're done. P20 has been set to 0 or 1, and the .REFfile that called
+;this routine will then use that information to determine what to do next.
+@label finished
+@closescript
+-----------------------------------------------------------------------------
+ B. @#giveitem and @#takeitem in ITEM99.REF
+
+;Having used the previous @#bitcheck routine to determine if a player owns
+;an item, the .REFfile may then have a routine to give them that item or take
+;it away. Running @#bitcheck first is mandatory, not only because the
+;.REFfile should check if they already have it first, but also because
+;checking for the item does 95% of the work needed to set up the variables
+;to the proper values to give or take the item. Thus @#giveitem, and the
+;following routine @#takeitem, both presume that the variables used have
+;been preset by @#bitcheck.
+
+@#giveitem
+@if `p20 is 0 then do; elementary error trapping, trying to prevent a stupid
+;ref writer from trying to give player an item if they already have it. Of
+;course if they were not merely stupid but idiotic, and reset p20 to equal
+;0, then they could screw things up. Oh well, I tried.
+
+ @begin
+ @if `i99 is 0 then `i99 is 1; if this is a player's very first external
+ ;item, this gives them an Item 99, a "sack" to put their external items in.
+
+ @do `p21 + `p24; if they don't have the item, the bit for that item in the
+;binary value of the player's inventory number will be zero. P24 will have
+;been set to equal 2^p22, and adding that value to the player's inventory
+;number will set that bit to 1.
+
+ @datasave extitems.idf &playernum `p21; and then of course, the new value
+;for the player's inventory number is saved to their record in EXTITEMS.IDF
+ @end
+@closescript
+
+;@#takeitem is identical, except that if they have the item, then to remove
+;it you would subtract the value of p24
+
+@#takeitem
+@if `p20 is 1 then do
+ @begin
+ @do `p21 - `p24
+ @datasave extitems.idf &playernum `p21
+ @end
+@closescript
+
+=============================================================================
+
+4. INSTALL.REF
+
+ The Externally Defined Items package would be pointless if there wasn't
+some way to automatically install IGM writer's external items. This is done
+by INSTALL.REF.
+ The file EXTITEMS.REF contains the routines used by the package to set
+variables for each item. In effect, the 30 routines in that file serve as
+data records. To be able to install or deinstall external items amounts to
+being able to do a random read or write to each "record".
+ Doing this within the limitations of the LORD2 .REF language presented a
+considerable challenge, but INSTALL.REF, and it's associate DEINSTAL.REF do
+just that. It is done by an indirect process that starts with the master
+file EXTITEMS.DAT, a non-working copy of EXTITEMS.REF. This is copied to a
+temporary file EXTITEMS.BAK, which is used for the install procedure, while
+the original EXTITEMS.DAT and EXTITEMS.REF files are deleted so that updated
+copies can be generated. The first line of EXTITEMS.BAK is read using the
+@readfile command, and the data written to the new copies of EXTITEMS.DAT and
+.REF. Then the first line of the EXTITEMS.BAK file is trimmed using the
+@DO TRIM command, so that the next line can be read and written. At the point
+where the new data needs to be added, the new data is written to the .DAT
+and .REF files, and then the remaining records added. The end result is new
+copies of EXTITEMS .DAT and .REF containing the new data.
+
+INSTALL.REF is never run directly; it is called from a routine in a REF
+where the variables for the item data are set, and then the command to run
+install+install.ref. The main reason for this is that if the installation
+started from INSTALL.REF, it would have to prompt the user for the header and
+filename to get the data from, put that information in string variables, and
+then do a @ROUTINE <string> in <string>, and the @ROUTINE command will NOT
+accept a string variable for the filename. So the install procedure begins
+with running the item definition routine from a batch file with a line
+similar to the following:
+call lord2 <header>+<reffile.ref>
+where <header> is the name of the routine, and <reffile.ref> the name of the
+.REF file it is located in. For example, the external item Stick of gum is
+installed by the line call lord2 stickgum+sorry.ref
+
+So first, we'll look at an example .REF containing the
+data for an external item:
+
+@#stickgum; name of header to run
+
+@do `s06 is Stick`|of`|gum; here spaces in the item name are padded using
+;`|. The reason for this is explained in the section on label loop2.
+
+@do `s07 is gum; name of header of item's use routine.
+
+@do `s08 is sorry.ref; name of .ref that item's use routine is in
+
+@do `s09 is gum.idf; the name of the .IDF file associated with the item if
+;it's supposed to have a quantity. If none, `s09 is NIL
+
+@run install in install.ref
+@closescript ; and now that the string variables are set, we can call the
+;main install routine.
+............................................................................
+
+;first, @#install has to check if the item has already been installed. After
+;trying to figure out a way to do this by checking each record and testing
+;the returned values of s01, I realized the simplest (if slightly inelegant)
+;way to do the check was to simply to call the routine by that name and see
+;if it is found. If it isn't, you get an error message, but fortunately that
+;doesn't end the routine; you simply ignore it and proceed.
+
+@#install
+@show
+checking for duplicate record...
+
+(Note: If you get an error message saying that the item wasn't found in
+ EXTITEMS.REF, don't worry! It's _Expected_ to do that. Just hit a key to
+ continue..)
+
+@do `p22 is -1; p22 set to a value that will not occur in any routine in
+;EXTITEMS.REF, so we know if one was found
+
+@do `p29 is 1; remember, p29 must always be set to accomodate any .IDF files
+;that might be checked by the item routine. @#install runs locally, so
+;instead of setting p29 to &playernum (which would be 0), we simply set it
+;to 1.
+
+@do `s05 is `s06; We need to preserve the current value of s06, but we also
+;need a copy that can be altered in the next line:
+
+@do replaceall `| `x `s05; this replaces the "pseudo-padding" used in the
+;original string with actual padded spaces, so we can call the routine.
+
+@routine `s05 in extitems.ref; if such a label exists in EXTITEMS.REF, the
+;value of p22 will be set to a value between 0 and 29.
+
+@if `p22 not -1 then goto duplicate; gives message item already found
+;installed and quits. If wasn't found, an error message results which can
+;be ignored.
+.............................................................................
+
+;next, it's determined if EXTITEMS.REF already has the maximum 30 items
+;installed.
+
+@show
+Ok, item not already installed; searching for open record slot...
+@do `p23 is 0; loop counter initialized at 0 for starting search of records
+; 0-29; also, this will preserve the item # of the record being rewritten.
+
+@do `p29 is 1; p29 set before calling routine in EXTITEMS.REf. Probably not
+;strictly necessary here since it was set earlier, but never a bad idea.
+
+@label loop1; loop to find empty slot.
+
+@if `p23 is 30 then goto full; if loop has run thirty times and still no
+;unused slot found, file is full.
+
+@routine Item`p23 in extitems.ref; will test each header one at a time
+;starting with Item0
+
+@do `s04 is NIL; scratch string for NIL comparison
+
+@if `s01 is `s04 then goto done1; unused slots will return an NIL string as
+;the item name. If one has been found, that's the first empty record slot
+;available, and ready to begin install.
+
+@do `p23 + 1
+@do goto loop1; if no unused slot found yet, check next one.
+............................................................................
+
+;Now the process of rewriting the EXTITEMS files begins. First, we do some
+;file handling
+
+@label done1
+@show
+Ok, record slot available, beginning install.
+
+@if extitems.bak exists true then delete extitems.bak; deletes old (probably
+;empty) file from last time @#install run.
+
+@copyfile extitems.dat extitems.bak; creates backup copy of main file that
+;will be the file actually worked with.
+
+@do delete extitems.dat; the original file is deleted so that we can write
+;to a new file by that name. This wouldn't be necessary if the Lord2 .REF
+;language had a simple Rename file command.
+
+@do delete extitems.ref; and we're going to create a new version of this file
+; as well
+.............................................................................
+
+; In the next section, we copy all the records that come before the one
+;that will be replaced.
+
+@do `p22 * 10; previously (in label loop1), we found an unused record in
+;EXTITEMS.REF. P22 would have been set there to whatever the record number
+; was. Each record is 10 lines long (9 lines plus a space), so this gives us
+;the number of lines in the file EXTITEMS.DAT that have to be copied before
+;we reach the record that's to be replaced.
+
+@do `p24 is 301; EXTITEMS.DAT (and it's copies .BAK and .REF) consist of 30
+;routines each 10 lines long. For some reason however, the @DO TRIM command
+;imposes an overhead of one line: i.e., if you tell it to trim a text file
+;to 2 lines, you will see one line of text. So we initialize p24, the number
+;of lines to trim the file to, at 301
+
+@show
+Processing records may require a few minutes....
+@label loop2
+@if `p24 less 2 then goto done4; this line is because the label loop2 will
+;be done twice- once before the item data is written, and once after. This
+;command tells it it's done when all of EXTITEMS.BAK has been read. I
+;couldn't tell you if it would work just as well to say @if `p24 is 1; I
+;originally wrote this after I couldn't figure out why the label wasn't
+;terminating and I put it in in case the value 1 was somehow being skipped.
+
+@if `p22 is 0 then goto writeitem; when p22 is deincremented to 0, the lines
+;preceding the record to be replaced have been copied, and this loop is done.
+
+@do `p24 - 1; once we finish reading the current first line of EXTITEMS.BAK,
+;we will want to trim that first line away. So value to trim to is set.
+
+@do `p22 - 1; number of lines left to process reduced by 1
+
+@readfile extitems.bak
+`s05; reads the current first line of the file..
+
+@writefile extitems.dat
+`s05; ..and writes it to it's replacement
+
+; Ok, now, I am finally going to explain why the routines to define the
+;external items use `| for padding spaces, and why we have two files,
+;EXTITEMS.DAT and EXTITEMS.REF. To rewrite the EXTITEMS files with the new
+;item data, we have to copy the records that won't be changed into the new
+;files. The problem is variables. We need to have EXTITEMS.REF contain lines
+;with active variable code. But if you try to define a string with variables
+;in it, you get the VALUE of the variables, not the literal code. That's what
+;it was meant to do!. The only way around this was to have two files:
+;EXTITEMS.DAT has invalid ` codes substituted for the variable codes used in
+;EXTITEMS.REF. This makes EXTITEMS.DAT copyable. And then, the .DAT version
+;is used to generate the .REF version by this trick: if you have an
+;invalid code, such as `| in a string, and then you use @do replaceall to
+;change all the | into x, the string is NOT REINTERPRETED! That is, it isn't
+;checked again to see if any of the characters in the string are a valid
+;variable code. (It will substitute the variable value if you replace the
+;full `| with `x). So now we can write the string to EXTITEMS.REF as follows:
+
+@do replaceall | x `s05
+@do replaceall ~ s `s05
+@do replaceall = p `s05
+@writefile extitems.ref
+`s05
+
+; finally, having previously reduced the size that EXTITEMS.BAK should be
+;trimed to by one, we do that trim, and are ready to run the loop again.
+
+@do trim extitems.bak `p24
+@show
+`p24 lines left to process
+@do goto loop2
+............................................................................
+
+;At this point we will have copied all the old records preceding the one
+;to be changed. Now we are ready to write the new routine based on the values
+;that were set by the definition for the new item.
+
+@label writeitem; loop2 exits to this label when the previous records are
+;done copying.
+
+@do `p25 is 1; p25 is used here as a counter for which line of 10 in the
+;new record is being written. That way I could simply set the definition for
+;the line and then run a loop to do the data processing.
+
+@label loop3; loop for writing lines 1-10 in record for new item.
+
+@if `p25 is 1 then `s05 is @#ITEM`p23; creates header for new record
+
+@if `p25 is 2 then do
+ @begin
+ @do `s05 is @label`x`s06
+ @do replaceall `| `x `s05
+ @end; what all this is about is, the second of 10 lines in the record is a
+;label with the itemname, so record can be called by item name. That label
+;should NOT have pseudo-padded spaces, so this creates a string with the
+;item name as it should finally appear.
+
+;The following lines set s05 to write the invalid code version that will be
+;saved in EXTITEMS.DAT
+@if `p25 is 3 then `s05 is @do`x`~01`xis`x`s06;
+@if `p25 is 4 then `s05 is @do`x`~02`xis`x`s07
+@if `p25 is 5 then `s05 is @do`x`~03`xis`x`s08
+
+;now we have the two lines devoted to if an item has a related .IDF file for
+;a quantity. We want the lines inactivated if there is no file, so we test to
+;see if s09 (the variable for the .IDF file name) is NIL. If it is, the lines
+;are preceded by a semi-colon, commenting the line out.
+
+@if `p25 is 6 then do
+ @begin
+
+ @if `s09 is `s04 then `s05 is ; ;s04 was set to NIL back in label loop1,
+;remember?
+
+ @do `s05 add @dataload`x`s09`x`=29`x`=30; fortunately, if this line is being
+;run, it's because we're on the sixth cycle of loop3. And s05 is reset to NIL
+;at the end of each loop, so at this point s05 will either be nothing or a
+;semicolon. Then rest of line added.
+
+ @end
+
+;ditto, line seven tests for if there is an IDF file name, and comments the
+;line out if there isn't.
+
+@if `p25 is 7 then do
+ @begin
+ @if `s09 is `s04 then `s05 is ;
+ @do `s05 add @do`x`~01`xadd`x`x[`=30]
+ @end
+
+@if `p25 is 8 then `s05 is @do`x`=22`xis`x`p23; makes sure the item routine
+;sets p22 to the item number, if routine was called by the item name label.
+
+@if `p25 is 9 then `s05 is @closescript
+@if `p25 is 10 then `s05 is NIL; last line, and then a blank line seperating
+;the records
+
+;now we write the line verbatim to EXTITEMS.DAT, and then do the conversion
+;to get the version to write to EXTITEMS.REF
+
+@writefile extitems.dat
+`s05
+@do replaceall | x `s05
+@do replaceall ~ s `s05
+@do replaceall = p `s05
+@writefile extitems.ref
+`s05
+
+@do `p25 + 1; set p25 for next line of 10
+@if `p25 is 11 then goto postitem; if all 10 done, exit loop
+@do `s05 is NIL; makes sure s05 is reset to nothing, because of how cycles
+;6 and 7 of loop 3 do an s05 ADD instead of an s05 IS.
+@do goto loop3
+
+............................................................................
+
+;After the lines for the new item record have been written, the rest is
+;simply continuing to copy the remaining records to the new files.
+
+@label postitem
+@do `p24 - 10; we want to delete an extra 10 lines from our count, since
+;those are the record that's being replaced.
+
+@do `p22 is 29; to get the number of cycles the read/write/trim cycle has to
+;run, we first set p22 to the maximum number of records that could remain to
+;copy
+
+@do `p22 - `p23; then we subtract the number that we know have already been
+;done
+
+@do `p22 * 10; and the number left to do times 10 is the number of lines
+;left to process.
+@do trim extitems.bak `p24; we trim the lines no longer needed, and continue.
+@do goto loop2
+.............................................................................
+
+; And here are the three labels INSTALL can quit to:
+
+@label done4
+@show
+INSTALLATION COMPLETE
+@closescript
+
+@label full
+@show
+Sorry, the maximum of 30 items are already installed!
+@closescript
+
+@label duplicate
+@show
+That item is already installed as Item `p22 of EXTITEMS.REF
+@closescript
+
+=============================================================================
+
+5. DEINSTAL.REF
+
+ Deinstal works very much like INSTALL. The main differences are that it
+is run directly, since it doesn't need to have data passed to it from another
+.REF file. The record to be copied over is replaced with a generic blank
+record. And also, once done, DEINSTAL makes sure that any players who have
+that item # in their inventories have that item deleted. It is a very good
+idea to make sure that any backups or installations of the External Items
+package are using the three EXTITEMS files that contain the same items,
+or else a mismatch may occur. Rather then comment on each line here since so
+many are the same or similar to others that have been explained elsewhere in
+this document, it will simply refer you to where to look for more info.
+.............................................................................
+
+;first, sysop enters name of external item to be removed, a maximum of 50
+;characters with the default of NIL. Name is case sensitive, so doublecheck
+;the label in EXTITEMS.REF if you're not sure.
+
+@#deinstal
+@show
+Enter name of item to remove from game
+@do readstring 50 NIL `s05
+@do `s04 is NIL
+@if `s05 is `s04 then goto nonesuch
+............................................................................
+
+;next we search for item by name. This time, if an error is found, it's an
+;error- no item by the name you're looking for found. Check spelling perhaps?
+
+@show
+`\
+searching for item to be removed...
+@do `p22 is -1
+@do `p29 is 1
+@routine `s05 in extitems.ref
+@if `p22 is -1 then goto nonesuch
+............................................................................
+
+;the next section is virtually identical to the lines so long-windedly
+;explained for INSTALL.REF.
+
+@show
+Ok, item found, beginning deinstall..
+@if extitems.bak exists true then delete extitems.bak
+@copyfile extitems.dat extitems.bak
+@do delete extitems.dat
+@do delete extitems.ref
+@do `p23 is `p22
+@do `p23 * 10
+@do `p24 is 301
+@show
+Processing records may require a few minutes....
+@label loop2
+@if `p24 less 2 then goto done4
+@if `p23 is 0 then goto writeitem
+@do `p24 - 1
+@do `p23 - 1
+@readfile extitems.bak
+`s05
+@writefile extitems.dat
+`s05
+@do replaceall | x `s05
+@do replaceall ~ s `s05
+@do replaceall = p `s05
+@writefile extitems.ref
+`s05
+@do trim extitems.bak `p24
+@show
+`p24 lines left to process
+@do goto loop2
+............................................................................
+
+;again, this is virtually identical to the routine for INSTALL.REF. About the
+;only difference here is that most of the data to be written is a standard
+;"blank" record, so it's hardcoded here.
+
+@label writeitem
+@do `p25 is 1
+@label loop3
+@if `p25 is 1 then `s05 is @#ITEM`p22
+@if `p25 is 2 then `s05 is @label`x___`p22
+@if `p25 is 3 then `s05 is @do`x`~01`xis`xNIL
+@if `p25 is 4 then `s05 is @do`x`~02`xis`xnouse
+@if `p25 is 5 then `s05 is @do`x`~03`xis`xITEM99.ref
+@if `p25 is 6 then `s05 is ;@dataload`x`s04`x`=29`x`=30
+@if `p25 is 7 then `s05 is ;@do`x`~01`xadd`x`x[`=30]
+@if `p25 is 8 then `s05 is @do`x`=22`xis`x`p22
+@if `p25 is 9 then `s05 is @closescript
+@if `p25 is 10 then `s05 is NIL
+@writefile extitems.dat
+`s05
+@do replaceall | x `s05
+@do replaceall ~ s `s05
+@do replaceall = p `s05
+@writefile extitems.ref
+`s05
+@do `p25 + 1
+@if `p25 is 11 then goto postitem
+@do `s05 is NIL
+@do goto loop3
+
+@label postitem
+@do `p24 - 10
+@do `p23 is 29
+@do `p23 - `p22
+@do `p23 * 10
+@do trim extitems.bak `p24
+@do goto loop2
+............................................................................
+
+;ok something new here. We check the value for each player's external items
+;inventory , using a routine similar to @#checkitem in ITEM99.ref, and if
+;they have it doing a routine similar to @#takeitem in ITEM99.ref.
+;that way player doesn't keep an item that's been deleted.
+
+@label done4
+@show
+Item removed from External Items index.
+Updating player's inventories..
+@do `p24 is 1
+@do `p25 is 0
+@label loop4
+@if `p25 is `p22 then goto done5
+@do `p24 * 2
+@do `p25 + 1
+@do goto loop4
+
+@label done5
+@if extitems.idf exists false then goto errorA
+@do `p23 is 1
+@label loop5
+@dataload extitems.idf `p23 `p21
+@if `p21 is 0 then goto next
+@if `p21 less 0 then goto errorA
+@if `p21 more 1073741823 then goto errorA
+@do `p25 is `p21
+@if `p25 less `p24 then goto next
+@do `p25 / `p24
+@do `p26 is `p25
+@do `p26 / 2
+@do `p26 * 2
+@if `p26 is `p25 then `p20 is 0
+@if `p26 not `p25 then `p20 is 1
+@if `p20 is 1 then do
+ @begin
+ @do `p21 - `p24
+ @datasave extitems.idf `p23 `p21
+ @end
+@label next
+@do `p23 + 1
+@if `p23 is 31 then goto quit
+@do goto loop5
+@label quit
+@show
+All done!
+@closescript
+
+
+@label nonesuch
+@show
+`\
+No item with that name found!
+@closescript
+
+@label errorA
+@show
+`r0 `c
+`bERROR!
+`4An illegal value has been detected for record number &playernum in the
+file EXTITEMS.IDF. This value should never be negative, nor greater than
+1,073,741,823 (=[2^30]-1). If this message has been triggered, either the
+file does not exist, the file record has been altered, or data corruption
+has taken place. `k
+@closescript
+
+=============================================================================
+
+6. APPENDIX: Source code for ADDEXT99.EXE
+
+Lord2's main data files are Pascal typed files. ADDEXT99.EXE is a compiled
+Pascal program that writes to ITEMS.DAT to add item99, and then appends the
+header for item99 in ITEMS.REF. My thanks to Seth Able Robinson for providing
+the data record structure in his 3RDPARTY.DOC file.
+
+PROGRAM addext99;
+USES crt;
+
+TYPE item_struct = record {used by item.ref}
+ name: string[30]; {name of item}
+ action: string[40]; {string for hitting someone with it}
+ use_once,armour,weapon,sell,used: boolean;
+ value: longint; {gold value}
+ breakage: integer; {break percentage per use}
+ max_buy: integer; {unused for now}
+ def,strength: integer; {strength/defence added if equipped}
+ eat: integer; {unused for now}
+ ref: string[12]; {label of .ref procedure in ITEMS.REF}
+ use_action: string[30]; {text for using it with the .ref}
+ descrip: string[30]; {description of item that shows to the right}
+ drop: boolean; {if true, item cannot be dropped, it is a quest item}
+ extra: array[1..37] of char; {reserved}
+ end;
+
+TYPE item_rec = record {the entire ITEMS.DAT file is ONE of this
+record format}
+ i: array[1..99] of item_struct;
+ end;
+
+VAR item: item_rec;
+VAR itemfile: FILE OF item_rec;
+VAR oldfile: TEXT;
+VAR newfile: TEXT;
+VAR nextline: STRING;
+VAR copyline: INTEGER;
+
+PROCEDURE checknextln;
+ BEGIN
+ READLN (oldfile, nextline);
+ IF EOF (oldfile)
+ THEN copyline := 1;
+ IF nextline = '@#NOMOREITEMS'
+ THEN copyline := 2;
+ IF nextline = '@#item99'
+ THEN copyline := 3;
+ END; {read&test}
+
+BEGIN
+ ASSIGN(itemfile, 'items.dat');
+ RESET (itemfile);
+ READ (itemfile, item);
+ IF (item.i[99].name = '')
+ THEN BEGIN
+ WITH item.i[99] DO
+ BEGIN
+ name := '`$Extra Items';
+ action := '';
+ armour := FALSE;
+ weapon := FALSE;
+ sell := TRUE;
+ ref := 'ITEM99';
+ use_action := 'See what else you own';
+ value := 2;
+ use_once := FALSE;
+ breakage := 0;
+ descrip := 'A sackfull of various junk';
+ strength := 0;
+ def := 0;
+ drop := FALSE;
+ END; {with}
+ SEEK (itemfile, 0);
+ WRITE (itemfile, item);
+ CLOSE (itemfile);
+ WRITELN ('Item99 added to ITEMS.DAT');
+ END {then}
+ ELSE BEGIN
+ CLOSE (itemfile);
+ WRITELN ('Item99 already in use; install aborted.');
+ HALT;
+ END; {else}
+
+ ASSIGN (oldfile,'items.ref');
+ ASSIGN (newfile,'additems.ref');
+ RESET (oldfile);
+ REWRITE (newfile);
+ copyline := 0;
+ checknextln;
+ WHILE copyline = 0 DO
+ BEGIN
+ WRITELN(newfile, nextline);
+ checknextln;
+ END; {while}
+ CASE copyline OF
+ 1: BEGIN
+ CLOSE (oldfile);
+ CLOSE (newfile);
+ ERASE (newfile);
+ WRITELN ('error: neither header @#item99 nor @#NOMOREITEMS found');
+ END; {case1}
+ 2: BEGIN
+ CLOSE (oldfile);
+ WRITELN (newfile, '@#item99');
+ WRITELN (newfile, '@run menu in item99.ref');
+ WRITELN (newfile, '@closescript');
+ WRITELN (newfile);
+ WRITELN (newfile, '@#NOMOREITEMS');
+ CLOSE (newfile);
+ ERASE (oldfile);
+ RENAME (newfile, 'items.ref');
+ WRITELN ('header @#item99 added to ITEMS.REF');
+ WRITELN ('Lord2 now configured for External Items!');
+ END; {case2}
+ 3: BEGIN
+ CLOSE (oldfile);
+ CLOSE (newfile);
+ ERASE (newfile);
+ WRITELN ('header for item99 already in ITEMS.REF. Quitting.');
+ END; {case3}
+ END; {case}
+END.
diff --git a/xtrn/lord2/cnw/docs/devil.doc b/xtrn/lord2/cnw/docs/devil.doc
new file mode 100644
index 0000000000000000000000000000000000000000..6d11abef695304e02f2e7c365b5f3be55cebeee6
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/devil.doc
@@ -0,0 +1,22 @@
+The Devil's Rage IGM v2.0
+Copyright (c) 1997 by TonyTown Software Ltd.
+LORD 2 is a trademark of RTSoft Inc.
+
+I. Introduction
+ Welcome to the Devil's Rage.. a 7 screen test of skill! Has places
+to gain experence... for ALL levels! Come and join us!
+
+II. Installation
+ Just type the following in your LORD2 directory after you have
+unziped it there :
+ IGM DEVIL.IGM
+
+ Do the same to uninstall
+
+III. Contacts
+ Here is all the info :
+ tmbrtmbr@flash.net - Email
+ http://ttsoft.base.org OR
+ http://www.geocities.com/SiliconValley/Way/9842 - Webpage
+
+See you next release!
diff --git a/xtrn/lord2/cnw/docs/devils.txt b/xtrn/lord2/cnw/docs/devils.txt
new file mode 100644
index 0000000000000000000000000000000000000000..b152e3e1be5a3b6293bf980d811213d7120f3fef
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/devils.txt
@@ -0,0 +1,68 @@
+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
+ About Devils Island v1.50
+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
+
+ Varables used in this IGM
+
+ `p01 = Exp
+ `p02 = HitPt
+ `p03 = MaxPt
+ `p04 = Muscles
+ `p05 = Dodge
+ `p20 = flag settings
+ `p21 = flag settings
+ `p22 = flag settings
+ `p23 = flag settings
+ Money = Users cash
+ &money = User cash
+
+ These are used in the Quest for the key
+
+ DEVISL1.IDF
+
+ 1 = Talked to Demon Knight
+ 2 = Receiced Key
+ Defeated Satan (Non) (Sends you up)
+
+ DEVISL2.IDF
+
+ 1 = Did quest. (so you can't do it again)
+
+ DEVGOOD.IDF
+
+ 1 = Allready Received a goodie
+
+ DEVBATH.IDF
+
+ 1 = Went to Bathroom allready
+
+
+Problems with anything?, Just Email me.
+DemonKnight@Ibbs.com
+
+ Btw no tampering with the part that says DO NOT TOUCH USED BY INSTALL.EXE
+ If you touch that will totaly mess up the updator for the next version.
+
+ The ref files are pretty muched mapped out look for
+ ;---
+ ;---<(whatever)>---
+ ;---<
+ they tell you whats going on and or what screen this is in etc..
+ helpfull sometimes :>
+
+
+ As I said edit the ref's world if you want to, but DO NOT! AND I MEAN
+ DO NOT SEND IT AROUND WITH YOUR NAME OR I WILL SUE YOUR ASS..
+
+Devils Island v1.50 Copyright 1997(c), MetaLHeaD Softwarez
+
+-----------------------------------------------------------------------------
+Devisl.Igm |-| Written By: Demon Knight
+Devisl.ref |-| Produced By: MetaLHeaD software
+Devisl2.ref |-| Beta testing: Ror, Insanity sause(215)830-3091
+DevHot.Ref |-|
+Devisl.Dat |-|
+Devils.exe |-| DarkLandsBBS(215)487-7315 256k Obv/2 Node's
+Install.exe |-|
+Devils.txt |-| Copyright 1997(c), All Rights Reserved... MetaLHeaD Softwarez
+----All these file included in (c), and info u see above!--------------------
diff --git a/xtrn/lord2/cnw/docs/disco.doc b/xtrn/lord2/cnw/docs/disco.doc
new file mode 100644
index 0000000000000000000000000000000000000000..d13cfaafdb19829668ff0f48b8d79aa051a87795
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/disco.doc
@@ -0,0 +1,17 @@
+ G-DOGG'S DISCO HALL
+
+-= INTRO =-
+
+G-Dogg's Disco Hall is an IGM for Seth Able's LORD 2 - the best door game
+ever made in my opinion! Therefore, Hades Software and I felt inspired to
+make some IGM's for it. And after that, G-Dogg's Disco Hall was born. It's
+our first IGM. We will make many more in the future... If you encounter any
+bugs e-mail us at KingsXe@aol.com. Thanks for choosing G-Dogg's Disco Hall!
+
+-= INSTALLATION =-
+
+From the LORD 2: New World directory type "igm disco" but omit the quotes.
+
+-= NOTES =-
+
+Look for other great IGM's from Hades Software!
diff --git a/xtrn/lord2/cnw/docs/exfun.doc b/xtrn/lord2/cnw/docs/exfun.doc
new file mode 100644
index 0000000000000000000000000000000000000000..fd99dc83b7093081f0df0141dddbd42c98a00b8f
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/exfun.doc
@@ -0,0 +1,64 @@
+- LORD2 IGM v1.02 -
+
+ Extacy's Land Of Fun
+ Lord 2 IGM PATCH Version 1.03 Created On 11/7/97
+ Programmer : Yang Qingwei
+ BBS : Yang's Empire BBS o65-581-1224 24hrs!
+ Email Address : yqwemail@mbox2.singnet.com.sg
+ LORD2 Registered Version Needed
+
+* Introduction *
+
+Bugs Found On Version 1.02 So This Patch Is Created.
+
+Please Don't Flood Me With Mails As I'm Not Going To Fix Any More FOUND Bugs
+But I Can Say That 99% Of This IGM Is BUG FREE. Maybe I'll Make A Patch, But
+Its Most Unlikely. Maybe Create A 1 or 2 Changes.
+Thanks.
+
+* Things Needed For This IGM *
+
+- Final Version Of LORD 2 (Lord2 Version 1.00)
+- Registered LORD 2 (Unregistered Oso Can, But Sum Places Cannot Be Accessed)
+
+[UPGRADING]
+If You Are Upgrading, Please Uninstall The IGM By Typing This
+IGM EXFUN
+After This UNZIP Over The Last Version And Proceed With The [NORMAL]
+Procedure.
+
+[NORMAL]
+Its SUPER SIMPLE Follow the steps below
+
+1:Copy all the file to your lord 2 directory
+2:Type IGM.EXE EXFUN
+
+* Uninstall *
+To Uninstall Type This
+
+IGM.EXE EXFUN
+
+* Register? *
+Its Totally Free. No Charge
+But A Drink Whould Be Nice.
+
+* Where Can More IGMS Be Found? *
+
+Curently Not Much IGM Yet. But Do Call To Check For Lastest Version Of IGMS!
+[HQ]
+Yang's Empire BBS.
+o65-581-1224 24hrs
+33600bps TNC Merz Modem
+
+[Offical]
+Fireball BBS.
+o65-383-3868
+33600bps Prolink Modem
+
+[CONFICTS]
+No Other IGMS Conflicts With This Yet.
+I'll Keep You Inform If Theres Any Conflicting Of Any Other IGM With Mine.
+Or You Can Help Me Out By Emailing: yqwemail@mbox2.singnet.com.sg And Tell Me
+About It. Please Tell Me The Bugs You Had Found Too.
+
+End Of Doc.
diff --git a/xtrn/lord2/cnw/docs/extitems.doc b/xtrn/lord2/cnw/docs/extitems.doc
new file mode 100644
index 0000000000000000000000000000000000000000..6de6fc3186ecbcfc2d0ea0017fec757bf9ee1e35
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/extitems.doc
@@ -0,0 +1,567 @@
+Externally Defined Items package Beta 1.01, by Michael Hutson
+For use with LORD2 by Seth Able
+
+Dedicated to GOD
+"I know thy works: behold, I have set before thee an open door, and no man
+ can shut it:" -Revelation 3:8
+----------------------------------------------------------------------------
+
+TABLE OF CONTENTS
+
+ I. What is the External Items package?
+ II. Setting up Lord2 to use the External Items package
+ III. Installing an external item for use in Lord2.
+ IV. Using externally defined items.
+ V. Writing an IGM that uses external items.
+ 1. Defining an external item
+ 2. Checking for possession of an external item
+ 3. Giving a player an external item
+ 4. Taking away an external item
+ 5. Writing a batch file to install external items
+ VI. Deleting an external item from the game
+ VII. Addendum: further information for Beta testers.
+----------------------------------------------------------------------------
+
+I. WHAT IS THE EXTERNAL ITEMS PACKAGE?
+
+ Seth Able, author of Lord2, designed his excellent game to be highly
+modifiable. By use of his World Editor in the Lord2 configuration program,
+and the IGM.EXE program, people can create their own screens to be added to
+the game. And they can add their own .REF files detailing custom routines to
+be run. This allows Lord2 fans to create their own adventures using the
+basic game engine.
+ However, one thing has been missing up untill now: There has been no
+easy way to add new items to the game. Items can be added by using the
+Item Editor feature of L2CFG.EXE, the configuration program included with the
+game, but this requires manually entering the attributes for each individual
+item, and then adding the item's action to ITEMS.REF. As an aspiring
+Lord2 IGM writer, I became convinced there had to be a way that IGM writers
+could create their own custom items, and somehow add them automatically
+to Lord2.
+ This package aspires to do just that. It uses a system of .REF and data
+files to define and use items outside of Lord2's ITEMS.DAT file. Once
+installed to Lord2, it allows up to 30 additional items to be externally
+defined by IGMs. This will allow IGM writers even broader scope for writing
+new adventures.
+ To use the package with Lord2, the following files must be in your
+Lord2 directory:
+- ADDEXT99.EXE
+- EXTITEMS.DAT
+- EXTITEMS.IDF
+- EXTITEMS.REF
+- INSTALL.REF
+- DEINSTAL.REF
+- ITEM99.REF
+
+ In addition, the following files are included as an example of creating
+and using external items in IGMs. To use they should be in your Lord2
+directory:
+- SORRY.BAT
+- SORRY.IGM
+- SORRY.DAT
+- SORRY.REF
+- GUM.IDF
+-----------------------------------------------------------------------------
+
+II. SETTING UP LORD2 TO USE THE EXTERNALLY DEFINED ITEMS PACKAGE
+
+ Setting up Lord2 to recognize external items does require one addition
+to Lord2's items files ITEMS.DAT and ITEMS.REF. The External Items package
+1.02 now includes a utility to do this automatically. Once this is done all
+externally defined items will be referenced by a single entry in Lord2's
+regular items list.
+ At the DOS prompt in your Lord2 directory, run the program ADDEXT99.EXE.
+This will add the following item into Lord2's ITEMS.DAT file.
+
+ LORD II ITEM EDITOR editing item (99 of 99)
+ (A) Name of the item : `$Extra Items
+ (B) Action string :
+ (C) Used as armour? : No
+ (D) Used as weapon? : No
+ (E) Can be sold? : Yes
+ (F) Ref, If "Usable"? : ITEM99
+ (G) Use string : See what else you own
+ (H) Gold value : 2
+ (I) Used only once? : No
+ (J) Breaks 1 out of : Never breaks.
+ (K) Description : A sackfull of various junk
+ (L) Weapon Strength : 0
+ (M) Armour Defence : 0
+ (N) Quest item? : No
+ (*) Show all items.
+ ([) Go back an account
+ (]) Go forward an account
+ (Q) Quit
+
+ And then in ITEMS.REF, a single header is added:
+
+@#item99
+@run menu in item99.ref
+@closescript
+
+ Some explanation might be in order here. What we are doing is adding a
+single item to the regular item list called "Extra Items". What this item
+does is run a routine in Item99.ref that serves as the engine for listing
+and using externally defined items. I use the analogy of Item 99 being a
+"sack" for any external items a player possesses. In fact, whenever the
+routine is called for a player to be given an external item, it checks to
+see if they in fact do possess Item 99 (by checking the value of variable
+`I99) and gives them Item 99 if they don't already have it. Selling,
+dropping, or giving away their Item 99 will make their external items
+inaccessible, and their previous inventory will be zeroed out the next time
+their inventory is checked.
+----------------------------------------------------------------------------
+III. INSTALLING AN EXTERNAL ITEM FOR USE IN LORD2
+
+ Ok, so now that Lord2 has been made ready, the IGM and it's associated
+external items can be installed. SORRY.BAT contains the commands to
+automatically add the SORRY.IGM, and then runs the routines that will install
+the external items it uses to the EXTITEMS .DAT and .REF item files. To use,
+make sure the files SORRY.BAT, SORRY.DAT, SORRY.IGM, SORRY.REF, and GUM.IDF
+are in your Lord2 directory. Then from the DOS prompt run SORRY.BAT
+ First, the batch file will call the IGM.EXE file to install the new
+screen for SORRY.IGM. Then two external items will be added by getting the
+items' data from SORRY.REF, and then running INSTALL.REF.
+ First, INSTALL will confirm that the item has not been previously
+installed. It will search for a label equal to the item name in EXTITEMS.REF,
+and if it DOESN'T find it in already, you will get an ERROR message saying
+that the item has not been found! _THIS_IS_NORMAL!! Just hit a key to clear
+the <more> prompt and the routine will continue.
+ Next, it will confirm that EXTITEMS.REF doesn't already have the maximum
+of 30 items already installed. Provided that all is well, INSTALL will then
+begin processing the files EXTITEMS.REF and EXTITEMS.DAT to add the new item
+data in. This may take a few minutes; the routine will give you a "countdown"
+of how many lines it has left to process. When it's done, the item is
+installed! Then once the install routine has finished installing the first
+item, SORRY.BAT will repeat the procedure for the second item.
+ For a fuller examination of how to write a batch file to install an item,
+see section V, Writing an IGM that uses external items. For further
+information on how INSTALL.REF works, see the DEVELOPR.DOC file.
+-----------------------------------------------------------------------------
+
+IV. USING EXTERNALLY DEFINED ITEMS
+
+ Once an external item has been successfully installed, that item will
+then be available for any .REF that has been written to use it. If you have
+added the files of the externally defined items package to your Lord2
+directory, run ADDEXT99.EXE to configure Lord2's items files, and then run
+the batch file SORRY.BAT, then you are ready to see external items in action!
+ SORRY.IGM is pretty sorry, but it's just meant to be an example of
+external items, not really a permanent addition to the game. Just north of
+Greentree, you will see an enclosure and two tables, one outside and one
+inside. If you try to enter the enclosure at first, it won't let you: it will
+tell you you need a Doorpass. If you go to the table outside, sure enough
+you'll find a Doorpass. You now own an external item! Go into your item menu
+and you should now see, among your possessions, Extra Items. If you choose
+to use this item, it prompts you if you want to "See what else you own."
+If you do, you will then see at the bottom of your screen a "scrollbox"
+similar to the figure below:
+ EXTRA ITEMS
+ ��������������������������������������������������ͻ
+ � Doorpass �
+ ��������������������������������������������������ͼ
+ Use U and D to scroll, Enter to choose, Q to exit
+ Your Command?
+
+ This "scrollbox" is how you see and choose to use what external items you
+own. If you had more than one item (you don't yet) hitting U for Up or D for
+Down would bring other items into view. (Exactly how long this takes depends
+on the machine you're using. I tried indexing ITEM99.REF, but that didn't
+help much) If you hit Enter (or E), it will do whatever that item is supposed
+to do. In this case, Doorpass isn't supposed to do anything- it's simply a
+token to determine whether you can enter the enclosure. So you'll get a
+message that you don't know what to do with it. Hitting Q returns you to
+your regular item menu, where you can reenter the game. If you try the
+enclosure now, you can get in.
+ On the table inside the enclosure you will find a Stick of gum (it will
+give you an unlimited number of sticks of gum). Going back into your item
+menu, and pulling up the External Items scrollbox, you will now see Doorpass
+and, if you scroll Up or Down, Stick of gum. Unlike Doorpass, Stick of gum
+is intended to be an useable item (and in this case has a quantity value).
+If you select Enter to use that item, you will enjoy the cool spearmint taste
+of Stick of gum, and the number of that item that you own will go down by
+one. If you chew the last one, that item is removed from your inventory.
+Upon leaving the enclosure, you get a message that you have surrendered your
+Doorpass. If you have chewed your last Stick of gum, a check of your
+external items scrollbox will reveal the message
+<all you have is an empty sack!>. You can go back to the first table to get
+a Doorpass again if you wish, and test the process as many times as you like.
+ The next section will cover in more detail exactly how all this works so
+you can write your own .IGMs to use external items.
+----------------------------------------------------------------------------
+
+V. WRITING AN IGM THAT USES EXTERNAL ITEMS.
+.............................................................................
+ 1. Defining an external item
+
+ To create your own external item, you need to write a routine in a .REF
+file that defines the following properties of the item: It's name, the
+location of the routine of what that item does, and whether it is an item
+that a player can have more than one of. Most typically the routine will be
+included in the .REF file used for the IGM.
+The following examples are taken from SORRY.REF:
+
+@#stickgum
+@do `s06 is Stick`|of`|gum
+@do `s07 is gum
+@do `s08 is sorry.ref
+@do `s09 is gum.idf
+@run install in install.ref
+@closescript
+
+@#doorpass
+@do `s06 is Doorpass
+@do `s07 is nouse
+@do `s08 is item99.ref
+@do `s09 is NIL
+@run install in install.ref
+@closescript
+
+ To create a routine defining an external item, you must use the
+following format: (You MUST use string variables s06-s09, as given)
+
+@#routinename
+
+@do `s06 is Item`|name ; The name IS case sensitive, so make sure that you
+;have it spelled the way you want. The name can have spaces, but the spaces
+;MUST be padded here with `| (Yes, `|. See section on INSTALL in
+;DEVELOPR.DOC for the reason why.) Oh, and please limit the item name to 50
+;characters or less.
+
+@do `s07 is header
+@do `s08 is file.ref
+; These give the header name and file name of the routine where the item's
+;action is located. If the item is only going to be a token (doesn't DO
+;anything by itself), you should put nouse and item99.ref. The item's action
+;routine will typically be a header within the .REF file for the IGM you have
+;written, and it will basicly do anything you can detail in a .REF file.
+;Lord2's ITEMS.REF contains many examples of routines for an item's action.
+
+@do `s09 is ITEM.IDF ; Ordinarily, a player will simply either own an
+;item or not. If the item needs to have a quantity value, this value must
+;be referenced from an .IDF file for that item. If the player will never
+;need more than one of an item, s09 should be set to NIL.
+
+@run install in install.ref ; this is where the action really begins. After
+;string variables s06 through s09 are set, running this routine starts the
+;actual process of installation, using the data written to the string
+;variables.
+
+@closescript ; end of item definition.
+
+............................................................................
+ 2. Checking for possession of an external item
+
+ Next is how to check to see if a player has a particular external item.
+This is because checking to see if they own the item is a necessary first
+step to either giving them the item or taking it from them. It can also be
+used as a "token" to determine whether or not a particular action can take
+place. This is used in the example SORRY.REF to determine if the player can
+enter the enclosure. In SORRY.REF we find:
+
+@#hotspot1
+@do `p29 is &playernum
+@routine Doorpass in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 is 1 then do
+ @begin
+ @do saybar
+Your Doorpass grants you admission!
+ @do x is 25
+ @do y is 9
+ @update
+ @end
+@if `p20 is 0 then do
+ @begin
+ @do moveback
+ @do saybar
+You must have a Doorpass to pass through
+ @end
+@closescript
+
+ The steps of the routine to check for possession of an item are:
+
+@do `p29 is &playernum
+;This innocent looking line of code is vital, it must
+;ALWAYS be done immediately before doing the routine to get the item info.
+;This is because if an item has an .IDF, it uses the value of &playernum to
+;determine how many of that item the current player has. And for technical
+;reasons it has to assign that value to a longint variable instead of using
+;&playernum directly. So `p29 must equal &playernum before the following
+;line:
+
+@routine Doorpass in extitems.ref
+;This runs the routine for the item that you want to check for, in this case
+;the Doorpass. It runs the label by that name in EXTITEMS.REF, and that
+;routine sets variables that allow the next command to know which item
+;is being referenced:
+
+@routine bitcheck in item99.ref
+;To make a long story short, this determines if the player owns that
+;external item or not, returning `p20 = 0 for no and `p20 = 1 for yes.
+;DEVELOPR.DOC has more information on the mechanics of the procedure.
+
+ The rest of @#hotspot1 handles what to do depending on whether `p20 is
+0 or 1, either letting them through or telling them they have to have a
+Doorpass.
+
+............................................................................
+ 3. Giving a player an external item
+
+ Once an external item is available, some way must exist for a player to
+acquire one. This would be done from a "hotspot" on a screen created by the
+IGM writer. The routine called by the hotspot could simply give them the item
+directly, or could involve a menu, an encounter with a game character, or
+some other indirect way. One way or another, it would involve running a
+routine similar to the one given below from SORRY.REF:
+
+@#hotspot2
+@do moveback
+@do `p29 is &playernum
+@routine Doorpass in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 is 0 then do
+ @begin
+ @routine giveitem in item99.ref
+ @do saybar
+You just found a Doorpass!
+ @do goto finished
+ @end
+@do saybar
+You see a spot where something used to be.
+@label finished
+@closescript
+
+ The routine works as follows. First, it goes through the steps to check
+to see if they already have the item. Then:
+
+@if `p20 is 0 then do
+ @begin
+ @routine giveitem in item99.ref
+ @do saybar
+You just found an Doorpass!
+ @do goto finished
+ @end
+;If they don't already have the item, the routine @#giveitem in ITEM99.REF is
+;run. This gives them an "empty sack" if they don't already have any external
+;items, and then gives them the external item.
+ And no, you can't just run the routine @#giveitem to give them multiple
+copies of an item; @#giveitem can only set a flag from no to yes, and
+deliberately bypassing the value of `p20 will only foul up the player's
+external item inventory. The routine for giving a player a Stick of gum shows
+the proper way to do external items with a quantity:
+
+@#hotspot3
+@do moveback
+@do `p29 is &playernum
+@routine Stick`xof`xgum in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 is 0 then do
+ @begin
+ @datasave gum.idf &playernum 0
+ @routine giveitem in item99.ref
+ @end
+@dataload gum.idf &playernum `p30
+@do `p30 + 1
+@datasave gum.idf &playernum `p30
+@do saybar
+You find a stick of gum!
+@closescript
+
+ Two extra things to cover: First, for the line:
+
+@routine Stick`xof`xgum in extitems.ref
+
+ If the item name has spaces, they should be padded here with `x, the
+standard way Lord2 uses to pad spaces in a string variable. And then if they
+don't have any of a multiple item, there should be a line like:
+
+@datasave gum.idf &playernum 0
+
+ This ensures that player's record in the item's .IDF file is zeroed out
+(otherwise it's possible that by losing their Item 99, their inventory was
+erased, but the item.idf file would not have been updated.)
+
+Anyway, in this example, the check to see if they own the item Stick of gum
+is done, and if they don't already have it they are given it. Then:
+
+@dataload gum.idf &playernum `p30
+@do `p30 + 1
+@datasave gum.idf &playernum `p30
+;Any external item that a player will have more than one of must have an
+;associated .IDF file containing the number of that item that each player
+;owns. In this case, the number they previously owned is loaded, incremented
+;by one, then saved back to the file GUM.IDF.
+
+ For purposes of demonstration, the examples used in SORRY.REF allow the
+player to acquire the items an unlimited number of times, giving them another
+Doorpass if they've lost their first one, or incrementing the number of
+Stick of gum each time they visit that table. Usually however, you will want
+to write your .REF so that once they've visited a spot, they cannot get the
+item again. For external items without a quantity, that can be done simply by
+testing to see if they already have one. For items with a quantity, a more
+elaborate procedure is necessary. In Lord2, whenever someone gets an item
+such as a potion from a table, a bit is set in a byte variable, forever
+flagging the fact that they've been there. To do something similar with
+external items, the routine for that hotspot will have to include it's own
+.IDF file, with the routine checking the value stored there to see if the
+player has ever been there before. If you have multiple hotspots in your IGM
+that will need that feature and don't want to have to include multiple .IDF
+files, you might want to read the file DEVELOPR.DOC, for the explanation on
+ITEM99.REF, and how the label loop and the routine @#bitcheck work there. It
+explains how you can use the value of a single long integer as 30 binary
+bits, each of which can be used as a yes or no flag (which is exactly how
+players' external item inventories are recorded!)
+
+.............................................................................
+ 4. Taking away an external item.
+
+ Finally, you might want to delete an external item from a player's
+inventory, if it is an item that's intended to be expended upon use. For the
+Doorpass in SORRY.REF, that is done by:
+
+@#hotspot4
+@do moveback
+@do `p29 is &playernum
+@routine Doorpass in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 is 1 then do
+ @begin
+ @routine takeitem in item99.ref
+ @do saybar
+You surrender your Doorpass upon exiting
+ @end
+@do x is 28
+@do y is 9
+@update
+@end
+@closescript
+
+ Similar to the routine for giving an external item, only here the routine
+called after the bitcheck is @#takeitem in ITEM99.REF.
+ For items with a quantity, the routine for using those items will
+usually include reducing the number of that item by one, and should run
+the @#takeitem routine if the number reaches zero. This is illustrated by the
+routine @#gum in SORRY.REF:
+
+@#gum
+@dataload gum.idf &playernum `p30
+@if `p30 less 1 then do
+ @begin
+ @run errorC in item99.ref
+ @end
+@do `p30 - 1
+@datasave gum.idf &playernum `p30
+@clearblock 13 23
+@do move 1 14
+@show
+ You chew a stick of gum......
+
+ -Mmm! It's delicious!
+
+ (you now have `p30 of 'em)
+`k
+@if `p30 is 0 then do
+ @begin
+ @routine takeitem in item99.ref
+ @run menu in item99.ref
+ @end
+@run getname in item99.ref
+@closescript
+
+.............................................................................
+ 5. Writing a batch file to install external items.
+
+ For the ease of the end user, a batch file should be used to run the
+routines to install the external items that an IGM will use. This will also
+ensure that the items necessary for the IGM to work right are automatically
+added when the IGM is installed to Lord2. SORRY.BAT is given here as an
+example:
+
+@echo off
+rem automatically adds SORRY.IGM and associated external items
+if not exist igm.exe goto cant
+if not exist sorry.igm goto cant
+if not exist sorry.dat goto cant
+if not exist extitems.dat goto cant
+if not exist install.ref goto cant
+if not exist sorry.ref goto cant
+igm sorry.igm
+echo igm installed, ready to install external items
+pause
+echo adding external item doorpass
+call lord2 doorpass+sorry.ref
+echo ready to install next external item
+pause
+echo adding external item stickgum
+call lord2 stickgum+sorry.ref
+echo all finished!
+goto end
+:cant
+echo one or more files needed to install igm are not in directory
+:end
+
+First, the batch file confirms that all necessary files are there. Then
+IGM.EXE is run to add the screen data. Then for each item to be installed,
+we have a line similar to :
+call lord2 doorpass+sorry.ref
+
+This calls the batch file lord2.bat to run Lord2 with the parameters of the
+routine where the item is defined (see chapter V, section 1, Defining an
+External Item).
+
+-----------------------------------------------------------------------------
+
+VI. DELETING AN EXTERNAL ITEM FROM THE GAME
+
+ Finally, you might decide to remove an .IGM from your game, and any
+external items associated with it. To remove an external item, you would type
+at your Lord2 directory's DOS prompt:
+
+lord2 deinstal+deinstal.ref
+
+ This will then prompt you for the name of the item you wish to remove
+from the list of items in EXTITEMS.DAT and EXTITEMS.REF. Type the name of the
+item normally, with spaces if there are any, but name will be case sensitive.
+ Provided you have typed a valid name, it will then begin the deinstall
+procedure. Like the install, file processing might take a minute or two.
+When the files are processed, it will then ensure that the deleted item is
+removed from the players' external item inventories.
+
+-----------------------------------------------------------------------------
+
+VII. ADDENDUM: FURTHER INFORMATION FOR BETA TESTERS.
+............................................................................
+ 1. Drawbacks and limitations of Externally Defined Items.
+
+ Externally defined items do have some limitations. In a sense, they
+aren't "real" items at all- just a very fancy way of running routines based
+on flags set by the value stored for each player in EXTITEMS.IDF. External
+items cannot be recognized by the buymanager or sellmanager routines used by
+Lord2's stores and pawnshops (although a suitably written .REF might be able
+to create special stores for them). They have no intrinsic properties, such
+as a gold value. The Give Item option in the Hail Player menu won't work
+with them, and if you give someone your Item 99, they will NOT get the items
+you had.
+ And most sadly of all, I don't see any way to use external items as
+either armor or weapons. As far as I know, the & variables used for the
+player's armor and weapon can't be written to, only read. If anyone out there
+have any ideas on how to get around these limitations, I would be happy to
+hear them.
+............................................................................
+ 2. Author's postscript:
+
+ If you've read this far, I presume it's because you're interested in the
+External Items concept and would like to give it a try. This package is the
+result of a large amount of time, work, dispair, hope, and inspiration. I am
+NOT a skilled programmer, and I can only hope no insurmountable bugs turn up.
+I feel this package wasn't written, so much as it evolved. As it is, the
+routines as currently written function, but may not meet more experienced
+programmer's standards of neatness or structure. Or you may have suggestions
+about minor features such as the appearence of the external item menu.
+Provided anyone out there thinks this package is a usefull enough concept to
+be worth trying to improve, I would be happy for any advice you might have
+to offer.
+ The often aforementioned file DEVELOPR.DOC goes into more detail on the
+mechanics of exactly how all this package works, and the reasoning behind
+why it is written as it is.
diff --git a/xtrn/lord2/cnw/docs/freddy.doc b/xtrn/lord2/cnw/docs/freddy.doc
new file mode 100644
index 0000000000000000000000000000000000000000..e59d7c1f4a112671e0ef48ea1c8ccd377074fa9a
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/freddy.doc
@@ -0,0 +1,52 @@
+FAST FREDDY'S GEM EMPORIUM v1.0
+by Robby Dittmann
+
+Welcome to the latest version of Mamoosoft Programming's FAST FREDDY'S
+GEM EMPORIUM!
+
+TO INSTALL:
+
+1) Make sure the files are in your LORD II directory.
+
+2) Type the following at a command prompt:
+
+ IGM FREDDY.IGM
+
+3) Crank up LORD II and go make a deal!
+
+TO UNINSTALL:
+
+1) Type IGM FREDDY.IGM again.
+
+
+HISTORY:
+
+v1.0
+Original release
+
+SPECIAL THANKS TO:
+
+Mariam Dittmann for alpha, beta, and gamma testing! And for her help with
+the ANSI artwork.
+
+REGISTRATION:
+
+Fast Freddy's Gem Emporium is absolutely FREE. Just drop us a line to
+let us know you're using it.
+
+Find all the latest from Mamoosoft at our web site:
+
+http://home.sprynet.com/sprynet/robbyd
+
+Please let us know if you have any problems or questions. And let us know
+what you think!
+
+
+Robby Dittmann
+Mamoosoft Programming
+1:133/8003
+robbyd@sprynet.com
+
+DISCLAIMER:
+This product is offered "as is". The authors take no responsibility for any
+damage or problems you may incur.
diff --git a/xtrn/lord2/cnw/docs/gargoyle.doc b/xtrn/lord2/cnw/docs/gargoyle.doc
new file mode 100644
index 0000000000000000000000000000000000000000..db5c686524a5dc576123c234441269e9f22a41cd
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/gargoyle.doc
@@ -0,0 +1,17 @@
+OK sysops! there will be one thing that you will need to add to
+the items selection to make this IGM complete.
+item #75 The Night Sword
+A)name: Night Sword
+B)action phrase: (Whatever you want)
+C)Armor: NO!
+D)Weapon: YES!
+E)sellable: NO!
+F)NA
+G)Whatever you want here as well
+H)Gold value: 100,000
+I)Use Once: NO!
+J)Never Breaks!
+K)A dark bladed sword
+L)Attack strength: 75
+M)Defence strength: 0
+N)Quest item: NO!
diff --git a/xtrn/lord2/cnw/docs/grsysop.rln b/xtrn/lord2/cnw/docs/grsysop.rln
new file mode 100644
index 0000000000000000000000000000000000000000..84eb2e6dc9e528cd2e352f169ce0b79d1e569d1c
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/grsysop.rln
@@ -0,0 +1,138 @@
+ Sysop Release Notes
+
+ + Version 1.12 - 04/01/98 +
+
+ NOTICE: My home page is up now. To access my home page for the latest
+ updates visit http://home.att.net/~aussie.mfreeman/home.htm
+
+ There were no bugs reported to me over the Internet or in email on our
+ support bbs since the last release back in January. Wow, I must be pretty
+ good at this. No problems??? I discovered the bug about a month ago while
+ testing v1.11 on our support bbs. I'v been just sitting here waiting for
+ someone to report it. Since noone has reported it I haven't bothered to
+ release a new version since I thought well if noone has reported it, it
+ couldn't be causing to many headaches. Maybe you have noticed this bug but
+ you didn't know it was actually a bug caused by Global Registries.
+
+1. If you hold down your <-- --> key on your keyboard while moving your
+ character you'll notice on some PC's that when the buffer overflows Lord II
+ has this REALLY ANNOYING habbit of kicking you out of the screen your in to
+ display the routine that display the (Y)esterdays News (T)odays news again
+ (C)ontinue prompt. The bug appears when you try to go back into the game.
+ If you try to go back into the game, nothing happens and your left hanging.
+ Your only choice is to (Q)uit the game. Did anyone notice this?????
+
+ Because of the extreme complexity of the code written for GR, it seems it
+ was at fault. I'v removed the code I added to LOGSTUFF.REF in v1.11 and
+ placed it in another program. As we say its now more BUFFER happy and you
+ can go back into the game without a problem.
+
+2. Changed all date output to include century as well as years in displays.
+ The new format is mm/dd/ccyy for eg 03/01/2000 would denote March 01, 2000.
+3. Removed the ansi screen that displayed the name of the bbs GR was registered
+ to. When entering the module, you go straight in now with a display.
+4. Added 30day demo feature for TEST drive Sysops.
+5. Added <REGISTERED> <UN-REGISTERED> display on main menu display.
+
+ + Version 1.11 - 01/20/98 +
+
+1. This is a maintenance release. There were no bugs to fix, and if there were
+ any, those were not reported to me. I did rewrite/add/change a few routines
+ for optimization purposes.
+2. Ack! The left bracket of the <MORE> prompt was showing light green. Fixed
+ that to show the proper color, light green for once and for all. I told you
+ small things drive me nuts!!!!!
+3. Fixed other minor things here and there not worth mentioning dealing with
+ prompts lining up under each other for messages etc.
+
+ + Version 1.10 - 01/08/98 +
+
+1. Fixed 204 Range Check Error bug that occured when a player was trying to
+ purchase an additional life and when his/her money in the bank equalled the
+ amount it cost to buy an additional life.
+2. Fixed a nasty bug that occured when a user, who is only allowed one life
+ per day, and when he/she was killed in the game, and then went back into
+ the game, were able to enter without a problem. This bug was a result of a
+ modification I made to the part of the code in LOGSTUFF.REF that calls my
+ routine to display a warning when users enters the game, if they haven't
+ entered their registry. See my FIX in the update notes that adds a few extra
+ lines to LOGSTUFF.REF that fixes this problem.
+3. Fixed the <MORE> prompt not resetting after exiting from Global Registries.
+ Our <MORE> prompt in Global Registries is Slam a key...It wasn't being reset
+ properly to <MORE> after exiting Global Registries. It is now!
+4. Re-coded the routine that displays the list of users who have entered their
+ registry entries. Code is optimized for faster display.
+5. Added my Web Site address to the [I]nformation Display option. In future
+ this site will be available for updates and support. Currently under
+ Construction! Please check my Web Site often.
+6. Removed REGCNTRL.REC. One less REC file to read and no longer needed. Code
+ has been placed elsewhere.
+7. Fixed other minor things here and there not worth mentioning.
+
+ + Version 1.09 - 01/01/98 +
+
+1. Global Registries v1.09 goes public. Official release and out of Beta!
+
+ + Version 1.08�eta - 12/19/97 +
+
+1. No bugs to fix but there were internal code modifications made to the way
+ Global Registries operates.
+
+ + Version 1.07�eta - 12/15/97 +
+
+1. Fixed some cosmetic changes, added some color to error messages and
+ relocated error messages to line up correctly when displayed. I'm a perfect-
+ ist when it comes to things lining up correctly or when something looks out
+ of place it drives me nuts.
+
+ + Version 1.06�eta - 12/02/97 +
+
+1. No bugs to fix but there were internal code modifications made to the way
+ Global Registries operates.
+
+ + Version 1.05�eta - 11/25/97 +
+
+1. Fixed gold (in hand) going negative when purchasing a character description.
+ If you didn't have enough (in hand), the evil clerk was still taking money
+ you didn't have forcing your gold (in hand) to show negative.
+2. Fixed character discription field in the lookup another users entry display
+ which would show <NONE> even when the user had actually entered his/her
+ character description.
+
+ + Version 1.04�eta - 11/18/97 +
+
+1. Up till now option [L] .. Purchase An Additional Life, would return the
+ message UNDER CONSTRUCTION. Just got around to actually coding this today.
+ It was easier to code then at first I thought. Works like a charm. If you
+ dont see option [L] on your main menu, it means your Sysop has configured
+ Lord II for unlimited lives per day and unlimited turns per day. In this
+ case option [L] will not be available to players and it will not show up on
+ any menus. If option [L] does show on your menu then what this option allows
+ you to do is buy an additional life for $$, just in case you get killed and
+ want to go back into the game on the same day. The cost of purchasing an
+ additional life is configurable online by your Sysop.
+
+ + Version 1.03�eta - 11/15/97
+
+1. Ack! I guess this programming language was not designed to display info
+ about other people so my his&hers variable is always displaying HIS in
+ error messages. For eg. When a user types L to lookup the information on
+ another user, and that user has not entered his or her entry yet, my error
+ messages always say "SORRY THAT USER HAS NOT ENTERED [HIS] REGISTRY ENTRY
+ YET! The s&his variable returns true for yourself by not for others!!!!!!
+ Am I trying to do something I should'nt be doing? Hmm, ok Seth! I guess
+ your forcing me to program around this problem! Ok, got it! It's fixed! It
+ now returns HIS for GUYS and HERS for DOLLS. Thanks to Lisa of The Coffee
+ Break BBS and our Beta test site for pointing this out to me. Don't tell
+ Lisa but I already spotted this problem earlier, I just wasn't sure how I
+ was going to address the problem. Lisa, your the best bug hunta!
+
+ + Version 1.02�eta - 11/10/97 +
+
+1. Fixed bug where users sex was always begin displayed as MALE when user
+ typed L to lookup the Registry entry of another player.
+
+ + Version 1.01�eta - 10/28/97 +
+
+1. Global Registries goes into Beta on our 26-lines bbs.
+
diff --git a/xtrn/lord2/cnw/docs/gypsi.txt b/xtrn/lord2/cnw/docs/gypsi.txt
new file mode 100644
index 0000000000000000000000000000000000000000..e6d66afa99f1f771b297d8c51f50af8cc2164add
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/gypsi.txt
@@ -0,0 +1,4 @@
+The Gypsy Encampment for LORD2 Ver 7+
+
+Please see the Gypsy.Igm for all Information
+about this IGM
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/docs/hawood.txt b/xtrn/lord2/cnw/docs/hawood.txt
new file mode 100644
index 0000000000000000000000000000000000000000..ea477bfc7f3bbcbefe2ab61ea36471b67bab5c01
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/hawood.txt
@@ -0,0 +1,239 @@
+Hundred Acre Woods IGM
+for Lord2 v1.0 or higher
+
+Below is all the install info. :)
+
+This Igm is free to distribute, just let me know what you think!
+
+Author: Jennifer Doyle.
+pindari@connexus.net.au
+
+------------------------------------------------------------------------
+ I added maps to blocks 1345, 1346, 1347 and altered block 1355.
+ All I did was add a blue tree to the west of Greentree. If this is a
+ problem, go ahead and move it to wherever you like, but be sure to change
+ the exit from the Woods to go to the new tree location.
+
+ Whilst making this IGM I edited the items.ref file and added to the items.dat.
+ file through the item editor. Just so they won't overwrite your files, I've
+ named them hitems.ref, and hitems.dat. Below are listed all the changes.
+
+
+ ITEMS.REF
+ What I did was add six items to the items.ref file. It's very simple to
+ add them all. Just copy the following into the file somewhere, except
+ of course in another function. (At the beginning is probably the easiest)
+ Just highlight the following lines and cut and paste them across:
+----------------------------------------------------------------------
+
+@#item88
+;Pot of Honey
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You swallow the sticky mess.
+
+`k `%MAX HITPOINTS INCREASED BY TEN.
+
+`k
+@do `p03 + 10
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+
+@#item89
+;Jar of Honey
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You swallow the sticky mess.
+
+`k `%MAX HITPOINTS INCREASED BY FIVE.
+
+`k
+@do `p03 + 5
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+
+@#item90
+;black potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You slurp it down. It tastes ok at first but then... `bYUCK!`2
+
+ You spew all over the place!
+
+ `4HITPOINTS GO DOWN BY ONE.
+@if `p02 more 0 then `p02 - 1
+@clearblock 5 11
+@routine drawstats in gametxt.ref
+@do move 1 19
+@key
+
+@#item91
+;purple potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You slurp it down. It tastes like draino...!`2
+
+
+ `4HITPOINTS GO DOWN BY FIVE.
+@if `p02 more 0 then `p02 - 5
+@clearblock 5 11
+@routine drawstats in gametxt.ref
+@do move 1 19
+@key
+
+@#item92
+;Yellow Potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You swallow the bubbling concoction.
+
+`k `%MAX HITPOINTS INCREASED BY ONE.
+
+`k
+@do `p03 + 1
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+
+@#item93
+;Pink potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You drink the pink liquid.
+
+@if `p02 less `p03 then do
+ @begin
+ @show
+ `%You feel a lot better!
+
+ @do `p02 + 200
+ @if `p02 more `p03 then `p02 is `p03
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+
+
+----------------------------------------------------------------------
+
+ ITEMS.DAT (You change info in this file through the l2cfg.exe files item editor!!)
+
+ This is where the info is for the six items I added. You simply add this
+ stuff in by going into the L2CFG.exe file and accessing the item editor. I will
+ list all the stats for these items just as they are listed in the item editor.
+ It is EXTREMELY necessary that you keep the item numbers the same.
+ (Unfortunately it has to be done manually and can't be copied across :( !!)
+
+
+ LORD II ITEM EDITOR editing item (88 of 99)
+ (A) Name of the item : Pot of Honey
+ (B) Action String :
+ (C) Used as armour? : No
+ (D) Used as weapon? : No
+ (E) Can be sold? : No
+ (F) Ref, if "Usable"? : ITEM88
+ (G) Use string : Swallow it.
+ (H) Gold Value : 50,000
+ (I) Used only once? : Yes
+ (J) Breaks 1 out of : Never breaks
+ (K) Description : Looks Stickier!!
+ (L) Weapon strength : 0
+ (M) Armour defence : 0
+ (N) Quest item? : No
+
+
+ LORD II ITEM EDITOR editing item (89 of 99)
+ (A) Name of the item : Jar of Honey
+ (B) Action String :
+ (C) Used as armour? : No
+ (D) Used as weapon? : No
+ (E) Can be sold? : No
+ (F) Ref, if "Usable"? : ITEM89
+ (G) Use string : Gulp it down.
+ (H) Gold Value : 30,000
+ (I) Used only once? : Yes
+ (J) Breaks 1 out of : Never breaks
+ (K) Description : Looks Sticky!!
+ (L) Weapon strength : 0
+ (M) Armour defence : 0
+ (N) Quest item? : No
+
+
+ LORD II ITEM EDITOR editing item (90 of 99)
+ (A) Name of the item : Black Potion
+ (B) Action String :
+ (C) Used as armour? : No
+ (D) Used as weapon? : No
+ (E) Can be sold? : No
+ (F) Ref, if "Usable"? : ITEM90
+ (G) Use string : Go on try it!!
+ (H) Gold Value : 100
+ (I) Used only once? : Yes
+ (J) Breaks 1 out of : Never breaks
+ (K) Description : It looks sorta alright!!???
+ (L) Weapon strength : 0
+ (M) Armour defence : 0
+ (N) Quest item? : No
+
+
+ LORD II ITEM EDITOR editing item (91 of 99)
+ (A) Name of the item : Purple Potion
+ (B) Action String :
+ (C) Used as armour? : No
+ (D) Used as weapon? : No
+ (E) Can be sold? : No
+ (F) Ref, if "Usable"? : ITEM91
+ (G) Use string : Go on try it!!
+ (H) Gold Value : 50
+ (I) Used only once? : Yes
+ (J) Breaks 1 out of : Never breaks
+ (K) Description : It's a pretty colour!!
+ (L) Weapon strength : 0
+ (M) Armour defence : 0
+ (N) Quest item? : No
+
+
+ LORD II ITEM EDITOR editing item (92 of 99)
+ (A) Name of the item : Yellow Potion
+ (B) Action String :
+ (C) Used as armour? : No
+ (D) Used as weapon? : No
+ (E) Can be sold? : No
+ (F) Ref, if "Usable"? : ITEM92
+ (G) Use string : Go on try it!!
+ (H) Gold Value : 150
+ (I) Used only once? : Yes
+ (J) Breaks 1 out of : Never breaks
+ (K) Description : You don't know till you try it!
+ (L) Weapon strength : 0
+ (M) Armour defence : 0
+ (N) Quest item? : No
+
+
+ LORD II ITEM EDITOR editing item (93 of 99)
+ (A) Name of the item : Pink Potion
+ (B) Action String :
+ (C) Used as armour? : No
+ (D) Used as weapon? : No
+ (E) Can be sold? : No
+ (F) Ref, if "Usable"? : ITEM93
+ (G) Use string : Go on try it!!
+ (H) Gold Value : 200
+ (I) Used only once? : Yes
+ (J) Breaks 1 out of : Never breaks
+ (K) Description : It's OK if you like pink!!
+ (L) Weapon strength : 0
+ (M) Armour defence : 0
+ (N) Quest item? : No
+
+
+ Then to install, unzip into your LORD2 dir and type:
+
+ IGM HAWOOD.IGM
+
+ To uninstall, do the same thing again.
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/docs/history.doc b/xtrn/lord2/cnw/docs/history.doc
new file mode 100644
index 0000000000000000000000000000000000000000..166af0c4681bb0da8db0e6d98312697d565a9b62
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/history.doc
@@ -0,0 +1,9 @@
+ Descent of the Dragon A LORD ][ IGM History file
+
+v1.50 Added routine so that the player cannot enter the Dragon's Lair more
+ than once a day. Also added provision that dragon encounter will not
+ happen more than once a day. Corrected a small spelling error in
+ install.com routine that writes GENRAN.REF without Soda Machine
+ routines. Indexed DESCENT.REF for speed in execution.
+
+v1.00 Descent of the Dragon released.
diff --git a/xtrn/lord2/cnw/docs/ibbs.doc b/xtrn/lord2/cnw/docs/ibbs.doc
new file mode 100644
index 0000000000000000000000000000000000000000..b379ce6f9169b24577a0c14e388b8c5841e187e1
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/ibbs.doc
@@ -0,0 +1,35 @@
+
+ --- Notice to IGM authors for iBBS compatibility ---
+
+ Directories to be added in future versions for iBBS compatibility:
+ /data/ = for all *.IDF and *.DAT files which are used during the game.
+ /ibbs-out/ = files to be processed and sent to another node.
+ /ibbs-in/ = files received from another node.
+
+ Have ALL your data files to store any info about the player or game
+ settings stored in the /data/ directory instead of the main lord2
+ directory. This will make it iBBS compatible and the same time, easier
+ to reset the game.
+
+ Any file in the /data/ directory which gets modified in the game, should
+ be copied into the /ibbs-out/ directory so they can be processed and
+ send to other nodes.
+
+ All IGMs already included in this version of CNW, I will make the
+ apropiate modifications to include iBBS support, if you wish your
+ IGM to be included in future versions, PLEASE make those new regulations
+ to make it iBBS compatible.
+
+ This version of CNW is NOT iBBS ready. The iBBS program is still under
+ developement.
+ If any other door authors wish to make iBBS programs, to handle the
+ processing and distribution, please use these standards laid out
+ here.
+
+
+
+ Joel Gathercole
+ -Complete New World
+ -BBS World Magazine
+ http://thor.prohosting.com/~greenie/
+ Green Machine OSP 514-736-0129
diff --git a/xtrn/lord2/cnw/docs/igm.bak b/xtrn/lord2/cnw/docs/igm.bak
new file mode 100644
index 0000000000000000000000000000000000000000..9ebb68fb1154793795535a987bc36a24b89dad4a
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/igm.bak
@@ -0,0 +1,145 @@
+
+ Help for making IGM's that install with IGM.EXE V1.00
+
+What is IGM.EXE?
+
+It is a utility that install uninstall IGM's into LORD2 - without it, it
+would be very hard because the Sysop would have to manually do it, or you
+would have to include the whole MAP.DAT file and ruin any other things
+the sysop had installed.
+
+Things it does for you:
+
+ * Provides a standard.
+ * installs an IGM by typing "igm igmname.igm".
+ * Can replace maps *AND* will automatically add the map if the destination
+ block is empty.
+ * Creates it's own uninstall data!
+ * Uninstalls by trying to install it twice. (typing the same thing again)
+ * When uninstalling an IGM, it restores whatever was there. (note, if the
+ map didn't exist before, it leaves the IGM's screen.. this is fine, even
+ though it will never be used)
+ * Updates the 3rdparty.dat file - this is just a text file used by the
+ LORD2 help screen which shows which IGM's are installed. If no IGM's
+ are installed, it shouldn't exist. (IGM will delete it if you uninstall
+ the last IGM)
+
+ A player can view IGM's installed in the game by hitting ?, then
+ choosing 'Current Game Settings'.
+
+ * When replacing/adding screens, you can specify if they 'show up on the
+ map or not'
+
+
+ ******* STEP BY STEP INSTRUCTIONS ON MAKING AN IGM **********
+
+ Ok, lets say you just made 'Bill's tavern' somewhere with the World editor
+ in LORD2, and made it warp to a new screen that has the inside, and this
+ has some hotspots that call stuff from bill.ref.
+
+ And now you want to share it with the rest of the world. Is it hard? No!
+
+ * Step 1
+
+ Download CRAZY100.ZIP, this is an example IGM I made to use as a template.
+
+ Edit CRAZY.IGM and rename it to BILL.IGM. This is your IGM control file.
+
+ This is where we tell IGM.EXE what screens to replace, the name of the IGM
+ and any additional information you want the sysop to know.
+
+ Look for the string
+
+ igmname: `0Crazy Man's House `2by `0Seth A. Robinson
+
+ and replace it with "igmname: Bill's Tavern by Joe Smoe" or whatever.
+
+ * Step 2
+
+ Go into the World editor. Write down the BLOCK #'s of the two screens
+ you use. Next, while on top of one of the screens, hit E to extract the
+ map. When it asks for a filename choose BILL.DAT. (it MUST be called
+ this to match BILL.IGM)
+
+ Do the same thing with the other screen - notice it says 'Saved as record 1'
+ and 'saved as record 2'. This is important!
+
+ Now you have created your BILL.DAT file, which will be used to replaced
+ the screen when the IGM is installed.
+
+ * Step 3
+
+ Now edit the place where you see
+
+ replacescreen: 1439 1 show
+
+ and change the 1439 to the BLOCK # to replace, and the 1 to the record
+ # of the map to replace it with. (it will read that from BILL.DAT)
+
+ If you leave the 'show' this means it WILL show up on the players map. If
+ you put 'noshow' this means it will NOT show up on the players map. (do
+ this for inside houses, hidden things, etc)
+
+ Make *SURE* you have a carriage return ABOVE and BELOW each replacescreen
+ command. Can't remember why that is important, or even if it is but..
+
+ Optionally, you can add an
+
+ installmessage:
+
+ Anything under this will be shown to the user when he installs the
+ IGM. Always put this at the END.
+
+ * Step 4
+
+ Ok! Time to test it out. Copy bill.igm, bill.dat and bill.ref into a
+ dir with a FRESH copy of LORD2 installed.
+
+ Type "IGM bill" or "IGM bill.igm" (it will add the .IGM)
+
+ It should say it installed ok.
+
+ Next check the World Editor - is the map there? Does it look right?
+
+ It should have made a bill.sav file.
+
+ Now type "igm bill" again - it should UNINSTALL. Go check - did it really
+ change the screens it replaced back to normal? (remember, if there was
+ no screen there originally, its ok that it is still the screen from your
+ IGM.. it only changes REPLACEMENTS back.)
+
+ If everything looked good, put bill.igm, bill.ref, bill.dat and a
+ file_id.diz into a dir and zip it! You've created your first IGM!!!
+
+ *** Suggestions ****
+
+ * Don't use any player or global vars.. save and load your own using the
+ @writefile and @readfile commands.
+ * Don't include any .REFs that overwrite .refs written by me
+ * Don't add new items and include the items.dat file
+
+ If you break any of those rules, be SURE to note it in text in
+ bill.igm - so the sysop knows. He can compare it to his other IGM's and
+ see if there is a conflict or not.
+
+ Note from Seth:
+
+ I wrote this real quick.. I realize that people may want to keep track of
+ 'have you been here yet today' etc vars and are wondering if this is
+ possible with @writefile and @readfile.
+
+ It is - (your IGM basically would run its own maint by comparing the
+ &time var) although it would be kinda slow... (you would have to have
+ a file made for each guy that went in, could add up)
+
+ I may add an easier way of data keeping for IGM's later, like a command
+ to keep track of this for you... But you can actually do a lot what
+ you have, for instance, check out CASTLE?.REF, how I have ownable places,
+ these do it completely with it's own little .txt file it makes to save
+ info..
+
+
+ Thanks, and if you have questions/problems, feel free to email me at
+ sethable@rtsoft.com. I'm slow sometimes, but I ALWAYS reply.
+
+ -Seth
diff --git a/xtrn/lord2/cnw/docs/igm.doc b/xtrn/lord2/cnw/docs/igm.doc
new file mode 100644
index 0000000000000000000000000000000000000000..cb3ee58bcd628ad4c2516e9c422b2835074c5acc
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/igm.doc
@@ -0,0 +1,139 @@
+
+ Help for making IGM's that install with IGM.EXE V1.00
+
+What is IGM.EXE?
+
+It is a utility that install uninstall IGM's into LORD2 - without it, it
+would be very hard because the Sysop would have to manually do it, or you
+would have to include the whole MAP.DAT file and ruin any other things
+the sysop had installed.
+
+Things it does for you:
+
+ * Provides a standard.
+ * installs an IGM by typing "igm igmname.igm".
+ * Can replace maps *AND* will automatically add the map if the destination
+ block is empty.
+ * Creates it's own uninstall data!
+ * Uninstalls by trying to install it twice. (typing the same thing again)
+ * When uninstalling an IGM, it restores whatever was there. (note, if the
+ map didn't exist before, it leaves the IGM's screen.. this is fine, even
+ though it will never be used)
+ * Updates the 3rdparty.dat file - this is just a text file used by the
+ LORD2 help screen which shows which IGM's are installed. If no IGM's
+ are installed, it shouldn't exist. (IGM will delete it if you uninstall
+ the last IGM)
+
+ A player can view IGM's installed in the game by hitting ?, then
+ choosing 'Current Game Settings'.
+
+ * When replacing/adding screens, you can specify if they 'show up on the
+ map or not'
+
+
+ ******* STEP BY STEP INSTRUCTIONS ON MAKING AN IGM **********
+
+ Ok, lets say you just made 'Bill's tavern' somewhere with the World editor
+ in LORD2, and made it warp to a new screen that has the inside, and this
+ has some hotspots that call stuff from bill.ref.
+
+ And now you want to share it with the rest of the world. Is it hard? No!
+
+ * Step 1
+
+ Download CRAZY100.ZIP, this is an example IGM I made to use as a template.
+
+ Edit CRAZY.IGM and rename it to BILL.IGM. This is your IGM control file.
+
+ This is where we tell IGM.EXE what screens to replace, the name of the IGM
+ and any additional information you want the sysop to know.
+
+ Look for the string
+
+ igmname: `0Crazy Man's House `2by `0Seth A. Robinson
+
+ and replace it with "igmname: Bill's Tavern by Joe Smoe" or whatever.
+
+ * Step 2
+
+ Go into the World editor. Write down the BLOCK #'s of the two screens
+ you use. Next, while on top of one of the screens, hit E to extract the
+ map. When it asks for a filename choose BILL.DAT. (it MUST be called
+ this to match BILL.IGM)
+
+ Do the same thing with the other screen - notice it says 'Saved as record 1'
+ and 'saved as record 2'. This is important!
+
+ Now you have created your BILL.DAT file, which will be used to replaced
+ the screen when the IGM is installed.
+
+ * Step 3
+
+ Now edit the place where you see
+
+ replacescreen: 1439 1 show
+
+ and change the 1439 to the BLOCK # to replace, and the 1 to the record
+ # of the map to replace it with. (it will read that from BILL.DAT)
+
+ If you leave the 'show' this means it WILL show up on the players map. If
+ you put 'noshow' this means it will NOT show up on the players map. (do
+ this for inside houses, hidden things, etc)
+
+ Make *SURE* you have a carriage return ABOVE and BELOW each replacescreen
+ command. Can't remember why that is important, or even if it is but..
+
+ Optionally, you can add an
+
+ installmessage:
+
+ Anything under this will be shown to the user when he installs the
+ IGM. Always put this at the END.
+
+ * Step 4
+
+ Ok! Time to test it out. Copy bill.igm, bill.dat and bill.ref into a
+ dir with a FRESH copy of LORD2 installed.
+
+ Type "IGM bill" or "IGM bill.igm" (it will add the .IGM)
+
+ It should say it installed ok.
+
+ Next check the World Editor - is the map there? Does it look right?
+
+ It should have made a bill.sav file.
+
+ Now type "igm bill" again - it should UNINSTALL. Go check - did it really
+ change the screens it replaced back to normal? (remember, if there was
+ no screen there originally, its ok that it is still the screen from your
+ IGM.. it only changes REPLACEMENTS back.)
+
+ If everything looked good, put bill.igm, bill.ref, bill.dat and a
+ file_id.diz into a dir and zip it! You've created your first IGM!!!
+
+ *** Suggestions ****
+
+ * Don't use any player or global vars.. save and load your own using the
+ @writefile and @readfile commands.
+ * NEW!! Check out refhelp.doc and example.ref to see how to use the new
+ commands @datasave, @dataload and @datanewday - it makes it EASY for
+ your IGM to create it's OWN data file and keep track of wether or not
+ a user has done a certain thing yet that day. It can actually save a
+ longint (up to 2.2 billion) for each player so it could be used as
+ other player specific things you might want to save as well.
+ * Don't include any .REFs that overwrite .refs written by me
+ * Don't add new items and include the items.dat file
+ * Check out COMPILE.DOC and see how you can compile your .ref work to keep
+ it safe...
+
+ If you break any of those rules, be SURE to note it in text in
+ bill.igm - so the sysop knows. He can compare it to his other IGM's and
+ see if there is a conflict or not.
+
+ Thanks, and if you have questions/problems, feel free to email me at
+ sethable@rtsoft.com. I'm slow sometimes, but I ALWAYS reply.
+
+ Remember, after you make an IGM send it to my LORD2 IGM page! Hit
+ www.rtsoft.com to find the link to it, as it may change.
+
+ -Seth
diff --git a/xtrn/lord2/cnw/docs/ilist.txt b/xtrn/lord2/cnw/docs/ilist.txt
new file mode 100644
index 0000000000000000000000000000000000000000..1aaadbff6a7ae40b3853c537952386d4b6add22e
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/ilist.txt
@@ -0,0 +1,101 @@
+
+ LORD Stuff Pack 1
+ (c) 1997 ShroomTrip Software
+
+Color Codes:
+1 = Dark Blue
+2 = Dark Green
+3 = Dark Cyan
+4 = Dark Red
+5 = Magenta
+6 = Brown/Yellow
+7 = Grey
+8 = Dark Grey
+9 = Light Blue
+0 = Light Green
+! = Light Cyan
+@ = Light Red
+# = Light Magenta
+$ = Yellow
+% = White
+b = Blinking Red
+
+ #1 `0Cluster of `!wild`4berries
+ #2 `!Poison`4berry
+ #3 `%Milk
+ #4 `0Dagger
+ #5 `0Green Potion
+ #6 `6Rusty Dagger
+ #7 `0Ancient Flute
+ #8 `4Berry `0Pie
+ #9 `7Short Sword
+ #10 `0Heavy Coat
+ #11 `0Little Girl
+ #12 `6Leather Vest
+ #13 `7Chain Mail
+ #14 `7Plate Mail
+ #15 `0Huge Axe
+ #16 `1C`9r`!yst`9a`1l `%Shard
+ #17 `0Gloworm
+ #18 `2P`0a`$rr`0o`2t
+ #19 `@Apple
+ #20 `%World Map
+ #21 `%Travel Pass
+ #22 `!Skystaff `0Base
+ #23 `!Skystaff `0Middle
+ #24 `!Skystaff `0Top
+ #25 `!Skystaff `0Gemstone
+ #26 Ticket to `$ArrisVille
+ #27 Ticket to `@Sosen Village
+ #28 `6Fishing Pole
+ #29 `6Salmon
+ #30 `0Sparking Green Salmon
+ #31 `6Mountain Amulet
+ #32 Ticket to `!PortTown
+ #33 Ticket to `#Flag`0City
+ #34 `%Cloud Sword
+ #35 `7Silver Sabre
+ #36 `$Pirate Hook
+ #37 `%Skull Helmet
+ #38 `7Spiked Mace
+ #39 `7Broadsword
+ #40 `!Blue Potion
+ #41 `0Ma's letter
+ #42 `0Laura & Uncle Edward
+ #43 `%Chicken Egg
+ #44 `@Sack
+ #45 `@Satchel
+ #46 `@Small Bag
+ #47 `@Letter
+ #48 `@Small Purse
+ #49 `0Poison Dagger
+ #50 `#Travel `0Potion
+ #51 `0Small fuzzy animal
+ #52 `@Red Potion
+ #53 `$Gold Potion
+ #54 `7Silver Potion
+ #55 `%White Potion
+ #56 `0Wizard Wand
+ #57 `%Moonstone
+ #58 `0Twin Swords
+ #59 `7Spiked Shirt
+ #60 `7Ninja Stars
+ #61 `7Ghost's `!Ring
+ #62 `0Blessed Armour
+ #63 `@Koshi Armour
+ #64 `@Fire`4ball
+ #65 `@Koshi Sword
+ #66 `0Koshi Snack
+ #67 `@Disguise
+ #68 `%Cursed Armour
+ #69 `@Dragon Armour
+ #70 `!Ice storm
+ #71 `@Dragon Sword
+ #72 `%Gryphon Moon
+ #73 `4Smackrod
+ #74 `0Barak's Diary
+
+Added by CNW-
+Obviously there are more item in CNW package, I'll update this list
+at a later time, for now just check the list in l2cfg.exe :)
+
diff --git a/xtrn/lord2/cnw/docs/innguard.txt b/xtrn/lord2/cnw/docs/innguard.txt
new file mode 100644
index 0000000000000000000000000000000000000000..e2c28a0569dcfd6790ad26a43f53843c28fa4767
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/innguard.txt
@@ -0,0 +1,132 @@
+ ���۰��۰��۰��۰��۰��۰��۰��۰��۰��۰��۰��۰��۰��۰��۰��۰��۰��۰���
+ ���� ����
+ ���� ����� ����� ����� ����� �� �� ����� �� �� �� �� ����
+ ���� �� �� �� �� �� ��� �� � ��� �� ��� �� ����
+ ���� ����� �� �� ����� ���� �� � �� � �� � �� �� � �� ����
+ ���� �� �� �� �� �� �� ��� � �� ��� �� ��� ����
+ ���� ����� ����� ����� ����� �� �� ����� �� �� �� �� ����
+ ���� ����
+ ���� ����� ����� ����� ����� ����� �� �� ����� ����� ���� ����
+ ���� �� �� �� �� �� �� �� �� �� �� �� �� �� �� ����
+ ���� ����� ����� ���� ���� �� �� �� �� ����� ����� �� �� ����
+ ���� �� �� �� �� �� �� � �� �� �� �� �� � �� �� ����
+ ���� ����� �� �� �� ����� ����� ����� �� �� �� �� ���� ����
+ ���� ����
+ ���� ����
+ ���۰��۰��۰��۰��۰��۰��۰��۰��۰��۰��۰��۰��۰��۰��۰��۰��۰��۰���
+
+ By WEAVER sysop of Weaver's House BBS
+ node#1 (360)263-6309 28800
+ node#2 (com)ing-soon
+ GAP COMMUNICATIONS
+
+
+
+ �����������������������������������������������۲���������������������������
+ INDEX
+ �����������������������������������������������۲���������������������������
+
+ 1. About this IGM... part 01
+ 2. Installation..... part 02
+ 3. Updates.......... part 03
+ 4. Support.......... part 04
+ 5. Thanx............ part 05
+
+ �����������������������������������������������۲���������������������������
+
+
+ ��������������������������������������������������������������������������͵
+ � About this IGM �
+ ��������������������ͼ
+
+ This is my first IGM so if you hate it, it isn't my fault. This is an IGM
+ to make it so people can't use the SmackRod to break into Sosen Inn ther-
+ fore making it fair for the people who have to pay to get inn and so the
+ innkeeper doesn't lose money and customers from people using the SmackRod
+ and killing paying customers.
+
+
+
+ ��������������������������������������������������������������������������͵
+ � Installation �
+ ��������������������ͼ
+
+ There are two things that you will have to do when you install this igm.
+ You will have to first unzip this IGM's archive (IGRD100.ZIP) in your
+ LORD2 directory and then type "IGM INNGUARD" which will succesfully
+ complete the basic installation of the igm. Then you will have to add the
+ following items to the game through the item editor in l2cfg. Add these
+ two items as item 80 & 81. This is crucial because if you don't everyone
+ who tries to stay at Sosen inn will either die or be able to get into the
+ game with a different item that should be used for something else. Enter
+ the items exactly as followed.
+
+
+ Item 80
+
+ Name of the Item : Sosen Inn Key
+ Action String :
+ Used as armour : No
+ Used as weapon : No
+ Can be sold : No
+ Ref, If "Usable"? :
+ Use String :
+ Gold Value : 0
+ Used only once : No
+ Breaks 1 out of : Never breaks
+ Description :
+ Weapon Strength : 0
+ Armour Strength : 0
+
+
+ Item 81
+
+ Name of the Item : Flute Trigger
+ Action String :
+ Used as armour : No
+ Used as weapon : No
+ Can be sold : No
+ Ref, If "Usable"? :
+ Use String :
+ Gold Value : 0
+ Used only once : No
+ Breaks 1 out of : Never breaks
+ Description :
+ Weapon Strength : 0
+ Armour Strength : 0
+
+
+
+ ��������������������������������������������������������������������������͵
+ � Updates �
+ ��������������������ͼ
+
+ I will release updates whenever they are needed due to Updates of Lord2.
+
+
+
+ ��������������������������������������������������������������������������͵
+ � Support �
+ ��������������������ͼ
+
+ If there are any questions involving .ref's or support on any of my ref
+ programs:
+
+
+ qtgroove10@aol.com <OR> xWEAVERx@juno.com
+ Weaver's House BBS (360)263-6309 28800 Gap Communications
+
+
+
+ ��������������������������������������������������������������������������͵
+ � THANKS �
+ ��������������������ͼ
+
+ Kudos to:
+
+ -Seth Able Robinson & RTSoft for the Lord2 door (and normal lord & teos
+ for hours of fun/distraction)
+
+ -Greg Yung for talking to me while I did this to distract me
+
+ -God for making me me!
diff --git a/xtrn/lord2/cnw/docs/inns.doc b/xtrn/lord2/cnw/docs/inns.doc
new file mode 100644
index 0000000000000000000000000000000000000000..9ecee89015dc2b5f5bafa7ab116b87446af673ba
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/inns.doc
@@ -0,0 +1,140 @@
+ Inn Stuffing v1.00
+ ------------------
+(for lack of a better IGM title)
+by Chris Yeates (Screwy343@aol.com)
+or at The Loose Screw (801)561-4780
+
+Other IGM's by Chris:
+
+The Loose Screw Resort (v1.03)
+MafiaVille (v1.02)
+House of the Incredible Tensions (v1.00)
+
+Installation:
+
+Just check out INNS.IGM. It has most of that information. The most important
+thing you need to know about this IGM is that it *DOES OVERWRITE* original
+LORD2 .REF's.
+
+If you have any IGM's intalled that have altered any of the following files
+and/or REF title names, then I would suggest not installing this IGM (unless,
+of course, you consider un-installing the other IGM and then installing
+this one)...
+
+The files this IGM overwrites are:
+
+INN.REF
+-------
+@#MABACK
+@#MA
+@#MADOOR
+
+
+PORTTOWN.REF
+------------
+@#INN
+@#WHORE
+
+
+BONE.REF
+--------
+@#INN
+
+
+FLAGCITY.REF
+------------
+@#INN
+
+
+STONEP.REF
+----------
+@#LODGE
+
+
+CASTLE4.REF
+-----------
+@#DOORGUARD
+
+
+ARRIS.REF
+---------
+@#INN
+
+The new .REF's it comes with are:
+
+INNS.REF
+INNS1.REF
+INNS2.REF
+
+Files that it creates are:
+
+NINN1.DAT
+ NINN1A.DAT
+ NINNW1.DAT
+ NINNW1.IDF
+
+NINN2.DAT
+ NINN2A.DAT
+ NINN2B.DAT
+ NINNW2.DAT
+ NINNW2.IDF
+
+NINN3.DAT
+ NINN3A.DAT
+ NINN3B.DAT
+ NINNW3.DAT
+ NINNW3.IDF
+
+NINN4.DAT
+ NINN4A.DAT
+ NINN4B.DAT
+ NINNW4.DAT
+ NINNW4.IDF
+
+NINN5.DAT
+ NINN5A.DAT
+ NINN5B.DAT
+ NINNW5.DAT
+ NINNW5.IDF
+
+ NINN6B.DAT
+ NINNW6.DAT
+ NINNW6.IDF
+
+NINN7.DAT
+ NINN7A.DAT
+ NINN7B.DAT
+ NINNW7.DAT
+ NINNW7.IDF
+
+Summary, overview, etc:
+
+ This IGM basically allows ALL the inns in LORD2 to be purchased,
+ owned, and run by the participating users. It runs in much the same fashion
+ as Sosen Inn, with two basic new features:
+
+ -The owner can pick toilet water.
+ (What? What? you say. What is he talking about?)
+ I'll explain. Whomever owns the inn can choose to have their
+ toilet water made out of either Gold Potions, Red Potions, etc...
+ Then, once a day, users can drink from the toilet to receive the
+ benefits!
+
+ -All the inns have whores! (Sorry if this offends)
+ Except for Ma's Boarding House, all the inns now have whores
+ just like Porttown. However, the best catch: whomever owns the
+ inn gets to set the "sleep with whore" price.
+ Basically, the inn keepers also become pimps!
+
+Troubleshooting:
+
+ Not sure what could be wrong with this yet. It's the first version.
+ I'd say beta, except that I've tested it pretty well. If you find any
+ bugs, please do not report them to Ben or whatever Lord2 IGM page you
+ might have have gotten this from.
+
+ Please send all comments, suggestions, etc, to:
+
+ Screwy343@aol.com
+ or
+ at my BBS, The Loose Screw (801)561-4780
diff --git a/xtrn/lord2/cnw/docs/island.doc b/xtrn/lord2/cnw/docs/island.doc
new file mode 100644
index 0000000000000000000000000000000000000000..a1de3106094ac942971ae6b136768fd22d114d2c
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/island.doc
@@ -0,0 +1,44 @@
+ISLAND OF THE HYDRA v1.0
+by Robby and Mariam Dittmann
+
+Welcome to the latest version of MamooSoft Programming's ISLAND OF THE HYDRA!
+
+NEW INSTALLATION:
+
+1) Make sure the files are in your LORD II directory.
+
+2) Type the following at a command prompt:
+
+ IGM ISLAND.IGM
+
+3) Crank up LORD II and go get that dragon!
+
+TO UNINSTALL:
+
+1) Type IGM ISLAND.IGM again.
+
+
+HISTORY:
+
+v1.0
+Original release
+
+
+REGISTRATION:
+
+The Island of the Hydra is absolutely FREE. Of course, the author takes no
+responsibility for any damage or problems you may incur.
+
+Please let me know if you have any problems or questions. And let me know
+what you think!
+
+We can be reached in the following ways:
+
+FIDO - 1:133/8003
+EMAIL - robbyd@sprynet.com
+WWW - http://home.sprynet.com/sprynet/robbyd
+
+Robby Dittmann
+MamooSoft Programming
+
+
diff --git a/xtrn/lord2/cnw/docs/items.txt b/xtrn/lord2/cnw/docs/items.txt
new file mode 100644
index 0000000000000000000000000000000000000000..62935229621e431c3188ce31ffed2dbb32552bc5
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/items.txt
@@ -0,0 +1,99 @@
+ #1 Cluster of wildberries (cost: 1)
+ #2 Poisonberry (cost: 0)
+ #3 � Milk (cost: 1)
+ #4 `6� `%Dagger (cost: 10)
+ #5 `2� `%Green Potion (cost: 5)
+ #6 `6� `%Rusty Dagger (cost: 5)
+ #7 Ancient Flute (cost: 0)
+ #8 Berry Pie (cost: 0)
+ #9 `7� `%Short Sword (cost: 50)
+ #10 `6� `%Heavy Coat (cost: 100)
+ #11 `# `%Little Girl (cost: 50)
+ #12 `8� `%Leather Vest (cost: 250)
+ #13 `8� `%Chain Mail (cost: 750)
+ #14 `8� `%Plate Mail (cost: 1,500)
+ #15 `6� `%Huge Axe (cost: 300)
+ #16 `7� `%Crystal Shard (cost: 700)
+ #17 Gloworm (cost: 50)
+ #18 Parrot (cost: 0)
+ #19 Apple (cost: 0)
+ #20 World Map (cost: 20)
+ #21 Travel Pass (cost: 0)
+ #22 Skystaff Base (cost: 0)
+ #23 Skystaff Middle (cost: 0)
+ #24 Skystaff Top (cost: 0)
+ #25 Skystaff Gemstone (cost: 0)
+ #26 Ticket to ArrisVille (cost: 8,000)
+ #27 Ticket to Sosen Village (cost: 1,500)
+ #28 Fishing Pole (cost: 500)
+ #29 Salmon (cost: 100)
+ #30 Sparking Green Salmon (cost: 500)
+ #31 Mountain Amulet (cost: 0)
+ #32 Ticket to PortTown (cost: 1,000)
+ #33 Ticket to FlagCity (cost: 1,000)
+ #34 `%� Cloud Sword (cost: 1,000)
+ #35 `7� `%Silver Sabre (cost: 1,200)
+ #36 `6� `%Pirate Hook (cost: 3,000)
+ #37 `8� `%Skull Helmet (cost: 2,500)
+ #38 `8� `%Spiked Mace (cost: 800)
+ #39 `7� `%Broadsword (cost: 5,000)
+ #40 `1� `%Blue Potion (cost: 75)
+ #41 Ma's letter (cost: 0)
+ #42 `#`1 `%Laura & Uncle Edward (cost: 0)
+ #43 Chicken Egg (cost: 10)
+ #44 `$� `%Sack (cost: 0)
+ #45 Satchel (cost: 0)
+ #46 `#� `%Small Bag (cost: 0)
+ #47 Letter (cost: 0)
+ #48 `2� `%Small Purse (cost: 0)
+ #49 `#� `%Poison Dagger (cost: 4,000)
+ #50 `#� `%Travel Potion (cost: 500)
+ #51 Small fuzzy animal (cost: 20,000)
+ #52 `4� `%Red Potion (cost: 0)
+ #53 `$� `%Gold Potion (cost: 0)
+ #54 `7� `%Silver Potion (cost: 0)
+ #55 `%� `%White Potion (cost: 300)
+ #56 `6� `%Wizard Wand (cost: 0)
+ #57 Moonstone (cost: 0)
+ #58 `7�� `%Twin Swords (cost: 10,000)
+ #59 `5� `%Spiked Shirt (cost: 7,000)
+ #60 `0� `%Ninja Stars (cost: 800)
+ #61 Ghost's Ring (cost: 1,500)
+ #62 `1� `%Blessed Armour (cost: 20,000)
+ #63 `4� `%Koshi Armour (cost: 100,000)
+ #64 `4� `%Fireball (cost: 20,000)
+ #65 `$� `%Koshi Sword (cost: 100,000)
+ #66 `$� `%Koshi Snack (cost: 400)
+ #67 `@� `%Disguise (cost: 0)
+ #68 `5� `%Cursed Armour (cost: 20,000)
+ #69 `4� `%Dragon Armour (cost: 100,000)
+ #70 `1� `%Ice storm (cost: 20,000)
+ #71 `4� `%Dragon Sword (cost: 100,000)
+ #72 `%Gryphon Moon (cost: 0)
+ #73 `4Smackrod`2 (cost: 0)
+ #74 Barak's Diary (cost: 0)
+ #75 `6� `$Pouch of documents (cost: 5)
+ #76 `$Registry Key (cost: 0)
+ #77 � Empty glass bottle (cost: 0)
+ #78 * Bone fragments (cost: 100)
+ #79 * Dragon Scales (cost: 100,000)
+ #80 * Mouse tail (cost: 5)
+ #81 * Perfect round rock (cost: 1,000)
+ #82 * Bat wings (cost: 500)
+ #83 Mystic Eye (cost: 0)
+ #84 `4� `%Armor of `4K`5C`8D`0 (cost: 0)
+ #85 `4� `%Sword of `4K`5C`8D`0 (cost: 0)
+ #86 * Blue rock (cost: 10)
+ #87 * clean rag (cost: 10)
+ #88 * Bucket (cost: 25)
+ #89 * Puppy (cost: 100)
+ #90 `4� Faerie (cost: 100)
+ #91 * pet rock (cost: 10)
+ #92 `% `%White flower (cost: 10)
+ #93 * Maple leaf (cost: 10)
+ #94 * Shinny Mettle (cost: 10,000)
+ #95 `#Myphon Groon (cost: 0)
+ #96 `9� `%Light Saber (cost: 0)
+ #97 Ankh (cost: 0)
+ #98 `!� `%Pharaoh's armour (cost: 0)
+ #99 `$Small pouch (cost: 500)
diff --git a/xtrn/lord2/cnw/docs/jennie.doc b/xtrn/lord2/cnw/docs/jennie.doc
new file mode 100644
index 0000000000000000000000000000000000000000..b930935e043db01bdb79efba0f92817acf5c7aeb
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/jennie.doc
@@ -0,0 +1,30 @@
+;----------------------------JENNIE GARTH----------------------------------
+
+If you want me to edit this version of Jennie Garth's house or if you want any
+other kind of igm for Lord 2 free feel to email me !
+
+jkorell@metronet.de
+
+If there are any spelling foults in me ref please edit it and sent me the
+new REF !
+
+INSTALL:
+Copy all files in your Lord 2 directory and run the install.bat.
+Get sure that it creates a JENNIE directory.
+
+
+Projects:
+1.
+The Beer Bar
+-Bowling
+-Dart
+-German speaking Bartender
+-Armwrestling
+-Gambling
+
+2.
+Complete new world for Germany !
+-Everything written in German
+-Great new ansis
+-New story
+If you are interested in this project email me
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/docs/jennie2.doc b/xtrn/lord2/cnw/docs/jennie2.doc
new file mode 100644
index 0000000000000000000000000000000000000000..fa2b923e5ffbb3504597968bfe57d5038913be7a
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/jennie2.doc
@@ -0,0 +1,52 @@
+
+
+
+ Jennie's house by SENoR FRoG (Julian Korell)
+
+ V. 1.00
+
+ ENGLISH
+
+ 1. Install / Uninstall
+
+ 2. What does it change
+
+ 3. Test it
+
+ 4. Where do I get the newest version
+
+
+
+
+1.
+Install:
+Just copy all files in the archive in your Lord 2 directory. Then start the
+install.bat.
+It creates a Jennie directory where all playerstats will be copied in.
+
+Uninstall:
+Just type igm jennie again !
+
+
+2.
+
+It changes block 960, 956 and 159 in the mapeditor. It adds block 1441 to the
+editor. If already have any changes on this screens or if the block 1441 is
+used then do not install this IGM because it will overwrite those. If you
+already done this then you can delete it by typing igm.exe jennie again.
+
+
+3.
+
+Go to stonebrook and talk to the darkman. He tells you to go to the stonecircle.
+There you'll find the rest of the information.
+
+
+4.
+
+Mailbox:
+49-761-382886 V34+
+49-761-30996 V34 & ISDN
+
+e-mail:
+julianko@metronet.de
diff --git a/xtrn/lord2/cnw/docs/kiteria.doc b/xtrn/lord2/cnw/docs/kiteria.doc
new file mode 100644
index 0000000000000000000000000000000000000000..e8822515c1f9fd16c5296f2e4592a9ab365b4405
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/kiteria.doc
@@ -0,0 +1,50 @@
+KITERIA'S KASTLE v1.0
+by Robby and Matthew Dittmann
+
+Welcome to the latest version of MamooSoft Programming's KITERIA'S CASTLE!
+
+INSTALLATION:
+
+1) Make sure the files are in your LORD II directory.
+
+2) Type the following at a command prompt:
+
+ IGM KITERIA.IGM
+
+3) Crank up LORD II and go to church!
+
+TO UNINSTALL:
+
+1) Type IGM KITERIA.IGM again.
+
+
+HISTORY:
+
+v1.0
+Original release
+
+
+SPECIAL THANKS TO:
+
+Suzanne Franklin, the real Kiteria, for the LORD1 cheat codes
+
+Veloran, for the LORD2 tips
+
+
+REGISTRATION:
+
+Kiteria's Castle is absolutely FREE. However, the cheat code articles used
+herein are copyrighted by Suzanne Franklin and are used here with the author's
+permission. They may NOT be reproduced without express consent of the author.
+
+Of course, Mamoosoft takes no responsibility for any damage or problems you
+may incur.
+
+Please let me know if you have any problems or questions. And let me know
+what you think!
+
+Robby Dittmann
+MamooSoft Programming
+1:133/8003
+robbyd@sprynet.com
+http:/home.sprynet.com/sprynet/robbyd
diff --git a/xtrn/lord2/cnw/docs/l2cnw.app b/xtrn/lord2/cnw/docs/l2cnw.app
new file mode 100644
index 0000000000000000000000000000000000000000..52e0a093cc2cc429134b8c610ac43391dd6c8f31
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/l2cnw.app
@@ -0,0 +1,93 @@
+ http://greenmachinebbs.com/lord2/cnwfiles/docs/l2cnw.app
+
++------------LoRD2: Complete New World game server Application--------------+
+ MAR-16-2001
+
+ Please fill in as many questions as possible so we can proccess your
+application with ease. We need this information to best know how many nodes
+to keep running and how much we would expect to get from your BBS.
+
+ If you are an individual player, you may apply, but will not garantee
+you an account. Why? cuz there is only a limited number of player possitions
+possible. If there are over 50 available players, then of course you'll be
+accepted. You may want to put your hostname as the IP/DOMAIN.
+(eg. default@dialup-1635.a.yourisp.com)
+
+ Our policy is, we do not accept outside domains/ip for connecting to our
+server, which in means will reserve the nodes for your system users and other
+BBS users to log in without getting busy messages. If there are 4 or less
+active connected BBS, the CNW server will be open to public again.
+
+ New Players will have to fill out a very quick new user application which
+consists of only RealName and Email Address.
+
+
++-- Admin Information --+
+Todays Date:
+Your Name:
+Nick Name:
+E-Mail:
+ICQ#:
+Will you play on our server?: Y/N
+Aready have account?: Y/N
+Character name in the game:
+
+(We assume your real+nick are the same in our user records)
+
+
++-- SysTem Information --+
+BBS/SITE Name:
+IP/DOMAIN NAME:
+2nd IP/DOMAIN:
+3rd IP/DOMAIN:
+4th IP/DOMAIN:
+BBS Software:
+# Current Users:
+Average calls/day:
+Possible # Players from your system:
+Prime Time + Time Zone: (example. 18:00-20:00 @ -5:00)
+
+
++-- CNW Server Info --+
+telnet://greenmachinebbs.com
+
+-Current Stats-
+NODES: 5
+Computer: 233mhz, 64megs ram, 800 meg hdd (yes we putting a new one in)
+The CNW server actualy sits behind a linux gateway which is connected to a
+1megbit adsl line with 10megbit LAN adapters.
+
+NOTE: By the end of Feb2001 we should be running off a 6 cpu (200mhz-366mhz)
+server board.
+UPDATE: MAR16
+ We already have the 6x6 cpu server board, but we're just missing 2 cpu
+cards which axctualy hold the cpus. Once I find these for sale someplace
+I will buy them of course and hopfuly have the huge server up ASAP. :)
+
+We will increase the number of nodes if we feel that the system can handle
+it respectively.
+
+
+Send completed apps to Greenie icq#16277704 or greenie@darktech.org
+Responce should be within 24 hours.
+
+Rename this file to your nick name dot app. :)
+
++---Some Config Help---+
+
+ SYNCHRONET BBS v3+
+ -> BBS
+ -> CONFIGURE
+ -> External Programs
+ -> Online Programs
+ -> Games
+ -> Available Online Programs
+ -> press INSERT
+ -> type L2CNW
+ -> ENTER 2x
+ -> edit L2CNW
+ -> make a title "LoRD2: Complete New World server" or something
+ -> command line: *telgate greenmachinebbs.com
+ -> multiple concurent users = Yes
+
+ [more soon]
diff --git a/xtrn/lord2/cnw/docs/l2map.dox b/xtrn/lord2/cnw/docs/l2map.dox
new file mode 100644
index 0000000000000000000000000000000000000000..bbab779aac45d3a176c8decbfcbd3ddd45759d01
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/l2map.dox
@@ -0,0 +1,52 @@
+
+
+ L.O.R.D. II - Map Conversion Program
+
+ (for lack of a better name)
+
+ by Andrew DuBry
+
+�����
+INTRO
+�����
+
+This program is version 1.0beta. It will convert any LORD II map you have into
+a .BMP graphics file so you can view the entire world with your favorite
+viewer. However, it isn't "cool" yet so I'm calling it beta.
+
+What it WILL do: Simply copy l2map2.exe to any LORD2 directory you have and
+run l2map2.exe. It will give you a percent status as it converts the entire
+world into a bitmap called OUT.BMP. You can rename that after it's done.
+Only certain viewers will view this .BMP for some reason because I was only
+able to find an old .bmp header format.
+
+The .BMP will be about 2.5 megabytes in size, so make sure you have enough
+room first before running it. I would suggest using a graphics program to
+convert the .BMP into a nice little 65k .GIF or something if you can.
+
+����������������
+FUTURE EXPANSION
+����������������
+
+* get the proper .bmp header so all viewers can read it (send me any info plz!)
+* perhaps even save it in .jpg format (again, any nice info would be coolio)
+* improve the shading techniques on some of the higher ascii characters
+* add little user defineable stuff
+
+������������
+REGISTRATION
+������������
+
+This program is provided as freeware, of course, like most of my programs,
+which I'm sure none of you have :). However, I am planning to release my own
+entirely new LORD II World on Halloween 1997 as "macaroni-ware". So I'd
+appreciate it if you check out my World called Sword of Fate and send me
+donations for that World and/or comments; check the readme file when you get
+it. And send me comments on this program as well.
+
+You can reach me at:
+
+ dubr0825@tao.sou.edu
+ feelie@juno.com
+
+Merci Boucoups!
diff --git a/xtrn/lord2/cnw/docs/l2nwfaq.doc b/xtrn/lord2/cnw/docs/l2nwfaq.doc
new file mode 100644
index 0000000000000000000000000000000000000000..a83a9a3133147ce8c455842508542fea8597c344
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/l2nwfaq.doc
@@ -0,0 +1,790 @@
+ Legend of the Red Dragon II: New World FAQ
+ Version 1.1 by Veloran
+ Meant for registered LORD II version 1.01
+
+
+Table of Contents
+-=-=-=-=-=-=-=-=-
+
+ Chapter
+Introduction ..................... 1
+How to get started ............... 1.1
+Game objectives .................. 2
+ Being good (Koshi) ............. 2.1
+ Being evil (Dragon Tooth) ...... 2.2
+ Other quests ................... 2.3
+Tips ............................. 3
+Secrets .......................... 4
+Items ............................ 5
+Geography ........................ 6
+ Towns and villages ............. 6.1
+ Other places of interest ....... 6.2
+Question section ................. 7
+Other stuff ...................... 8
+
+Chapter 1: Introduction
+-=-=-=-=-=-=-=-=-=-=-=-
+ If you've downloaded this file, I think you know what LORD II is. If you
+don't know what LORD II is, then... WHICH CAVE HAVE YOU LIVING IN? LORD II
+IS LIKE THE HOTTEST THING THAT A BBS CAN HAVE!! *cough* *cough* *ahem*
+ Anyway, this FAQ should tell you most of the things you need to know
+about the doorgame.
+ Quite a few of you probably have not yet tried making IGMs, and may not
+know what the LORD II can or cannot do. It's good to try, so you'd know what
+to expect in the game. For more help, consult Seth Able (see chapter 8).
+
+Chapter 1.2: How to get started
+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ Firstly, you have to create your charater. Decide if your charater will be
+male or female and give him/her a name. LORD II uses colour codes similar to
+those in LORD. Here's a list of them.
+
+`1 is dark blue, `2 is dark green, `3 is dark cyan, `4 is dark red,
+`5 is dark purple, `6 is dark brown, `7 is grey, `8 is dark grey, `9 is blue
+`0 is green, `! is cyan, `@ is red, `# is magenta, `$ is yellow, `% is white
+and `^ is black
+
+ You can't use black in your name and in most other places. There are
+background colour codes, but you can't use them much.
+ Ok, now you start of in bed. Talk to your mother (the further right of
+the bed you're on). Do you wanna be good or evil? This is the time to decide.
+Be good? Ask her for the pie. Be bad? STRANGLE HER!! :) Don't worry - she
+won't die.
+ Of course, I recommend you get the pie. Go outside, and go to the berry
+bush (the reddish �). "Push" against it, and you'll have some berries!
+ Go back into the house and "push" against the table (the yellow �). You now
+have 5 gold. If you want, you can get the money before you go out.
+ Outside, follow the road to the left, to the next screen. You'll find
+yourself just outside the town of Stonebrook. Go in. There are a few shops
+there, as mentioned in chapter 6.1. Go into the shop labeled "Grocery Store"
+and buy milk. Go back out of the town, and back to your mother's house. Talk
+to her again and give her the berries and milk for the pie. You should now
+have a berry pie!
+ Go back to the bush and pluck some berries. Press "v" for your inventory
+menu, and highlight "Cluster of Wildberries". Press enter, and choose to
+arm it as a weapon. Eating it replenishes 1 HP.
+ Go back out of the village, then go down 2 screens. If you're getting
+whacked up by a monster, just run, and go back to the town and heal if you
+need to. Go into the hut 2 screens down from the town of Stonebrook.
+ Talk to the man, and find out all you can. Give him your berry pie too.
+You can get another one later. Found out all you could? Go to the wall on the
+left of the house. Near the top of the wall, there's a secret passage
+(chapter 4). Continue through the passage and "push" against the table. You
+will get a heavy coat. Arm this item the way you did with the berries.
+ Go out, and get another pie.
+ If you have enough money, go buy a better weapon.
+When you've got that next pie, go 1 screen down, then 1 screen left from
+outside Stonebrook. Go in and talk to the hag nicely, please. Give her your
+pie for her stew and taste it. You'll get +5 max HP. She wants her parrot if
+you want to taste her brew again? Fine.
+ Go back and get another pie, but you could get it later. You won't be
+needing it for anymore quests (I think).
+ When you have $50, go into Jack's restaurant from the purple tree on Neb's
+road. Buy a gloworm, and put it in your pocket to save it for later. Go into
+the condemed cave, 1 screen down from the hag's house. While inside, eat the
+gloworm. The place should become "bright". Go up the path into the next
+screen, avoid the snakes (�) and you'll be in the next screen. Walk to the
+2 chests and "push" against them. One of them will contain an ancient flute.
+See chapter 2.3 for more on the item. Walk to the table looking thing, and
+you'll find Hector the parrot. Get out of the cave.
+ If you're good, set Hector free via the inventory menu. If you're bad, give
+Hector to the old hag.
+ Save up enough to get a short sword, don't bother about paying Neb much.
+With 15 HP, a short sword, a heavy coat, face Neb and beat the heck out of
+him. Run if you don't think you can win him.
+ After that, continue past his road left 2 screens. Greentree and the rest
+of the game awaits...
+
+Chapter 2: Game objectives
+-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ The main objective in LORD II is to win either as good, or evil. Your
+alignment tells you how you're doing. Let's say, 10 alignment shows that
+you're nice, and -10 alignment shows you're quite evil.
+ How to get good or evil? Well, it's actually quite simple. When you
+get an event where you have to decide between, let's say, helping an
+injured man or beating the heck out of him and taking his money, as
+shown below.
+
+ �
+ You hear an injured person nearby. Investigate? [Y/N] :
+ �
+
+ Don't waste the opportunity to get or lose alignment! Choose yes and
+the following will happen:
+
+ �
+ Aid a fellow traveler
+
+ "Please help me!" the injured man screams. His leg seems to have
+ taken quite a blow.
+
+Help the man out
+Beat him and take his money
+Leave �
+
+ If you go on to help him:
+
+ �
+ You help the man, and with the first aid are able to get him on his
+ way to a city where he can further heal.
+
+ YOUR ALIGNMENT GOES UP BY ONE!
+ �
+
+ As you can see, you don't get much, but it's not always the case.
+But if you decide to be evil:
+
+ �
+ "Sure I'll help you .. die!" You slam him with your weapon, and
+ after he falls unconscious you raid his purse.
+
+ You find 250 gold!
+
+ YOUR ALIGNMENT GOES DOWN BY TWO! �
+
+ That's what happens. It doesn't always pay to be evil though. And the
+rewards aren't always the same. Being good or evil doesn't only mean what
+you do, but even say in some cases. Check chapter 3 tip 19 on how to gain
+or lose alignment quickly.
+
+Chapter 2.1: Being good
+-=-=-=-=-=-=-=-=-=-=-=-
+ In the previous chapter, there's information on how to be good or bad.
+But what can you do when you're good?
+ Well, if you've made up your mind to be good, read this. The main
+in LORD II as a good guy is to help the Koshi people. You can find their
+cave far west of Arrisland, but you'll need the Cloud Sword and 100
+alignment to enter. To get the Cloud Sword, you have to construct the
+Skystaff, of which has parts you can buy induvidualy from travelling
+traders, one of the random events you can find while travelling. (Find
+out more from chapter 5) Once you do have the required, go to the cave
+and show the statue your Cloud Sword. It'll let you in.
+ Inside the cave, there are 3 other holes. The one at the top-middle
+will lead you to a table with a moonstone (find out more in chapter 5).
+the one in the middle, will take you to the Koshi marketplace. Some nice
+stuff to buy there. The top-left entrance will lead you to the most
+important place in there.
+ Inside the sort of a room, talk to the person in the middle. Try to talk
+politely. Then, you'll be instructed to talk to your mother. Do so, and
+find out the truth. Go back to the Koshi cavern and talk to Dahma again.
+This time, she'll tell you to get the Gryphon Moon back, but won't tell
+you how. Go to Prince Corin in Arrisville, and ask him your favour. You'll
+be brought to the Dragon Tooth island where you have to take the Gryphon
+Moon back. Wear the disguise you have been given as soon as you land on the
+island, just to be safe. Walk straight into the inner sanctum of the castle,
+Go to the table, get the Gryphon Moon and get out of there! Go back and talk
+to Dahma and Prince Corin. The Gryphon Moon is yours! (Learn more on the
+Gryphon Moon in chapter 5) You will receive some experience points and
+quest points on completing the game. Your triumph will be anounced in the
+daily news, and you would have a white "K" on dark blue marked beside your
+quest points in the player listing.
+
+Chapter 2.2: Being evil
+-=-=-=-=-=-=-=-=-=-=-=-
+ Of course, if you don't want to be good, you can be evil. First, get evil.
+If you meet up with the Dragon Tooth battalion, inquire about recruitment.
+You'll be brought to the Dragon Tooth island. If it's your first time into
+the castle, they'll make you fight with a captured Koshi warrior as a test.
+ After you defeat him and get -100 alignment, you can go into the castle.
+There's a weapon store inside, where you can buy some cool stuff. Proceed
+into the inner sanctum, and talk to the man standing there. He'll introduce
+himself, and if you have 100 quest points, you'll be sent on a mission to
+steal the Koshi Smackrod.
+ Go to the bar in Bonetown, talk to One Eye, and he'll send you into the
+Koshi Caves. Try to get the Moonstone there (see chapter 2.1) and then go
+to the top-left cave. Walk to the guy in the middle, you'll steal the
+Smackrod. Get out of there, and look for the Dragon Tooth battalion again.
+Go back to the castle and talk to the Dragon Tooth leader. He'll let you
+keep the Smackrod (Check it out in chapter 5) and will get some experience
+points and quest points. News of your deed will be shown in the daily news.
+There will be a black "D" on dark red marked beside your quest points in the
+player listing.
+
+ Note: You can win BOTH endings! And get BOTH the Gryphon Moon and the
+ Smackrod! Your character will not be reset after winning.
+
+Chapter 2.3: Other quests
+-=-=-=-=-=-=-=-=-=-=-=-=-
+ Other than winning the game, good or evil, there are a few other quests to
+do. The berry pie is quite useful, as you would find out soon enough.
+ One of the simpler quests, is finding Hector the parrot in the condemned
+cave. Can't see in there? Get a gloworm from Jack's Restaurant (get there
+from the secret tree on Neb's road) and eat it while in the cave. Go deeper
+into the cave and get the parrot, and the ancient flute from one of the
+chests. The flute comes in handy later. Anyway, what you want to do with
+the parrot is up to you, give it to the old woman to cook, or set it free.
+ Anyway, about the ancient flute, find the music shop west of Arrisville,
+talk to the guy there and learn how to play the two songs from him. Read
+chapter 5 for more information on the flute.
+ The next quest, is beating up Neb, when you're powerful enough. No need
+to explain this one.
+ If you find a little girl, bring her back to her mother at the Red Dragon
+Inn. You'll get a little reward. Kill her, you lose alignment.
+ South of Stonebrook, in the shack, talk to the old man. He'll tell you
+who he is. Offer him your berry pie to learn more. The next thing to do is
+get Barak's diary. It's all the evidence you need. You'll find it in the
+house just beside the Greentree church. You'll need at least 15 quest
+points to pick the lock and get in. Get the book from one of the chests
+inside the house. DO NOT TALK TO THE PERSON THERE. Just get the dairy and
+leave. Go back to the shack and talk to the guy again. Show him the diary.
+ Another quest, sort of, is getting the mountain amulet from one of the beds
+in Stonepass Lodge. Show the amulet to the mage at Snowy Pass and he'll let
+you pass through his cave.
+ One more that I know of, is in Ma's Boarding house in Greentree. Get a
+room, go upstairs, talk to the girl there. Thengo down and talk to her
+mother. She'll give you a letter and tell you to go to a hut somewhere
+south of Greentree. Find the hut, get the people inside to come with you,
+go back to Ma's Boarding house, and talk to "Ma".
+ There are also little deliveries you can make by conducting business with
+certain people. You'll be rewarded with a random amount of cash, and if you
+finish the delivery in the same day as you start it, you'll get a random
+bonus.
+ That's about all for quests, some IGMs have quests, but I won't go into
+that.
+
+Chapter 3: Tips
+-=-=-=-=-=-=-=-
+ Things I think you should do:
+
+1. Get that berry pie. It's useful! You can get another one when you don't
+ have one anymore.
+2. If there's nowhere else much to go and rest in the unregistered version,
+ go to the treehouse. You can get the password by hitting a bird with a
+ stone. It's one of the random happenings while you're travelling.
+3. Before you get Hector the parrot (see chapter 2.3), put all else you can
+ give to the old woman to put in her stew, then taste it. You'll get 5
+ more maximum hitpoints.
+4. Start a bank account.
+5. Get a fishing rod and go fishing everyday. It's a great way to earn money!
+ Sell your fish at the house 'o fish in PortTown. Each salmon fetches $50
+ while each sparkling green salmon is worth $250! Chance of getting a
+ sparkling green salmon is 3/16.
+6. Level up whenever you can.
+7. Try to do the delivery quests as much as possible, and finish each of
+ the deliveries the day you get the job. You'll get a random extra bonus.
+8. Bring along enough healing potions with you, always.
+9. When something is happening at the Shrine of Babos, stated in the news,
+ pray at the shrine. You'll get a little something.
+10. Any items like old weapons you don't need? Sell them.
+11. If you're getting pretty seriously hurt, heal as soon as possible. And
+ If you're really getting whacked up in a fight, run! He who fights and
+ runs away, gets to fight another day!
+12. Know your strength. If the monsters in a certain map are too powerful,
+ get out of there.
+13. Decide if you want to be good or evil before you start, and stick to
+ whichever route you choose all the way, until you've won the game.
+ Remember that you can win both endings!
+14. If you're going anywhere, check your turns. Decide if you should go if
+ you don't think you can finish the journey and stay someplace safe.
+15. There are lots of suspicious looking land formations in LORD II, but
+ not everything is something.
+16. Road are good, they guide you, but they don't save turns when you're
+ moving. You don't have to follow exactly on them.
+17. Read signs. They sometimes show you directions, or tell you important
+ stuff.
+18. Buy a map. It's good to know where you are and where to go.
+19. A fast way to gain/lose alignment is to roam around Bonetown.
+20. Make friends with other players. They may help and not attack you. It's
+ good to know a few more people anyway. :)
+21. Don't mind if you keep dying. It's a game, and it's all for fun! :)
+
+Chapter 4: Secrets
+-=-=-=-=-=-=-=-=-=-
+ A few secrets that you may not know of:
+
+1. In Greentree, in the bottom-middle screen, there's a tree in the wall.
+ You can walk into it and come out at the screen just below the city.
+ Not much, but it's a shortcut. You can go in the same way.
+2. In Turgon's shack, there's a secret passage, and it's further up on the
+ left wall, as shown below.
+
+ �������������������� �������������������
+ � ���; �
+ � �
+ XXXXXXXX �
+ X � �
+ X � �
+ X � �
+ X � �
+ X � �� �
+ X � � � �
+ X � ��; �
+ X ����������������������������������������
+ X
+ XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
+ ������� X
+ � � � X
+ � XXXX
+ �������
+
+3. In the screen above the little hut as shown below, there's a secret
+ passage, the route has been marked, as you can see. There's a red potion
+ (see chapter 5) on the table in the next screen.
+
+
+ XXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXX
+ X XXXXXXXXXXXXXXXX
+ X �� XX
+ X ��
+ X
+ X
+ X
+ XXX
+ XXXX
+ XXXXX
+XXXXXXXX ��
+ ��
+
+
+
+
+
+
+
+
+4. Deep in the dark forest, in the picture shown below, there's a secret
+ passage into a lair. Inside the lair, also shown below, has teleport
+ spots hidden all over. I've marked the spots to go. Then you will fight
+ a creature called Tash. Defeat him, you'll get a moonstone (see Chapter
+ 5). If you run, you'll be transported to some really strange place.
+
+
+
+
+
+
+
+
+
+
+
+ �
+ XX
+ X
+ X
+ XXXXXXXX
+ X
+
+
+
+
+
+ TASH'S LAIR
+ �������
+ ���� ���� � = Exit
+ ���� ���� � = Tash
+ ���� ����
+ ��XXXXXXXX OOOOOO��
+ ���� X O ����
+ ���� XOO ����
+ ������� ���� �O����
+ ���� ���� �������
+ ���� ���� ��������
+ ���� ���� Follow the path marked by X ��� ���
+ �� X �� Walk to Tash, then follow ��� ���
+ ���� X ���� the O ��� � ���
+ ���� X ���� �� OXX ��
+ ���� X ���� ��� X ���
+ ������� ��� XXX ���
+ ��� ���
+ ��������
+
+5. At the Stonepass Lodge screen, go up the trunk of the big tree there.
+ You'll get an apple.
+6. In Stonepass Lodge, there's a mountain amulet under one of the beds. See
+ chapter 2.3 for more on this.
+7. There's a little passage near Castle Coldrake. The only way through is
+ through the castle or with your Smackrod (see chapter 5). There are 2
+ silver potions (see chapter 5) on the table.
+8. Along the shoreline from Castle Coldrake to Sosen Village, there's one
+ part of the shore that will extend into the next screen. Go there, and
+ you'll find a tree with a red potion (see chapter 5) in it.
+9. Somewhere in Smallwood field, which is surrounded by Bigwood forest north
+ of Sosen, there's a large purple tree. Walk into it. You'll be in some
+ weird little place. Get the moonstone (see chapter 5) on the table.
+10. In Arrisville inn, walk around a while and you might encounter a ghost.
+ He'll talk to you and give you his ring. Go to the Rockholm Mountains
+ just west of Castle Coldrake and find the old Red Dragon's lair (It's in
+ the bottom-right parts of the area). Go into the cave and look around.
+11. In one of the waterfalls a few screens west of PortTown, there's a secret
+ passage, as shown. It leads to a moonstone (see chapter 5).
+
+ ������������������������������������X��������������������
+ ������������������������������������X��������������������
+ ������������������������������������X��������������������
+���������ۧ������� �����������������������������������X��������������������
+�������������ۧ���� �����������������������������������X��������������������
+ ������ۧ� ����������������������������������X��������������������
+ �������� ��������������������������������X��������������������
+ �������� ������������������������������X��������������������
+ ��������� �������������������������XXX�������������� �
+ ���������� ����������������������X���������������
+� ������������XXXXXXXXXXXXXXXXXXXX���X����� ������
+���� ��������������������������XXXXX���� ��
+������� � ���������������������
+��������� ��
+���������������� �
+����������������� � ��
+�������������������� �����
+��������������������� �� ��������
+���������������������������������������� ��������������������������������
+��������������������������������������������������������������������������������
+
+12. In Greentree, where you find the sheep, there's a tree on the right of
+ the fence. Go just stand north of the tree and move west. You can go in.
+13. In the house on the right, just beside Barak's house, there's a woman
+ who doesn't want you to use her toilet. Check the bowl and you'll find
+ a travel pass in it. You can use this to go pass the gate at Stonepass
+ lodge.
+14. At the massive tree near Stonebrook, there is a way inside. There's a
+ small amount of gold there.
+
+Chapter 5: Items
+-=-=-=-=-=-=-=-=-
+ In this chapter, I'll be explaining the items. If an item has a "W" after
+it, it's a weapon. If it has a "A" after it, it's armour. If it has a number
+marked after it, it can only be used that many times. If it doesn't have
+anything marked after it, it has some other purpose, and can be used forever,
+without it running out or anything.
+
+Healing items: Cluster of wildberries (get from bush/shops, heals 1 HP)
+ FREE/$1
+ Berry pie (get from mother, heals 50 HP) $1/$2
+ Green potion (buy, heals 10 HP) $5
+ Blue potion (buy, heals 50 HP) $75
+ White potion (buy, heals 200 HP) $300
+ Koshi snack (buy, heals all HP) $400
+
+Special potions: Red potion (trade/find, +5 max HP) 3 gems/FREE
+ Silver potion (trade/find, +1 dodge) 3 gems/FREE
+ Gold potion (trade/find, +2 muscle) 3 gems/FREE
+ Travel potion (buy, random teleportation) $500
+
+Game won special items: Gryphon Moon (win, replenishes turns to a maximum of
+ turns the Sysop permits. However, you can repeatedly
+ use it provided you have less than the max turns!)
+
+ Smackrod (win, teleport to anywhere in the same
+ screen.) Tip: You can break into the private rooms,
+ for example, the rooms in Sosen Inn, and steal the
+ money from the safe.
+
+Other items: Barak's dairy (steal, evidence for Turgon) FREE
+ Wizard wand (get, see chapter 6.2) FREE
+ Poisonberry (?, lose 1 HP) ?
+ Milk (buy, for pie) $1
+ Ancient flute (find, see chapter 2.3) FREE
+ Parrot (find, " ) FREE
+ Little girl (find, " ) FREE
+ Gloworm (buy, " ) $50
+ Apple (find, " ) FREE
+ Ma's letter (get, " ) FREE
+ Laura and Uncle Edward (get, " ) FREE
+ Skystaff base (buy, see chapter 2.1) $100
+ Skystaff middle (buy, " ) $100
+ Skystaff top (buy, " ) $100
+ Skystaff gemstone (buy, " ) $100
+ Cloud Sword (get, " , weapon +18) FREE
+ World map (buy, see chapter 3) $20
+ Travel pass (find, see chapter 4) FREE
+ Fishing pole (buy, see chapter 3) $500
+ Ticket to "x" (buy, boat ticket to "x") Arrisville $8000
+ Sosen Village $1500
+ PortTown $1000
+ FlagCity $1000
+ Salmon (get, see chapter 3) FREE/$100
+ Sparkling green salmon (get, see chapter 3) FREE
+ Mountain amulet (see chapter 2.3, chapter 4) FREE
+ Chicken egg (find, sell) FREE
+ Small fuzzy animal (buy, ?) $1000
+ Moonstone (find, gives you 500 more turns per day) FREE
+ Ghost's ring (get, see chapter 2.3) FREE
+ Disguise (get, see chapter 2.1) FREE
+
+Delivery Items (see chapter 2.3, chapter 3): Sack
+ Satchel
+ Small bag
+ Letter
+ Small purse
+
+ Of course, there is still the weapons and armour, but I won't go into that.
+
+Chapter 6: Geography
+-=-=-=-=-=-=-=-=-=-=-
+ Are there certain things in the map that you're not sure what they are?
+If so, refer to the key below.
+
+ ���� - Green for grass, passable
+ Brown for road, passable
+ Blue for water, unpassable
+ Yellow for sand, passable
+ White for snow, passable
+ clouds, passable
+ Cyan for sky, unpassable
+ White on cyan for ice, unpassable
+ Black for entrance
+ hole, fall and die
+ dark place, could be passable
+ � - Brown for road, passable
+ table, unpassable
+ Other than colours shown above, table, unpassable
+ - Tree, unpassable
+ � - Rock, unpassable
+ - Grey, other player
+ Other colour/inverted colour, hotspot person
+ � - Table, unpassable
+ � - Sign, unpassable
+ � � - Usually bed, white on cyan, passable
+ � - Snake, harmful
+ � - Sheep/Person, unpassable
+ � - Chair, passable
+ Teleporter
+ ���
+ ��� - Booth table, lines passable, block not passable
+ ���
+ � � - Other than booth seat can be fence, wall, unpassable
+ � - Staircase, passable
+
+ That's all the map symbols I can think of for now. Some of the symbols I
+mentioned may not be unpassable if I stated so as there are secret routes to
+things. Don't forget to get a map (see chapter 3).
+
+Chapter 6.1: Towns and villages
+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+Stonebrook:
+ You start in your mother's house in Stonebrook village. Up one map from
+the village there are a few more houses. Go a map left and you'll find the
+treehouse (see chapter 3).
+ From the main village, head left a screen and you'll find the town. Inside,
+There's a pawn shop, a healer, a weapons shop and a grocery store. Empty
+little place...
+ Dock: no Delivery: no
+
+Greentree:
+ Pretty much the main city. This is where you have a better weapon shop, an
+armour shop, a healer, a scribe where you make annoucements in the news, the
+Red Dragon Inn, Ma's boarding house, the training centre, a church , a bank
+and a few houses. There's a pawn shop near the road from Greentree to
+PortTown.
+ Dock: no Delivery: Bartender in Red Dragon Inn
+
+PortTown:
+ As the name suggests, it's a port city. There's a fish related shop, an
+inn, a healer, a bank, a boat ticket booth, a strange miscelaneous shop and
+of course, a port. Of course, you could take a boat to some other places.
+But there's a cargo ship which you can stowaway on if you have -10 alignment.
+You could get caught though...
+ Dock: Yes Delivery: Smithy in House 'o Fish
+
+Sosen village:
+ A quiet little village with a inn you can buy (see chapter 6.2), a bank,
+a miscelaneous store and a few houses.
+ Dock: Yes Delivery: Basil in top-left house
+
+Arrisville:
+ A small town with Prince Corin's castle, healers, a bank, a ticket booth,
+a weapons shop and an inn. Prince Corin is an important character in the
+Koshi ending (see chapter 2.1). There's a quest to do with the inn here too
+(see chapter 2.3).
+ Dock: Yes Delivery: Prince Corin in castle
+
+Flagcity:
+ Flag city is a moderate sized city, with a town council, a bounty office,
+a healer, a bank, an inn, an apocethery (sells potions) and a ticket booth.
+The bounty office is fun, if you have money. Watch out if you have a price
+on your head...
+ Dock: Yes Delivery: Nickabrick in bounty office
+
+Bonetown:
+ Not a really pleasant place to go. There's a bar, a few houses, one of
+which is "different", a "funhouse", a healer, an arena, a casino and a pawn
+shop. You have to pay admission fees, and you pay much more if you're a
+good guy.
+ Dock: Leaving city only Delivery: Selena in pawn shop
+
+ Some IGMs add cities too, but I'm not going to talk about that.
+
+Chapter 6.2: Other places of interest
+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ Other than those cities and towns, there are a few other nice places to
+go. I won't mention secret places though.
+
+Stonebrook area
+ Treehouse:
+ This little treehouse is a nice place to sleep. No one can attack you
+ there and it's free too. The only thing is that you need the password.
+ You'll find it as one of the random events while travelling. You can
+ also ban other people from the treehouse even if they have the password.
+ There's a public chat board there too.
+ Location: 1 map west of Northeast Stonebrook Village
+
+ Turgon's House (see chapter 2.3, chapter 4)
+ Location: 2 maps south of Stonebrook
+
+ Condemned cave (see chapter 2.3)
+ Location: 1 map west of Turgon's house
+
+ Old woman's house (see chapter 2.3)
+ Location: 1 map north of condemned cave
+
+ Jack's restaurant:
+ Cosy little restaurant. Order food! (see chapter 2.3)
+ Location: 1 map north of Neb's road through purple tree
+
+Greentree area
+ Shrine of Babos (see chapter 3)
+ Location: 3 maps west of pawn shop near Greentree
+
+ Runion Keep:
+ A ruined keep, with a safe, two beds and a doorguard. Sells for $3,000.
+ Location: 1 map north of Greentree, then 2 maps west
+
+ Cabin (see chapter 2.3)
+ Location: 2 maps south of Greentree, then 1 map south-west
+
+PortTown area
+ Fishing dock:
+ A place for fishing (see chapter 3).
+ Location: 2 maps south of PortTown
+
+ Waterfall:
+ Another place for fishing (see chapter 3).
+ Location: 1 map south-west of PortTown
+
+Stonepass Lodge area
+ Glimmering pond:
+ Another place for fishing (see chapter 3).
+
+ Castle Coldrake:
+ A small castle with a safe, a healer (free), stables where you can ride
+ to Sosen village, Stonepass Lodge and PortTown and a traditional doorguard.
+ There are 2 entrances/exits to the castle, one of them leading to a little
+ hut (see chapter 4). Sells for $20,000.
+ Location: 7 maps north of Stonepass Lodge
+
+ Rockholm mountains:
+ A maze of mountains, in which contains the old Red Dragon's lair (see
+ chapter 4).
+ Location: 1 map west of Castle Coldrake
+ 10 map area
+
+Sosen village area
+ Ferry terminal:
+ For taking a ferry over to Arrisland ferry terminal.
+ Location: 1 map north-west of Sosen, then 2 maps north
+
+ Sosen inn:
+ It is in Sosen village, and as I said in chapter 6.1, I'll explain more
+ here. It sells for $40,000. You get a private bedroom with a safe, with
+ the usual password options. You can set the inn fees, and when people stay
+ at your inn, you can collect the money.
+ Location: Inside Sosen Village
+
+Arrisville area
+ Ferry terminal:
+ For taking a ferry over to Sosen ferry terminal.
+ Location: 4 maps north of Arrisville
+
+ Koshi mountains (see chapter 2.1)
+ Location: 8 maps west of Arrisland ferry terminal
+
+Flagcity area
+ Wizard's Tower:
+ Maybe the best built-in piece of buyable property, the wizard's tower is
+ standing at 2 storeys high. In the first storey, you have the traditional
+ doorguard, a free full healing fountain and a table. On the table there's
+ a wizard's wand which you can use anytime, anywhere to automatically
+ teleport yourself back to the tower. If you have the wand but someone else
+ owns the tower, you can enter provided you have the password and it isn't
+ set to not let anyone in at all. If you have the wand but nobody owns the
+ tower, you can't use the wand at all.
+ The second storey has 3 teleporters, one to Bonetown (red �), one to
+ PortTown (blue �) and one to Greentree (green �).
+ It may cost $40,000, but I think it's worth it.
+ Location: 2 maps south-east of Flagcity, then 1 map east
+
+Bonetown area
+ Snowy pass:
+ A passage to the other end, which is near Greentree. It's shorter than
+ through the desert. Of course, it could get shorter if you have the
+ mountain amulet (see chapter 4).
+ Location: 1 map north of Bonetown, then 5 maps east (Bonetown end)
+ 7 maps (full tunnel length), 4 maps (shortcut length)
+ 4 maps west of cabin (Greentree end)
+
+Chapter 7: Question section
+-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ Since this is the first release of this FAQ, I'll just put in the
+things that I didn't mention and I think some of you newbies may ask.
+
+Q: "How do I fight enemies?"
+
+A: Just roam around certain maps. Places like inside houses and just outside
+ a town don't usually have anyone to fight. The maps run a .REF or .REC
+ file which contains monster information and other random happenings info.
+ From the map editor, the sysop can change the chance of running the file
+ per each step taken, though not advised.
+
+Q: "How do I enter a town or building?"
+
+A: Such buildings would have a different looking block, such as a black � or
+ � symbol. Or maybe you enter through the gap in a wall, like �� ��, the
+ gap being the entrance.
+
+Q: "How do I fight players?"
+
+A: Well, you have to get on the square your target player is on, then press
+ "h". There'll be a bar of options, like giving him money, items, writing
+ a note and attacking him. If that other guy is online, you can go into
+ chat mode with him. There are places, like inns, where fighting isn't
+ allowed.
+
+Q: "How do I level up?"
+
+A: Go to the training centre in Greentree, and can train if you have enough
+ experience points. You'll have to fight and win a random monster. If you
+ fail, which includes running away, you can't try again until the next day.
+ Don't worry about dying here. If you get beaten by the monster, your
+ hitpoints will go down to one.
+
+Q: "How do I cure VD?"
+
+A: Donate 100 times your level to the Greentree Church. For example, if
+ you're level 14, donate $14,000. You'll get cured.
+
+Chapter 8: Other stuff
+-=-=-=-=-=-=-=-=-=-=-=-
+ My other stuff here refers to credits and information. Don't ask for
+"cheats", please. If you're bent on cheating, plead with your sysop to use
+the player editor. :)
+
+If you have any questions about LORD II you want to ask (gameplay):
+E-mail me: veloran@mbox3.singnet.com.sg
+Or better still, mail Seth Able at: sethable@rtsoft.com
+
+Or you could visit:
+The RTSoft web site: http://www.rtsoft.com
+The �mega BBS web site: http://web.singnet.com.sg/~denosha
+
+For the latest updates of this FAQ, visit the �mega BBS Web Site!
+
+Legal Copyright Stuff:
+The author will not be liable for damamges arising from the misuse of this
+information. This text file should not crash your hard disk, poison your
+dog, burn your house or get you fired from work. This file can be
+distributed freely anywhere provided it's original integrity is maintained.
+This document in it's wholeness can only be reproduced on request from the
+author and subsiquent approval. If this document is to be altered in any way
+what so ever, the author must be informed and the matter will be discussed.
+When being reproduced or/and altered, the author's credits and rest of the
+information onwards from chapter 8 must still be intact.
+
+ Thanks to Spencer Voice for his feedback.
+ Thanks to Black Death for putting this FAQ on his page.
+ Thanks to Seth Able and the rest of the RTSoft team for making LORD II.
+ And thanks to any others whom I may have forgotten to mention.
+
+ This FAQ was done entirely by Veloran of �mega BBS.
+
+ �mega BBS: (065)-466-6759 (Singapore)
diff --git a/xtrn/lord2/cnw/docs/lbugrpt.doc b/xtrn/lord2/cnw/docs/lbugrpt.doc
new file mode 100644
index 0000000000000000000000000000000000000000..f3af7d93bdd9aa88366ecd6ef031115baf131d5a
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/lbugrpt.doc
@@ -0,0 +1,5 @@
+Give me some feedback on what went wrong !!!!!
+
+Send it to me via Internet to Odin706@aol.com
+
+What Happened >>>>
diff --git a/xtrn/lord2/cnw/docs/lenny.doc b/xtrn/lord2/cnw/docs/lenny.doc
new file mode 100644
index 0000000000000000000000000000000000000000..821fabc7663da35ad0e1f3487c3cce9ac3163e74
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/lenny.doc
@@ -0,0 +1,33 @@
+Uncle Lenny version 2.00 by Chris Curry
+
+Get updates at http://home.earthlink.net/~ccurry/thrive/soft/
+
+QUICK INFO:
+
+Version of LORD2 required to use it : 1.00
+Is registered version of LORD2 required to use? : No!
+Using any LORD2 vars? : No!
+Overwrites any original .refs? : No!
+Saves and loads its own vars independently? : Yes! (idf file)
+Adds new .refs? : Yes! (1)
+Replaces screens? : Yes! (1)
+Adds screens? : No!
+Free? : Yes!
+
+To install, unzip into your LORD2 dir and type:
+
+IGM LENNY.IGM
+
+To uninstall, do the same thing again.
+
+Description:
+
+Ok v2.00 is a bit differnt from v1.00 instead of asking for a gift you
+have to earn one. You place a bet on a game of Rock, Paper, Scissors with
+Uncle Lenny.
+
+Also v2.00 has been compiled using the new COMPILE.EXE by Seth Able. So
+to run Uncle Lenny v2.00 you need to upgrade LORD II: New World to v1.01!
+
+If you find any bugs email me at ccurry@earthlink.net
+
diff --git a/xtrn/lord2/cnw/docs/lokisinn.doc b/xtrn/lord2/cnw/docs/lokisinn.doc
new file mode 100644
index 0000000000000000000000000000000000000000..4a8dd3855da1f776b05738580b4f76bda7938f74
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/lokisinn.doc
@@ -0,0 +1,198 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+ -=- Loki's Inn -=-
+
+ A Lord II In Game Module
+ Written By: Peter Jackson
+ A.K.A. ... oDiN
+ BBS - 706-613-3577
+ Internet-Odin706@aol.com
+
+ Version 1.03
+ (c)1997 AEsir Software
+
+
+
+
+������������������������������������������������������������������������������ͻ
+� ����������������������������������� Index ���������������������������������� �
+������������������������������������������������������������������������������ͼ
+
+ Part 1 -=-=- Introduction and description
+ Part 2 -=-=- Setting it up
+ Part 3 -=-=- Acknowledgements
+
+
+������������������������������������������������������������������������������ͻ
+� ������������������������������ Introduction �������������������������������� �
+������������������������������������������������������������������������������ͼ
+
+
+This IGM was written for use with LORD II version 1.01a+ ONLY it will not
+work with lower versions. This is not an IGM that is too giving.
+
+Loki's Inn was a time consuming project for me. I tested and retested
+before releasing this to the public.
+
+I wrote it because of the lack of private rooms on my Lord II game.
+Instead of installing a half a dozen castles or keeps in my game.
+
+Inside Inn :
+
+Koshi Innkeeper - performs name and sex changes.
+
+Armor, weapons and goods dealer - only deals in game available stuff.
+
+Bank - Convient banking for your pleasure
+
+Hilda/Odin - depending on the players sex, players can flirt and if they
+have the charm get experience.
+
+18 private rooms, No single player can own more than one room.
+
+9 rooms have teleporters.
+
+What's new :
+
+Last version - Loki's Inn Version 1.01
+I revised this version simply to make good ole Bobby happy. He reviews quite
+a few IGM's daily and I thank him for his suggestions. So now the majik
+stone is no longer in the table but it is now a real live rock. ;-)
+
+Latest Version - Loki's Inn Version 1.03
+Simply put I goofed big time, in previous releases of Loki's Inn.
+We are all human aren't we?!?!?!?!?!?!?
+It seems that the rooms weren't working properly. :(
+Now they are !!!! ;)
+Local (node 0) players must be aware of a certain circumstance in the
+IGM. If you are trying to by a room at Loki's Inn and a message comes
+up and tells you only 1 room per person. Visit Hilda/Odin this will
+make it so that you can buy a room. If this still doesn't solve the
+problem then either wait until the next day or run the maint switch
+when loading Lord II example: Lord2 /maint then visit Hilda/Odin in the
+Inn 1 time. Then you will be able to buy a room.
+This bug is not in this IGM but is in the game itself, and DOES NOT
+AFFECT REMOTE PLAYERS AT ALL.
+
+I almost went blind doing the bug fix so have Mercy!
+Thanks ring out to Jim for the bug fix of the year!
+
+***New in upcoming release of Loki's Inn***
+
+I'm going to add at least 18 more private rooms, can't be done you say.
+Wait and watch. :)
+
+
+Try my other IGM's for LORD 2
+
+ * Odin's Keep V2.01 - Own the legendary Keep.
+ Comes fully stocked with your own pet dragon, healer, Swimming Pool
+ and much more. New this version - Bar with male and female companions,
+ weapons and armour dealers, etc. Redesigned Artwork + bug fix
+
+ * Thor V2.01 - Works with Registered or Unregistered LordII Ver 101a+
+ If player's kill stat 5 or above, Thor will give 1 of 4 blessings.
+ "Blessings" include Muscle, Dodge, Charm and HitPoints. Special code
+ limits one visit per day.
+
+ * Quester V2.01 - Allows players to complete a quest per day that involves
+ fighting against some major enemies ! Very configurable. New this version:
+ Added swimming at Tiny Lake Rewrote a few routines, 2 Bug fixes +
+ compatible with other Lord II IGM's
+
+ * COMING SOON *
+
+ Valhalla Igm for Lord2
+
+You can get these off my BBS or just E-mail me and I'll send them to you.
+
+You can also get the latest releases off my website.
+http://members.aol.com/odin706/title.html
+
+
+Let me know what you think about Loki's Inn. Drop a line to me at...
+
+Odin706@aol.com
+
+
+������������������������������������������������������������������������������ͻ
+� ���������������������������������� Setup ����������������������������������� �
+������������������������������������������������������������������������������ͼ
+
+Setup is simple.
+
+***ACHTUNG********
+
+If you have previously installed Loki's Inn Version 1.00 or 1.01 then do the
+following first.
+
+Type IGM LOKISINN.IGM to uninstall it.
+
+Copy and unpack the contents of loki103.ZIP into a empty directory.
+Then Copy and unpack Lokisinn.zip into your LORD II directory.
+
+Then proceed with the installation as follows :
+
+OR if you have never Installed this IGM then ......
+
+Install will replace 9 sections on the game map. Likewise Uninstall
+will restore these sections to their original state.
+
+******If you have more than one IGM installed **************************
+
+Edit LOKISINN.IGM to find out which areas on the world map
+will be affected. Thereby you won't overwrite another IGM or Visa/Versa.
+
+*************************************************************************
+
+To Install :>
+
+Copy and unpack the contents of loki100.ZIP into a empty directory.
+Then Copy and unpack Lokisinn.zip into your LORD II directory.
+
+Type IGM LOKISINN.IGM
+This will install Loki's Inn into the game.
+
+To Uninstall :<
+
+Inside your Lord II directory
+Type IGM LOKISINN.IGM
+This will successfully uninstall Loki's Inn from your game.
+
+I will not be held responsible for any mishap caused by using this IGM.
+If you find a bug let me know about it, take a little time and fill
+out the enclosed bugrpt.doc .
+
+
+������������������������������������������������������������������������������ͻ
+� ����������������������������� Acknowledgements ����������������������������� �
+������������������������������������������������������������������������������ͼ
+
+Thanks go out to :
+
+Seth Able Robinson, the creator of LORD II, for making the game.
+
+Calypso, For creating Audacity BBS, the best BBS software I've ever had
+the pleasure to use.
+
+Jim, for the bug fix of the year.
+
+
+
+
+
+
+
+
+ EOF
diff --git a/xtrn/lord2/cnw/docs/mcode.doc b/xtrn/lord2/cnw/docs/mcode.doc
new file mode 100644
index 0000000000000000000000000000000000000000..5f0645f669afae7ad67f4839ae8aa08533a2f523
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/mcode.doc
@@ -0,0 +1,411 @@
+ Last Revision Date: 04/01/98
+
+ Code modifications document for Global Registries by Mike Freeman.
+
+ While testing Global Registries, I found 2 bugs in Seths ITEMS.REF,
+ in the stock version, that needs to be addressed. See my notes below on how
+ to fix this bug. If your * NOT * running Global Registries, its still a good
+ idea to make this fix to your ITEMS.REF file. You will also need my
+ REGFIXIT.REC program which is called from ITEMS.REF.
+
+ My L2BUGFIX.ZIP 12/29/97 file.
+ Recently, I posted this file on the Internet and all over that handles the
+ above problem. If you recently applied this patch then you can leave it
+ as it is since there is logic built into my installation program that will
+ either upgrade your files or install this patch for you. My installation
+ program handles upgrading your REGFIXIT.REC file only, to the latest version.
+ You will * STILL * need to check your ITEMS.REF to make sure the code that
+ calls my patch is still the same as the code changes I have below. It should
+ be, I have not changed that @ROUTINE call, but check to make sure yours is
+ identical anyway.
+
+ Code Modification
+ =================
+
+ WARNING: You must be running v1.01a of Lord II. If you are running v1.00
+ I strongly suggest you upgrade to the latest version of Lord II before
+ continuing. These changes are *NOT* for v1.00 and have *NOT* been tested
+ under v1.00. Get the upgrade Services Pak 1 from Seths Internet site at
+ www.rtsoft.com. The upgrade file name is L2SP1A.ZIP.
+
+ There are only 3 .ref files to modify to get Global Registries installed.
+ Those are RULES.REF, ITEMS.REF and GAMETXT.REF. It should take you less
+ than 15min to make these changes. Please check and recheck your work for
+ accuracy. It will save you alot of headaches in the long run.
+
+ GLOBAL REGISTRIES has its own set of rules so ..........
+
+ Ok. There is *NO* zip file supplied for this change. The reason we didn't
+ include one is because you probably made changes to your RULES.REF file
+ already to adjust turns per day, unlimited turns etc. Simply load RULES.REF
+ in a text editor and manually make the change below.
+
+ If you have to manually modify the code then:
+ ========
+ Find the code in RULES.REF
+
+ ;*** example of showing users a message ****
+
+@do `v03 is 0 ;Can players die unlimited times per day? 0 is no, 1 is yes
+@do `v05 is 3000 ;turns per day given to a player, 0 for unlimited
+@do `v06 is 1 ; Make this 1 to activate CLEAN mode, this means 'dirty' things
+ ; will not happen, like there won't be whores at the Sea Hag
+ ; hotel
+@do `v07 is 4 ; Max random quests possible per day
+@do `v08 is 20 ; Max uses of the slot machines/craps per day
+@do `v09 is 15 ; Level at which players can be attacked in Inns. 0 for never
+
+@#NOMORE
+
+ Change it to:
+
+ ;*** example of showing users a message ****
+
+@do `v03 is 0 ;Can players die unlimited times per day? 0 is no, 1 is yes
+@do `v05 is 3000 ;turns per day given to a player, 0 for unlimited
+@do `v06 is 1 ; Make this 1 to activate CLEAN mode, this means 'dirty' things
+ ; will not happen, like there won't be whores at the Sea Hag
+ ; hotel
+@do `v07 is 4 ; Max random quests possible per day
+@do `v08 is 20 ; Max uses of the slot machines/craps per day
+@do `v09 is 15 ; Level at which players can be attacked in Inns. 0 for never
+
+@routine gr_rules in regrules.rec ;<--- Add this line
+
+@#NOMORE
+
+ =======================
+
+ Ok. There should be a zip file in this packet called ITEMS.ZIP It includes
+ the changes below. It does not include the changes to the item editor. You
+ will have to load the item editor yourself to enter that information manually.
+ If you have already made modifications to your ITEMS.REF file because you
+ have installed other IGM's, then you will need to manually change the code.
+ It only takes a few minutes! If on the other hand you have not changed
+ ITEMS.REF just unzip ITEMS.ZIP over the top of your ITEMS.REF file. Make a
+ backup of your ITEMS.REF before doing this.
+
+ This modification will allow your users to retrieve Global Registies, by
+ selecting the REGISTRY KEY item from the 'V' View Statistics option.
+
+ If you have to manually modify the code then:
+ ========
+ Find the code in ITEMS.REF
+
+ ;Items file
+
+ @#DIARY
+ ;Barak's diary
+ @show
+ `r0`c `r1`% Reading Barak's Diary `r0
+
+ Change it to:
+
+ ;Items file
+
+ @#default ;<-- Add
+ @routine error_handler in regfixit.rec ;<-- Add
+
+ @#item75 ;<-- Add
+ @clearblock 13 23 ;<-- Add
+ @do move 1 13 ;<-- Add
+ @show ;<-- Add
+ `2You can use this key an `$UNLIMITED `2number of times. ;<-- Add
+
+ `k ;<-- Add
+ @ ;<-- Add
+
+ @if `i75 > 0 then do ;<-- Add
+ @begin ;<-- Add
+ @itemexit ;<-- Add
+ @routine load_registry in registry.rec ;<-- Add
+ @end ;<-- Add
+
+ @#DIARY
+ ;Barak's diary
+ @show
+ `r0`c `r1`% Reading Barak's Diary `r0
+
+ This code assumes of course that your adding the Registry Item to Item#75
+ in the item editor. Be careful now. If you load your item editor and find
+ item (75 of 99) already taken, you'll need to modify the lines above that
+ says @if `i75 > 0 then do and the line that says #item75, to the integar
+ variable equal to the item number other than 75, in the item editor. So
+ lets assume you load the item editor and find (75 of 99) already taken.
+ Then move on to another item thats not taken and enter the information
+ below. Then modify the @if statement and the #item75 line above, to reflect
+ the number of your new item, in your item editor.
+
+ Enter EXACTLY as shown! Below:
+
+ LORD II ITEM EDITOR editing item (75 of 99)
+ (A) Name of the item : `$Registry Key
+ (B) Action String : CLICK!
+ (C) Used as armour? : No
+ (D) Used as weapon? : No
+ (E) Can be sold? : No
+ (F) Ref, if "Usable"? : ITEM75
+ (G) Use string : Use it to enter the registry.
+ (H) Gold Value : 0
+ (I) Used only once? : No
+ (J) Breaks 1 out of : Never breaks.
+ (K) Description : Non-Expiring Key. Try it out!
+ (L) Weapon strength : 0
+ (M) Armour defence : 0
+ (N) Quest item? : No
+
+ =======================
+
+
+ Ok. There should be a zip file in this packet called GAMETXT.ZIP It includes
+ the changes below. If you have already made modifications to your GAMETXT.REF
+ file because you have installed other IGM's, then you will need to manually
+ change the code. It only takes a few minutes!
+ If on the other hand you have not changed GAMETXT.REF just unzip GAMETXT.ZIP
+ over the top of your GAMETXT.REF file. Make a backup of your GAMETXT.REF
+ before doing this.
+
+ THIS IS THE MOST IMPORTANT CHANGE FOR MOD#2. PLEASE DONT LEAVE THIS
+ CHANGE OUT ================
+
+ If you have to manually modify the code then:
+ ========
+ In the file GAMETXT.REF find the code:
+
+ @#startgame
+ ;do startgame routines here
+ @version 99
+ ;if version 99 or newer isn't detected, it will tell the player to
+ ;upgrade
+ @do `v01 is 1
+ @if map < 2 then map is 155
+ @if map > 1600 then map is 155
+
+ @do write
+ `r0`c
+
+ Change it to:
+
+ @#startgame
+ ;do startgame routines here
+ @version 99
+ ;if version 99 or newer isn't detected, it will tell the player to
+ ;upgrade
+ @do `v01 is 1
+ @if map < 2 then map is 155
+ @if map > 1600 then map is 155
+
+ @routine $init in reginit.rec ;<-- Add ;
+
+ @if `i75 is 0 then do ;<-- Add ;`i75='s Item # in Item Editor
+ @begin ;<-- Add ;
+ @do `i75 is 1 ;<-- Add ;`i75='s Item # in Item Editor
+ @end ;<-- Add ;
+
+ @do write
+ `r0`c
+
+ Remember to change `i75 (ABOVE) to whatever number you used in the item editor
+ if you need to.
+
+ Also, in GAMETXT.REF find the code near the end of the file:
+
+ @if x < 1 then x is 27
+ @if y < 1 then y is 7
+ @if x > 80 then x is 27
+ @if y > 24 then y is 7
+
+ @show
+ `k
+ @do talk `0`n`x`2has`xentered`xthe`xrealm. all
+
+ @routine readlog in logstuff.ref
+
+ ;do end routines here
+ @#endgame
+ @do talk `0`n`x`2has`xleft. all
+ @if dead is 0 then do
+ @begin
+ @do move 1 24
+ @show
+
+ Change it to:
+
+ @if x < 1 then x is 27
+ @if y < 1 then y is 7
+ @if x > 80 then x is 27
+ @if y > 24 then y is 7
+
+ @show
+ `k
+ @do talk `0`n`x`2has`xentered`xthe`xrealm. all
+
+ @routine readlog in logstuff.ref
+
+ @if dead is 0 then do <--- Add this line
+ @begin <--- Add this line
+ @routine warn_user in regadver.ref <--- Add this line
+ @end <--- Add this line
+
+ ;do end routines here
+ @#endgame
+ @do talk `0`n`x`2has`xleft. all
+ @if dead is 0 then do
+ @begin
+ @do move 1 24
+ @show
+
+NOTE: As a added bonus, I have supplied the source to REGADVER.REF so you can
+ optionally change the warning message sent to users who have *NOT* entered
+ their registry entry, when they enter the game. For more information on what
+ you can do, load REGADVER.REF into a text editor and read my notes. -Enjoy!
+
+ Also, in GAMETXT.REF find the code near the end of the file:
+
+ @KEY
+ ;Give them starting stuff
+ @do `p01 is 1
+ @do `p02 is 10
+ @do `p03 is 10
+ @do `p04 is 5
+ @do `p05 is 1
+ @do `p09 is 1
+ @do X is 27
+ @do Y is 7
+ @do MAP is 155
+ @addchar
+
+ and change it to:
+
+ @KEY
+ ;Give them starting stuff
+ @do `p01 is 1
+ @do `p02 is 10
+ @do `p03 is 10
+ @do `p04 is 5
+ @do `p05 is 1
+ @do `p09 is 1
+ @do `i75 is 1 ;<--- Add
+ @do X is 27
+ @do Y is 7
+ @do MAP is 155
+ @addchar
+
+ Remember to change `i75 to whatever number you used in the item editor if
+ you need to. All the changes above * MUST * be entered exactly for
+ method 2 to work.
+
+ Once you have completed all these modification you may continue with the
+ rest of the installation and configuration:
+ =======================
+
+
+ Continuing with installation:
+ =============================
+
+ 3) Still at your DOS prompt type:
+ ==========
+ REGISTRY
+
+ This will install the updated map for Neb's road and install the Registry
+ hut so your users can push on it. Watch for the completion message and
+ make sure there were no errors detected!
+
+ 4) Log into your bbs and load Lord II. Do * NOT * log in LOCALLY!!!!!!
+ What I mean by that is * DO NOT * run LORD2 0 from your DOS prompt
+ to log in locally. You must log on your bbs like any other user would
+ to access Lord II.
+
+ Hopefully you have done all of the above correctly and you can load
+ Global Registries either by pushing on the Registry Hut on Neb's road
+ or typing 'V' from any map menu to access Global Registries.
+
+ 5) At any map menu, go to Neb's Road and push on the Registry Hut, if you
+ used method #1, or type V to load Global Registries using the key
+ method, method #2.
+
+ If you cannot get the changes that you made to load Global Registries
+ correctly, then go back and read the documenation again. Check and
+ recheck your changes. Make your changes and re-run everthing.
+
+ Configuring Global Registries
+ =============================
+ 6) Once your sure you can retrieve Global Registries using the Method
+ of your choice its time to run my installation utility that will
+ configure Global Registry for you and make you the Sysop in the module.
+ In anycase, you should already be at the main installation menu for
+ Global Registries once you load it. Simply highlight option number 1
+ that says INSTALL GLOBAL REGISTRIES FOR THE FIRST TIME.
+
+ There will be a question asking you for a PASSWORD. This was added
+ because we didn't want anyone but the SYSOP to be able to run the
+ installation procedure. Imagine what would happen if you installed
+ Global Registries and a user beat you to Lord II. They would be able
+ to register themselves as the SYSOP in the module. So to prevent this
+ from happening we setup the installation with a password option.
+
+ The password is: NEWINSTALLATION
+
+ Once you enter the correct password you will be given Sysop access in
+ Global Registries. The module * WILL NOT * be activated till you register
+ Global Registries on your system. Unless you register, this module will
+ remain active but closed to ALL users including yourself.
+
+ NOTE: While registering you as a Sysop a number of files will be created.
+ Watch for the completion message.
+
+ REGFIXIT.REC: If you downloaded my 12/28/97 patch to fix a few bugs in
+ Lord II from the Lord II Internet site, not to worry. I have built in logic
+ that will upgrade your patch to the latest version during the installation
+ if yours is out of date. If you didn't install my patch of 12/28/97 my
+ program will also detect this and apply the patch for you. Just make sure
+ that you make the code modifications to ITEMS.REF as I specified in these
+ docs above. Read Mod#1 or Mod#2 changes to find this fix!
+
+ Once the installation procedure is finished you will have access to the
+ main Global Registries menu. -Enjoy!
+
+ To uninstall, type:
+ =========
+
+ REGUNDO
+
+ Other things you should know how to do:
+ =======================================
+
+ Why did I create a 2 subdirectories? Global Registries keeps track of alot
+ of files. I felt it would clutter up your Lord II directory too much
+ and it would be an absolute nightmare to work out which files to delete
+ when you wanted to reset your data files. Plus I don't have the time to
+ list out every single file created by my program so I'v made it easy on
+ you.
+
+To reset * ALL * your user records - Registry Entries and what nots:
+ =====
+type at the DOS prompt:
+
+cd\lord2\regdata
+
+then type:
+
+del *.*
+
+To reset * ALL * the Global Registry System Files:
+ =====
+type at the DOS prompt:
+
+cd\lord2\regconf
+
+then type:
+
+del *.*
+
+But, I wouldn't reset the system files unless I was doing a fresh
+install in which case i would delete everthing in \regdata & \regconf
+followed by re-installing Global Registries fresh by copying REGISTRY.ZIP to
+an empty directory then following the installation instructions in
+REGISTRY.DOC on installing everthing fresh like you were installing for the
+first time. NOTE: Doing this will also wipe out your activation code so before
+doing anything I would write it down somewhere safe.
+
+-EOF
diff --git a/xtrn/lord2/cnw/docs/mimsic.doc b/xtrn/lord2/cnw/docs/mimsic.doc
new file mode 100644
index 0000000000000000000000000000000000000000..735c5c62c22974dd8338333d0419dbc3c560b275
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/mimsic.doc
@@ -0,0 +1,68 @@
+ Mimsic Isle: a Lord 2 IGM
+
+ Questions and bug reports are welcomed by the author: Jim Wilson
+
+ <jfw@ica.net> <hit_any@hotmail.com> <jwilson@promail.com>
+
+
+History: v1.17 released February 1998
+
+Changes from:
+
+116: New monster after the pit fiend. A user killed the
+ fiend(!) His sister is as hard as gneiss.
+
+115: Sometimes, the pit fiend guards won't pass you.
+ One "do busy" instead of "busy" fixed.
+
+114: Sometimes, you couldn't fight the Demons.
+
+113: One bitset error message from jw-isle2.ref. <sigh>
+
+112: Sunstone and Shining Orb were mixed up in some places.
+
+ -=-=-=-=-=-=-=-=-
+
+Freeware.
+
+
+The Isle is reached by boat, departure from the North Shore,
+a ways east of Sosen.
+
+
+This is a very difficult IGM to finish. I can't imagine
+a player's stats being high enough to "win" but I expect it
+will be done before too long. (Note, it was done in January)
+
+I know of a player whose stats are about 6000 across the board.
+ <not tough enough for the last map!>
+
+The monsters you face at the start are of the level of those of the
+North Shore, not too bad. The bottom 6 screens have only one toughie
+to run from but north of these maps ... well, you will see.
+
+
+There are several ansi pics in this IGM all created by Sandy Chidester.
+
+
+ < sandyc@key-net.net >
+
+
+Mimsic will take weeks to play through, though not too much time per day.
+There are several "quests" that must be done in order and
+some timed events that take a few days to become available.
+
+
+The final 5 monsters ... most players will never best them.
+
+They do provide a huge challenge for those who need a brick wall
+to beat their heads against. <grin>
+
+
+I had a lot of fun writing Mimsic and I hope you all have fun
+testing your characters out against the mimsical baddies!
+
+
+ (((- Jim -)))
+
+
diff --git a/xtrn/lord2/cnw/docs/newstuff.txt b/xtrn/lord2/cnw/docs/newstuff.txt
new file mode 100644
index 0000000000000000000000000000000000000000..eb6e2562f2a0548b1cc9aa17f0ced8ae3e6cd7e1
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/newstuff.txt
@@ -0,0 +1,12 @@
+---------------------------- What is New? ------------------------v1.48--
+
+ I am sorry, i have been busy, not much of an upgrade.
+ It does have more on the guilds though, still not much.
+ Look forward to an update before Christmas!
+
+
+- Redraw screen bugfix for the none allowed
+- Women can finish quest
+- Continued work on the guilds (ansi screens)
+- Glow worm bug fixed w/ the rab special drink
+- Passwords for the Royal & Owner bedrooms
diff --git a/xtrn/lord2/cnw/docs/obugrpt.doc b/xtrn/lord2/cnw/docs/obugrpt.doc
new file mode 100644
index 0000000000000000000000000000000000000000..c2ca770db02c3cecca06265b99cb0dec2d9bc0a3
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/obugrpt.doc
@@ -0,0 +1,8 @@
+Gimme some feedback on what went wrong !!!!!
+
+Even if it's something ridiculously stupid.
+
+Send it to me via Internet to Odin706@aol.com
+
+
+-oDiN
diff --git a/xtrn/lord2/cnw/docs/odinkeep.doc b/xtrn/lord2/cnw/docs/odinkeep.doc
new file mode 100644
index 0000000000000000000000000000000000000000..120f6810de379a53ff50bee5d571cbb8e2d67f29
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/odinkeep.doc
@@ -0,0 +1,208 @@
+
+
+
+
+
+
+
+
+
+
+
+ -=- Odin's Keep -=-
+ A Lord II InterGame Module
+ Written By: Peter Jackson
+ A.K.A. ... oDiN
+ BBS- (706) 613-3577
+ Internet- Odin706@aol.com
+
+ Version 2.00
+ (c)1997 AEsir Software
+
+
+
+
+
+
+
+ TEXT FILES INCLUDED:
+
+ DONATE.DOC <- Info on donating.
+ SYSOP.DOC <- Setting it up and general info
+ BUGRPT.DOC <- Report flaws to me
+ WHATSNEW.DOC <- Explains what I added to this version.
+
+������������������������������������������������������������������������������ͻ
+� ����������������������������������� Index ���������������������������������� �
+������������������������������������������������������������������������������ͼ
+
+ Part 1 -=-=- Introduction and description
+ Part 2 -=-=- Setting it up
+ Part 3 -=-=- Acknowledgements
+
+
+������������������������������������������������������������������������������ͻ
+� ������������������������������ Introduction �������������������������������� �
+������������������������������������������������������������������������������ͼ
+
+
+This IGM was written for use with LORD II version 1.00a+ ONLY it will not
+work with lower versions. This is not an IGM that is too giving, but
+can be altered by you to your specifications.
+
+Odin's Castle is located east of PortTown. Inside the Castle is the keep
+and Eric's bar.
+
+
+ -= Inside the Castle =-
+
+ -Odin's Keep is an ownable keep that has :
+
+ * "Majic" swimming pool
+ * An adult male Dragon named "Vincent" that will transport people to
+ Flagcity, Sosen Village, etc.
+ * A private doctor that will heal wounds at no charge.
+ * No player fights inside the Keep !
+
+ -Eric's Bar contains the following :
+
+ * Alot of Patrons to talk with
+ * A Bartender that accepts quests, gems, gives free drinks etc.
+ * Weapons, Armor and goods dealer - you can also sell things
+ * PG-13 Male or Female Companions with "clean mode" protection
+ Also gives "lay" points to players.
+ * + alot more.
+
+ -Towers
+ * Finally finished them. ::wahoo:: No big deal they just choose from 4
+ random events 2 events are bad 2 events are good.
+
+ -= Outside the Castle =-
+
+ * Fairy Garden - Let's get real people, she's cool but don't piss her off !
+
+
+-Coming soon in the next version
+ * This is the last version ! ;}
+
+
+Try my other IGM's for LORD 2
+
+ * Quester V2.00 for LORD2 A Great IGM for LORD2 1.01a+
+ Allows players to complete a quest per day that involves fighting
+ against some major enemies ! Very configurable. Bug fix + compatible
+ with other Lord II IGM's.
+
+ * Thor V1.00 for LORD2 Works with Registered or Unregistered
+ Lord II Ver 101a+ If player's kill stat 5 or above, Thor will give
+ 1 of 4 blessings. "Blessings" include Muscle, Dodge, Charm and
+ Hit Points. Special code limits one visit per day.
+
+ * COMING SOON *
+
+ Loki's Inn and Valhalla IGM's for Lord II !
+
+
+You can get these off my BBS or just E-mail me and I'll send them to you.
+Odin706@aol.com
+
+You can also get them off my website.
+http://members.aol.com/odin706/title.html
+
+������������������������������������������������������������������������������ͻ
+� ���������������������������������� Setup ����������������������������������� �
+������������������������������������������������������������������������������ͼ
+
+Setup is simple.
+
+-IF AND ONLY IF! YOU HAVE PREVIOUSLY INSTALLED VERSION 1.00 or 1.02
+Before you do anything !
+
+#1 In your Lord II directory type,
+IGM ODINKEEP.IGM
+This will uninstall the old version and restore your old world map back to
+original.
+
+#2 Follow the rest of the directions below.
+
+Install will replace four sections on the game map. Likewise Uninstall
+will restore these sections to their original state.
+
+******If you have more than one IGM installed **************************
+
+Edit ODINKEEP.IGM to find out which areas on the world map
+will be affected. Thereby you won't overwrite another IGM or Visa/Versa.
+
+*************************************************************************
+
+
+To Install :>
+
+Copy and unpack the contents of ODINK200.ZIP into an empty directory.
+
+Then Copy and unpack ODINKEEP.ZIP into your LORD II directory.
+
+Type IGM ODINKEEP.IGM
+This will install the Odin's Keep into the game.
+
+To Uninstall :<
+
+Inside your Lord II directory
+Type IGM ODINKEEP.IGM
+This will successfully uninstall Odin's Keep from your game.
+
+******IMPORTANT*********************************************************
+
+This IGM also generates (7) .idf files to keep track of players last time
+on and such.
+
+#1 - Fairy.idf
+#2 - Swim.idf
+#3 - Compadre.idf
+#4 - Lock.idf
+#5 - Guard.idf
+#6 - Drink.idf
+#7 - Tower.idf
+
+This IGM also generates (1) .txt file used for the Graffitti Wall inside
+Eric's bar.
+#6 - wall.txt
+
+******BE SURE NOT TO DELETE THESE 6 FILES!******************************
+
+
+
+
+I will not be held responsible for any mishap caused by using this IGM.
+If you find a bug let me know about it, take a little time and fill
+out the enclosed bugrpt.doc .
+
+Above all enjoy this IGM, it rocks !
+
+-oDiN
+
+������������������������������������������������������������������������������ͻ
+� ����������������������������� Acknowledgements ����������������������������� �
+������������������������������������������������������������������������������ͼ
+
+Thanks go out to :
+
+Seth Able Robinson, the creator of LORD II, for his divine help and
+suggestions.
+
+Calypso, For creating Audacity BBS, the best BBS software I've ever had
+the pleasure to use.
+
+Carlos Matos, thanks for helping me out with the spelling and routines.
+Good luck at Phillips or whereever you end up Bueno Munchacho.
+Its all good, aint nothing but a thang.
+
+Yin, For helping with the artwork.
+
+
+
+
+
+
+
+ EOF
diff --git a/xtrn/lord2/cnw/docs/order.doc b/xtrn/lord2/cnw/docs/order.doc
new file mode 100644
index 0000000000000000000000000000000000000000..a8833a28ceb41252d717992d6c1e6ea928d70887
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/order.doc
@@ -0,0 +1,43 @@
+Greetings!
+
+Hope you and your users are enjoying Seasons, and
+that you'll register your copy if you are able...
+
+The price is $3.00 plus a dollar to cover handling...
+
+BUT.....
+
+This is Ken's story, but I wanted to keep it just the way that it was.
+
+Some years ago I was deprived of the joy of the
+companionship of my daughter. (Kelly).... Since then,
+I've devoted essentially all of my community efforts
+to the well being of all children....
+
+So....
+
+Sadly, there are many, many small warriors :) in this real
+world of ours who will go without what so many of us take
+for granted over the holidays.... :(
+
+therefore, here is what I ask of you....
+
+The next opportunity that you come across to donate to one
+of the child caring charities, please give them an extra
+few dollars That way you will save the $1 Postage.. :) IE: you do
+not have to send me anything just donate to the kids. I recomend
+going to a local mall and taking a star from the tree. This is what
+my family does every year.
+
+And now, seeing I'm sure you've done it...
+
+You are registered.
+
+And may you sleep well, knowing that you've helped!
+
+The best of the season to you and to yours.
+
+and... Merry Christmas, Kelly
+
+Bryan
+
diff --git a/xtrn/lord2/cnw/docs/orphan.doc b/xtrn/lord2/cnw/docs/orphan.doc
new file mode 100644
index 0000000000000000000000000000000000000000..c2eff6b0db67e8692232ce76664de05dfe3ee32f
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/orphan.doc
@@ -0,0 +1,45 @@
+GREENTREE ORPHANAGE v1.1
+by Robby Dittmann
+
+Welcome to the latest version of MamooSoft Programming's GREENTREE ORPHANAGE!
+
+INSTALLATION:
+
+1) Make sure the files are in your LORD II directory.
+
+2) Type the following at a command prompt:
+
+ IGM ORPHAN.IGM
+
+3) Crank up LORD II and visit the orphanage!
+
+TO UNINSTALL:
+
+1) Type IGM ORPHAN.IGM again
+
+
+HISTORY:
+
+v1.0
+Original release
+
+v1.1
+Fixed a bug that caused random crashes.
+
+SPECIAL THANKS TO:
+
+Mariam Dittmann for alpha, beta, and gamma testing!
+
+
+REGISTRATION:
+
+The Greentree Orphanage is absolutely FREE. Of course, the author takes no
+responsibility for any damage or problems you may incur.
+
+Please let me know if you have any problems or questions. And let me know
+what you think!
+
+Robby Dittmann
+MamooSoft Programming
+1:133/8003
+robbyd@sprynet.com
diff --git a/xtrn/lord2/cnw/docs/owtc.doc b/xtrn/lord2/cnw/docs/owtc.doc
new file mode 100644
index 0000000000000000000000000000000000000000..393ace8e8fcafcbdd4da581830fa9b44249232a6
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/owtc.doc
@@ -0,0 +1,42 @@
+�����������������������������������������������������������������������ͻ
+� The Oracle of What's to Come v3.00 Godlike Productions �
+�����������������������������������������������������������������������ͼ
+ Welcome to my fourth LORD II IGM.
+
+ To start, I will not be held legally responsible if this program does
+ anything damaging to your computer. It wasn't designed to do so, so if
+ it does, someone messed with it!
+
+�����������������������������������������������������������������������ͻ
+� INSTALLATION �
+�����������������������������������������������������������������������ͼ
+ This is simple. Use the IGM.exe provided with LORD II and the rest
+ will work itself. This IGM is usable on th unregistered version of
+ the game. The idea was to tease non-registered users with a story so
+ they'll want to register to play further(as this will soon show areas
+ only found in the registered version). Currently some sections of the
+ IGM may not work on unregistered games.
+
+�����������������������������������������������������������������������ͻ
+� IDEA �
+�����������������������������������������������������������������������ͼ
+ I found a way using the REF language created by that god Seth(I'm butt
+ kissing, I know) to animate characters. Seeing that all pauses are
+ equal on all systems and I don't work it too much, this should work fine
+ on slower systems. The big idea was to add a more indepth story to
+ tease the players.
+
+�����������������������������������������������������������������������ͻ
+� VERSION �
+�����������������������������������������������������������������������ͼ
+ This is version 3.00 of the IGM. Is there going to be any other versions
+ of it? You bet. Storylines are meant to be attached to this IGM to
+ bring about more story to an otherwise lacking game. This IGM in itself
+ is open ended to allow me to expand on it indefinitly. Future releases
+ which may or may not happen could possibly allow for the Oracle to give
+ hints about secrets in other author's IGMs(provided I can get permission
+ to do so). This version also now works with the Inter-IGM function
+ found in all my IGMs(currently, with the exception of Time Stands Still).
+
+Written by: Tien Lung of Godlike Productions
+E-mail: tienlung@hwcn.org
diff --git a/xtrn/lord2/cnw/docs/py'spl~1.rtf b/xtrn/lord2/cnw/docs/py'spl~1.rtf
new file mode 100644
index 0000000000000000000000000000000000000000..3d0dfa9768188cf519510d5a19448b22c931e79e
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/py'spl~1.rtf
@@ -0,0 +1,124 @@
+{\rtf1\ansi\ansicpg1252\uc1 \deff11\deflang1033\deflangfe1033{\fonttbl{\f0\froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f2\fmodern\fcharset0\fprq1{\*\panose 02070309020205020404}Courier New;}
+{\f11\fswiss\fcharset0\fprq2{\*\panose 00000000000000000000}MS Sans Serif;}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;
+\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0;\red128\green128\blue128;\red192\green192\blue192;}{\stylesheet{
+\nowidctlpar\widctlpar\adjustright \f11\fs20\cgrid \snext0 Normal;}{\*\cs10 \additive Default Paragraph Font;}{\s15\nowidctlpar\widctlpar\adjustright \f2\fs20\cgrid \sbasedon0 \snext15 Plain Text;}{\*\cs16 \additive \ul\cf2 \sbasedon10 Hyperlink;}{\*
+\cs17 \additive \ul\cf12 \sbasedon10 FollowedHyperlink;}}{\info{\title Type IGM Pyramid }{\author Dennis Tolboe}{\operator Dennis Tolboe}{\creatim\yr1998\mo1\dy19\hr19\min10}{\revtim\yr1998\mo1\dy19\hr19\min10}{\version2}{\edmins0}{\nofpages3}
+{\nofwords551}{\nofchars3146}{\*\company }{\nofcharsws0}{\vern71}}\margl1319\margr1319 \widowctrl\ftnbj\aendnotes\aftnstart0\hyphhotz0\aftnnar\lytprtmet\hyphcaps0\viewkind4\viewscale100\pgbrdrhead\pgbrdrfoot \fet0\sectd \linex0\endnhere\sectdefaultcl
+{\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang{\pntxta .}}{\*\pnseclvl2\pnucltr\pnstart1\pnindent720\pnhang{\pntxta .}}{\*\pnseclvl3\pndec\pnstart1\pnindent720\pnhang{\pntxta .}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang{\pntxta )}}{\*\pnseclvl5
+\pndec\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}{\*\pnseclvl6\pnlcltr\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}{\*\pnseclvl7\pnlcrm\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang
+{\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang{\pntxtb (}{\pntxta )}}\pard\plain \s15\nowidctlpar\widctlpar\adjustright \f2\fs20\cgrid {
+\par
+\par Type IGM Pyramid .IGM
+\par
+\par If, as I'm sure many of you do, you have other IGM's installed and overwriting
+\par the ITEMS.REF or ITEMS.DAT would delete THEIR data, you must install the
+\par following manually:
+\par
+\par (ITEMS.REF)
+\par
+\par ;---The Following is used by Pyramid.REF
+\par @#Ankh
+\par ;Ankh
+\par @routine Ankh in Pyramid.REF
+\par @drawmap
+\par @update
+\par
+\par
+\par (In the Item Editor)
+\par
+\par LORD II ITEM EDITOR editing item (98 of 99)
+\par (A) Name of the item : Pharaoh\rquote s Armour
+\par (B) Action string :
+\par (C) Used as armour? : yes
+\par (D) Used as weapon? : No
+\par (E) Can be sold? : No
+\par (F) Ref, If "Usable"? :
+\par (G) Use string :
+\par (H) Gold value :
+\par (I) Used only once? : No
+\par (J) Breaks 1 out of : Never breaks.
+\par (K) Description : Old but strong (+350)
+\par (L) Weapon Strength : 0
+\par (M) Armour Defence : 350
+\par (N) Quest item? : No
+\par (*) Show all items.
+\par ([) Go back an account
+\par (]) Go forward an account
+\par (Q) Quit
+\par
+\par
+\par LORD II ITEM EDITOR editing item (97 of 99)
+\par (A) Name of the item : Ankh
+\par (B) Action string :
+\par (C) Used as armour? : No
+\par (D) Used as weapon? : no
+\par (E) Can be sold? : No
+\par (F) Ref, If "Usable"? : Ankh
+\par (G) Use string : Rub the Ankh
+\par (H) Gold value :
+\par (I) Used only once? : No
+\par (J) Breaks 1 out of : Never breaks.
+\par (K) Description : Its old.
+\par (L) Weapon Strength : 0
+\par (M) Armour Defence : 0
+\par (N) Quest item? : No
+\par (*) Show all items.
+\par ([) Go back an account
+\par (]) Go forward an account
+\par (Q) Quit
+\par
+\par --------------------
+\par
+\par The Ankh is a transport device to go to Pyramid\rquote s Place any time they want.
+\par And it\rquote s somewhat hard to find. I have some armour in it seems a little
+\par cheap but its hard to find because you can only try once a day pulse you have
+\par to have 600 quest points and if they go back to try to get a second then all of the Pharaoh\rquote s armours are taken away. The rooms in Pyramid\rquote s place are nice because they have a r
+oom in where only the owner can enter in there. In the privet room there is a special transporter and a treasury.
+\par
+\par When you talk to pyramid there are several things you can do like look for the items or do other things in including conduct business and tha
+t was hard to do with Spring Fangs House of Wonders so I have created a .ref so you can easily change it. If you have SFHOW then do goto coquest (DO NOT RENAME IT TO QUEST)
+\par It should be like this if you have SFHOW.
+\par
+\par @#quest
+\par @do `p20 is 8
+\par @run quest in quest.ref
+\par And if you don\rquote t it needs to be like this
+\par
+\par @#quest
+\par @do `p20 is 7
+\par @run quest in quest.ref
+\par
+\par Now there are two. refs that are named pquest.ref and psquest.ref now one of these has to be used. If you have SFHOW then rename the original to oquest or wha
+t ever in case you want to get rid of my IGM then rename psquest (standing for Pyramid Spring) to quest, and hang on to pquest incase you want to get rid of SFHOW. If you don\rquote
+t have SFHOW then just rename the first quest to something and rename pquest to quest.ref. If it\rquote s a little hard to understand just e-mail me at }{\field\fldedit{\*\fldinst { HYPERLINK mailto:Pyramid_@hotmail.com }{{\*\datafield
+00d0c9ea79f9bace118c8200aa004ba90b02000000170000001500000050007900720061006d00690064005f00400068006f0074006d00610069006c002e0063006f006d000000e0c9ea79f9bace118c8200aa004ba90b380000006d00610069006c0074006f003a0050007900720061006d00690064005f00400068006f00
+74006d00610069006c002e0063006f006d0000000000000000}}}{\fldrslt {\cs16\ul\cf2 Pyramid_1@geocities.com}}}{.
+\par
+\par -----------------------
+\par
+\par Files it creates (don't touch):
+\par
+\par Pharaoh.IDF -- used to tell if a user has tried to find Armour or not
+\par Py\rquote s.IDF \endash - used to see if a user has talked to the Pharaoh
+\par (Only if you install the other IGM)
+\par
+\par (delete when reset game)
+\par Pys.DAT -- used to tell if a user has the Pharaoh\rquote s armour
+\par Ankhp.DAT -- used to tell if a user has the Ankh or not
+\par Pyr4.DAT \endash - Pyramid\rquote s room
+\par Pyr5.DAT \endash - Pyramid\rquote s room
+\par Pyr6.DAT -\endash Pyramid\rquote s room
+\par Pyr7.DAT \endash - Pyramid\rquote s room
+\par Pr4.DAT \endash - Pyramid\rquote s room Tresery
+\par Pr5.DAT -- Pyramid\rquote s room Treasury
+\par Pr6.DAT -- Pyramid\rquote s room Treasury
+\par Py7.DAT -- Pyramid\rquote s room Treasury
+\par
+\par
+\par
+\par If you have any questions, e-mail me at Pyramid_1@geocities.com or at, or at The Loose Screw BBS User name Pyramid
+\par (801) 561-4780...
+\par
+\par
+\par }\pard\plain \nowidctlpar\widctlpar\adjustright \f11\fs20\cgrid {
+\par }}
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/docs/qbugrpt.doc b/xtrn/lord2/cnw/docs/qbugrpt.doc
new file mode 100644
index 0000000000000000000000000000000000000000..f3af7d93bdd9aa88366ecd6ef031115baf131d5a
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/qbugrpt.doc
@@ -0,0 +1,5 @@
+Give me some feedback on what went wrong !!!!!
+
+Send it to me via Internet to Odin706@aol.com
+
+What Happened >>>>
diff --git a/xtrn/lord2/cnw/docs/quester.doc b/xtrn/lord2/cnw/docs/quester.doc
new file mode 100644
index 0000000000000000000000000000000000000000..edae352641b747e9570d0c75bab75b467a38b78e
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/quester.doc
@@ -0,0 +1,227 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+ -=- Quester -=-
+
+ A Lord II InterGame Module
+ Written By: Peter Jackson
+ A.K.A. ... oDiN
+ BBS - 706-613-3577
+ Internet-Odin706@aol.com
+
+ Version 2.01
+ (c)1997 AEsir Software
+
+
+
+
+
+
+
+ FILES INCLUDED:
+
+ QUESTER.REF <- Main REF
+ MAJIC.REF <- Sysop editable REF
+ BAT.REF <- Sysop editable REF
+ SPIDER.REF <- Sysop editable REF
+ UNDEAD.REF <- Sysop editable REF
+ GOBLIN.REF <- Sysop editable REF
+ FILE_ID.DIZ <- Used by BBS's
+ DONATE.DOC <- Info on donating.
+ QUESTER.DOC <- Setting it up and general info
+ QBUGRPT.DOC <- Report flaws to me
+
+
+������������������������������������������������������������������������������ͻ
+� ����������������������������������� Index ���������������������������������� �
+������������������������������������������������������������������������������ͼ
+
+ Part 1 -=-=- Introduction and description
+ Part 2 -=-=- Setting it up
+ Part 3 -=-=- Acknowledgements
+
+
+������������������������������������������������������������������������������ͻ
+� ������������������������������ Introduction �������������������������������� �
+������������������������������������������������������������������������������ͼ
+
+
+This IGM was written for use with LORD II version 1.01a+ ONLY it will not
+work with lower versions. This is not an IGM that is too giving, but
+can be altered by you to your specifications.
+
+The first time I uploaded this IGM to the Official Lord II web site the
+review was not very good. Because my IGM would overwrite a handful of
+other IGM's. So I changed it and fixed a few bugs. Now it will be
+compatible with other IGM's. :)
+
+Quester allows your players to complete only 1 quest per day. The quest
+involves fighting your way through a bunch of monsters to a "King" monster
+which once defeated the quest will be completed. There is a reward at the
+end of the quest only if the "King" monster has been defeated.
+
+There are 5 different quest screens in the game. 1 of these 5 screens is
+chosen randomly and the quest begins.
+
+After the release of Odin's Keep V2.00 I was inspired by a friend to
+write another IGM. The inspiration came from a program that he had
+written for Legend of the Red Dragon. This program allowed the sysop
+to set certain variables that would control the amount of "prizes"
+that the player recieved from any IGM. Thus fixing the buggy
+IGM problem that many of us sysop's have faced.
+
+So I set out to make an IGM for LORD II that the sysop could control, to
+suit his/her own game.
+
+Quester uses 5 seperate REF files that can be edited by the sysop, to adjust
+the level of difficulty for the players.
+
+They are as follows :
+
+SPIDER.REF
+BAT.REF
+MAJIC.REF
+UNDEAD.REF
+GOBLIN.REF
+
+All files above are neccessary to play the game and you must be careful
+when editing them. I would suggest copying them to a seperate directory
+before you edit. They are easy to understand and edit. Be sure not to
+change the main "flow" of the ref. For instance you wouldn't want to change
+a spider in spider.ref to an elephant or something. :>
+Stick to editing the values such as Defense, Weapon Strength, etc. of the
+monsters to adjust the difficulty. You don't neccessarily have to edit them.
+
+New in Version 2.00
+
+I added a swimming pond, and moved the IGM screens around to make this
+IGM compatible with other Lord II Igm's. Also did some work on the routines
+and artwork.
+
+New in Version 2.01
+
+Fixed bug that would allow players to blow their flute inside Quester
+and complete an infinite amount of quests. Thanks to Gangster of Love for
+this Bug fix.
+
+Above all have fun and enjoy it. I know your players will !
+
+Try my other IGM's for LORD 2
+
+ * Odin's Keep V2.01 - Own the legendary Keep.
+ Comes fully stocked with your own pet dragon, healer, Swimming Pool
+ and much more. New this version - Bar with male and female companions,
+ weapons and armour dealers, etc. Redesigned Artwork + bug fix
+
+ * Thor V2.01 - Works with Registered or Unregistered LordII Ver 101a+
+ If player's kill stat 5 or above, Thor will give 1 of 4 blessings.
+ "Blessings" include Muscle, Dodge, Charm and HitPoints. Special code
+ limits one visit per day.
+
+ * COMING SOON *
+
+ Loki's Inn & Valhalla Igm's for Lord2
+
+You can get these off my BBS or just E-mail me and I'll send them to you.
+
+You can also get them off my website.
+http://members.aol.com/odin706/title.html
+
+
+Let me know what you think about Quester. Drop a line to me at...
+
+Odin706@aol.com
+
+
+������������������������������������������������������������������������������ͻ
+� ���������������������������������� Setup ����������������������������������� �
+������������������������������������������������������������������������������ͼ
+
+Setup is simple.
+
+****IMPORTANT*****
+If you have installed Quester Version 2.00
+Before you unpack the new Quester.zip be sure to remove the old version
+of Quester by typing IGM QUESTER.IGM
+******************
+
+Install will replace 7 sections on the game map. Likewise Uninstall
+will restore these sections to their original state.
+
+******If you have more than one IGM installed **************************
+
+Edit QUESTER.IGM to find out which areas on the world map
+will be affected. Thereby you won't overwrite another IGM or Visa/Versa.
+
+*************************************************************************
+
+To Install :>
+
+Copy and unpack the contents of QUEST201.ZIP into a empty directory.
+Then Copy and unpack Quester.zip into your LORD II directory.
+
+Type IGM QUESTER.IGM
+This will install Quester into the game.
+
+To Uninstall :<
+
+Inside your Lord II directory
+Type IGM QUESTER.IGM
+This will successfully uninstall Quester from your game.
+
+******IMPORTANT*********************************************************
+
+This IGM also generates (5) .idf files to keep track of players last time
+on and such.
+
+#1 - Quest.idf
+#2 - Quest1.idf
+#3 - Quest2.idf
+#4 - Gira.idf
+#5 - Swimb.idf
+
+******BE SURE NOT TO DELETE THESE FILES!********************************
+
+To test it out, from GreenTree go north towards Porttown at the
+pawn shop (North GreenTree) screen, go west to (Forest with small
+Mountain) screen, go North to (Tiny Lake) screen. You're there !
+
+
+
+I will not be held responsible for any mishap caused by using this IGM.
+If you find a bug let me know about it, take a little time and fill
+out the enclosed bugrpt.doc .
+
+
+������������������������������������������������������������������������������ͻ
+� ����������������������������� Acknowledgements ����������������������������� �
+������������������������������������������������������������������������������ͼ
+
+Thanks go out to :
+
+Seth Able Robinson, the creator of LORD II, for making the game.
+
+Calypso, For creating Audacity BBS, the best BBS software I've ever had
+the pleasure to use.
+
+Juan Diaz, thanks for helping me out with the spelling and routines.
+
+Gangster of Love, for the inspiration and the bug fix
+
+
+
+
+
+
+
+ EOF
diff --git a/xtrn/lord2/cnw/docs/read_me.txt b/xtrn/lord2/cnw/docs/read_me.txt
new file mode 100644
index 0000000000000000000000000000000000000000..e6d66afa99f1f771b297d8c51f50af8cc2164add
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/read_me.txt
@@ -0,0 +1,4 @@
+The Gypsy Encampment for LORD2 Ver 7+
+
+Please see the Gypsy.Igm for all Information
+about this IGM
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/docs/readme b/xtrn/lord2/cnw/docs/readme
new file mode 100644
index 0000000000000000000000000000000000000000..e5c47e0d409e73881d5c110d2ae9203ce5168f53
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/readme
@@ -0,0 +1,62 @@
+NOTES ON OCEAN ADVENTURE 1.00 IGM FOR LORD2
+
+Hi, this is my first IGM written for distribution!
+
+A special note of thanks to Jim Wilson, author of Mimsic Isle IGM, for his
+idea of temporarily borrowing an unused byte variable for doing bitchecks.
+=============================================================================
+
+:Possible Bugs
+
+- I haven't tested it in multi-player node, so I hope the @BUSY and @OFFMAP
+commands are used correctly.
+
+- This IGM uses LOTS of blocks already used by other IGMs. <sigh>
+Unfortunately, there's nothing I can do about it. The blocks used are the
+ones dictated by the geographical necessity of creating sea lanes linking the
+major ports.
+
+- Yes, I tried incorporating the two Ansi screens directly into the .REF, and
+it kept bombing out with an error message. Keeping them external and using
+the @DISPLAYFILE command was the only way I could get it to work. They may be
+just too darn big.
+
+=============================================================================
+:Suggestions for stuff to be changed?
+
+-The monster stats were more or less picked out of a hat; so if anyone feels
+those should be adjusted, I have no quarrel there.
+
+-Ditto, the final warp destination choices after defeating the Kraken were
+pretty much arbitrary. If anyone has better suggestions, then by all means.
+
+-The aftermath of the final battle now seems pretty anti-climatic. Any ideas
+on how that might be improved, or made the culmination of a quest?
+
+-Currently, the Castaway and Kraken battles are one-win only, just like the
+fight with Tash. But should I change that? (I love those Ansi's!). I was
+debating whether to have the Kraken battle be repeatable so that players
+could use that as a central warping point.
+
+=============================================================================
+:Game Continuity Issues
+
+-I had to remove two hotspots from the game in order to comply with the
+maximum of ten hotspots per screen. Sosen Village now has only one exit (big
+deal). In PortTown, I had to eliminate the random messages from the
+bystander; that was the only hotspot that wasn't indispensable.
+
+-I deliberately chose high monster/random ratios for the screens. First for
+fun, secondly because I wanted to be able to gain and lose alignment faster.
+That and the large number of gems available per day were intended for players
+who've completed most of the conventional game already. If anyone feels this
+disturbs the continuity of the game too much, I suppose those can be toned
+down.
+
+-I didn't think making DragonTooth Island accessible would disturb the game.
+Evil players can get there anyway, and good players can't get past the castle
+gate. Again, let me know if anyone feels that changes the game too much.
+
+-Wackstick users can easily cheat on getting past the checkpoints on the
+docks for whether you own the pontoon boots; but it's more fun if you dont.
+
diff --git a/xtrn/lord2/cnw/docs/readme.1st b/xtrn/lord2/cnw/docs/readme.1st
new file mode 100644
index 0000000000000000000000000000000000000000..6e37d1e362c0df1a35e0a4984549ca9b81fefb0b
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/readme.1st
@@ -0,0 +1,80 @@
+This is the Beta 1.02 version of the Externally Defined Items package
+for Lord2
+Externally Defined Items package by Michael Hutson
+Lord2 by Seth Able
+............................................................................
+
+REVISION HISTORY:
+ 1.00: original raw version
+ 1.01: adds batch files to automate installation of external items.
+ 1.02: All-automatic configuration of Lord2 to work with external items.
+............................................................................
+
+QUICK INSTALLATION INSTRUCTIONS
+1. Unzip extitem3.zip in your Lord2 directory
+
+2. At the DOS prompt in your Lord2 directory, type addext99.exe. You should
+get a message confirming that Lord2 is now configured to use external items.
+
+3. Once steps 1 & 2 have been done, you can add IGMs that use external items
+to your Lord2 game. To add the example IGM included with this package, type
+sorry.bat at the DOS prompt in your Lord2 directory. To add the Blizzard IGM,
+type blizzard.bat.
+.............................................................................
+
+The file EXTITEMS.ZIP should unzip to the following files, falling into
+three categories:
+
+ - information files explaining how everything works
+ * the basic, vital files needed to run the package
+ + example files used to demonstrate the package
+
+- README.1ST| you're reading it
+
+- EXTITEMS.DOC| What the Externally Defined Items package is, instructions
+ for installing it, and how IGM writers can write .REFs to use it.
+
+- DEVELOPR.DOC| a file containing heavily annotated copies of ITEM99.REF,
+ INSTALL.REF and DEINSTAL.REF explaining exactly what each line of the
+ scripts are doing; for use by programmers in examining and debugging the
+ External Items package.
+
+The following files are the 7 main files of the package:
+
+* ADDEXT99.EXE
+* EXTITEMS.DAT
+* EXTITEMS.IDF
+* DEINSTAL.REF
+* EXTITEMS.REF
+* INSTALL.REF
+* ITEM99.REF
+
+And then the following files are included to demonstrate the use of
+externally defined items:
+
++ SORRY.BAT| automates installation of SORRY.IGM and it's external items.
+
++ SORRY.REF| A .REF file containing examples of how an IGM writer can define
+ an external item to be used in Lord2, give that item to a character, use
+ the item, and remove the item again.
+
++ SORRY.DAT| A single screen (map north of Greentree) containing hotspots
+ demonstating use of external items.
+
++ SORRY.IGM| Script file for installing replacement map with IGM.EXE
+
++ GUM.IDF| an index file used to determine how many of that item each player
+ has.
+
+LATE ADDITION!: Also included is the BLIZZARD IGM by Michael Hutson, the
+first "real" IGM written to use an externally defined item.
+
++ BLIZZARD.BAT
++ BLIZZARD.IGM
++ BLIZZARD.REF
++ BLIZZARD.DAT
+.............................................................................
+
+Please E-mail any comments or questions to: MikeHutson@juno.com
+If you need to send attached files, use the alternate address:
+lumpenprole@kerowyns-haven.com
diff --git a/xtrn/lord2/cnw/docs/readme.6 b/xtrn/lord2/cnw/docs/readme.6
new file mode 100644
index 0000000000000000000000000000000000000000..a9073139e6d8b612b744774766a959a112179e4b
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/readme.6
@@ -0,0 +1,30 @@
+Last updated: 04/01/98
+By: Mike Freeman for AuSSie Creations Inc.
+
+A NOTE ABOUT VERSIONS & UPGRADES
+================================
+This version of Global Registries will be the last version available for
+download from the Lord II home page. All future versions, including all other
+software released by Aussie Creations Inc., will be available for download
+only from our home page at: http://home.att.net/~aussie.mfreeman/home.htm.
+
+Initial release of a new module released by us, for the first time only, will
+of course be downloadable from the Lord II home page, but any further updates
+will only be made available from our home page. Please visit our home page
+often for the latest release of our software.
+
+INSTALLATION & UPGRADES
+=======================
+For users upgrading to the latest version of Global Registries please read
+UPDATE.DOC found in this archive
+
+For Sysop installing Global Registries for the first time please read
+REGISTRY.DOC also found in this archive.
+
+Question and Comments regarding this software can be addressed to me from my
+home page.
+
+(Happy Coding mate!)
+
+Mike Freeman (AuSSie Creations)
+
diff --git a/xtrn/lord2/cnw/docs/readme.doc b/xtrn/lord2/cnw/docs/readme.doc
new file mode 100644
index 0000000000000000000000000000000000000000..5822b0c2e6b3b3c9770b19d26d9358680b0efad8
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/readme.doc
@@ -0,0 +1,21 @@
+LORD2: New World V1.01 FULL INSTALL
+
+For info on how to buy a registration code in minutes over the phone by
+visa/mastercard check the REGISTER.DOC file.
+
+For installation instructions check the SYSOP.DOC file.
+
+To play locally right now, run LOCAL.BAT.
+
+To see what is new since V1.00 check whatsnew.doc.
+
+HOW TO UPGRADE FROM A PREVIOUS VERSION:
+
+* Unzip over the old directory. You will need to reinstall any addons
+ or IGM's. If you do NOT want to lose your IGM addons, please download the
+ V1.00 to V1.01 service pack upgrade from our website.
+
+ -Seth (sethable@rtsoft.com)
+
+ Hit www.rtsoft.com to see if a later version is out and to check out the
+ LORD2 IGM/NEW WORLDS page!
diff --git a/xtrn/lord2/cnw/docs/readme.ice b/xtrn/lord2/cnw/docs/readme.ice
new file mode 100644
index 0000000000000000000000000000000000000000..9997296b174afc44b9433da87c66aa4a650f8d9c
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/readme.ice
@@ -0,0 +1,3 @@
+Please edit ICELORD.IGM for the install instructions. Thanks for Trying
+out IceLord Keep (tm)!!!
+
diff --git a/xtrn/lord2/cnw/docs/readme.now b/xtrn/lord2/cnw/docs/readme.now
new file mode 100644
index 0000000000000000000000000000000000000000..9905641670942e517f3bd3a8b4b2d68816f30d37
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/readme.now
@@ -0,0 +1,30 @@
+To install :
+move or copy file SYSOP.ZIP to LORD2 directory
+change to lord directory
+unzip it by typing PKUNZIP sysop.zip
+THEN to make it a pert of your lord2 game
+TYPE:
+ IGM SYSOP.IGM
+
+IF you ever want to uninstall it just retype
+ IGM SYSOP.IGM
+
+This Igm is A castle and dungeon escape route which
+just may give users a little more respect for the
+All Mighty SYSOP and his/her ROYAL GUARD....or not
+
+Its Freeware but if you like it, or find bugs, write
+me at
+ D_KINNEY@JUNO.COM
+ or
+ DON KINNEY at 1:105/24.14 (fidonet)
+ or
+ DON KINNEY
+ PO BOX 161
+ BANKS OREGON 97106
+and maby ill be inspired to write more stuff.
+
+You MAY use this in your own igms/worlds as long
+as you give ME credit somewhere for my contribution.
+
+THIS is my first igm ...
diff --git a/xtrn/lord2/cnw/docs/readme.txt b/xtrn/lord2/cnw/docs/readme.txt
new file mode 100644
index 0000000000000000000000000000000000000000..7d39fb789b7c983d27aaed91ddd9cb6448add40e
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/readme.txt
@@ -0,0 +1,37 @@
+ Cool TeamLORD v 1.30
+ Copyright (C) Coolhouse
+ -------------------------------------
+ This great IGM adds 5 TeamHouses over the world, but overwrites Castles and Wizard's
+ tower, so don't install this if you don't want to loose your castles.
+
+ If you think its boring to play LORD][ over and over then you should install this.
+
+ This IGM overwrites 8 screens and adds 2.
+
+Help
+-----
+You can buy TEamHouse just like other houses/castles. When you own teamhouse, you must
+change teams name and password. Next go and train your pet Dragon.
+Every time when somebody(not owner) enters house he/she must enter a password
+or attack team's pet Dragon.
+When training your dragon, remember that when it dies it looses its defense and strenght.
+
+
+
+ NEW!!
+----------
+
+1.3 real bugfix
+
+1.2 Adds chatwall and healer
+
+1.1 bugfix
+
+1.0 Dosen't work
+
+
+ BUG REPORT!
+----------------
+This version is still beta version so if you find a bug please mail me about it
+
+e-mail: latex@death-star.com
diff --git a/xtrn/lord2/cnw/docs/readme2.now b/xtrn/lord2/cnw/docs/readme2.now
new file mode 100644
index 0000000000000000000000000000000000000000..5b2f6c52128c4d74dd2103a8f5b6ee7fdb0e2310
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/readme2.now
@@ -0,0 +1,68 @@
+
+
+ <==[ MYTHRANS COTTAGE v1.12 ]==>
+
+
+==> QUICK INSTALLATION <==
+
+copy all the files in this archive to your lord2 directory, then in the lord2
+directory run MYTHRAN.BAT
+
+to uninstall, run MYTHRAN.BAT
+
+==> NEAT INSTALLATION <==
+
+delete the following files, then copy *.* to your lord 2 directory
+(assuming this igm is in its own directory right now)
+
+FILE_ID.DIZ
+README.NOW
+
+then run MYTHRAN.BAT
+
+==> UN-INSTALLATION <==
+
+Simply run MYTHRAN.BAT for the second time.
+
+==> ABOUT <==
+
+ when I first played lord 2, I fell in love with it right away. I am a huge
+ rpg fan and I decided to contribute to this great game by making an IGM.
+
+==> FREQUENTLY ASKED QUESTIONS <==
+
+ Q: hey, I found a bug! now what?
+ A: tell me! my email is : fcc_fear@hotmail.com , or you can send me some mail
+ on the gooses nest (in brissy, aus) +61-7-3217-2532
+
+ Q: isn't mythran a character from ultima 8 : pagan?
+ A: he sure is.
+
+ Q: hey, I think this igm is so cool I feel the urge to give free money!
+ A: well, I dont want any. donate it to some starving children or something..
+
+ Q: hey, why didnt you compile.exe the bastard?
+ A: so people can LEARN off my script - you can do a bit of cut-and-pasting
+ if you want to. (If you do please give me some credit! :)
+
+ Q: will you be releasing any more igms?
+ A: that is a definite yes. I am also working on a new world, and a .ref that
+ lets you choose between worlds when you first start playing the game (so
+ a player can DIE in one world, then start playing in another world as a
+ completely different character). It will manage all the files and
+ maintanence and stuff. this is a very small IGM, but I only really did
+ this as a learning point.
+
+=> CREDITS <=
+
+ thanks go out to goose, no teeth, and seth for writing such awesome doors.
+ (although teos was a bit of a flop. but we won't go into that.)
+
+ author's email: fcc_fear@hotmail.com
+
+=> DISCLAIMER <=
+
+ If this file damages your machine it is not my responsibility. When it left
+ here it was clean as a whistle, so dont come knocking on my door if you start
+ shitting and vomiting at the same time - thanks.
+
diff --git a/xtrn/lord2/cnw/docs/readme2.txt b/xtrn/lord2/cnw/docs/readme2.txt
new file mode 100644
index 0000000000000000000000000000000000000000..0f6a454206b385cb4bbf79280fa4c8e83b96795c
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/readme2.txt
@@ -0,0 +1,3 @@
+Before you install the new version of Q's Fortress be sure
+that you uninstall any previous versions of this igm, if you
+already have it, as a precaution against bugs or other errors.
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/docs/readme3.now b/xtrn/lord2/cnw/docs/readme3.now
new file mode 100644
index 0000000000000000000000000000000000000000..5b9827894e6a955a1b6ee518d9436ccb26e58c61
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/readme3.now
@@ -0,0 +1,66 @@
+
+ ������ ReD DRaGoN ToWN v1.0 ��۲��
+ ViSiT BaCK L.O.R.D.1 iN LORD 2!!
+
+
+ What is "RED DRAGON TOWN"!? Well... if you miss the good'ol Town from LORD1
+ then here's your chance to see it in true ANSi for the first time! Yes,
+ I am the first to have re-created the town from LORD1 in LORD2 ... so if
+ you ever see another town from LORD1... it's a RipOff or the guy didn't see
+ >>MY<< Version yet! Newayz, everything is there (other than the people)!
+ The famous RED DRAGON INN is still up and running... Violet was replaced
+ by her daughter... HONEY... the sexy blond beauty (ANSi by AP btw...),
+ you can visit the famous "FOREST" (Where you can encounter Level 1 monsters
+ from LORD1... or kinda...) and much more! I hope you will consider
+ installing "RED DRAGON TOWN"! It's currently my 3rd IGM I ever made and in
+ my opinion... THIS IS MY BEST IGM EVER!!!
+
+ Newayz... the next Version ain't really gonna be comming for awhile! I've
+ been promising both: "THE FLOATING ISLAND" and "MOON PALACE" for quite
+ awhile and I keep doing other Projects (Like this one for exemple!).
+ Just so you won't be surprised... "THE FLOATING ISLAND" is probably never
+ gonna come out... I've turned that IGM into "SETZER'S AIRSHIP" since I've
+ been getting >>ALOT<< of Comments on how good I am at Final Fantasy related
+ IGMs...
+
+ Tsunami - You've done a REALLY great job (in figaro castle)
+ Shadow Lord - Your LORD2 igms are really awesome!
+ Avalanche - You're alot better than that Colorado guy! Hehehehehehe!
+
+
+ Newayz, I doubt you read all that up there, but I'm not removing it cuz
+ I used a little bit of time typing that up... not that anyone actually
+ read this newayz... aw well... if you do, THANX ALOT!!! Ooh and I'm
+ gonna make the README.NOW alot nicer in the Futur versions... I just have
+ nothing much to say! =)
+
+ The next version is probably gonna be UPDATES in the FOREST... since it's
+ quite useless at the moment... do not worry... the DARK CLOAK TAVERN will
+ be open and you'll be able to chat around with OLIVIA... but in the mean
+ time... PLEASE WAIT!!! I've been working for 3 days already, trying to
+ make the INN perfect and AWESOME... and if KooK ain't busy again, I'm
+ gonna ask if he could make me another INSTALLATION PROGRAM for this
+ IGM... cuz if you checked "FIGARO CASTLE"'s Installation (WHICH KICKS!!!)
+ you'll surely enjoy THIS ONE!!! hehe...
+
+
+ VooDoo KnighT - President/Coder/Ansi Artist for KNiGHTSoFT
+ HomePage: http://www.angelfire.com/ks/knightsoft/index.html
+ Email: knightsoft@hotmail.com
+ BBS: MisTy MounTainS BBS +1(514)461-3460
+
+
+ P.S. Sorry for any spelling mistakes... it's currently: 1:06AM and I wanna
+ distribute this .ZIP ASAP! =)
+
+ aNoTHeR oF 514'S BeST BBSes
+ ������ �������vk
+ ����������� ܲ � � ��ܲ �
+ ��� ����� ��߲������ ��� ����� � THiS FiLe WaS DoWNLoaDeD FRoM THe
+ � ܲ�� ܲ� ����ݲ��� ��߲��� � MisTy MounTainS BBS +1(514)461-3460
+������ ��� ������� �� ��۲ �� 3 AD&D Campaigns - HUGE RPG ARCHIEVE
+� ���� ��۲�۲� ���� � RealmNet, QualityNet & CRaZyNeT
+� ���� � �������� ���� �� **THE BIGGEST RPG BBS IN MONTREAL**
+� �߲��� � ܲ�߲���� � ������ �
+ ��������� ����� �� � ��� �� (514)461-3460.(514)461-3460.(514)461-3460
+ ������� �������
diff --git a/xtrn/lord2/cnw/docs/readme3.txt b/xtrn/lord2/cnw/docs/readme3.txt
new file mode 100644
index 0000000000000000000000000000000000000000..81faad938f0e61deeabbe13655a7c3bb9fcc69df
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/readme3.txt
@@ -0,0 +1,9 @@
+SandCity is brought to you by:
+
+Mayhem BBS - AND - KEVCO Enterprises
+
+Created by Dozer of Mayhem BBS
+
+Please e-mail any comments to:
+
+kbrown@visinet.ca
diff --git a/xtrn/lord2/cnw/docs/readme4.doc b/xtrn/lord2/cnw/docs/readme4.doc
new file mode 100644
index 0000000000000000000000000000000000000000..d67f33d3a1d163f151ab04836ebf518da3431dfc
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/readme4.doc
@@ -0,0 +1 @@
+Please read Rose.Igm for install instructions. Thanks, Elric.
diff --git a/xtrn/lord2/cnw/docs/refhelp.doc b/xtrn/lord2/cnw/docs/refhelp.doc
new file mode 100644
index 0000000000000000000000000000000000000000..ee5e4e8bf0e7190420863abd85eb5318d0389d60
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/refhelp.doc
@@ -0,0 +1,679 @@
+MARCH-12-2001
+
+ ******* HOW TO MAKE YOUR OWN REF FILES FOR LORD II *******
+
+ For LORD II:New World v1.02
+
+ Redone & Updated by Joel Gathercole
+ telnet://greenmachinebbs.com
+ http://greenmachinebbs.com/lord2
+
+ Visit http://lordlegacy.org for the latest LoRD2 package.
+
+ Check 3rdparty.doc for more IGM developer info.
+
++------------------------------INTRODUCTION----------------------------------+
+
+-FROM JOEL-
+Finally this REF help file gets updated. This file has been updated for
+the new LoRD2 v1.02 and later. I've also included quite a bit of previously
+'undocumented' commands. I hope this doc helps you create some good IGMs
+for LoRD2.
+
+Some rules that the developer of LoRD2 agrees with for the NEW WORLD IGMS:
+
+ - LoRD2: New World IGMS -
+
+DO NOT USE ANY VARIABLES FOR YOUR OWN DATA. USE .IDF AND .DAT FILES AS OFTEN
+AS POSSIBLE. YOU SHOULD NOT NEED TO EVEN USE EXTRA VARS. THEY ARE BEING
+RESERVED FOR THE BASE GAME ITSELF. WHEN YOU USE THESE VARS, YOU CAUSE
+CONFLICTS WITH OTHER IGMS AND IN GAME VARS THAT YOU MAY NOT KNOWN ABOUT.
+
+FOR NEW ITEMS THAT GO WITH YOUR IGM, PLEASE USE AND UNDERSTAND THE EXTITEMS
+PROCEDURES, AS ALL ITEM (`i) VARS WILL BE USED FOR THE BASE GAME AS WELL.
+REFER TO EXTITEMS.REF FOR HELP ON ADDING NEW ITEMS. YOU MAY USE YOUR OWN
+NEW REF FILE SO IT DOES NOT OVERWRITE THE ORIGINAL EXTITEMS.REF WHICH ALSO
+MAY WRITE OVER OTHER IGMS ITEMS.
+
+I, plan to fix and re-release every outdated/unsupported IGM out there to
+abide by these new rules of thumb for NEW WORLD IGMs.
+I am also looking for help on updating these old IGMs, we could put a team
+together to get this done much faster.
+
+My Other TIPS I hope you will follow:
+ - Please do NOT use those tree ascii/ansi codes! they are ugly and are
+ not supported by many cheap terminals, including the telnet java applet
+ which has been picking up popularity recently.
+ - Also do not use the other low end ascii codes, such as:
+ -spades
+ -hearts
+ -diamonds
+ -clubs
+ -That large fancy star (not even supported in MTelnet!)
+ for the same reason.
+
+
+-FROM ORIGINAL AUTHOR (SETH)-
+The heart of this system is the .REF format. It is a script language that
+can be used to do complex gaming things, like math and getting random
+numbers, adding and deleting other varibles in the game - nearly
+everything a simple basic could do.
+
+REF is short for - Relay Execution File? Reference File? Who cares!
+
+Although tricky at first, making a ref file is really pretty simple. If
+something doesn't work, just go look at your .REF file, (a simple text
+file) and fix it! The .ref language will tell you at runtime about
+words it doesn't understand or syntax errors.
+
+ To see a demonstration of most commands, edit LORD II's .ref files.
+
++------------------------------REF FEATURES----------------------------------+
+
+ * If a command isn't understood, it will tell you upon execution
+ * .REF size is limited by conventional memory
+ * REF files are completely loaded, and interpreted BEFORE execution for
+ speed
+ * Allows BEGIN and END statements, thousands of levels deep
+ * Ansi and SethAnsi (eg. `1) are automatically displayed correctly
+ locally and remotely
+ * They can save and write their own data
+
++-----------------------------VARIABLES--------------------------------------+
+
+
+ NOTE: If the following are found in a string being displayed they
+ will be replaces with their values:
+
+`V01 through `V40 These are the 40 GLOBAL longint varibles. (for numbers)
+`S01 through `S10 These are 10 GLOBAL string varibles. (for text)
+`P01 through `P99 These are the 99 player longint varibles. (for numbers)
+`T01 through `T99 these are 99 player byte varibles. (255 max)
+`I01 through `I99 these are the 99 player integer item varibles. 32000 max)
+`+01 through `+99 - Same as above, but shows the item NAME, not amount.
+
+`v05 and `p11 are reserved if you wish to use LORD2's 'limited movements'.
+
+x (players x cordinates)
+y (players y cordinates)
+map (players current block #)
+dead (1 is player is dead)
+sexmale (1 if player is male)
+narm (current armour #) <-- Does this really exist?
+nwep (current weapon #) <-- Does this really exist?
+money (players moola)
+bank (moola in bank)
+enemy (force `e (last monster faught) to equal a certain name)
+
+ALL The above can also be changed. Examples:
+
+@do x is 20 <-sets X to 20
+@do `i05 is 90 <- Gives dude 90 item 5's (item is defined in l2cfg.exe)
+
+These are symbols that will be translated automatically when using
+@show or @do write. You can also make variables equal these, etc. Simular
+to Renegades MCI codes.
+
+`N this is the users name.
+`E Enemy name.
+`G Current Graphics Level.
+`X Adds a space.
+`D Sends a #8 (delete).
+`0 through `9 and `! through `^ change color.
+`W One tenth a second wait. (real time delay)
+`L About a half second wait. (real time delay)
+`\ Simulates a carriage return.
+`r0 through `r7, change background color.
+`c Clears the screen and simulates 2 carriage returns.
+
+&realname | Real name as passed by the drop file
+&date | The date and time like 12/12/97 format.
+&nicedate | Time AND date like 5:19 on 12/12.
+s&armour | equipped armour name.
+s&arm_num | equipped armour's defensive value
+s&weapon | equipped weapon name.
+s&wep_num | equipped weapon's attack value.
+s&son | son/daughter, depending on current users sex
+s&boy | boy/girl, depending on current users sex
+s&man | man/lady, depending on current users sex
+s&sir | sir/ma'am, depending on current users sex
+s&him | him/her, depending on current users sex
+s&his | his/her, depending on current users sex
+&money | current users gold
+&bank | current users gold in bank
+&lastx | users x position before last move.
+&lasty | users y position before last move - helpfull to determine which
+ direction they came from before the hit the ref, etc.
+&map | current map #
+&time | Current age of the game in days.
+&timeleft | Minutes the user has left in the door.
+&sex | returns 0 if player is female, 1 if player is male
+&playernum | The account # of the current player.
+&totalaccounts | How many player accounts exist. Includes accounts marked
+ deleted.
+LOCAL | Will equal 5 if the ref is being viewed locally, otherwise 0.
+
+(NOTE: Vars starting with s& usually means if you can control the case
+of the first letter of the outpout by the case of the first s - so
+S&sir would return "Sir" and s&sir would return "sir")
+
+@STRIPCODE <`s var>
+ - This will remove ALL ` codes from a string variable.
+
+@BITSET <`t01 to `t99> <bit> <0 or 1>
+ - Sets a certain bit in a byte var, lets you have 8 yes/no vars
+ in one `t byte var! Examp: @bitset `t12 1 1 (this turns bit 1
+ in `t12 to ON) (bits can be from 0 to 7)
+
+@REPLACE <this> <that> <in `s var>
+ - Replaces this with that in an `s var.
+
+@REPLACEALL <this> <that> <in `s var>
+ - Same as above but replaces all instances
+
+
++----------------------------COMMANDS----------------------------------------+
+
+ +------------------- BINARY DATA FILES -------------------+
+ "IGM DATA FILES"
+
+ These files normaly have the extention IDF. They only store numeric data
+from -2.2 billion to +2.2billion (longints), in 200 different records
+(for 200 players). If the file doesn't exist, it is created and all records
+are set to 0. IDF files are only 1004 bytes in size.
+
+@DATALOAD <filename> <record#> <var>
+ - LOADS a longint by <record#> from a datafile and puts in <var>
+
+@DATASAVE <filename> <record#> <value>
+ - SAVES a longint to a <record#> in a datafile.
+ - You can put a <var> or a number in the <value>
+
+@DATANEWDAY <filename>
+ - If it is the NEXT day since this function was called, all #'s in
+ <filename> will be set to 0.
+ - Check EXAMPLE.REF for an example of how this works.
+
+
+ +----------------- MAP/DISPLAY COMMANDS ------------------+
+
+@DRAWPART <x> <y>
+ - will draw one char of a map screen with whatever it should be.
+ (including if people are there)
+
+@DRAWMAP
+ - draws the current map the user is on.
+
+@UPDATE
+ - Draws all the people on the screen.
+
+@BUSY
+ - Makes the player appear 'red' to other players currently playing.
+
+@OFFMAP
+ - Makes the player appear to disappear to other players currently
+ playing. (so it looks like they actually went into the hut)
+
+@PAUSEOFF
+ - You can show long ansis etc and it won't do its usuall every
+ 24 line pause.
+
+@PAUSEON
+ - Turns pause back on.
+
+@LOADMAP <map #>
+ - Lets you change someones map location in
+ a ref file. This is the 'block #' not the physical map
+ location, so it could be 1 to 1600. (make sure it exist
+ in l2cfg.exe though) Be SURE to change the map variable
+ too!! Using this and changing the X and Y
+ cords effectivly lets you do a 'warp' from a .ref file.
+
+@STATBAR
+ - Draws the statbar.
+
+@CLEARBLOCK <start y> <end y>
+ - Clears lines quick
+ - @CLEAR BLOCK 20 24 would clear 4 lines starting at 20
+
+@DISPLAYFILE <filename> <options>
+ - This display an entire file.
+ - Possible options are: NOPAUSE and NOSKIP. You can use both.
+
+@DISPLAY <this> IN <this file> <options>
+ - This is used to display a certain part of a file, compatible
+ with the LORDTXT.DAT format.
+ - <this> is a header or label
+ - Possible options are: NOPAUSE and NOSKIP. You can use both.
+
+@SHOW <options>
+ - no options will show the following text/ansi. Stops when a @ is hit on.
+ - <options> can be "SCROLL", puts all the text in a nifty scroll window.
+
+@CLEAR <options>
+ - <options> "NAME", Deletes the name line of the game window.
+ - <options> "USERSCREEN", Clears user text.
+ - <options> "TEXT", Clears game text.
+ - <options> "PICTURE", Clears pic.
+ - <options> "ALL", Clears user text, pic, game text, name and redraws screen.
+ - <options> "SCREEN", Clears entire screen. You should use "@DO MOVE 1 1"
+ before this for those cheap ANSi terms, including the Java Telnet term.
+
+@KEY <options>
+ - No options will do a "MOREMAP" prompt, centered on current line.
+ - <options> "TOP", will display "MOREMAP" at top of screen.
+ - <options> "BOTTOM", will display "MOREMAP" at bottom of screen.
+ - <options> "NODISPLAY", will not display "MOREMAP".
+
+@SAY
+ - All text UNDER this will be put in the 'talk window' until a @ is
+ hit.
+
+
+ +--------------------- @DO COMMANDS ----------------------+
+
+@DO <Var To Change> <How To Change It> <Change With What>
+ - Ways to change it:(-,+,/,*,IS,ADD)
+ - You can also do this with `S (string vars) but you are limited to
+ only using IS and ADD.
+
+@DO <Var to put # in> RANDOM <Highest random number> <number added to it>
+ - Create a random number
+
+@DO `V01 IS 1
+ - Sets the default option on the next lightbar selection,
+ ALWAYS use before a @CHOICE command.
+
+@DO ADDLOG
+ - The line UNDER this command is added to the 'lognow.txt' file.
+
+@DO `s01 IS GETNAME 8
+ - Would get the name of player 8 and put it in `s01.
+ (only works with `s vars)
+
+@DO `p20 IS DELETED 8
+ - Puts 1 (yes) or 0 (no) in `p20.
+ (only works with `p vars)
+
+@DO <num var> IS LENGTH <`s var>
+ - Gets length, smart way
+
+@DO <num var> IS REALLENGTH <String var>
+ - Gets length dumb way. (includes
+
+@DO BEEP
+ - Makes a weird beep noise, locally only.
+ No idea why this would be used.
+
+@DO COPY TO NAME
+ - Put whatever is in `S10 into `N. (name)
+ - Change Players characters name.
+
+@DO COPYTONAME
+ - Puts `s10 into PLAYERS NAME field. You can change player name here.
+
+@DO DELETE <file name>
+ - Delete a file.
+
+@DO FRONTPAD <var> <how_long>
+ - I guess its similar to @DO PAD, but the opposite.
+
+@DO GETCHAR <String var to put it in>
+ - Grabs a keypress, with timeslicing.
+
+@DO GETKEY <String var to put it in>
+ - This command is usefull, *IF* a key IS CURRENTLY being pressed,
+ it puts that key into the string var. Otherwise, it puts a '_' in
+ to signal no key was pressed. Good way to stop loops!
+
+@DO GOTO <header or LABEL name>
+ - Goes to another routine in the REF
+
+@DO MOVE <X> <Y>
+ - This moves the curser.
+ - Enter 0 for (...current possition?) (was cut off in old REFHELP.DOC)
+
+@DO MOVEBACK
+ - Use this to move the player back to where he moved from - good
+ for when they push against a treasure chest or such, and you
+ don't want them to appear inside of it when they are done.
+
+@DO PAD <string var> <length>
+ - Adds spaces to end until string is as long as <length>.
+
+ - NOTE: Pad automatically does not include color codes in
+ the length, and DOES include varibles in the length. (like
+ if there was a `s02 inside the string) (my God.. If you were
+ displaying `s01 and it had a `s01 in it, wouldn't it display
+ forever? I'll have to check that.) (note from 3 years later..
+ still haven't checked into that..maybe next year..) <--Still didn't
+ 6+ years later!
+
+@DO QUEBAR
+<message>
+ - The above will add a message to the saybar que - This means if the game
+ is currently displaying a message, or has a few to display, it will
+ wait until the proper time.
+
+@DO READCHAR <`s var to put it in>
+ - Waits for a key to be pressed, uses DV and windows time slicing
+ while waiting.
+
+@DO READNUM <MAX LENGTH> <FOREGROUND COLOR> <BACKGROUND COLOR>
+ - The READNUM procedure is a very nice string editer to get a number
+ in. It supports arrow keys and such.
+ - <DEFAULT>: The number is put into `V40.
+ - FORGROUND AND BACKGROUND is optional, defualt is white on blue back.
+
+@DO READSTRING <MAX LENGTH> <DEFAULT> <`s VAR TO PUT IT IN>
+ - Get a string. You only can use `s vars.
+ - Use "NIL" if you want a blank var.
+
+@DO READSPECIAL <String var to put it in> <legal chars, 1st is default>
+ - Example:
+ @do write
+ Would you like to kill the monster? Y/N :
+ @DO READSPECIAL `s01 YN
+ @if `s01 is Y then do
+ @begin
+ @show
+ You killed him!
+ @end
+
+ - That ONLY allow the person to hit Y or N - if he hit ENTER, it
+ would be the same as hitting Y, because that was listed first.
+
+@DO REPLACEALL
+ - Same as @REPLACEALL
+
+@DO SAYBAR
+<message>
+ - The above is like quebar, except it displays the message instantly,
+ without taking into consideration that a message might have just been
+ displayed and this will write over it.
+
+@DO STRIPBAD <`s var>
+ - Strips out illegal ` codes, and replaces badwords with the standard
+ badword.dat file.
+
+@DO STRIPALL <`s var>
+ - Strips out all ` codes. Good for passwords, etc.
+
+
+@DO STRIP <`s var>
+ - This strips beginning and end spaces of a string.
+
+@DO TALK [string] [who:all]
+ eg. @DO TALK `0`n`x`2has`xentered`xthe`xrealm. all
+
+@DO TRIM <file name> <lines to trim to>
+ - Trims text file to x amount of lines
+
+@DO UPCASE <`s var>
+ - Makes a string all capitals.
+
+@DO WRITE
+<1 line text>
+ - Will display to the screen the text below, this could be used after
+ a @DO MOVE command to display text in a specific location.
+
+
+ +--------------------- @IF COMMANDS ----------------------+
+ All <then do> can be replaced with a @DO command removing the @DO
+ example: @IF `p01 IS 1 then BEEP
+
+examples:
+ @IF `V04 MORE 500 THEN DO `V04 - 500
+ (This would take 500 from `V04 if they had it)
+ (+ would add money, IS would MAKE it 500)
+
+ @IF `V04 MORE 500 THEN DO
+ @BEGIN
+ @SHOW
+ `2You have more then 500! In fact you have `V04!
+ @END
+
+ (if @BEGIN is followed by a @DO it will be executed, otherwise skipped)
+ (In @DO WRITE, @SAY and @SHOW (Except SHOW SCROLL) it will print the `V,
+ `P and `S varibles - It also understands:
+ `N (user name)
+ `* (node number)
+
+
+@IF <Varible> <Math> <Varible> then do
+ - Math can be MORE, LESS, NOT, IS
+
+@IF <Word or var> INSIDE <Word or var> then do
+ - Allows you to search a string for something inside of it.
+ Not case sensitive.
+
+@IF <name of file> EXISTS TRUE then do
+
+@IF <name of file> EXISTS FALSE then do
+
+@if BITCHECK <`t var> <bit> <1/0> then do
+ - Checks the `t bitsets if true or false, then does.
+
+@IF BLOCKPASSIBLE <not/is> then do
+ - Checks to see if destination square is a passible one. If not,
+ you must add the code to be sent back, check HELP.REF for an example.
+
+
+ +--------------------- REF ROUTINES ----------------------+
+
+ You can have as many headers/labels as you want, however, the first 300
+ 'headers' and 'labels' will be INSTANT access, anything past will not be
+ quite as quick.
+
+ This 'speed up' routine runs by default on all .REF files. (Processes the
+ labels and headers before running)
+
+ This takes a noticable pause when doing so, so you may wish to disable this
+ feature. Add a @NOCHECK
+
+ LoRD2 maps the labels/headers on the fly if it runs across one that
+ isn't - So the SECOND time you run GOTO it, it's instantanous.
+ (this is always active)
+
+ Headers like all other commands in RTREADER are *NOT* case sensitive.
+ You can type the whole thing in lowercase, or uppercase - or mixed.
+ It just don't matter man.
+
+@LABEL <labelname>
+
+@#<header>
+ - Routines will end when reaches another @#, but will continue
+ through the @LABEL unless told to stop.
+
+@NOCHECK
+ - This makes it not scan for labels/headers before running the REF.
+ - Might make the REF load faster if too many labels/headers.
+ - Should be at the top of the REF.
+
+@ROUTINE <Header or label name> IN <Filename of .REF file>
+ - (only one parm is given, it assumes it is in the current .ref)
+
+@ROUTINEABORT
+ - Stops it from returning.
+
+@RUN <Header or label name> IN <Filename of .REF file>
+
+@DECLARE <Label/header name> <offset in decimal format>
+ - Put at beginning of REF file to set location of headers/labels
+ for a quicker read of the REF file. REFINDEX.EXE will do this
+ for you automaticly.
+ - WARNING - If you change anything in the REF file after the REF
+ has pre-set DECLARES, then the REF will not work, just remove/
+ change all the DECLARE commands to the changes.
+ -Should put a @NOCHECK right after the DECLARE statements.
+
+@CLOSESCRIPT
+ - This ends the script.
+
+ +--------------------- GAME SETTINGS ---------------------+
+
+@PROGNAME
+ - The line UNDER this will be the status bar name of the game
+
+@MOREMAP
+ - The line UNDER this will be the new <more> prompt. A pause that
+ waits for a key to be pressed.
+
+@LOADWORLD
+ - Loads globals and world data - has never been used, but is
+ included just in case.
+
+@VERSION <Version it needs>
+ - For instance, you would put @VERSION 2 for this version of
+ RTREADER. (002) If it is run on Version 1, (could happen) a
+ window will pop up warning the person he had better get the
+ latest version.
+
+@OVERHEADMAP
+ - Show the "M"ap to the player. Will show all "shown" blocks.
+
+@SAVEGLOBALS
+ - I presume it saves global vars.
+
+@SAVEWORLD
+ - Saves stats and world data - only use yet is in right after
+ @#maint is called to save random stats set for that day and
+ such.
+
+@GRAPHICS IS <Num>
+ - 3 or more enable remote ANSI. Not very useful, as everything is ANSi
+ If you set this to 1 remote users can only see ascii.
+
+@CHECKMAIL
+ - Checks players mail.
+
+@HALT <error level>
+ - Quits and returns correct error level.
+
+@SHELL <.EXE, BAT or COM> <Parms, up to 8>
+ - Shell to DOS and run
+ - (note, use `* for node num)
+
+@UPDATE_UPDATE
+ - Writes current player data to UPDATE.TMP file. (if you can't wait
+ until they are out of the ref file for some reason)
+
+@CHOOSEPLAYER `p20
+ - Will prompt user for another players name
+ - its the standard 'full or partial name' thing, with a 'you mean
+ this guy?'. It returns the players # or 0 if none.
+
+@ITEMEXIT
+ - Tells the item editor to automatically return the player to the
+ map screen after the item is used. It is up to you to use the
+ @DRAWMAP and @UPDATE commands as usual though.
+
+@LORDRANK
+ - [no details ... more later]
+
+@RANK <file>`*.dat <var> <label>
+ - file = should be max 5 chars, leaving `* for the other 3.
+ var = rank in the list by this var being highest.
+ label = label in current REF which to see what is listed.
+
+@BUYMANAGER
+ - Every number below this until the next @ will be the item
+ availabe to the player to buy.
+
+@SELLMANAGER
+ - Sell items.
+
+@CHOICE
+<1st choice>
+<2nd choice>
+ - To give options to the player on what to do.
+ - RESPONSE (or RESPONCE) What @CHOICE returned. Same as `v01.
+ - "@DO `V01 IS 1" should come before, you can set to which ever
+ choice you want to be default. Usualy 1.
+ - At the the @ it will stop the choices.
+ - IMPORTANT NOTE: Never have spaces AFTER lines under a choice
+ command.. This can make options not show up.
+
+ example:
+
+ @DO `V01 IS 1
+ @CHOICE
+Your 1st choice of the day
++`t12 1 Hey, byte 12 bit 1 is TRUE!
+-`t44 7 Hey, byte 44 bit 7 is FALSE!
+=`p20 500 Hey, I have 500 exactly!
+!`p20 500 Hey, I have anything BUT 500 exactly!
+>`p20 500 Hey, I have MORE than 500!
+<`p20 100 Hey, I have LESS than 100!
+>`p20 100 <`p20 500 I have more then 100 and less than 500!
+ @IF RESPONCE IS 1 THEN DO
+ @BEGIN
+ @SHOW
+ Thats your first choice?
+ @END
+
+
+ +--------------------- FILE COMMANDS ---------------------+
+
+@WRITEFILE <file name>
+<Things to write>
+ - Unlimited amount of lines can be written to file. Until a @ is hit.
+ - Note: @WRITEFILE appends the lines if the file exists, otherwise it
+ creates it. File locking techniques are used.
+
+@READFILE <file name>
+<Var>
+ - Unlimited amount of lines can be written to file. Until a @ is hit.
+ puts into a the var specified.
+ - NOTE: @READFILE is a smart procedure - It will not run-time error
+ or anything, even if you try to read past the end of the file. It
+ simply won't change the vars if the file isn't long enough.
+
+@COPYFILE <input filename> <output filename>
+ - Copies a file. Not that hard to use, really.
+
+@CONVERT_FILE_TO_ANSI <input file> <output file>
+ - Converts a text file of Sethansi to regular ansi.
+ Good for a final score output.
+
+@CONVERT_FILE_TO_ASCII <input file> <output file>
+ - Converts a text file of Sethansi to regular ascii,
+ ie, no colors at all. Removes all colours.
+
+
+
+
+
+ +-----------------THE SHELL COMMANDS ---------------------+
+
+NOTE: THIS FEATURE DOES NOT WORK IN LORD II AT THIS TIME.
+
+A powerful feature of RTREADER is the ability to run OTHER programs inside
+of it, and return to the exact spot it left automatically.
+
+@SHELL <.EXE, BAT or COM> <Parms, up to 8> (note, use `* for node num)
+
+When this happens, two files are created.
+
+DO<node num>.BAT is created. This is actually the file that is run.
+
+INFO.<node num> is created. Simular to LORD's INFO.? system.
+
+This text file contains the following:
+
+Users first name
+Users Last Name
+Ref file it was reading before shelling
+Offset of ref file (where it was when it shelled)
+Graphics <- Passed from drop file, usually between 2 and 5.
+Time Left
+Com Port
+Baud Rate
+Lockbaud
+FOSSIL (or INTERNAL or DIGI)
+
+Note: The procedure RTREADER uses upon 're-entry' is it reads the proper
+ NODE<node num>.DAT file, *THEN* it reads the INFO.? file and fills
+ in the gaps. It does read the Time Left back in also.
+
+
diff --git a/xtrn/lord2/cnw/docs/register.doc b/xtrn/lord2/cnw/docs/register.doc
new file mode 100644
index 0000000000000000000000000000000000000000..abd7e04bda09470574d6ab16c261b5849ce30e01
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/register.doc
@@ -0,0 +1,44 @@
+ Registration Form For VIOLET.IGM
+ ==========================
+
+Registration Form:
+
+Name:________________________________ Age: _____ (optional)
+
+Address:_____________________________________________________
+
+City:________________________________ Province or State: ____
+
+Internet Address:_____________________________________
+
+Zip: _ _ _ _ _ - _ _ _ _ or Postal Code: _ _ _ - _ _ _
+
+Home Phone Number: (_____)______-________
+
+Standard Registration (Includes S&H)........................$5.00 [ ]
+
+Yes! I want the LATEST version of Violet sent to me
+on disk for only an additional $10.00!......................$10.00 [ ]
+
+Yes! I want the LATEST version of Violet sent to me via
+E-Mail for nothing at all!..................................$0.00 [ ]
+
+Total ......................................................$______.___
+
+Money Enclosed (Canadian Currency)..........................$______.___
+
+Disk Size [ ] 3 1/2" [ ] 5 1/4"
+
+Comments / Suggestions:
+________________________________________________________________________
+________________________________________________________________________
+________________________________________________________________________
+________________________________________________________________________
+________________________________________________________________________
+Send this form with your Canadian funds cash, check or money order to:
+
+Michael Bujold <-----(Make check out to this name!)
+FPSoft
+6 Woodisde Cresent
+Spruce Grove, AB
+T7X 3E5 CANADA
diff --git a/xtrn/lord2/cnw/docs/registry.doc b/xtrn/lord2/cnw/docs/registry.doc
new file mode 100644
index 0000000000000000000000000000000000000000..3a5d02da8b0baf33c3a9bfbaaca5a9d4fdf5eb57
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/registry.doc
@@ -0,0 +1,361 @@
+ �����������������������������������������������������
+ G L O B A L R E G I S T R I E S v1.12
+
+ A N E W A D D - O N
+
+ FOR
+
+ L O R D II v1.01a by Seth Robinson
+
+
+ (c)1997 AuSSie Creations
+ Written by: Mike Freeman
+
+ Support BBS: 714-670-6500 14.4
+ 714-736-5880 28.8
+ 714-736-5881 33.6
+ Email: Internet: auzzi@bigfoot.com
+ Majornet: aussie@cfe (For MajorBBS Systems)
+ Home Page : http://home.att.net/~aussie.mfreeman/home.htm
+ On The Coffee Break BBS: send email to aussie
+ My Fax: 714-521-6240
+ �����������������������������������������������������
+
+ �����������������������������������������������������
+ Global Registries Features
+ �����������������������������������������������������
+
+ * Allows your Lord II players to give a touch of personality
+ to their character's appearance.
+ * WORKS even if your copy of Lord II is Un-Registered!!!!!!!
+ * Easy to use menu style options with one letter response
+ options that execute when selection is typed.
+ * Help screens and information at all levels.
+ * Convenient Screen redraw & refresh options at all levels.
+ * Easy to understand Error messages.
+ * Global Registries is easily accessable from a map by
+ by pushing on the Registry Hut or by using the ITEMS
+ method of retrieval.
+ * Color your Registry entries using the standard Color
+ Codes that come with the game ie `1Blue `2Green etc.
+ * Sysops! No need to approve Registry entries. All fields
+ in the Registry are filtered for Profanity.
+ * If configured, users have the unique ability to buy an
+ additional life, for a price!
+ * Global Registries uses its own variables and flags. No
+ need to worry about conflicts with others IGM's.
+ * Built in automatic upgrade utility that upgrades your
+ version of GR from one version to another, when upgrades
+ are available.
+ * Built in online configurable options. No need to take your
+ system down to change module features.
+ * Different Access levels for players/Sysops/Co-Sysops.
+ Depending on your access level you see certain options that
+ others don't.
+ * Includes my special ADD-ON program MAKE ME A SYSOP(tm) for
+ Sysops to manage Global Registries. (Requies Registration!)
+ * Complete documentation included, including my handy version
+ release information for USERS and well as SYSOPS to view
+ online at anytime while the game is running.
+ * Best of all I support all my products with information on how
+ you may contact me for customer support.
+
+
+
+ TABLE OF CONTENTS
+ �����������������������������������������������������
+ Warranty...........................................1
+ Usage..............................................2
+ License............................................3
+ Distribution.......................................4
+ Description........................................5
+ Registration Information...........................6
+ Shareware vs Registered............................7
+ System Requirements................................8
+ Compatibility......................................9
+ Registering Lord II...............................10
+ What you need to know before installing GR........11
+ Combining methods.................................12
+ Warning...........................................13
+ Have you installed other IGM's?...................14
+ Installation instructions.........................15
+ Product Support & Upgrades........................16
+ �����������������������������������������������������
+
+
+
+ ��WARRANTY������������������������������������������1Ŀ
+ �������������������������������������������������������
+
+ This product is provided "as is" without warranty of any kind.
+ The entire risk as to the results and performance of the program
+ is assumed by you. Futhermore, the author does not warrant,
+ guarantee, or make any other representations regarding the use
+ of, or the results of the use of the program, and you rely on the
+ program and results solely at your own risk. The author cannot
+ and will not accept responsibility for system damage, loss of
+ profit, or any other special, consequential or incidental damages
+ resulting from the use or inability to use this product.
+
+ Aussie Creations cautions that the software was tested as the sole
+ modification to an otherwise unmodified system and that no guarentee
+ exists with regard to the lack of conflicts with other modifications.
+ However, software written by AuSSie Creations will not conflict
+ with other software written by AuSSie Creations.
+
+
+ ��USAGE���������������������������������������������2Ŀ
+ �������������������������������������������������������
+
+ This product is being distributed as Shareware. Under this
+ concept you may use the SHAREWARE (unregistered) version for a
+ reasonable period for evaluation, after which you MUST either
+ register your copy or discontinue usage.
+
+
+ ��LICENSE�������������������������������������������3Ŀ
+ �������������������������������������������������������
+
+ AuSSie Creations owns this software and licenses its use throughout
+ the world. The licensee assumes responsibility for the selection of
+ the software to achieve your intended results.
+
+ The licensee may only use this software on a single machine. However,
+ the software may be copied into machine-readable or printed form for
+ backup purposes in support of the use of this software on a single
+ machine.
+
+ This software is licensed for use to a single corporation or person,
+ on a single machine only. Once licensed, license to use this software
+ is NOT TRANSFERABLE to any other person or corporation, without the
+ express, written permission of AuSSie Creations.
+
+ THIS SOFTWARE MAY NOT BE USED, COPIED, MODIFIED, MERGED, DISASSEMBLED,
+ OR TRANSFERRED, IN WHOLE OR IN PART, EXCEPT AS EXPRESSLY PROVIDED FOR
+ IN THIS LICENSE.
+
+ Violation of any single parameter of this license will result in
+ immediate forfeiture of said license. The owner of the license to use
+ this software is responsible for whatever befalls his licensed copy
+ of the software.
+
+ If software integration is performed by other than the licensee, the
+ person or company performing said integration may not under any
+ circumstances retain any part of this software in any form. Neither
+ may the person or company performing said integration retain the
+ software as a "backup" for the licensee as provided above.
+
+
+ ��DISTRIBUTION��������������������������������������4Ŀ
+ �������������������������������������������������������
+
+ You are encouraged to distribute this copy of Global Registries
+ provided the archive is kept in its original and unmodified state.
+
+
+ ��DESCRIPTION���������������������������������������5Ŀ
+ �������������������������������������������������������
+
+ At last! Now there is a way to record your own personal registry
+ about your character in Lord II. Registries are user definable,
+ allowing you to give a touch of personality to your character's
+ appearance. The description that you create will be viewable
+ online, from almost anyplace, in Lord II. Users can look up each
+ others entries simply by accessing the Global Registries main menu
+ while playing Lord II. Global Registries has taken many hours of
+ coding, testing and thought. We hope your users enjoy this add-on
+ as much as ours have.
+
+
+ ��REGISTRATION�INFORMATION��������������������������6Ŀ
+ �������������������������������������������������������
+
+ A registration form is included in this archive that covers ALL
+ AuSSie Creation products via Email or BBS registration. See our
+ telphone/Email information at the beginning of this document.
+
+
+ ��SHAREWARE�VS�REGISTERED���������������������������7Ŀ
+ �������������������������������������������������������
+
+ The shareware version will only allow you to perform limited Sysop
+ functions and users will be able to list only the first 3 players
+ who have entered their registry entries. Max # of registry entries
+ allowed in the un-registered version is 5. An attempt to enter the
+ 6th registry entry will result in the user being denied the entry.
+ In addition, the following features are only available in the
+ registered version.
+
+ Using my MAKE ME A SYSOP(tm) program (reg'd only feature).
+ * Assign/remove Sysop access to 1 or more trusted Lord II users.
+ * Assign/remove Co-Sysop access to 1 or more trusted Lord II users.
+ * Assign all privilages to any Lord II player while the game is
+ running. No need to take your bbs/door pc down.
+ * All options are configurable online, while system is up.
+ * Sysop/Co-Sysop menus options show only to those who have access.
+ * For Registered systems, we put your bbs name in lights with a
+ cute little ansi addition.
+ * Free updates and support via email and fax.
+
+
+ ��SYSTEM�REQUIREMENTS�������������������������������8Ŀ
+ �������������������������������������������������������
+
+ You must be running v1.01a of Lord II. If you are running v1.00, I
+ suggest you upgrade to the lastest version of Lord II before running
+ Global Registries. These changes are not for v1.00 and have not been
+ tested with v1.00 of Lord II. Get the upgrade services Pak 1 from
+ our internet site at http://home.att.net/~aussie.mfreeman/home.htm
+ or from Seths Internet site at www.rtsoft.com. The upgrade file name is
+ L2SP1A.ZIP. You may also download this file from our bbs, The Coffee
+ Break BBS, from our SUPPORT library. Our BBS phone number is listed at
+ the top of this document. Sorry, we are not TELNETABLE at this time.
+
+
+ ��COMPATIBILITY ������������������������������������9Ŀ
+ �������������������������������������������������������
+
+ Global Registries has been tested on our 26-Line BBS, running WG2.0
+ connected to 2 door systems under DOS 6.2 running Seth Able's Lord
+ II game and found to be fully compatable. Global Registries will
+ run on any door pc or system that can run doors irrespective of the
+ software type used ie Wildcat, MBBS and will * NOT * interfer with
+ any of the Lord II's database file structure since Global Registries
+ keeps track of its own database files.
+
+
+ ��DO I NEED A REGISTERED COPY OF LORD II?����������10Ŀ
+ �������������������������������������������������������
+
+ NO! but you will only be able to run Global Registries by entering
+ the module thru the little hut on Neb's Road. You will not be able
+ to type 'V' from anyplace in Lord to select the item REGISTRY KEY
+ to enter the module until you have registered Lord II.
+
+
+ ��WHAT YOU NEED TO KNOW BEFORE INSTALLING GR�������11Ŀ
+ �������������������������������������������������������
+
+ Global Registries does not need a MAP to access, although there is
+ one supplied for those of you running the un-registered version of
+ Lord II. Ordinarily though, this is a MAP FREE module and does not
+ work like the other IGM's I'v seen. In fact, I think this is the first
+ and only module that works the way it does, other than the Brady
+ Adventure by Seth, but I could be wrong. Until I see such module in
+ existance, I will assume for now that Global Registries is the only one
+ of its kind. As of this writing, I am unable to assign a global character
+ such as the letter 'G' to globally retrieve Global Registries because
+ of the limitations of the language.
+
+ IF YOUR COPY OF LORD II IS UN-REGISTERED your users can enter Global
+ Registries from Neb's road. There is no other way I know of at this time
+ that will allow you to access Global Registries when unregistered.
+
+ IF YOUR COPY OF LORD II IS REGISTERED your users can enter Global
+ Registries using a new item as well as allowing your users to access
+ Global Registries from the map on Neb's road. The item gives your users
+ the REGISTRY KEY and is automatically given to existing and well as
+ new users to the game once the modification have been made to the code.
+ To use this item, all the user needs to do is select 'V' for statistics
+ on his account, then by selecting the REGISTRY KEY he is given access
+ to the module.
+ Currently, this is a non expiring key meaning its use is UNLIMITED.
+ Somewhere down the line we could make the modification of allowing
+ our users to WORK for the key, pay for the key or even sell it for
+ money. The possibilites are limitless.
+
+
+ ��COMBINING METHODS��������������������������������12Ŀ
+ �������������������������������������������������������
+
+ <NO LONGER AN ISSUE WITH V1.12>
+
+ ��WARNING������������������������������������������13Ŀ
+ �������������������������������������������������������
+
+ THE DISTRIBUTION ZIP FILE SUPPLIED CONTAINS OTHER ZIP FILES AS WELL.
+ PLEASE *DO NOT* UNZIP ANYTHING AHEAD OF TIME, INTO YOUR LORD2 DIR,
+ UNTIL YOU HAVE READ AND UNDERSTOOD THE INSTALLATION DOCS. IF YOU DO,
+ YOU WILL GET INTO ALOT OF PROBLEMS. ONLY UNZIP FILES THAT ARE SPECIFIC
+ TO THE METHOD OF MODIFICATION YOUR INSTALLING. BE ACCURATE WHEN MANUALLY
+ CHANGING CODE. YOUR ACCURACY WILL SAVE YOU ALOT OF HEADACHES IN THE LONG
+ RUN. CHECK AND DOUBLE CHECK YOUR CHANGES IF ANY. -Thanks
+
+
+ ��HAVE YOU INSTALLED OTHER IGM'S?������������������14Ŀ
+ �������������������������������������������������������
+
+ If you have modified your ref files because you have installed other
+ IGM's, then you will need to spend some time modifying your refs to
+ install Global Registries. If you have NOT modified your ref files
+ from the stock game, then all you need to do is read these docs very
+ carefully unzipping only those files you need from my archive. For
+ the code modifications, please refer to my MCODE.DOC file.
+
+
+ ��INSTALLATION INSTRUCTIONS������������������������15Ŀ
+ �������������������������������������������������������
+
+ 1) Copy the file GLOBExxx.ZIP to an empty directory dir and at the
+ DOS prompt type PKUNZIP GLOBExxx. This will unzip the files into
+ your empty directory.
+
+ You have already done this if you are reading these docs!
+
+ For your information, my naming convention on all future releases of
+ Global Registries is as follows: GR121297.EXE means:
+
+ GR stands for Global Registries
+ 121297 stands for 12/12/97 release date.
+
+ Next...
+
+ Copy the file GRxxxx98.EXE to your Lord II directory or whatever
+ directory you have installed Lord II in then type GRxxxx98 -d.
+
+ * DO NOT * forget to type the -d. If you forgot to type -d, and
+ everthing unzipped, then you must now delete the following files
+ SYCONFIG.DAT, REGSYSIN.DAT & VERSION.DAT from your Lord II directory.
+ Those files do not belong there and must be deleted. Then type
+ GRxxxx98 -d a second time and answer Y to overwriting all the files.
+ This should unzip the files where they should be ready for installation.
+
+ To complete installation please refer to MCODE.DOC for code changes.
+
+
+ ��PRODUCT�SUPPORT�&�UPGRADES�����������������������16Ŀ
+ �������������������������������������������������������
+
+ I am available for any questions. See addresses/telephone numbers
+ at the beginning of this document! or log on to The Coffee Break BBS
+ The latest version of GR is always available there for download as
+ well as the files for Lord II. Demos of what Global Registries looks
+ like when installed and its operations can also be viewed online.
+ Call our support bbs, sign-up as usual then send a message to SYSOP
+ that your calling for Global Registries support and we will switch
+ your account to a SUPPORT ACCOUNT.
+
+ �����������������������������������������������������ͻ
+ � ��������������� Acknowledgements ��������������������
+ �����������������������������������������������������ͼ
+
+ Special thanks to:
+ ==================
+ Seth A. Robinson for writing Lord II, a great game.
+ Lisa Verhagen for running a wild bbs and letting me test to my hearts
+ content.
+ Lance Neumann at Dreamscape bbs and his MajorMud Add-on for allowing
+ us to use his screen formats.
+
+ Beta Testers:
+
+ The Coffee Break BBS 26-Line(s) (714)670-6500 - Sysop Lisa Verhagen
+
+ Question/Comments/Suggestions to make Global Registries ever better
+ is welcomed! You can contact me a number of ways. Let me know how this
+ module is working for you.
+
+ Happy Coding
+
+ Mike Freeman (AuSSie Creations Inc.)
+
diff --git a/xtrn/lord2/cnw/docs/reset.doc b/xtrn/lord2/cnw/docs/reset.doc
new file mode 100644
index 0000000000000000000000000000000000000000..b956c3efdf04f6f930d8d51136e6b429fae1c8e9
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/reset.doc
@@ -0,0 +1,74 @@
+Reset Ver. 1.07
+
+Changes from ver. 1.01 are cosmetic, no data will be lost
+in an upgrade.
+
+Change from ver. 1.02 Hydra reset accomodates players
+with seth codes in their name.
+
+Change from ver. 1.03, decreased the alignment change a bit.
+Left the code uncompiled so it can be sped up with the indexer.
+Made sure that I could find zero bugs.
+
+Change from version 1.04 is bugfix and added Mimsic Isle to idf reset.
+
+Change from 1.06 is a typo fix.
+
+To install, unzip in the lord2 directory and type "igm reset"
+(without the quotes) and press the enter key.
+
+If you are upgrading from an older version of reset, first type
+"igm reset", press enter and then unzip the new version,
+then again type "igm reset", and press enter.
+
+ -=-=-=-=-=-=-=-
+
+Sysops, this IGM does nearly nothing in an unregistered
+game or in a new game, as it is aimed at players who have
+completed one or both major quests. This will never happen
+in an unregistered door and may take some time in a newly
+started game, so be patient!
+
+There is a file, resetidf.txt, that holds the names of some
+IDFs that will be reset when a player "resets" himself.
+You may add to this file, one filename per line,
+and have other IGMs reset for the player as well.
+(Do not add reset.idf, it holds the scoreboard.)
+
+NOTE:
+Do not change the first line of resetidf.txt.
+Do not put any blank lines in the file.
+Edit only with a text editor, such as window's notepad
+or qedit.
+
+
+Why reset?
+
+I finished both sides of the game and had done all the
+IGMs that I was able to get in. <grin> I decided that
+I'd like to restart but didn't want to wait 15 days for
+my character to be deleted. Mostly, I wanted another
+crack at the "Hydra" IGM. <Vey nice IGM>
+
+I decided to write an IGM that would let winners start
+over and that would reset Fgrave and Hydra. While I was
+at it I provisioned for resetting other IGMs that used
+an IDF file to store whether they had been "done".
+
+I felt that some "nice" people might NEVER want to
+do the evil required to finish the dark side and so I
+allow them to reset as long as they have done the Koshi
+quest. (I granted equal favour to the nasties.)
+
+A scoreboard is nice, it's good to keep a record of how
+many times one has won!
+
+A bonus for those desiring to play over and over is that
+retirees who visit their ancestors get to change their
+alignment by 6 up or 3 down per day, handy for the turnaround!
+
+Thanks for looking at reset,
+
+
+ jfw@ica.net (Jim Wilson)
+
diff --git a/xtrn/lord2/cnw/docs/rtwedit.txt b/xtrn/lord2/cnw/docs/rtwedit.txt
new file mode 100644
index 0000000000000000000000000000000000000000..1744211f443862363ba3d2fd019050259806a567
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/rtwedit.txt
@@ -0,0 +1,48 @@
+
+
+ �����������������������������������������Ŀ
+ � The RT World Editor v1.4 - FREEWARE �
+ � Copyright 1998, Chris Vallinga �
+ �������������������������������������������
+
+
+���������������������������������������������������������������������������Ŀ
+���� DISCLAIMER �����������������������������������������������������������
+�����������������������������������������������������������������������������
+
+ Users of The RT World Editor must accept this disclaimer of warranty:
+
+ "This program is supplied as is. The author, Chris Vallinga, disclaims
+ all warranties expressed or implied, including, without limitation, the
+ warranties of merchantability and of fitness for any purpose. The author
+ assumes no liability for damages, direct or consequential, which may
+ result from the use of this program."
+
+ This program may be freely distributed, but must be in its original
+ archive.
+
+
+���������������������������������������������������������������������������Ŀ
+���� ABOUT ����������������������������������������������������������������
+�����������������������������������������������������������������������������
+
+ The RT World Editor is a world editor for RTREADER, the engine used by
+ the popular BBS door game LORD II: New World. This editor was made to
+ allow IGMs/Worlds to be put together more easily.
+
+
+���������������������������������������������������������������������������Ŀ
+���� NOTE �����������������������������������������������������������������
+�����������������������������������������������������������������������������
+
+ The RT World Editor will make a config file (RTWEDIT.CFG) in the root
+ directory of the drive being used; certain options can be changed here.
+ When installing new versions of this program you might want to delete
+ this file so you can see any new options that may have been added.
+
+
+���������������������������������������������������������������������������Ŀ
+���� CONTACTING ME ��������������������������������������������������������
+�����������������������������������������������������������������������������
+
+ Email: cvallinga@hotmail.com
diff --git a/xtrn/lord2/cnw/docs/sandcity.txt b/xtrn/lord2/cnw/docs/sandcity.txt
new file mode 100644
index 0000000000000000000000000000000000000000..81faad938f0e61deeabbe13655a7c3bb9fcc69df
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/sandcity.txt
@@ -0,0 +1,9 @@
+SandCity is brought to you by:
+
+Mayhem BBS - AND - KEVCO Enterprises
+
+Created by Dozer of Mayhem BBS
+
+Please e-mail any comments to:
+
+kbrown@visinet.ca
diff --git a/xtrn/lord2/cnw/docs/seasons.doc b/xtrn/lord2/cnw/docs/seasons.doc
new file mode 100644
index 0000000000000000000000000000000000000000..af27ce085aadc185afb4bf4088ef6747d0042371
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/seasons.doc
@@ -0,0 +1,64 @@
+
+***********************
+* *
+* SEASONS 97 *
+* October, 1997 *
+* *
+***********************
+
+
+ Season is an IGM for Seth Able Robinsons' popular door
+game LORD II (Legend of the Red Dragon : New World ).
+
+
+ This version is shareware. You are entitled to try it out
+for a period not exceeding 30 days. If you find it useful, and
+wish to continue using it, then you are obligated to register
+your copy. Be SURE to read the order.doc! :)
+ ^^^^
+
+ You are also welcome (encouraged) to distribute copies of
+the unregistered version, provided that all files are included, intact,
+and unmodified and that you do NOT distribute the key file. Commercial
+shareware vendors may distribute the shareware version provided
+that they do not charge more than $6.00; that they make it obviously
+apparent on both the packaging and internally that their customer has
+not purchased any rights to Seasons, and that they are still
+obligated to register their copy.
+
+ Shareware CDROM producers may include the archive under the
+same conditions as oulined above, with the exception being that
+the price of their product may exceed $6.00
+
+ Meanwhile, I would very much appreciate any feedback,
+suggestions, or bug reports.
+
+ Please feel free to contact:
+
+ Bryan Turner
+ SMYC Software
+ 12235 China Lake Dr
+ Dallas Texas 75253
+
+ Internet: smyc@usa.net
+ FIDO: Bryan Turner 1:124/7013
+
+INSTALL:
+ Just Unzip the archive into your lord 2 Directory and type in
+ IGM SEASONS
+ to Un install do the same.
+
+Thanks to the following for their patience and help:
+
+ Robby Dittmann - Whom with out his work this IGM would have never
+ been as good as it is.. :) (He did most of the Coding)
+
+ Ken Weitzel - This is his original project. Make sure that you check
+ out season 97 for Lord I
+
+
+
+
+LORDII, and Legend of the Red Dragon are the intellectual property
+of Seth Able Robinson.
+
diff --git a/xtrn/lord2/cnw/docs/slayer.doc b/xtrn/lord2/cnw/docs/slayer.doc
new file mode 100644
index 0000000000000000000000000000000000000000..0a36518e6eedb54cd203cd043c15b17f127eef4e
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/slayer.doc
@@ -0,0 +1,17 @@
+Slayer's Domain is my first IGM. It has lots to do if you find the quests
+which arent very hard [to find]. It has shops and stuff too. Send all bug
+reports and comments etc. to bmondoux@geocities.com! This IGM comes with
+compiled .refs, they will have the extension .rec This igm creates the
+following .idf files: slayer.idf; coolness.idf; slay.idf; stable.idf;
+head.idf; done.idf; dead.idf; tree.idf; matt.idf You must delete ALL these
+files when you reset LORD2, or the IGM will not reset! New version fixes
+continuity problems.
+
+Thanks to:
+
+ Bobby Queen: For his awesome work on LORD2 IGMs!
+ Seth Robinson: For making LORD2
+
+
+
+
diff --git a/xtrn/lord2/cnw/docs/sysop.doc b/xtrn/lord2/cnw/docs/sysop.doc
new file mode 100644
index 0000000000000000000000000000000000000000..48fead4fba0ed855447685925649d3e621892173
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/sysop.doc
@@ -0,0 +1,461 @@
+ �
+��� �
+��� �
+��� egend �
+��� ��� �
+������� �
+ �
+������� �
+��� ��� �
+��� ��� �
+��� ��� �
+������� �
+ �
+������� �LORD 2 (Legend of the Red Dragon) is a multi-player battle game
+��� ��� � created for Bulletin Board Systems (BBS).
+����߱� ed �
+��� ��� � (c) Copyright 1997: Robinson Technologies, Inc.
+��� ��� � All rights reserved.
+ �
+������� � Written By: Seth Able Robinson
+��� ��� � Compiled 7/6/97
+��� ���ragon �
+��� ��� � Seth A. Robinson
+������� II � 761 E St
+ � Independence, OR 97351
+ New World �
+ � The Darkside BBS
+ V1.01a � (503) 838-6171
+ �
+ �
+ � WWW: www.rtsoft.com
+ � Email: sethable@rtsoft.com
+ �
+ � This archive may be shared with all, in its unmodified
+ � shareware format.
+ �
+ �
+ �
+ � TEXT FILES INCLUDED:
+ �
+ � REGISTER.DOC <- Info on buying this product
+ � REFHELP.DOC <- Info on the .REF scripting language
+ � SYSOP.DOC <- Setting it up and general info
+ � 3RDPARTY.DOC <- Tips and help and the structures
+ � IGM.DOC <- How to make an IGM for LORD2 easy.
+ � LORDAD.ANS <- Ansi ad for your BBS if you want it
+ � COMPILE.DOC <- How to compile your .ref's
+ �
+ �
+
+
+������������������������������������������������������������������������������ͻ
+� ����������������������������������� Index ���������������������������������� �
+������������������������������������������������������������������������������ͼ
+ Part 1 -=-=- Introduction and description
+ Part 2 -=-=- Setup locally or with a BBS
+ Part 3 -=-=- Common Questions & Answers
+ Part 4 -=-=- Acknowledgements
+
+
+������������������������������������������������������������������������������ͻ
+� ������������������������������ Introduction �������������������������������� �
+������������������������������������������������������������������������������ͼ
+
+Most of you know what LORD is - a BBS door over 8 years old I originally
+wrote on a Commodore Amiga. It was funny and strange and did very well.
+
+This is the sequel - some will be suprised to find it plays completly
+different, although it contains many of the same characters.
+
+Here is why:
+
+ This game is FREAKIN' huge.
+
+ It is a large zelda type world that lets players roam about as enemies or
+ friends.
+
+The entire game runs under a nifty engine - this gaming engine is what
+is special - it allows people run walk around in the same world. It uses
+clock based timing to communicate by HD through tiny, tiny files. For
+instance, the locations of all players are in one tiny file.
+
+This tiny file is read and written very quickly using advanced file
+locking techniques. It is recommended you use a disk cache such as
+Smartdrv.exe or things will run entirely too slow.
+
+The engine is smart enough to NOT draw every single movement other players
+are making - if a player is moving quickly, it will still draw him at the
+same rate, making the game playable, even at 2400 baud. And of course,
+the engine will not redraw players unless they have moved.
+
+You can CHANGE how quicky it 'polls' the HD from the Game Options in
+L2CFG.EXE. (100 is one second, which is standard. Set to 50 to poll
+twice as fast, player movement will be more acurate, but require more
+computer muscle)
+
+ Some of LORD2 many features:
+
+ * It's an ANSI graphical MUD
+ * It gives a new meaning to the word multi-player
+ * People can SEE other people moving around the map in realtime
+ * People can travel in packs, follow each other around, show people
+ hidden stuff, ect
+ * Players can pickup/buy/sell and use items
+ * Smart data recovery after dropped carriers and even lockups.
+ * Swear checking
+ * Players can GIVE items/money to other players offline or online
+ * Players can 1 on 1 chat in realtime, or use globals so everyone can see
+ * NPC's can travel with you (sort of), and you can talk to them
+ * It is possible to do things like buy a castle or hold and live in it!
+ * IGM support with drop in maps
+ * A huge and interesting world filled with lots of story and uniqueness
+ * Sort of sick and twisted
+ * Regular and adventure mode (unlimited lives, no turn limits)
+ * Turns per day, clean mode and more can be set by editting RULES.REF with
+ a text editor
+ * Unlimited worlds and quests can be added, either by you or you can
+ download other peoples work
+ * Creates bulletin outputs as SCORE.ANS and SCORE.TXT each time someone
+ 'lists players'.
+ * 1000 levels
+ * Only $15 to register
+
+ Features creative people with time would be interested in:
+
+ * Complete easy to use map editor, up to 2 million locations
+ * LORD II's innards are completely built with the the .REF system, this
+ means you can edit them in any way you want
+ * The RTREADER .REF system has had a major overhaul and is inside the engine
+ * Item editor
+ * Add as many quests and characters as you want
+ * EVERYTHING can be changed, even the player ranking format or stat screen
+ * You can distribute your own 'world' to other LORD II users
+ * You could make your own addon pack that is a different game completely
+ (get 'The Brady Bunch Adventure' from somewhere, it is an example of
+ what this .ref system can do working as a whole different game)
+
+
+ Until you register, you can only access only a small portion of the game.
+
+ (this file contains the registered version too, you can unlock it by
+ purchasing a registration code - in minutes over the phone even!)
+
+ REGISTERED FEATURES:
+
+ * Can use more items, weapons and armour.
+ * Over 300 new map screens
+ * Will work with larger IGM's
+ * PortTown
+ * Flagcity
+ * Sosen Village
+ * Arrisville
+ * Quest2000 random quest engine
+ * The Lodge
+ * Bounty hunting, players and NPC bounty hunters
+ * Slots and craps at the Bonetown casino
+ * Several brothels, woo! (unless in clean mode)
+ * Game can be won 2 ways, good and evil. Or even both...
+ * When someone wins, the game is NOT reset - instead they get special
+ powers and can continue to rule the game
+ * Polar regions, mountain areas, ect.
+ * Sleep at many different inns
+ * 4 ownable landmarks some with special abilities - unregistered only
+ one.
+ * All future upgrades to DOS LORD2: New World will be FREE for you!
+ * Everyone will be mailed a hardcopy with their code on it for safe
+ keeping
+ * You'll be supporting shareware - this means we will love you, and
+ will keep adding to the game.
+
+������������������������������������������������������������������������������ͻ
+� ���������������������������������� Setup ����������������������������������� �
+������������������������������������������������������������������������������ͼ
+
+*****NOTE: To change rule settings for LORD2 (including TURNS PER DAY), you
+ must edit the RULES.REF file with a text editor.
+
+
+Ok - First you will want to know what the game looks like and if it works.
+
+Here is how to play it locally:
+
+From DOS type:
+
+LORD2
+
+That is it. It will give you the name of SYSOP automatically.
+
+To test it out multinode locally under Win95, DV or OS/2:
+
+Open a window and run "LORD2", get into the game.
+
+Open ANOTHER window and run "LORD2 /L", this will prompt you for
+your name. (allowing you to make a new character)
+
+Once in the game, you should see the second character pop up on the
+first guys screen. You are now enjoying truly multinode movement!
+
+It is possible to play a game with friends over a LAN, as long as
+everyone can play from the same guys drive, it will work.
+
+To set it up for your BBS:
+
+Well, if you've ever set up LORD or Planets: TEOS, this will be a
+breeze! The setup is identical.
+
+STEP 1:
+
+Run L2CFG.EXE. Choose the (S)etup nodes option. There is an option
+to copy the settings from LORD or TEOS if you already have those
+installed.
+
+STEP 2:
+
+Edit the LORD2.BAT file. At the top, change the cd statements to reflect
+where the LORD2 files are located. (we want to move to the LORD2 dir
+before running the game)
+
+STEP 3:
+
+Have you BBS run:
+
+CALL LORD2 <node number> (ie: "CALL LORD2 1" for node 1)
+
+For multiplayer interaction to work properly, make sure each player is
+on a DIFFERENT node #. (Don't do "call lord2 1" for all nodes, actually
+it would probably work ok now that I think about it...)
+
+***** How to trouble shoot a problem ******
+
+When LORD2 starts, it shows the comport, fossil driver info ect - if
+you hit Pause right when LORD2 starts, you can make it stop so you can
+compare it to your system and make sure LORD2's setup is correct.
+
+(it doesn't show this screen remotely)
+
+***** About the CALL statement *****
+
+If you run it like this:
+
+CALL LORD2
+
+And forget the 1 as a parm, it will run as node 0 which is by default,
+locally. So if it keeps coming up in local move, this is probably why.
+
+If you run it like this:
+
+LORD2 1
+
+And after LORD2 is played and the user quits, it stops at a DOS prompt,
+this is because you need word CALL in front. This will allow it to
+be called from a batch file and RETURN when it is done.
+
+
+������������������������������������������������������������������������������ͻ
+� ������������������������ Common Questions & Answers ������������������������ �
+������������������������������������������������������������������������������ͼ
+
+Q: What is the RULES.REF file for?
+
+A: This is VERY important - if you wish to see what settings can be
+ changed in LORD 2, edit this file. It's self explanatory but we'll
+ go over it anyway.
+
+Q: What is adventure mode?
+
+A: It means your callers can CONTINUE to play after they are 'killed'.
+ (instead of having to wait until the next day)
+
+ Edit the RULES.REF file, you will see where to change the 0 to 1 to
+ activate this mode.
+
+Q: What are 'turns per day'?
+
+A: Changing this lets you set how many 'movements' a person can do a
+ day. We've defaulted it to 3000. 6000 would mean they can play
+ twice as long. Setting it to 0 means NO LIMITS at all.
+
+Q: I've been playing locally and I want it to be the 'next day' and I am
+ tired of changing the date!
+
+A: Heh, ok.. Add /MAINT to the command line when you play, it will cause
+ it to advance a day.
+
+Q: I tried to play and it said "Someone is attacking you/giving you an
+ item, try again later." but no one is?? What's up!??!
+
+A: On rare occasions LORD2 will make a mistake due to a crash or runtime
+ error - it will automatically fix this 60 minutes from when it happened,
+ just wait until then. Or run ALLOFF.EXE, this will tell LORD no one
+ is logged on, therby fixing the problem.
+
+Q: I noticed Swear Patrol is on. But I love swearing!! How can I turn
+ it off?
+
+A: Easy.. Same as LORD. Delete the BADWORDS.DAT file or edit it to your
+ liking.
+
+Q: How come I don't see an intro screen when I play with an (E)nter the
+ realm option like LORD and all the LORD clones?
+
+A: This isn't a LORD clone. As soon as the door is run, the 'adventure'
+ begins. I'm sorry it's unorthodox, but I kinda like it. If you REALLY
+ need an 'intro screen' you could easily add one - put it in the rules
+ ini, it is run before the game starts.
+
+Q: I know LORD2 is incredible in how it can allow you to see other real
+ people moving and all, but really, how many people could it support
+ at once?
+
+A: Good question. It communicates entirely through a complicated
+ process of file locking, it depends on how fast your HD is, how
+ well it is caches and such.
+
+ Running over a network will work, although it will slow it down
+ a bit.
+
+ I have not done many tests, but if things are too slow, like you have 6
+ people in and it is unplayably slow, then you will want to change
+ the poll rate to 500 for read and write, this way it will only update
+ every 5 seconds, thereby requiring much less disk access.
+
+ Setting the poll time to something really high effectivly turns off
+ most communication - it will still play multinode fine and fast, but
+ players will not see other players moving around. (But it will keep
+ track of who can attack and such, so it would work ok)
+
+Q: I already registered LORD, so I get LORD2 for free, right?
+
+A: No. LORD2 is all new code and an all new game. For this reason, I
+ am charging for it seperately, at what I believe is a very fair price!
+
+Q: Yeah.. Um, I kinda like LORD2 and wanna buy it, can I buy 2 for $20
+ like with LORD?
+
+A: No. No volume discounts are available. (sorry!)
+
+Q: You make a lot of sexual allusions to goats. Why?
+
+A: Goats are people too. ;>
+
+Q: Why the hell are you still making ansi games? Why not internet winsock
+ compliant client/terminal games?
+
+A: I'm a loser! Nah, I really like BBS's and the thought of local people
+ getting together to game in the same world.
+
+ Remember - the most important part of a game isn't the graphics and
+ sound.. it's the game.
+
+ This is my last contribution to the BBS world!!
+
+Q: What is the real story behind New World?
+
+A:
+
+I promised a game called "New World" a few years ago, I even put an add into
+LORD for it. At the time, it was half done - it was a futuristic game
+that let you join a colonizing ship to go to a new world, and eventually
+Earth is destroyed for some reason and this little colony is all that is
+left.
+
+Alien artifacts are found and sold, you basically walked around and
+stuff, including flirting with this Natasha chick.
+
+BUT: I got bored and quit working on it. I don't know, I got bored and
+quit working on everything.
+
+Two months ago I got an ever so familiar email saying "Where is New World?
+I saw an add for it years ago!" and I snapped. I said "Gawd damn it!! I
+better finish this friggin game!!!" so I starting working on it.
+
+A week later I renamed it to LORD II: New World. Viola! I got to work
+with characters I liked in a world I liked and I also got to use
+the "New World" engine (although I ended up changing it quite a bit) and be
+true to my promise.
+
+I'm probably gonna put up the unfinished New World game up for download
+sometime in the 'Nostalgia' dir just so people could see what it would
+have been like...
+
+������������������������������������������������������������������������������ͻ
+� ����������������������������� Acknowledgements ����������������������������� �
+������������������������������������������������������������������������������ͼ
+
+Special thanks to the RTSoft staff:
+
+ Seth A. Robinson
+ Greg Smith
+ Sean Teal
+ Justin Martin
+ Kurt Kim
+ Dan Oliver
+
+ About Greg Smith - he is a 19 year old college student who gamed with us
+ regularly. He started helping me make map screens for LORD2 - often. Then
+ one day he showed up with a brand new (and lavish) chair. He then become
+ a permanent fixture around here!! He is working VC++ stuff too.
+
+ He did ALL of the ANSI maps for the northern continent and most left of
+ Porttown. Without him the map would have been a LOT smaller!!!
+
+ About Sean Teal - Ok, he actually likes his named spelled Shawn but it is
+ fun to give him a hard time. He handles a LOT of the day to day operations
+ around here including going through ALL email before I do and helping
+ people get their reg codes. He programs too!! He's 23.
+
+ Justin Martin - Ok, he really didn't help with this project, but he is
+ our artist and has been working VERY hard on our new game Dink Smallwood.
+ Oh - did our LORD poster too! He's 24.
+
+ Kurt Kim - He didn't help much either, but watch for him, natural talent
+ like his is very rare. He's 17.
+
+ Dan Oliver - You may know him from the TEOS IGM 'Hippy Van', but he
+ actually is working with me with Directx VC++ programming for new games,
+ watch for his!!! He's 18.
+
+ Seth A. Robinson - I provide the electricity, moniters, keyboards and
+ mice. They bring their boxes and plug in! I am also the project
+ cordinator. Recently I bought a building for us to work in, it has
+ always been my dream to work with a talented group such as this, I know
+ we will create great things. I'm 22.
+
+And some others:
+
+Jesse Barfknecht: Helped to goof off.
+Chris Navilio: He rocks!
+My family: For everything. And for helping me move into my new house!!!
+
+** MASTER BETA TESTERS **
+
+Trevor Lemon
+Neal Pearson
+valtane@digitaledge.com
+Jeremy Stewart
+Ben Tiefert
+Gangsta 'o love
+Joe Orsborn
+Adam Smith
+Dr Feelgood
+Elliott Goodman
+
+I feel like I owe so much to this people - most are skilling programmers
+too and are also creating there own masterpieces, so I doubly appreciate
+the time they took to help me with mine. I will gladly do the same for
+any of them!
+
+Hundreds of others deserve to be listed here too, I recieved THOUSANDS of
+bug reports about LORD2 - I really appreciate it!!! It would be SOO
+buggy without you guys!!!
+
+Mulaware; Copyright 1992, ABSoft - ALL RIGHTS RESERVED
+Turbo Pascal is a registered trademark of Borland International
+Windows is a registered trademark of Microsoft Corporation
+OS/2 is a registered trademark of IBM Corporation
+MS-DOS is a registered trademark of Microsoft Corporation
+RIPterm, RIPscrip, RIPaint, the RIPterm logo, TeleGrafix Communications.
+
+All other programs are copyright and/or trademarked by their respective author
+unless otherwise noted.
diff --git a/xtrn/lord2/cnw/docs/sysop.txt b/xtrn/lord2/cnw/docs/sysop.txt
new file mode 100644
index 0000000000000000000000000000000000000000..64bc56eece9f39c1b2b992b39b9e87beddc062ea
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/sysop.txt
@@ -0,0 +1,18 @@
+Hello, this is here, for instructions on how to make it so that if you
+have takin the smackrod or Gryphon Moon off someone, because they've been
+somehow cheating with it.. They won't be able to get it back..
+Change `p99 to 5. You can do this by going into the player's account, and
+going into longest variables.. The last Variable is 99, it says something like
+
+VAR 99 Choked Mom? 0
+
+Change that to 5 and voila. The user won't be able to get the smackrod..
+
+Change it to 6 and they won't be able to get the Gryphon moon..
+
+Change it to 7 and they won't be able to get anything!
+(I hope you don't have users like that)
+
+Okay thats how you do it..
+
+Spencer Vickers (aka Mountie)
diff --git a/xtrn/lord2/cnw/docs/sysop2.doc b/xtrn/lord2/cnw/docs/sysop2.doc
new file mode 100644
index 0000000000000000000000000000000000000000..7ec92db340e37f194b275230eb23debd25527207
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/sysop2.doc
@@ -0,0 +1,38 @@
+ Shangri La
+
+ By Nicholas Morrissey (FLiNK)
+
+
+This is my second IGM I have made for LORD2 (My other being FLiNK'S HoWSe).
+And this is my best one yet (I wonder why).
+
+In order to install this, put the following files in the LORD2 directory
+
+SL.REF (File containing text for this IGM)
+SL.DAT (The two maps)
+SL.IGM (The file that tells LORD2 how to install and remove the IGM)
+
+And then type in the following:
+
+igm sl.igm
+
+It will change around the maps and give you a brief description.
+
+
+
+Unfortunatly, because I don't know didley about this IGM (I have the UNREGIS-
+TERED version of LORD2, I don't have a clue if this works!!), e-mail me to say
+if it does (I'd love to know).
+
+
+
+Anyways, to reach me, leave me an e-mail at:
+ibf1047@infonet.st-johns.nf.ca
+
+or via my homepage, which is at:
+http://www.geocities.com/Area51/Cavern/1680
+
+Anyways, expect to see many more IGM's from me because they are easy to make.
+
+Thanks,
+FLiNK
diff --git a/xtrn/lord2/cnw/docs/sysops.doc b/xtrn/lord2/cnw/docs/sysops.doc
new file mode 100644
index 0000000000000000000000000000000000000000..ef811bc49adb8e6ebece28b675c40289236e871f
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/sysops.doc
@@ -0,0 +1,91 @@
+ ���Ŀ����Ŀ�����Ŀ���Ŀ ������Ŀ������Ŀ����Ŀ
+ ����������ٳ�����ٳ���� ����ڿ۳����ڿ۳���� ��
+ ���۳���۳ ������ ���۳ ���۳�۳��� ��۳���ڿ۳
+ ���۳���۳ ������ ���۳ ���۳�۳���ڿ��ٳ����۳
+ ���۳�����������Ŀ�����Ŀ������۳��۳�۳ �����۳
+ ���������������������������������������� �������
+ IceLord Keep (tm) v1.48 by Commando
+
+ (< 11/03/97 >)
+
+ FINALLY an update/bugfixer to one of the first IGM's!!
+ Sorry for the long time. I have been busy. Keep looking
+ for my v1.50 sometime soon with the guilds!!! This is the
+ best and most complex IGM for the great game LORD2. This
+ takes the great idea of sethable and adds a little bit of
+ flavor to it! IceLord Keep takes over the old Runion Keep
+ and adds all new ansi screens with tons of new features
+ and programming behind it! You and your users will love
+ the feel that this "Keep" adds to your game's atmosphere!
+ Also new is the original feature of "Guilds" that will be
+ added soon! and as always this program is.. FREEWARE!
+
+ _________________________________________________________
+
+ Features:
+
+ * 10 large beds - Share the keep w/ your friends!
+ * 2 Bed Floors - 8 lower beds & Owners bed w/ extra!
+ * Dungeon - visit guard, fight escapers, help Gandalf!
+ * Hospital - Anyone inside can heal for free!
+ * Horse Courier - Can take you to different places!
+ * Treasury - a treasure chest for anyone to access!
+ * Tavern - Bartender to serve drinks, hang out!
+ * Drinking Contest - Drink w/ Sandtiger and win!
+ * Tower - Save the daughter of Gandalf
+ * Safety - no attacking in bedrooms, just outside!
+ * Guilds - Create/Join your own guild! (coming v1.50)
+ * Great ANSI's - really nice ansi's by artists!
+ * Passwords - can be set for sections of keep!
+
+ _________________________________________________________
+
+ Support:
+
+ IceLord BBS | (330)668-9815 | 33600bps
+ IceLord ][ BBS | (Some Day!) | ========
+
+ _________________________________________________________
+
+ Thanks:
+
+ All my CoSysOps - James Bond, Panther, & Dagger
+ Seth Able Robinson - making such a great game!
+ Home Pages - For putting up my igm
+ For being cool - Carter & my friends
+
+ _________________________________________________________
+
+ Progerz Wanted!
+
+ If you have a great idea for this igm and think
+ you would like to share it w/ me, then please
+ send it to me via E-Mail and i'll let you know!
+ I am always open to Other Sysop/User opinions and
+ suggestions!
+
+ _________________________________________________________
+
+ DiSkLamER!
+
+ Hey, if you wanna try out this awesome igm which
+ everyone loves go for it!! if your paranoid its
+ your loss, i don't claim responsibility for crap
+ just that it rules! As far as bugs just let me
+ know about them if any <G>
+
+ _________________________________________________________
+
+ Author: can be reached at!
+
+ Commando- IceLord33@aol.com
+
+ _________________________________________________________
+
+ Other Junk:
+
+ Lord ][ is a trademark of Sethable Robinson
+ "IceLord" & "IceLord Keep" is a TM of IceLord
+ Soft Any misuse, change, or borrowing of this
+ program is prohibited-illegal without the
+ conscent or permission of the author "Commando"
diff --git a/xtrn/lord2/cnw/docs/teamlord.txt b/xtrn/lord2/cnw/docs/teamlord.txt
new file mode 100644
index 0000000000000000000000000000000000000000..7d39fb789b7c983d27aaed91ddd9cb6448add40e
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/teamlord.txt
@@ -0,0 +1,37 @@
+ Cool TeamLORD v 1.30
+ Copyright (C) Coolhouse
+ -------------------------------------
+ This great IGM adds 5 TeamHouses over the world, but overwrites Castles and Wizard's
+ tower, so don't install this if you don't want to loose your castles.
+
+ If you think its boring to play LORD][ over and over then you should install this.
+
+ This IGM overwrites 8 screens and adds 2.
+
+Help
+-----
+You can buy TEamHouse just like other houses/castles. When you own teamhouse, you must
+change teams name and password. Next go and train your pet Dragon.
+Every time when somebody(not owner) enters house he/she must enter a password
+or attack team's pet Dragon.
+When training your dragon, remember that when it dies it looses its defense and strenght.
+
+
+
+ NEW!!
+----------
+
+1.3 real bugfix
+
+1.2 Adds chatwall and healer
+
+1.1 bugfix
+
+1.0 Dosen't work
+
+
+ BUG REPORT!
+----------------
+This version is still beta version so if you find a bug please mail me about it
+
+e-mail: latex@death-star.com
diff --git a/xtrn/lord2/cnw/docs/theif.doc b/xtrn/lord2/cnw/docs/theif.doc
new file mode 100644
index 0000000000000000000000000000000000000000..47f1e8038173caddb448c03ab655615296fb0b69
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/theif.doc
@@ -0,0 +1,34 @@
+The Bridge of Thieves v3.10
+(c)1997 TonyTown Software Ltd.
+LORD II is a registered trademark of RTSoft Inc.
+
+
+I. Introduction
+ The Bridge of Theifs is an IGM for LORD II, a game by RTSoft. This
+bridge is a HUGE bridge that connects ArrisVille and The Northlands. It has
+a lot of monsters on it. This can be used instead of the 1000 gold ferry!
+
+
+II. Installation
+ Installation is simple, just run INSTALL.BAT.
+
+III. Different Contacts
+
+ RTSoft : www.rtsoft.com
+ www.flash.net/~tmbrtmbr/rtsoft (OFFICAL MIRROR)
+ sethable@rtsoft.com
+
+
+IV. Thanks
+
+Thanks to Seth Able Robinson for creating another great game! Are you gonna
+make a TEOS2 anytime soon? (or a TEOS: Tournament Edition)
+
+V. BUG FIXES/ADDITIONS
+
+Additons since the last version :
+
+-I was really stupid! I forgot screen 767! DUHHH! Thank you Ben
+Tiefert for helping me notice this bug!
+-Change the version number!
+-All files are compiled... have a nice day.
diff --git a/xtrn/lord2/cnw/docs/thod.doc b/xtrn/lord2/cnw/docs/thod.doc
new file mode 100644
index 0000000000000000000000000000000000000000..731a00739a2804ee43aec112d265865244c085fd
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/thod.doc
@@ -0,0 +1,25 @@
+ The House of Dreams v2.00
+
+ Welcome to my third LORD II IGM.
+
+ To start, I will not be held legally responsible if this program does
+ anything damaging to your computer. It wasn't designed to do so, so if
+ it does, someone messed with it!
+
+INSTALLATION:
+ This is simple. Use the IGM.exe provided with LORD II and the rest
+ will work itself. This IGM is completely useless when installed on a
+ non-registered version. So don't even install if it's unregistered.
+
+IDEA:
+ The idea behind this that I wanted to make an IGM using the @data codes
+ and so this is was first attempt. Now it use my animation sequences and
+ better graphics along with my new InterIGM features to make it better.
+
+VERSION:
+ This is version 2.00. This version is a long awaited update to my
+ worst IGM to date(only 3 stars...). Graphically better and animated
+ sequences along with InterIGM functions. Now thats what it needed.
+
+Written by: Tien Lung of Godlike Productions
+E-mail: tienlung@hwcn.org
diff --git a/xtrn/lord2/cnw/docs/tmhsknew.doc b/xtrn/lord2/cnw/docs/tmhsknew.doc
new file mode 100644
index 0000000000000000000000000000000000000000..178af41b6858054af166d8a3c24ad55a10200f16
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/tmhsknew.doc
@@ -0,0 +1,13 @@
+Frostglint Keep.
+----------------
+
+I wasn't gonna make another version of this igm. But I'd better fix that
+stupid bug with the HP blessing... and maybe if needs some new shops/buildings
+
+
+Stuff Changed Since The last Version:
+
+* The Consitition Blessing Now Works.
+* Two More Random Things Are In The Hidden Chest.
+* It No Longer Stuffs Up When You Try To Sell Something.
+* Dragon Tooth Outpost Complete.
diff --git a/xtrn/lord2/cnw/docs/tscrew.doc b/xtrn/lord2/cnw/docs/tscrew.doc
new file mode 100644
index 0000000000000000000000000000000000000000..53a8572773735c69ff838374a2435b906970c0db
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/tscrew.doc
@@ -0,0 +1,160 @@
+The only thing you must do manually:
+
+type IGM TLSCREW.IGM
+
+If, as I'm sure many of you do, you have other IGM's installed and overwriting
+the ITEMS.REF or ITEMS.DAT would delete THEIR data, you must install the
+following manually:
+
+(ITEMS.REF)
+
+;---The Following is used by TLS1.REF
+@#groon
+;Myphon Groon
+@routine GTRANS in TLS1.REF
+@drawmap
+@update
+
+@#screw
+;The Loose Screw
+@routine GSCREW in TLS2.REF
+@drawmap
+@update
+;---------------------------------
+
+(In the Item Editor)
+
+ LORD II ITEM EDITOR editing item (94 of 99)
+ (A) Name of the item : `$The Loose Screw BBS
+ (B) Action string :
+ (C) Used as armour? : No
+ (D) Used as weapon? : No
+ (E) Can be sold? : No
+ (F) Ref, If "Usable"? : SCREW
+ (G) Use string : Call (801)561-4780!
+ (H) Gold value :
+ (I) Used only once? : No
+ (J) Breaks 1 out of : Never breaks.
+� (K) Description : A really cheap advertisement.
+ (L) Weapon Strength : 0
+ (M) Armour Defence : 0
+ (N) Quest item? : No
+ (*) Show all items.
+ ([) Go back an account
+ (]) Go forward an account
+ (Q) Quit
+
+
+ LORD II ITEM EDITOR editing item (96 of 99)
+� (A) Name of the item : `9Light Saber
+ (B) Action string : Choove, wooove, wooove
+ (C) Used as armour? : No
+ (D) Used as weapon? : Yes
+ (E) Can be sold? : No
+ (F) Ref, If "Usable"? :
+ (G) Use string :
+ (H) Gold value :
+ (I) Used only once? : No
+ (J) Breaks 1 out of : Never breaks.
+ (K) Description : A glowing beauty! (+550)
+ (L) Weapon Strength : 550
+ (M) Armour Defence : 0
+ (N) Quest item? : No
+ (*) Show all items.
+ ([) Go back an account
+ (]) Go forward an account
+ (Q) Quit
+
+ LORD II ITEM EDITOR editing item (95 of 99)
+� (A) Name of the item : `#Myphon Groon
+ (B) Action string :
+ (C) Used as armour? : No
+ (D) Used as weapon? : No
+ (E) Can be sold? : No
+ (F) Ref, If "Usable"? : GROON
+ (G) Use string : Rub the Myphon Groon
+ (H) Gold value :
+ (I) Used only once? : No
+ (J) Breaks 1 out of : Never breaks.
+ (K) Description : It looks a little like nothing
+ (L) Weapon Strength : 0
+ (M) Armour Defence : 0
+ (N) Quest item? : No
+ (*) Show all items.
+ ([) Go back an account
+ (]) Go forward an account
+ (Q) Quit
+
+--------------------
+Ok, the lightsaber seems like an unfair weapon...but only people who can
+find it (and that is a TOUGH thing to do).
+It will most likely not be found by most, and even those who reach it will
+most likely be very experienced players (the enemy's along the way are
+tough)
+
+And the Myphon Groon (not only a satire) actually allows for people to
+transfer to any city of their choice -- however. This item is guarded by
+Blando, who will be near impossible to defeat until a person has completed
+the game...so...
+With v1.03 I changed this: The Groon is easier to reach; however, for
+everywhere a person transfers themself, their turns (divided by 5) are
+subtracted...thus making the Groon only useful about 5 times per day!
+
+Innard's Experienced Tower will actually give users EXP points (randomly
+chosen between 1 and 9000) once a day...
+
+Violet is located in Jabba's Hutt, as is Tira, as is Princess Laya -- all
+of them can be flirted with and, if a user's charm is high enough, laid!
+
+The drinks from the bartender do the following:
+
+20,000$ -- gives a user 8 muscle
+25,000$ -- gives a user 10 dodge
+30,000$ -- gives a user +8 max HP
+
+Burrito (brother of Greedo) is used in a similar fashion as that of the
+treehouse. A user can tell Greedo to kill a certain user, and, if the user
+has a run in with Burrito, then -- well, the user is dead...
+
+When someone finds the screw in Cloud City, it will say, of course, that
+they have found a screw. However, if they check their inventory, they will
+find they do not in fact have a screw...this was to save precious ITEM
+space -- a screw that would do nothing would be pointless to put it. So it
+writes to screw.dat that the user has found the screw (NEVER run the daily
+maintenance on this file, or they can find screw after screw after screw)
+and then, if they chat with the sysops, they find The Loose Screw BBS -- which,
+is not only a cheap form of advertising, but it also a great way to get
+back to the IGM.
+
+With v1.03, Dagobah is finished! It allows for random collecting of Yoda's
+body parts, and then trading them in for prizes (all of which seem to be
+pretty fair to me...if you disagree, mail me and let me know). As far as I
+know, this area CANNOT be cheated -- there are no bugs so a person can use
+it multiple times a day and what-not. I took every precaution. I hope it
+works exactly -- I hate cheaters. If you find any bugs, in Dagobah or
+elsewhere, let me know!
+
+-----------------------
+
+Files it creates (don't touch):
+
+TLSLAYA.IDF -- used to tell if a user has flirted with Laya or not
+TLSTIRA.IDF -- used to tell if a user has flirted with Tira or not
+TLSVLET.IDF -- used to tell if a user has flirted with Violet or not
+TLSSCREW.DAT -- used to tell if a user has found the screw
+TLSINNRD.DAT -- used to tell if the user has used the Random Gesture
+TLSWANT.DAT -- used to tel if the user has beaten the Wanted Man
+TLSBUR.DAT -- used for Burrito's "who to kill"
+TLS1.SAV -- used for un-installation
+TLSINNRD.DAT -- This holds all the movie lines <g>
+TLSBLANDO.DAT -- used to tell if the user has beaten Blando or not...
+TLSYODA.DAT -- saves whether the user has Yoda's pouch or not yet...
+TLSTURNS.DAT -- saves the users turns when they enter Dagobah for comparison
+TLSTODAG.DAT -- saves whether or not the user has used his turns at Dagobah today
+TLSYODA1.DAT -- saves who and who not to let into Dagobah
+
+If you have any questions, e-mail me at screwy343@aol.com or at
+chris.yeates@sharecity.com, or even FASTER is at my BBS -- The Loose Screw
+(801)561-4780...
+
+
diff --git a/xtrn/lord2/cnw/docs/tst.doc b/xtrn/lord2/cnw/docs/tst.doc
new file mode 100644
index 0000000000000000000000000000000000000000..c7507c6ca17beea20611ba41b0ecfc9c6a517bd0
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/tst.doc
@@ -0,0 +1,25 @@
+ Time Stands Still v2.01
+
+ This IGM is will take players back to ancient Greentree before the
+Red Dragons slaying.
+
+INSTALLATION:
+ This is simple. Use the IGM.exe provided with LORD II and the rest
+will work itself. This IGM is completely useless when installed on a
+non-registered version. So don't even install if it's unregistered.
+
+IDEA:
+ The idea behind this was to create another IGM for LORD2 so I didn't
+really feel like I've abondonned it. This is the result.
+ Now characters can interact in this Greentree from the past and
+now that the dragon is installed into the game, you get a lot more to do...
+Including a chance to fight him!
+
+VERSION:
+ This is version 2.01 and this includes the Red Dragon. It will chat
+with players if you want.. or you can become the hero and slay the dragon
+but I didn't make that easy. The update from 2.00 to 2.01 was just an
+error correction.
+
+Written by: Tien Lung of Godlike Productions
+E-mail: tienlung@hwcn.org
diff --git a/xtrn/lord2/cnw/docs/uga.doc b/xtrn/lord2/cnw/docs/uga.doc
new file mode 100644
index 0000000000000000000000000000000000000000..d137728b2a7ae5416052fa446cc30beb873dea0f
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/uga.doc
@@ -0,0 +1,54 @@
+UNIVERSITY OF GREATER ARRISVILLE v1.0
+by Robby Dittmann
+
+Welcome to the latest version of Mamoosoft Programming's UNIVERSITY OF
+GREATER ARRISVILLE!
+
+TO INSTALL:
+
+1) Make sure the files are in your LORD II directory.
+
+2) Type the following at a command prompt:
+
+ IGM UGA.IGM
+
+3) Crank up LORD II and head to college!
+
+TO UNINSTALL:
+
+1) Type IGM UGA.IGM again.
+
+
+HISTORY:
+
+v1.0
+Original release
+
+SPECIAL THANKS TO:
+
+Mariam Dittmann for alpha, beta, and gamma testing! And for her help with
+the ANSI artwork.
+
+Matthew Dittmann for help creating the dorm monsters.
+
+REGISTRATION:
+
+University of Greater Arrisville is absolutely FREE. Just drop us a line to
+let us know you're using it.
+
+Find all the latest from Mamoosoft at our web site:
+
+http://home.sprynet.com/sprynet/robbyd
+
+Please let us know if you have any problems or questions. And let us know
+what you think!
+
+
+Robby Dittmann
+Mamoosoft Programming
+1:133/8003
+robbyd@sprynet.com
+
+DISCLAIMER:
+This product is offered "as is". The authors take no responsibility for any
+damage or problems you may incur.
diff --git a/xtrn/lord2/cnw/docs/update.doc b/xtrn/lord2/cnw/docs/update.doc
new file mode 100644
index 0000000000000000000000000000000000000000..4db7563f6b7bb036a5866871cf8d1967e3992246
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/update.doc
@@ -0,0 +1,188 @@
+This file contains installation steps for Global Registries v1.xx
+
+*** ***
+*** PLEASE READ THIS FILE, ESPECIALLY IF YOUR UPGRADING ***
+*** ***
+
+If you are reading this file then you must have unzipped the release
+.zip file into a temporary directory which was empty prior to unzipping.
+
+Your next steps depends on whether or not this is a NEW installation.
+ ===
+
+Note that you must be running the following version of Lord II:
+
+LORD II v1.01a
+
+If you are running Lord v1.00 then you must upgrade to the latest version
+or Lord II before you may install Global Registries.
+
+NEW INSTALLATION
+================
+
+For a new installation, you need to start off by printing out REGISTRY.DOC
+and following the instructions in this document on how to install Global
+Registries.
+
+UPGRADE INSTALLATION
+====================
+
+If you are upgrading from an earlier version of Global Registries then you have
+a few more steps which have to be made. Although you do NOT have to reset GR
+as part of the installation there are a few sysops who have expressed this as
+their plan.
+
+SYSOPS WHO ARE RESETTING read this:
+========================
+
+Follow these steps to fully reset your game of Global Registires:
+
+<If you need these instructions email me over the Internet>
+ at: auzzi@bigfoot.com
+
+SYSOPS WHO ARE NOT RESETTING read this:
+=======================================
+
+SYSOPS WHO ARE UPGRADING FROM v1.09 ONLY! to ANY other VERSION
+============================= ===== +++++ === =======
+
+ There were major revisions done between v1.09 and all the other versions.
+ You *MUST* complete these steps if you are upgrading from v1.09 to any
+ other version.
+
+ Make sure you know which version your running now. If you don't know, load
+ Global Registries and look for the version number at the top of the Global
+ Registries menu.
+
+1) Take a full backup of all your LORD II files from your LORD II directory.
+2) Type REGISTRY in your Lord II directory to Uninstall the map. This is req
+ in this version because we changed a few minor things.
+3) Copy the file UPDATxxx.ZIP to your Lord II directory.
+4) Unzip UPDATxxx.ZIP answering YES to overwriting any files, if there are any.
+5) Type REGISTRY in your Lord II directory a second time to re-install the map.
+
+In LOGSTUFF.REF at the very end of the file find the code:
+
+@if `s01 is T then goto readlog
+
+ @routine warn_user in regadver.ref <--- Delete this line!
+ <--- Delete this line!
+@#alldone
+
+6) Read MCODE.DOC. Make the code changes to REFULES.REF, ITEMS.REF and
+ GAMETXT.REF as outlined. It should take you less than 15min to complete
+ these changes. Please be ACCURATE with you changes. It will save you lots
+ of headaches in the long run. Also check and recheck your work. I have
+ tried to make my docs as easy to use as possible.
+
+7) The hardest part is over. Simply load Lord II, go into Global Registries and
+ the automatic update utility will run and install the latest version for you.
+8) Once the installation is complete verify the version number and installation
+ date has changed at the top of your Global Registries menu to the latest ver.
+9) Read the sysop release notes (GRSYSOP.RLN) for release information or type
+ ! to read the Sysop release notes online which is different from the release
+ notes the users can see.
+
+If you have any questions, please consult the Global Registries doc files
+(Registry.doc & Mcode.doc) or contact me at auzzi@bigfoot.com over the internet
+with your comments.
+
+
+SYSOPS WHO ARE UPGRADING FROM v1.10 or v1.11 to v1.12
+============================= ===== ===== =======
+ Make sure you know which version your running now. If you don't know, load
+ Global Registries and look for the version number at the top of the Global
+ Registries main menu.
+
+1) Take a full backup of all your LORD II files from your LORD II directory.
+2) Type REGISTRY in your Lord II directory to Uninstall the map. This is req
+ in this version because we changed a few minor things.
+2) Copy the file UPDATxxx.ZIP to your Lord II directory.
+3) Unzip UPDATxxx.ZIP answering YES to overwriting any files, if there are any.
+5) Type REGISTRY in your Lord II directory a second time to re-install the map.
+
+In LOGSTUFF.REF at the very end of the file find the code:
+
+@if `s01 is T then goto readlog
+ This routine has been moved elsewhere so
+@if dead is 0 then do <--- Delete this line!
+ @begin <--- Delete this line!
+ @routine warn_user in regadver.ref <--- Delete this line!
+ @end <--- Delete this line!
+ <--- Delete this line!
+@#alldone
+
+
+This routine should end up looking like this
+
+@if `s01 is T then goto readlog
+
+@#alldone
+
+
+In GAMETXT.REF near the end of the file find the code:
+
+** This is the code we deleted from LOGSTUFF.REF and moved here **
+
+ @if x < 1 then x is 27
+ @if y < 1 then y is 7
+ @if x > 80 then x is 27
+ @if y > 24 then y is 7
+
+ @show
+ `k
+ @do talk `0`n`x`2has`xentered`xthe`xrealm. all
+
+ @routine readlog in logstuff.ref
+
+ ;do end routines here
+ @#endgame
+ @do talk `0`n`x`2has`xleft. all
+ @if dead is 0 then do
+ @begin
+ @do move 1 24
+ @show
+
+ Change it to:
+
+ @if x < 1 then x is 27
+ @if y < 1 then y is 7
+ @if x > 80 then x is 27
+ @if y > 24 then y is 7
+
+ @show
+ `k
+ @do talk `0`n`x`2has`xentered`xthe`xrealm. all
+
+ @routine readlog in logstuff.ref
+
+ @if dead is 0 then do <--- Add this line
+ @begin <--- Add this line
+ @routine warn_user in regadver.ref <--- Add this line
+ @end <--- Add this line
+
+ ;do end routines here
+ @#endgame
+ @do talk `0`n`x`2has`xleft. all
+ @if dead is 0 then do
+ @begin
+ @do move 1 24
+ @show
+
+6) You shouldn't need to change anything else. If you wish though, you may
+ want to read MCODE.DOC. It's a new revised version (SIMPLIFIED CODE CHGS)
+ to our origional docs. Its less reading and way less coding changes. As
+ I said no other code changes is needed to go from v1.10 --> v1.12.
+
+7) Load Lord II, go into Global Registries and the automatic upgrade utility
+ will run and install the latest version for you.
+8) Check the version number and file date has changed at the top of your GR
+ menu to the latest version.
+9) Read the sysop release notes (GRSYSOP.RLN) for release information or type
+ ! to read the Sysop release note online which is different from the release
+ notes the users can see.
+
+If you have any questions, please consult the Global Registries docs file
+(registry.doc) or go to my Web Page http://home.att.net/~aussie.mfreeman/
+home.htm and email me directly.
+
diff --git a/xtrn/lord2/cnw/docs/upgrade.txt b/xtrn/lord2/cnw/docs/upgrade.txt
new file mode 100644
index 0000000000000000000000000000000000000000..a6daa07b5c1036ee5038c0da6cde316755bcaf06
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/upgrade.txt
@@ -0,0 +1,14 @@
+Before adding this if you already have Wizard's Castle installed please
+uninstall it by typing igm wizard.igm. Since this new IGM uses different
+names you will then need to delete the following files from your Lord II
+directory.
+
+wizard.dat
+wizard.ref
+wizfight.ref
+wizard.igm
+and wizard.sav if its there.
+
+Then you can re-install it by just hitting wizcast. I have a batch file
+to install the new version. Logon and enjoy the enhanced castle!
+
diff --git a/xtrn/lord2/cnw/docs/violet.doc b/xtrn/lord2/cnw/docs/violet.doc
new file mode 100644
index 0000000000000000000000000000000000000000..190e5ee50827c70867fc5670716c65320698e5ec
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/violet.doc
@@ -0,0 +1,83 @@
+Flirt with Seth Able/Violet Ver. 1.0 for LORD 2: New World
+Copyright 1997 FPSoft
+
+WWW: http://members.tripod.com/~fpsoft/
+E-Mail: fpsoft@mailexcite.com
+SnailMail:
+FPSoft
+6 Woodside Crescent
+Spruce Grove, AB
+T7X 3E5
+
+A LITTLE NOTE:
+
+This is the second LORD 2 IGM released by FPSoft. It is version
+1, so it is bound to have some bugs. If you find a bug, please fill out the
+registration form and, if you'd like, check off the box for the latest
+version and we will send you the latest debugged version on a floppy disk.
+If you give us an E-mail address, we will send it to you via E-mail if
+possible.
+
+Thanks for choosing FPSoft!!
+
+DISCLAIMER:
+
+Use this software at your own risk. Many hours of beta testing were
+spent testing this software, and as far as we know it's safe and stable.
+Even so, FPSoft cannot be responsible for any abnormal thing it does! So,
+if you do not agree with this, don't use this software.
+
+QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Nope
+ Using any LORD2 vars? : Yes
+ Overwrites any original .refs? : No
+ Saves and loads its own vars independently? : No
+ Adds new .refs? : Yes (1)
+ Replaces screens? : Yes (1)
+ Adds screens? : No
+ Free? : Yes, unless you have
+ girls on your BBS.
+
+INCLUDED WITH VIOLET:
+
+- violet.doc - This doc.
+- violet.igm - The IGM file for LORD2's use
+- violet.rec - the compiled .REF file for Violet
+- violet.dat - the map file for Violet
+- register.doc - Registration form.
+- file_id.diz - File ID (If you know what this is, you know what it's for)
+
+INSTALLING VIOLET:
+
+1. Drop all the toms files in the LORD2 directory
+2. type IGM VIOLET.IGM
+3. There! Violet is all installed!
+
+TROUBLESHOOTING:
+
+Q: AAAAGH! I had an IGM on the screen where Violet's is and now it's GONE!
+
+A: It is reccommedned that you install Violet on a newly installed LORD2 game.
+ If you liked the other IGM better than Violet (C'mon, give it a chance!),
+ then simply uninstall Violet by typing IGM VIOLET.IGM Violet will then be
+ uninstalled and your original IGM will be restored.
+
+Q: Hey! The girls can't flirt with Seth Able!
+
+A: Of course, it was purposly made so that you'd register it to get that
+ feature, it's only $5, and we'll send it to you on a floppy disk, via
+ mail. (We do use protective packaging, of course. And not only that, it
+ is 100% recycled material, yippee!) Why do you think it is called just
+ Violet?
+
+
+SPECIAL THANKS:
+
+Special thanks goes to one person, Seth A. Robinson for making the kick-ass
+LORD and LORD2 games. Live long and prosper, Seth!
+
+NOTE:
+
+If you have ANY problems with this IGM, E-mail or SnailMail us at the above
+addresses. Don't bug Seth about it.
diff --git a/xtrn/lord2/cnw/docs/wally.doc b/xtrn/lord2/cnw/docs/wally.doc
new file mode 100644
index 0000000000000000000000000000000000000000..01004e492d3d987d2f484831275432c6f3a39e9d
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/wally.doc
@@ -0,0 +1,48 @@
+WISE WALLY'S PUBLIC LIBRARY v1.0
+by Robby Dittmann
+
+Welcome to the latest version of MamooSoft Programming's WISE WALLY'S PUBLIC
+LIBRARY!
+
+INSTALLATION:
+
+1) Make sure the files are in your LORD II directory.
+
+2) Type the following at a command prompt:
+
+ IGM WALLY.IGM
+
+3) Crank up LORD II and get reading!
+
+TO UNINSTALL:
+
+1) Type IGM WALLY.IGM again.
+
+
+HISTORY:
+
+v1.0
+Original release
+
+SPECIAL THANKS TO:
+
+Mariam Dittmann for alpha, beta, and gamma testing!
+
+
+REGISTRATION:
+
+Wise Wally's Public Library is absolutely FREE. Of course, the author takes
+no responsibility for any damage or problems you may incur.
+
+Please let me know if you have any problems or questions. And let me know
+what you think!
+
+Robby Dittmann
+MamooSoft Programming
+1:133/8003
+robbyd@sprynet.com
+
+
+FIND ALL OF MAMOSOFT'S IGMs AT:
+http://www.sprynet.com/sprynet/robbyd
+
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/docs/wampa.doc b/xtrn/lord2/cnw/docs/wampa.doc
new file mode 100644
index 0000000000000000000000000000000000000000..09c88586343642ae3bc4eac967946bf519809415
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/wampa.doc
@@ -0,0 +1,10 @@
+Thanks for downloading my first Lord2 IGM. This IGM adds a cave to snowy pass,
+there you can kill the evil Wampa Ice Creature once a day, if you dare.
+
+:) Anywho, run the install.bat or IGM WAMPA.IGM to install it.
+to Uninstall it for some reason, run install.bat or IGM WAMPA.IGM
+
+Enjoy it
+
+ James Jones Sysop of The Shadow BBS! (850) 864-4292 (1:366/82)
+
diff --git a/xtrn/lord2/cnw/docs/warning.txt b/xtrn/lord2/cnw/docs/warning.txt
new file mode 100644
index 0000000000000000000000000000000000000000..3cbe4e5895ec355df3980e8ba70dd03983b632d2
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/warning.txt
@@ -0,0 +1,25 @@
+______________________The Sword Castle v2.0___________________________________
+
+Executing the file INSTALL.BAT will overwright the file QUEST.REF, the
+
+QUEST.REF file included in this IGM package has everything the original
+
+one has, it just makes an extra quest available from Aquaman at The Sword
+
+Castle.
+______________________________________________________________________________
+
+You will automatically be making a backup of Quest.ref by using the
+
+INSTALL program included in this zip. To execute it just type 'INSTALL'
+
+no quotes. The install will change the name of your old one to Quest2.ref,
+
+and The one included in the zip will be active until you decide to uninstall
+
+it. If you decide you do not like the Quest.ref, just type 'UNINSTAL' - no
+
+quotes to restore the old one.
+______________________________________________________________________________
+
+-MeRCeR-
diff --git a/xtrn/lord2/cnw/docs/whatsnew.112 b/xtrn/lord2/cnw/docs/whatsnew.112
new file mode 100644
index 0000000000000000000000000000000000000000..11a77c911b3ed593632720089cdea0a3f0360464
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/whatsnew.112
@@ -0,0 +1,32 @@
+=[ 0.50 ]=
+
+* made the land he lives on, and inside his house (looks really crap)
+* worked on the .REF for mythran a bit.. cant really do anything but talk
+* added rebecca (can't flirt yet, but working on it)
+* changed the land he lives on to an island, looks better
+* added a new topic in chat to why he lives on island
+
+=[ 1.00 ]=
+
+* added a basement!
+* you can flirt with rebecca now
+* added a money tree in the basement
+* put in rebeccas room, and toilets. (and fireplace)
+* added in monsters for basement and outside mythrans house
+* spruced the highest amount from money tree up to $100
+* release onto goose's nest for beta testing
+
+=[ 1.10 ]=
+
+* flirting with rebecca actually works now. ;) (very nasty bug.. the user
+ could flirt as many times as they wanted per day, giving them tonnes of exp
+ and charm (and muscle when they had sex.)
+* you can now get stuff off mythran once a day - gave you a better purpose to
+ go and see him each day.
+
+=[ 1.12 ]=
+
+* made all the monsters in the basement a little tougher
+* I changed the position of a money tree so you can actually work out which
+ tree it is.
+* released v1.12 to the public - have fun guys
diff --git a/xtrn/lord2/cnw/docs/whatsnew.doc b/xtrn/lord2/cnw/docs/whatsnew.doc
new file mode 100644
index 0000000000000000000000000000000000000000..5049bbac3a1f3623fdcaae9f8fb765ebb9a0edec
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/whatsnew.doc
@@ -0,0 +1,47 @@
+What is new in V1.01a since V1.01:
+
+* Fixed .EXE to automatically add .REF if needed.
+
+What is new in V1.01 since V1.00:
+
+* @prognam command works, now if you run BRADY.REF it will say 'Brady Bunch
+ Adventure' on the status bar correctly. (or any other program that uses
+ this feature)
+* (P)eople online function shows correct location for everyone. This bug
+ was related to changes in the loadmap function that were added at the last
+ minute in V1.00...
+* Ability to read compiled .refs. COMPILE.EXE and .doc are included for
+ developers.
+* Changed ITEMS.REF so that you can abort a quest at anytime by looking at
+ the 'sack' or whatever it is. People were turning evil then Prince Corin
+ would tell them to screw off and they could never finish the quest.
+* Fixed .REF error while talking to Basil in arris.ref.
+* Changed successfull to successful in quest.ref.
+* One eye had ANOTHER @show where it should have been a @saybar.. wish
+ I could blame Pap for that one.. ARGH!!!!
+* Fixed Turgon.ref so you can actually complete the quest. It's funny,
+ people actually were like 'change line 127 to such and such, moron!' and
+ they are right!!!!!! Many people fixed this stuff on their own, that is
+ cool that that is possible...
+* Fixed problem where sometimes people would pop up on their bed on the map
+ even though they were dead (they could be killed again)
+* Unregged people now warp back home properly, a change had to be done in
+ the items.ref file so it would change the X/Y cords BEFORE loading the
+ screen, before, they could warp in a weird black place and magically
+ walk to Greentree/etc.
+* Changed stoneb.ref so that it gives 3 quest points when rescuing the
+ parrot. (it used to give 1 but SAY it gave 3)
+* @Datanewday can Decipher &playernum ect for the filename now, it made no
+ sense while the other data commands could and this one couldn't.
+
+Well, that's about it. Thanks to everyone for helping, especially
+Ben Tiefert, Joe Orsborn, Ben Shadwick, Trevor Lemon and everybody else!!!
+
+Also, be sure to hit Ben's LORD2 page, he has over 22 IGM's listed
+already - hit rtsoft, then files, then the LORD2 IGM page link to get
+there. (cuz I'm too lazy to cut and paste his address in... but I'm not
+too lazy to type a sentence to explain that? Gawd!)
+
+-Seth (sethable@rtsoft.com)
+
+www: www.rtsoft.com
diff --git a/xtrn/lord2/cnw/docs/whatsnew.txt b/xtrn/lord2/cnw/docs/whatsnew.txt
new file mode 100644
index 0000000000000000000000000000000000000000..de5486e5610aace473a483fe3b88a87b71f9c1ab
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/whatsnew.txt
@@ -0,0 +1,49 @@
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ Devils Island V1.50 Rels.
+~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ ?Whats so new about this shit?
+
+
+ Well as you remember for v.666 witch was the beta, and version 1.10
+ witch was never really release except to the beta testers of the igm
+ it was a small kinda cool igm. Well here is the Un-Beta Release
+ Finished version of the popular Igm!.
+
+
+ Lets start witht the BAR
+
+ Bar:
+ Added: Bathroom
+ |-Toliet } - Uses DevBath.Idf
+ |-Urnael } to check if you went today!
+
+ |-Sink }-wash your hands
+ |-Condom Dispencer }-Check it out. kinda funny
+
+ Demon's Inn:
+
+ The Locked Door is now opened to anyone who finished the quest
+ on devils island!. it gives you free things only ONCE a day!
+
+ Added:
+ Soda Machine
+ Ice Machine
+ Snack Machine
+
+ CityHall:
+ Added: Bank -theres a bank now!
+
+ Now i did say Finished version, and it us for this version the next
+ release will have more at cityhall then just a bank!
+
+
+
+ Sorry for the LONG delay on this FINISHED version Of Devils Island
+ but I do write other software and then school got so busy i didnt
+ feel like finished this or the other software! but someone asked uh
+ where the hell is the finished version, and i said well i gave up.
+ he said WHY!?!? i said i lost the mood. and then one day i just sat
+ down and did it. v1.10 that is, then i made this version.
+
+ Granteed there are spelling errors, sorry i suck at spelling :<
+
diff --git a/xtrn/lord2/cnw/docs/wishwel2.txt b/xtrn/lord2/cnw/docs/wishwel2.txt
new file mode 100644
index 0000000000000000000000000000000000000000..fa63cd03dff630f4024a0fe5349a6fbcefb41a0a
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/wishwel2.txt
@@ -0,0 +1,248 @@
+
+
+ ������������������������������������������������������������Ŀ
+ ����������������������������������������������������������������ͻ
+ � � �� � �
+ � � ������������������������� �������� �� � �
+ � � �� �� �� �� �� �� �� ��� � � � � �
+ � � �� �� �� �� �� �� �� � � �
+ � � ����� �� ����� �� �� �� � � � � � �
+ � � �� �� �� �� �� �� ��� �� � �
+ � � �� �� �� �� �� �� �� ��� � � � � � �
+ � � ���� ���������������������������� �� ��� � �
+ � � ���� � � �
+ � � �� � �
+ ����������������������������������������������������������������ͼ
+ ��������������������������[Presents]��������������������������
+
+
+ The Wishing Well by David Loranger
+
+
+
+���������������������������������������������������������������������������ͻ
+� �������������������������������� Index ���������������������������������� �
+���������������������������������������������������������������������������ͼ
+
+ 1: Installation Info
+ 2: FieldSoft Infos
+ 3: Joining FieldSoft
+ 4: Distribution Sites List
+ 5: To Become a Distribution Site
+ 6: Other Lord 2 IGMs
+ 7: Words from the author
+
+
+���������������������������������������������������������������������������ͻ
+� 1.0 ���������������������� Installation Info ���������������������������� �
+���������������������������������������������������������������������������ͼ
+
+ Informations for the installation of Thw Wishing Well v1.2. For this
+IGM, you must have Lord II v1.00 installed for your Bulletin Board System.
+The registred version is required for this IGM.
+
+ 1st: Unzip WWELL12.ZIP in your Legend Of The Red Dragon II directory.
+ 2nd: Type the fallowing command at your DOS prompt.
+
+ IGM WISHWELL.igm
+
+ And it's installed!
+
+ To uninstall, just retype the same command line again.
+
+ This IGM does not require the replacement of any Data Files or of
+Reference Files. It uses the fallowing Lord II variables:
+
+ `t76
+
+
+���������������������������������������������������������������������������ͻ
+� 2.0 ����������������������� FieldSoft Infos ����������������������������� �
+���������������������������������������������������������������������������ͼ
+
+ FieldSoft is an all new group whose purpuse is to amplify and
+diversify the Legend Of The Red Dragon realm created by Seth Able Robinson.
+Through it's IGMs, it brings the story to life, linking to the known events
+of the Red Dragon Saga, trasitions and continuity between the first and
+second LORD.
+
+ FieldSoft comes first from the mind of Max Lariv�e, a typical
+French Canadian, busting his brains on his Bulletin Board System, trying
+to make it as original as possible, especially when it comes to his
+favorite online game, Lord II: New World.
+
+ The IGMs offered for free by FieldSoft are quality ideas coming to
+the programmer of this IGM from Users of Lord II, friends, and other Sysops
+who die for BBS variety. Small or big, FieldSoft creations are most likely
+Bug Free (or be sure to find a newer version if any bugs are to be found).
+
+ With time, FieldSoft intends to preduce IGMs and Add-Ons for more
+onlige games, to emplify the stories and realms of all your favorite online
+games that supports IGM factors.
+
+ From all the Staff of FieldSoft, we wish you will enjoy this IGM!
+
+
+���������������������������������������������������������������������������ͻ
+� 3.0 ���������������������� Joining FieldSoft ���������������������������� �
+���������������������������������������������������������������������������ͼ
+
+ The IGMs we tend to produce are Lord Realm-like stories, linked to
+the real Saga, and always fit in the map like a charm. Irrelevent story-based
+IGMs would not be FieldSoft distributed. It is also required that all
+FieldSoft IGMs can be installed at once. If you have any IGMs you wish to
+present us, please make sure there is no common variables, created files,
+file replacements or map screens. For other online games, the same
+restrictions are applyable.
+
+ Another thing about FieldSoft IGMs, they are Lord-like. Apperence,
+colors, maps and text are all Lord-like similar (such as titles, text color,
+map graphics and colors, etc.). The same concept is to be kept for any other
+online game IGMs.
+
+ To join FieldSoft, please send your full name, full postal address
+and phone number, and a sample-IGM of your own design. The IGM mustn't be
+compiled for programming observation. Be assured that your uncompiled IGM
+will not be distributed, or copied for anyone's own purpuse, by FieldSoft.
+To send in by mail, please send letter and disk (for IGM) to:
+
+ FireField BBS -FieldSoft-
+ 3287 Masson St.
+ Longueuil, Quebec
+ J4L 3Z4
+
+ The disk can be returned, if ask, to the return address that must
+be in the upper left corner. The stamps must equal the current Canadian
+mail value. To send infos and IGM by Data, call FireField BBS in the
+Montreal Region (Quebec, Canada) at (450)679-7599 and send all to the Sysop,
+Demolition Man. Or, you can send directly your application and demo IGM to
+fieldsoft@hotmail.com. Please take note that files must NOT be compiled.
+Supporting IGM authors, you can be assured that FieldSoft will not steal
+your ideas and Reference Files for other members used, and will not make
+any modifications without consent and membership. Of course, ideas and
+Reference Files fonctioning are likely to be share within members only, so
+as long as you are not a member, you have nothing to worry.
+
+ The requirements are simple. Any IGM produced for FieldSoft must go
+through proper testing of all possibilities. All variable and file infos must
+be written in a text file before being sent to FieldSoft Headquarters for
+the insertion of a similar ReadMe text file. The IGMs must also fit the
+details in the two first paragraphs of this sections.
+
+ FieldSoft is currently looking for LordAnsi Drawers for IGM purpuse,
+a good and original Map drawer for Lord 2 IGMs, a few Lord 1 IGM programmers
+and some easily-reached Beta testers.
+
+ Here is the current Staff list:
+
+ �������������������������������������������������������������������������Ŀ
+ � Name � Fonction � BBS or E-Mail �
+���������������������������������������������������������������������������ػ
+�� Max Lariv�e � Author � demoliman@hotmail.com ��
+�� David Loranger � Author � low_range@hotmail.com ��
+�� Michel Brisebois � Beta Tester � agonize@hotmail.com ��
+���������������������������������������������������������������������������ϼ
+
+
+���������������������������������������������������������������������������ͻ
+� 4.0 ������������������� Distribution Site List �������������������������� �
+���������������������������������������������������������������������������ͼ
+
+ FieldSoft is a new Lord IGM group. It is looking dearly for new
+Distribution Sites (more info in section 5). This is the list of the current
+Bulletin Board Systems officially distributing our IGMs:
+
+ �������������������������������������������������������������������������Ŀ
+ � BBS Name � Phone Number � Province/State � Country �
+���������������������������������������������������������������������������ػ
+�� FireField BBS [HQ] � (450)679-7599 � Quebec � CAN ��
+�� Mysteria BBS � (514)257-8043 � Quebec � CAN ��
+���������������������������������������������������������������������������ϼ
+
+
+���������������������������������������������������������������������������ͻ
+� 5.0 ���������������� To Become a Distribution Site ���������������������� �
+���������������������������������������������������������������������������ͼ
+
+ BBS Name:
+ BBS Phone Number: (...)...-....
+ Province/State:
+ Country:
+ Email Address (if applicable):
+
+ Your BBS is opened since: MM/DD/YYYY
+ Free HD space you would keep for FieldSoft:
+
+
+ To become a Distribution Site for FieldSoft, please send the above
+few informations. To send in by mail, please send letter to:
+
+ FireField BBS -FieldSoft-
+ 3287 Masson St.
+ Longueuil, Quebec
+ J4L 3Z4
+
+ The stamps must equal the current Canadian mail value. To send infos
+by Data, call FireField BBS in the Montreal Region (Quebec, Canada) at
+(450)679-7599 and send all to the Sysop, Demolition Man. Or you can send
+your application at fieldsoft@hotmail.com.
+
+
+���������������������������������������������������������������������������ͻ
+� 6.0 ���������������������� Other Lord 2 IGMs ���������������������������� �
+���������������������������������������������������������������������������ͼ
+
+ SFORT21.ZIP The Sea Fortress v2.1 by Max Lariv�e
+
+ LIDDUX16.ZIP Fortress Liddux v1.6 by Max Lariv�e
+
+ SLVIL17.ZIP SandLand Village v1.7 by Max Lariv�e
+
+ VIOLET27.ZIP Violet's Hose v2.7 by Max Lariv�e
+
+ GANNON24.ZIP Gannon Keep v2.4 by Max Lariv�e
+
+ GTG15.ZIP Greentree Grocery Store v1.5 by Max Lariv�e
+
+ SFARM13.ZIP The Smiths Farm v1.3 by Max Lariv�e
+
+ SETH22.ZIP Seth Able's Music Shop v2.2 by Max Lariv�e
+
+ PENYON15.ZIP Penyon Manor v1.5 by Max Lariv�e
+
+ DARKCT13.ZIP Dark Cloak Tavern v1.3 by Max Lariv�e
+
+ VOLCAN13.ZIP Dragon's Volcano v1.3 by Max Lariv�e
+
+ TENDS10.ZIP Tends Village v1.0 by Max Lariv�e
+
+ WWELL12.ZIP The Wishing Well v1.2 by David Loranger
+
+ HSCITY11.ZIP HillSide City v1.1 by Max Lariv�e
+
+
+���������������������������������������������������������������������������ͻ
+� 7.0 �������������������� Words from the Author �������������������������� �
+���������������������������������������������������������������������������ͼ
+
+ This well, my first creation, is an IGM that grants wishes to thoses
+who throw enough gold! If you have any idea about new wishes that could be
+included, write me! Also, I'd like to thanks FieldSoft, for helping me out on
+my first, testing and publishing my work.
+
+ What is next? Well, I'm already working on a Mage Tower completely
+redrawn, and a little quest in the forest where my well is situted.
+
+For any comment or suggestion, please send a letter to:
+
+David Loranger
+1225 Robillard St.
+St. Hubert, Quebec
+J4T 1B7
+
+or contact Nexus at:
+
+FireField BBS
+(450)679-7599
+
+low_range@hotmail.com
diff --git a/xtrn/lord2/cnw/docs/wizard20.doc b/xtrn/lord2/cnw/docs/wizard20.doc
new file mode 100644
index 0000000000000000000000000000000000000000..a4fc4a49d45c22e6aba1748980262403c2408220
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/wizard20.doc
@@ -0,0 +1,10 @@
+Thanks for downloading my second Lord2 IGM. This IGM adds 2 move levels
+to the wizard's tower.
+
+:) Anywho, run the install.bat or IGM WIZARD20.IGM to install it.
+to Uninstall it for some reason, run install.bat or IGM WIZARD20.IGM
+
+Enjoy it
+
+ James Jones Sysop of The Shadow BBS! (850) 864-4292 (1:366/82)
+
diff --git a/xtrn/lord2/cnw/docs/wizcast.doc b/xtrn/lord2/cnw/docs/wizcast.doc
new file mode 100644
index 0000000000000000000000000000000000000000..c440ad2b0d308dc34f9bf8388d115bd53b521cc2
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/wizcast.doc
@@ -0,0 +1,67 @@
+The Wizard's Castle v1.3
+by Bobby Queen & Robby Dittmann
+
+Welcome to the latest version of Bobby Queen & MamooSoft Programming's
+Wizard's Castle! This file is available on The Wizard's Castle BBS for FREQ
+or on MamooSoft Programming's home page at home.sprynet.com/sprynet/robbyd!
+
+
+INSTALLATION:
+
+1) Unzip the file in your LORD II directory.
+
+2) Type IGM WIZCAST.IGM
+
+3) Crank up LORD II and go to The Wizard's Castle!
+
+
+TO UNINSTALL:
+
+1) Type IGM WIZCAST.IGM a second time
+
+
+HISTORY:
+
+v1.0
+Original release
+
+v1.1
+Fixed the bug that allowed you to keep bumping into the guy who had the
+treasure to get unlimited cash and gems. We should have saw this coming.
+:) Bad Authors, Bad Authors. :)
+
+v1.2
+Fixed where a part of the Wizard.ref was left out in v1.1. This came
+from 2 people working on the file and sending it back and forth. :)
+
+v1.3
+Fixed up the outside of the Wizard's Castle and added a sign outside. Also
+changed the Giant Centipede to Giant Scorpion (Thanks Crystal). And changed
+the name of the files from WIZARD to WIZCAST to avoid confusion over another
+IGM using WIZARD for Wizard's Tower. Also included a patch to let those who
+want to run Felicity's Temple along with Wizard's Castle since we both chose
+the same page to put our IGM's on. This patch was originally did for the 1st
+version of Wizard's Castle by Ben Tiefert, so I just left his information in
+the file & redid the screen. BE SURE TO INSTALL BOTH IGM'S FIRST! THEN THIS
+FILE LAST!
+
+SPECIAL THANKS TO:
+
+Seth Able for LORD II itself without which this IGM would have been useless.
+Mariam Dittmann for alpha, beta, and gamma testing!
+Jane Queen for alpha, beta and gamma testing!
+Behind Great Authors always stand their wives!
+
+
+REGISTRATION:
+
+The Wizard's Castle is absolutely FREE. Of course, the authors takes no
+responsibility for any damage or problems you may incur.
+
+Please let us know if you have any problems or questions. And let us know
+what you think!
+
+Bobby Queen Robby Dittmann
+The Wizard's Castle BBS MamooSoft Programming
+1:3667/5 1:133/8003
+wizards@shelby.net robbyd@sprynet.com
diff --git a/xtrn/lord2/cnw/docs/xena.txt b/xtrn/lord2/cnw/docs/xena.txt
new file mode 100644
index 0000000000000000000000000000000000000000..c342bbfdc5026764dabf3208c52255954951cc34
--- /dev/null
+++ b/xtrn/lord2/cnw/docs/xena.txt
@@ -0,0 +1,151 @@
+Xena's House by Quineska Software: Version 2.00
+-------------------------------------------------
+Created by Christopher Armstrong. Adopted and resdistributed by Quineska
+Software with permission of author. Copyright (C) 1999 Quineska Software.
+
+DISCLAIMER:
+
+By using this program, you agree by the following terms and conditions:
+
+THIS SOFTWARE IS PROVIDED "AS IS". Quineska Software takes no responsibility
+for any damage of any sort that is caused by the use or misuse of this
+program.
+
+LICENSE:
+
+This program is FREEWARE. This means the code still remains copyright to
+Quineska Software but we grant you the license to use it as much as you want
+on as many computers you want. It is nessecary though, to register it for
+free by emailing us from our web site or at one of the support addresses.
+
+INSTALLING IT:
+
+Xena's House is a small IGM for the Door Game LORD2 that creates a little
+house just west of Greentree. To install Xena's House:
+
+1. Copy all the archive files into your LORD2 directory.
+2. Enter "IGM XENA" (mind the quotes) at the DOS prompt.
+
+To install the registration code:
+
+Edit XENAINFO.DAT (or create it if it is not there) and type out your
+registration details as follows:
+
+First Line : Your registration name
+Second Line: Your first registration number
+Third Line : Your second registeration number
+
+For example:
+
+Joe Blows
+8789
+29283
+
+NEWS AND DETAILS:
+
+Just realeased second version. Contains a registeration routine requiring you
+to fill out the form at the end and emailing or netmailing it to us. You can
+register as many times as you like.
+
+CONTACT:
+
+To send comments, bugs or suggestions or if you need help please contact us
+via the following ways:
+
+Fidonet: 3:714/970.5 or 3:712/848.7
+
+Email: quineska@hotmail.com
+
+Web Site: http://quineska.bizland.com : Our site has other IGMS created by us
+ plus the latest news. We hope to have
+ it completed soon.
+Updated: 27/09/1999
+
+HISTORY:
+
+Here is the history of the making of Xena's House from right back in 1997
+until revised later in 1999. All entries marked with an asterik (*) are beta
+versions. I change the letter for DOC changes and and the numeral for actual
+changes to the IGM. Will be updating the Hercule's House IGM soon and and
+creating and interaction IGM between the two IGMS.
+
+Xena's House Version 2.00 - Second full release with registration routine
+ plus a few bug fixes and cosmetic changes. Hope
+ to really distribute (you would have to be lucky
+ to get your hands on the last beta).
+ Archive: XENA200.ZIP
+ 27/09/1999
+Xena's House Version 1.21a*- Just checking what is wrong with IGM and fixing
+ bugs. It may be a while untill I get feedback
+ since I don't run a BBS.
+Xena's House Version 1.20a*- Did a major check of the scripting and fixed sev-
+ eral bugs present that affected the look.
+ Archive: XENA120A.ZIP
+ 16/05/99
+Xena's House Version 1.12b*- Fixed DOCS and added date. Added things forgotton
+ in previous versions.
+ Archive: XENA112B.ZIP
+ 12/05/99
+Xena's House Version 1.12a*- Fixed up the map, changed IGM file and added a
+ feature for Sysops who warp their players onto
+ houses so the player can escape.
+ Archive: XENA112A.ZIP
+ 12/05/99
+Xena's House Version 1.11b*- Added this DOC to XENA.TXT for convenience of
+ user/sysop. Added FILE_ID.DIZ. Should be distrib-
+ uted. Changed to Freeware.
+ Archive: XENA111B.ZIP
+ Date Unknown
+Xena's House Version 1.11a*- Created fight between Xena and player if they
+ return. Changed House completely. Added thing
+ where is player runs from fight Xena can find
+ and kill them. Still require to revise text.
+ Fix map also.
+ Archive: XENA111B.ZIP
+ 26/04/99
+Xena's House Version 1.10a*- Revised text. Added recognision between which
+ option the user chooses. To be added:
+ - A fight between player and Xena
+ - Revision of text colours
+ Archive: XENA110A.ZIP
+ 26/04/99
+Xena's House Version 1.01d - Added XENAHIST.TXT for convience. Updated DOC's
+ and IGM file. To be distributed ASAP. Added NEWS
+ section to DOC's.
+ Archive: XENA101D.ZIP
+ 14/04/99
+Xena's House Version 1.01c - Fixed money error in XENA.REC. People could get
+ free stuff. Never distributed. Updated DOC's
+ and IGM file.
+ 13/04/99
+ Archive: XENA101C.ZIP
+Xena's House Version 1.01b - Fixed archive name and updated XENA.IGM. Never
+ distributed to public. Updated DOCS.
+ 13/04/99
+ Archive: XENA101B.ZIP
+Xena's House Version 1.01a - Passed over to Quineska Software. Fixed variable
+ bug. Totally redid DOC's. Tried distributing
+ but failed.
+ 12/04/99
+ Archive: XENA100A.ZIP
+Xena's House Version 1.00 - Created by Christopher Armstrong. First Release.
+ Barely distributed. Some versions were REC's
+ and others REF's. Archives differed.
+ About 09/04/1997
+ Archive: XENAV100.ZIP
+
+REGISTRATION FORM:
+
+Quneska Software Xena's House Registration Form (cut and paste into email
+editor then fill out and send to quineska@hotmail.com, 3:712/848.7 or
+3:714/970.5)
+
+Name:
+
+Email Address/Fido Address:
+
+Registration Name (Name that appears
+in game to whom it is registered to):
+
+Comments/Bugs/Suggestions:
+
diff --git a/xtrn/lord2/cnw/dormft.ref b/xtrn/lord2/cnw/dormft.ref
new file mode 100644
index 0000000000000000000000000000000000000000..72aa3f588ed63487477eaf5dc217621d85504f66
--- /dev/null
+++ b/xtrn/lord2/cnw/dormft.ref
@@ -0,0 +1,299 @@
+; Script file DORMFT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:32 2001
+
+@DECLARE monster1 000000415
+@DECLARE monster2 000001008
+@DECLARE monster3 000001567
+@DECLARE monster4 000002133
+@DECLARE monster5 000002672
+@DECLARE monster6 000003266
+@DECLARE monster7 000003864
+@DECLARE monster8 000004471
+@DECLARE monster9 000005048
+@DECLARE fight 000005608
+@NOCHECK
+; End of .REF index
+
+@#monster1
+@fight
+;name
+Frat Brother
+;string said when you see him
+You see a young man in boxer shorts and a fraternity shirt.
+;power move kill string
+He may be Greek, but he's no Hercules!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+gives you a nuggie|87
+gives you a wedgie|72
+gives you a SUPER wedgie|92
+NONE|NONE
+NONE|NONE
+;defense
+38
+;gold reward
+300
+;experience
+110
+;hit points
+`p02
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+House Mother
+;string said when you see him
+Boy is that old lady OLD!
+;power move kill string
+Back to the kitchen with you!
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+gives you kitchen duty|80
+swats you with a broom|67
+threatens to call your dad|90
+NONE|NONE
+NONE|NONE
+;defense
+25
+;gold reward
+475
+;experience
+180
+;hit points
+180
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Pizza Guy
+;string said when you see him
+`0"Hey! Do you know who ordered this?" `2 you hear.
+;power move kill string
+How's THAT for a tip!?
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+smacks you with a pizza box|87
+drips cheese on you|76
+overcharges you|90
+NONE|NONE
+NONE|NONE
+;defense
+32
+;gold reward
+600
+;experience
+154
+;hit points
+240
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Freshman
+;string said when you see him
+Look at that nerd!
+;power move kill string
+Go back to High School!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+drools on your shoes|80
+hits you with a textbook|95
+stabs you with a pencil|78
+NONE|NONE
+NONE|NONE
+;defense
+30
+;gold reward
+480
+;experience
+170
+;hit points
+350
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Janitor
+;string said when you see him
+`0"Careful! That floor's still wet!" `2 you hear.
+;power move kill string
+Now who's gonna clean THAT mess up?!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+mops up the floor with you|85
+whacks you with a wet mop|100
+makes you scrub the toilet|79
+NONE|NONE
+NONE|NONE
+;defense
+27
+;gold reward
+401
+;experience
+156
+;hit points
+480
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster6
+@fight
+;name
+The Dean
+;string said when you see him
+`0"Hey, are you supposed to be in here?" `2you hear.
+;power move kill string
+I guess I made the Dean's List!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+lowers all your grades|87
+puts you on academic probation|102
+signs you up for cheerleading|76
+NONE|NONE
+NONE|NONE
+;defense
+32
+;gold reward
+550
+;experience
+160
+;hit points
+400
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster7
+@fight
+;name
+Math Geek
+;string said when you see him
+`0"Do you know the square root of 15,434,464?" `2 you hear.
+;power move kill string
+`$"It's 3928.672, you geek!"`2
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+smacks you with his pocket-protector|80
+whacks you with a math book|78
+calculates on your head|97
+NONE|NONE
+NONE|NONE
+;defense
+33
+;gold reward
+430
+;experience
+160
+;hit points
+210
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster8
+@fight
+;name
+English Major
+;string said when you see him
+`0"To be or not to be?" `2 you hear.
+;power move kill string
+You'd rather read his tombstone!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+quotes Shakespeare at you|85
+writes a requiem for you|99
+makes you read Faulkner|105
+NONE|NONE
+NONE|NONE
+;defense
+25
+;gold reward
+410
+;experience
+156
+;hit points
+130
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster9
+@fight
+;name
+Hired Tutor
+;string said when you see him
+`0"Do you need help?"
+;power move kill string
+I think she's the one who needed help!
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+makes you do your homework|97
+studies your internal organs|105
+disects you|115
+NONE|NONE
+NONE|NONE
+;defense
+27
+;gold reward
+760
+;experience
+166
+;hit points
+250
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+
+@#FIGHT
+@busy
+@do `p20 random 9 1
+@do goto monster`p20
diff --git a/xtrn/lord2/cnw/dragon.ref b/xtrn/lord2/cnw/dragon.ref
new file mode 100644
index 0000000000000000000000000000000000000000..8a163ac824a70c93853c4267ac6000a0ca7ba448
--- /dev/null
+++ b/xtrn/lord2/cnw/dragon.ref
@@ -0,0 +1,624 @@
+; Script file DRAGON.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:16 2001
+
+@DECLARE barman 000000588
+@DECLARE old 000001609
+@DECLARE enter 000005093
+@DECLARE gryphon 000005456
+@DECLARE store 000006153
+@DECLARE random 000006518
+@DECLARE guard1 000007299
+@DECLARE castle 000007386
+@DECLARE cultjoin 000010354
+@DECLARE joinb 000010827
+@DECLARE cultrun 000011502
+@DECLARE travel 000011661
+@DECLARE nomore 000013132
+@NOCHECK
+; End of .REF index
+
+;For the Dragon Tooth Cult and their evil!
+;And for Pap, who is the ultimate evil in real life. He cuts kids.
+@#barman
+@do moveback
+@if bitcheck `t18 2 0 then do
+ @begin
+ @do saybar
+`0One Eye: `2Get lost, punk...
+ @closescript
+ @end
+
+@if `i73 > 0 then do
+ @begin
+ @do saybar
+`0One Eye: `2Haw! Long time no see.... you did yourself proud.
+ @closescript
+ @end
+
+@show
+`r0`c `r1 `%Talking to One Eye `r0
+
+ `0"Get lost, punk..." `2he grunts.
+
+`k `$"And anger my master, Phineaus?" `2you cooly reply.
+
+`k `2His voice quickly changes tone. `0"So you are he. Alright, come
+ with me."
+
+`k`c `r1 The Flying Machine `r0
+
+ `2One Eye takes you to the roof - where a strange contraption is sitting
+ on a landing pad of sorts.
+
+`k `0"It's me special invention! With this I can drop you on the cliffs
+ near the Koshi village, and you can sneak in!"
+
+`k `%THE JOURNEY IS THRILLING! `2And you only get airsick once...
+
+`2 At the right time you jump overboard... One Eye waves as he sails
+ away...
+
+`k
+@do map is 195
+@do x is 58
+@do y is 14
+@loadmap &map
+@drawmap
+@update
+
+@#old
+@do moveback
+@if `p07 > -99 then do
+ @begin
+ @do saybar
+Phineaus: `2Hey, you don't look that evil! Get out!! GUARDS!!!!
+ @closescript
+ @end
+
+@if bitcheck `t18 7 1 then do
+ @begin
+ @do saybar
+`0Phineaus: `2You RULE!
+ @closescript
+
+ @end
+
+@if bitcheck `t18 2 1 then do
+ @begin
+ ;does he have the wand?
+ @if `i73 < 1 then do
+ @begin
+ @do saybar
+Phineaus: `2Bring me the smackrod!
+ @closescript
+ @end
+ @do saybar
+
+@show
+`r0`c `r1 `%TALKING WITH EVIL INCARNATE `r0
+
+`4 `$"I have the Smackrod as I swore I would master."
+
+`k `%"Exellent my s&boy...exellent. Without this, the Koshi shall never
+ defeat us!!!" `4the old man cackles in delight.
+
+`k `%"Hell, why don't you keep the damn rod, after all.. you will lead my
+ minions into battle from now on! I'm making you the general of all my
+ armies!"
+
+`k `%YOU GET 500 QUEST POINTS AND 10,000 EXPERIENCE!
+
+ `$You have won this game as evil. But this doesn't have to be the end..
+ using your new powers why not run throughout the world creating havoc and
+ disaster?
+
+`k
+@bitset `t18 7 1
+@do `p18 + 500
+@do `p01 + 10000
+@do `p02 is `p03
+@do addlog
+ `r1 `r0 `0`n`% has stolen the Smackrod and become a hero! `r1 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@show
+`r0`c `r1 `%TALKING WITH EVIL INCARNATE `r0
+
+`4 A man with a scarred face and more than a few teeth missing grins at
+ you eerily.
+
+@if bitcheck `t18 1 0 then do
+ @begin
+ @show
+ `%"Do you know me, s&boy?" `4the shady character asks you.
+
+`k `$"Um.. no sir.. should I?" `4you stammer.
+
+`k `%"Of course you should!" `4he spits, apparently insulted to some
+ degree, `%"I run this whole organization!"
+
+`k `4The man continues to educate you in the way of the Cult.. you find
+ out his name is Phineaus Crane.
+
+`k `4Before dismissing you, he whispers something in your ear. `%"You
+ are the one I've chosen."
+
+`k
+ @bitset `t18 1 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p18 < 100 then do
+ @begin
+ @show
+ `4Phineaus stares at you awhile. `%"You are not ready for the mission I
+ am preparing you for. You need to have 100 quests completed before you
+ will be qualified sufficiently."
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@show
+ `%"Are you ready for your greatest quest ever, my son?"
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, why yes, yes indeed!
+Not exactly - maybe tomorrow...
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `%"Good. Very good.. It is true we have stolen the Koshi's Gryphon
+ moon, but there is one more thing we need to take from them. It is called
+ the Smackrod. This strange and magical item they have created has the
+ power to teleport short distances... very useful."
+
+`k `$"Ok.. I'll steal the Smackrod for you... But where is it?"
+
+`k `%"The Koshi live high in the mountains west of Arrisville. You could
+ try to sneak in, or talk to a man I have stationed in Bonetown.. a man
+ you shouldn't have too much trouble finding, we call him One Eye. He
+ has something that could help."
+
+`k `$"I will bring it back, my master." `4you vow.
+
+`k
+ @bitset `t18 2 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ `%"Come back when you are ready."
+`\`k
+ @end
+
+@drawmap
+@update
+
+@#enter
+ @do map is 708
+ @do x is 10
+ @do y is 9
+ @loadmap &map
+ @drawmap
+ @update
+
+
+@if bitcheck `t17 5 1 then do
+ @begin
+ @if `p07 > 50 then do
+ @begin
+ @do saybar
+You sneak into the inner sanctum while no one is looking...
+ @closescript
+
+ @end
+ @end
+
+ @do saybar
+Ahh... the pride and joy of the Dragon Tooth Cult!
+
+
+@#gryphon
+@do moveback
+
+
+
+@if `p07 < 50 then do
+ @begin
+ @do saybar
+Ha ha! You must fight to keep this treasure safe.
+ @closescript
+ @end
+
+@if bitcheck `t17 7 1 then do
+ @begin
+ @do saybar
+`0Ahh, the memories...
+ @closescript
+ @end
+
+@if bitcheck `t17 6 1 then do
+ @begin
+ @if `i72 < 1 then do
+ @begin
+ @do `i72 is 1
+ @do saybar
+`0You grab the `%Gryphon Moon`0! (again...)
+ @closescript
+
+ @end
+
+ @do saybar
+`0You better take the `%Gryphon Moon`0 back to the Koshi, quick!
+ @closescript
+ @end
+
+@if bitcheck `t17 5 1 then do
+ @begin
+
+@bitset `t17 6 1
+@do saybar
+`0You find the `%Gryphon Moon`2!
+ @do `i72 is 1
+@closescript
+ @end
+@#STORE
+;The weapons store in the castle
+@if bitcheck `t18 0 1 then do
+ @begin
+ @do moveback
+ @offmap
+ @busy
+ @show
+`r0`c `r1 Dragon Tooth Weapons `r0
+
+
+
+
+ @buymanager
+68
+69
+70
+71
+55
+@drawmap
+@update
+ @closescript
+@end
+;If not a member
+@do saybar
+`2Looks like the Dragon Tooth's weapons...
+@do moveback
+
+@#random
+@if `i67 > 0 then do
+ @begin
+ @do `s01 is s&armour
+ @if `s01 not Disguise then do
+ @begin
+ @do map is 59
+ @do x is 36
+ @do y is 8
+ @do `i72 is 0
+ @do `p02 / 3
+ @loadmap &map
+ @show
+`r0`c `r1 `%A problem `r0
+
+ `0"Hey you! Come here for a second!" `2a guard yells.
+
+`k `$"Who me?"
+
+ `0"Yeah! Who are you? What are you doing here?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+I work on boats.
+I clean stables.
+I just forgot to put on my disguise!
+@show
+`\`\ `0"Get him!!!!" `2yells the guard.
+
+ `4They beat you unconscious.
+
+`k
+ @drawmap
+ @update
+ @do saybar
+Where are you? Your head really hurts.
+ @closescript
+ @end
+
+ @do saybar
+ A guard waves you through, he is fooled!
+ @end
+
+@#GUARD1
+;Guard on the beach
+@do saybar
+`0"Welcome to our Island."
+@do moveback
+
+@#CASTLE
+;The evil castle for the Dragon Tooth
+@if `i67 > 0 then do
+ @begin
+ @do map is 707
+ @do x is 10
+ @do y is 11
+ @loadmap &map
+ @drawmap
+ @update
+ @do saybar
+You sneak into the Castle! Better be careful...
+ @closescript
+ @end
+@do moveback
+@offmap
+@do `v01 is 1
+@show
+`r0`c `r1 Dragon Tooth Castle `r0
+
+ `2The castle is huge! Various shields and crests hang on its sides, as
+ well as bodies! The ominous gates send a chill down your spine as you
+ enter. The gatekeeper on the inside eyes you.
+
+ `0"You, what is your business here?" `2he asks.
+
+@DO WRITE
+`x`x
+@CHOICE
+-`t18 0 Join them
++`t18 0 See how you're doing
+Leave
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"You look like you might be able to join us. But to do so you
+ must prove yourself." `2he says.
+
+`k `$"I .. I'm ready." `2you tell him.
+
+ `0"Very well, we have someone for you to kill. Do so, and we'll let you
+ join."
+`\`k `%They drag a bleeding body outside... it's a Koshi man! His wings are
+ torn off.
+`\`k
+ @do goto JOINB
+ @end
+@if response is 2 then do
+;First level
+ @begin
+ @if `p07 > -20 then do
+ @begin
+ @show
+`\`\ `0"You need to work MUCH harder!! You're so nice you might as well go
+ work with the Koshi. Go hurt some people damnit!" `2he tells you.
+`\`k
+ @do goto castle
+ @end
+;Next level
+ @if `p07 > -40 then do
+ @begin
+ @show
+`\`\ `0"Well, you've been doing better lately. But try getting more money
+ as well, we can't do our evil quests without funding!" `2he laughs.
+`\`k
+ @do goto castle
+ @end
+;Again up
+ @if `p07 > -60 then do
+ @begin
+ @do `s01 is rape
+ @if `v06 is 1 then `s01 is pillaging
+ @show
+`\`\ `0"I beginning to like your style a bit. A little `s01 here, a bit of
+ stealing there and it's cool. Keep it up and you'll be rising in the
+ ranks soon." `2he tells you.
+`\`k
+ @do goto castle
+ @end
+;Again ..
+ @if `p07 > -80 then do
+ @begin
+ @show
+`\`\ `0"The cult is beginning to owe a lot to you `n`0. Be patient and
+ continue your deeds, soon you will rise up to our honored ranks. Now go
+ do death my brother." `2he informs you.
+`\`k
+ @do goto castle
+ @end
+;Once more
+ @if `p07 > -100 then do
+ @begin
+ @show
+`\`\ `0"`n my friend, I have nominated you for our honor ranks. Even now
+ the council is discussing your fate. Be diligent now and continue your
+ strife, and soon you will find a new light." `2the gatekeeper tells you.
+`\`k
+ @do goto castle
+ @end
+;If they're really cool
+ @if `p07 < -99 then do
+ @begin
+ @show
+`\`\ `2The gatekeeper looks up at you and smiles.
+ `0"I have a surprise for you my child. Come this way." `2He leads you
+ through the giant wooden doors ...
+`\`k
+ @loadmap 707
+ @do map is 707
+ @do x is 10
+ @do y is 11
+ @end
+ @end
+@drawmap
+@update
+
+@#CULTJOIN
+;You win the fight
+@bitset `t18 0 1
+@show
+`r0`c `r1 Joining the Cult `r0
+
+ `2You stand proud of your victory! Around you in the courtyard a few
+ other members cheer at your triumph. The gatekeeper comes to you.
+
+ `0"Good show there warrior. You may now join our ranks and fight for
+ the good of the cult." `2he says.
+
+ `0"Someday, ya might even be able to help us rid the earth of the
+ plague we call the Koshi."
+`\`k
+@do goto castle
+
+@#JOINB
+;Fighting to join the Dragon Tooth Cult
+@fight
+;name
+Captured Koshi Warrior
+;string said when you see him
+You prepare to take on the wounded warrior, with s&weapon ready.
+;power move kill string
+`$"Stupid Koshi" `2you shout.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+punches you|78
+kicks you in the gut|80
+throws you across the courtyard|91
+NONE|NONE
+NONE|NONE
+;defense
+32
+;gold reward
+0
+;experience
+1
+;hit points
+120
+;if win: ref file|name or NONE
+DRAGON.REF|CULTJOIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+DRAGON.REF|CULTRUN
+@drawmap
+@update
+
+@#CULTRUN
+@pauseoff
+@show
+`\`\`r0`c `r1 RUN? `r0
+
+ `2The guards laugh at your cowardice. They decide not to let you join.
+
+`k
+@drawmap
+@update
+
+@#TRAVEL
+;Getting off the island
+@do moveback
+@busy
+@DO `v01 is 1
+@SHOW
+`r0`c `r1 Looks like a Warship `r0
+
+ `2A man with a big sword greets you `0"Where would you like us to
+ drop you off?"
+
+@DO WRITE
+`x`x
+@CHOICE
+<`p07 -99 ArrisVille
+PortTown
+<`p07 -99 FlagCity
+Sosen Village
+Don't want to leave yet
+@if response is 1 then do
+;Going to ArrisVille
+ @begin
+ @Show
+`\`\ `0"I don't like the prince there .. but let's go!" `2He replies.
+`\`k
+ @loadmap 444
+ @do map is 444
+ @do x is 66
+ @do y is 19
+ @DRAWMAP
+ @DO SAYBAR
+ `2Welcome to Arrisville.
+ @UPDATE
+ @CLOSESCRIPT
+ @end
+@if response is 2 then do
+;Going to PortTown
+ @begin
+ @show
+`\`\ `0"Okay, that's a nice town to raid."
+`\`k
+ @loadmap 152
+ @do map is 152
+ @do x is 38
+ @do y is 2
+ @DRAWMAP
+ @DO SAYBAR
+ `2Welcome to PortTown.
+ @UPDATE
+ @CLOSESCRIPT
+ @end
+@if response is 3 then do
+;Going to FlagCity
+ @begin
+ @show
+`\`\ `0"Those stupid flags, okay let's go."
+`\`k
+ @loadmap 71
+ @do map is 71
+ @do x is 38
+ @do y is 14
+ @DRAWMAP
+ @DO SAYBAR
+ `2Welcome to FlagCity.
+ @UPDATE
+ @CLOSESCRIPT
+ @end
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `0"It's a little place, with plenty of money for us!"
+`\`k
+ @loadmap 536
+ @do map is 536
+ @do x is 40
+ @do y is 18
+ @DRAWMAP
+ @DO SAYBAR
+ `2Welcome to Sosen Village.
+ @UPDATE
+ @CLOSESCRIPT
+ @end
+@drawmap
+@update
+
+@#nomore
diff --git a/xtrn/lord2/cnw/dragons.ref b/xtrn/lord2/cnw/dragons.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e2ef8f5f6889effa282aa3ed7b404a345a658123
--- /dev/null
+++ b/xtrn/lord2/cnw/dragons.ref
@@ -0,0 +1,152 @@
+; Script file DRAGONS.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:42 2001
+
+@DECLARE viewdragon 000000431
+@DECLARE egg1 000001356
+@DECLARE egg2 000001521
+@DECLARE hatchling 000001722
+@DECLARE baby 000001873
+@DECLARE baby2 000002221
+@DECLARE medium 000002592
+@DECLARE adult 000002995
+@DECLARE nomore 000004104
+@NOCHECK
+; End of .REF index
+
+;'p20 is ST
+;'p21 is DF
+;'p22 is HP
+;`s01 is color#
+
+@#VIEWDRAGON
+;@clear screen
+@do move 1 1
+@do write
+`r0`s01
+@if `p20 < 26 then do
+ @begin
+ @display EGG1 in dragons.ref
+ @closescript
+ @end
+@if `p20 < 50 then do
+ @begin
+ @display EGG2 in dragons.ref
+ @closescript
+ @end
+@if `p20 < 100 then do
+ @begin
+ @display HATCHLING in dragons.ref
+ @closescript
+ @end
+@if `p20 < 200 then do
+ @begin
+ @display BABY in dragons.ref
+ @closescript
+ @end
+@if `p20 < 500 then do
+ @begin
+ @display BABY2 in dragons.ref
+ @closescript
+ @end
+@if `p20 < 1000 then do
+ @begin
+ @display MEDIUM in dragons.ref
+ @closescript
+ @end
+@if `p20 > 1001 then do
+ @begin
+ @display ADULT in dragons.ref
+ @closescript
+ @end
+;@key bottom
+@closescript
+; @begin
+; @end
+@#EGG1
+ .-"-.
+ .' '.
+ / \
+ : ;
+ | |
+ : :
+ \ /
+ '. .'
+ '~~~'
+@#EGG2
+ .-"-.
+ .' '\/_'.
+ /\/ \_\/\_\
+ : _\(o o)\/
+ |/ \_^/\_/\
+ : \_/ 'Y--':
+ \ / \.--\ / |\
+ '. / .' /\ '~
+ '~~~ .-.'"
+ '''
+@#HATCHLING
+ _(, {\V/} ,)_
+ /\ | " | /\
+ //\\(o o)//\\
+ ||::/ ^ \::||
+ |||(( ))|||
+ |' \" "/ '|
+ )I(
+ ""'""
+@#BABY
+ _.===._ ,"^^^^",
+ /_\^^^/_\ / ^ ,^ \ ,
+ (0\ ^ /0)\ / ^ / ^ \ /\
+ \ / ^^ ^ \ ^ \ ",." /
+ ) ( ^ ^ ^ \ \ ,'
+ (o_o)^ \ ^ ,) /'^^'
+ ^V^\ ^ \ \_,-"((((
+ / /'""/ /
+ (((' '(((
+@#BABY2
+ (' '.
+ _.--. / a '-.
+ '-> \ __/ __.'
+ <_ |.' /'-._)'-
+ >--' \
+ .--;' |--.
+ ,- _\.' | \_
+ // /-' \ / '\__/
+ | | .' /_._ |
+ \ '-' _/ --. \ '-.
+ '.___.-' \____/ \___/
+@#MEDIUM
+ , ,
+ #\'-"-'/
+ #/ o (o
+ #/ \__ '._
+,_#_# #/ /=/'-. _")
+'-.'\# #/ /=(_.. '-'.
+ \ '\# #/ -.''_\\\'_\\\
+ ; \# #/ '.__.'=\_.'
+ | '-#; _|====\_
+ ; ' /' '\==| \
+ \ . \=| /
+ '-.._ // /__
+ ')-. '----._\
+ <_________\_\_\
+@#ADULT
+ _.-'/ _.:''/
+ ,'' ( ,:;.-''(
+ .' .:'' \
+ / // _.-';)
+ _/ _//_.-;:-'''/
+ //| \ \ .-'' \ ,
+ || /_,-,_| | '""--..__ \ .-'''''-. )\
+ _.--'_ '-;_/_)_ |(''""'---.;"/-,.-. _ / .---. \ .' \
+ /6 ^' ':_/ | "-._ .-'../__ )' ',.-. _ | / \ ;/_ _/
+ ('-----'--'. \_) ;|'"-.;-./ '""--;.__) ',-. (| | ||
+__) {\ |_/\ \\ _.' '"-;_ )'-,_('/ ;_.'/
+ / {=| |) \.-"\\ / ''-.;_:' /_.'
+ {=| \_.' )) ' / /
+ {=| , | , _.-'
+ {=; '""--. \ '. __,.---''
+ {=\ '\ '._ '._.-"'
+ _,.--"';{\ '-.._ / __,..-'-._ '.
+ (((/==)/ _';.--'"' .'--""""''' .--"''' )
+ ''' ' (((/====''' ((((/======'
+@#NOMORE
+
diff --git a/xtrn/lord2/cnw/drgnhm2.ref b/xtrn/lord2/cnw/drgnhm2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..063ac9827c0c167425ee0780d1c74fdb30b92255
--- /dev/null
+++ b/xtrn/lord2/cnw/drgnhm2.ref
@@ -0,0 +1,1224 @@
+; Script file DRGNHM2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:25 2001
+
+@DECLARE jasdeed 000001135
+@DECLARE startg 000001164
+@DECLARE jasminita 000004386
+@DECLARE done 000005355
+@DECLARE letmeinj 000007099
+@DECLARE done 000007199
+@DECLARE esperanto 000007284
+@DECLARE done 000008255
+@DECLARE letmeine 000009919
+@DECLARE esprmaid 000010080
+@DECLARE startg 000010109
+@DECLARE warp 000013280
+@DECLARE girl 000014474
+@DECLARE healme 000015105
+@DECLARE royal 000015262
+@DECLARE done 000016264
+@DECLARE letmeinr 000017940
+@DECLARE royalmaid 000018120
+@DECLARE startg 000018149
+@DECLARE book 000021316
+@DECLARE library 000024840
+@DECLARE steamroom 000025015
+@DECLARE garden 000025234
+@DECLARE secluded 000025365
+@DECLARE fence 000025506
+@DECLARE cigar 000025634
+@DECLARE dogeatn 000026342
+@DECLARE draft 000026477
+@NOCHECK
+; End of .REF index
+
+;Drgnhome.ref part 2(don't ya hate it when you run outta conventional mem)
+;This is REGISTERED!!! Thanx 4 sending me $5 bucks so my BBS can go up
+;any way here it is.......
+;----------------------------jasminita's deed---------------------
+@#jasdeed
+@do moveback
+@label startg
+@if castle77.dat exist false then do
+ @begin
+; @do move 1 1
+; @display maid in people.ref
+ @do saybar
+`0"You have 5 minutes to vacate this house, or I'll dust ya!" `2the maid barks.
+ @closescript
+ @end
+
+@readfile castle77.dat
+`p20
+`s01
+@
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the maid, nice of her to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1
+@show
+`r0`c `r1 Instructing your maid `r0
+
+ `2The huge maid drops her mop when she sees you are going to
+ address her.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+Leave
+@
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$7500`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your house to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to house your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete castle77.dat
+ @writefile castle77.dat
+`p20
+`s01
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of A nice house to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%A nice House`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your House back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete castle77.dat
+ @do money + 7500
+ @show
+`\`\ `%HOUSE SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%A nice House Keep`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete castle77.dat
+ @writefile castle77.dat
+&playernum
+`s01
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the maid promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+;--------------------------------Jasminita----------------------------
+@#jasminita
+@do moveback
+@offmap
+@if castle77.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2This is a nice house
+ It is for sale, and the asking price is `$$15000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 14999 Buy that sucker.
+<&money 15000 Cuss 'cause you ain't got no cash
+>&money 14999 Find the 3 little pigs.
+@
+
+@if responce is 1 then do
+ @begin
+ @if castle77.dat exist true then do
+ @begin
+ @show
+`\`\ `2Dammit! Someone bought the house you had your eye on. There goes
+ the honeymoon in paradise...better find someplace else.`\`\`k
+ @do goto done
+ @end
+
+@writefile castle77.dat
+&playernum
+NONE
+ @do money - 15000
+ @do addlog
+ `0`n `2buys `%A nice house`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%G`day, landowner! `r0
+`\`2 You now own this house!
+
+`k `0As a special bonus, one bed is included!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile castle77.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete castle77.dat
+ @do addlog
+ `%A great house`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto jasminita
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+ `4You hang your head.
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops out the door. `0"Halt, you! What do you want with
+ my lord and master, `%`s02`0?" `2the maid asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Say something.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%This nice house`0,"`2 the maid smiles as she opens the door.`\`\`k
+ @do goto letmeinj
+ @end
+ @writefile mail\mail`p20.dat
+ `0House Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the maid by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The maid doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmeinj
+@do x is 36
+@do y is 18
+@do map is 1082
+@loadmap 1082
+@update
+@drawmap
+@do goto done
+@#done
+;------------------------------Esperanto------------------------------
+@#Esperanto
+@do moveback
+@offmap
+@if castle79.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2This is a nice house
+ It is for sale, and the asking price is `$$25000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 24999 Buy that sucker.
+<&money 25000 Cuss 'cause you ain't got no cash
+>&money 24999 Find the 3 little pigs.
+@
+
+@if responce is 1 then do
+ @begin
+ @if castle79.dat exist true then do
+ @begin
+ @show
+`\`\ `2Dammit! Someone bought the house you had your eye on. There goes
+ the honeymoon in paradise...better find someplace else.`\`\`k
+ @do goto done
+ @end
+
+ @writefile castle79.dat
+&playernum
+NONE
+ @do money - 25000
+ @do addlog
+ `0`n `2buys `%A nice house`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%G`day, landowner! `r0
+`\`2 You now own this house!
+
+`k `0As a special bonus, one bed is included!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile castle79.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete castle79.dat
+ @do addlog
+ `%A great house`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ @do goto esperanto
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+ `4You hang your head.
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops out the door. `0"Halt, you! What do you want with
+ my lord and master, `%`s02`0?" `2the maid asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Say something.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%This nice house`0,"`2 the maid smiles as she opens the door.`\`\`k
+ @do goto letmeine
+ @end
+ @writefile mail\mail`p20.dat
+ `0House Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the maid by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The maid doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmeine
+@do x is 41
+@do y is 19
+@do map is 1084
+@loadmap 1084
+@do goto done
+;---------------------------------espermaid-------------------------------
+@#esprmaid
+@do moveback
+@label startg
+@if castle79.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to vacate this house, or I'll dust ya!" `2the maid barks.
+ @closescript
+ @end
+
+@readfile castle79.dat
+`p20
+`s01
+@
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the maid, nice of her to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1
+@show
+`r0`c `r1 Instructing your maid `r0
+
+ `2The huge maid drops her mop when she sees you are going to
+ address her.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+Leave
+@
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$15500`%.
+Do nothing of the sort
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your house to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to house your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete castle79.dat
+ @writefile castle79.dat
+`p20
+`s01
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of A nice house to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%A nice House`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your House back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete castle79.dat
+ @do money + 15500
+ @show
+`\`\ `%HOUSE SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%A nice House Keep`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete castle79.dat
+ @writefile castle79.dat
+&playernum
+`s01
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the maid promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+;----------------------------------Let's Warp-----------------------------
+@#warp
+@do moveback
+@do move 20 5
+@do write
+`r0`$�����������������������������Ŀ
+@do move 20 6
+@do write
+`r0`$�-Where would you like to go?-�
+@do move 20 7
+@do write
+`r0`$� �
+@do move 20 8
+@do write
+`r0`$� �
+@do move 20 9
+@do write
+`r0`$� �
+@do move 20 10
+@do write
+`r0`$�������������������������������
+@do move 30 7
+@do `v01 is 1
+@choice
+`%Porttown `%
+`%Bonetown `%
+`%Stay here`%
+@if responce is 1 then do
+ @begin
+ @if `p11 < 100 then do
+ @begin
+ @do saybar
+`@Dang, not enough energy.
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do `p11 - 100
+ @do map is 956
+ @do x is 39
+ @do y is 19
+ @end
+
+@if responce is 2 then do
+ @begin
+ @if `p11 < 1000 then do
+ @begin
+ @do saybar
+`@Dang, not enough energy.
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do `p11 - 1000
+ @do map is 1572
+ @do x is 56
+ @do y is 18
+ @end
+
+@loadmap &map
+@drawmap
+@update
+@closescript
+;-----------------------------------Nice girl-----------------------------
+@#girl
+@DO MOVEBACK
+@do `p24 random 30 1
+@SHOW
+
+`r0`c `r1`% Hot Chic `r0
+
+`2You stand before your personal love slave...She has dedicated her life you
+serving your wishes. Her long blonde hair is neatly combed just the way you
+like it the most. A hint of incense wofts through your nose as you climb onto
+her bed. She gets on top of you and....`\`k
+`p24 minutes later `0(need to exercise huh?)`2 you get up, very satisfied.
+You feel great and leave knowing there was NO chance of catching anything.
+`\`k
+`\`k
+@
+@drawmap
+@update
+;-----------------------------I want to be healed!!----------------------
+@#healme
+@do `p02 is `p03
+@do saybar
+`2You are completely Rested!!!
+@closescript
+;-----------------------------Royal-----------------------------------
+@#Royal
+@do moveback
+@offmap
+@if castle78.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2This is a nice house
+ It is for sale, and the asking price is `$$20000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Buy that sucker.
+<&money 20000 Cuss 'cause you ain't got no cash
+>&money 19999 Find the 3 little pigs.
+@
+
+@if responce is 1 then do
+ @begin
+ @if castle78.dat exist true then do
+ @begin
+ @show
+`\`\ `2Dammit! Someone bought the house you had your eye on. There goes
+ the honeymoon in paradise...better find someplace else.`\`\`k
+ @do goto done
+ @end
+
+ @writefile castle78.dat
+&playernum
+NONE
+ @do money - 20000
+ @do addlog
+ `0`n `2buys `%A nice house`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%G`day, landowner! `r0
+`\`2 You now own this house!
+
+`k `0As a special bonus, there is a pool, spa, cigar room, library, and dog!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile castle78.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete castle78.dat
+ @do addlog
+ `%A great house`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto royal
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+ `4You hang your head.
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops out the door. `0"Halt, you! What do you want with
+ my lord and master, `%`s02`0?" `2the maid asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Say something.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%The Royal`0,"`2 the maid smiles as she opens the door.`\`\`k
+ @do goto letmeinr
+ @end
+ @writefile mail\mail`p20.dat
+ `0House Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the maid by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The maid doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmeinr
+@do x is 40
+@do y is 19
+@do map is 1083
+@loadmap 1083
+@update
+@drawmap
+@do goto done
+;------------------------------Royal Maid--------------------------------
+@#royalmaid
+@do moveback
+@label startg
+@if castle78.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to vacate this house, or I'll dust ya!" `2the maid barks.
+ @closescript
+ @end
+
+@readfile castle78.dat
+`p20
+`s01
+@
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the maid, nice of her to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1
+@show
+`r0`c `r1 Instructing your maid `r0
+
+ `2The huge maid drops her mop when she sees you are going to
+ address her.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+Leave
+@
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$10000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your house to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to house your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete castle78.dat
+ @writefile castle78.dat
+`p20
+`s01
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of A nice house to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%A nice House`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your House back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete castle78.dat
+ @do money + 10000
+ @show
+`\`\ `%HOUSE SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%A nice House Keep`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete castle78.dat
+ @writefile castle78.dat
+&playernum
+`s01
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the maid promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+;----------------------------------Book------------------------------
+@#book
+@do moveback
+@do `p27 random 9 1
+
+@if `p27 is 1 then do
+ @begin
+ @show
+`r0`c `r1 `%Book of Physics `r0
+
+ `2You start to read the book of Physics. After several hours of
+reading you find you know less than when you started.
+ @key
+ @drawmap
+ @update
+ @end
+
+@if `p27 is 2 then do
+ @begin
+ @show
+`r0`c `r1 `%Book of Chemistry `r0
+
+ `2You start to read the book of Chemistry. After several hours of
+reading you find you know less than when you started.
+ @key
+ @drawmap
+ @update
+ @end
+@if `p27 is 3 then do
+ @begin
+ @show
+`r0`c `r1 `%Book of History `r0
+
+ `2You start to read the book of History. After several hours of
+reading you find you know less than when you started.
+ @key
+ @drawmap
+ @update
+ @end
+
+
+@if `p27 is 4 then do `s02 is Events
+ @begin
+ @show
+ `r0`c `r1 `%Events `r0`\`\
+ @displayfile lognow.txt Nopause
+ @key
+ @drawmap
+ @update
+ @end
+
+@if `p27 is 5 then do `s02 is Philosophy
+ @begin
+ @do `p26 random 5 1
+@if `p26 is 1 then `s03 is The`xworld`xis`xlike`xa`xsnowflake`xin`xAlaska
+@if `p26 is 2 then `s03 is Fire`xis`xthe`xpassion`xof`xof`xlove
+@if `p26 is 3 then `s03 is The`xbest`xway`xto`xlook`xat`xToronto`xis`xthrough`xthe`xrear`xview`xmirror.
+@if `p26 is 4 then `s03 is All`xthings`xconsidered,`xinsanity`xmay`xbe`xthe`xonly`xreasonable`xalternative.
+@if `p26 is 5 then `s03 is Any`xsufficiently`xadvanced`xtechnology`xis`xindistinguishable`xfrom`xa`xrigged`xdemo.
+ @show
+`r0`c `r1 `%Book of Philosophy `r0
+
+`2You flip through the pages and find this quote `l. `l. `l. `l. `l.
+`0`s03
+
+`2You find this quote insighfull and provocative!!!
+Your charm goes up by one!!!
+@do `p08 + 1
+ @key
+ @drawmap
+ @update
+ @end
+
+@if `p27 is 6 then do
+ @begin
+ @show
+`r0`c `r1 `%Book of Speling `r0
+
+`2Tehrr are maany pEopL tat ain't no good at Spellink and Gramer. But that
+is ok Bcasue threre isn't no problme in anyuthing. To Speil U must voik
+hard and nevr give up.
+ @key
+ @drawmap
+ @update
+ @end
+
+@if `p27 is 7 then do
+ @begin
+ @show
+`r0`c `r1 `%Book of Hints `r0
+
+`2So you want hints do you!!! Well here is a tip. Support Dragon's Den BBS
+You need to send me money!!!! Please I need it. Your sysop has helped you
+should to!!! E-mail me at Codax_dragon@juno.com or visit my web-page at
+http://www.geocites.com/SiliconValley/Way/9982/index.html
+I apologize for the long name that is another reason I need the money.
+ @key
+ @drawmap
+ @update
+ @end
+
+@if `p27 is 8 then do
+ @begin
+ @show
+`r0`c `r1 Book of Healing `r0
+
+ `2You open the book of healing and are surrounded by a beautiful
+`%white light`2 You are blinded for a moment then feel much better!!!
+ @key
+ @do `p02 is `p03
+ @drawmap
+ @update
+ @end
+
+@if `p27 is 9 then do
+ @begin
+ @show
+`r0`c `r1 `2Book of `4`bPain `r0
+
+ `2You reluctantly open the book of `b`4Pain `2and `l. `l. `l. `l.
+`k
+@
+@if `p07 Less 3 then do
+@begin
+@do `p07 - 3
+@show
+`2You learn how to tourture your victem and break pinkys(ouch)
+`4`b Your alignment drops by 3!!!!
+@
+@key
+@drawmap
+@update
+@end
+
+@if `p07 > 2 then do
+@begin
+@do `p02 is 1
+@do `p07 + 1
+@show
+`2You were horrified at the tourtures impozed on people and you toss your
+lunch on the floor. `4`bHit-points down to 1!!!!!! But, `l. `l.
+`!Your Allignment rises by 1
+ @key
+ @drawmap
+ @update
+ @end
+;----------------------------Library--------------------------------
+@#library
+@do saybar
+`2The smell of old books greets you as you enter the library.
+@closescript
+;---------------------------Steam Room---------------------------------
+@#steamroom
+@if &lastx > x then `s01 is feels
+@if &lastx < x then `s01 is felt
+@do saybar
+`%Ahhhhhhhh......The steam `s01 good!!!
+@closescript
+;--------------------------Garden--------------------------------------
+@#garden
+@do Saybar
+`2What a beautiful indor garden!
+;-----------------------------Secluded---------------------------------
+@#secluded
+@do saybar
+`2This area is just perfect for making out!!
+;-----------------------------------Fence-------------------------------
+@#fence
+@do saybar
+`4`bCAUTION `2Fighters Only!!!
+;----------------------------------cigar---------------------------------
+@#cigar
+@if &lasty < y then do
+@begin
+@do saybar
+You no longer smell the sweet smell of cigars
+@end
+
+@if &lasty > y then do
+@begin
+@show
+`r0`c `r1 Cigars `r0
+`2There is a box on the wall....It says "Cigars $5"
+Do you want a Cigar
+@do `v01 is 1
+@choice
+Yes
+No
+@if responce is 1 then do
+ @begin
+ @do money - 5
+@drawmap
+@update
+@do saybar
+MMMmmmmmm........ It's cuban!
+@do quebar
+`2You puff the cigar savoring is taste. Soon the room is filled with the aroma
+ @end
+@if response is 2 then do
+ @begin
+ @drawmap
+ @update
+`2The smell of recently smoked cigars wafts in the air
+ @end
+@end
+;-----------------------------------Dogeatn------------------------------
+@#dogeatn
+@do saybar
+`2What is that Dog Eating?!?!?!?!?!?!?!???
+;---------------------------------Draft-----------------------------
+@#Draft
+@do saybar
+`4`bEEEEEEIIIIIIII......`2It's cold over here!!!!
diff --git a/xtrn/lord2/cnw/drgnhome.ref b/xtrn/lord2/cnw/drgnhome.ref
new file mode 100644
index 0000000000000000000000000000000000000000..d4b0d7af32974a3703c2f8e4ce66e751352346b5
--- /dev/null
+++ b/xtrn/lord2/cnw/drgnhome.ref
@@ -0,0 +1,974 @@
+; Script file DRGNHOME.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:25 2001
+
+@DECLARE house1 000001198
+@DECLARE house2 000002931
+@DECLARE house3 000004612
+@DECLARE house4 000006295
+@DECLARE house5 000007988
+@DECLARE house6 000009708
+@DECLARE heal 000011364
+@DECLARE freshair 000011430
+@DECLARE sign 000011555
+@DECLARE sign2 000011703
+@DECLARE codaxbench 000011885
+@DECLARE codtalk 000012318
+@DECLARE stonecod 000014266
+@DECLARE out 000014873
+@DECLARE homeoffice 000015060
+@DECLARE dragontalk 000017226
+@DECLARE update 000017636
+@DECLARE mirror 000017741
+@DECLARE dogtail 000018769
+@DECLARE doghead 000019068
+@DECLARE secret 000019238
+@DECLARE chair 000019378
+@DECLARE tubman 000019561
+@DECLARE deepend 000019732
+@DECLARE sign4 000019860
+@DECLARE makehome 000020024
+@DECLARE done 000020298
+@DECLARE done 000020311
+@NOCHECK
+; End of .REF index
+
+;Dragon's Den Housing REGISTERED!!!!
+;by Codax Dragon
+;Thanx for helping the cause....For your help you get this upgrade,
+;several more screens, rentable hutt and more. You also get the
+;ablility to own/sell the 3 castles.
+;---------------------------House1------------------------------------
+@#house1
+@do moveback
+@offmap
+@if castle71.dat exists false then do
+@begin
+@show
+
+ `r0`c`r1 For Rent `r0`2
+
+ This little shack is for rent. You will get a bed and table
+ with this hutt and you can go in it 60 times before your rent
+ expires. Guess what, It only costs `$$500!`2
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 499 Pay rent
+<&money 500 Cuss 'cause you ain't got no cash
+>&money 499 Find the 3 little pigs.
+@
+
+@if responce not 1 then do
+@begin
+@run update
+@end
+
+@if responce is 1 then do
+@begin
+@writefile castle71.dat
+&playernum
+60
+@
+@do money - 500
+@do addlog
+`0`n`2 buys `%A hutt a Dragon's Den Housing for `$$500!
+@routine seperate in gametxt.ref
+@run house1
+@end
+@end
+
+@readfile castle71.dat
+`p20
+`p21
+@
+
+@if `p20 not &playernum then do
+@Begin
+@do saybar
+This is not your hutt!
+@run done
+@end
+
+@if `p20 is &playernum then do
+@begin
+@do `p21 - 1
+@do delete castle71.dat
+@writefile castle71.dat
+`p20
+`p21
+@
+
+@readfile castle71.dat
+`p20
+`p21
+@
+
+@if `p21 less 1 then do
+@begin
+@do saybar
+You have to pay your rent if you want your house back
+@key
+@do delete castle71.dat
+ @do addlog
+ `%`n, `2didn't pay s&his rent and lost s&his hutt at Dragon's Den Housing
+ @routine seperate in gametxt.ref
+ @run house1
+@end
+
+@do `p22 is deleted `p20
+@if `p22 is 1 then do
+@begin
+ @do delete castle71.dat
+ @do addlog
+ `%A great hutt`2 is put on the market today.
+ @routine seperate in gametxt.ref
+@run house1
+@end
+
+@if `p21 more 0 then do
+@begin
+@do x is 12
+@do y is 6
+@do map is 1588
+@loadmap 1588
+@drawmap
+@update
+@do goto done
+@end
+@end
+;------------------------house2----------------------------------
+@#house2
+@do moveback
+@offmap
+@if castle72.dat exists false then do
+ @begin
+ @show
+
+ `r0`c`r1 For Rent `r0`2
+
+ This little shack is for rent. You will get a bed and table
+ with this hutt and you can go in it 60 times before your rent
+ expires. Guess what, It only costs `$$500!`2
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 499 Pay rent
+<&money 500 Cuss 'cause you ain't got no cash
+>&money 499 Find the 3 little pigs.
+@
+
+@if responce not 1 then do
+@begin
+@run update
+@end
+
+@if responce is 1 then do
+@begin
+@writefile castle72.dat
+&playernum
+60
+@
+@do money - 500
+@do addlog
+`0`n`2 buys `%A hutt a Dragon's Den Housing for `$$500!
+@routine seperate in gametxt.ref
+@run house2
+@end
+@end
+
+@readfile castle72.dat
+`p20
+`p21
+@
+
+@if `p20 not &playernum then do
+@Begin
+@do saybar
+This is not your hutt!
+@end
+
+@if `p20 is &playernum then do
+@begin
+@do `p21 - 1
+@do delete castle72.dat
+@writefile castle72.dat
+&playernum
+`p21
+@
+
+@readfile castle72.dat
+`p20
+`p21
+@
+
+@if `p21 is 0 then do
+@begin
+@do saybar
+Time to pay your rent!
+@key
+@do delete castle72.dat
+ @do addlog
+ `%`n, `2didn't pay s&his rent and lost s&his hutt at Dragon's Den Housing
+ @routine seperate in gametxt.ref
+ @run house2
+@end
+
+@do `p22 is deleted `p20
+@if `p22 is 1 then do
+@begin
+ @do delete castle72.dat
+ @do addlog
+ `%A great hutt`2 is put on the market today.
+ @routine seperate in gametxt.ref
+@run house2
+@end
+
+@if `p21 more 0 then do
+@begin
+@do x is 38
+@do y is 6
+@do map is 1588
+@loadmap 1588
+@run update
+@do goto done
+@end
+@end
+;--------------------house3--------------------------
+@#house3
+@do moveback
+@offmap
+@if castle73.dat exists false then do
+ @begin
+ @show
+
+ `r0`c`r1 For Rent `r0`2
+
+ This little shack is for rent. You will get a bed and table
+ with this hutt and you can go in it 60 times before your rent
+ expires. Guess what, It only costs `$$500!`2
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 499 Pay rent
+<&money 500 Cuss 'cause you ain't got no cash
+>&money 499 Find the 3 little pigs.
+@
+
+@if responce not 1 then do
+@begin
+@run update
+@end
+
+@if responce is 1 then do
+@begin
+@writefile castle73.dat
+&playernum
+60
+@
+@do money - 500
+@do addlog
+`0`n`2 buys `%A hutt a Dragon's Den Housing for `$$500!
+@routine seperate in gametxt.ref
+@run house3
+@end
+@end
+
+@readfile castle73.dat
+`p20
+`p21
+@
+
+@if `p20 not &playernum then do
+@Begin
+@do saybar
+This is not your hutt!
+@run done
+@end
+
+@if `p20 is &playernum then do
+@begin
+@do `p21 - 1
+@do delete castle73.dat
+@writefile castle73.dat
+&playernum
+`p21
+@
+
+@readfile castle73.dat
+`p20
+`p21
+@
+
+@if `p21 is 0 then do
+@begin
+@do saybar
+Time to pay your rent
+@key
+@do delete castle73.dat
+ @do addlog
+ `%`n, `2didn't pay s&his rent and lost s&his hutt at Dragon's Den Housing
+ @routine seperate in gametxt.ref
+ @run house3
+@end
+
+@do `p22 is deleted `p20
+@if `p22 is 1 then do
+@begin
+ @do delete castle73.dat
+ @do addlog
+ `%A great hutt`2 is put on the market today.
+ @routine seperate in gametxt.ref
+@run house3
+@end
+
+@if `p21 more 0 then do
+@begin
+@do x is 60
+@do y is 6
+@do map is 1588
+@loadmap 1588
+@run update
+@do goto done
+@end
+@end
+;----------------------house4----------------
+@#house4
+@do moveback
+@offmap
+@if castle74.dat exists false then do
+ @begin
+ @show
+
+ `r0`c`r1 For Rent `r0`2
+
+ This little shack is for rent. You will get a bed and table
+ with this hutt and you can go in it 60 times before your rent
+ expires. Guess what, It only costs `$$800!`2
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 799 Pay rent
+<&money 800 Cuss 'cause you don't have the cash.
+>&money 799 Try to find the 3 little pigs.
+@
+
+@if responce not 1 then do
+@begin
+@run update
+@end
+
+@if responce is 1 then do
+@begin
+@writefile castle74.dat
+&playernum
+60
+@
+@do money - 800
+@do addlog
+`0`n`2 buys `%A hutt a Dragon's Den Housing for `$$800!
+@routine seperate in gametxt.ref
+@run house4
+@end
+@end
+
+@readfile castle74.dat
+`p20
+`p21
+@
+
+@if `p20 not &playernum then do
+@Begin
+@do saybar
+This is not your hutt!
+@run done
+@end
+
+@if `p20 is &playernum then do
+@begin
+@do `p21 - 1
+@do delete castle74.dat
+@writefile castle74.dat
+&playernum
+`p21
+@
+
+@readfile castle74.dat
+`p20
+`p21
+@
+
+@if `p21 is 0 then do
+@begin
+@do saybar
+Time to pay your rent
+@key
+@do delete castle74.dat
+ @do addlog
+ `%`n, `2didn't pay s&his rent and lost s&his hutt at Dragon's Den Housing
+ @routine seperate in gametxt.ref
+ @run house4
+@end
+
+@do `p22 is deleted `p20
+@if `p22 is 1 then do
+@begin
+ @do delete castle74.dat
+ @do addlog
+ `%A great hutt`2 is put on the market today.
+ @routine seperate in gametxt.ref
+@run house4
+@end
+
+@if `p21 more 0 then do
+@begin
+@do x is 23
+@do y is 14
+@do map is 1588
+@loadmap 1588
+@run update
+@do goto done
+@end
+@end
+;-------------------------house5------------
+@#house5
+@do moveback
+@offmap
+@if castle75.dat exists false then do
+ @begin
+ @show
+
+ `r0`c`r1 For Rent `r0`2
+
+ This house is for rent. You will get a bed and table and windows
+ with this house and you can go in it 90 times before your rent
+ expires. Guess what, It only costs `$$1500!`2
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 1499 Pay rent
+<&money 1500 Cuss 'cause you don't have the cash.
+>&money 1499 Try to find the 3 little pigs.
+@
+
+@if responce not 1 then do
+@begin
+@run update
+@end
+
+@if responce is 1 then do
+@begin
+@writefile castle75.dat
+&playernum
+90
+@
+
+@do money - 1500
+@do addlog
+`0`n`2 buys `%A home at Dragon's Den Housing for `$$1500!
+@routine seperate in gametxt.ref
+@run house5
+@end
+@end
+
+@readfile castle75.dat
+`p20
+`p21
+@
+
+@if `p20 not &playernum then do
+@Begin
+@do saybar
+This is not your house!
+@run done
+@end
+
+@if `p20 is &playernum then do
+@begin
+@do `p21 - 1
+@do delete castle75.dat
+@writefile castle75.dat
+&playernum
+`p21
+@
+
+@readfile castle75.dat
+`p20
+`p21
+@
+
+@if `p21 is 0 then do
+@begin
+@do saybar
+Time to pay your rent
+@key
+@do delete castle75.dat
+ @do addlog
+ `%`n, `2didn't pay s&his rent and lost s&his hutt at Dragon's Den Housing
+ @routine seperate in gametxt.ref
+ @run house5
+@end
+
+@do `p22 is deleted `p20
+@if `p22 is 1 then do
+@begin
+ @do delete castle75.dat
+ @do addlog
+ `%A great hutt`2 is put on the market today.
+ @routine seperate in gametxt.ref
+@run house5
+@end
+
+@if `p21 more 0 then do
+@begin
+@do x is 28
+@do y is 15
+@do map is 1587
+@loadmap 1587
+@run update
+@do goto done
+@end
+@end
+
+
+;-----------------------house6---------------------
+@#house6
+@do moveback
+@offmap
+@if castle76.dat exists false then do
+ @begin
+ @show
+
+ `r0`c`r1 For Rent `r0`2
+
+ This beautiful house is for rent. You will get a huge bed, table
+ and windows. You can go in it 200 times before your rent
+ expires. Guess what, It only costs `$$5000!`2
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 4999 Pay rent
+<&money 5000 Cuss 'cause you don't have the cash.
+>&money 4999 Try to find the 3 little pigs.
+@
+
+@if responce not 1 then do
+@begin
+@run update
+@end
+
+@if responce is 1 then do
+@begin
+@writefile castle76.dat
+&playernum
+200
+@
+@do money - 5000
+@do addlog
+`0`n`2 buys `%A hutt a Dragon's Den Housing for `$$1500!
+@routine seperate in gametxt.ref
+@run house6
+@end
+@end
+
+@readfile castle76.dat
+`p20
+`p21
+@
+
+@if `p20 not &playernum then do
+@Begin
+@do saybar
+This is not your house!
+@run done
+@end
+
+@if `p20 is &playernum then do
+@begin
+@do `p21 - 1
+@do delete castle76.dat
+@writefile castle76.dat
+&playernum
+`p21
+@
+
+@readfile castle76.dat
+`p20
+`p21
+@
+
+@if `p21 is 0 then do
+@begin
+@do saybar
+Time to pay your rent
+@key
+@do delete castle76.dat
+ @do addlog
+ `%`n, `2didn't pay s&his rent and lost s&his hutt at Dragon's Den Housing
+ @routine seperate in gametxt.ref
+ @run house6
+@end
+
+@do `p22 is deleted `p20
+@if `p22 is 1 then do
+@begin
+ @do delete castle76.dat
+ @do addlog
+ `%A great hutt`2 is put on the market today.
+ @routine seperate in gametxt.ref
+@run house6
+@end
+
+@if `p21 more 0 then do
+@begin
+@do x is 67
+@do y is 17
+@do map is 1587
+@loadmap 1587
+@run update
+@do goto done
+@end
+@end
+
+@#heal
+@do `p02 is `p03
+@do saybar
+You are fully healed
+
+@#freshair
+@do saybar
+MMMMMmmm Nothing like fresh air!
+;----------------------------------The Sign--------------------------
+@#sign
+@do moveback
+@do saybar
+ `2Welcome to Dragon's Den Housing.....
+;---------------------------------Second Sign------------------------
+@#sign2
+@do moveback
+
+@do Saybar
+ `$N`2ow `$E`2ntering `$T`2he `$U`2pper `$E`2states
+@closescript
+@end
+;---------------------------Codax's Bench----------------------
+@#codaxbench
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2Stone Him? [`0N`2/`0Y`2] :`x
+@do readspecial `s01 NY
+
+@if `s01 is N then do
+@begin
+@if rock&playernum.cod exists true then do
+@begin
+@readfile rock&playernum.cod
+`p20
+@
+@if `p20 not &time then do
+@begin
+@do delete rock&playernum.cod
+@do goto codtalk
+@end
+
+@if `p20 is &time then do
+@begin
+@do goto out
+@end
+@end
+
+@label codtalk
+@do `p21 random 24 1
+@if `p21 is 1 then saybar
+`0Codax: `2Dragon's Den BBS is the only 1 4 me!!!
+@if `p21 is 2 then saybar
+`0Codax: `2When I get a house I'll be safe forever
+@if `p21 is 3 then saybar
+`0Codax: `2Place your add here
+@if `p21 is 4 then saybar
+`0Codax: `2Alms for a sysop....Come on buddy...Please....<sniff>
+@if `p21 is 5 then saybar
+`0Codax: `2Show me the `$Money!!!!
+@if `p21 is 6 then saybar
+`0Codax: `2I'm shameless when advertising for my BBS
+@if `p21 is 7 then saybar
+`0Codax: `2Look out behind you!!!!!!haha tricked you!!
+@if `p21 is 8 then saybar
+`0Codax: `2May the Dragons Protect Your Soul
+@if `p21 is 9 then saybar
+`0Codax: `2I've got alot to say don't I?
+@if `p21 is 10 then saybar
+`0Codax: `2No body knows the trouble I seen....
+@if `p21 is 11 then saybar
+`0Codax: `2Make Love not `4`bWar
+@if `p21 is 12 then saybar
+`0Codax: `2WHAT?!?!?! PHOENIX?!?!? WHERE?!?!?!?
+@if `p21 is 13 then saybar
+`0Codax: `2Have your people call my people...We'll do lunch
+@if `p21 is 14 then saybar
+`0Codax: `2The roof...The roof...The roof is on FIRE!!!
+@if `p21 is 15 then saybar
+`0Codax: `2Barak still lives with his mother
+@if `p21 is 16 then saybar
+`0Codax: `2Have you found Power yet?
+@if `p21 is 17 then saybar
+`0Codax: `2Seth spelled backwards is Htes
+@if `p21 is 18 then saybar
+`0Codax: `2Seth Able can also be Ale Thebs
+@if `p21 is 19 then saybar
+`0Codax: `2Stay Off My BENCH!!!!!!!
+@if `p21 is 20 then saybar
+`0Codax: `2Do you have a newspaper? It's rather cold today
+@if `p21 is 21 then saybar
+`0Codax: `2All hail Emporor Gehstal...er..sorry wrong game
+@if `p21 is 22 then saybar
+`0Codax: `2Thou art so........odd
+@if `p21 is 23 then saybar
+`0Codax: `2Idea for a new game: Koshi's Island 2
+@if `p21 is 24 then saybar
+`0Codax: `2 Nothing is like the music of hundreds of voices screaming in unison!
+@end
+
+@if `s01 is Y then do
+@begin
+@label stonecod
+@if rock&playernum.cod exists false then do
+@begin
+@writefile rock&playernum.cod
+0
+@
+@do goto stonecod
+@end
+
+@if rock&playernum.cod exists true then do
+@begin
+@readfile rock&playernum.cod
+`p20
+@
+
+@if `p20 not &time then do
+@begin
+@do delete rock&playernum.cod
+@writefile rock&playernum.cod
+&time
+@
+@drawmap
+@update
+@do `p20 Random 50 1
+@do money + `p20
+@do `p07 - 3
+@do saybar
+You throw stones at the poor defencles sysop and knock him unconsious!
+@do quebar
+You lost 3 allignment and stole `$$`p20`% out of his BBS fund!
+@end
+
+@if `p20 is &time then do
+@begin
+@label out
+@do saybar
+Codax lies unconsious on his bench! You already stoned him today!
+@end
+@end
+@end
+
+;------------------------------Home Office-----------------------------
+@#homeoffice
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1 `%Talking to Darlatia `r0
+
+
+ `2#$^HYAS#%QQDFHSDGJE#&&ASG #$^!SD #!G A #% ARR>Mlp;'
+3788GSHS#$%^&sstSUI8356SG&@#!&* $%& $1! !$^!$ % $Y$QG +��b864
+
+Do you understand?
+@choice
+Yes
+No
+Leave...she's scaring you.
+@if responce is 1 then goto Dragontalk
+@if responce is 3 then goto update
+ @show
+
+`2"My Appologies....I was unware you didn't know Dragon Tounge."
+`k
+`$Fine...Just don't speak that shit to me again!!!
+`k
+
+`2"She bows then says "I am @#$^#!#)(+V...err...you can call me Darlatia
+I am second to `1C`3o`5d`7a`9x, `2the Leader of this village. He would meet you himself
+but he is a trifle busy right now...I can't seem to find him anywhere....
+anyway would you like to hear the story behind this settlement?"
+`k
+
+`$"Not really, Dragon" You say flatly
+`k
+
+`2"Too bad you are going to hear it anyway. Long ago there was a great
+war bettween the Phoenixi..."
+`k
+
+`$"You mean the Phoenixes!?!?!" You gasp in astonishment!!!
+`k
+
+`2"It is pronounced Phoenixi actually" she corrects you "anyway `1C`3o`5d`7a`9x was
+`2one of the warriors in the final battle of Phoel Hill. Havn't you heard the
+legend of the Purple Dragon!?!?!
+`k
+
+`$"Is it anything like Ledgend Of the `4Red `2Dragon?" you say
+`k
+
+`2"Were you born on a farm, s&boy,?!? The Red dragon is `1C`3o`5d`7a`9x's
+ `2father's cousin's son's daugter's roomate!"
+`k
+
+`$"So how does that relate him to this `1C`3o`5d`7a`9x `2guy?"
+`k
+
+`2"Never you mind. `1C`3o`5d`7a`9x `2is the most powerfull of the Purple
+Dragons. But it seems he has retired and decided to make some cash.
+Can't live on ledgends for ever ya know."
+`k
+`$"Psshhh...yeah.....right"
+`k
+
+`2"So he decided to build this town since the Dragon and Phoenix
+war was over, Dragons were nearly extinct, and there were DragonHunters
+everywhere. He now takes the guize of a half-elf.
+`k
+
+`$This is interesting and all but I need a house!
+`k
+
+`2Just go in the one you want to buy. C'ya.
+@
+@key
+@pauseon
+@drawmap
+@update
+;==============================Dragontalk=============================
+@#Dragontalk
+@show
+`2awtb n1 64156 #$% !^!$ &!!$ !#$%^! !^!N "C3__�nM�!> L5T5n
+WE4BQ23 N7 3 568E 234Q DFHDHW 13FGAG DARLATIA afoweij 908 23klh 7
+wea aega84 faweifj asdi asdfi loiw ba
+kj
+ *&_)
+
+`2You relize you have no idea what she is saying and leave feeling like
+an idiot.
+@
+@key
+@pauseon
+@drawmap
+@update
+;-------------------------------Upadate Screen Routine--------------------
+@#update
+@drawmap
+@update
+;------------------------------Mirror-------------------------------------
+@#mirror
+@do moveback
+@do `p22 random 13 1
+
+@if `p22 is 1 then saybar
+`2"Mirror, Mirror on the wall which is greatest LORD of all?"
+@if `p22 is 2 then saybar
+`4`b<crack>
+@if `p22 is 3 then saybar
+`2Who's that s&man? S&he's gorgous
+@if `p22 is 4 then saybar
+`2Hey baby!
+@if `p22 is 5 then saybar
+`2I can see myself from here
+@if `p22 is 6 then saybar
+`2i can't see a thing....gotta get this thing cleaned
+@if `p22 is 7 then saybar
+`0Geeves: `2Stop looking in the mirror, s&sir, we have guests
+@if `p22 is 8 then saybar
+`2Are YOU talkN ta *ME*? Are YOU TALKN TA ME?!?
+@if `p22 is 9 then saybar
+`2Hasta Lavista....Baby
+@if `p22 is 10 then saybar
+`2You flex you pecs and other muscles(or lack of)
+@if `p22 is 11 then saybar
+`2codax_dragon@juno.com send him mail on howto send money
+@if `p22 is 12 then saybar
+`2Now that you are at the mirror you reflect over today's events
+@if `p22 is 13 then saybar
+`2Got Milk
+@closescript
+;----------------------------Dog Tail--------------------------------
+@#dogtail
+@do `p20 random 3 1
+
+@if `p20 is 1 then saybar
+`4`bYIP!!!!!!!
+@if `p20 is 2 then saybar
+`2The dog moves his tail so you don't step on it
+@if `p20 is 3 then saybar
+`2The dog doesn't notice you crushed his tail
+;------------------------------Dog Head------------------------------
+@#doghead
+@do moveback
+@do saybar
+`2<pant> <drool> <slober> <pant> <slurp> Arf!!!!
+@closescript
+;-----------------------------secret--------------------------------
+@#secret
+@do saybar
+`2You look around and turn the secret knob.....
+;-----------------------------master's chair------------------------
+@#chair
+@do saybar
+`2You sit in your chair....mmmmmm...food smells good.....
+@closescript
+@do `p02 is `p03
+;----------------------------tubman---------------------------------
+@#tubman
+@do moveback
+@do saybar
+`2Hey man....Can't you see I'm doing something!!!
+@closescript
+;--------------------------deepend---------------------------------
+@#deepend
+@do saybar
+`4`bCAUTION `2Shallow area ends here!!!!
+;--------------------------sign--------------------------------
+@#sign4
+@do saybar
+<---Greentree ^Porttown ---->Dragon's Den Housing(est. by Codax)
+
+;--------------------------Dragon Den is my home-------------------
+@#makehome
+@do moveback
+@Do saybar
+`%Make `#Dragon's Den `%your home? `8<`7y/N`8> :
+@do readspecial `s02 NY
+@if `s02 is Y then do
+ @begin
+ @do `p69 is 29
+ @do saybar
+ `#Dragon's Den `%housing is now home sweet home.
+ @end
+@closescript
+
+@#done
+@label done
diff --git a/xtrn/lord2/cnw/drinkoff.ref b/xtrn/lord2/cnw/drinkoff.ref
new file mode 100644
index 0000000000000000000000000000000000000000..6843c4a5859606cc42df5013d983d61854534fac
--- /dev/null
+++ b/xtrn/lord2/cnw/drinkoff.ref
@@ -0,0 +1,104 @@
+; Script file DRINKOFF.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:18 2001
+
+@DECLARE drinkoff 000000184
+@DECLARE done 000002335
+@NOCHECK
+; End of .REF index
+
+@#drinkoff
+ @busy
+ @if `t43 > 249 then do
+ @begin
+ @show
+`r0`c `r1 NO WAY! `r0
+
+ `0"Your just a slobbering drunk you need to sober up before you
+ `0try to drink with me! I don't deal with the likes of you!!!"
+ `2(hint: go talk to rab about drunkeness)
+ `k
+ @do money - 10
+ @do `t44 = 1
+ @do goto done
+ @end
+
+ @if `t43 < 250 then do
+ @begin
+ @do `v01 is 1
+ @show
+`r0`c `r1 DRINKING CONTEST! `r0
+
+ `0"My name is Sandtiger! I too was once a Trainer at
+
+ `0Turgons." `2(He is a big guy with a patch on his eye)
+
+ `0"I guess you wanna loose some money!" `2he smiles.
+
+@do write
+`x`x
+@choice
+Ok Mr. Sandtiger.. Lets see what ya got!
+Forget it!
+
+ @if response is 1 then do
+ @begin
+ @do `v01 is 1
+ @show
+`\`\ `0"Alright s&sir lets get this going!
+
+ `$"Well, I think I'm gonna show you something old man!" `2you say.
+
+ `0"We will see won't we!?!? - Only time will tell." `2he laughs.
+
+`k`c `2You both signal Rab to bring the drinks..
+
+`k `2(you know, it will cost ya to supply the drinks for the contest!)
+
+@do write
+`x`x
+@choice
+Here is $10 (you have $&money)
+Screw this!
+
+ @if response is 1 then do
+ @begin
+@show
+`c `r1 LETS BEGIN! `r0
+
+ `2Sitting there you see Sandtiger preparing himself for drinking..
+ `2He fixes his patch and slams the table.. (whata nut!)
+`k `2You each take a drink.. neither one of you fazed.. this goes on
+ `2for 5 drinks and then`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`l`.`l.
+ `k
+
+ @do `p20 random 600 `t43
+
+ @if `p20 < 400 then do
+ @begin
+ @show
+`k`c `r1 YOU LOST! `r0
+
+ `2Things start to fade... the next thing you know your $10 and you
+ `2have been out for at least an hour! You gather yourself and stand up!
+ `k
+ @do money - 10
+ @end
+
+ @if `p20 > 399 then do
+ @begin
+ @show
+`k`c `r1 YOU WON! `r0
+
+ `2Sandtiger spills his glass while reaching for it.. His head falls
+ `2and he gives you the $10 you won! "Good job!" says rab half laughing
+ `2half seriously
+ `k
+ @do money + 10
+ @end
+
+ @end
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
diff --git a/xtrn/lord2/cnw/dsprhope.ref b/xtrn/lord2/cnw/dsprhope.ref
new file mode 100644
index 0000000000000000000000000000000000000000..028d089efe52117afaddd8009b4816ffcd500e37
--- /dev/null
+++ b/xtrn/lord2/cnw/dsprhope.ref
@@ -0,0 +1,532 @@
+; Script file DSPRHOPE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:24 2001
+
+@DECLARE sign1 000001098
+@DECLARE sign2 000001193
+@DECLARE events 000001286
+@DECLARE event01 000001491
+@DECLARE event02 000001686
+@DECLARE event03 000001752
+@DECLARE chest 000001839
+@DECLARE chestopen 000002306
+@DECLARE tres1 000003357
+@DECLARE tres2 000003432
+@DECLARE tres3 000003500
+@DECLARE tres4 000003568
+@DECLARE tres5 000003661
+@DECLARE tres6 000003723
+@DECLARE tres7 000003795
+@DECLARE tres8 000003866
+@DECLARE tres9 000003941
+@DECLARE tres10 000004022
+@DECLARE tres11 000004092
+@DECLARE tres13 000004168
+@DECLARE tres12 000004279
+@DECLARE tres14 000004380
+@DECLARE tres15 000004480
+@DECLARE healme 000004555
+@DECLARE sunlight 000005149
+@DECLARE sign3 000005204
+@DECLARE event00 000005276
+@DECLARE codax 000005331
+@DECLARE win 000008596
+@DECLARE run 000008775
+@DECLARE done 000008936
+@NOCHECK
+; End of .REF index
+
+;The Cave of HOPE and DESPAIR
+;Dragon's Den Ultd
+;This igm is FREEWARE but please send me a donation to get
+;Dragon's Den BBS up and running
+
+@#sign1
+@do moveback
+@do saybar
+`4`bCAUTION...`2This a cave of `%Hope `2and of `8Dispair
+
+@#sign2
+@do moveback
+@do saybar
+`%Take care....for this is a cave of Pain and Healing
+
+@#events
+@do `p20 random 3 1
+@if `p20 is 1 then do
+ @begin
+ @run event01
+ @end
+@if `p20 is 2 then do
+ @begin
+ @run event02
+ @end
+@if `p20 is 3 then do
+ @begin
+ @run event03
+ @end
+
+@#event01
+@do saybar
+`4`bHit Points go down 10!!!
+@do `p02 - 10
+@if `p02 < 1 then do
+ @begin
+ @do enemy is The`xCave`xof`xHope`xand`xDespair
+ @run die in gametxt.ref
+ @end
+
+@#event02
+@do saybar
+`2You feel renewed!!!
+@do `p02 is `p03
+
+@#event03
+@do saybar
+`4`bEEEEEEIIIIIIIiiiiii......`2You hear a soul renching scream
+
+@#chest
+@do moveback
+@do `p24 is &playernum
+
+@do `p22 is &time
+
+@if cave`p24.cod exists true then do
+ @begin
+ @readfile cave`p24.cod
+`p23
+@if `p23 not &time then do
+ @begin
+ @do delete cave`p24.cod
+ @run chestopen
+ @end
+
+@if `p23 is &time then do
+ @begin
+ @do saybar
+`2You already have your treasure for today...GO HOME!!!!
+ @end
+
+@end
+@if cave`p24.cod exists false then do
+@begin
+ @run chestopen
+@end
+
+@#chestopen
+@do `p24 is &playernum
+@do `p22 is &time
+@writefile cave`p24.cod
+`p22
+@do `p20 Random 15 1
+
+@if `p20 is 1 then do
+ @begin
+ @run tres1
+ @end
+
+@if `p20 is 2 then do begin
+ @begin
+ @run tres2
+ @end
+
+@if `p20 is 3 then do begin
+ @begin
+ @run tres3
+ @end
+
+@if `p20 is 4 then do begin
+ @begin
+ @run tres4
+ @end
+
+@if `p20 is 5 then do begin
+ @begin
+ @run tres5
+ @end
+
+@if `p20 is 6 then do begin
+ @begin
+ @run tres6
+ @end
+
+@if `p20 is 7 then do begin
+ @begin
+ @run tres7
+ @end
+
+@if `p20 is 8 then do begin
+ @begin
+ @run tres8
+ @end
+
+@if `p20 is 9 then do begin
+ @begin
+ @run tres9
+ @end
+
+@if `p20 is 10 then do begin
+ @begin
+ @run tres10
+ @end
+
+@if `p20 is 11 then do begin
+ @begin
+ @run tres11
+ @end
+
+@if `p20 is 12 then do begin
+ @begin
+ @run tres12
+ @end
+
+@if `p20 is 13 then do begin
+ @begin
+ @run tres13
+ @end
+
+@if `p20 is 14 then do begin
+ @begin
+ @run tres14
+ @end
+
+@if `p20 is 15 then do
+ @begin
+ @run tres15
+ @end
+
+@#tres1
+ @do `i02 + 25
+ @do saybar
+`2You got a bunch of Poisonberrys
+
+@#tres2
+ @do `i05 + 15
+ @do saybar
+`2You got 15 Green Potions
+
+@#tres3
+ @do `i06 + 15
+ @do saybar
+`2You got 15 Rusty Daggers
+
+@#tres4
+ @do `p02 is 1
+ @do saybar
+`2IT WAS A TRAP!!!`4`b Hit-Points go WAY down!!!
+
+
+@#tres5
+ @do `i20 + 1
+ @do saybar
+`2You got a World Map
+
+@#tres6
+ @do `i35 + 2
+ @do saybar
+`2You got the `%2 Silver Sabres
+
+@#tres7
+ @do `i40 + 3
+ @do saybar
+`2You got the `!3 Blue Potions
+
+@#tres8
+ @do `i50 + 10
+ @do saybar
+`2You got the `%10 Travel Potions
+
+@#tres9
+ @do `p20 / 2
+ @do saybar
+`4`bIT'S A TRAP......HIT POINTS GO DOWN
+
+@#tres10
+ @do `i53 + 3
+ @do saybar
+`2You got the `$Gold Potions
+
+@#tres11
+ @do `i54 + 3
+ @do saybar
+`2You got the `%3 Silver Potions
+
+
+@#tres13
+ @do `p12 + 1
+ @do saybar
+`2A `4`bHOLL`2 (human+troll) Jumps out and rapes you!!! You got VD!!!
+
+@#tres12
+ @do `p11 is 0
+ @do saybar
+`2You faint at the sight of the scum that was in the chest
+
+@#tres14
+ @do `p08 - 5
+ @do saybar
+`2The chest explodes and you are covered with `6slop. PU!
+
+@#tres15
+ @do `i52 + 3
+ @do saybar
+`2You got the `43 Red Potions
+
+
+
+@#healme
+@do moveback
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @run event02
+ @end
+
+@if `p21 is 2 then do
+ @begin
+ @do `p02 is 1
+ @do saybar
+`4`b Aaacchhh....`2Hit points down to 1
+ @Drawmap
+ @update
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p02 - 50
+ @drawmap
+ @update
+@if `p02 < 1 then do
+ @begin
+ @do enemy is a`x`1Pond
+ @run die in gametxt.ref
+ @end
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 + 1
+ @drawmap
+ @update
+ @end
+
+@if `p21 is 5 then do
+ @begin
+ @do `p03 - 1
+ @drawmap
+ @update
+ @end
+
+@#sunlight
+@do saybar
+`2What beautiful `$sunlight!!!
+
+@#sign3
+@do moveback
+@do saybar
+`$This is the best prize of all
+
+@#event00
+@do saybar
+`$LOOK AT ALL THAT GOLD!!!!!
+
+
+@#codax
+@do moveback
+
+@if caveq&playernum.cod exists false then do
+@begin
+@writefile caveq&playernum.cod
+&time
+0
+@
+@run codax
+@end
+
+@if caveq&playernum.cod exists true then do
+@begin
+@readfile caveq&playernum.cod
+`p20
+`p21
+@
+
+@if `p20 not &time then do
+ @begin
+ @do delete caveq&playernum.cod
+ @run codax
+ @end
+
+@if `p20 is &time then do
+ @begin
+
+@if `p21 is 1 then saybar
+`2C`3o`5d`7a`9x`%: `2Leave me the Hell ALONE...You left me to die!!!!
+@if `p21 is 2 then saybar
+`2C`3o`5d`7a`9x`%:`2 Go AWAY!!!!!!!!
+@if `p21 is 3 then saybar
+`2C`3o`5d`7a`9x `2lies dead at your feet
+@if `p21 is 4 then saybar
+`2C`3o`5d`7a`9x`%:`2 Get out of here you sorry excuse for a human
+@if `p21 is 5 then saybar
+`2You have already rescued Codax this is just his shadow
+
+@if `p21 is 0 then do
+ @begin
+@show
+
+`r0`c `r1`% Help Me!!! `r0
+
+ `1C`3o`5d`7a`9x`%:`2 You have got to help me!!!! I was searching for treasure when I
+ got lost in this maze here!!! Please Help me!!!
+
+@do `v01 is 1
+@choice
+Help `2C`3o`5d`7a`9x`2 Out of the Cave
+Laugh at him and run
+Hit him with your s&weapon
+@
+
+@if responce is 2 then do
+ @begin
+ @show
+
+`$Out of my way, FREAK!!! You run away laughing!!!
+`k
+
+@do delete caveq&playernum.cod
+
+@writefile caveq&playernum.cod
+&time
+2
+@
+@drawmap
+@update
+@end
+
+@if responce is 3 then do
+ @begin
+ @show
+
+ `$You meanly hit `1C`3o`5d`7a`9x`2 with your s&weapon....Uh oh looks like he's mad!!
+
+@drawmap
+@update
+@fight
+;name
+`2C`3o`5d`7a`9x`2
+;string said when you see him
+`1C`3o`5d`7a`9x`2 turns into a DRAGON!!!
+;power move kill string
+Legend of the Purple Dragon my foot!!!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Shoots lightning at you|200
+bites you|100
+Hits you with his tail|75
+Roars loudly|0
+Summons ancient powers|250
+;defense
+250
+;gold reward
+10000
+;experience
+1890
+;hit points
+1500
+;if win: ref file|name or NONE
+dsprhope.ref|Win
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+dsprhope.ref|run
+@end
+
+@if responce is 1 then do
+ @begin
+ @show
+
+
+
+`k
+ `1C`3o`5d`7a`9x`%:`2 What's That...You'll help me out!!! Great
+
+ Traveling`l. `l. `l. `l. Oh no your Hitpoints went down to one...but
+ you are sooooo close...Do you want to chance it?
+
+@do `v01 is 1
+@choice
+Yes
+No
+@
+
+@if responce is 2 then do
+ @begin
+@do `p02 is 1
+@do x is 20
+@do y is 15
+@loadmap 676
+@drawmap
+@update
+@Do saybar
+`2You leave `2C`3o`5d`7a`9x`2 Behind to fend for himself
+@do delete caveq&playernum.cod
+@writefile caveq&playernum.cod
+&time
+1
+@
+@end
+
+@if responce is 1 then do
+@begin
+
+@show
+
+`k
+`2 You decide to continue on`l. `l. `l. You see daylight!!!! Then...You are
+ outside!!!!
+
+ `1C`3o`5d`7a`9x`%:`2 Thank you Soooo much!!!! Here I have a present for you!
+ I will heal you!!!! You gain 2 alignment!! You get 1 quest point
+ but it took you 300 turns.
+`k
+@do delete caveq&playernum.cod
+
+@writefile caveq&playernum.cod
+&time
+5
+@
+
+@do `p07 + 2
+@do `p02 is `p03
+@do `v11 - 300
+@do `p18 + 1
+@do x is 46
+@do y is 12
+@do map is 1413
+@loadmap 1413
+@drawmap
+@update
+@end
+@end
+@end
+
+@#win
+@do saybar
+`1C`3o`5d`7a`9x`2 falls to the ground....dead! Somehow you know he'll be back
+
+@do delete caveq&playernum.cod
+
+@writefile caveq&playernum.cod
+&time
+3
+
+@#run
+@do saybar
+`2C`3o`5d`7a`9x`%:`2 With people like you who needs assasins
+@do delete caveq&playernum.cod
+
+@writefile caveq&playernum.cod
+&time
+4
+
+@#done
diff --git a/xtrn/lord2/cnw/end.ref b/xtrn/lord2/cnw/end.ref
new file mode 100644
index 0000000000000000000000000000000000000000..9ff79b8678851f3d73af441858fc3db730678c35
--- /dev/null
+++ b/xtrn/lord2/cnw/end.ref
@@ -0,0 +1,48 @@
+; Script file END.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:43 2001
+
+@DECLARE monster1 000000180
+@DECLARE fight 000000708
+@NOCHECK
+; End of .REF index
+
+@#monster1
+@fight
+;name
+Death Angel
+;string said when you see him
+Oh dear god, help me now! ITS DEATH!!!
+;power move kill string
+Even an angel can be bad.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Uses his sickle|120
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+88
+;gold reward
+100
+;exerience
+500
+;hit points
+500
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+
+
+@#FIGHT
+@do `p20 random 12 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@busy
+@do goto monster1
diff --git a/xtrn/lord2/cnw/ericsbar.ref b/xtrn/lord2/cnw/ericsbar.ref
new file mode 100644
index 0000000000000000000000000000000000000000..7a85dcc0e0a387f776f9f3b167fc65438e628a44
--- /dev/null
+++ b/xtrn/lord2/cnw/ericsbar.ref
@@ -0,0 +1,870 @@
+; Script file ERICSBAR.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:30 2001
+
+@DECLARE barsign 000001092
+@DECLARE nomore 000001151
+@DECLARE drinknomore 000001168
+@DECLARE spirit 000001409
+@DECLARE monster1 000003335
+@DECLARE monster2 000003891
+@DECLARE monster3 000004446
+@DECLARE monster4 000005026
+@DECLARE monster5 000005588
+@DECLARE living 000006133
+@DECLARE nomore 000007550
+@DECLARE chicken 000007563
+@DECLARE nomore 000008945
+@DECLARE lockdown 000008959
+@DECLARE nomore 000009112
+@DECLARE booty 000009123
+@DECLARE nomore 000010237
+@DECLARE break 000010248
+@DECLARE nomore 000012165
+@DECLARE pick 000012175
+@DECLARE nomore 000013161
+@DECLARE secretdoor 000013177
+@DECLARE nomore 000013782
+@DECLARE leaveguard 000013798
+@DECLARE nomore 000014115
+@DECLARE guard1 000014127
+@DECLARE nomore 000014707
+@DECLARE castlesign 000014723
+@DECLARE towerend 000014814
+@DECLARE tower 000014886
+@DECLARE nomore 000016206
+@NOCHECK
+; End of .REF index
+
+; Ericsbar.ref
+; Needs Odinkeep.ref to work
+@#BARSIGN
+@do moveback
+@do saybar
+Welcome to Eric's Bar
+@#NOMORE
+
+@#DRINKNOMORE
+@show
+`r0`c `r1 `%One TrIp a day `r0
+
+ `2When you wake up the whole bar is huddled around you.
+
+ `0"Uh yea, I forgot to tell you `%`n`0, you can only TrIp
+ once per day." `2Eric says grinning.
+`\`k
+@drawmap
+@update
+
+@#SPIRIT
+@datanewday drink.idf
+@dataload drink.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto DRINKNOMORE
+@end
+
+@datasave drink.idf &playernum 1
+
+@offmap
+@show
+`\`c
+ `0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ `$Welcome to the spirit realm
+ `0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`\`k
+ `2You see your body lying on the bar floor beneath you.
+ You are now dead it seems .`l.`l.`l.`l. or are you ?
+`\`k
+ `%"Curse you Eric !" `2you shout.
+ `2But he can't hear you. In fact, Eric is laughing.
+`\`k
+ You see your father walking towards you.
+`\`k
+ `0"Hello my little s&boy. If you want to return to the living
+ you must face 1 challenge. Prepare yourself and good luck."
+`\`k
+
+@do `p21 random 5 1
+@if `p21 is 1 then do
+ @begin
+ @show
+`\`c
+ `2You seem to be facing a shadowy version of yourself.
+`\
+ `%"I've waited a long time for this!" `2your double mumbles.
+
+`k
+@do goto MONSTER1
+@drawmap
+@update
+
+ @end
+
+@if `p21 is 2 then do
+ @begin
+ @show
+`\`c
+ `0"I'm your spirit guide, you must defeat me in battle to gain
+ true enlightenment."
+`\`k
+@do goto MONSTER2
+
+@drawmap
+@update
+
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @show
+`\`c
+ `2You are face to face with the spirit of a Red Dragon.
+
+ `0"Prepare to die, young one." `2the dragon roars
+`\`k
+@do goto MONSTER3
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @show
+`\`c
+ `2You are facing a Black Sorcerer.
+
+ `0"Young fool how dare you invade my realm." `2he mumbles
+`\`k
+ @do goto MONSTER4
+ @end
+
+@if `p21 is 5 then do
+ @begin
+ @show
+`\`c
+ `0"I'm your worst `@KnightMare`0, flea!"
+`\`k
+ @do goto MONSTER5
+ @end
+
+
+@drawmap
+@update
+@end
+
+@#MONSTER1
+@fight
+;name
+Shadowy Double
+;string said when you see him
+You see your shadowy double
+;power move kill string
+There's only room for one of us pal.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+punches you|74
+slaps you silly|100
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+52
+;gold reward
+1000
+;experience
+500
+;hit points
+92
+;if win: ref file|name or NONE
+ERICSBAR.REF|LIVING
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+ERICSBAR.REF|CHICKEN
+
+
+@#MONSTER2
+@fight
+;name
+Spirit Guide
+;string said when you see him
+You see your Spirit Guide
+;power move kill string
+I guess I passed the test huh?
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+passes through you|100
+bitch slaps you|125
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+60
+;gold reward
+1033
+;experience
+625
+;hit points
+120
+;if win: ref file|name or NONE
+ERICSBAR.REF|LIVING
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+ERICSBAR.REF|CHICKEN
+
+
+@#MONSTER3
+@fight
+;name
+Spirit of a Red Dragon
+;string said when you see him
+You see the spirit of a Red Dragon
+;power move kill string
+I killed you again big mamma!
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+claws you|74
+slaps you with it's tail|134
+Fire Breath|100
+NONE|NONE
+NONE|NONE
+;defense
+100
+;gold reward
+3500
+;experience
+1006
+;hit points
+150
+;if win: ref file|name or NONE
+ERICSBAR.REF|LIVING
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+ERICSBAR.REF|CHICKEN
+
+
+@#MONSTER4
+@fight
+;name
+Black Sorcerer
+;string said when you see him
+A black Sorcerer faces you
+;power move kill string
+Go back to majik school punk!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Hit you with his staff|56
+Summons Fire|85
+Cast Ice spell|100
+NONE|NONE
+NONE|NONE
+;defense
+35
+;gold reward
+652
+;experience
+298
+;hit points
+120
+;if win: ref file|name or NONE
+ERICSBAR.REF|LIVING
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+ERICSBAR.REF|CHICKEN
+
+@#MONSTER5
+@fight
+;name
+KnightMare
+;string said when you see him
+A KnightMare faces you
+;power move kill string
+Go back to the pasture Mr. Ed !
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hoofs you|74
+whinnies loudly|34
+Head butts you|45
+NONE|NONE
+NONE|NONE
+;defense
+35
+;gold reward
+1514
+;experience
+200
+;hit points
+56
+;if win: ref file|name or NONE
+ERICSBAR.REF|LIVING
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+ERICSBAR.REF|CHICKEN
+
+
+@#LIVING
+@offmap
+@do `p04 + 1
+@show
+`\`c
+ `2You feel strange.`l.`l.`l.`l. when you awaken you see
+ Eric with a worried look on his face.
+`\`k
+ `0"Thank Goodness you're ok. I was so worried about you."
+ `2he exclaims.
+`\`k
+ `%"BullCrap Eric !" `2you yell.
+
+ `2You punch Eric violently in the nose. He falls flat
+ on his back. The whole bar laughs at Eric.
+`\`k
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p04 + 1
+ @show
+ `2For your bravery you gain`$.`l.`l.`l.`l.`l.`l.`l.
+
+ `l.`l.`l.`l.`l.`l.`l.`l.`%1 MUSCLE POINT !
+
+ `k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `p05 + 1
+ @show
+ `2For your bravery you gain`$.`l.`l.`l.`l.`l.`l.`l.
+
+ `l.`l.`l.`l.`l.`l.`l.`l.`%1 DODGE POINT `2!
+
+ `k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+ @show
+ `2For your bravery you gain`$.`l.`l.`l.`l.`l.`l.`l.
+
+ `l.`l.`l.`l.`l.`l.`l.`l.`%1 GEM `2!
+
+ `k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 + 1
+ @show
+ `2For your bravery you gain`$.`l.`l.`l.`l.`l.`l.`l.
+
+ `l.`l.`l.`l.`l.`l.`l.`l.`%1 HITPOINT `2!
+
+ `k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 + 1
+ @show
+ `2For your bravery you gain`$.`l.`l.`l.`l.`l.`l.`l.
+
+ `l.`l.`l.`l.`l.`l.`l.`l.`%1 CHARM POINT `2!
+
+ `k
+ @end
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#CHICKEN
+@offmap
+@show
+`\`c
+ `2You decided to run instead of fighting. Remembering
+ that old saying `%"It's better to run than die."
+`\`k
+ `2You awaken to find, that while you were gone from your
+ body, the locals decided to bury you.
+`\`k
+ After hours of work you claw your way out of your grave.
+ The whole ordeal leaves you weak as a kitten.
+`\`k
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p04 - 1
+ @show
+ `2For your cowardice you LOSE`$.`l.`l.`l.`l.`l.`l.`l.
+
+ `l.`l.`l.`l.`l.`l.`l.`l.`%1 MUSCLE POINT
+
+ `k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `p05 - 1
+ @show
+ `2For your cowardice you `@LOSE`$.`l.`l.`l.`l.`l.`l.`l.
+
+ `l.`l.`l.`l.`l.`l.`l.`l.`%1 DODGE POINT
+
+ `k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 - 1
+ @show
+ `2For your cowardice you `@LOSE`$.`l.`l.`l.`l.`l.`l.`l.
+
+ `l.`l.`l.`l.`l.`l.`l.`l.`%1 GEM
+
+ `k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 - 1
+ @show
+ `2For your cowardice you `@LOSE`$.`l.`l.`l.`l.`l.`l.`l.
+
+ `l.`l.`l.`l.`l.`l.`l.`l.`%1 HITPOINT
+
+ `k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 - 1
+ @show
+ `2For your cowardice you `@LOSE`$.`l.`l.`l.`l.`l.`l.`l.
+
+ `l.`l.`l.`l.`l.`l.`l.`l.`%1 CHARM POINT
+
+ `k
+ @end
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#LOCKDOWN
+@show
+`r0`c
+ `2You decide to return to the treasure chest tomorrow.
+
+ `l`l`l`l`l`l`l
+`\`k
+@drawmap
+@update
+@#NOMORE
+
+@#BOOTY
+@show
+`r0`c
+ `2You carefully open the lid on the treasure chest.
+
+ As you look inside you find.`l.`l.`l.`l.`l.
+
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p19 + 6
+ @show
+ `%6 GEMS `2!
+`\`k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `i53 + 2
+ @show
+ `%2 GOLD POTIONS `2!
+`\`k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `i50 + 1
+ @show
+ `%A TRAVELING POTION `2!
+`\`k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `i40 + 10
+ @show
+ `%10 BLUE POTIONS `2!
+`\`k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @show
+ `%ERIC THE BARTENDER `2!
+`\`k
+`c
+ `0"I knew if I hid in here long enough,
+ I'd catch the thieving piece of crap that's
+ been stealing my stuff !"
+`k
+ `2Eric grabs you up by your hair and drags
+ you out of the bar.
+
+`k
+ @do x is 15
+ @do y is 7
+ @do map is 879
+ @loadmap &map
+ @end
+
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#BREAK
+@show
+`\`c
+ `2You attempt to break the lock.
+`\`k
+ You grasp your `@s&weapon `2firmly and with all your force
+ you bring it down on the padlock.`l.`l.`l.`l.`l.
+`\
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @show
+ `2The lock breaks off the chest.
+`\`k
+@do goto BOOTY
+ @end
+@if `p21 is 2 then do
+ @begin
+ @show
+`c
+ `2Your `@s&weapon `2glances off the padlock.
+
+ You hear footsteps approaching. You quickly hide
+ in the shadows. It's Eric the bartender.
+`k
+ `0"Who's there ?" `2he studders.
+`k
+ You wait quietly until Eric leaves.
+
+ You decide you had better try this again later
+ maybe tomorrow.
+`\`k
+ @end
+@if `p21 is 3 then do
+ @begin
+ @show
+ `2The lock breaks off the chest.
+`\`k
+@do goto BOOTY
+ @end
+@if `p21 is 4 then do
+ @begin
+ @show
+ `c
+ `2Your `@s&weapon `2glances off the padlock.
+
+ You hear footsteps approaching. You quickly hide
+ in the shadows. It's Eric the bartender.
+`k
+ `0"Who's there ?" `2he studders.
+`k
+ You wait quietly until Eric leaves.
+
+ You decide you had better try this again later
+ maybe tomorrow.
+
+
+ `k
+ @end
+@if `p21 is 5 then do
+ @begin
+
+ @show
+ `c
+ `2Your `@s&weapon `2glances off the padlock.
+
+ You hear footsteps approaching. You quickly hide
+ in the shadows. It's Eric the bartender.
+`k
+ `0"Who's there ?" `2he studders.
+`k
+ You wait quietly until Eric leaves.
+
+ You decide you had better try this again later
+ maybe tomorrow.
+
+
+ `k
+ @end
+
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#PICK
+@show
+`\`c
+ `2You attempt to pick the lock.`l.`l.`l.`l.`l.
+`\
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @show
+ `c
+ `2You pick the lock without any difficulty.
+`\`k
+@do goto BOOTY
+
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @show
+ `c
+ `2You are unable to pick the lock !
+
+ You decide to try again tomorrow.
+`\`k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @show
+ `c
+ `2You pick the lock without any difficulty.
+`\`k
+@do goto BOOTY
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @show
+ `c
+ `2You are unable to pick the lock !
+
+ You decide to try again tomorrow.
+
+
+ `k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+
+ @show
+ `c
+ `2You are unable to pick the lock !
+
+ You decide to try again tomorrow.
+
+ `k
+ @end
+
+@drawmap
+@update
+@closescript
+@end
+@#NOMORE
+
+@#SECRETDOOR
+@do moveback
+@datanewday lock.idf
+@dataload lock.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto LOCKDOWN
+@end
+
+@datasave lock.idf &playernum 1
+
+@show
+`r0`c `r1 Treasure Chest `r0
+
+ `2Seems you've found a treasure chest.
+ It appears to be locked with a huge padlock.
+
+ You decide to ....
+
+@do `v01 is 1
+@do write
+`x
+@choice
+Break the padlock
+Pick the lock
+Leave the treasure chest alone
+@if responce is 1 then do
+ @begin
+ @do goto BREAK
+ @end
+
+@if responce is 2 then do
+ @begin
+ @do goto PICK
+ @end
+
+@end
+
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#LEAVEGUARD
+@offmap
+@show
+`\`r0`c
+ `2The door guard stops you again.
+
+ `0"Thank you for visiting s&sir, I hope you
+ are enjoying your visit."
+
+ "May Odin smile down upon you." `2he says.
+
+ `l`l`l`l`l`l`l`l`l`l`l`
+`\`k
+@drawmap
+@update
+@#NOMORE
+
+@#GUARD1
+@datanewday guard.idf
+@dataload guard.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto LEAVEGUARD
+@end
+
+@datasave guard.idf &playernum 1
+
+
+@offmap
+@show
+`\`r0`c
+ `2As soon as you walk in the door, you see a guard
+ approaching you.
+
+ `0"Welcome to the castle. Eric's Bar is to the left and up,
+ The actual Keep is to your right and up."
+
+ `0"Enjoy your stay !" `2the guard says.
+
+ `l`l`l`l`l`l`l`l`l`l`l`l`l`l`l`l`l`l`l
+`\`k
+@drawmap
+@update
+@#NOMORE
+
+@#CASTLESIGN
+@do moveback
+@do saybar
+Odin's castle - Eric's Bar and Odin's Keep Inside
+
+@#TOWEREND
+@do saybar
+`%The tower door is locked, try again tomorrow.
+
+@#TOWER
+@datanewday tower.idf
+@dataload tower.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto TOWEREND
+@end
+
+@datasave tower.idf &playernum 1
+
+@do moveback
+@offmap
+@show
+`r0`c
+ `2The door opens easily. You grip your `%s&weapon `2tightly as you enter
+ the tower. As you start to walk up the stairs to the top of the tower,
+ a feeling of uncertainty overcomes you.
+`\`k
+ `2 As you reach the top of the tower you find .`l.`l.`l.`l.
+@do `p21 random 4 1
+@if `p21 is 1 then do
+ @begin
+ @do money + 1000
+ @show
+
+ `%One Thousand Gold pieces `2laying on the floor !
+`\`k
+ `2What a lucky break !
+`\`k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do money = 1
+ @show
+
+ `%A thief ! `2the thief surprises you and knocks you out cold.
+`\`k
+ `2When you awaken you realize all but 1 of your gold has been stolen.
+`\`k
+ `2What a bummer !
+`\`k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+ @show
+
+ `2A `%gem `2laying on the floor !
+`\`k
+ What a lucky break !
+`\`k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 - 1
+ @show
+
+ `%A very upset guard !
+`\`k
+ `0"What are you doing up here ! Get the hell out of here now !!!"
+
+ `2The guard picks you up and throws you down the steps.
+`\`k
+ `2You `@LOSE `21 hitpoint
+`\`k
+ @end
+
+
+@drawmap
+@update
+@#NOMORE
diff --git a/xtrn/lord2/cnw/error.log b/xtrn/lord2/cnw/error.log
new file mode 100644
index 0000000000000000000000000000000000000000..b6d16d4e000852093157e13158fa7b77ed266478
--- /dev/null
+++ b/xtrn/lord2/cnw/error.log
@@ -0,0 +1 @@
+!Module (igm) set exit_code: 1
diff --git a/xtrn/lord2/cnw/ex!.ref b/xtrn/lord2/cnw/ex!.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c229564db6a7d251714f2f9b54562d1599d85c8d
--- /dev/null
+++ b/xtrn/lord2/cnw/ex!.ref
@@ -0,0 +1,2176 @@
+; Script file EX!.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:32 2001
+
+@DECLARE goin 000001751
+@DECLARE man1 000001840
+@DECLARE chair 000002019
+@DECLARE doorman 000002071
+@DECLARE loopdoorman 000002266
+@DECLARE out 000002854
+@DECLARE 4d 000002898
+@DECLARE loop4d 000002928
+@DECLARE slotstart 000004791
+@DECLARE slots 000005869
+@DECLARE ending 000015504
+@DECLARE crapstart 000015644
+@DECLARE craps 000015688
+@DECLARE begin1 000016783
+@DECLARE nextroll 000017817
+@DECLARE hit 000018275
+@DECLARE win 000018326
+@DECLARE crapout 000018685
+@DECLARE lose 000018729
+@DECLARE bottom 000019071
+@DECLARE nomoney 000019116
+@DECLARE gossip 000019305
+@DECLARE write 000020018
+@DECLARE heal 000020982
+@DECLARE tooold 000021109
+@DECLARE hp 000021210
+@DECLARE loophp 000021239
+@DECLARE pool 000022205
+@DECLARE heal! 000022279
+@DECLARE tele 000022431
+@DECLARE doorguard 000023480
+@DECLARE startg 000023509
+@DECLARE enter 000025553
+@DECLARE done 000026322
+@DECLARE yerok 000027594
+@DECLARE letmein 000028108
+@DECLARE done 000028157
+@DECLARE pay 000028166
+@DECLARE looppay 000028357
+@DECLARE 2out 000028913
+@DECLARE 1out 000028948
+@DECLARE death 000028985
+@DECLARE fight 000029296
+@DECLARE monster1 000029450
+@DECLARE monster2 000030065
+@DECLARE monster3 000030625
+@DECLARE monster4 000031285
+@DECLARE monster5 000031876
+@DECLARE monster6 000032447
+@DECLARE monster7 000033052
+@DECLARE monster8 000033709
+@DECLARE monster9 000034328
+@DECLARE monster10 000035044
+@DECLARE monster11 000035606
+@DECLARE monster12 000036188
+@DECLARE done 000036702
+@DECLARE back 000036805
+@NOCHECK
+; End of .REF index
+
+;Extacy's Land Of Fun
+;Created By Yang Qingwei
+;Call Yang's Empire BBS at o65-581-1224 24hrs
+@#GOIN
+@do moveback
+@do quebar
+`4Shh!! Juz Move To The Forest South From Me!
+@end
+
+@#MAN1
+@busy
+@do moveback
+@do move 2 1
+@show
+`r0`c
+`4ShHHh!! Theres A Way To Get Into ExTAcYs Land of Fantasy!!
+`4Look For A Path To Get There!! ShHHh!
+@key
+@drawmap
+
+@#CHAIR
+@do saybar
+`%This Chair Is So NICE!!
+
+@#DOORMAN
+@do `v01 is 1
+@do move 2 1
+@show
+`r0`c`% `r1 The Doorman Stop You. `r0
+`2 Hey Kid. Stop Right There.
+
+@label LOOPDOORMAN
+@do move 2 1
+@show
+`r0`c`% `r1 Time to Pay up `r0
+`2 Doorman waits While You Look At Your $$$
+
+@do write
+`x`x
+@choice
+Pay $50 To The Doorman.
+Leave.
+@
+
+@if response is 1 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @do moveback
+ @show
+ @do move 2 15
+ @show
+`4Hey Kid, You Do Not Have Enuff Money!
+ @key
+ @drawmap
+ @end
+ @do money - 50
+ @do move 2 15
+ @show
+`4Thanks Kid!
+ @key
+ @drawmap
+ @end
+
+@if response is 2 then do
+ @begin
+ @do moveback
+ @do move 2 15
+ @show
+`4Bye Kid, Cum Back When You Have The Money.
+ @key
+ @drawmap
+ @end
+
+@#OUT
+@do x is 37
+@do y is 15
+@drawmap
+
+@#4D
+@do `v01 is 1
+@label LOOP4D
+@do move 2 1
+@show
+`r0`c`%
+`4BANG! `W`W`W`W`W BANG! `W`W`W`W`W
+`4The Door Opens While It Squeaks
+`4What Can I Do For You?
+
+@do write
+`x`x
+@choice
+Buy 4D ($20)
+Leave.
+@
+
+@if response is 1 then do
+@begin
+@if money < 20 then do
+@begin
+@do move 2 15
+@show
+`r0`c
+`4You Have Not Enuff $$$!
+@key
+@do goto LOOP4D
+@end
+@do money - 20
+@show
+`r0`c`%
+`4You Asked The Man And Buy The Number `W`W`W`W`W
+`4You Then Slowly Walk To The Side Of Room
+`4And Take A Sit. You Wait....`W`W`W`W`W`W`W And Wait `W`W`W`W`W
+@key
+@do `p20 random 10 1
+@if `p20 is 1 then do
+@begin
+@do move 2 15
+@show
+
+`4 Oh No..Sorry You Did Not Win.
+@key
+@do goto LOOP4D
+@end
+
+@if `p20 is 2 then do
+@do move 2 15
+@show
+
+`4 Oh No..Sorry You Did Not Win.
+@key
+@do goto LOOP4D
+
+@if `p20 is 3 then do
+@do move 2 15
+@begin
+@show
+
+`4 Oh No..Sorry You Did Not Win.
+@key
+@do goto LOOP4D
+@end
+
+@if `p20 is 4 then do
+@do move 2 15
+@show
+`r0`c`%
+`4 Oh No..Sorry You Did Not Win.
+@key
+@do goto LOOP4D
+
+@if `p20 is 5 then do
+@begin
+@do move 2 15
+@show
+
+`4 Hey Dude!! You WON!! Heres Your Money. ($100)
+@key
+@do money + 100
+@do goto LOOP4D
+@end
+
+@if `p20 is 6 then do
+@do move 2 15
+@show
+
+`4 Oh No..Sorry You Did Not Win.
+@key
+@do goto LOOP4D
+
+@if `p20 is 7 then do
+@begin
+@do move 2 15
+@show
+
+`4 Oh No..Sorry You Did Not Win.
+@key
+@do goto LOOP4D
+@end
+
+@if `p20 is 8 then do
+@do move 2 15
+@show
+
+`4 Oh No..Sorry You Did Not Win.
+@key
+@do goto LOOP4D
+
+@if `p20 is 9 then do
+@begin
+@do move 2 15
+@show
+
+`4 Oh No..Sorry You Did Not Win.
+@key
+@do goto LOOP4D
+@end
+
+@if `p20 is 10 then do
+@do move 2 15
+@show
+
+`4 Oh No..Sorry You Did Not Win.
+@key
+@do goto LOOP4D
+@end
+
+@if response is 2 then do
+@begin
+@do moveback
+@do move 2 15
+@show
+
+`4Better Luck Next Time!
+@drawmap
+@end
+
+@#SLOTSTART
+@show
+`r0`c `r1 Welcome to the slot machines! `r0
+
+ `0Payoffs are:`2
+
+ `03 Bars`2....................................................`0100 `2to `01
+ 3 Bells`2....................................................`080`2 to `01
+ 3 Lemons`2...................................................`050 `2to `01
+ 3 Plums`2....................................................`030 `2to `01
+ 3 Peaches`2..................................................`025 `2to `01
+ 3 Oranges`2..................................................`010 `2to `01
+ 2 Bars & 1 Bell`2............................................`010 `2to `01
+ 2 Bells & 1 Lemon`2...........................................`09 `2to `01
+ 2 Lemons & 1 Plum`2...........................................`08 `2to `01
+ 2 Plums & 1 Peach`2...........................................`07 `2to `01
+ 2 Peaches & 1 Orange`2........................................`05 `2to `01
+ 2 Oranges & Anything`2........................................`02 `2to `01
+
+`k
+@do `v01 is 1
+@do goto slots
+
+@#slots
+@busy
+@do moveback
+@do `p20 is 0
+@do `p21 is 0
+@do `p22 is 0
+@do `p23 is 0
+@do `p24 is 0
+@do `p25 is 0
+@show
+`r0`c `% `r1 Pulling your lever `r0
+
+`2 You now have: `$$&money`2. Put how much in the machine? `2(`0`p33`2 gambles left)
+
+@do write
+`x`x
+@choice
+$1
+$2
+$5
+$10
+$20
+Show payoffs
+Leave
+@if response is 6 then goto slotstart
+
+@if responce = 1 then do
+ @begin
+ @do `p21 is 1
+ @end
+@if responce = 2 then do
+ @begin
+ @do `p21 is 2
+ @end
+@if responce = 3 then do
+ @begin
+ @do `p21 is 5
+ @end
+@if responce = 4 then do
+ @begin
+ @do `p21 is 10
+ @end
+@if responce = 5 then do
+ @begin
+ @do `p21 is 20
+ @end
+@if responce = 7 then do
+ @begin
+ @do goto ending
+ @end
+@if money < `p21 then do
+ @begin
+ @show
+
+ `4You don't have that much money!
+ @key
+ @do goto slots
+ @end
+
+@if `p33 < 1 then do
+ @begin
+ @show
+`r0`c `r1 `%You grab the level firmly `r0
+
+`2 `4Yang Qingwei Quickly Grab Your Hand.
+`\`k `0"You've gambled enough for today we think, kid. Come back
+ tomorrow," `2 a Decent looking fellow explains.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+@do `p33 - 1
+
+@show
+`\`\ `2You pull the lever as hard as you can.`\
+@do `p22 random 6 1
+@if `p22 = 1 then do
+ @begin
+ @show
+ `%Bar
+ @do `p23 + 300000
+ @end
+@if `p22 = 2 then do
+ @begin
+ @show
+ `7Bell
+ @do `p23 + 20000
+ @end
+@if `p22 = 3 then do
+ @begin
+ @show
+ `$Lemon
+ @do `p23 + 3000
+ @end
+@if `p22 = 4 then do
+ @begin
+ @show
+ `5Plum
+ @do `p23 + 100
+ @end
+@if `p22 = 5 then do
+ @begin
+ @show
+ `6Peach
+ @do `p23 + 20
+ @end
+@if `p22 = 6 then do
+ @begin
+ @show
+ `6Orange
+ @do `p23 + 3
+ @end
+@do `p22 random 6 1
+@if `p22 = 1 then do
+ @begin
+ @show
+ `%Bar
+ @do `p23 + 300000
+ @end
+@if `p22 = 2 then do
+ @begin
+ @show
+ `7Bell
+ @do `p23 + 20000
+ @end
+@if `p22 = 3 then do
+ @begin
+ @show
+ `$Lemon
+ @do `p23 + 3000
+ @end
+@if `p22 = 4 then do
+ @begin
+ @show
+ `5Plum
+ @do `p23 + 100
+ @end
+@if `p22 = 5 then do
+ @begin
+ @show
+ `6Peach
+ @do `p23 + 20
+ @end
+@if `p22 = 6 then do
+ @begin
+ @show
+ `6Orange
+ @do `p23 + 3
+ @end
+@do `p22 random 6 1
+@if `p22 = 1 then do
+ @begin
+ @show
+ `%Bar
+ @do `p23 + 300000
+ @end
+@if `p22 = 2 then do
+ @begin
+ @show
+ `7Bell
+ @do `p23 + 20000
+ @end
+@if `p22 = 3 then do
+ @begin
+ @show
+ `$Lemon
+ @do `p23 + 3000
+ @end
+@if `p22 = 4 then do
+ @begin
+ @show
+ `5Plum
+ @do `p23 + 100
+ @end
+@if `p22 = 5 then do
+ @begin
+ @show
+ `6Peach
+ @do `p23 + 20
+ @end
+@if `p22 = 6 then do
+ @begin
+ @show
+ `6Orange
+ @do `p23 + 3
+ @end
+@do `p24 is `p21
+@if `p23 = 900000 then do
+ @begin
+ @show
+
+ `%Jackpot!!! `0100 `2to `01`2 payoffs!!
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 200
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 500
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 1000
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 2000
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 60000 then do
+ @begin
+ @show
+
+ `2You win at `080`2 to `01`2 payoffs!
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 80
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 160
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 400
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 800
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 1600
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 9000 then do
+ @begin
+ @show
+
+ `2You win at `050`2 to `01`2 payoffs!
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 250
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 500
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 1000
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 300 then do
+ @begin
+ @show
+
+ `2You win at `030`2 to `01`2 payoffs!
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 30
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 60
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 150
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 300
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 600
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 60 then do
+ @begin
+ @show
+
+ `2You win at `025`2 to `01`2 payoffs!
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 25
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 125
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 250
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 500
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 9 then do
+ @begin
+ @show
+
+ `2You win at `010`2 to`0 1`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 200
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 620000 then do
+ @begin
+ @show
+
+ `2You win at `010`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 200
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 43000 then do
+ @begin
+ @show
+
+ `2You win at `09`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 9
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 18
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 45
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 90
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 180
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 6100 then do
+ @begin
+ @show
+
+ `2You win at `08`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 8
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 16
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 40
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 80
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 160
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 220 then do
+ @begin
+ @show
+
+ `2You win at `07`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 7
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 14
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 35
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 70
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 140
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 43 then do
+ @begin
+ @show
+
+ `2You win at `05`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 5
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 25
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 100
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 300006 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 2
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 4
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 40
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 20006 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 2
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 4
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 40
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 3006 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 2
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 4
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 40
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 106 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 2
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 4
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 40
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 26 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 2
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 4
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 40
+ @end
+ @key
+ @do goto slots
+ @end
+@show
+
+ `2I'm sorry, but you `4lose`2 your bet of: `$$`p21
+
+@if `p21 = 1 then do
+ @begin
+ @do money - 1
+ @end
+@if `p21 = 2 then do
+ @begin
+ @do money - 2
+ @end
+@if `p21 = 5 then do
+ @begin
+ @do money - 5
+ @end
+@if `p21 = 10 then do
+ @begin
+ @do money - 10
+ @end
+@if `p21 = 20 then do
+ @begin
+ @do money - 20
+ @end
+@key
+@do goto slots
+
+@#ending
+@drawmap
+@update
+@closescript
+;The Above Script Is Extracted From GAMBLE In Bonetown.
+;The Slot Script Is By Seth Able.
+
+@#crapstart
+
+@do `v01 is 1
+@do goto craps
+
+@#craps
+@do moveback
+@busy
+@do `p24 is 0
+@do `p21 is money
+@show
+`r0`c `r1 Playing some Craps `r0
+
+ `2You have `$$`p21`2. How much do you want to wager? `2(`0`p33 `2gambles left`2)
+
+@do write
+`x`x
+@choice
+$5
+$10
+$20
+$50
+$100
+Help on craps
+Leave
+@if response is 6 then do
+ @begin
+ @do goto help
+ @end
+
+
+@if responce = 1 then do
+ @begin
+ @if `p21 < 5 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 5
+ @do goto begin1
+ @end
+@if responce = 2 then do
+ @begin
+ @if `p21 < 10 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 10
+ @do goto begin1
+ @end
+@if responce = 3 then do
+ @begin
+ @if `p21 < 20 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 20
+ @do goto begin1
+ @end
+@if responce = 4 then do
+ @begin
+ @if `p21 < 50 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 50
+ @do goto begin1
+ @end
+@if responce = 5 then do
+ @begin
+ @if `p21 < 100 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 100
+ @do goto begin1
+ @end
+@if response = 7 then do
+ @begin
+ @do goto ending
+ @end
+@label begin1
+@if `p33 < 1 then do
+ @begin
+ @show
+`r0`c `r1 `%You carefully spit on the dice for good luck. `r0
+
+`2 `4A hand catches yours before you can roll.
+`\`k `0"You've gambled enough for today we think, kid. Come back
+ tomorrow," `2 a greasy looking fellow explains.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@do `p33 - 1
+@show
+`r0`c `r1 `%You carefully spit on the dice for good luck. `r0
+
+@do `p22 random 5 1
+@do `p23 random 5 1
+@do `p24 + `p22
+@do `p24 + `p23
+@show
+ `0First Roll....
+
+@show
+ `2Die #1`0: `p22
+ `2Die #2:`0 `p23
+
+ `2Total: `0`p24
+
+@if `p24 = 2 then do
+ @begin
+ @show
+
+ `4Snake Eyes!
+ @do goto lose
+ @end
+@if `p24 = 3 then do
+ @begin
+ @show
+ `4Cock Eyes!
+ @do goto lose
+ @end
+@if `p24 = 12 then do
+ @begin
+ @show
+ `4Boxcars!
+ @do goto lose
+ @end
+@if `p24 = 7 then do
+ @begin
+ @show
+ `%A Natural!
+ @do goto win
+ @end
+@if `p24 = 11 then do
+ @begin
+ @show
+ `%A Natural!
+ @do goto win
+ @end
+@show
+ `0`p24`2 is your point.
+@label nextroll
+@do `p25 is 0
+@show
+
+ Press a key to roll again.
+@do `p22 random 5 1
+@do `p23 random 5 1
+@do `p25 + `p22
+@do `p25 + `p23
+@show
+`\`k `2Die #1: `0`p22
+ `2Die #2: `0`p23
+
+ `2Total: `0`p25
+@if `p25 = `p24 then do
+ @begin
+ @do goto hit
+ @end
+@if `p25 = 7 then do
+ @begin
+ @do goto crapout
+ @end
+@if `p25 = 11 then do
+ @begin
+ @do goto crapout
+ @end
+@show
+
+ `2Not your point, keep rolling the bones!
+@do goto nextroll
+@label hit
+@show
+
+ `0Yes! You hit your point.
+@label win
+@show
+
+ `2You win your bet of: `$$`p20`2!
+@if `p20 = 5 then do
+ @begin
+ @do money + 5
+ @end
+@if `p20 = 10 then do
+ @begin
+ @do money + 10
+ @end
+@if `p20 = 20 then do
+ @begin
+ @do money + 20
+ @end
+@if `p20 = 50 then do
+ @begin
+ @do money + 50
+ @end
+@if `p20 = 100 then do
+ @begin
+ @do money + 100
+ @end
+@do goto bottom
+@label crapout
+@show
+
+ `4You crapped out!
+@label lose
+@show
+
+ `2You lose your bet of: `$$`p20`2.
+@if `p20 = 5 then do
+ @begin
+ @do money - 5
+ @end
+@if `p20 = 10 then do
+ @begin
+ @do money - 10
+ @end
+@if `p20 = 20 then do
+ @begin
+ @do money - 20
+ @end
+@if `p20 = 50 then do
+ @begin
+ @do money - 50
+ @end
+@if `p20 = 100 then do
+ @begin
+ @do money - 100
+ @end
+@label bottom
+@show
+`\`k
+@do goto craps
+@label nomoney
+@show
+`\`\ `4I'm sorry, but you don't have enough money for that bet.
+
+`k
+@do goto craps
+;the Crap script is extracted from GAMBLE.REF
+;the Crap script is by Seth Able.
+
+@#GOSSIP
+@do moveback
+@do `p20 random 8 1
+@if `p20 is 1 then saybar
+`%YQW: `0You Know What? Yang's Empire BBS is Kewl!
+@if `p20 is 2 then saybar
+`%YQW: `0Yang Qingwei Created This Kewl IGM"
+@if `p20 is 3 then saybar
+`%YQW: `0Call Yang's Empire BBS at o65-581-1224 24hrs Kewl BBS!
+@if `p20 is 4 then saybar
+`%YQW: `0Do You Know That Yang's Place Is Oso Created By YAng Qingwei?
+@if `p20 is 5 then saybar
+`%YQW: `0This IGM Is The 2nd Yang Qingwei Had Made
+@if `p20 is 6 then saybar
+`%YQW: `0Hope You'll Enjoy This IGM!
+@if `p20 is 7 then saybar
+`%YQW: `0The Craps And Slot Script Is Extracted From Seth Able.
+@if `p20 is 8 then saybar
+`%YQW: `0The Beds At The Third Level Is The SAFEST!!
+
+@#WRITE
+@busy
+@Do moveback
+@show
+`r0`c `r1You Saw A Table With A Pen On It. `r0
+
+@if �x!.txt exist false then do
+ @begin
+ @writefile �x!.txt
+ `%Yang Qingwei `2: `0This IGM Is The 2nd I Had Created!
+ `%Yang Qingwei `2: `0Call Yang's Empire At o65-581-1224 24hrs!
+ @end
+
+@if yqw.txt exist true then do
+ @begin
+ @displayfile �x!.txt
+ @end
+
+@show
+
+@
+(Do tricky stuff with name to determine how much they can type)
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter a special message or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile �x!.txt
+ `%`n`2 : `0`s03
+ @do trim �x!.txt 17
+ @drawmap
+ @update
+
+@#HEAL
+@do saybar
+You Slowly Walk Near The Water.
+@show
+`L`L
+@do saybar
+You are totally healed!
+@do `p02 is `p03
+
+@#tooold
+@show
+`r0`c`% `r1 Time to Do Enhances `r0
+`\`\ `4Your big enuf PAL!!
+@key
+@drawmap
+
+
+@#HP
+@do moveback
+@label LOOPHP
+@datanewday ex!hp.idf
+@dataload ex!hp.idf &playernum `p20
+@if `p09 > 19 then goto tooold
+@if `p03 > 300 then goto tooold
+@if `p20 > 0 then do
+ @begin
+ @show
+`\`4Maybe Next Time Pal!
+ @key
+ @drawmap
+ @end
+@datasave ex!hp.idf &playernum 1
+@show
+`r0`c`% `r1 Time to Do Enhances `r0
+`\`2 Body Builder waits While You Look At Your $$$
+
+@do write
+`l`l
+@do `p20 * `p03
+@do `p21 * `p09
+@do `v01 is 1
+@choice
+Pay $`p20 To The Bodybuilder And Enhance Your HP By `p21!.
+Leave.
+@
+
+@if response is 1 then do
+@begin
+@if money < `p20 then do
+@begin
+@do move 2 15
+@show
+`4Opps Guess You Do Not Have Enuff $$$
+@key
+@Drawmap
+@do goto LOOPHP
+@end
+@do money - `p20
+@do move 2 15
+@show
+`4Thanks Kid. Here Your Body Had Been Enhanced.
+@key
+@do `p03 + `p21
+@do goto LOOPHP
+@end
+
+@if response is 2 then do
+@begin
+@do moveback
+@do move 2 15
+@show
+`4Maybe Next Time Pal!
+@key
+@drawmap
+@end
+
+@#POOL
+@do saybar
+`4You Jumped Down To The Cool Water! Its Fun MaN!
+
+@#HEAL!
+@do moveback
+@do saybar
+Your Helper Use A Stick And Point It On You.
+@show
+`L`L
+@do saybar
+You are totally healed!
+@do `p02 is `p03
+
+@#TELE
+@offmap
+@do moveback
+@show
+`r0`c `r1 Magic Of Traval `r0
+
+ `0"Hello Master! Whould You Like To Go Anywhere?"
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+GreenTree
+PortTown
+BoneTown
+FlagCity
+Sosen Village
+ArrisVille
+Nevermind
+@if response not 7 then do
+ @begin
+@show
+`\`\ `0"Okay sir, Get Ready."
+
+ `2BAM! A Loud Noise Was Heard.
+
+ `2Then suddenly, you are there, on your own.
+`\`k
+@if response is 1 then do
+ @begin
+ @do x is 10
+ @do y is 15
+ @do map is 1356
+ @end
+@if response is 2 then do
+ @begin
+ @do x is 38
+ @do y is 16
+ @do map is 956
+ @end
+@if response is 3 then do
+ @begin
+ @do x is 53
+ @do y is 18
+ @do map is 1572
+ @end
+@if response is 4 then do
+ @begin
+ @do x is 71
+ @do y is 19
+ @do map is 1092
+ @end
+@if response is 5 then do
+ @begin
+ @do x is 36
+ @do y is 5
+ @do map is 456
+ @end
+@if response is 6 then do
+ @begin
+ @do x is 19
+ @do y is 9
+ @do map is 523
+ @end
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#doorguard
+@do moveback
+@label startg
+@if 1stclass.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to Leave!" `2The Guard Shouted.
+ @closescript
+ @end
+
+@readfile 1stclass.dat
+`p20
+`s01
+@
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You Look At The Guard.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Talking to the House Guarder `r0
+
+ `2The Guarder Quickly Talk To You
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Sell Away This House
+Leave
+@
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Sell property back to the bank for `$3,000`%.
+Do nothing of the sort
+@if response is 1 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your keep back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete 1stclass.dat
+ @do money + 3000
+ @show
+`\`\ `%EXTACT'S 1ST CLASS HOUSE SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Extacy's 1st Class House`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @show
+`\
+ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)
+ `2(enter `4ALL`2 to keep the door open for everyone)
+ @do write
+`\ `2Password:`x`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete 1stclass.dat
+ @writefile 1stclass.dat
+&playernum
+`s01
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#enter
+@do moveback
+@offmap
+@if 1stclass.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `4 The Bank has put it up for sale! The asking price is `$$7,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 7000 Purchase it.
+<&money 6999 Sigh wistfully and leave since you don't have enough.
+@
+
+@if responce is 1 then do
+ @begin
+ @if 1stclass.dat exist true then do
+ @begin
+ @do goto done
+ @end
+
+ @writefile 1stclass.dat
+&playernum
+NONE
+ @do money - 7000
+ @do addlog
+ `0`n `2buys `%Extacy's 1st Class House`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this House!
+
+`k
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile 1stclass.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete 1stclass.dat
+ @do addlog
+ `%Extacys's 1st Class House`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is ALL then goto yerok
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 Extacy's 1st Class House - Owned by `s02 `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the door.
+
+ `4Ouch!
+
+`k
+ @do goto done
+ @end
+
+
+ @show
+`r0`c `r1 Extacy's 1st Class House `r0
+
+`2 A voice booms from behind the door. `0"Halt, you! What business have
+ you with my lord and master, `%`s02`0?" `2the guard asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Say Something.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+@label yerok
+ @show
+`r0`c`\`\ `0"Welcome to `%Extacy's 1st Class House`0,"`2 the Guard smiles as
+ the door slowly opens.`\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `0Extacy's 1st Class House Reports:
+
+`0 `n`2 attempted to Break Into The house By Saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The Guard doesn't seem too interested, because you're
+ still outside a locked door!`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+@label letmein
+@do x is 45
+@do y is 16
+@do goto done
+@#done
+
+@#PAY
+@do `v01 is 1
+@do move 2 1
+@show
+`r0`c`% `r1 The Doorman Stop You. `r0
+`2 Hey Kid. Stop Right There.
+
+@label LOOPPAY
+@do move 2 1
+@show
+`r0`c`% `r1 Pay up `r0
+`2 Doorman waits While You Look At Your $$$
+
+@do write
+`x`x
+@choice
+Pay $100 To The Doorman.
+Leave.
+@
+
+@if response is 1 then do
+ @begin
+ @if money < 100 then do
+ @begin
+ @do move 2 15
+ @show
+`4You Don't Have That Much!
+ @key
+ @do goto LOOPPAY
+ @end
+ @do money - 100
+ @do move 2 15
+ @show
+`4Thanks Pal Here You Go.
+ @key
+ @drawmap
+ @end
+ @end
+
+@if response is 2 then do
+ @begin
+ @do moveback
+ @show
+`r0`c
+`4Piss Off. I Have No Time For This!
+@key
+@Drawmap
+@end
+
+@#2out
+@do x is 39
+@do y is 9
+
+@#1out
+@do x is 43
+@do y is 16
+
+@#DEATH
+@do moveback
+@show
+`r0`c
+`4The Hour Of Death.
+`4You Are On Your Own Pal
+`4Beware Of Fake Exits.
+`4Remember, The
+`4Hardest To Get To The Exit
+`4Is The Real EXIT!
+`4Use This TIP Wisely.
+`4Goodluck. May The Begone Be GONE!
+`4 -Yang Qingwei
+@key
+@drawmap
+
+@#fight
+@do `p20 random 10 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@busy
+@do `p20 random 12 1
+@do goto monster`p20
+
+@#monster1
+@fight
+;name
+Highway Raider
+;string said when you see him
+`0"Put down your arms and no one gets hurt!" `2you hear from behind.
+;power move kill string
+You carefully step over the lifeless Rogue's body.. hehe!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+punches you|58
+backstabs you|83
+hits you with a poison dart|78
+clubs you|67
+NONE|NONE
+;defense
+10
+;gold reward
+230
+;experience
+180
+;hit points
+90
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Rabid Tiger
+;string said when you see him
+You hear a hoarse deep growl around the rock ahead.
+;power move kill string
+Stay kitty stay!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+rips off part of your arm|73
+bats you hard with a paw|85
+charges you|105
+NONE|NONE
+NONE|NONE
+;defense
+20
+;gold reward
+157
+;experience
+96
+;hit points
+78
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Hill Dwarf
+;string said when you see him
+You see a small hyperactive looking dwarf approaching.
+;power move kill string
+`$"Twikie from Buck Rodgers called, he want's his double back," `2you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+hits you with a bone club|60
+wields his battle axe at you|75
+shouts plenty of obscenities|78
+kicks your knees, hard|69
+NONE|NONE
+;defense
+12
+;gold reward
+245
+;experience
+135
+;hit points
+103
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Rock Golem
+;string said when you see him
+A large stone sprouts legs and lunges at you!
+;power move kill string
+You rock out with a swing of your s&weapon & split it in two.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+pounds your foot|40
+throws its arm at your head|56
+rocks out|43
+NONE|NONE
+NONE|NONE
+;defense
+30
+;gold reward
+534
+;experience
+365
+;hit points
+380
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Lost Monkey
+;string said when you see him
+`0"Oo oo oo," `2you hear from behind.
+;power move kill string
+`2Bad monkey, boy did you spank him!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+twists your arm|60
+sweeps your feet|65
+bites at your finger|50
+whips you with his tail|70
+NONE|NONE
+;defense
+2
+;gold reward
+23
+;experience
+30
+;hit points
+34
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster6
+@fight
+;name
+Sir Beavis
+;string said when you see him
+`0"Halt, heir person, or like ... uh something," `2you hear from behind.
+;power move kill string
+That knight guy ... really sucked.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hears voices|68
+slams you with his warhammer|78
+lays the smack down|89
+has a seizure|90
+NONE|NONE
+;defense
+37
+;gold reward
+343
+;experience
+289
+;hit points
+145
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster7
+@fight
+;name
+Still Lost Knight
+;string said when you see him
+`0"Halt you too must be an enemy of this land," `2says a confused voice.
+;power move kill string
+`$"I thought you found your way home last time?" `2you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+breaks his club on your face|70
+hits with his broadsword|86
+bludgeons you|69
+stabs with a hidden dagger|68
+NONE|NONE
+;defense
+22
+;gold reward
+322
+;experience
+210
+;hit points
+87
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster8
+@fight
+;name
+Giant Snake
+;string said when you see him
+You see what you thought was a big log move and hiss at you!
+;power move kill string
+My anaconda don't want none unless it's got buns hun.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+inject about a liter of venom into you|78
+squeezes you|60
+gets a bite of your arm|67
+NONE|NONE
+NONE|NONE
+;defense
+14
+;gold reward
+287
+;experience
+102
+;hit points
+65
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster9
+@fight
+;name
+Future Warrior
+;string said when you see him
+`0"I'm afraid I have to take you back with me," `2you hear from behind.
+;power move kill string
+`$"I'm not going back with you," `2you scream .
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+blasts you with his laser|100
+gets lock on you with a beam of some kind|95
+uses his proton launcher|110
+launches a flying explosive thing at you|108
+calls for an airstrike from his Mauler|120
+;defense
+35
+;gold reward
+700
+;experience
+290
+;hit points
+120
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster10
+@fight
+;name
+Giant Worm
+;string said when you see him
+There's an awfully big tube hangin out of that carcus.
+;power move kill string
+No way you're getting worms.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+touches you|67
+gets slime on you|60
+attaches to your leg|70
+NONE|NONE
+NONE|NONE
+;defense
+12
+;gold reward
+199
+;experience
+98
+;hit points
+55
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster11
+@fight
+;name
+Oversized Hawk
+;string said when you see him
+A rather large shadow passes overhead.
+;power move kill string
+Put em on the endagered species list.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+gashes away some flesh|65
+buries its beak in your shoulder|60
+lands on your head|67
+NONE|NONE
+NONE|NONE
+;defense
+10
+;gold reward
+88
+;experience
+67
+;hit points
+50
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster12
+@fight
+;name
+Stray Cow
+;string said when you see him
+A loud `0"Moo" `2comes from up ahead!
+;power move kill string
+Got Milk?
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+moos at you|55
+kicks you|60
+milks you for a change|67
+NONE|NONE
+NONE|NONE
+;defense
+12
+;gold reward
+76
+;experience
+143
+;hit points
+45
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#done
+;The above are extracted from fightsw.ref
+;The Author Of The Above Script Is By Seth Able.
+
+@#BACK
+@show
+`r0`c
+`4No Turning Back Pal
+`4Fight Till The END!
+`4Good Luck
+@key
+@drawmap
+
diff --git a/xtrn/lord2/cnw/example.ref b/xtrn/lord2/cnw/example.ref
new file mode 100644
index 0000000000000000000000000000000000000000..d1ecf8c9127425d80f805c36016a7eda503c6154
--- /dev/null
+++ b/xtrn/lord2/cnw/example.ref
@@ -0,0 +1,97 @@
+; Script file EXAMPLE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:16 2001
+
+@DECLARE start 000001181
+@DECLARE nomore 000003293
+@NOCHECK
+; End of .REF index
+
+; Afraid of using vars that LORD2 or other IGM's might change? No prob!
+; use your OWN vars!! The new @data commands make it easy and simple!
+
+; example of how to use the @data command set to easily create your own
+; data file to check if a person had been in here that day already.
+; by Seth A. Robinson, 6-24-97
+
+; ok, we'll call it 'the magic rock', it says something clever if a user
+; pushes against it (it runs this file) but only ONCE per day.. if they
+; they have already got their 'wisdom' for the day, it says go away.
+
+; this is a good example because this probably how most people will use
+; the @data commands, just to see if someone has been here or not today. But
+; don't forget it is 200 longints that could be used in other ways too, for
+; instance, a bank of your own, etc.
+
+; another note.. this .ref *IS* used in the game itself so don't delete it!!
+; you could change it and see how it changes in the game though, the 'magic
+; rock' is located in Greentree.
+
+@#START
+@do moveback
+; first we move them back, so they are not standing on the rock
+
+@datanewday rock.idf
+
+; the above command will reset all #'s in ROCK.IDF to 0 *IF* a new day has
+; occured since the last time this command was called.
+
+; use idf so it is easy for sysops to know which data files they can delete
+; safely (IGM DATA FILE)
+
+@dataload rock.idf &playernum `p20
+
+; the above command is important - this is how you retrieve ALL data.
+; &playernum is the current players # in the trader.dat file, and `p20 is
+; a scratch var that we want to put the return result in.
+
+@if `p20 not 1 then do
+ @begin
+
+ ; woohoo, they have not been here yet today!
+ ; lets spew some wisdom.
+
+ @do `p21 random 10 1
+ ; now `p21 is a random # between 1 and 10
+
+ @if `p21 is 1 then saybar
+`0Magic Rock: `2Don't eat poison much.
+ @if `p21 is 2 then saybar
+`0Magic Rock: `2My sources say yes.
+ @if `p21 is 3 then saybar
+`0Magic Rock: `2Barak is guilty! But you must prove it.
+ @if `p21 is 4 then saybar
+`0Magic Rock: `2You must learn to love yourself before you can love others.
+ @if `p21 is 5 then saybar
+`0Magic Rock: `2You must be very evil to be taken to Dragon Island...
+ @if `p21 is 6 then saybar
+`0Magic Rock: `2Making LORD2 IGM's is very easy. Anyone can do it.
+ @if `p21 is 7 then saybar
+`0Magic Rock: `2There is a `%Moonstone`2 hidden in a waterfall.
+ @if `p21 is 8 then saybar
+`0Magic Rock: `2The Smackrod could help you break into Sosen Inn...
+ @if `p21 is 9 then saybar
+`0Magic Rock: `2Nice people have to pay more to get into Bonetown.
+ @if `p21 is 10 then saybar
+`0Magic Rock: `2If someone places a bounty on your head, your dead.
+
+ @datasave rock.idf &playernum 1
+
+ ; the above is IMPORTANT - we just set this persons data # to 1, now we
+ ; will know that he was here! Until the next day, when it is reset to 0.
+
+ ; all done let's do a @closescript so it will quit right now
+
+ @closescript
+ @end
+
+; if we got here, it means they HAVE been on today.
+
+@do saybar
+`2The strange rock refuses to speak again.
+
+; all done!
+
+@#NOMORE
+
+; always put this at an end of a .ref file.. when it sees the @# it knows
+; that the routine it was sent to do is over. a @closescript works too.
+
diff --git a/xtrn/lord2/cnw/extitems.idf b/xtrn/lord2/cnw/extitems.idf
new file mode 100644
index 0000000000000000000000000000000000000000..68865850f85f68a3b41e3a27f5e8a297df890ef9
Binary files /dev/null and b/xtrn/lord2/cnw/extitems.idf differ
diff --git a/xtrn/lord2/cnw/extitems.ref b/xtrn/lord2/cnw/extitems.ref
new file mode 100644
index 0000000000000000000000000000000000000000..81e0124252d49355f63cadc9dbfb00f842f3fe6c
--- /dev/null
+++ b/xtrn/lord2/cnw/extitems.ref
@@ -0,0 +1,365 @@
+; Script file EXTITEMS.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:23 2001
+
+@DECLARE item0 000001722
+@DECLARE doorpass 000001739
+@DECLARE item1 000001890
+@DECLARE stick 000001911
+@DECLARE item2 000002070
+@DECLARE snow 000002091
+@DECLARE item3 000002250
+@DECLARE janitors_keys 000002272
+@DECLARE item4 000002428
+@DECLARE treasure 000002451
+@DECLARE item5 000002606
+@DECLARE pouch 000002633
+@DECLARE item6 000002805
+@DECLARE stick 000002831
+@DECLARE item7 000003005
+@DECLARE marbles 000003021
+@DECLARE item8 000003175
+@DECLARE ___08 000003189
+@DECLARE item9 000003334
+@DECLARE ___09 000003348
+@DECLARE item10 000003494
+@DECLARE ___10 000003508
+@DECLARE item11 000003655
+@DECLARE ___11 000003669
+@DECLARE item12 000003816
+@DECLARE ___12 000003830
+@DECLARE item13 000003977
+@DECLARE ___13 000003991
+@DECLARE item14 000004138
+@DECLARE ___14 000004152
+@DECLARE item15 000004299
+@DECLARE ___15 000004313
+@DECLARE item16 000004460
+@DECLARE ___16 000004474
+@DECLARE item17 000004621
+@DECLARE ___17 000004635
+@DECLARE item18 000004782
+@DECLARE ___18 000004796
+@DECLARE item19 000004943
+@DECLARE ___19 000004957
+@DECLARE item20 000005104
+@DECLARE ___20 000005118
+@DECLARE item21 000005265
+@DECLARE ___21 000005279
+@DECLARE item22 000005426
+@DECLARE ___22 000005440
+@DECLARE item23 000005587
+@DECLARE ___23 000005601
+@DECLARE item24 000005748
+@DECLARE ___24 000005762
+@DECLARE item25 000005909
+@DECLARE ___25 000005923
+@DECLARE item26 000006070
+@DECLARE ___26 000006084
+@DECLARE item27 000006231
+@DECLARE ___27 000006245
+@DECLARE item28 000006392
+@DECLARE ___28 000006406
+@DECLARE item29 000006553
+@DECLARE ___29 000006567
+@NOCHECK
+; End of .REF index
+
+@#ITEM0
+@label Doorpass
+@do `s01 is Doorpass
+@do `s02 is nouse
+@do `s03 is item99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 0
+@closescript
+
+@#ITEM1
+@label Stick of gum
+@do `s01 is Stick`xof`xgum
+@do `s02 is gum
+@do `s03 is sorry.ref
+@dataload gum.idf `P29 `P30
+@do `s01 add [`P30]
+@do `P22 is 1
+@closescript
+
+@#ITEM2
+@label Snow Goggles
+@do `s01 is Snow`xGoggles
+@do `s02 is goguse
+@do `s03 is blizzard.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 2
+@closescript
+
+@#ITEM3
+@label Janitors_keys
+@do `s01 is Janitors`xkeys
+@do `s02 is DEEDS
+@do `s03 is DEEDS.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 3
+@closescript
+
+@#ITEM4
+@label Treasure Chest
+@do `s01 is Treasure`xChest
+@do `s02 is JOB
+@do `s03 is sysop.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 4
+@closescript
+
+@#ITEM5
+@label Pouch of Documents
+@do `s01 is Pouch`xof`xDocuments
+@do `s02 is DEEDS
+@do `s03 is DEEDS.ref
+@dataload jw-isleL.mil `P29 `P30
+@do `s01 add [`P30]
+@do `P22 is 5
+@closescript
+
+@#ITEM6
+@label Stick of cinnamon
+@do `s01 is Stick`xof`xcinnamon
+@do `s02 is cinnamon
+@do `s03 is sorry.ref
+@dataload cinnamon.idf `P29 `P30
+@do `s01 add [`P30]
+@do `P22 is 6
+@closescript
+
+@#ITEM7
+@label Marbles
+@do `s01 is Marbles
+@do `s02 is MARBLES
+@do `s03 is SRDTOWER.REF
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 7
+@closescript
+
+@#ITEM8
+@label ___08
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 8
+@closescript
+
+@#ITEM9
+@label ___09
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 9
+@closescript
+
+@#ITEM10
+@label ___10
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 10
+@closescript
+
+@#ITEM11
+@label ___11
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 11
+@closescript
+
+@#ITEM12
+@label ___12
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 12
+@closescript
+
+@#ITEM13
+@label ___13
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 13
+@closescript
+
+@#ITEM14
+@label ___14
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 14
+@closescript
+
+@#ITEM15
+@label ___15
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 15
+@closescript
+
+@#ITEM16
+@label ___16
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 16
+@closescript
+
+@#ITEM17
+@label ___17
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 17
+@closescript
+
+@#ITEM18
+@label ___18
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 18
+@closescript
+
+@#ITEM19
+@label ___19
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 19
+@closescript
+
+@#ITEM20
+@label ___20
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 20
+@closescript
+
+@#ITEM21
+@label ___21
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 21
+@closescript
+
+@#ITEM22
+@label ___22
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 22
+@closescript
+
+@#ITEM23
+@label ___23
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 23
+@closescript
+
+@#ITEM24
+@label ___24
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 24
+@closescript
+
+@#ITEM25
+@label ___25
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 25
+@closescript
+
+@#ITEM26
+@label ___26
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 26
+@closescript
+
+@#ITEM27
+@label ___27
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 27
+@closescript
+
+@#ITEM28
+@label ___28
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 28
+@closescript
+
+@#ITEM29
+@label ___29
+@do `s01 is NIL
+@do `s02 is nouse
+@do `s03 is ITEM99.ref
+;@dataload `P29 `P30
+;@do `s01 add [`P30]
+@do `P22 is 29
+@closescript
+
diff --git a/xtrn/lord2/cnw/faerie.ref b/xtrn/lord2/cnw/faerie.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e6cce60affb85eaabdf0103e3e982737ac04f5bd
--- /dev/null
+++ b/xtrn/lord2/cnw/faerie.ref
@@ -0,0 +1,134 @@
+; Script file FAERIE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:18 2001
+
+@DECLARE fae1 000000420
+@DECLARE fae2 000000547
+@DECLARE fae3 000000662
+@DECLARE fae4 000000774
+@DECLARE fae5 000000885
+@DECLARE chick 000000985
+@DECLARE sign 000001093
+@DECLARE fqueen 000001183
+@DECLARE garden 000001990
+@NOCHECK
+; End of .REF index
+
+;faerie.ref, for the Faerie Glade IGM from ShroomTrip Software
+
+@#FAE1
+;One of the Faeries
+@do moveback
+@do saybar
+`%Faerie Glimmer: `0I can't talk right now. I'm having too much fun!
+
+@#FAE2
+;One of the Faeries
+@do moveback
+@do saybar
+`%Faerie Tisha: `0SCREECH! How did a HUMAN get in here?!
+
+@#FAE3
+;One of the Faeries
+@do moveback
+@do saybar
+`%Faerie Raana: `0Be sure to visit our Flower Garden!
+
+@#FAE4
+;One of the Faeries
+@do moveback
+@do saybar
+`%Faerie Nolan: `0I `@ `0my cat, so I had it `7`0!
+
+@#FAE5
+;One of the Faeries
+@do moveback
+@do saybar
+`%Faerie: `0Have you seen the Queen yet?
+
+@#CHICK
+;Woman by the lake
+@do moveback
+@do saybar
+`%Woman: `0Doesn't the pond just look beautiful?
+
+
+@#SIGN
+;DUH! It's a sign!
+@do moveback
+@do saybar
+`%Welcome to the Faerie Glade!
+
+@#FQUEEN
+;The Faerie Queen
+@do moveback
+@do `p20 random 9 1
+@if `p20 is 1 then saybar
+`%Faerie Queen: `0Please do not fight here.
+@if `p20 is 2 then saybar
+`%Faerie Queen: `0Welcome to the Faerie Glade.
+@if `p20 is 3 then saybar
+`%Faerie Queen: `0Please be careful in our Flower Garden.
+@if `p20 is 4 then saybar
+`%Faerie Queen: `0How did you find us?
+@if `p20 is 5 then saybar
+`%Faerie Queen: `0There are very few of us Faeries left.
+@if `p20 is 6 then saybar
+`%Faerie Queen: `0I wonder what the `!Bard `%Seth Able `0is up to now-a-days?
+@if `p20 is 7 then saybar
+`%Faerie Queen: `0Do you remember the beautiful `#Violet`0?
+@if `p20 is 8 then saybar
+`%Faerie Queen: `0Have you seen `%Turgon `0yet?
+@if `p20 is 9 then saybar
+`%Faerie Queen: `0Be careful of `%Neb`0. He's a mean one.
+
+@#GARDEN
+;Gossip in the Flower Garden
+@do moveback
+@busy
+@show
+`r0`c `r1 ARRANGING THE FLOWERS IN THE GARDEN `r0
+
+@if garden.txt exist false then do
+ @begin
+ @writefile garden.txt
+ `%Fairy Tisha`2: `0Oooh! I love to kiss.
+ `%Fairy Nolan`2: `0Yes! I wish more humans would visit us.
+ `%Fairy Glimmer`2: `0I think that they are all afraid of us.
+ @end
+
+@if garden.txt exist true then do
+ @begin
+ @displayfile garden.txt
+ @end
+
+@show
+
+@
+(Do tricky stuff with name to determine how much they can type)
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter a special message or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile garden.txt
+ `%`n`2 : `0`s03
+ @do trim garden.txt 17
+ @drawmap
+ @update
+
+
diff --git a/xtrn/lord2/cnw/falls.ref b/xtrn/lord2/cnw/falls.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e4e15b6a0165150d7a3fbb3da25414ffa193055c
--- /dev/null
+++ b/xtrn/lord2/cnw/falls.ref
@@ -0,0 +1,197 @@
+; Script file FALLS.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:17 2001
+
+@DECLARE squeek 000000420
+@DECLARE lookout 000000515
+@DECLARE shacktrap 000000882
+@DECLARE underpath 000001177
+@DECLARE table 000001681
+@DECLARE canoe 000003172
+@DECLARE manintree 000003435
+@DECLARE hit 000003517
+@DECLARE godown 000004141
+@DECLARE nomore 000004175
+@NOCHECK
+; End of .REF index
+
+; Blue Falls v0.02
+@#squeek
+@do saybar
+`2You hear the boards under you sqeeking. It is sounds hollow below.
+
+@#lookout
+@do `p20 random 4 1
+@if `p20 is 1 then do
+@begin
+@do saybar
+`1"`%What a beautiful site!`1"
+@end
+@if `p20 is 2 then do
+@begin
+@do saybar
+`1"`%Nice waterfalls!`1"
+@end
+@if `p20 is 3 then do
+@begin
+@do saybar
+`1"`%so, this is the Blue Waterfall, upclose.`1"
+@end
+@if `p20 is 4 then do
+@begin
+@do saybar
+`1"`%arrgg... I got wet!"
+@end
+
+@#shacktrap
+@show
+`r0`c
+
+`2You fall down the hole. What a smart move!
+
+ `$You loose `%5`$hp.
+
+
+@key
+@do `p02 - 5
+@do x is 24
+@do y is 13
+@do map is 1117
+@loadmap 1117
+@drawmap
+@update
+@do saybar
+`$You can hear the falls more now. It is very loud down here.
+@closescript
+
+@#underpath
+@show
+`r0`c
+
+
+`2You follow the winding lightly lit cavern towards the light at
+ the other end.
+
+`k`k
+
+`2As you get very close to the end of the cavern, you suddenly
+fall down another hole. It takes you outside. The trap you just
+fell thru is not re-climbable. You decide to continue your journy
+onwards.
+
+ `$You loose `%15`$hp.
+
+@key
+@do `p02 - 15
+@do x is 40
+@do y is 3
+@do map is 1277
+@loadmap 1277
+@drawmap
+@update
+@do saybar
+`$Wasn't that fun? :)
+@closescript
+
+@#table
+@show
+`r0`c
+
+ `%On the table you see an old piece of paper.
+`k`k
+ *��������������������������������������������������������*
+ �-1st full moon of spring- �
+ � Dear diary, �
+ � I wish I had more paper, so I could continue my �
+ �diary. My dad left today on our canoe and has not return�
+ �yet and it is after dark now. �
+`k
+ � �
+ �-next day- �
+ � He still has not returned, I waited over at the �
+ �beach all day long. �
+`k
+ � �
+ �-next day- �
+ � I sit on the cliff looking over the river, I still �
+ �do not see him come home. I hope he comes next day. �
+`k
+ � �
+ �-next day- �
+ � I am worry for my dad, I'm going to hike as far down�
+ �the river I can, to try and find my dad. There are many �
+ �secrets my dad never told me yet about these mountain. I�
+ �will have to find them for meself. �
+ *��������������������������������������������������������*
+`k
+`k
+@drawmap
+@update
+@end
+@closescript
+
+@#canoe
+@dataload canoe.idf &playernum `p20
+@IF `p20 LESS 1 THEN DO
+@BEGIN
+@DO MOVEBACK
+@do saybar
+if you jump in, the fast currents will take you away, and you will drown.
+@do quebar
+You need a good canoe to travel this river.
+@CLOSESCRIPT
+@END
+
+@#manintree
+@do saybar
+HELLO! This is my tree house, stay out!
+@do moveback
+@end
+
+@#hit
+@do `p20 random 5 1
+@if `p20 is 1 then do
+@begin
+@do `p02 / 3
+@do saybar
+ahhh! this isn't safe! aaaaahhhhhhhhhhhhh!
+@do y + 1
+@end
+
+@if `p20 is 2 then do
+@begin
+@do `p02 - 12
+@do saybar
+Ouch!, yet fun! yahhooooo!
+@do y + 1
+@end
+
+@if `p20 is 3 then do
+@begin
+@do `p02 - 36
+@do saybar
+eih! eih!, yahhooooo!
+@do y + 1
+@end
+
+@if `p20 is 4 then do
+@begin
+@do `p02 / 4
+@do saybar
+damn it.. this is painful, you try going down a waterfall in a canoe!
+@do y + 1
+@end
+
+@if `p20 is 5 then do
+@begin
+@do `p02 - 13
+@do saybar
+ahhh! this isn't safe! aaaaahhhhhhhhhhhhh!
+@do y + 1
+@end
+
+@#godown
+@do moveback
+@end
+
+
+@#nomore
+
diff --git a/xtrn/lord2/cnw/farm.ref b/xtrn/lord2/cnw/farm.ref
new file mode 100644
index 0000000000000000000000000000000000000000..f6e7e0f81328b210b94724f2ccb827900a9553eb
--- /dev/null
+++ b/xtrn/lord2/cnw/farm.ref
@@ -0,0 +1,754 @@
+; Script file FARM.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:38 2001
+
+@DECLARE sign 000000572
+@DECLARE janie 000000679
+@DECLARE farmer 000001680
+@DECLARE farmertop 000002072
+@DECLARE shack 000006895
+@DECLARE shacktop 000006972
+@DECLARE harvest1 000009433
+@DECLARE harvest2 000010120
+@DECLARE picking 000010410
+@DECLARE pickdone 000012935
+@DECLARE aftermath 000014286
+@DECLARE gotnone 000015252
+@DECLARE farmnoway 000015548
+@DECLARE bottom 000015715
+@DECLARE beathimup 000016406
+@DECLARE nomore 000018333
+@NOCHECK
+; End of .REF index
+
+@#sign
+; Signy thangy
+@do saybar
+`$Ye Olde Farm`% - by Lloyd Hannesson (`0support`@@`0techn.com`%)
+
+@#janie
+; Janie the loving goat
+@if bitcheck `t43 4 0 then do begin
+ @begin
+ @do moveback
+@do saybar
+Janie the goat seems to cuddle you, where'd she learn that!?
+ @end
+
+@if bitcheck `t43 4 1 then do begin
+ @begin
+ @do moveback
+@show
+`r0`c `r1 Feeding Janie `r0
+
+`2 As you approach Janie looks at you... she can smell the treat in your
+`2 pocket, and tries to get at it. Luckily she is tied down, that could
+`2 of been messy!
+
+`2 You take the treat out and give it to her, watching that she doesn't bite
+`2 off your fingers in the process.
+
+`2 While she is happily munching on her Goat Treat, you notice a piece of
+`2 paper in her collar. You take it out and notice that it is a Love letter!
+
+`2 "`$Oh my god is Farmer Kyle ever a sick puppy!`2"
+
+`2 You stop reading for fear of nausea! Now you have the proof to show his
+`2 wife! Way to go slick!
+
+`k
+ @bitset `t43 4 0
+ @bitset `t43 5 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#farmer
+; Farmer Kyle
+@do moveback
+;@bitset `t43 0 0 ; Talked to him the first time
+;@bitset `t43 1 0 ; Call him a sicko
+;@bitset `t43 2 0 ; Ignoring him
+;@bitset `t43 3 0 ; if 1 you gave farmer the treat
+;@bitset `t43 4 0 ; if 1 you have the goat food
+;@bitset `t43 5 0 ; if 1 you have the love letter
+;@bitset `t43 6 0 ; If 1 you can harvest fields
+;@bitset `t43 7 0 ;
+@label farmertop
+@show
+`r0`c `r1 Talking to Farmer Kyle `r0
+
+ @if bitcheck `t43 6 0 then do begin
+ @begin
+ @show
+`2 "`0Hello there buddy! I'm Farmer Kyle! Do you like my loud colorful
+`0 shirt! It scares all the crows away!`2"
+
+`2 "`$Ummm no not really. So I hear you like to, you know, make out
+`$ with goats or something. Momma warned me never to talk to you, she
+`$ said you scared her into the life that she is now leading`2"
+
+`2 "`0What!? You little brat! If I wasn't in front of Janie mah goat,
+`0 I'd woop yer ass!`2"
+
+`2 "`$Hehehe Whatever old man!`2"
+
+ @end
+ @if bitcheck `t43 6 1 then do begin
+ @begin
+ @show
+`2 You come to the place where Farmer Kyle used to be, but all you see is
+`2 a bloody mess! It seems to moan something but you can't make it out.
+
+`2 You step closer to investigate...
+
+ @end
+@do `v01 is 1
+@do write
+`x`x`x`x
+@choice
+-`t43 0 Ask about Janie
++`t43 1 Call the old Man a Sicko
++`t43 2 Try to get Farmer Kyle's Attention
++`t43 3 Talk to the smiling Farmer
++`t43 6 Ask the farmer what happened!
+Leave
+@if responce is 1 then do begin
+ @begin
+ @show
+`r0`c `r1 Talking to Farmer Kyle `r0
+
+`2 "`$So Kyle, where'd you get that fine goat of yours! IF she wasn't already
+`$ taken, well lets just say she'd be a popular gal`2"
+
+`2 "`0What!? She's taken! oh no... this can't be... Waaaaaaaaaaaaaahh!`2"
+
+`2 "`$Chill out Kyle! Geeze I meant she was yours already yours! You know
+`$ I thought this whole goat thing was a joke, I never thought that the
+`$ rumor was true! Man you really are sick!`2"`%
+
+`2 "`0Ummm what do you mean!? I didn't say anything... must of been the wind
+`0 blowing through the wheat or something... Yah that's what it was, really!`2"
+
+`2 "`$Umm ok old man... you just keep on believing that....`2"`%
+
+`k
+ @bitset `t43 0 1
+ @bitset `t43 1 1
+ @do goto farmertop
+ @end
+@if responce is 2 then do begin
+ @begin
+ @show
+`r0`c `r1 Talking to Farmer Kyle `r0
+
+`2 "`$You are a sick man you know! You are WAY worse than goatboy!`2"`%
+
+`2 "`0Hey don't talk about goatboy like that! He has shown me the light,
+`0 he has made me the man I am today, he taught me how to... uhhh... ummm..
+`0 well nevermind, what he taught me isn't all that important....`2"
+
+`2 "`$Well the way you were going on about it, I'd believe that it was
+`$ important! I should tell yer wife about Janie, how do you think she'd like
+`$ it!?`2"
+
+`2 "`0That's it s&boy! I don't want to talk to you anymore, you are no longer
+`0 my friend!`2"
+
+`2 "`$Sorry old man! I'll make it up to you! I didn't want to hurt your
+`$ feelings! I'm truly sorry!`2"
+
+`2 Farmer Kyle just ignores you....`%
+
+`k
+
+ @bitset `t43 1 0
+ @bitset `t43 2 1
+ @do goto farmertop
+ @end
+
+@if responce is 3 then do begin
+ @begin
+ @if `i08 more 0 then do begin
+ @begin
+ @show
+`r0`c `r1 Talking to Farmer Kyle `r0
+
+`2 "`$Ummm i'm sorry old man, I didn't mean to hurt your feelings. Here,
+`$ you can have this fresh baked berry pie, my mother made it especially
+`$ for you.`2"
+
+`2 "`0A pie! For Me! Aww gee kid, I can't stay mad at you anymore!`2"
+
+`2 Farmer Kyle takes the pie and eats it!
+
+`k
+
+`2 "`0Here! Take this goat treat! It's all that I can give you. Sorry that
+`0 it's such a small gift (won't show up in the inventory) after you giving
+`0 me sucha good pie, but I can't afford much....`2"
+
+`2 "`$That's ok old man, thanks!`2"
+
+`2 Hmmm maybe you're getting somewhere now!`%
+
+`k
+ @bitset `t43 2 0
+ @bitset `t43 3 1
+ @bitset `t43 4 1
+ @do `i08 - 1
+ @do goto farmertop
+ @end
+
+ @if `i08 less 1 then do begin
+ @begin
+ @show
+
+`r0`c `r1 Talking to Farmer Kyle `r0
+
+`2 Farmer Kyle just ignores you... maybe if you had something to soften
+`2 him up...`%
+
+`k
+ @do goto farmertop
+ @end
+ @end
+
+
+@if responce is 4 then do begin
+ @begin
+ @show
+`r0`c `r1 Talking to Farmer Kyle `r0
+
+`2 "`0Thanks again for the pie it was great!`2"`%
+
+`k
+ @do goto farmertop
+ @end
+
+@if responce is 5 then do begin
+ @begin
+ @show
+`r0`c `r1 Talking to Farmer Kyle `r0
+
+`2 "`$Farmer Kyle! What happened to you!? You're a bloody mess!`2"
+
+`2 "`0Someone tipped off mah wife about the affair I was having, she damn
+`0 near killed me! The damn whore!`2"
+
+`2 "`$Well at least your blood will help the crops grow!`2" You say to
+`2 yourself as you walk away.
+
+`2 He ain't going anywhere for a long time.`%
+
+`k
+
+ @do goto farmertop
+ @end
+
+ @end
+ @drawmap
+ @update
+ @closescript
+
+;---------------------------------------------------------------------------
+
+@#shack
+; The old shack (with people in it)
+@do moveback
+@offmap
+@label shacktop
+@show
+`r0`c `r1 In the Farm House `r0
+
+`2 You step into the dark hut, and you are almost immediatly greeted with
+`2 the most awfull stench you've ever smelled. You place it as rotting
+`2 chicken guts (dunno how you accomplished that).
+
+@if &sex is 1 then do begin
+ @begin
+ @show
+`2 As you step in you notice 2 girls look up at you. They appear to be the
+`2 farmer's wife and daughter. You can barely take your eyes off the
+`2 daughter's full body and skimpy dress.`\
+ @end
+@if &sex is 0 then do begin
+ @begin
+ @show
+`2 As you step in you notice 2 girls look up at you. They appear to be the
+`2 farmer's wife and daughter. You flash a glare at the daughter, man is she
+`2 ever dressing like a slut!`\
+ @end
+@do `v01 is 1
+@do write
+`x`x`x`x
+@choice
+Talk to The Farmer's Wife
+Talk to the Farmer's Daughter
++`t43 6 Help to harvest the crop
+Leave
+@if responce is 2 then do begin
+ @begin
+@if &sex is 1 then do begin
+ @begin
+ @show
+`r0`c `r1 Talking to the Farmer's Daughter `r0
+
+`2 "`$Hey baby, if there is anything that I can do to help you, just ask.
+`$ I love to help people who are like you... very rewarding.`2"
+
+`2 "`0Well if you can prove that my Father is a cheating man, you can help
+`0 us harvest the crops, and even make some cash at the same time! Pick
+`0 only the full grown veggies tho!`2"
+
+`2 "`$Hey baby! You looking hot tonight! Wanna come out back and help me
+`$ make something grow?`2"
+
+`2 After listening to your offer, the girl decides`L.`L.`L.
+`k
+`2 to `bSLAP YOU`2!
+
+`2 Damn, I guess that's a no...`%
+
+`k
+@end
+@if &sex is 0 then do begin
+ @begin
+ @show
+`r0`c `r1 Talking to the Farmer's Daughter `r0
+
+`2 You walk a little closer to the scantily clad daughter sitting at the
+`2 table.
+
+`2 "`0Hello! Want to be friends!?`2"
+
+`2 "`$No way honey, not on your life!`2" You slap the bitch to the ground
+`2 "`$That's for stealing all the guys around here, you dumb whore!`2"
+
+`2 "`0But I just wanted to tell you about the job we'll offer to the person
+`0 who finds out that my dad is cheating! I just wanted to be friends`2"
+
+`2 Her sobs increase, you figure that it would be a good time to leave. Well
+`2 she should learn not to flirt with every guy she sees! She should leave
+`2 some for a warrior like you!`%
+
+`k
+@end
+ @do goto shacktop
+ @end
+
+@if responce is 3 then do begin
+ @begin
+ @label harvest1
+ @datanewday farm.idf
+ @dataload farm.idf &playernum `p20
+ @if `p20 is 1 then goto farmnoway
+
+ @do `p22 is 0
+ @do `p23 is 0
+ @do `p24 is 0
+ @do `p25 is 0
+ @do `p26 is 0
+ @do `p27 is 0
+ @do `p28 is 0
+ @do `p29 is 0
+ @do `p30 is 0
+ @do `p24 random 20 10
+
+ @show
+`r0`c `r1 Talking to the Farmer's Wife `r0
+
+`2 "`0Well it's about time! The crops are growing out of control, and we
+`0 need food! Go harvest the crops for a while, and i'll pay you for the
+`0 amount of food you pick`2"
+
+`2 "`$Ok ok! Keep your pants on, I'll go right now!`2" Yer feeling kinda
+`2 sorry for squeeling on the Farmer now aren't you!?`%
+
+`k
+
+@label harvest2
+ @show
+`r0`c `r1 Harvesting the Fields `r0
+
+`2 You have `%`p24 `2picks left in the field...`%
+
+@do write
+`2 Do you continue picking veggies? `5[`0Y`5/`0N`5] `%
+@do readspecial `s01 YN
+
+@if `s01 is Y then goto picking
+@if `s01 is N then goto pickdone
+
+@label picking
+ @show
+
+`2 You head off into the fields... you spend a few minutes looking around`%
+
+ @do `p20 random 10 1
+ @if `p20 is 1 then do begin
+ @begin
+ @show
+`2 You find a nice ripe `0Tomato`2!`%
+
+`k
+ @do `p21 is `v05
+ @do `p21 / 48 ;<--half hour work
+ @do `p11 - `p21
+ @do `p25 + 1
+ @do `p22 + 3
+ @do `p24 - 1
+ @if `p24 is 0 do goto pickdone
+ @do goto harvest2
+ @end
+
+ @if `p20 is 2 then do begin
+ @begin
+ @show
+`2 You find some nice `0Carrots`2!`%
+
+`k
+ @do `p26 + 1
+ @do `p22 + 2
+ @do `p24 - 1
+ @if `p24 is 0 do goto pickdone
+ @do goto harvest2
+ @end
+
+ @if `p20 is 3 then do begin
+ @begin
+ @show
+`2 You find some nice `0Radishes`2!`%
+
+`k
+ @do `p27 + 1
+ @do `p22 + 1
+ @do `p24 - 1
+ @if `p24 is 0 do goto pickdone
+ @do goto harvest2
+ @end
+
+ @if `p20 is 4 then do begin
+ @begin
+ @show
+`2 You find some nice `0Green Beans`2!`%
+
+`k
+ @do `p28 + 1
+ @do `p22 + 1
+ @do `p24 - 1
+ @if `p24 is 0 do goto pickdone
+ @do goto harvest2
+ @end
+
+ @if `p20 is 5 then do begin
+ @begin
+ @show
+`2 You find a nice big `0Green Pepper`2!`%
+
+`k
+ @do `p29 + 1
+ @do `p22 + 3
+ @do `p24 - 1
+ @if `p24 is 0 do goto pickdone
+ @do goto harvest2
+ @end
+
+ @if `p20 is 6 then do begin
+ @begin
+ @show
+`2 You find some nice `0Peas`2!`%
+
+`k
+ @do `p30 + 1
+ @do `p22 + 1
+ @do `p24 - 1
+ @if `p24 is 0 do goto pickdone
+ @do goto harvest2
+ @end
+
+ @if `p20 is 7 then do begin
+ @begin
+ @show
+`2 You find nothing! Damn all these weeds!`%
+
+`k
+ @do `p24 - 1
+ @if `p24 is 0 do goto pickdone
+ @do goto harvest2
+ @end
+
+ @if `p20 is 8 then do begin
+ @begin
+ @show
+`2 You find a Watermellon, but it is rotten, damn!`%
+
+`k
+ @do `p24 - 1
+ @if `p24 is 0 do goto pickdone
+ @do goto harvest2
+ @end
+
+ @if `p20 is 9 then do begin
+ @begin
+ @show
+`2 You find some huge veggies, but they are all rotten!`%
+
+`k
+ @do `p24 - 1
+ @if `p24 is 0 do goto pickdone
+ @do goto harvest2
+ @end
+
+ @if `p20 is 10 then do begin
+ @begin
+ @show
+`2 You find a potato! But under closer observation, you see that it is only
+`2 goat poop, Ewwwww!`%
+
+`k
+ @do `p24 - 1
+ @if `p24 is 0 do goto pickdone
+ @do goto harvest2
+ @end
+
+
+@label pickdone
+@do `p23 + `p25
+@do `p23 + `p26
+@do `p23 + `p27
+@do `p23 + `p28
+@do `p23 + `p29
+@do `p23 + `p30
+
+@if `p23 is 0 do goto gotnone
+@do `p23 is `p22
+
+@if `p09 more 65 then do begin
+ @begin
+ @do `p23 * 1500
+ @do goto aftermath
+ @end
+
+@if `p09 more 60 then do begin
+ @begin
+ @do `p23 * 1000
+ @do goto aftermath
+ @end
+
+@if `p09 more 55 then do begin
+ @begin
+ @do `p23 * 500
+ @do goto aftermath
+ @end
+
+@if `p09 more 50 then do begin
+ @begin
+ @do `p23 * 300
+ @do goto aftermath
+ @end
+
+@if `p09 more 45 then do begin
+ @begin
+ @do `p23 * 200
+ @do goto aftermath
+ @end
+
+@if `p09 more 40 then do begin
+ @begin
+ @do `p23 * 150
+ @do goto aftermath
+ @end
+
+@if `p09 more 35 then do begin
+ @begin
+ @do `p23 * 100
+ @do goto aftermath
+ @end
+
+@if `p09 more 30 then do begin
+ @begin
+ @do `p23 * 80
+ @do goto aftermath
+ @end
+
+@if `p09 more 25 then do begin
+ @begin
+ @do `p23 * 50
+ @do goto aftermath
+ @end
+
+@if `p09 more 20 then do begin
+ @begin
+ @do `p23 * 15
+ @do goto aftermath
+ @end
+
+@if `p09 more 15 then do begin
+ @begin
+ @do `p23 * 10
+ @do goto aftermath
+ @end
+
+@if `p09 more 10 then do begin
+ @begin
+ @do `p23 * 4
+ @do goto aftermath
+ @end
+
+@if `p09 more 5 then do begin
+ @begin
+ @do `p23 * 2
+ @do goto aftermath
+ @end
+
+@label aftermath
+ @show
+`r0`c `r1 Trading up for Gold `r0
+
+`2 Well that wasn't bad I guess, you bring your harvest to the Farmer's
+`2 Wife, hopefully she likes what you brought!
+
+`2 "`$Here you go, I hope you like it, it took me forever to get all this
+`$ stuff! You should get someone to weed!`2"
+
+`2 "`0OK, well let me see what you got...
+
+`0 You found `%`p25 `0Tomatos
+`0 You found `%`p26 `0Carrots
+`0 You found `%`p27 `0Radishes
+`0 You found `%`p28 `0Green Beans
+`0 You found `%`p29 `0Green Peppers
+`0 You found `%`p30 `0Peas
+`k
+`2 "`0I'll give you `$$`p23`0 gold for your harvest. Thank you for the
+`0 help! you are much better then my husband`2"
+
+`2 You take your gold, and leave....
+
+`%`k
+@do money + `p23
+@datasave farm.idf &playernum 1
+@do addlog
+ `r5 `r0 `0`n`2 has harvested the fields in `0Ye Olde Farm`2! `r5 `r0
+@do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@do goto bottom
+@label gotnone
+ @show
+`r0`c `r1 Trading up for Gold `r0
+
+`2 "`$Sorry, but I coudln't find anything! Don't be mad ok?`2"
+
+`2 "`0Geeze! With help like you, we'll all starve....`2"
+
+`2 Hmm you better not talk to her again till tomorrow, she's pissed!`%
+
+`k
+@do goto bottom
+@label farmnoway
+@show
+`r0`c `r1 Harvesting the Fields `r0
+
+`2 You should wait till tomorrow to try this again... you'll pick the
+`2 garden bare!`%
+
+`k
+
+@label bottom
+ @do goto shacktop
+ @end
+
+@if responce is 1 then do begin
+ @begin
+ @if bitcheck `t43 5 0 then do begin
+ @begin
+ @if bitcheck `t43 6 1 then do begin
+ @begin
+ @do goto beathimup
+ @end
+ @show
+`r0`c `r1 Talking to the Farmer's Wife `r0
+
+`2 "`$Did you know your husband has an obsession with Goats!!?`2"
+
+`2 "`0Umm no, now that you mention it, I didn't. He is too busy harvesting
+`0 to do that. If you ever find out that he is having an affair, tell me!
+`0 I'll pay you to harvest the crops then!`2"
+
+`2 Hmm piss off that farmer, and make money! Alright! You better get some
+`2 proof!`%
+
+`k
+ @do goto shacktop
+ @label beathimup
+ @show
+
+
+
+`2 "`0Thanks alot for helping me! Now get in the fields and help us with
+`0 the harvest!`2"`%
+
+`k
+
+ @do goto shacktop
+
+ @end
+
+ @if bitcheck `t43 5 1 then do begin
+ @begin
+ @pauseoff
+ @show
+`r0`c `r1 Talking to the Farmer's Wife `r0
+
+`2 "`$I think you might want to read this, it might interest you`2", you say
+`2 as you hand the Love letter to the Farmer's (ex?)wife.
+
+`2 She takes it and opens it. half way through her face turns bright red! She
+`2 looks more dangerous then any creature you've fought in the forest. She
+`2 pushes you out of the way and storms out the door.
+
+`2 for the next 15 minutes you hear the distinct sounds of someone getting
+`2 their ass kicked, hmm I wonder what could be happening.
+
+`k
+
+`2 As the noise starts to die (ohh bad pun) down, the wife returns, but this
+`2 time she is smiling!
+
+`2 "`0Thank you `%`N`0!!! For the longest time i've suspected this
+`0 but never had the proof! You've done me a great service this day!`2"
+
+`2 You just smile to yourself, not because you've done the good thing, but
+`2 because that stupid old farmer got his butt kicked!
+
+`2 "`0As a reward I'll let you harvest the fields each day, and pay you for
+`0 all the vegetables you pick. After all, someone has to help out around
+`0 here, seeing as my hubby won't be moving for a while.`2"
+
+`k
+
+`2 Way to go! You get `%2 Quest points `2and`% 2 Charm`2! Congrats! You also
+`2 gain the ability to harvest for gold! Oh happy day!
+
+`k
+ @do `p08 + 2
+ @do `p18 + 2
+ @bitset `t43 3 0
+ @bitset `t43 4 0
+ @bitset `t43 5 0
+ @bitset `t43 6 1
+@do addlog
+ `r5 `r0 `0`n`2 helped the Farmer's wife in `0Ye Olde Farm`2! `r5 `r0
+@do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @pauseon
+ @end
+ @end
+
+
+ @drawmap
+ @update
+ @closescript
+
+
+@#nomore
diff --git a/xtrn/lord2/cnw/felhouse.ref b/xtrn/lord2/cnw/felhouse.ref
new file mode 100644
index 0000000000000000000000000000000000000000..f09c1b322f5332897f520f172b5645b98b748785
--- /dev/null
+++ b/xtrn/lord2/cnw/felhouse.ref
@@ -0,0 +1,375 @@
+; Script file FELHOUSE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:19 2001
+
+@DECLARE doorguard 000001332
+@DECLARE startg 000001361
+@DECLARE sign 000005328
+@DECLARE enter 000005636
+@DECLARE done 000006832
+@DECLARE yerok 000007886
+@DECLARE letmein 000008476
+@DECLARE done 000008555
+@NOCHECK
+; End of .REF index
+
+;|-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|
+;|Felicity's Temple IGM for Lord2 - The New World |
+;|-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|
+;|Ref notes: |
+;| |
+;|Felhouse.ref - Copyright 1997 Lloyd Hannesson and Tech'n Software|
+;| http://www.techn.com/ - support@techn.com|
+;| -> The Guest House ref file. Most of this was |
+;| from Seth's house refs. Thanks Seth! |
+;|-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|
+;|Please! If you are gonna copy and of these routines, please let |
+;|me know by an email, or include my name in your docs :) |
+;|-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|
+
+;------------------------------------------------------------------------
+
+@#doorguard
+@do moveback
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+@if felhouse.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to vacate this keep!" `2the guard barks.
+ @closescript
+ @end
+
+@readfile felhouse.dat
+`p20
+`p22
+`p23
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the auto-protector, nice of him to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Talking to the House Auto-Protector `r0
+
+ `2The huge auto-protector snaps to attention when he sees you are going to
+ address him.
+
+@do write
+`x`x
+@choice
+Set price to gain entrance (currently is `$$`p22`%)
+Empty Cash Box
+Ownership options
+Leave
+@if responce is 2 then do
+ @begin
+ @readfile felhouse.dat
+`p20
+`p22
+`p23
+ @if `p23 < 1 then do
+ @begin
+ @show
+`r0`c `r1 Empting the Cash `r0
+
+ `2There doesn't seem to be anything in there.
+
+ `4Dag-nabit!
+
+ @key bottom
+ @do goto startg
+ @end
+ @do money + `p23
+ @writefile felhouse.dat
+`p20
+`p22
+0
+ @show
+`r0`c `r1 Empting the Cash `r0
+
+ `2You retrieve all the collect gold. A total of `$$`p23`2.
+
+ `4CHA-CHING!
+
+
+ @key bottom
+ @do goto startg
+ @end
+@if responce is 3 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$5,000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your keep to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete felhouse.dat
+ @writefile felhouse.dat
+`p20
+`p22
+`p23
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of `%Felicity's Guest House`2 to you.
+ Password to enter will remain `%"`s01"`2 unless you come by
+ `2and change it.
+
+ @do addlog
+ `0`n`2 has given `%Felicity's Guest House`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your keep back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete felhouse.dat
+ @do `v40 is 5000
+ @do `p30 is 1
+ @routine widthdraw in vaults.ref
+ @do money + 5000
+ @show
+`\`\ `%FELICITY'S GUEST HOUSE SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Felicity's Guest House`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @show
+`\
+ `0"And the new price, s&sir?" `2
+ `2(enter `40`2 to keep the door open for everyone freely)
+ @do write
+`\ `2Price:`x`x
+ @DO READNUM 4
+ @do delete felhouse.dat
+ @writefile felhouse.dat
+&playernum
+`v40
+1
+@show
+`\`\ `0"Yes s&sir, I will now charge `$$`v40`0!" `2.`\`\`k
+ @do goto startg
+ @end
+@drawmap
+@update
+
+@#sign
+@do moveback
+
+ @if felhouse.dat exist false then do
+ @begin
+ @do saybar
+`%Felicity's Guest House`2 - For sale cheap, enquire inside.
+ @end
+
+@if felhouse.dat exist true then do
+ @begin
+@readfile felhouse.dat
+`p20
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+@#enter
+@do moveback
+@offmap
+@if felhouse.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `%Felicity's Guest House`2 is kept by Felicity for her visiting guests. I
+ guess the `4Dragon`2 has kept people from visiting though...
+
+ Felicity has put it up for sale! The asking price is `$$7,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 6999 Purchase it.
+<&money 7000 Sigh wistfully and leave since you don't have enough.
+>&money 6999 Leave.
+@if responce is 1 then do
+ @begin
+ @if felhouse.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+@writefile felhouse.dat
+&playernum
+5
+1
+ @do `v40 is 7000
+ @do `p30 is 1
+ @routine deposit in vaults.ref
+ @do money - 7000
+ @do addlog
+ `0`n `2buys `%Felicity's Guest House`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this guest house!
+
+`k
+ `2Enjoy your new home.`\`\
+
+ @do `p69 is 26
+ @key bottom
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile felhouse.dat
+`p20
+`p22
+`p23
+@do `p21 is deleted `p20
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do `p30 is 1
+ @do `v40 is `p23
+ @routine deposit in vaults.ref
+ @do delete felhouse.dat
+ @do addlog
+ `%Felicity's Guest House`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is 0 then goto yerok
+ @show
+`r0`c `r1 Felicity's Guest House `r0
+
+`2 A voice booms from behind the door. `0"Halt, you!
+`2 It costs only `$$`p22 `2for a room here. We will protect you while you
+ sleep.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+>&money `p22 Get a bed.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do money - `p22
+ @readfile felhouse.dat
+`p20
+`p22
+`p23
+ @do `p23 + `p22
+ @writefile felhouse.dat
+`p20
+`p22
+`p23
+@label yerok
+ @show
+`r0`c`\`\ `0"Welcome to `%Felicity's Guest House`0,"`2 the auto-protector smiles as
+ the door slowly opens.`\`\`k
+ @writefile mail\mail`p20.dat
+ `0Felicity's Guest House Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 stayed at your Felicity Guest house, cha-ching.
+ @do goto letmein
+ @end
+
+ @show
+`\`\ `2The auto-protector doesn't seem too interested, because you're
+ still outside a locked door!`\`\`k
+ @key bottom
+ @do goto done
+ @end
+
+ @do goto letmein
+
+ @end
+
+;let him in
+@label letmein
+@do x is 37
+@do y is 14
+@do map is 575
+@loadmap 575
+@do goto done
+@#done
diff --git a/xtrn/lord2/cnw/felicity.ref b/xtrn/lord2/cnw/felicity.ref
new file mode 100644
index 0000000000000000000000000000000000000000..7f1e683a85bf8fe0f047b6c5d0419f5c764d01a5
--- /dev/null
+++ b/xtrn/lord2/cnw/felicity.ref
@@ -0,0 +1,817 @@
+; Script file FELICITY.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:20 2001
+
+@DECLARE makekey 000001782
+@DECLARE sign 000002000
+@DECLARE tellem 000002199
+@DECLARE sign2 000002410
+@DECLARE karadoc 000002596
+@DECLARE heal 000004009
+@DECLARE store 000005098
+@DECLARE storetop 000005178
+@DECLARE tp 000006078
+@DECLARE ahh 000006242
+@DECLARE felicity 000006408
+@DECLARE feltop 000006498
+@DECLARE feltalktop 000007072
+@DECLARE plant 000013226
+@DECLARE akasha 000013400
+@DECLARE jan 000014686
+@DECLARE secret 000015319
+@DECLARE warp1 000015748
+@DECLARE warp2 000015932
+@DECLARE warp3 000016112
+@DECLARE warp4 000016294
+@DECLARE janitor 000016480
+@DECLARE wowpool 000017551
+@DECLARE pool 000017721
+@DECLARE reset 000017999
+@DECLARE notes 000018375
+@DECLARE notestop 000018447
+@DECLARE dabottom 000019429
+@NOCHECK
+; End of .REF index
+
+;|-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|
+;|Felicity's Temple IGM for Lord2 - The New World |
+;|-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|
+;|Ref notes: |
+;| |
+;|Felicity.ref - Copyright 1997 Lloyd Hannesson and Tech'n Software|
+;| http://www.techn.com/ - support@techn.com|
+;| -> The main Ref file for Felicity's Temple |
+;|-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|
+;|Please! If you are gonna copy and of these routines, please let |
+;|me know by an email, or include my name in your docs :) |
+;|-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|
+
+;Add janitor keys to extitems.ref, only used during install.
+
+@#MAKEKEY
+@do `s06 is Janitors_keys
+@do `s07 is DEEDS
+@do `s08 is DEEDS.ref
+@do `s09 is NIL
+@run install in install.ref
+@closescript
+
+
+;------------------------------------------------------------------------
+
+@#sign
+; Sign North of the Temple
+@do moveback
+@do saybar
+South - Felicity's Temple - Shhhhhh don't tell anyone!
+
+;------------------------------------------------------------------------
+
+@#tellem
+; Man above the Temple
+@do moveback
+@do saybar
+Go visit Felicity's Temple! Follow the path to the South to get there
+
+;------------------------------------------------------------------------
+
+
+@#sign2
+; Sign in the temple area
+@do moveback
+@do saybar
+<--- The Temple Felicity's Shops --->
+
+;------------------------------------------------------------------------
+
+@#karadoc
+; Karadoc the wise mage
+@do `p20 random 14 1
+@if `p20 is 1 then saybar
+`%Karadoc: `0Rumor has it that Felicity's has been stockpiling things...
+@if `p20 is 2 then saybar
+`%Karadoc: `0Aren't the trees lovely this time of year
+@if `p20 is 3 then saybar
+`%Karadoc: `0Healing here is a steal!
+@if `p20 is 4 then saybar
+`%Karadoc: `0Take a look around, i'm sure you'll find something you like.
+@if `p20 is 5 then saybar
+`%Karadoc: `0Akasha is a strange character! Heard she was a vampire!
+@if `p20 is 6 then saybar
+`%Karadoc: `0Visit the Tech'n software Web page at http://www.techn.com/
+@if `p20 is 7 then saybar
+`%Karadoc: `0If you like this IGM email support@techn.com
+@if `p20 is 8 then saybar
+`%Karadoc: `0If you are evil, Felicity can help to make you even more evil!
+@if `p20 is 9 then saybar
+`%Karadoc: `0If you are good, Felicity can help to make you even nicer!
+@if `p20 is 10 then saybar
+`%Karadoc: `0Doesn't LORD kick ass!
+@if `p20 is 11 then saybar
+`%Karadoc: `0The dark forest is a good place to get Experience.
+@if `p20 is 12 then saybar
+`%Karadoc: `0Have you found the secret in the dark forest!?
+@if `p20 is 13 then saybar
+`%Karadoc: `0Fishing is a great way to make money, visit PortTown for info.
+@if `p20 is 14 then saybar
+`%Karadoc: `0The Janitor is a hard fellow to track down.
+
+;------------------------------------------------------------------------
+
+@#heal
+; The healers hut
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%Paragrim the Town Healer
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-`\
+`2 Paragrim the town healer 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 seem a little sick my friend! I can heal you for `$`p20`0 gold, ok?
+
+@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 buddy, you don't have enough gold!"
+ @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 look fine! You should come back when you're sick!"
+
+`k
+@drawmap
+@update
+
+;------------------------------------------------------------------------
+
+@#store
+; The General Store
+ @offmap
+ @do moveback
+ @do `v01 is 1
+ @label storetop
+ @show
+`r0`c `%Talking to Turin - At The General Store
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-`\
+`2 `0"What are you looking for my young s&man???"`2, asks Turin. You can
+`2 see that he is selling all sorts of strange items. They seem to be
+`2 divided up into 3 main sections though.
+
+@do write
+`x`x`x`x
+ @do `v01 is 1
+ @choice
+Look at his armor.
+Look at his weapons.
+Look at his general items.
+Leave
+@if responce is 2 then do begin
+ @begin
+ @buymanager
+4
+9
+15
+16
+38
+35
+49
+39
+58
+ @do goto storetop
+ @end
+
+@if responce is 1 then do begin
+ @begin
+ @buymanager
+10
+12
+13
+14
+37
+59
+ @do goto storetop
+ @end
+
+@if responce is 3 then do begin
+ @begin
+ @buymanager
+5
+40
+55
+ @do goto storetop
+ @end
+
+ @drawmap
+ @update
+ @closescript
+@end
+
+;------------------------------------------------------------------------
+
+@#tp
+; Hmmmm :)
+@do moveback
+@do saybar
+Do you need some TP for your bunghole?
+
+;------------------------------------------------------------------------
+
+@#ahh
+; Was that a number 1 or a number 2?
+@do saybar
+Ahhhhhhhh! Much better.
+
+;------------------------------------------------------------------------
+
+@#felicity
+; Talking to felicity... the babe of the castle
+ @offmap
+ @do moveback
+ @label feltop
+ @do `v01 is 1
+ @show
+`r0`c `%Felicity - The temple owner
+`2 -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+`2 As you step up to the counter, the beautiful Felicity greets you.
+`2 What a sight she is! In all your years, you have never seen a woman
+`2 to match her beauty. You wonder how she stays this young and fresh,
+`2 as stories of the Great Temple have been around forever.
+
+@do write
+`x`x`x`x
+@choice
+Talk to Felicity
+Ask for a little help
+Leave this place
+@show
+@if response is 1 then do
+ @begin
+ @label feltalktop
+ @show
+`r0`c `%Talking to Felicity
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+`0 "Excuse me Felicity, but can I ask you a few thing?"`2, you ask.
+`0 "Sure thing! Ask away! I always have time for questions."`2 replys
+`2 Felicity. Allright! This is your lucky day! It's not everyday that
+`2 you get to talk to a legend.
+
+@do write
+`x`x`x`x
+@do `v01 is 1
+@choice
+Ask about the Temple
+Ask about the Storage Room
+Ask about the `4Dragon
+Leave this place
+@if response is 1 then do begin
+ @begin
+ @show
+`\`\`0 "So what exactly is this Temple here for Felicity"`2, you ask. She
+`2 seems a little bit annoyed with your question! `0"What is this here for
+`0 you ask!? What type of question is that! This is my home, where I live
+`0 where I have my stor... umm err nevermind"`2, says felicity, her face
+`2 turning red.`\
+`0 "Why are you blushing, and what's this stor thing you were talking about?
+`0 fill me in Wench! Err I mean my Beautious Felicity!"`2, you say with a fake
+`2 grin. `0"Well this is really none of your concern, you should forget the
+`0 whole conversation"`2, Felicity says with a smile...
+`\`k
+`2 Well that's didn't go too good did it!?
+`\`\`k
+ @do goto feltalktop
+ @end
+
+@if response is 2 then do begin
+ @begin
+ @show
+`\`\`0 "What's this Storage room I hear people talking about, is this what
+`0 you meant when you said Stor!?"`2, You ask. `0"Ahh no, I didn't say anything
+`0 of the sort! There is no such thing as a storage room here!"`2, she says
+`2 rather calmly.
+`\`k
+`2 Hmmm for some reason you don't think she is telling the truth!
+`\`k
+ @do goto feltalktop
+ @end
+
+@if response is 3 then do begin
+ @begin
+ @show
+`\`\`0 "So do you know anything of the `4Dragon`0"`2, you ask. `0"All that I know
+`0 is that we should all stay far away from the `4Dragon`0, that thing is scarry!
+`0 The `4Dragon`0 is the sole reason that I'm stockpiling all this stuff"`2, she
+`2 says. `0"Stockpiling!?!?! So you do have a store!!!"`2, you exclaim! `0"No I
+`0 don't, and you can't prove it! Unless that is if you've allready found it!"`2
+`\`k
+`2 Hey! Now you're getting somewhere!
+`\`k
+ @do goto feltalktop
+ @end
+
+@if response is 4 then do begin
+ @begin
+ @do goto feltop
+ @end
+
+@end
+
+
+
+@if response is 2 then do ;Talking to Felicity
+ @begin
+
+; Checking if Data file exists... if not write fake one (don't want this
+; program to crash out)
+
+@if fel&playernum.txt exists false then do begin
+@begin
+@writefile fel&playernum.txt
+01/01/1988
+`s02
+@end
+
+; Read the players data file compare it to todays date. If it equals
+; todays date then exit out with message, else do the routine
+
+@readfile fel&playernum.txt
+`s01
+`s02
+@do `s05 is &date
+@if `s01 not `s05 then do
+ @begin
+ @show
+`c
+`2 You think to yourself `0"Hmmm Felicity seems to have all these powers
+`0 maybe she can help me on my quest!?"`2 Gathering up all your strength
+`2 you plead `0"Please Felicity, you are obviously a woman of great
+`0 strength and knowledge! Can you find it in yourself to help a poor
+`0 s&man like me?"`\
+`2 Felicity takes a few seconds to respond, but then she says `0"Help you
+`0 eh? I suppose I can try to do something for you `n"`\
+`0 "Touch my ring and concentrate your wishes will be granted"`\
+`2 You reach over and touch her ring and.`l.`l.`l you feel...`\
+@do `p20 random 5 1
+;
+; Random Goodies and stuff level dependant
+;
+; 1. Extra Gold
+; 2. Extra Muscle
+; 3. Extra Dodge
+; 4. if Neg alignment (Eviler) If positive (nicer)
+; 5. A healing potion (5 point one)
+
+@if `p20 is 1 then do
+@begin
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p21 is `v09
+ @do `p21 - 1
+; Do the math, You'll get Gold = level * level * 10
+ @do `p21 * `p21
+ @do `p21 * 10
+ @show
+`% Richer! `2 Felicity hands you a bag with `$`p21`2 gold!`\
+`2 You thank Felicity then make your exit.`\`\`k
+ @do money + `p21
+@end
+
+@if `p20 is 2 then do begin
+@begin
+ @show
+`% Stronger! `2 You get 1 point stronger!`\
+`2 You thank Felicity then make your exit.`\`\`k
+ @do `p04 + 1
+@end
+
+@if `p20 is 3 then do begin
+@begin
+ @show
+`% Tougher! `2 You get 1 point toughness!`\
+`2 You thank Felicity then make your exit.`\`\`k
+ @do `p05 + 1
+@end
+
+@if `p20 is 4 then do begin
+@begin
+ @if `p07 less 0 then do begin
+ @begin
+ @show
+`% Eviler! `0"I can tell by looking into your heart that you are a evil
+`0 s&man! I will help you to become what you truely are!" `2says Felicity
+`2 `\ You lose 1 alignment!`\
+`2 You thank Felicity then make your exit.`\`\`k
+ @do `p07 - 1
+ @end
+
+ @if `p07 more 0 then do begin
+ @begin
+ @show
+`% Nicer! `0"I can tell by looking into your heart that you are a good
+`0 s&man! I will help you to become what you truely are!" `2says Felicity
+`2 `\ You gain 1 alignment!`\
+`2 You thank Felicity then make your exit.`\`\`k
+ @do `p07 + 1
+ @end
+
+ @if `p07 equals 0 then do begin
+ @begin
+ @show
+`% Nicer! `0"I can tell by looking into your heart that you are a good
+`0 s&man! I will help you to become what you truely are!" `2says Felicity
+`2 `\ You gain 1 alignment!`\
+`2 You thank Felicity then make your exit.`\`\`k
+ @do `p07 + 1
+ @end
+@end
+
+@if `p20 is 5 then do begin
+@begin
+ @show
+`% A `0Green Potion! `2 This potion will heal 10 hitpoints if you drink it!`\
+`2 You thank Felicity then make your exit.`\`\`k
+ @do `i05 + 1
+@end
+
+
+@if fel&playernum.txt exists true then delete fel&playernum.txt
+@writefile fel&playernum.txt
+&date
+`s02
+@do goto feltop
+@end
+
+@if `s01 is `s05 then do
+ @begin
+ @show
+`2`\`\Don't you think you've bugged felicity enough!? Try again tomorrow!
+`\`\`k
+ @do goto feltop
+ @end
+
+ @drawmap
+ @update
+ @closescript
+@end
+
+@if response is 3 then do
+@begin
+ @show
+`\`\
+`2 You tell Felicity that you'll talk to her later
+`\
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+
+@show
+`\`\
+`2 This is under construction!
+`\`\`k
+@do goto feltop
+
+@drawmap
+@update
+@closescript
+@end
+
+;------------------------------------------------------------------------
+
+@#plant
+@do moveback
+@do saybar
+A huge plant takes up most of the room! What could it be?
+
+;------------------------------------------------------------------------
+
+@#Akasha
+; Talking to Akasha... very small routine for right now
+ @offmap
+ @do moveback
+ @do `v01 is 1
+ @show
+`r0`c `%Akasha - `4The mysterious one
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+`2 As you step into Akasha's room, you can smell a faint coppery scent.
+`2 You know that you've smelt it before, but you can't quite put your finger
+`2 on it. Akasha herself is quite beautifull, but her skin is rather pale.
+`2 She could also use a visit to the Dentist, As she seems to have 2 teeth
+`2 that stick out quite a bit, almost like... Nahhh they couldn't be fangs...
+`2 could they!?
+
+@do write
+`x`x`x`x
+@choice
+Talk to Akasha
+Leave this place
+@if response is 1 then do
+@begin
+ @show
+`\`\
+`2 As you walk towards Akasha, you notice that she is isn't moving.
+`2 she seems to be in a very deep sleep.... You'll need to wake her first
+`2 if you want to talk with her, I guess.
+`\
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@if response is 2 then do
+@begin
+ @show
+`\`\
+`0 "Talk to you later Akasha!"`2, you say as you step out the door.
+`\
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+
+ @drawmap
+ @update
+ @closescript
+@end
+
+;------------------------------------------------------------------------
+
+@#jan
+; At the janitor's Door....
+
+@do `p29 is &playernum
+@routine Janitors_keys in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 is 0 then do
+ @begin
+ @do moveback
+ @do saybar
+Hmmm this door is locked!? I wonder how you can open it....
+ @end
+
+@do `p29 is &playernum
+@routine Janitors_keys in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 > 0 then do
+ @begin
+ @do moveback
+ @do x is 23
+ @do y is 11
+ @do map is 573
+ @loadmap 573
+ @drawmap
+ @do saybar
+You insert the key, and the door slowly opens.....
+ @end
+
+;------------------------------------------------------------------------
+
+@#secret
+; The secret key
+@do moveback
+@do `p29 is &playernum
+@routine Janitors_keys in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 > 0 then do
+ @begin
+ @do saybar
+You allready have the key! If you lose your copy come back and get another
+ @end
+
+@routine giveitem in item99.ref
+ @do saybar
+You found the Janitor's Key!
+ @end
+
+;------------------------------------------------------------------------
+
+@#warp1
+; Warp to GreenTree
+ @do x is 49
+ @do y is 14
+ @do map is 1356
+ @loadmap &map
+ @drawmap
+
+
+;------------------------------------------------------------------------
+
+@#warp2
+; Warp to PortTown
+ @do x is 39
+ @do y is 14
+ @do map is 956
+ @loadmap &map
+ @drawmap
+
+;------------------------------------------------------------------------
+
+@#warp3
+; Warp to Flag City
+ @do x is 71
+ @do y is 19
+ @do map is 1092
+ @loadmap &map
+ @drawmap
+
+;------------------------------------------------------------------------
+
+@#warp4
+; Warp to Sosen Village
+ @do x is 32
+ @do y is 7
+ @do map is 456
+ @loadmap &map
+ @drawmap
+
+;------------------------------------------------------------------------
+
+@#janitor
+; The Janitor
+ @offmap
+ @do moveback
+ @do `v01 is 1
+ @show
+`r0`c `%Talking to The Janitor!
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-`\
+`2 As you step over you notice the Janitor sleeping... he slowly wakes up
+`0 "Hey!? Who the heck are you!? And how'd you get in?"`2, he asks puzzled.
+`0 "I found your spare key in tree old man! What a stupid place to put it"
+`2 ,you say. The Janitor doesn't seem pleased.
+
+@do write
+`x`x`x`x
+@choice
+Talk to the Janitor
+Leave
+@if response is 1 then do
+@begin
+ @show
+`\`\`0 "So what are all those blinking lights outside?"`2, you ask
+
+`2 `0"Well sonny, they are my secret portals! They'll take you instantly
+`0 to many different places in the realm"
+
+`2 Top-Left `7: `0Greentree
+`2 Top-Right `7: `0PortTown
+`2 Bottom-Left `7: `0Flag City
+`2 Bottom-Right `7: `0Sosen Village
+
+`0 "Hop in one, and take a ride!"
+
+`k
+@end
+ @drawmap
+ @update
+ @closescript
+@end
+
+;------------------------------------------------------------------------
+
+@#wowpool
+; Looking at the pool
+@do saybar
+Wow! A full size pool! This place was a steal.
+
+;------------------------------------------------------------------------
+
+@#pool
+; Healing at the pool
+@do saybar
+You jump off the diving board into the pool
+@show
+`L`L
+@do saybar
+You are refreshed by the cleansing water! You are totally healed!
+@do `p02 is `p03
+
+;------------------------------------------------------------------------
+
+@#reset
+; get rid of any garbage data in the var <--lets keep it
+
+@do `p29 is &playernum
+@routine Janitors_keys in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 > 0 then do
+ @begin
+; @do saybar
+;The Janitor's Key in your pocket mysteriously disappears.
+; @do `p30 is 0
+; @end
+
+;------------------------------------------------------------------------
+
+@#notes
+; The message board in the guest house
+@do moveback
+ @label notestop
+ @show
+`r0`c `%At the Message Board
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-`\
+`2 This is a general purpose message board... leave a comment
+`2 for the next user that visits the Guest House...
+
+@do write
+`x`x`x
+ @do `v01 is 1
+ @choice
+View Current Message
+Leave A New Message
+Do Nothing
+@if responce is 1 then do begin
+ @begin
+@readfile felnote.txt
+`s04
+`s05
+ @show
+`\`\
+`2 You look over a message left by: `0`s04
+ `4-=[ `%`s05 `4]=-
+`\`k
+ @do goto notestop
+ @end
+
+@if responce is 2 then do begin
+ @begin
+ @do `s04 is
+ @do write
+`\`\`\ `2New Message:`x`x
+ @do readstring 40 `s04 `s04
+ @do `p20 is length `s04
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current message is ok.`\`\`k
+ @do goto dabottom
+ @end
+ @show
+`\`\
+`2 You leave your mark for everyone to see....
+`\`\`k
+@if felnote.txt exists true then delete felnote.txt
+@writefile felnote.txt
+`n
+`s04
+ @label dabottom
+ @do goto notestop
+ @end
+
+@if responce is 3 then do begin
+ @begin
+ @show
+`\`\`\`2 You don't have anything important to say I guess......
+`\`\`k
+ @end
+
+
+ @drawmap
+ @update
+ @closescript
+
+;------------------------------------------------------------------------
+
+; That's the end... for now! :)
+; Checkout http://www.techn.com/ for the Latest version!
diff --git a/xtrn/lord2/cnw/ffear.ref b/xtrn/lord2/cnw/ffear.ref
new file mode 100644
index 0000000000000000000000000000000000000000..dba0b9ab902e3fb8353bea9fb743d1ce49d219ac
--- /dev/null
+++ b/xtrn/lord2/cnw/ffear.ref
@@ -0,0 +1,1043 @@
+; Script file FFEAR.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:35 2001
+
+@DECLARE docksign 000001419
+@DECLARE sign 000001500
+@DECLARE sign1 000001566
+@DECLARE sign2 000001623
+@DECLARE sign3 000001685
+@DECLARE sign4 000001755
+@DECLARE notdone 000001815
+@DECLARE dance 000001882
+@DECLARE drinks 000001944
+@DECLARE drinkin 000001974
+@DECLARE weapon 000005730
+@DECLARE wstart 000005768
+@DECLARE lowang 000006768
+@DECLARE lwstart 000006957
+@DECLARE bank 000008667
+@DECLARE bankstart 000008739
+@DECLARE bankagain 000009844
+@DECLARE deposit 000011299
+@DECLARE withdraw 000011849
+@DECLARE healers 000012715
+@DECLARE ffboat 000014486
+@DECLARE portboat 000015278
+@DECLARE gatekeeper 000016797
+@DECLARE attack 000017279
+@DECLARE monster1 000017508
+@DECLARE monster2 000018112
+@DECLARE monster3 000018700
+@DECLARE fightpl 000019269
+@DECLARE nomore 000019858
+@NOCHECK
+; End of .REF index
+
+;
+; -----------------------------------------------
+; Fortress Fear IGM for LORD II - The New World
+; -----------------------------------------------
+;
+; FFear.ref - Copyright 1997 Isaac Laurin and D/�rK /\/iGHT
+; darkn@geocities.com
+;
+; If you copy any of this ref file I'll will personaly see
+; that an assassin is hired and sent after you! :)
+; Also you must let me know by an email, or include my
+; name in your docs!
+;
+
+@#docksign
+@do moveback
+@do saybar
+$200 boat ride to Fortress Fear this way!!!
+
+@#sign
+@do moveback
+@do saybar
+Welcome To `@Fortress Fear!
+
+@#sign1
+@do moveback
+@do saybar
+King Fear's Casino
+
+@#sign2
+@do moveback
+@do saybar
+`@Lo Wang's Supermarket
+
+@#sign3
+@do moveback
+@do saybar
+`$<-- Houses For Sale This Way!
+
+@#sign4
+@do moveback
+@do saybar
+<- Bar Casino ->
+
+@#notdone
+@do moveback
+@do saybar
+`$THIS AREA IS NOT COMPLETE!
+
+@#dance
+@do moveback
+@do saybar
+`0"Isn't dancing fun?"
+
+@#drinks
+@do moveback
+@label drinkin
+@do `v01 is 1
+@show
+`r0`c `r1`% Getting A Drink `r0
+
+`0 "Here's a list of drinks, so what will it be today?"
+
+`2 You have `$$&money`2 left.
+
+@do write
+`x`x
+@choice
+Water (FREE)
+Sprite ($2)
+Ale ($5000)
+Red Dragon's Fire ($5000)
+Grog ($100)
+Nothing
+@show
+`\
+@if responce is 1 then do
+ @begin
+ @show
+`2 The bartender gives you a cup of dark, murky water. You drink it and`l.`l.`l.`l.`l.`l.`l.
+`4 YOU FEEL LIKE THROWING UP!`\`\`k
+ Your hitpoints go WAY down!`\`\`k
+ @do `p02 = 1
+ @end
+@if responce is 2 then do
+ @begin
+ @if &money > 1 then do
+ @begin
+ @do `p30 is 22
+ @do `v40 is 2
+ @routine deposit in vaults.ref
+ @do money - 2
+ @show
+`2 The bartender pours you a glass of Sprite (TM). You gulp it down and`l.`l.`l.`l.`l.`l.`l.
+ <BUUUUUURRRRRPPP!!>`\`\`k
+`% You feel refreshed!`\`\`k
+ @do `p02 = `p03
+ @do goto drinkin
+ @end
+ @show
+`2 Hey you don't have enough money for that!`\`\`k
+ @end
+@if responce is 3 then do
+ @begin
+ @if &money > 4999 then do
+ @begin
+ @do `p30 is 22
+ @do `v40 is 5000
+ @routine deposit in vaults.ref
+ @do money - 5000
+ @show
+`2 The bartender pours you a mug of ale. You quickly gulp it down and`l.`l.`l.`l.`l.`l.`l.
+ you feel a little bit dizzy...`\`\`k
+`% ...But besides that you feel tougher!`\`\`k
+ @do `p05 + 1
+ @do `p96 + 4
+ @do goto drinkin
+ @end
+ @show
+`2 Hey you don't have enough money for that!`\`\`k
+ @end
+@if responce is 4 then do
+ @begin
+ @if &money > 4999 then do
+ @begin
+ @do `p30 is 22
+ @do `v40 is 5000
+ @routine deposit in vaults.ref
+ @do money - 5000
+ @show
+`2 The bartender gives you a glass of dark red liquid. You drink it and`l.`l.`l.`l.`l.`l.`l.
+`4 YOU FEEL AS IF YOUR HEAD IS GOING TO EXPLODE!...`\`\`k
+`% ...But besides that you feel stronger!`\`\`k
+ @do `p04 + 1
+ @do `p96 + 25
+ @do goto drinkin
+ @end
+ @show
+`2 Hey you don't have enough money for that!`\`\`k
+ @end
+@if responce is 5 then do
+ @begin
+ @if &money > 99 then do
+ @begin
+ @do `p30 is 22
+ @do `v40 is 100
+ @routine deposit in vaults.ref
+ @do money - 100
+ @do `v01 is 1
+ @show
+`c`2 The bartender puts on an evil grin, then walks to the back of the bar. He
+ returns shortly later with a strong looking metal mug filled with steaming
+ liquid.
+
+`0 "Watch out it's corrosive!" laughs the bartender as he hands you the
+ melting mug.
+
+@do write
+`x`x
+@choice
+Drink It
+Chicken Out
+@show
+`\
+ @if responce is 1 then do
+ @begin
+ @show
+`2 You pick up the melting mug, close your eyes and swallow. The liquid is
+ burning your mouth! And`l.`l.`l.`l.`l.`l.`l.`l.
+
+ @do `p20 random 100 1
+ @if `p20 is 50 then do
+ @begin
+ @show
+`2 `l.`l.`l.`l.`l.`%THE GROG GIVES YOU SUPER HUMAN STRENGH!`\`\`k
+ YOU GAIN 5 STRENGTH, 5 DEFENCE, 10 HITPOINTS AND 1000 EXPERIENCE!`\`\`k
+ @do `p01 + 1000
+ @do `p03 + 10
+ @do `p04 + 5
+ @do `p05 + 5
+ @do `p96 + 10
+ @do goto drinkin
+ @end
+ @show
+`2 `l.`l.`l.`l.`l.`4THE GROG MELTS RIGHT THROUGH YOU!`\`\`k
+ YOU LOSE 1 STRENGTH, 1 DEFENCE AND 10 ALIGNMENT!`\`\`k
+ @do `p04 - 1
+ @do `p05 - 1
+ @do `p07 - 10
+ @do `p96 + 11
+ @do goto drinkin
+ @end
+ @if responce is 2 then do
+ @begin
+ @show
+`2 You bartender sneers, takes back your grog and takes 100 gold too.
+
+`0 "The gold will pay for my wasted grog mug!" the bartender laughs.`\`\`k
+`2 He then takes the grog to the back of the bar but he spills it! He
+ curses as it melts though the floor...`\`\`k
+ @do goto drinkin
+ @end
+ @end
+ @show
+`2 Hey you don't have enough money for that!`\`\`k
+ @end
+
+@if responce not 6 then goto drinkin
+@drawmap
+@update
+
+@#weapon
+@offmap
+@do moveback
+@label wstart
+@do `v01 is 1
+@show
+`r0`c `r1`% Weapons & More! `r0
+
+`2 Tools of torture and destuction line the walls in this shop
+ An ugly lookin store keeper turns to you and says "You gonna
+ buy somethin? Or just look around?"
+
+@do write
+`x`x
+@choice
+Buy something
+Look around
+Boy you're ugly!
+Leave
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@show
+`r0`c `r1`% Shopping At Weapons & More! `r0
+
+`\ `2"Hurry up kid, I don't have all day" says the ugly man.`\
+
+@buymanager
+ 4
+ 36
+ 39
+ 49
+ 64
+ 70
+ 10
+ 37
+ 59
+ 68
+ @end
+
+@if responce is 2 then do begin
+@begin
+@show
+`2 "Ok, you can look around BUT DON'T TOUCH ANYTHING!"`\`\`k
+`% Note - More will be added into this option later..`\`\`k
+@end
+
+@if responce is 3 then do begin
+@begin
+@show
+`2 You open your mouth to say something but nothing comes out!`\`\`k
+`% Note - This option not complete yet`\`\`k
+@end
+
+@if responce not 4 then goto wstart
+@drawmap
+@update
+
+@#lowang
+@offmap
+@do moveback
+@do `p20 = 0
+@if ffhouse2.dat exist true then do
+ @begin
+ @readfile ffhouse2.dat
+`p20
+`s01
+`p21
+`p22
+@end
+ ;load owner and current password
+@label lwstart
+@do `v01 is 1
+@show
+`r0`c `r1`% Lo Wang's Supermarket `r0
+
+`2 There are rows of food, drinks and weapons down the store...
+ The shop owner notices you and says "Hey you what you want?"
+
+@do write
+`x`x
+@choice
+Go shopping
+=`p20 &playernum Buy Maneating plant food
+Hear some words of wisdom from Wang
+Attack Lo Wang
+Leave
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@show
+`r0`c `r1`% Shopping At Lo Wang's `r0
+
+`\ `2Lo Wang impatiently says "Hurry up! I no have all day!"`\
+
+@buymanager
+ 4
+ 49
+ 60
+ 1
+ 2
+ 3
+ 5
+ 17
+ 29
+ 30
+ 40
+ 43
+ @end
+
+@if responce is 2 then do begin
+@begin
+@do `v01 is 1
+@show
+`c`2 "Sooo..You are owner of House #2. You want to feed plant? I have very
+ much good food for plant, cost only $200! You want?"
+
+@do write
+`x`x
+@choice
+>&money 199 Buy it
+Nevermind
+ @if responce is 1 then do
+ @begin
+ @readfile ffhouse2.dat
+`p20
+`s01
+`p21
+`p22
+ @do `p22 + 1
+ @do `p30 is 22
+ @do `v40 is 200
+ @routine deposit in vaults.ref
+ @do money - 200
+ @do delete ffhouse2.dat
+@writefile ffhouse2.dat
+&playernum
+`s01
+`p21
+`p22
+0
+0
+ @show
+`\`2 You now have `p22 package(s) of plant food.`\`\`k
+ @end
+ @if responce is 2 then do
+ @begin
+ @show
+`\`2 "So you no think my plant food good? May your Maneating plant go hungry
+ and eata you!"`\ Boy what a grouch!`\`\`k
+ @end
+@end
+
+@if responce is 3 then do begin
+@begin
+@show
+`2"Sorry, I no have wisdom words for you right now"`\`\`k
+@end
+
+@if responce is 4 then do begin
+@begin
+@show
+`$THIS OPTION NOT COMPLETE YET! WILL BE ADDED IN LATER!`\`\`k
+@end
+
+@if responce not 5 then goto lwstart
+@drawmap
+@update
+
+@#bank
+@do `p30 is 22
+@do `v01 is 1
+@offmap
+@do moveback
+@label bankstart
+@show
+`r0`c `r1 `%Bank Of Fortress Fear `r0
+
+`2 A young clerk eyes you nervously.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdraw.
+=&bank 0 Apply for an account here.
+Leave
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last question?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookkeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+
+
+@drawmap
+@update
+
+@#healers
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%The Healers
+
+`2 Joe 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," `2Joe 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 `p30 is 22
+ @do `v40 is `p20
+ @routine deposit in vaults.ref
+@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," `2Joe laughs.
+
+`k
+@drawmap
+@update
+
+@#ffboat
+;lets them warp to porttown
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Dock `r0
+
+ `0"Greetings, s&sir! What can I do for you?" `2a sailor asks.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 200 I wanna goto PortTown ($200)
+Nevermind
+@if response not 2 then do
+ @begin
+ @do `p30 is 22
+ @do `v40 is 200
+ @routine deposit in vaults.ref
+@do money - 200
+@show
+`\`\ `0"We shall leave at once!" he shouts importantly.
+
+`k `2A few hours later you arrive - ah, traveling by sea is so much fun!
+
+ `0"I bid you a goodday s&sir, please travel safely."
+
+ `2Looks like you are on your own.
+
+`k
+
+@if responce is 1 then do
+ @begin
+ ;Porttown
+ @do x is 9
+ @do y is 9
+ @do map is 956
+ @end
+
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#portboat
+;lets them warp to Fortress Fear
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Dock `r0
+
+ `0"Greetings, s&sir! What can I do for you?" `2a sailor asks.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 200 I wanna goto `@Fortress Fear ($200)
+Nevermind
+@if response not 2 then do
+ @begin
+ @do `p30 is 22
+ @do `v40 is 200
+ @routine deposit in vaults.ref
+@do money - 200
+@show
+`\`\ `0"We shall leave at once!" he shouts importantly.
+
+`k `2A few hours later you arrive - ah, traveling by sea is so much fun!
+
+ `0"I bid you a goodday s&sir, please travel safely."
+
+ `2Looks like you are on your own.
+
+`k
+
+@show
+[?7h[40m[2J[40m
+
+[0;1m [30m������� ������� ������� ������ ������� ������� ������� �������
+ [0m������ �� �� �� �� �� �� �� ������ ������� �������
+ [1m������ �� �� ������[5C�� ������ ��[11C��[6C��
+ ��[6C������� �� ����� �� �� ����� ������� ������� �������
+ �� [0;36m��������������������������������������������������������������
+[39C[1;30m������� ������� ������� ������� ��
+[39C[0m������ ������ ������� �� �� ��
+[39C[1m������ ��[6C�� �� ������ ��
+[39C��[6C������� �� �� �� ����� ��
+[39C�� [0;36m������� [1;30mMade By D/�rK /\/iGHT [0;36m��
+
+[23C[1;5;33mThis IGM is not complete yet!
+
+[0m[255D
+`k
+
+@if responce is 1 then do
+ @begin
+ ;Fortress Fear
+ @do x is 73
+ @do y is 19
+ @do map is 578
+ @end
+
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#gatekeeper
+@offmap
+@do moveback
+@show
+`r0`c `r1 The GateKeeper `r0
+
+ `0"Hello there! Want me to let you out?" `2the GateKeeper asks.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes!
+No! I wanna stay here!
+@if response not 2 then do
+ @begin
+@show
+`\`\ `0The GateKeeper pulls a lever and the gate opens..
+
+`k
+
+@if responce is 1 then do
+ @begin
+ @do x is 37
+ @do y is 13
+ @do map is 498
+ @end
+
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#attack
+@dataload ffattack.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@busy
+@do `p20 random 3 1
+@do goto monster`p20
+@end
+@do `p20 random 20 1
+@if `p20 = 10 then do
+@begin
+@saybar
+`2It's so nice here
+@end
+
+@#monster1
+@fight
+;name
+Castle Peasant
+;string said when you see him
+"Ummm...you stole tha king's gold...so I getta kill you now.."
+;power move kill string
+"Must be your lucky day!" `2 you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+draws blood with his pitchfork|15
+stabs you with his pitchfork|10
+smells bad|20
+NONE|NONE
+NONE|NONE
+;defense
+50
+;gold reward
+200
+;experience
+50
+;hit points
+40
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Castle Guard
+;string said when you see him
+"It is a good day to die!"
+;power move kill string
+"Yes it is a good day for YOU to die!" `2 you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+stabs you with its broadsword|250
+slashes you with its broadsword|100
+punches you|50
+NONE|NONE
+NONE|NONE
+;defense
+100
+;gold reward
+1000
+;experience
+100
+;hit points
+100
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Castle Guards
+;string said when you see him
+"There he is! ATTACK!"
+;power move kill string
+"Hahaha" `2 you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+hacks you with their weapons|400
+stabs you with their weapons|250
+farts and makes a bad smell|500
+NONE|NONE
+NONE|NONE
+;defense
+300
+;gold reward
+10000
+;experience
+1500
+;hit points
+800
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#fightpl
+@fight
+;name
+Maneating Plant
+;string said when you see him
+"MMMMM....FOOD!!!!"
+;power move kill string
+"Ah shit I killed my Maneating plant!" `2 you curse.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites your head off|10000
+rips you apart|10000
+chews you up|10000
+eats your insides|10000
+NONE|NONE
+;defense
+10000
+;gold reward
+100
+;experience
+10
+;hit points
+10000
+;if win: ref file|name or NONE
+HOUSE2.REF|WIN
+;if lose: ref file|name or NONE
+HOUSE2.REF|DEAD
+;if runs: ref file|name or NONE
+HOUSE2.REF|RUN
+
+@#NOMORE
+
diff --git a/xtrn/lord2/cnw/fgrave.ref b/xtrn/lord2/cnw/fgrave.ref
new file mode 100644
index 0000000000000000000000000000000000000000..df6ea68cc17a42056c6c4186447de0d5de6cd41e
--- /dev/null
+++ b/xtrn/lord2/cnw/fgrave.ref
@@ -0,0 +1,192 @@
+; Script file FGRAVE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:20 2001
+
+@DECLARE grave 000000288
+@DECLARE lango 000002190
+@DECLARE table 000003143
+@DECLARE guardian 000003491
+@DECLARE winguard 000004078
+@DECLARE nomore 000004443
+@NOCHECK
+; End of .REF index
+
+@#GRAVE
+@do moveback
+@dataload amulet.idf &playernum `p97
+@if `p97 is 3 then do
+ @begin
+ @do saybar
+`0Your father has been laid to rest thanks to you!
+ @closescript
+ @end
+
+@if `p97 is 2 then do
+ @begin
+ @show
+`r0`c `%`r1 Your father's grave `r0
+
+ `$You have done it!
+
+`k `2You hold up the amulet... the image of your father vanishes with a
+ smile. His last words are:
+
+ `$"Keep this amulet, I can rest in peace knowing you have it now"
+ `%YOU RECIEVE 250 QUEST POINTS AND 7,500 EXPERIENCE!
+`k
+@datasave amulet.idf &playernum 3
+ @do `p18 + 250
+ @do `p01 + 7500
+@do addlog
+ `r1 `r0 `0`n`% has laid his father to rest! `r1 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p97 is 1 then do
+ @begin
+ @show
+`r0`c `%`r1 Your father's grave `r0
+
+ `$Your task:
+
+ `2"Please son, please find the amulet! I will tell you a secret:
+ Go to GreenTree's Picnic Area and talk to a man named Lango. He
+ will have information reguarding the amulet you must get."
+`k
+@drawmap
+@update
+@closescript
+@end
+
+@if `p97 is 0 then do
+@show
+`r0`c `%`r1 Mysterious Grave `r0
+
+`k `2You approach the grave and read the scribblings on the stone.
+ Hey wait a minute...
+
+ `$THIS IS YOUR FATHER'S GRAVE!
+
+ `2As you step back in fear, a figure appears out of the darkness.
+ `3"Son.... you have finally come.... I.... I... I need you to do
+ do something for me..."
+ `4"What is that father?", you ask.
+ `3"You must retrieve my amulet and bring it back here for me...", he
+ explains
+ `4"Yes father, I will do my best", you respond as a tear rolls down
+ your cheak.
+`k
+@datasave amulet.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+
+@#LANGO
+@do `p70 is 20
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@dataload amulet.idf &playernum `p97
+@if `p97 is 1 then do
+ @begin
+ @show
+`r0`c `%`r1 LANGO `r0
+
+ `2"So you want to know where the amulet is eh? No problem.
+ Go west from PortTown along the beach until you see 2 islands to
+ the north of the beach. You can cross over the water and keep going
+ north. You will enter `$THE OLD DRAGON TOOTH TEMPLE`2. Once inside,
+ follow these directions from where your current STARTING position is:
+`k
+ `$5 steps up, 27 steps right and 3 steps down.
+
+ `2"You will find a secret passageway. But be warned, there are rumors
+ of a `3GUARDIAN `2guarding the Temple still. But i don't know where.
+ Just be careful...."
+`k
+@do moveback
+@drawmap
+@update
+@closescript
+@end
+
+@do saybar
+`$LANGO: `0"What the hell do you want???"
+ @closescript
+@end
+
+@#TABLE
+@dataload fgrave.idf &playernum `p97
+@if `p97 is 0 then do
+@begin
+@show
+`r0`c`r1 The AMULET! `r0
+
+ `2Before you stands a being guarding the amulet!
+ `2Your guessing he is the Temple Guardian!
+
+@key
+@run guardian in fgrave.ref
+@end
+@if `p97 more 0 then do
+@do saybar
+`%There is nothing on the table...
+@end
+
+@#Guardian
+@fight
+;name
+Temple Guardian
+;string said when you see him
+"This is gonna be EASY!" laughs the Guardian.
+;power move kill string
+You crush him like a recking ball!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+smacks you|250
+steps on you|225
+headbutts you|200
+lunges at you|175
+NONE|NONE
+;defense
+200
+;gold reward
+50000
+;experience
+25000
+;hit points
+1600
+;if win: ref file|name or NONE
+FGRAVE.REF|WINGUARD
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FGRAVE.REF|NOMORE
+
+@#WinGuard
+@busy
+@show
+`r0`c`r1 `%You Stand Victorious! `r0
+
+ `2You stand at the remains of your foe and smile. Not even
+ `2this monstosity could stop you.`L.`L.`L.
+
+ `%You get 15 gems!
+ You take the amulet!
+@key
+@datasave fgrave.idf &playernum 1
+@datasave amulet.idf &playernum 2
+@do `p19 + 15
+@drawmap
+@update
+@closescript
+
+@#nomore
+@drawmap
+@update
+@closescript
diff --git a/xtrn/lord2/cnw/figaro.ref b/xtrn/lord2/cnw/figaro.ref
new file mode 100644
index 0000000000000000000000000000000000000000..9f121b395c4dca035dfe854ae4080fcc46115d54
--- /dev/null
+++ b/xtrn/lord2/cnw/figaro.ref
@@ -0,0 +1,232 @@
+; Script file FIGARO.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:39 2001
+
+@DECLARE sign 000000528
+@DECLARE guard 000000564
+@DECLARE stair1 000000637
+@DECLARE stair2 000000693
+@DECLARE guard2 000000745
+@DECLARE guard3 000000832
+@DECLARE chancellor 000000942
+@DECLARE edgar 000001432
+@DECLARE edguard1 000002205
+@DECLARE edguard2 000002365
+@DECLARE sit 000002552
+@DECLARE bonetown 000002646
+@DECLARE inn 000003563
+@DECLARE girly 000004412
+@DECLARE girly1 000004585
+@NOCHECK
+; End of .REF index
+
+@#sign
+`7Figaro Castle `%--->
+
+@#guard
+@do saybar
+`0Guards: `2This is Figaro, the desert castle.
+
+@#stair1
+@do saybar
+`7<-- To Castle Mobility Area
+
+@#stair2
+@do saybar
+`7To Prison Cell Area -->
+
+@#guard2
+@do saybar
+`2I heard the DragonTooth Clan talking about the Red Dragon!
+
+@#guard3
+@do saybar
+`2The DragonTooth Clan has harnessed the Red Dragon's power. Who can stop them?
+
+@#chancellor
+@do `p70 is 90
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do moveback
+@clear screen
+@show
+
+`0 "The whole business of the succession was so repugnant to Sabin, the
+ King's brother that he fled the castle forever. The succession was
+ settled with a coin toss..." `2Chancellor explains.
+
+`$ "And I'm supose to give a damn!?" `2you say with a grin.
+
+`0 "Go away kid..."
+
+@key
+@drawmap
+@update
+@closescript
+@end
+
+@#edgar
+@do `p70 is 91
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do moveback
+@clear screen
+@if l2tree.dat exists true then do
+ @begin
+ @readfile l2tree.dat
+`s01
+ @end
+
+@if l2tree.dat exists false then do
+ @begin
+ @do `s01 is SECRET
+ @end
+
+@show
+
+
+`0 "Hiya there kid! So why did you decide to visit my humble
+ castle?" `2says King Edgar.
+
+`$ "For fun! Or anything that can help me on my quest!" `2you reply.
+
+`0 "Help!? I've heard that you can use the password
+ `%`s01`0 to enter some TreeHouse!"
+
+`$ "Thank you very much, that should be very helpful!"
+
+`2 You decide to leave the king alone for now.
+
+ @key
+ @drawmap
+ @update
+ @closescript
+@end
+
+@#edguard1
+@do `p70 is 92
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Guard: `2Feel free to wander around!
+@end
+
+@#edguard2
+@do `p70 is 93
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Guard: `2I've been protecting the King's life for several years now!
+@end
+
+@#sit
+@do saybar
+`7YOU DARE sit on the Queen's Thrown!? Even if there's no Queen!?
+
+@#bonetown
+@do moveback
+@clear screen
+@show
+
+`2 As you enter Figaro Castle, the guards grab you and throw you inside.
+
+`0 "Hurry up kid! This place is too borring, we're moving back closer
+ to PortTown, hope you don't mind!" `2the guard says.
+
+`$ "WHAT!? Hey what's going on!?" `2you scream out.
+
+`2 The castle starts rumbling, almost like there was a huge earthquake.
+ Soon the Castle stops and the guard greets you with a:
+
+`0 "Welcome to Figaro, the desert castle! Sorry for that, but we don't
+ like it when the Castle is located close to BoneTown, that renegade town
+ is insane, we'd rather live closer to PortTown, plus their desert is
+ alot bigger!" `2he says by giving you a smile.
+
+`2 You get up and pretend nothing ever happened...
+
+@key
+@loadmap 504
+@do map is 504
+@do x is 36
+@do y is 15
+@drawmap
+@update
+@closescript
+@end
+
+
+@#inn
+@do `v01 is 1
+@do moveback
+@clear screen
+@show
+`r0`c `%`r1 Figaro Castle Inn `r0
+
+ `2As you enter a room, you notice that you have stumbled upon
+ the local Inn of the castle.
+
+ A young lady approaches you with a smile.
+
+ `0"Welcome s&sir, how may I help you?"`2
+
+ You are holding `$$&money`2.
+
+@do write
+`x`x
+@choice
+Get a room (`$$50`%)
+Leave
+@if response is 1 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+`\`\`2 You are short on cash. Maybe next time you'll have the molla!
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`\ `2After giving the girl your money, you head inside...
+`\`k
+ @do money - 50
+ @do x is 37
+ @do y is 14
+ @do map is 423
+ @loadmap 423
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@drawmap
+@update
+
+@#girly
+@do `p70 is 94
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Forga: `2We hope you'll enjoy your stay at our Inn!
+@end
+
+@#girly1
+@do `p70 is 95
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Fatiguel: `2GO AWAY! Can't you see I'm trying to sleep!?
+@end
diff --git a/xtrn/lord2/cnw/figarol.ref b/xtrn/lord2/cnw/figarol.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c8880dcc5c76ba480d6c0a2b05c5fee5dedbd098
--- /dev/null
+++ b/xtrn/lord2/cnw/figarol.ref
@@ -0,0 +1,39 @@
+; Script file FIGAROL.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:39 2001
+
+@DECLARE man1 000000307
+@DECLARE sign 000000408
+@DECLARE book1 000000468
+@DECLARE book2 000000561
+@DECLARE book4 000000651
+@DECLARE stairs 000000753
+@DECLARE shutup 000000794
+@NOCHECK
+; End of .REF index
+
+@#man1
+@do saybar
+`0Librarian: `2Read books from `9Blue `2Shelves only! Everything else sucks!
+
+@#sign
+@do saybar
+`7QUIET PLEASE! This is a Library!
+
+@#book1
+@do saybar
+`7What the hell? Someone hid a `%PlayBoy `7in here... or did they!?
+
+@#book2
+@do saybar
+`7"`%The erotic adventures of Hercules`7"... a Disney Classic!!!
+
+@#book4
+@do saybar
+`7"`%The Guide To Cheat At LORD`7"... you don't have time to read this now!
+
+@#stairs
+@do saybar
+`%OUT OF ORDER
+
+@#shutup
+@do saybar
+`0Librarian: `2Be quiet! This is a library!
diff --git a/xtrn/lord2/cnw/figarop.ref b/xtrn/lord2/cnw/figarop.ref
new file mode 100644
index 0000000000000000000000000000000000000000..a18ee4bbef2b4e4e10455c422674654da8944d4d
--- /dev/null
+++ b/xtrn/lord2/cnw/figarop.ref
@@ -0,0 +1,177 @@
+; Script file FIGAROP.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:39 2001
+
+@DECLARE guy1 000000352
+@DECLARE guy2 000000409
+@DECLARE guy3 000000509
+@DECLARE guard 000001026
+@DECLARE huh 000001129
+@DECLARE wall 000001181
+@DECLARE moveman 000001284
+@DECLARE asa 000001882
+@DECLARE dont 000004262
+@NOCHECK
+; End of .REF index
+
+@#guy1
+@do saybar
+`0Man: `2Hey! Let us outta here!
+
+@#guy2
+@do saybar
+`0Man: `2I demand to see Edgar! How dare they keep us in this stinking pit!
+
+@#guy3
+@do moveback
+@clear screen
+@show
+
+`0 "Relax, they're just blowing off steam. But I'm telling you, there's
+ no sense keeping us here!" `2says the prisoner.
+
+`$ "How come!?"
+
+`0 "We're just small potatos compared to the real threat lurking out
+ there! And King Edgar knows it!"
+
+`$ "Have you ever picked up the soap!?"
+
+`0 "Of course I do! Why!? You never use soap when you take a shower!?"
+
+`$ "Nevermind..."
+
+@key
+@drawmap
+@update
+@closescript
+
+@#guard
+@do saybar
+`0Guard: `2These thieves have been terrorizing the vicinity. Stay away from'em!
+
+@#huh
+@do saybar
+`7Huh!? This cell is empty!
+
+@#wall
+@do saybar
+`2V`6o`8o`9D`0o`@o `%K`#n`!i`3g`4h`5T `4was here 1997!
+
+;movibility area
+
+@#moveman
+@clear screen
+@do `v01 is 1
+@offmap
+@do moveback
+@show
+
+`0 "Hello there! This is the Castle Movibility Area. At the moment we
+ can only move back and forth from the BoneTown Area to the PortTown
+ Area! Which ain't so bad if you think about it!" `2says the old man.
+
+`$ "So I can go from PortTown to BoneTown whenever I want!?"
+
+`0 "Yes!"
+
+`$ "Then whatcha waiting for!? Let's go!"
+
+`0 "No problem! That will be `$$100 `0if you don't mind!"
+
+`2 You give the old man an evil grin...
+
+ You are holding `$$&money`2.
+
+@do goto asa
+@#asa
+@do write
+`x`x
+@choice
+Go to BoneTown for `$$100
+Inquire about this "Moving Castle Whachamacalit"...
+Maybe next time! I gotta go!
+@if response is 1 then do
+ @begin
+ @if money < 100 then do
+ @begin
+ @show
+`\`\`2 Maybe when ya get da money, you'll GO TO BONETOWN!
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`\ `2You hand the greedy'ol bastard da money and wait... soon the castle
+ arrives at BoneTown (or kinda) and the old man gives you a wink.
+
+`0 "Come back anytime! Your wallet is welco... umm... I mean you are
+ welcome here anyday!"
+
+`$ "Ya right..."
+
+`\`k
+ @do money - 100
+ @do x is 44
+ @do y is 12
+ @do map is 1575
+ @loadmap 1575
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if response is 3 then do
+ @begin
+ @clear screen
+ @show
+
+`0 "That's too bad, plus I was giving you a big special! If you don't
+ go soon, I'll put the original price which is `$$1,000,000 `0!!!"
+
+`$ "I have legs, I can walk..."
+
+`0 "But do your legs have a Garanti that you'll survive from Monsters
+ or be safe from the DragonTooth Clan!? Castle Travelling is 100% safe!"
+
+`$ "But walking saves you $100 and you don't have an anoying and greedy
+ old man who's keeping his eyes all time at your money and waiting for
+ the perfect moment to take it..."
+
+`0 "You got a point there, I'll hire some guards to keep on eye on this
+ old man, maybe on your next visit it will be 100% safe!"
+
+`2 You decide to leave the old man by himself... confused...
+
+ @key
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if response is 2 then do
+ @begin
+ @clear screen
+ @show
+
+`0 "Figaro castle was built by an Incredible inventor, it's able to
+ compact itself in a moving vehicle that travels into Underground
+ tunnels and pops up where the ground is soft enough to come out
+ from... that is why you can locate us in almost any Desert! Sand is
+ very easy to come out of..."
+
+`$ "So this castle is like a Transformer!?"
+
+`0 "No, it cannot change into a big robot and do lotta cool stuff
+ that can only happen in cartoons... Figaro Castle is built only
+ to move from one side to another."
+
+`$ "That sucks..."
+
+ `0So you wanna go to BoneTown!?
+@do goto asa
+
+@#dont
+@do saybar
+`0Old Man: `2That's dangerous!
+@do moveback
diff --git a/xtrn/lord2/cnw/figaror.ref b/xtrn/lord2/cnw/figaror.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e6c2fc9f4b89dd5219b8bad6fcf48931b20a44eb
--- /dev/null
+++ b/xtrn/lord2/cnw/figaror.ref
@@ -0,0 +1,249 @@
+; Script file FIGAROR.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:39 2001
+
+@DECLARE poison 000000490
+@DECLARE fred 000000636
+@DECLARE book 000000973
+@DECLARE statue 000001941
+@DECLARE deadman 000002691
+@DECLARE howcome 000003727
+@DECLARE cool 000004706
+@DECLARE go 000005294
+@DECLARE dagger 000005429
+@DECLARE troy 000005903
+@DECLARE pod1 000005980
+@DECLARE pod2 000006073
+@DECLARE junk 000006175
+@DECLARE nothere 000006248
+@NOCHECK
+; End of .REF index
+
+@#poison
+@if `p02 is 1 then goto fred
+
+@do `p02 - 1
+@do saybar
+`%The air is quite `0toxic`%! You cough a little and lose `41 Hit Point`%.
+
+@#fred
+@clear screen
+@show
+
+`2 The air is getting a little too `0toxic `2for you to take! You hold
+ your breath and head out of the Laboratory for you know one more
+ minute in there could `4kill `2you!
+
+`l`l`l`l
+`k
+@loadmap 344
+@do map is 344
+@do x is 40
+@do y is 12
+@drawmap
+@update
+@closescript
+@end
+
+@#book
+@do moveback
+@clear screen
+@show
+
+`2 You grab a book called `0"Figaro's Secrets" `2!
+ You open the book to a Random Page... it is writin:
+
+`7 It comes only before,
+`7 It comes only after, `%@ @
+`7 Rises only in darkness, `%@ `7@
+`7 But rises only in light. `%@ @
+`7 It is always the same, `%@ @
+`7 But is yet always different.
+
+`7 What am I?
+
+ This famous Riddle was past down from generation to generation!
+ It was rumored that the inventor of Castle Figaro has hidden his
+ laboratory somewhere within the Castle. But no one was able to
+ find the entrance! Could this riddle have a clue?
+
+`7Figaro's Secrets..................................................Page 192
+@key
+@drawmap
+@update
+@closescript
+
+@#statue
+@do moveback
+@clear screen
+@show
+`\`\`2 You look at the Statue closely... for some reason, you have this
+ urge to say something to it...
+
+@do `s01 is moon
+@do write
+ `2You say:`x
+@do readstring 50 NIL `s02
+@do upcase `s01
+@do upcase `s02
+
+@if `s02 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Moon? The moon?" `2the statue says... soon a trap door opens in
+ front of you, deciding on what you should do next, the Chancellor
+ looks at you weirdly, without hesitation, you rush down the door!
+
+`k
+@loadmap 345
+@do map is 345
+@do x is 16
+@do y is 5
+@drawmap
+@update
+@closescript
+@end
+
+@show
+`\`\ `2Nothing happened!? DUH!!! It's a statue you dolt!
+
+`k
+@drawmap
+@update
+
+@#deadman
+@do moveback
+@clear screen
+@show
+[0m
+[6C [1;30m �[0m�[1m�[0m
+[6C [1;30m�[47m��� [37m�[40m�[0m
+[6C[1;30m��[0;31m�[37m�[1;30;47m�[0;30;47m�[31;40m�[1;37m��[0m
+[3C[31m����[1;30m�[41m�[47m�[0;30;47m�[1;37m�[41m�[40m�[0;31mܱ�[37m[5C[1;32m"Wazzup? Please talk with me! I'm very lonely!"[0m
+ [31m������[1;30m��[0;31m����۲��[37m
+[3C[31m������������۲��[37m
+[6C[31m�����������[37m
+[7C[31m��������[37m
+[0m
+
+`$ "What the hell!? A talking skull!?" `2you scream out.
+
+`0 "It's not my fault! I've been trapped here for several years
+ and the toxic gas mutated me and now I'm alive again... as an
+ undead skull of course!" `2he explains.
+
+@DO `V01 is 1
+@choice
+How come you died?
+Do you have any super cool powers?
+Sniff... sniff... this place smells! Gotta go!
+@if response is 1 then do
+ @begin
+ @do goto howcome
+ @end
+@if response is 2 then do
+ @begin
+ @do goto cool
+ @end
+@if response is 3 then do
+ @begin
+ @do goto go
+ @end
+
+@#howcome
+@clear screen
+@show
+
+`0 "A long time ago, I designed this whole castle and my Laboratory
+ used to be the Main Engine room. But there was an accident and the
+ engine exploded, toxic liquid made out of Behemoth blood spilled
+ all over the room! But stupid me, I never told anyone about the
+ location of my Laboratory, so I died of Intoxication... but as the
+ years past by, I was revived by the gas... soon I hope to evolve
+ into a Humanoid type form, first I was a Rat, then a skull... what
+ could be next!?" `2he explains...
+
+`$ "I hope I won't mutate into something as ugly as you are because
+ I'm wasting my time listening to your life story!" `2you say with
+ a grin.
+
+`0 "You don't need Toxic Gases to turn yourself into a ugly freak...
+ you already look enough like one!" `2the skull says with a grin.
+
+`2 You decide to leave the loner alone...
+@key
+@drawmap
+@update
+@closescript
+
+@#cool
+@clear screen
+@show
+
+`$ "Do you have any super cool powers!?" `2you ask.
+
+`0 "I can make pathetic anoying kids who bother Mutated Skulls go
+ away!" `2the skull replies.
+
+`$ "COOL! Could you gimme a demonstration!?" `2you ask with a smile!
+
+`0 "My pleasure..." `2the skull says and remains immobilized.
+
+`$ "Why aren't you talking anymore!? Hello? Skull... damn he must be
+ dead..." `2you ask by leaving the skull alone...
+
+`2 As you head away from it, you hear a little laugh...
+@key
+@drawmap
+@update
+@closescript
+
+@#go
+@clear screen
+@show
+
+`2 You decide to stay away from the talking skull...
+@key
+@drawmap
+@update
+@closescript
+
+@#dagger
+@do moveback
+@if `p49 is 1 then goto troy
+@clear screen
+@show
+
+`2 You find a dagger lying on the floor, it seems to be glowing with
+ a strange green light...
+
+`$ "Wow! After years of being exposed to Toxis Gases, this normal
+ lame Dagger is now a `0POISON DAGGER`$!!!" `2you say in an excited
+ voice.
+
+`% YOU NOW OWN A POISON DAGGER!
+
+@do `p49 is 1
+@do `i49 + 1
+@key
+@drawmap
+@update
+@closescript
+
+@#troy
+@do saybar
+`7One `0Poison Dagger `7is good enough if ya ask me!
+
+@#pod1
+@do saybar
+`7This containment pod seems to be carrying a human male... strange!
+
+@#pod2
+@do saybar
+`7The containment pod is carrying a strange female dressed in royal clothing!
+
+@#junk
+@do saybar
+`7You strugle your way into the pile of junk.
+
+@#nothere
+@do saybar
+`7Not implemented in this version yet.
diff --git a/xtrn/lord2/cnw/fight.ref b/xtrn/lord2/cnw/fight.ref
new file mode 100644
index 0000000000000000000000000000000000000000..4ab220f8610235c45e1f342be1a86993e39c6307
--- /dev/null
+++ b/xtrn/lord2/cnw/fight.ref
@@ -0,0 +1,769 @@
+; Script file FIGHT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:13 2001
+
+@DECLARE monster20 000001053
+@DECLARE monster21 000001638
+@DECLARE monster22 000002227
+@DECLARE monster1 000002881
+@DECLARE monster2 000003509
+@DECLARE monster3 000004121
+@DECLARE monster4 000004719
+@DECLARE monster5 000005302
+@DECLARE monster6 000005961
+@DECLARE monster7 000006568
+@DECLARE monster11 000007169
+@DECLARE monster15 000007827
+@DECLARE getegg 000008373
+@DECLARE win 000008473
+@DECLARE findmoney 000008508
+@DECLARE findkid 000008617
+@DECLARE findbird 000009388
+@DECLARE event 000010244
+@DECLARE sbrook 000010768
+@DECLARE fiteme3 000011445
+@DECLARE elf 000011512
+@DECLARE cave 000012194
+@DECLARE desert 000012824
+@DECLARE fiteme 000013538
+@NOCHECK
+; End of .REF index
+
+;This files contains enemy people/creatures for the 1st part of the game.
+
+;NOTE: This file has been modified by ShroomTrip Software. Please read the
+; Sysop.Doc that came with this file to determine what changes have been
+; made.
+
+
+@#monster20
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Tiny Scorpion
+;string said when you see him
+Something crawls up your leg...
+;power move kill string
+You laugh as the tiny thing burns in the sand.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+stings you|44
+pinches you|25
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+15
+;gold reward
+76
+;experience
+54
+;hit points
+64
+;if win: ref file|name or NONE
+FIGHT.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+@#monster21
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Giant Scorpion
+;string said when you see him
+Something pinches a toe?!
+;power move kill string
+You carefully bury the mammoth beast in the sand.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+stings you for|74
+pinches you|34
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+42
+;gold reward
+215
+;experience
+196
+;hit points
+89
+;if win: ref file|name or NONE
+FIGHT.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+@#monster22
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Sand Worm
+;string said when you see him
+The sand in front of you begins to move
+;power move kill string
+`$"Go in the ground and stay there," `2 you command.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+draws blood with its teeth|43
+wraps around & squeezes you legs|14
+gets ahold with his sucker|27
+NONE|NONE
+NONE|NONE
+;defense
+12
+;gold reward
+0
+;experience
+189
+;hit points
+102
+;if win: ref file|name or NONE
+FIGHT.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+
+@#monster1
+@do move `p25 `p26
+@do write
+`6`r0
+@fight
+;name
+Wild Boar
+;string said when you see him
+You notice a shaking in the bushes... A wild boar charges!
+;power move kill string
+The wild squeals of the small animal finally stop.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+jabs you with its tusks|4
+bites you|2
+painfully prods you|2
+NONE|NONE
+NONE|NONE
+;defense
+0
+;gold reward
+2
+;experience
+3
+;hit points
+7
+;if win: ref file|name or NONE
+FIGHT.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+@#monster2
+@do move `p25 `p26
+@do write
+`$`r0
+@fight
+;name
+Rabid Dog
+;string said when you see him
+A large yellow dog appears - snarling viciously at you.
+;power move kill string
+You've cured this dog of its disease.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+bites you|3
+bites a leg|4
+chomps your hand|4
+gnaws your ankle|4
+snacks on you|3
+;defense
+0
+;gold reward
+3
+;experience
+3
+;hit points
+8
+;if win: ref file|name or NONE
+FIGHT.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+@#monster3
+@do move `p25 `p26
+@do write
+`6`r0
+@fight
+;name
+Grizzly Bear
+;string said when you see him
+A bear on its hind legs roars at you.
+;power move kill string
+Time to grin and bear it.. Haw!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+bites you|4
+bites a leg|4
+chomps your hand|2
+gnaws your ankle|3
+`bbear hugs`2 you|6
+;defense
+0
+;gold reward
+7
+;experience
+6
+;hit points
+13
+;if win: ref file|name or NONE
+FIGHT.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+
+@#monster4
+@do move `p25 `p26
+@do write
+`6`r0
+@fight
+;name
+Armored Hedge Hog
+;string said when you see him
+A tiny brown thing shoots between your legs!
+;power move kill string
+Sonic he ain't.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites your toes|2
+prickles you|5
+rolls over your feet|2
+NONE|NONE
+NONE|NONE
+;defense
+7
+;gold reward
+6
+;experience
+5
+;hit points
+9
+;if win: ref file|name or NONE
+FIGHT.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+@#monster5
+@do move `p25 `p26
+@do write
+`!`r0
+@fight
+;name
+Farmer Joe
+;string said when you see him
+`0"Hey you! Kid! Were you the one stealing my apples?!
+;power move kill string
+Looks like Joe got the whuppin' he had coming...
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+throws a pitchfork|5
+yells with a redneck accent|2
+opens a can 'o whup-ass|7
+uses a southern drawl|5
+NONE|NONE
+;defense
+4
+;gold reward
+7
+;experience
+6
+;hit points
+13
+;if win: ref file|name or NONE
+FIGHT.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+
+@#monster6
+@do move `p25 `p26
+@do write
+`$`r0
+@fight
+;name
+Tabby Cat
+;string said when you see him
+What's that? A child crying? Nope, a cat in heat.
+;power move kill string
+9 lives he'll need now... Haw!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+scratches your face|6
+sharpens his claws|3
+sprays your legs for|2
+NONE|NONE
+NONE|NONE
+;defense
+2
+;gold reward
+2
+;experience
+5
+;hit points
+6
+;if win: ref file|name or NONE
+FIGHT.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+@#monster7
+@do move `p25 `p26
+@do write
+`$`r0
+@fight
+;name
+Angry Hen
+;string said when you see her
+Something starts pecking on your foot?
+;power move kill string
+This fowl shall never cluck again.
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+pecks you|5
+lays an egg on your leg|3
+flaps at you crazily|2
+NONE|NONE
+NONE|NONE
+;defense
+0
+;gold reward
+1
+;experience
+2
+;hit points
+2
+;if win: ref file|name or NONE
+FIGHT.REF|GETEGG
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+
+
+@#monster11
+@do move `p25 `p26
+@do write
+`$`r0
+@fight
+;name
+Small Tree Elf
+;string said when you see him
+A tiny bow pokes out from between some leaves!
+;power move kill string
+You pick up the tiny body and throw it back into the woods. Haw!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits you with an arrow|8
+throws a small dagger at you|7
+throws a rock at you|4
+NONE|NONE
+NONE|NONE
+;defense
+3
+;gold reward
+11
+;experience
+12
+;hit points
+15
+;if win: ref file|name or NONE
+FIGHT.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+@#monster15
+@do move `p25 `p26
+@do write
+`$`r0
+@fight
+;name
+Bat
+;string said when you see him
+Something flaps in your face!
+;power move kill string
+You fling the bat against a wall.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|3
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+0
+;gold reward
+6
+;experience
+3
+;hit points
+8
+;if win: ref file|name or NONE
+FIGHT.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHT.REF|WIN
+
+@#GETEGG
+@do QUEBAR
+You find an egg from within the chicken entrails!
+@do `i43 + 1
+@do goto win
+
+@#WIN
+;@drawmap
+@update
+
+@#findmoney
+@do `p20 random 20 1
+@do money + `p20
+@do saybar
+`2You find a pouch with `$$`p20`2 in it!
+
+
+@#findkid
+@do `v01 is 1
+@if `i11 > 0 then do
+ @begin
+ @closescript
+ @end
+@busy
+@show
+`r0`c `%`r1 TRAVELING EVENT `r0
+
+`2 You come across a small girl - she couldn't be older than twelve. She
+ is crying. `0"S&sir, will you take me home?" `2she asks, pitifully.
+
+@do write
+`x`x
+@choice
+Agree to take her home, wherever that might be.
+Leave her here to rot.
+@if response is 2 then do
+ @begin
+ @show
+
+
+ `$"Sorry little girl, find your own way home. Haw!" `2you tell her.
+ `%Your alignment goes down by 1.
+`k
+@do `p07 - 1
+ @end
+
+@if response is 1 then do
+ @begin
+ @do `i11 is 1
+ @show
+
+
+ `2You agree to take her home. She says her mother is waiting for her
+ at the Red Dragon Inn.
+
+`k
+ @end
+@drawmap
+@update
+
+@#findbird
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2A bird flies near you. Hit it with a stone? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is N then do
+ @begin
+ @do saybar
+The bird flies west.
+ @closescript
+ @end
+
+@if `p09 is 1 then do
+ @begin
+ @do `p20 random 2 1
+ @if `p20 is 1 then do
+ @begin
+ @do saybar
+`2The stone misses. The bird gets away.
+ @closescript
+ @end
+ @end
+
+@if l2tree.dat exists true then do
+ @begin
+ @readfile l2tree.dat
+`s01
+ @end
+
+@if l2tree.dat exists false then do
+ @begin
+ @do `s01 is SECRET
+ @end
+
+@show
+`r0`c `r1 Your aim was true `r0
+
+`2 The bird falls to the earth.
+
+`k `2There is a note with the following written on it:
+
+ `0"The treehouse password is `%`s01`0"
+
+`k
+ @drawmap
+ @update
+ @closescript
+
+@#event
+@do `p20 random 5 1
+@if `p20 is 1 then goto findkid
+@if `p20 is 2 then goto findmoney
+@if `p20 is 3 then goto findbird
+@if `p20 is 4 then do
+ @begin
+ @dataload taxes.idf &playernum `p21
+ @if `p21 > 0 then do
+ @begin
+ @run taxes in genran2.ref
+ @end
+ @do goto event
+ @end
+
+@if `p20 is 5 then do
+ @begin
+ @if `p96 < 6 then do ;can't find any npc's if player is drunk.
+ @begin
+ @run npcfind in genran2.ref
+ @end
+ @run drunk in genran2.ref
+ @end
+
+@#sbrook
+@do `p20 random 4 1
+@if `p20 is 1 then goto event
+
+@busy
+@do `p21 random 4 1
+@if `p21 is 1 then do
+ @begin
+ @do `p25 is X
+ @do `p25 + 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme3
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do `p25 is X
+ @do `p25 - 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme3
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 - 1
+ @do goto fiteme3
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 + 1
+ @do goto fiteme3
+ @end
+
+@#fiteme3
+@do write
+`'
+@do `p20 random 7 1
+@do goto monster`p20
+
+@#elf
+@do `p20 random 4 1
+@if `p20 is 1 then goto event
+
+@busy
+@do `p21 random 4 1
+@if `p21 is 1 then do
+ @begin
+ @do `p25 is X
+ @do `p25 + 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto monster11
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do `p25 is X
+ @do `p25 - 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto monster11
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 - 1
+ @do goto monster11
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 + 1
+ @do goto monster11
+ @end
+
+@#cave
+@busy
+@do `p21 random 4 1
+@if `p21 is 1 then do
+ @begin
+ @do `p25 is X
+ @do `p25 + 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto monster15
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do `p25 is X
+ @do `p25 - 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto monster15
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 - 1
+ @do goto monster15
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 + 1
+ @do goto monster15
+ @end
+
+@#desert
+@busy
+@do `p20 random 4 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+
+@do `p21 random 4 1
+@if `p21 is 1 then do
+ @begin
+ @do `p25 is X
+ @do `p25 + 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do `p25 is X
+ @do `p25 - 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 - 1
+ @do goto fiteme
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 + 1
+ @do goto fiteme
+ @end
+
+@#fiteme
+@do `p20 random 3 20
+@do goto monster`p20
+
+NO@#MORE
diff --git a/xtrn/lord2/cnw/fightne.ref b/xtrn/lord2/cnw/fightne.ref
new file mode 100644
index 0000000000000000000000000000000000000000..0a0bd93961bbf0562439e0d1315a1267222c4ba8
--- /dev/null
+++ b/xtrn/lord2/cnw/fightne.ref
@@ -0,0 +1,414 @@
+; Script file FIGHTNE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:16 2001
+
+@DECLARE monster1 000000668
+@DECLARE monster2 000001277
+@DECLARE monster3 000001895
+@DECLARE monster4 000002540
+@DECLARE monster5 000003176
+@DECLARE monster6 000003824
+@DECLARE monster7 000004443
+@DECLARE monster8 000005055
+@DECLARE monster9 000005701
+@DECLARE monster10 000006395
+@DECLARE fight 000007057
+@DECLARE fiteme 000007764
+@DECLARE win 000007817
+@NOCHECK
+; End of .REF index
+
+;NOTE: This file has been modified by ShroomTrip Software. Please read the
+; Sysop.Doc that came with this file to determine what changes have been
+; made.
+
+@#monster1
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Nibbet
+;string said when you see him
+A little hairy ball attaches itself to your leg.
+;power move kill string
+Let's just hope it didn't breed nearby...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+gives you a rash|18
+squeezes your crotch|25
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+34
+;gold reward
+89
+;experience
+122
+;hit points
+50
+;if win: ref file|name or NONE
+FIGHTNE.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster2
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Himmel Clan Member
+;string said when you see him
+`0"Die, pagan!" `2a man in a robe screams.
+;power move kill string
+He eerily smiles as you take his life.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+burns you with his cross|76
+curses you|56
+cuts your arm|45
+NONE|NONE
+NONE|NONE
+;defense
+9
+;gold reward
+186
+;experience
+98
+;hit points
+312
+;if win: ref file|name or NONE
+FIGHTNE.REF|WIN
+;if lose: ref file|name or NONE
+STONEP.REF|THIEF
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster3
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Morphing Rabbit
+;string said when you see him
+The bush in front of you begins to move.
+;power move kill string
+The thing has just had its last transformation.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+springs at your neck|98
+morphs into a lion and bites|87
+morphs into a mosquito|27
+NONE|NONE
+NONE|NONE
+;defense
+23
+;gold reward
+32
+;experience
+189
+;hit points
+203
+;if win: ref file|name or NONE
+FIGHTNE.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster4
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Triceratops
+;string said when you see him
+Some kind of large lizard with horns is charging you.
+;power move kill string
+It's actually still breathing, but who has time to kill everything?
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+charges you|87
+bores you|76
+tramples you|92
+NONE|NONE
+NONE|NONE
+;defense
+43
+;gold reward
+87
+;experience
+190
+;hit points
+100
+;if win: ref file|name or NONE
+FIGHTNE.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster5
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Hairy Yak
+;string said when you see him
+Something standing in a field nearby is making noises at you.
+;power move kill string
+Poor thing, they are gonna be extinct soon at this rate.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+sits on on|70
+falls on you|80
+attempts to sleep on you|60
+rams you|55
+NONE|NONE
+;defense
+32
+;gold reward
+145
+;experience
+146
+;hit points
+130
+;if win: ref file|name or NONE
+FIGHTNE.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster6
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Evil Pixie
+;string said when you see him
+A tiny little body floats down in front of you, scowling.
+;power move kill string
+Squish. Need you do more?
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+tickles your nose|76
+buzzes your ear|87
+kicks you in the shin|120
+NONE|NONE
+NONE|NONE
+;defense
+80
+;gold reward
+525
+;experience
+245
+;hit points
+2
+;if win: ref file|name or NONE
+FIGHTNE.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster7
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Dark Spirit
+;string said when you see him
+A shadow moves towards you with lightning speed.
+;power move kill string
+You showed it the light.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+grabs your heart|79
+engulfs you in darkness|90
+attacks your soul|112
+NONE|NONE
+NONE|NONE
+;defense
+35
+;gold reward
+1
+;experience
+135
+;hit points
+120
+;if win: ref file|name or NONE
+FIGHTNE.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster8
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Kung-Fu Warrior
+;string said when you see him
+`0"Grasshopper, I must fight you." `2you hear.
+;power move kill string
+`$"Better go back to the Dojo Wang."
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+judo chops at you neck|85
+throws a fireball|97
+uses his ninja throwing stars|`p04
+NONE|NONE
+NONE|NONE
+;defense
+`p05
+;gold reward
+1650
+;experience
+210
+;hit points
+`p03
+;if win: ref file|name or NONE
+FIGHTNE.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster9
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Crazed Beaver
+;string said when you see him
+`2You hear a rustling in the bushes that's coming closer.
+;power move kill string
+`$"Never thought I'd meet a beaver I didn't like."
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+gnaws at your legs|76
+makes big claw marks in your back|90
+calls upon his nature friends to help|105
+eats part of you|97
+NONE|NONE
+;defense
+40
+;gold reward
+100
+;experience
+130
+;hit points
+100
+;if win: ref file|name or NONE
+FIGHTNE.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster10
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Crystaline Entity
+;string said when you see him
+`2Something floating like that can't be from this world.
+;power move kill string
+`2I should've come here either.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+uses some form of energy attack|82
+hits with some kind of beam|94
+inverses its polarity at you|107
+NONE|NONE
+NONE|NONE
+;defense
+38
+;gold reward
+350
+;experience
+165
+;hit points
+130
+;if win: ref file|name or NONE
+FIGHTNE.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#FIGHT
+@do `p20 random 12 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@busy
+@do `p21 random 4 1
+@if `p21 is 1 then do
+ @begin
+ @do `p25 is X
+ @do `p25 + 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do `p25 is X
+ @do `p25 - 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 - 1
+ @do goto fiteme
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 + 1
+ @do goto fiteme
+ @end
+
+@#fiteme
+@do `p20 random 10 1
+@do goto monster`p20
+
+@#WIN
+;@drawmap
+@update
diff --git a/xtrn/lord2/cnw/fightnw.ref b/xtrn/lord2/cnw/fightnw.ref
new file mode 100644
index 0000000000000000000000000000000000000000..075a0077890a4bf33f3e15a9c423eb446d1ed5a8
--- /dev/null
+++ b/xtrn/lord2/cnw/fightnw.ref
@@ -0,0 +1,385 @@
+; Script file FIGHTNW.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:16 2001
+
+@DECLARE monster1 000000638
+@DECLARE monster2 000001282
+@DECLARE monster3 000001881
+@DECLARE monster4 000002534
+@DECLARE monster5 000003230
+@DECLARE monster6 000003911
+@DECLARE monster7 000004552
+@DECLARE monster8 000005169
+@DECLARE monster9 000005803
+@DECLARE fight 000006440
+@DECLARE fiteme 000007147
+@DECLARE win 000007199
+@NOCHECK
+; End of .REF index
+
+;NOTE: This file has been modified by ShroomTrip Software. Please read the
+; Sysop.Doc that came with this file to determine what changes have been
+; made.
+
+@#monster1
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+DoppelGanger
+;string said when you see him
+You come upon a small grey creature that suddenly takes your shape!
+;power move kill string
+You find a new respect for yourself...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+hits with its s&weapon|87
+pounces you|72
+lays down the smack|92
+NONE|NONE
+NONE|NONE
+;defense
+38
+;gold reward
+100
+;experience
+110
+;hit points
+`p02
+;if win: ref file|name or NONE
+FIGHTNW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster2
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Giant Bird
+;string said when you see him
+That bird up there looks pretty big.
+;power move kill string
+Yea, go ahead and fly now buddy.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+pecks at your eyes|80
+claws you|67
+tries to pick you up|90
+NONE|NONE
+NONE|NONE
+;defense
+25
+;gold reward
+175
+;experience
+180
+;hit points
+180
+;if win: ref file|name or NONE
+FIGHTNW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster3
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Bounty Hunter
+;string said when you see him
+`0"Hey I bet there's a price on your head." `2 you hear.
+;power move kill string
+He should do better research.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+smacks you with his crossbow|87
+hits with his longsword|`p04
+stabs hard with a dagger|54
+NONE|NONE
+NONE|NONE
+;defense
+`p05
+;gold reward
+2600
+;experience
+154
+;hit points
+`p03
+;if win: ref file|name or NONE
+FIGHTNW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster4
+@do `p28 is `p03
+@do `p28 * 3
+@do `p29 is `p04
+@do `p29 / 9
+@do `p29 * 7
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Roaming Mob
+;string said when you see him
+`0"Hey there s&he is!" `2 you hear.
+;power move kill string
+Just go away you losers!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+chase you down|80
+use their pitchforks and shovels on you|`p29
+let loose the dogs|78
+NONE|NONE
+NONE|NONE
+;defense
+30
+;gold reward
+880
+;experience
+170
+;hit points
+`p28
+;if win: ref file|name or NONE
+FIGHTNW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster5
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Angry Mage
+;string said when you see him
+`2You see a light up ahead, of a fireball headed towards you.
+;power move kill string
+Magic is how long it took me to kick your ass!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+throws a fireball|85
+throws a iceball|100
+calls upon the dead|79
+throws lightning at you|105
+smacks you with his staff|81
+;defense
+27
+;gold reward
+201
+;experience
+156
+;hit points
+480
+;if win: ref file|name or NONE
+FIGHTNW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster6
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Lost Gladiator
+;string said when you see him
+`0"Hey, have you seen Hawk or Ice?" `2you hear.
+;power move kill string
+`$"I am the greatest!"
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+nails you with a tennis ball|87
+wrestles you down|102
+smashes you with a stick|76
+talks smack to you|88
+NONE|NONE
+;defense
+32
+;gold reward
+250
+;experience
+160
+;hit points
+940
+;if win: ref file|name or NONE
+FIGHTNW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster7
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Shawn
+;string said when you see him
+`0"My 90 is just as fast as your 133!" `2 you hear.
+;power move kill string
+`$"Over Clock this!"`2
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+smacks you with his keyboard|80
+give you a virus|78
+blows up your chopper|97
+NONE|NONE
+NONE|NONE
+;defense
+33
+;gold reward
+130
+;experience
+160
+;hit points
+210
+;if win: ref file|name or NONE
+FIGHTNW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster8
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Rogue Officer
+;string said when you see him
+`0"I could help you, but ..." `2 you hear.
+;power move kill string
+So that's the way the man's gonna be?
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits with him mace|85
+boots you in the head|99
+nails you with a poison dart|105
+NONE|NONE
+NONE|NONE
+;defense
+25
+;gold reward
+110
+;experience
+156
+;hit points
+330
+;if win: ref file|name or NONE
+FIGHTNW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+@#monster9
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Mercenary
+;string said when you see him
+`0"I'm looking for a war ..."
+;power move kill string
+`$"Looks like he was pressed for time."
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+jabs you with his spear|97
+connects with his morning star|105
+rams his spear through your arm|115
+NONE|NONE
+NONE|NONE
+;defense
+27
+;gold reward
+360
+;experience
+166
+;hit points
+520
+;if win: ref file|name or NONE
+FIGHTNW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTNE.REF|WIN
+
+
+@#FIGHT
+@do `p20 random 12 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@busy
+@do `p21 random 4 1
+@if `p21 is 1 then do
+ @begin
+ @do `p25 is X
+ @do `p25 + 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do `p25 is X
+ @do `p25 - 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 - 1
+ @do goto fiteme
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 + 1
+ @do goto fiteme
+ @end
+
+@#fiteme
+@do `p20 random 9 1
+@do goto monster`p20
+
+@#WIN
+;@drawmap
+@update
diff --git a/xtrn/lord2/cnw/fightsw.ref b/xtrn/lord2/cnw/fightsw.ref
new file mode 100644
index 0000000000000000000000000000000000000000..df2457b826a6f081bbebe32f7f0199e20010e1e5
--- /dev/null
+++ b/xtrn/lord2/cnw/fightsw.ref
@@ -0,0 +1,491 @@
+; Script file FIGHTSW.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:15 2001
+
+@DECLARE fight 000000913
+@DECLARE fiteme 000001620
+@DECLARE monster1 000001678
+@DECLARE monster2 000002344
+@DECLARE monster3 000002954
+@DECLARE monster4 000003665
+@DECLARE monster5 000004307
+@DECLARE monster6 000004929
+@DECLARE monster7 000005585
+@DECLARE monster8 000006293
+@DECLARE monster9 000006963
+@DECLARE monster10 000007735
+@DECLARE monster11 000008348
+@DECLARE monster12 000008981
+@DECLARE win 000009545
+@DECLARE done 000009575
+@NOCHECK
+; End of .REF index
+
+;some monsters for the West Coast of the 1st continent, they are a bit
+;tougher than most ones. Around BoneTown & FlagCity up to the Desert
+;and Snowy Pass.
+
+;NOTE: This file has been modified by ShroomTrip Software. Please read the
+; Sysop.Doc that came with this file to determine what changes have been
+; made.
+
+@#fight
+@busy
+@do `p20 random 10 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@do `p21 random 4 1
+@if `p21 is 1 then do
+ @begin
+ @do `p25 is X
+ @do `p25 + 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do `p25 is X
+ @do `p25 - 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 - 1
+ @do goto fiteme
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 + 1
+ @do goto fiteme
+ @end
+
+@#fiteme
+@do `p20 random 12 1
+@do goto monster`p20
+
+@#monster1
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Highway Raider
+;string said when you see him
+`0"Put down your arms and no one gets hurt!" `2you hear from behind.
+;power move kill string
+You carefully step over the lifeless Rogue's body.. hehe!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+punches you|58
+backstabs you|83
+hits you with a poison dart|78
+clubs you|67
+NONE|NONE
+;defense
+10
+;gold reward
+155
+;experience
+180
+;hit points
+90
+;if win: ref file|name or NONE
+FIGHTSW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTSW.REF|WIN
+
+@#monster2
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Rabid Tiger
+;string said when you see him
+You hear a hoarse deep growl around the rock ahead.
+;power move kill string
+Stay kitty stay!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+rips off part of your arm|73
+bats you hard with a paw|85
+charges you|105
+NONE|NONE
+NONE|NONE
+;defense
+20
+;gold reward
+97
+;experience
+96
+;hit points
+78
+;if win: ref file|name or NONE
+FIGHTSW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTSW.REF|WIN
+
+@#monster3
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Hill Dwarf
+;string said when you see him
+You see a small hyperactive looking dwarf approaching.
+;power move kill string
+`$"Twikie from Buck Rodgers called, he want's his double back," `2you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+hits you with a bone club|60
+wields his battle axe at you|75
+shouts plenty of obscenities|78
+kicks your knees, hard|69
+NONE|NONE
+;defense
+12
+;gold reward
+145
+;experience
+135
+;hit points
+103
+;if win: ref file|name or NONE
+FIGHTSW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTSW.REF|WIN
+
+@#monster4
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Rock Golem
+;string said when you see him
+A large stone sprouts legs and lunges at you!
+;power move kill string
+You rock out with a swing of your s&weapon & split it in two.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+pounds your foot|40
+throws its arm at your head|56
+rocks out|43
+NONE|NONE
+NONE|NONE
+;defense
+30
+;gold reward
+234
+;experience
+365
+;hit points
+380
+;if win: ref file|name or NONE
+FIGHTSW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTSW.REF|WIN
+
+@#monster5
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Lost Monkey
+;string said when you see him
+`0"Oo oo oo," `2you hear from behind.
+;power move kill string
+`2Bad monkey, boy did you spank him!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+twists your arm|60
+sweeps your feet|65
+bites at your finger|50
+whips you with his tail|70
+NONE|NONE
+;defense
+2
+;gold reward
+23
+;experience
+30
+;hit points
+34
+;if win: ref file|name or NONE
+FIGHTSW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTSW.REF|WIN
+
+@#monster6
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Sir Beavis
+;string said when you see him
+`0"Halt, heir person, or like ... uh something," `2you hear from behind.
+;power move kill string
+That knight guy ... really sucked.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hears voices|68
+slams you with his warhammer|78
+lays the smack down|89
+has a seizure|90
+NONE|NONE
+;defense
+37
+;gold reward
+243
+;experience
+289
+;hit points
+145
+;if win: ref file|name or NONE
+FIGHTSW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTSW.REF|WIN
+
+@#monster7
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Still Lost Knight
+;string said when you see him
+`0"Halt you too must be an enemy of this land," `2says a confused voice.
+;power move kill string
+`$"I thought you found your way home last time?" `2you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+breaks his club on your face|70
+hits with his broadsword|86
+bludgeons you|69
+stabs with a hidden dagger|68
+NONE|NONE
+;defense
+22
+;gold reward
+232
+;experience
+210
+;hit points
+87
+;if win: ref file|name or NONE
+FIGHTSW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTSW.REF|WIN
+
+@#monster8
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Giant Snake
+;string said when you see him
+You see what you thought was a big log move and hiss at you!
+;power move kill string
+My anaconda don't want none unless it's got buns hun.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+inject about a liter of venom into you|78
+squeezes you|60
+gets a bite of your arm|67
+NONE|NONE
+NONE|NONE
+;defense
+14
+;gold reward
+187
+;experience
+102
+;hit points
+65
+;if win: ref file|name or NONE
+FIGHTSW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTSW.REF|WIN
+
+@#monster9
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Future Warrior
+;string said when you see him
+`0"I'm afraid I have to take you back with me," `2you hear from behind.
+;power move kill string
+`$"I'm not going back with you," `2you scream .
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+blasts you with his laser|100
+gets lock on you with a beam of some kind|95
+uses his proton launcher|110
+launches a flying explosive thing at you|`p04
+calls for an airstrike from his Mauler|`p04
+;defense
+`p05
+;gold reward
+600
+;experience
+290
+;hit points
+`p03
+;if win: ref file|name or NONE
+FIGHTSW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTSW.REF|WIN
+
+@#monster10
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Giant Worm
+;string said when you see him
+There's an awfully big tube hangin out of that carcus.
+;power move kill string
+No way you're getting worms.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+touches you|67
+gets slime on you|60
+attaches to your leg|70
+NONE|NONE
+NONE|NONE
+;defense
+12
+;gold reward
+99
+;experience
+98
+;hit points
+112
+;if win: ref file|name or NONE
+FIGHTSW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTSW.REF|WIN
+
+@#monster11
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Oversized Hawk
+;string said when you see him
+A rather large shadow passes overhead.
+;power move kill string
+Put em on the endagered species list.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+gashes away some flesh|65
+buries its beak in your shoulder|60
+lands on your head|67
+NONE|NONE
+NONE|NONE
+;defense
+10
+;gold reward
+88
+;experience
+67
+;hit points
+50
+;if win: ref file|name or NONE
+FIGHTSW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTSW.REF|WIN
+
+@#monster12
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Stray Cow
+;string said when you see him
+A loud `0"Moo" `2comes from up ahead!
+;power move kill string
+Got Milk?
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+moos at you|55
+kicks you|60
+milks you for a change|67
+NONE|NONE
+NONE|NONE
+;defense
+12
+;gold reward
+46
+;experience
+143
+;hit points
+45
+;if win: ref file|name or NONE
+FIGHTSW.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+FIGHTSW.REF|WIN
+
+@#WIN
+;@drawmap
+@update
+
+@#done
diff --git a/xtrn/lord2/cnw/finger.ans b/xtrn/lord2/cnw/finger.ans
new file mode 100644
index 0000000000000000000000000000000000000000..0389d2a628c2206df56566d5f583a7b558f1836b
--- /dev/null
+++ b/xtrn/lord2/cnw/finger.ans
@@ -0,0 +1,22 @@
+[40m[2J[38C[0;1;31m��
+[36C��[37m��[0;31m��
+[36C[1m�[37m���[0m�[31m�
+[36C[1m��[37m�[0m�[31m��
+[37C[1m���[41m [40m
+[36C����[41m�[0;31m�
+[36C[1m�����[41m [40m
+[36C����[41m�[0;31m�
+[37C[1m���[0;31m�
+[25C[1m���[41m�[0;31m� [1m���[41m�[0;31m�[1m����[41m�[0;31m�[1m���[41m�[0;31m� [1m����[37m�
+[24C[31m������[41m�[40m�����[41m�[40m���[41m� �[40m���[41m�[0;31m�[1m���[37m�[47m�[0m�
+[25C[1;31m���������������������[41m [40m���[0;31m�[37m�
+[24C[1;31m���������������������[41m�[0;31m�[1m���[0;31m�
+[24C[1m��������������������[41m� [40m���[0;31m��
+[24C[1m�������������������������
+[25C��������������������[41m [40m���
+[25C�������������������[41m�[40m��
+[26C�����������������[41m�[0;31m�
+[26C[1m���������������[41m�[0;31m�
+[26C[1m���������������
+[26C��������������
+[0m[255D
diff --git a/xtrn/lord2/cnw/fishy.ans b/xtrn/lord2/cnw/fishy.ans
new file mode 100644
index 0000000000000000000000000000000000000000..a1a386c268403f0fa4f18e01bb7c538541d9ab30
--- /dev/null
+++ b/xtrn/lord2/cnw/fishy.ans
@@ -0,0 +1,17 @@
+[2J[40m
+[17C[0;1;34;43m��[40m��
+[17C[33m���[0;33m���[32m�[1;30m�����ͧ���ͧ���ͧ���ͧ�
+[17C[33;44m�[0;34m��[25C[1;30m��
+[0;31m�������������������[34m�
+[31m�����������������
+[1;37;43m�������������[0;33m�[36m������������/������������������\��������������������������������
+
+[5C[32m���[7C���
+[6C���[5C�����[21C[37m�[13C[32m�
+[7C����� �� ��[27C� � �
+[9C�� �� ��� ��[27C� � �
+[7C��� ����� � �[27C� � �
+[5C�� � ��������[21C[1;37m>[0;35m���[1;37m>[0;32m� � � �
+ ����� � �� ������ � �[15C� � � � �
+ ��� �� ��� ������ � � �[13C� � � � �[8C[33m�������������� [32m��� ���� �������[7C� �[19C� �[11C[33m����������������[9C[32m�� � ��� ���[7C�[21C� �[9C[33m������������������[10C[32m�� ��[11C� �[20C��[8C[33m��������������������[12C[32m�[1;33m>[0;32m�[1;33m۲>[10C[0;32m�[7C[33m���۲����������[32m�[33m���������������������������� �������۲��[32m��[33m�����������������۲۲���������������������������������������������
+[0m[255D
diff --git a/xtrn/lord2/cnw/fishyl.ans b/xtrn/lord2/cnw/fishyl.ans
new file mode 100644
index 0000000000000000000000000000000000000000..c2c5c44ed9f76af9b63642d4bdb365a26d1e4b83
--- /dev/null
+++ b/xtrn/lord2/cnw/fishyl.ans
@@ -0,0 +1,17 @@
+[2J[40m
+[17C[0;1;34;43m��[40m��
+[17C[33m���[0;33m���[32m�[1;30m����ͧ���ͧ���ͧ���ͧ\
+[17C[33;44m�[0;34m��[26C[1;30m'\
+[0;31m�������������������[34m�[28C[1;30m'\
+[0;31m�����������������[33C[1;30m'\
+[37;43m�������������[0;33m�[36m������������/����-���-��������--�����\[1;30m'\[0;36m/-����������������������
+[54C[1;30m'\
+[5C[0;32m���[7C���[38C[1;30m'\,
+[6C[0;32m���[5C�����[38C[1;30m'�
+[7C[0;32m����� �� ��[27C� � �
+[9C�� �� ��� ��[27C� � �
+[7C��� ����� � �[27C� � �
+[5C�� � ��������[21C[1;37m>[0;35m���[1;37m>[0;32m� � � �
+ ����� � �� ������ � �[15C� � � � �
+ ��� �� ��� ������ � � �[13C� � � � �[8C[33m�������������� [32m��� ���� �������[7C� �[19C� �[11C[33m����������������[9C[32m�� � ��� ���[7C�[21C� �[9C[33m������������������[10C[32m�� ��[11C� �[20C��[8C[33m��������������������[12C[32m�[1;33m>[0;32m�[1;33m۲>[10C[0;32m�[7C[33m���۲����������[32m�[33m���������������������������� �������۲��[32m��[33m�����������������۲۲���������������������������������������������
+[0m[255D
diff --git a/xtrn/lord2/cnw/fishys.ans b/xtrn/lord2/cnw/fishys.ans
new file mode 100644
index 0000000000000000000000000000000000000000..4a69404e2c8c83a47a3ee2c4fcdaa975f686bac2
--- /dev/null
+++ b/xtrn/lord2/cnw/fishys.ans
@@ -0,0 +1,17 @@
+[2J[40m
+[17C[0;1;34;43m��[40m��
+[17C[33m���[0;33m���[32m�[1;30m�����ͧ���ͧ���ͧ���ͧ�
+[17C[33;44m�[0;34m��[26C[1;30m�
+[0;31m�������������������[34m�[26C[1;30m�
+[0;31m�����������������[29C[1;30m�
+[37;43m�������������[0;33m�[36m������������/������������������\[1;30m�[0;36m�������������������������������
+[46C[1;30m�
+[5C[0;32m���[7C���[28C[1;30m�
+[6C[0;32m���[5C�����[21C[37m� [1;30m��[7C[0;32m�
+[7C����� �� ��[27C� � �
+[9C�� �� ��� ��[27C� � �
+[7C��� ����� � �[27C� � �
+[5C�� � ��������[21C[1;37m>[0;35m���[1;37m>[0;32m� � � �
+ ����� � �� ������ � �[15C� � � � �
+ ��� �� ��� ������ � � �[13C� � � � �[8C[33m�������������� [32m��� ���� �������[7C� �[19C� �[11C[33m����������������[9C[32m�� � ��� ���[7C�[21C� �[9C[33m������������������[10C[32m�� ��[11C� �[20C��[8C[33m��������������������[12C[32m�[1;33m>[0;32m�[1;33m۲>[10C[0;32m�[7C[33m���۲����������[32m�[33m���������������������������� �������۲��[32m��[33m�����������������۲۲���������������������������������������������
+[0m[255D
diff --git a/xtrn/lord2/cnw/flagcity.ref b/xtrn/lord2/cnw/flagcity.ref
new file mode 100644
index 0000000000000000000000000000000000000000..734e04c39baa3609602bcbad81327b71e04dd3df
--- /dev/null
+++ b/xtrn/lord2/cnw/flagcity.ref
@@ -0,0 +1,899 @@
+; Script file FLAGCITY.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:14 2001
+
+@DECLARE citysign 000000676
+@DECLARE cavern 000000783
+@DECLARE dsign 000001025
+@DECLARE heal 000001133
+@DECLARE bank 000002846
+@DECLARE bankstart 000002973
+@DECLARE bankagain 000004114
+@DECLARE deposit 000005567
+@DECLARE withdraw 000006117
+@DECLARE apoth 000006982
+@DECLARE inn 000007149
+@DECLARE potiond 000009269
+@DECLARE tman 000013084
+@DECLARE cave 000013697
+@DECLARE cityhall 000014104
+@DECLARE town 000014161
+@DECLARE ticket 000015592
+@DECLARE done 000017002
+@NOCHECK
+; End of .REF index
+
+;File for the Western city on the first continent Flagcity
+
+@#CITYSIGN
+;Sign helping find the way to flagcity
+@DO SAYBAR
+`2 <--------- To Flagcity
+@do moveback
+
+@#CAVERN
+;Looking into the deep cavern on snowy ridge
+@if &lasty is 6 then do
+ @begin
+@DO SAYBAR
+`2You narrowly escape death! That was a crappy place to warp to!
+@closescript
+ @end
+@DO SAYBAR
+`2That's DEEP, don't fall in there.
+
+@#DSIGN
+;Sign by the desert
+@DO SAYBAR
+`2 <--------- Flagcity Desert --------->
+@do moveback
+
+@#heal
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1 FlagCity Healing `r0
+
+`2 Arik 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," `2Arik 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!" `2Arik laughs.
+
+`k
+@drawmap
+@update
+
+@#bank
+@do `v01 is 1
+@do `p30 is 4
+@offmap
+@do moveback
+@do `s09 is flagcity
+@routine DONEQUEST in VAULTS.REF
+@label bankstart
+@show
+`r0`c `r1 `%3rd Bank Of FlagCity `r0
+
+`2 A young clerk eyes you nervously.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdraw.
+=&bank 0 Apply for an account here.
+Leave
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @routine getplace in myhome.ref
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last questions?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+
+
+@drawmap
+@update
+
+
+@#APOTH
+;The apothecary
+@do moveback
+@offmap
+@busy
+@show
+`r0`c `r1 The Apothecary `r0
+
+
+
+
+@buymanager
+5
+40
+55
+@drawmap
+@update
+
+@#INN
+;FlagCity Inn
+@if ninn4.dat exist false then do
+ @begin
+@offmap
+@do moveback
+@DO `v01 is 1
+@show
+`r0`c `r1 FlagCity Inn `r0
+
+ `2You step into the wooden building. An old man sits behind a wooden
+ counter staring at the sun. He notices you and speaks.
+ `0"Hello, need a room sonny? They're `$$90`0 here."`2
+
+@DO WRITE
+`x`x
+@CHOICE
+>&money 89 Get a room
+Buy this place!
+Take off
+Make FlagCity Inn your home
+@if responce is 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 4 then do
+ @begin
+ @do `p69 is 7
+ @do write
+`\ FlagCity Inn is now your home. `\`k
+ @do goto inn
+ @end
+@if response is 1 then do
+@begin
+@do money - 90
+@show
+`\`\ `0"Enjoy your stay here."
+`\`k
+ @do map is 73
+ @loadmap 73
+ @do x is 8
+ @do y is 10
+@drawmap
+@update
+@closescript
+@end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `$"Hey, old fart. I'd like to buy this place off ya!"
+
+`k `0"Never. Never. Why won't you people leave me alone? This place has
+ been with me since...since...since that sun first started rising," `2he
+ says and points to the sun out the window. `0"I won't sell! I won't!"
+
+`k `$"How about `%$65,000`$?" `2you say with a smile.
+
+`k`c`\`\ `0"Oh, sure, for `%$65,000`0 I will..."
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+>&money 64999 I'll take it!
+Let me find the money first
+@if response is 1 then do
+ @begin
+ @if ninn4.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile ninn4.dat
+&playernum
+NONE
+0
+0
+0
+0
+ @do `p30 is 4
+ @do `v40 is 65000
+ @routine deposit in vaults.ref
+ @do money - 65000
+ @do addlog
+ `0`n `2buys `%FlagCity Inn`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%The Sun-Staring Man, your Employee and Friend `r0
+`\`2 Nice job! You now own his Inn!
+
+ `2Enjoy your new home.
+
+`k
+@label POTIOND
+@show
+`c`\
+ `2What would you like your toilet water to be made out of?
+
+@do write
+`x`x`x
+@do `v01 is 1
+@choice
+Silver Potion
+Gold Potion
+Red Potion
+What!?!
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `2Let's explain, shall we...
+
+ `0In your private room, there will be a toilet. In it, there will be water.
+ What kind of water is your choice. This water will be available to drink
+ once per day by yourself and whomever you allow inside your private room.
+
+ `2Types of Water:
+
+ `$-`0Silver Potion`2: Dodge goes up by 1!
+ `$-`0Gold Potion`2: Muscle goes up by 2!
+ `$-`0Red Potion`2: Max HP goes up by 5!
+
+ `2That's what we're talking about...
+
+`k
+
+ @do goto POTIOND
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Silver Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw4.DAT exist true then delete ninnw4.DAT
+ @writefile ninnw4.DAT
+1
+Silver Potion
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Gold Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw4.DAT exist true then delete ninnw4.DAT
+ @writefile ninnw4.DAT
+2
+Gold Potion
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Red Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw4.DAT exist true then delete ninnw4.DAT
+ @writefile ninnw4.DAT
+5
+Red Potion
+ @end
+
+
+@drawmap
+@update
+@closescript
+ @end
+
+@if response is 2 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@drawmap
+@update
+@end
+
+@end
+
+;--IF FLAGCITY INN HAS BEEN PURCHASED
+@offmap
+@do moveback
+@DO `v01 is 1
+@if ninn4.dat exist false then do
+ @begin
+ @do goto INN
+ @end
+@if ninn4.dat exist true then do
+ @begin
+@readfile ninn4.dat
+`p20
+`s01
+@
+@do `s02 is getname `p20
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete ninn4.dat
+ @do addlog
+ `%FlagCity Inn`2 is put on the market today.
+ @routine seperate in gametxt.ref
+ @end
+ @if `p20 is &playernum then do
+ @begin
+ @do map is 73
+ @loadmap 73
+ @do x is 8
+ @do y is 10
+ @drawmap
+ @update
+ @do saybar
+`!Sun-Staring Man: `$Welcome back, boss.
+ @closescript
+ @end
+ @show
+`r0`c `%`r1 FlagCity Inn, owned by `0`s02`% `r0
+ @end
+@if ninn4a.dat exist false then do
+ @begin
+ @writefile ninn4a.dat
+200
+0
+ @end
+ @readfile ninn4a.dat
+`p26
+`p27
+ @
+@show
+
+ `2You step into the wooden building. An old man sits behind a wooden
+ counter staring at the sun. He notices you and speaks.
+ `0"Hello, need a room sonny? They're `$$`p26`0 here."`2
+
+@DO WRITE
+`x`x
+@do `v01 is 1
+@CHOICE
+>&money `p26 Get a room
+How's the owner?
+Take off
+@if response is 1 then do
+@begin
+@do money - `p26
+@show
+`\`\ `0"Enjoy your stay here."
+`\`k
+ @do `p27 + `p26
+ @do delete ninn4a.dat
+ @writefile ninn4a.dat
+`p26
+`p27
+ @
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has stayed at your Inn! Cha-CHING!
+
+ @do map is 73
+ @loadmap 73
+ @do x is 8
+ @do y is 10
+@drawmap
+@update
+@closescript
+@end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `$"How'd that scumbag, `0`s02`$?" `2you ask.
+
+`k `0"My boss? Hate 'em. Raunchy old codger. I'd like to own this place
+ for myself again. If you ask me, ol' Nickabrick should have taken 'em
+ out long ago..." `2he smiles and stares at the sun. `0"Still, the toilet
+ water sure is good with 'em around."
+
+`k
+ @do goto INN
+ @end
+
+@drawmap
+@update
+@end
+
+
+@#TMAN
+;Traveling man by the desert
+@DO MOVEBACK
+@BUSY
+@DO `v01 is 1
+@SHOW
+`r0`c `r1 Rocky Alcove `r0
+
+ `2You round the bend of these small sandy mountains to find a man peacefully
+ sitting in the sun. He notices you and nods.
+ `0"Hello my fellow traveler"`2
+
+@DO WRITE
+`x`x
+@CHOICE
+Say hi
+Leave, quick!!
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `0"It is a wonderful day today. Never forget the healing power of simply
+ being outdoors."
+
+`k
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You take off in a hurry.
+
+`k
+ @end
+
+@drawmap
+@update
+@end
+
+@#CAVE
+;Cave entrance to FlagCity
+@SHOW
+`r0`c `r1 Dark mysterious ocean cave `r0
+
+ `2You round the next part of the rocky coastline to find a cave you didn't
+ notice before. Hestantly you brave you way up the cold dark passage until
+ finally you hear ... voices!! It sounds like a town up there.
+
+`/`k
+ @do map is 151
+ @loadmap 151
+ @do x is 15
+ @do y is 10
+@drawmap
+@update
+
+@#CITYHALL
+;FlagCity city hall
+@OFFMAP
+@DO MOVEBACK
+@label town
+@DO `v01 is 1
+@SHOW
+`r0`c `r1 City Hall `r0
+
+ `2You step into the luxurious building finding a nervous looking noble
+ standing behind a counter. He sees you and nods.
+ `0"Good day s&sir, how may the Crown help you?"`2
+
+@DO WRITE
+`x`x
+@CHOICE
+Pay your taxes
+Complain about the Bounty offices
+Leave, quick!!
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @dataload taxes.idf &playernum `p23
+ @if `p23 < 1 then do
+ @begin
+ @SHOW
+`\`\ `$"I'd like to be a good subject and pay my taxes,"`2 you say.
+
+ `0"Humm, you do now owe anymore taxes this year. Thanks for trying.
+`\`k
+ @do goto town
+ @end
+ @IF &MONEY > `p23 THEN DO
+ @BEGIN
+ @DO MONEY - `p23
+ @do `p30 is 4
+ @do `v40 is `p23
+ @routine deposit in vaults.ref
+ @SHOW
+`\`\ `$"I'd like to be a good subject and pay my taxes,"`2 you say.
+
+ `0"Very well, that'll be `p23 gold s&sir"`2 he states. A chill
+ runs down your back as you pay.
+`\`k
+ @routine bank in taxes.ref
+ @do goto town
+ @END
+ @SHOW
+`\`\ `$"I'd like to pay my taxes!"`2 you merrily say.
+
+`k `0"I'm sorry sir, you don't have enough money." says the noble.
+`\`k
+@do goto town
+@END
+@IF RESPONSE IS 2 THEN DO
+ @BEGIN
+ @SHOW
+`\`\ `$"What's with those damn bounty hunters next door?"`2 you demand.
+
+ `0"You go yell at them, I'm not gonna die!"`2 he yells.
+`\`k
+@do goto town
+@END
+@drawmap
+@update
+@end
+
+
+
+@#TICKET
+;The travel offices
+@DO MOVEBACK
+@BUSY
+@DO `v01 is 1
+@SHOW
+`r0`c `r1`% FlagCity Travel `r0
+
+ `0"Welcome to Flagcity travel, what can I do for you?" `2Asks a receptionist.
+@DO WRITE
+`x`x
+@CHOICE
+Pick up a world map
+Buy a ticket for somewhere
+Leave
+@IF RESPONSE IS 1 THEN DO
+@Begin
+@Show
+`\`\ `$"I'd need to grab a map from ya,"`2 you reply.
+`\`k `0"Okay that'll be 20 gold,"`2 she states.
+
+@if money < 19 then do
+ @BEGIN
+ @show
+ `2You don't have that much, so again you take it out on her.
+
+`k `$"Look you stupid lady, why ever do maps cost that much?!?! You just
+ lost a big time client, woman!" `2you scream.
+
+`k `2You see tears from her eyes as you stomp off.
+`\`k
+ @DRAWMAP
+ @UPDATE
+ @CLOSESCRIPT
+ @End
+@show
+`2 You plop down the money.`\`\`k
+@do money - 20
+@do `i20 + 1
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+
+@IF RESPONSE IS 2 THEN DO
+@Begin
+@Show
+`\`\ `$"I need to go somewhere," `2you say. She nods, `0"Okay where
+ would you like to go today?" `2You eye her & review your choices.
+
+`k
+@show
+`r0`c `r1 `%Flagcity Travel Center
+
+
+@buymanager
+26
+27
+32
+@do goto TICKET
+@End
+@IF RESPONSE IS 3 THEN DO
+@Begin
+@Show
+`\`\ `$"Sorry I uh ... gotta go,"`2 you say heading out the door.
+`\`k
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+
+
+@#done
diff --git a/xtrn/lord2/cnw/flirt.ref b/xtrn/lord2/cnw/flirt.ref
new file mode 100644
index 0000000000000000000000000000000000000000..9de7322eda7b37e42da0d58c38f63b2e77e0e325
--- /dev/null
+++ b/xtrn/lord2/cnw/flirt.ref
@@ -0,0 +1,801 @@
+; Script file FLIRT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:16 2001
+
+@DECLARE preacher 000001239
+@DECLARE female 000002193
+@DECLARE letter 000002879
+@DECLARE vain 000005028
+@DECLARE sorry 000005185
+@DECLARE choice 000005501
+@DECLARE yes 000006021
+@DECLARE no 000007318
+@DECLARE nomarry 000007696
+@DECLARE end 000008126
+@DECLARE alldone 000008164
+@DECLARE married 000008236
+@DECLARE amarried 000008532
+@DECLARE chapelsign 000008790
+@DECLARE jump1 000008851
+@DECLARE jump2 000009156
+@DECLARE jump3 000009499
+@DECLARE jump4 000009823
+@DECLARE goback 000010146
+@DECLARE spy 000012077
+@DECLARE leapsign 000012181
+@DECLARE schedule 000012235
+@DECLARE top 000012440
+@DECLARE schedule2 000012788
+@DECLARE leap 000012837
+@DECLARE complete 000014240
+@DECLARE list 000015058
+@DECLARE npccheck 000015395
+@DECLARE list1 000015700
+@DECLARE listshow 000016401
+@DECLARE dispatch 000016559
+@DECLARE oops 000016626
+@DECLARE nomore 000017262
+@NOCHECK
+; End of .REF index
+
+;The Wedding Chapel v1.0
+;Complements of Hawkmoon's Realm BBS FIDO 1:151/131
+;Sysop Chet Rhodes
+;chet.rhodes@juno.com
+;
+;---
+; CNW Update, email address is non-existant, so I'll take over this IGM
+; with-in CNW.
+;
+
+@#PREACHER
+@DO MOVEBACK
+@BUSY
+@if wedfin&playernum.txt exist true then goto complete
+@DATALOAD flirtm.IDF &PLAYERNUM `p26
+@IF `p26 NOT 0 THEN GOTO MARRIED
+@if wedpro&playernum.txt exist true then goto choice
+@DATANEWDAY FLIRT.IDF
+@DATALOAD FLIRT.IDF &PLAYERNUM `p20
+@IF `p20 IS 1 THEN GOTO ALLDONE
+@if &sex IS 0 then goto female
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Speaking to Magistrate S. Caroline Dillon `r0`\
+@if &sex EQUALS 0 then goto female
+@show
+`7 Before you is a beautiful, angelic figure which momentarily makes you forget
+ what you came for. A faint scent of honeysuckle is in the air.
+
+`k`% "Welcome to the Wedding Chapel. Our purpose here is to bring those that
+ are far away a little closer. We are also responsible for keeping track of
+ all marriages and proposals. Rest assured that while marriages are public
+ knowledge all other information is held in strictest confidence."
+
+`k
+@do goto letter
+@END
+
+@#FEMALE
+@do move 1 1
+@show
+`r0`c `%`r1 Speaking to Magistrate S. Caroline Dillon `r0`\
+`7 Before you is a beautiful, angelic figure which momentarily makes you feel
+ rather plain. A faint scent of honeysuckle is in the air. She smiles at you
+ and you strangely feel better about yourself.
+
+`k`% "Welcome to the Wedding Chapel. Our purpose here is to bring those that
+ are far away a little closer. We are also responsible for keeping track of
+ all marriages and proposals. Rest assured that while marriages are public
+ knowledge all other information is held in strictest confidence."
+
+`k
+@do goto letter
+@END
+
+@drawmap
+@update
+@closescript
+@end
+
+
+@#letter
+@busy
+@show
+@clear screen
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Speaking to Magistrate S. Caroline Dillon `r0`\
+
+`% "Is there someone in particular you are interested in?"
+@chooseplayer `p25
+@if `p25 is 0 then goto end
+@if `p25 is &playernum then goto Vain
+@do `s01 is getname `p25
+@if wedpro`p25.txt exist true then goto Sorry
+@DATALOAD flirtm.IDF `p25 `p26
+@IF `p26 NOT 0 THEN GOTO AMARRIED
+
+@
+;(Do tricky stuff with name to determine how much they can type) Thanks Seth
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Composing your love letter to `s01 `r0`\
+@DO WRITE
+`x`x`0Show your `@hearts `0desire `2(1 line only). `0ENTER`2 to abort.`\`x`x
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@DO `v01 IS 1
+@SHOW
+`\`\`% "Are you sure this is what you want to do?"
+
+@DO WRITE
+`x`x
+@CHOICE
+Yes ma'am, please send my letter right away.�
+Maybe I will sleep on it first. Thanks anyway.
+@IF RESPONSE IS 2 THEN GOTO END
+@do stripbad `s03
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Speaking to Magistrate S. Caroline Dillon `r0`\
+`% "A dispatch rider will be sent out we the letter right away. I hope it goes
+ well for you."
+
+`k
+@do addlog
+ `r3 `b `r0 `0`n`2 has been seen plucking petals from a flower `r3 `b `r0
+@do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@DATASAVE FLIRT.IDF &PLAYERNUM 1
+
+@DO `p24 is length `s03 ;WHAT IS THIS!!!!!!!!!!!!!!!!!
+@IF `p24 less 3 then do ;WHAT IS THIS!!!!!!!!!!!!!!!!!
+
+@writefile mail\mail`p25.dat
+`2 A message from `0`N
+`2`x`x =============================================================================`#
+`x`x`x`x`s03`$
+
+`x`x -=-=-=-=-=-=-=-=-=-=-=-=-=-=`!Romantic Letter`$=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-`2
+`x`x :To finalize this arrangment you will need to stop by the wedding chapel:`$
+`x`x -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@writefile wedpro`p25.txt
+&playernum
+`n
+&sex
+@drawmap
+@update
+@end
+
+@#vain
+@show
+`% "Whoaa Cybil!!! We don't do split personality weddings. It's just too
+ darn hard to seat the guest."
+
+`k
+@do goto letter
+@end
+
+@#SORRY
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Speaking to Magistrate S. Caroline Dillon `r0`\
+`% "I am sorry my child but `s01 is already considering a proposal. You may
+ want to send her a letter and tell `s01 your feelings. But don't wait too
+ long or it may be too late."
+
+`k
+@drawmap
+@update
+@end
+
+@#CHOICE
+@readfile wedpro&playernum.txt
+`p20
+`s01
+`p21
+@do `s01 is getname `p20
+@do `p26 is `p20
+
+@clear screen
+@do move 1 1
+@show
+`r0`c `%`r1 Speaking to Magistrate S. Caroline Dillon `r0`\
+`% "Congratulations. I understand that `s01 has proposed. I hope
+ you are as excited as I am."
+
+@DO `v01 IS 1
+@DO WRITE
+`x`x
+@CHOICE
+Yes ma'am. This has got to be the best day of my life.
+What? Marry that pig? I don't think so!
+@IF RESPONSE IS 1 THEN GOTO YES
+@IF RESPONSE IS 2 THEN GOTO NO
+@END
+
+@#YES
+@if &sex equals `p21 then goto nomarry
+@DATALOAD flirtm.IDF `p20 `p27
+@IF `p27 MORE 0 THEN DO
+ @BEGIN
+ @DO `s02 IS GETNAME `p27
+ @END
+@IF `p27 NOT 0 THEN GOTO OOPS
+@DO `p20 is `p09
+@DO `p20 * 100
+@DO `p01 + `p20
+@DO `P18 + 3
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Speaking to Magistrate S. Caroline Dillon `r0`\
+`% "Then may each day of your lives together be equally happy."
+
+`k`7 She quickly makes an entry in a large white record book and you realize
+ that you are no longer a lone wolf.
+
+`k`7 Your experience increases by `$`p20
+`7 Your quest points increases by `$3
+
+`k
+@do addlog
+ `r3 `b `r0 `2It is a joyous day for `0`n `2and `0`s01 `r3 `b `r0
+@do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@DATASAVE flirtm.IDF &PLAYERNUM `p26
+@DATASAVE flirtm.IDF `p26 &PLAYERNUM
+@writefile wedfin`p26.txt
+&playernum
+`n
+@writefile mail\mail`p26.dat
+`# `2A message from `% The Wedding Chapel
+
+`x`x `$-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=`!Congratulations`$=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`x`x `#`n has accepted your proposal.
+`x`x Be sure to stop by the chapel and pick up your wedding gifts.
+`x`x `$-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@do delete wedpro&playernum.txt
+@drawmap
+@update
+@end
+
+
+@#NO
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Speaking to Magistrate S. Caroline Dillon `r0`\
+`% "I am sorry to here that. I hope you find someone you will be happy with."
+
+`k
+@do delete wedpro&playernum.txt
+@do addlog
+ `r3 `r0 `0`s01 `2 has been snubbed by `0`n `r3 `r0
+@do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@drawmap
+@update
+@end
+
+@#NOMARRY
+@if &sex equals 1 then `s04 is female
+@if &sex equals 0 then `s04 is male
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Speaking to Magistrate S. Caroline Dillon `r0`\
+`7 The Magistrate pulls down a large white record book and starts to make
+ an entry. A startled look appears on her face.
+
+`k`% "I am sorry but there seems to be some mistake here. I thought that
+ `s01 was `s04."
+
+`k`7 Sadly you move on.
+
+`k
+@label end
+@drawmap
+@update
+@end
+
+@#ALLDONE
+@DO SAYBAR
+`$You have already proposed to someone today.
+
+@#MARRIED
+@DATALOAD flirtm.IDF &PLAYERNUM `p26
+@do `s01 is getname `p26
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Speaking to Magistrate S. Caroline Dillon `r0`\
+`% "Back so soon? I hope this doesn't mean that you and `s01
+ are having marital difficulties."
+
+`k
+@drawmap
+@update
+@end
+
+@#AMARRIED
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Speaking to Magistrate S. Caroline Dillon `r0`\
+`% "I'm sorry my child but `s01 is already married."
+
+`k`7 You quickly turn away so she won't see the tears in your eyes.
+
+`k
+@drawmap
+@update
+@end
+
+@#CHAPELSIGN
+@DO SAYBAR
+`y The Wedding Chapel ------->
+
+@#JUMP1
+@DO x is 17
+@DO y is 9
+@DRAWPART 16 10
+@UPDATE
+@DO X IS 18
+@DO Y IS 8
+@DRAWPART 17 9
+@UPDATE
+@DO X IS 19
+@DO Y IS 8
+@DRAWPART 18 8
+@UPDATE
+@DO X IS 20
+@DO Y IS 9
+@DRAWPART 19 8
+@UPDATE
+@DO X IS 21
+@DO Y IS 10
+@DRAWPART 20 9
+@UPDATE
+@DO SAYBAR
+`$YaaHoooo....
+@CLOSESCRIPT
+
+@#JUMP2
+@DO x is 40
+@DO y is 11
+@DRAWPART 39 12
+@UPDATE
+@DO X IS 41
+@DO Y IS 10
+@DRAWPART 40 11
+@UPDATE
+@DO X IS 42
+@DO Y IS 10
+@DRAWPART 41 10
+@UPDATE
+@DO X IS 43
+@DO Y IS 11
+@DRAWPART 42 10
+@UPDATE
+@DO X IS 44
+@DO Y IS 12
+@DRAWPART 43 11
+@UPDATE
+@DO SAYBAR
+`$Whoooaaaaa..... Almost slipped that time.
+@CLOSESCRIPT
+
+@#JUMP3
+@DO x is 43
+@DO y is 11
+@DRAWPART 44 12
+@UPDATE
+@DO X IS 42
+@DO Y IS 10
+@DRAWPART 43 11
+@UPDATE
+@DO X IS 41
+@DO Y IS 10
+@DRAWPART 42 10
+@UPDATE
+@DO X IS 40
+@DO Y IS 11
+@DRAWPART 41 10
+@UPDATE
+@DO X IS 39
+@DO Y IS 12
+@DRAWPART 40 11
+@UPDATE
+@DO SAYBAR
+`$Don't try this at home.
+@CLOSESCRIPT
+
+@#JUMP4
+@DRAWPART 21 10
+@DO x is 20
+@DO y is 9
+@UPDATE
+@DO X IS 19
+@DO Y IS 8
+@DRAWPART 20 9
+@UPDATE
+@DO X IS 18
+@DO Y IS 8
+@DRAWPART 19 8
+@UPDATE
+@DO X IS 17
+@DO Y IS 9
+@DRAWPART 18 8
+@UPDATE
+@DO X IS 16
+@DO Y IS 10
+@DRAWPART 17 9
+@UPDATE
+@DO SAYBAR
+`$I can see my house from here.
+@CLOSESCRIPT
+
+@#GOBACK
+@DO MOVEBACK
+@BUSY
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Information Desk `r0`\
+`% "Hi. Can I help you?"
+
+@DO `v01 IS 1
+@DO WRITE
+`x`x
+@CHOICE
+Could I see the marraige records
+Could I see the scheduled marriages
+Tell me about the magistrate
+I need to go back now.
+No thank you. Wrong desk.
+@IF RESPONSE IS 1 THEN GOTO LIST
+@if response is 2 then goto schedule
+@IF RESPONSE IS 3 THEN DO
+@BEGIN
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Caroline's story `r0`\
+`% "A sad story really. She met a handsome and gentle man as a young girl.
+ He seemed like the perfect match and they were as happy as any young couple
+ could be. That was until he fell in with a band of men from BoneTown.
+ Dragon's Tooth clansmen they were. He started drinking and gambling and
+ nothing she tried could sway him from those evil people."
+
+`k`% "The final straw came 9 months later on a cold morning when he stood in
+ the middle of the city with a bottle of strong drink in one hand and a
+ Dragon's Tooth amulet in the other. I can't repeat the language he used
+ and don't care to even attempt to tell you what he had to say about the
+ Koshi. I will just say that it was the final straw. The elders had
+ overlooked him as long as they could for Caroline's sake but they couldn't
+ ignore him that time."
+
+`k`% "Caroline was devastated. She became like a child that had to be told
+ to eat and bathe. When the elders assigned her to handle weddings I thought
+ it would be the last straw. But for Caroline helping others to find what she
+ had lost turned out to be the best medicine. I guess that is why I am not
+ an elder."
+
+`k
+@DO GOTO GOBACK
+@END
+@IF RESPONSE IS 4 THEN DO
+ @begin
+ @SHOW
+`%`\`\`\ "No problem s&sir, we will take care of you right now."
+
+`k
+ @LOADMAP 1356
+ @DRAWMAP
+ @DO X IS 55
+ @DO Y IS 6
+ @UPDATE
+ @END
+@IF RESPONSE IS 5 THEN DO
+@DRAWMAP
+@UPDATE
+@END
+
+@#SPY
+@DO SAYBAR
+`&Shady Character: If it doesn't work out you can get a divorce in BoneTown.
+
+@#LEAPSIGN
+@DO SAYBAR
+`$Caution! Koshi Express.
+
+@#schedule
+@do `p20 is &time
+@do `p21 is `p20
+@do `p21 + 25
+@do move 1 1
+@show
+`c`r0
+`$ Weddings Scheduled at the Wedding Chapel
+`0 -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@label top
+@if npc/wed`p20.day exists true then do
+ @begin
+ @readfile npc/wed`p20.day
+`p25
+`p26
+ @do `s02 is getname `p25
+ @routine getname in npcname2.ref
+ @do write
+ `@`s02 `$will be wedding `@`s01 on day `@`p20.
+ @end
+@if `p20 > `p21 then goto schedule2
+@do `p20 + 1
+@do goto top
+
+@label schedule2
+@key
+@drawmap
+@update
+@closescript
+
+@#LEAP
+@LOADMAP 1356
+@DRAWMAP
+@DO x is 58
+@DO y is 1
+@UPDATE
+@DO X IS 58
+@DO Y IS 2
+@DRAWPART 58 1
+@UPDATE
+@DO X IS 58
+@DO Y IS 3
+@DRAWPART 58 2
+@UPDATE
+@DO X IS 58
+@DO Y IS 4
+@DRAWPART 58 3
+@UPDATE
+@DO X IS 58
+@DO Y IS 5
+@DRAWPART 58 4
+@UPDATE
+@DO X IS 58
+@DO Y IS 6
+@DRAWPART 58 5
+@UPDATE
+@DO X IS 58
+@DO Y IS 7
+@DRAWPART 58 6
+@UPDATE
+@DO X IS 58
+@DO Y IS 8
+@DRAWPART 58 7
+@UPDATE
+@DO X IS 58
+@DO Y IS 9
+@DRAWPART 58 8
+@UPDATE
+@DO X IS 58
+@DO Y IS 10
+@DRAWPART 58 9
+@UPDATE
+@DO X IS 58
+@DO Y IS 11
+@DRAWPART 58 10
+@UPDATE
+@DO X IS 58
+@DO Y IS 12
+@DRAWPART 58 11
+@UPDATE
+@DO X IS 58
+@DO Y IS 13
+@DRAWPART 58 12
+@UPDATE
+@DO X IS 58
+@DO Y IS 14
+@DRAWPART 58 13
+@UPDATE
+@DO X IS 58
+@DO Y IS 15
+@DRAWPART 58 14
+@UPDATE
+@DO X IS 58
+@DO Y IS 16
+@DRAWPART 58 15
+@UPDATE
+@DO X IS 59
+@DO Y IS 15
+@DRAWPART 58 16
+@UPDATE
+@DO X IS 60
+@DO Y IS 14
+@DRAWPART 59 15
+@UPDATE
+@DO X IS 61
+@DO Y IS 14
+@DRAWPART 60 14
+@UPDATE
+@DO X IS 62
+@DO Y IS 15
+@DRAWPART 61 14
+@UPDATE
+@DO X IS 63
+@DO Y IS 16
+@DRAWPART 62 15
+@UPDATE
+@DO X IS 63
+@DO Y IS 15
+@DRAWPART 63 16
+@UPDATE
+@DO X IS 66
+@DO Y IS 15
+@DRAWPART 63 15
+@UPDATE
+@DO X IS 67
+@DO Y IS 16
+@DRAWPART 66 15
+@UPDATE
+@DO SAYBAR
+`$Ooof... that's gonna leave a mark.
+@DO QUEBAR
+`yYou probably need to see a healer after that fall.
+@DO `p02 IS 1
+@CLOSESCRIPT
+@END
+
+@#COMPLETE
+@readfile wedfin&playernum.txt
+`p20
+`s01
+`p21
+@do `s01 is getname `p20
+@clear screen
+@do move 1 1
+@show
+`r0`c `%`r1 Speaking to Magistrate S. Caroline Dillon `r0`\
+`% "Congratulations. I understand that `s01 has accepted. I hope you are as
+ excited as I am."
+
+`k `$"More then you can imagine."
+
+`k
+@DO `p20 is `p09
+@DO `p20 * 100
+@DO `p01 + `p20
+@DO `P18 + 3
+
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Speaking to Magistrate S. Caroline Dillon `r0`\
+`% "Then may each day of your lives together be equally happy."
+
+`k`7 She quickly makes an entry in a large white record book and you realize
+ that you are no longer a lone wolf.
+
+`k`7 Your experience increases by `$`p20
+`7 Your quest points increases by `$3
+
+
+`k
+@do delete wedfin&playernum.txt
+@drawmap
+@update
+@end
+
+@#LIST
+@BUSY
+@DO MOVEBACK
+@DO `p20 IS 0
+@DO `p21 IS &TOTALACCOUNTS
+@WRITEFILE Married.tmp
+
+`$ Weddings in the Realm
+`0 -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Gathering data `r0
+@DO MOVE 19 3
+@SHOW
+`r1`|`|+
+@do `p26 is 0
+@do goto npccheck
+;@DO GOTO LIST1
+@CLOSESCRIPT
+
+@label npccheck
+@do `p26 + 1
+@dataload npc/npcwed.idf `p26 `p24
+@if `p24 > 0 then do
+ @begin
+ @do `s02 getname `p24
+ @routine getname in npcname2.ref
+ @writefile married.tmp
+ `0`s01 `2is married to `0`s02
+ @end
+@if `p26 > 199 then goto list1
+@do goto npccheck
+
+
+@#list1
+@DO `p20 + 1
+@IF `p20 MORE `p21 then goto LISTSHOW
+@DATALOAD FLIRTM.IDF `p20 `p26
+@IF `p26 IS 0 THEN GOTO LIST1
+@DATALOAD MARRIED.IDF `p20 `p29
+@IF `p29 IS 1 THEN GOTO LIST1
+@DO `s01 IS GETNAME `p20
+@DO `s02 IS GETNAME `p26
+@DATASAVE MARRIED.IDF `p20 1
+@DATASAVE MARRIED.IDF `p26 1
+@WRITEFILE MARRIED.TMP
+ `0`s01 `2is married to `0`s02
+@IF `p20 IS 20 THEN DO
+@BEGIN
+@WRITEFILE MARRIED.TMP
+`k
+@END
+@IF `p20 IS 40 THEN DO
+@BEGIN
+@WRITEFILE MARRIED.TMP
+`k
+@END
+@IF `p20 IS 60 THEN DO
+@BEGIN
+@WRITEFILE MARRIED.TMP
+`k
+@END
+@IF `p20 IS 80 THEN DO
+@BEGIN
+@WRITEFILE MARRIED.TMP
+`k
+@END
+@IF `p20 IS 100 THEN DO
+@BEGIN
+@WRITEFILE MARRIED.TMP
+`k
+@END
+@END
+
+@#LISTSHOW
+@clear screen
+@WRITEFILE MARRIED.TMP
+
+`k
+@DISPLAYFILE MARRIED.TMP
+@DO DELETE MARRIED.TMP
+@DO DELETE MARRIED.IDF
+@DRAWMAP
+@UPDATE
+@END
+
+@#DISPATCH
+@DO SAYBAR
+`$Temporarily closed until the next release
+
+@#OOPS
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Speaking to Magistrate S. Caroline Dillon `r0`\
+`% "Then may each day of your lives together be equally happy."
+
+`7 The Magistrate pulls down a large white record book and starts to make
+ an entry. A startled look appears on her face.
+
+`k`% "I am sorry but there seems to be some mistake here. It seems that
+ `s01 got a little impatient and has married `s02."
+
+`k`7 You quickly turn away so she won't see the tears in your eyes. A black
+ spot has formed on your heart and its name is `s01.
+
+`k
+@DO DELETE wedpro&playernum.txt
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/flirtd.ref b/xtrn/lord2/cnw/flirtd.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c6aa76e39f6a35fc78e62b3c5284ddec2f1c6d0b
--- /dev/null
+++ b/xtrn/lord2/cnw/flirtd.ref
@@ -0,0 +1,453 @@
+; Script file FLIRTD.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:26 2001
+
+@DECLARE judge 000000740
+@DECLARE final 000002870
+@DECLARE end 000003953
+@DECLARE notmarried 000004008
+@DECLARE sign 000004855
+@DECLARE dispatchsign 000004924
+@DECLARE dispatch 000004974
+@DECLARE tears 000007317
+@DECLARE kiss 000008450
+@DECLARE hug 000009489
+@DECLARE nogift 000010665
+@DECLARE gettear 000010731
+@DECLARE getkiss 000011261
+@DECLARE gethug 000012053
+@DECLARE giftout 000012690
+@DECLARE nomore 000012923
+@NOCHECK
+; End of .REF index
+
+; Updated by CNW to handle the java telnet app
+;
+;
+;
+;The Wedding Chapel v1.0
+;Complements of Hawkmoon's Realm BBS FIDO 1:151/131
+;Sysop Chet Rhodes
+;chet.rhodes@juno.com
+
+@#JUDGE
+@DO MOVEBACK
+@BUSY
+@DATALOAD flirtm.IDF &PLAYERNUM `p26
+@IF `p26 IS 0 THEN GOTO NOTMARRIED
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Talking with Judge Dillon `r0`\
+`2 Before you is a loud and garishly dressed man. An old, weathered sign
+ on his desk says "Divorce Court".
+
+`k`0 "Welcome young s&man. Come on in and don't be bashful. We're all here for
+ the same reason. After all even honey will sour on you with time."
+
+`k`2 As you step closer you are engulfed by the smell of stale beer and musty
+ clothes. For a second you get a wiff of honeysuckle but it is quickly
+ overwhelmed by the other odors.
+
+`k`0 "So you want a divorce. Done had all you can stand and just can't take
+ any more I reackon."
+
+`k
+@DO `v01 IS 1
+@DO WRITE
+`x`x
+@CHOICE
+Yep, we've lost that lovin feeling.
+Nope, I was just looking for the bathroom.
+@if response is 2 then goto end
+@IF RESPONSE IS 1 THEN DO
+@DO `p20 is `p09
+@DO `p20 * 500
+@DO `p21 is `p09
+@DO `p21 * 100
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Talking with Judge Dillon `r0`\
+`0 "Well you come to the right place s&sir. We've all had that cross to bear at
+ one time or the other. That is why I run this place so's that I can help
+ others in focusing their love were it will do the most good, if you know what
+ I mean." `2 he says with a wink.
+
+`k`2 You can't imagine the joy this fellows former wife must have felt when he
+ decided to refocus.
+
+`k`0 "Course now you realize that there is a small fee involved and since you
+ are the only one here you will have to pay the court cost."
+
+`k`$ "So how small is this fee?"
+
+`k`r0`c `%`r1 Talking with Judge Dillon `r0`\
+`0 "Divorces don't come cheap but I like you so I will handle you divorce
+ for only `$$`p20`0."
+`\
+@DO `v01 IS 1
+@DO WRITE
+`x`x
+@CHOICE
+>&money `p20 Worth every dime Judge. Fix me up. `2(You have `0&money`2)
+>&money `p20 Maybe things aren't so bad after all.
+<&money `p20 I had no idea it would be so much. I can't afford it right now.
+@if response is 1 then goto final
+@IF RESPONSE IS 2 THEN GOTO END
+@if response is 3 then goto end
+
+@#FINAL
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Talking with Judge Dillon `r0`\
+`2 With a chuckle the judge pulls out a black book and makes an entry. While
+ filling in the information he murmurs to himself.
+
+`0 "And another one ole Caroline my girl."
+
+`k
+`2 Experience drops `$`p21
+`2 Quest points drop 3
+
+`k
+@DO `p01 - `p21
+@DO `p18 - 3
+@do money - `p20
+@DO `s01 IS GETNAME `p26
+@DATASAVE FLIRTM.IDF `p26 0
+@DATASAVE FLIRTM.IDF &PLAYERNUM 0
+@do addlog
+ `r3 `r0 `0`n`2 has asked `0`s01 `2to sleep somewhere else. `r3 `r0
+@do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@DO `p20 / 2
+@DO `s03 IS `p20
+@WRITEFILE MAIL\MAIL`p26.DAT
+`# A Post Dispatch rider hands you a letter.`$
+`x`x -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`x`x`2 I regret to inform you that `0`n`2 has purchased a divorce.
+`x`x Attached is your alimony payment of `$$`p20.
+`x`x -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@WRITEFILE MAIL\CON`p26.TMP
+ADDGOLD|`p20
+@DRAWMAP
+@UPDATE
+@END
+
+@#END
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#NOTMARRIED
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Talking with Judge Dillon `r0`\
+`2 Before you is a loud and garishly dressed man. An old, weathered sign
+ on his desk says "Divorce Court".
+
+`k`0 "Welcome young s&man. Come on in and don't be bashful. We're all here for
+ the same reason. After all even honey will sour on you with time."
+
+`k`2 As you step closer you are engulfed by the smell of stale beer and musty
+ clothes. For a second you get a wiff of honeysuckle but it is quickly
+ overwhelmed by the other odors.
+
+`k`0 "So you want a divorce. Done had all you can stand and just can't take
+ any more I reackon."
+
+`k`$ "But I am not married."
+
+`k`0 "Well now that is a pickle isn't. You come back and see me when you are.
+ I am sure you will need my services sooner or later."
+
+`k
+@DRAWMAP
+@UPDATE
+@END
+
+@#SIGN
+@DO SAYBAR
+`$Dillon's Discount House of Divorce.
+
+@#DISPATCHSIGN
+@DO SAYBAR
+`&Post Dispatch office
+
+@#DISPATCH
+@DO MOVEBACK
+@BUSY
+@DATALOAD FLIRTGG.IDF &PLAYERNUM `p28
+@IF `p28 IS 1 THEN GOTO GETTEAR
+@IF `p28 IS 2 THEN GOTO GETKISS
+@IF `p28 IS 3 THEN GOTO GETHUG
+@DATANEWDAY FLIRTG.IDF
+@DATALOAD FLIRTG.IDF &PLAYERNUM `p27
+@IF `p27 IS 1 THEN GOTO NOGIFT
+@DATALOAD flirtm.IDF &PLAYERNUM `p26
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Talking with the dispatch officer. `r0`\
+`7 A sign by the door says "This Post Dispatch office is solely provided for
+ the benefit of married couples."
+
+`k`% "Welcome. How may I help you?"`\
+@DO WRITE
+`x`x
+@DO `v01 IS 1
+@CHOICE
+>`p26 0 I would like to send a gift to my love.
+<`p26 1 How do you get married?
+Sorry, wrong office.
+@IF RESPONSE IS 1 THEN DO
+@BEGIN
+@DO `p20 is `p09
+@DO `p21 IS `p09
+@DO `p20 * 100
+@DO `p21 * 300
+@DATALOAD flirtm.IDF &PLAYERNUM `p26
+@DO `s01 IS GETNAME `p26
+@DATALOAD FLIRTGG.IDF `p26 `p28
+@IF `p28 NOT 0 THEN GOTO GIFTOUT
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Choosing a gift `r0`\
+`% "We have several special gifts to choose from. Feel free to look them over."
+`\ `2You have `$$&money `2to spend on `s01.`\
+`# -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@DO `v01 IS 1
+@DO WRITE
+`x`x
+@CHOICE
+>&money 999 Tears of Joy for................ `$$`p20
+>&money 2999 Kiss of Love for................ `$$`p21
+>&money 2999 Hug of Protection for........... `$$`p21
+>&money 999 `s01 isn't worth that much.
+<&money 1000 Maybe I better stop by the bank first.
+@if response is 1 then GOTO TEARS
+@if response is 2 then GOTO KISS
+@if response is 3 then GOTO HUG
+@if response is 4 then GOTO END
+@if response is 5 then GOTO END
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+@IF RESPONSE IS 2 THEN DO
+@BEGIN
+@IF &MAP IS 76 THEN DO
+ @BEGIN
+@do move 1 1
+ @SHOW
+ `r0`c `%`r1 Talking with the dispatch officer. `r0`\
+`% "Marriages are handled by Caroline. Talk with her and she will be more then
+ happy to help you out. She is over at the large desk."
+
+`k
+ @DRAWMAP
+ @UPDATE
+ @CLOSESCRIPT
+ @END
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Talking with the dispatch officer. `r0`\
+`% "Marriages are handled by The Wedding Chapel. It is located in Cloudy
+ City. You will need a completed Skystaff to go there. Oh! and a willing
+ partner of course."
+
+`k
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+@IF RESPONSE IS 3 THEN DO
+@DRAWMAP
+@UPDATE
+@END
+
+@#TEARS
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Choosing a gift `r0`\
+`2 The attendant places a small glass vial on the table in front of you and
+ ask you to look inside. You lean forward and peer down into the vial.
+
+`k`2 A vision of `s01 forms in the bottom of the vial. A feeling of
+ loneliness consumes you. A lump grows in your throat and the tears begin
+ to flow. One of the tears slides down the inside of the vial striking that
+ bottom with a definate clicking sound. Upon inspection you realize the the
+ tear has become a gem.
+
+`k`2 Retrieving the vial the attendant places a cap on the end.
+
+`k`% "A dispatch rider will be sent out right away to find `s01."
+
+`k
+@writefile mail\mail`p26.dat
+`# A Post Dispatch rider hands you a letter.`$
+`x`x -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`x`x `2`n has sent you a gift.
+`x`x Be sure to stop by the dispatch office and pick it up.`$
+`x`x -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@DATASAVE FLIRTG.IDF &playernum 1
+@DATASAVE FLIRTGG.IDF `P26 1
+@DRAWMAP
+@UPDATE
+@END
+
+@#KISS
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Choosing a gift `r0`\
+`2 The attendant hands you a small lump of clay shaped like a pair of lips
+ and ask you to kiss it. Feeling rather foolish you look around to see if
+ anyone is looking and then quickly kiss the wax.
+
+`k`2 The wax feels cold and hard to your hand but when you press it to your
+ lips it feels warm and responsive. For a brief moment you could have sworn
+ it was `s01.
+
+`k`2 Unsure of what just happened you hand the wax back to the attendant.
+
+`k`% "A dispatch rider will be sent out right away to find `s01."
+
+`k
+@writefile mail\mail`p26.dat
+`# A Post Dispatch rider hands you a letter.`$
+`x`x -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`x`x `2`n has sent you a gift.
+`x`x Be sure to stop by the dispatch office and pick it up.`$
+`x`x -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@DATASAVE FLIRTG.IDF &playernum 1
+@DATASAVE FLIRTGG.IDF `p26 2
+@DRAWMAP
+@UPDATE
+@END
+
+@#HUG
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Choosing a gift `r0`\
+`2 The attendant escorts you to a small doorway and tells you to enter.
+ As you step inside the dark room the door closes behind you cutting off
+ the light that had flowed through it.
+
+`k A gentle hand touches yours and pulls you closer into a warm embrace.
+ The familiar contours can only be `s01's. A feeling of contentment
+ washes over you.
+
+`k The door opens and for a brief instant you see a grey form standing before
+ you. It drops to the floor and you realize it is but a piece of cloth. The
+ attendant gently retrieves the cloth and begins to carefully fold it.
+
+`k`% "A dispatch rider will be sent out right away to find `s01."
+
+`k
+@writefile mail\mail`p26.dat
+`# A Post Dispatch rider hands you a letter.`$
+`x`x -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`x`x `2`n has sent you a gift.
+`x`x Be sure to stop by the dispatch office and pick it up.`$
+`x`x -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@DATASAVE FLIRTG.IDF &playernum 1
+@DATASAVE FLIRTGG.IDF `p26 3
+@DRAWMAP
+@UPDATE
+@END
+
+@#NOGIFT
+@DO SAYBAR
+`$ You have already sent a gift today.
+
+@#GETTEAR
+@DATALOAD flirtm.IDF &PLAYERNUM `p26
+@DO `s01 IS GETNAME `p26
+@do move 1 1
+@SHOW
+`r0`c `%`r1 The Dispatch Office `r0`\
+`2 The attendant recognizes you. Smiling she hands you a small vial. Inside
+ seems to be a small amount of liquid. Opening the cap you pour it into your
+ hand.
+
+`k A gem drops into your waiting hand. You smile realizing it is a "Tear of
+ Joy" from `s01.
+
+`k You receive `$1 Gem
+
+`k
+@DATASAVE FLIRTGG.IDF &playernum 0
+@DO `p19 + 1
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#GETKISS
+@DATALOAD flirtm.IDF &PLAYERNUM `p26
+@DO `s01 IS GETNAME `p26
+@do move 1 1
+@SHOW
+`r0`c `%`r1 The Dispatch Office `r0`\
+`2 The attendant recognizes you. Smiling she hands you a small lump of clay
+ shaped like a pair of human lips and and ask you to kiss it. Feeling rather
+ foolish you look around to see if anyone is looking and then quickly kiss
+ the wax.
+
+`k`2 The wax feels cold and hard to your hand but when you press it to your
+ lips it feels warm and responsive. For a brief moment you could have sworn
+ it was `s01.
+
+`k A feeling of love consumes you and you feel you could defeat the world
+ with a love like this.
+
+`k You receive `$1 Muscle
+
+`k
+@DATASAVE FLIRTGG.IDF &playernum 0
+@DO `p04 + 1
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+
+@#GETHUG
+@DATALOAD flirtm.IDF &PLAYERNUM `p26
+@DO `s01 IS GETNAME `p26
+@do move 1 1
+@SHOW
+`r0`c `%`r1 The Dispatch Office `r0`\
+`2 The attendant recognizes you. Smiling she hands you a grey cloth. Not
+ really sure what you are suppose to do with it you wrap it around your
+ shoulders. The cloth envelopes you and seems to pull you closer into a
+ warm embrace. The familiar contours can only be `s01's.
+
+
+`k A feeling of security washes over you. Fear seems to be a forgotten
+ enemy.
+
+`k You receive `$1 Dodge
+
+`k
+@DATASAVE FLIRTGG.IDF &playernum 0
+@DO `p05 + 1
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#GIFTOUT
+@do move 1 1
+@SHOW
+`r0`c `%`r1 Talking with the dispatch officer. `r0`\
+`% I'm sorry but `s01 hasn't picked up the last gift yet. We can only store
+ one at the time.
+
+`k
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/flowers.ref b/xtrn/lord2/cnw/flowers.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c79b204de25ecd5dbf08be9338e32b7b54b7fc69
--- /dev/null
+++ b/xtrn/lord2/cnw/flowers.ref
@@ -0,0 +1,81 @@
+; Script file FLOWERS.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:17 2001
+
+@DECLARE notfun 000000303
+@DECLARE flowerbed 000000432
+@DECLARE flowerbed2 000000936
+@DECLARE whitesee 000001024
+@DECLARE whiteflower 000001365
+@DECLARE nomore 000001686
+@NOCHECK
+; End of .REF index
+
+@#notfun
+@routine getname in npcname2.ref
+@do saybar
+`$`s01: `%This sucks, take me away from here!
+@do goto flowerbed2
+
+@#flowerbed
+@if `p71 is 0 then goto flowerbed2
+@if `t50 > 1 then goto notfun
+@do `p26 is `p71
+@routine getname in npcname2.ref
+@do saybar
+`$`s01: `%WOW, this is BEAUTIFUL!
+@do `t50 is 7
+@dataload npc/npc3`p70.idf &playernum `p21
+@if `p21 is 0 then `p21 is 1
+@if `p21 > 0 then goto flowerbed2
+@datasave npc/npc3`p70.idf &playernum `p21
+@dataload npc/npc-`p70.idf &playernum `p20
+@do `p20 + 3
+@if `p20 > 200 then `p20 is 200
+@datasave npc/npc-`p70.idf &playernum `p20
+@do `p08 + 2
+
+@label flowerbed2
+@do quebar
+`$`N: `%WOW, what a beautiful flowerbed!
+@end
+@closescript
+
+@#whitesee
+@do `p20 random 3 1
+@if `p20 is 1 then do
+@begin
+@do saybar
+`|`$Why is this white flower all by itself?
+@end
+
+@if `p20 is 2 then do
+@begin
+@do saybar
+`|`$STOP!! Don't walk on that nice flower.
+@end
+
+@if `p20 is 3 then do
+@begin
+@do saybar
+`|`$There must be something special about this.
+@end
+@closescript
+
+@#whiteflower
+@do moveback
+@if `i92 > 0 then do
+ @begin
+ @do saybar
+`%@`2>- `4Nice white flower.
+ @closescript
+ @end
+@do saybar
+`%@`2>- `4Nice white flower, do you pick it? [N/y]
+@DO READSPECIAL `s01 NY
+@if `s01 is Y then do
+ @begin
+ @do `i92 + 1
+ @end
+@end
+@closescript
+
+@#nomore
diff --git a/xtrn/lord2/cnw/fonts/lord2.fnt b/xtrn/lord2/cnw/fonts/lord2.fnt
new file mode 100644
index 0000000000000000000000000000000000000000..d815d0621f975cc2ab5732dfa20061ec3208f3a4
Binary files /dev/null and b/xtrn/lord2/cnw/fonts/lord2.fnt differ
diff --git a/xtrn/lord2/cnw/fonts/readme.txt b/xtrn/lord2/cnw/fonts/readme.txt
new file mode 100644
index 0000000000000000000000000000000000000000..7df32e3411fd96eae7bf2e03638c9c7e74cc5275
--- /dev/null
+++ b/xtrn/lord2/cnw/fonts/readme.txt
@@ -0,0 +1,22 @@
+
+ If you don't already have LiTerm, well, go and
+ get it! :) it can be found at www.darktech.org in the
+ Archives in "DDO-F/X" section, or at pcmicro.com in the
+ "Door - DDO-F/X" section.
+
+ Once you have LiTerm, and this font, just copy
+ this font into the /literm/fonts/ directory, then load
+ the font up once your in LiTerm by pressing F10, then
+ go to SETUP, then FONTS.
+
+ AND VOILA!
+
+ Future versions will come out and it will be
+ right in the font in case you are not sure which font
+ you currently have at char#245.
+
+ Have fun!
+
+ Joel Gathercole
+ aka Greenie
+ http://thor.prohosting.com/~greenie/
diff --git a/xtrn/lord2/cnw/freddy.ref b/xtrn/lord2/cnw/freddy.ref
new file mode 100644
index 0000000000000000000000000000000000000000..6cfc8bea8721ffad25443020750ac8dd9479b427
--- /dev/null
+++ b/xtrn/lord2/cnw/freddy.ref
@@ -0,0 +1,545 @@
+; Script file FREDDY.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:42 2001
+
+@DECLARE sign 000000336
+@DECLARE doorway 000000424
+@DECLARE start 000001259
+@DECLARE buying 000003524
+@DECLARE broke 000005946
+@DECLARE selling 000006322
+@DECLARE door 000008819
+@DECLARE nomore 000012133
+@NOCHECK
+; End of .REF index
+
+@#sign
+@do moveback
+@do saybar
+`%<-- Fast Freddy's Gem Emporium
+@closescript
+
+@#doorway
+@do moveback
+@do `p20 is `v05
+@do `p20 / 12
+@if `p11 < `p20 then do
+ @begin
+ @do saybar
+Sorry, we are closed for the rest of the day.
+ @closescript
+ @end
+@if fredgems.idf exists false then do
+ @begin
+ @do `p20 random 100 1
+ @do `p21 random 5000 1
+ @if `p21 < 1000 then `p21 is 5000
+ @if `p20 < 5 then `p20 is 20
+ @datasave fredgems.idf 1 `p20 ;<---gems
+ @datasave fredgems.idf 2 `p21 ;<---gold
+ @end
+
+@datanewday empdoor.idf
+@dataload empdoor.idf &playernum `p20
+@if `p20 is 2 then do
+@begin
+@do moveback
+@do saybar
+`%Perhaps you should wait til Freddy forgets the lock incident.
+@closescript
+@end
+@loadmap 1580
+@do map is 1580
+@do x is 37
+@do y is 11
+@drawmap
+@update
+@closescript
+
+@#start
+@offmap
+@clear screen
+@show
+`#You step up to the counter. The countertop is made of glass, and inside you
+see many fine gemstomes.
+@key
+@show
+
+`#A man steps out from behind a curtain and smiles at you.
+@key
+@pauseoff
+@show
+[0;31m[43C[37m�[33;47m������[37;40m� [31;42m��������������[40m[A
+[69C[42m��Ŀ[40m
+[1;35m"Hi! I'm Fast Freddy. Welcome to[8C[0m�[33;47m�[37;43m[40m[A
+[44C[43m\ /[33;47m�[37;40m� [31;42m�[1mALL SALES FINAL![40m[A
+[72C[0;31;42m�[40m
+[1;35mFast Freddy's Gem Emporium. We buy[7C[0;33m���[34;43m�[40m[A
+[46C[33;40m�[34;43m�[33;40m���� [31;42m������������������[40m
+[1;35mand sell all kinds of gems. Are you[6C[0;33m����[30;43m�[40m[A
+[47C[33;40m�����
+[1;35minterested in buying or selling?"[10C[0;33;46m��[40m�[A
+[46C[31;43m���[33;46m��[40m
+[44C������
+[42C[1;34;46m����������[40m
+[39C[0;33m��[1;34;46m��[1C������[1C��[40m
+[36C[0;33m���������������������������������������
+[37C�[6C[1;34m������ �[0;33m�[19C�
+[37C�[32;46m*[1;33m*[0;34;46m*[31m*[1;33m*[0;31;46m*[34m*[40m[A
+[45C[46m[32m*[1;33m*[0;34;46m*[32m*[34m*[1;33m*[0;31;46m*[40m[A
+[52C[46m[32m*[36;43m��[1;33;46m*[0;32;46m*[1;33m*[0;34;46m*[40m[A
+[59C[46m[1;33m*[0;32;46m*[31m*[1;33m*[0;32;46m*[34m*[1;33m[40m[A
+[65C[46m*[0;31;46m*[1;33m*[0;34;46m*[31m*[32m*[1;33m*[40m[A
+[72C[0;32;46m*[33;40m�
+[37C�[32;46m*[34m*[1;33m*[0;31;46m*[32m*[34m*[31m*[1;33m*[40m[A
+[46C[0;34;46m*[32m**[34m*[1;33m*[0;31;46m*[32m*[31m*[1;33m[40m[A
+[54C[46m*[0;34;46m*[31m*[32m*[1;33m*[0;34;46m*[32m*[31m*[40m[A
+[62C[46m[1;33m*[0;32;46m*[31m*[1;33m*[0;32;46m*[34m*[1;33m[40m[A
+[68C[46m*[0;32;46m*[31m*[1;33m*[0;32;46m*[33;40m�
+[37C�������������������������������������
+[37C�[35C�
+[37C�[35C�
+@pauseon
+@do `v01 is 1
+@choice
+`%Buying
+`%Selling
+`%Neither
+@if response is 1 then do
+@begin
+@do goto buying
+@end
+@if response is 2 then do
+@begin
+@do goto selling
+@end
+@if response is 3 then do
+@begin
+@show
+`#"Well, come back when we can help you."
+@key
+@loadmap 1492
+@do map is 1492
+@do x is 44
+@do y is 13
+@drawmap
+@update
+@closescript
+@end
+
+@#buying
+@clear screen
+@dataload fredgems.idf 1 `p23
+@show
+`#Fast Freddy unlocks the back of the glass counter. He removes a tray of gems
+and places it on the countertop for your approval.
+
+ `2I only have `5`p23 `2gems available.
+
+@key
+@show
+
+`#"How many gems would you like to buy?"
+
+@do readnum 10 0
+@if `v40 = 0 then do
+@begin
+@clear screen
+@show
+`#"I'm sorry you changed your mind. Come back any time."
+@key
+@loadmap 1492
+@do map is 1492
+@do x is 44
+@do y is 13
+@drawmap
+@update
+@closescript
+@end
+@if `v40 > `p23 then do
+ @Begin
+ @clear screen
+ @show
+`#"Oh, I'm sorry. I do not have that many, I only have `p23 gems left.
+
+Come back another time when I have more.
+
+ @key
+ @do goto selling
+ @end
+
+@if `v40 < 0 then do
+@begin
+@clear screen
+@show
+`#"Oh, I'm sorry. I thought you wanted to BUY some gems. But that's OK. I'm
+more than happy to buy some from you!"
+@key
+@do goto selling
+@end
+@clear screen
+@show
+`#You carefully choose the `v40 gems.
+@key
+@do `p20 random 500 500
+@do `p20 * `v40
+@show
+
+`#Fast Freddy smiles at you.
+
+`#"Nice choice. I can see you have a well-trained eye."
+
+`#Fast Freddy does some tabulations and opens the cash box.
+
+`#"That'll be `p20 gold pieces please."
+
+@if money < `p20 then do
+@begin
+@do goto broke
+@end
+@key
+@show
+
+
+@do `v01 is 1
+@choice
+`%Pay the man.
+`%That's a bit too expensive.
+@if response is 2 then do
+@begin
+@clear screen
+@show
+`#Fast Freddy frowns.
+@key
+@show
+
+`#"I'm sorry you feel that way, but I can guarantee that you won't find a better
+deal anywhere in the realm. Come back if you change your mind."
+@key
+@show
+
+`#Fast Freddy shows you the door.
+@key
+@loadmap 1492
+@do map is 1492
+@do x is 44
+@do y is 13
+@drawmap
+@update
+@closescript
+@end
+@if response is 1 then do
+@begin
+@do money - `p20
+@do `p19 + `v40
+@dataload fredgems.idf 1 `p23
+@do `p23 - `v40
+@datasave fredgems.idf 1 `p23
+@dataload fredgems.idf 2 `p24
+@do `p24 + `p20
+@datasave fredgems.idf 2 `p24
+@clear screen
+@show
+`#You hand the money over to Fast Freddy and place the gems in your pack.
+@key
+@show
+
+`#"Nice doing business with you. Come back any time!"
+@key
+@show
+
+`#Fast Freddy holds the door for you as you exit.
+@key
+@loadmap 1492
+@do map is 1492
+@do x is 44
+@do y is 13
+@drawmap
+@update
+@closescript
+@end
+
+@#broke
+@clear screen
+@show
+`#You search through your backpack for the `p20 gold, but only find &money.
+@key
+@show
+
+`#Fast Freddy frowns.
+@key
+@show
+
+`#"Perhaps you should come back when you have more money."
+@key
+@show
+
+`#Fast Freddy shows you the door.
+@key
+@loadmap 1492
+@do map is 1492
+@do x is 44
+@do y is 13
+@drawmap
+@update
+@closescript
+
+@#selling
+@clear screen
+@show
+`#Fast Freddy smiles.
+@key
+@show
+
+`#"And how many gems would you like to sell me?"
+@key
+@do readnum 10 0
+@if `v40 = 0 then do
+
+@begin
+@clear screen
+@show
+`#"I'm sorry you changed your mind. Come back any time."
+@key
+@loadmap 1492
+@do map is 1492
+@do x is 44
+@do y is 13
+@drawmap
+@update
+@closescript
+@end
+@if `v40 < 0 then do
+@begin
+@clear screen
+@show
+`#"Oh, I'm sorry. I thought you wanted to SELL some gems. But that's OK. I'm
+more than happy to sell some to you!"
+@key
+@do goto buying
+@end
+@if `v40 > `p19 then do
+@begin
+@clear screen
+@show
+`#You hunt through your pack trying to find `v40 gems, but you only find `p19.
+@key
+@show
+
+`#Fast Freddy frowns.
+@key
+@show
+
+`#"Perhaps you should come back when you have some more gems to sell."
+@key
+@show
+
+`#Fast Freddy shows you the door.
+@key
+@loadmap 1492
+@do map is 1492
+@do x is 44
+@do y is 13
+@drawmap
+@update
+@closescript
+@end
+
+@clear screen
+@show
+`#Fast Freddy pulls out a magnifying glass and carefully examines the `v40 gems.
+@key
+
+@do `p20 random 300 200
+@do `p20 * `v40
+
+@dataload fredgems.idf 2 `p24
+@if `p20 < `p24 then do
+ @begin
+ @show
+
+`#"Well, the quality is a bit questionable. I can only offer you `p20 for the
+whole lot."
+ @end
+@if `p24 < `p20 then do
+ @begin
+ @show
+
+`#"Well, the quality is a bit questionable. I can only offer you `p24 for the
+whole lot."
+ @do `p20 is `p24
+ @end
+
+@key
+@do `v01 is 1
+@choice
+`%I'll take it!
+`%That's all?!? No way!
+@if response is 1 then do
+@begin
+@do money + `p20
+@do `p19 - `v40
+@dataload fredgems.idf 1 `p23
+@do `p23 + `v40
+@datasave fredgems.idf 1 `p23
+@dataload fredgems.idf 2 `p24
+@do `p24 - `p20
+@datasave fredgems.idf 2 `p24
+@clear screen
+@show
+`#You hand over the `v40 gems, and Fast Freddy gives you `p20 gold pieces.
+@key
+@show
+
+`#"Come back anytime!"
+@key
+@show
+
+`#Fast Freddy holds the door for you as you leave.
+@key
+@loadmap 1492
+@do map is 1492
+@do x is 44
+@do y is 13
+@drawmap
+@update
+@closescript
+@end
+@if response is 2 then do
+@begin
+@clear screen
+@show
+`#"I'm sorry you feel that way, but I can gurantee that you won't get a better
+offer anywhere in the realm. Come back if you change your mind."
+@key
+@show
+
+`#Fast Freddy shows you the door.
+@key
+@loadmap 1492
+@do map is 1492
+@do x is 44
+@do y is 13
+@drawmap
+@update
+@closescript
+@end
+
+@#door
+@do moveback
+@datanewday empdoor.idf
+@dataload empdoor.idf &playernum `p20
+@if `p20 is 0 then do
+@begin
+@do saybar
+`%You hear some very strange noises coming from behind that door.
+@datasave empdoor.idf &playernum 1
+@closescript
+@end
+@if `p20 is 1 then do
+@begin
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`2There is a HUGE padlock on the door. Do you try and pick it?? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+@if `s01 is N then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@if `s01 is Y then do
+@begin
+@clear screen
+@show
+`#You start to work on the lock.
+@key
+@show
+
+`#W`Wo`Wr`Wk`Wi`Wn`Wg `L. `L. `L. `L W`Wo`Wr`Wk`Wi`Wn`Wg `L. `L. `L. `L `@CLICK!
+@key
+@show
+
+`#The lock pops open...
+@key
+@show
+
+`#...just in time for you to hear a throat clearing behind you.
+@key
+@show
+
+`#You turn around.
+@key
+@clear screen
+@pauseoff
+@show
+
+[0;1m[43C[0m�[33;47m������[37;40m� [31;42m����������������[40m[A
+[71C[42mĿ[40m
+[1;34mA man is standing behind the counter[6C[0m�[33;47m�[43m [40m[A
+[45C[43m[37m\ / [33;47m�[37;40m� [31;42m�[1mALL SALES FIN[40m[A
+[69C[42mAL![0;31;42m�[40m
+[1;34mwith a bastard sword![17C[0m/�\ [33m���[34;43m� �[40m[A
+[48C[33;40m���� [31;42m������������������[40m
+[38C[37m��� [33m����[30;43m� [33;40m����
+[1;34mHe doesn't look happy, and he is[6C[0m��� [33;46m��[40m�[A
+[46C[31;43m� [33;46m��[40m
+[1;34mpointing toward the door.[13C[0m��� [33m������
+[38C[37m��� [1;34;46m���������������[0;33m���
+[1;34mYou take the hint and decide to[6C[0m�[43m���[1;34;47m�[40m[A
+[42C[46m�[1C������[40m
+leave the building.[17C[0;33m���������������������������������������
+[37C�[6C[1;34m������[23C[0;33m�
+[37C�[32;46m*[1;33m*[0;34;46m*[31m*[1;33m*[0;31;46m*[34m*[40m[A
+[45C[46m[32m*[1;33m*[0;34;46m*[32m*[34m*[1;33m*[0;31;46m*[40m[A
+[52C[46m[32m*[31m**[1;33m*[0;32;46m*[1;33m*[0;34;46m*[40m[A
+[59C[46m[1;33m*[0;32;46m*[31m*[1;33m*[0;32;46m*[34m*[1;33m[40m[A
+[65C[46m*[0;31;46m*[1;33m*[0;34;46m*[31m*[32m*[1;33m*[40m[A
+[72C[0;32;46m*[33;40m�
+[37C�[32;46m*[34m*[1;33m*[0;31;46m*[32m*[34m*[31m*[1;33m*[40m[A
+[46C[0;34;46m*[32m**[34m*[1;33m*[0;31;46m*[32m*[31m*[1;33m[40m[A
+[54C[46m*[0;34;46m*[31m*[32m*[1;33m*[0;34;46m*[32m*[31m*[40m[A
+[62C[46m[1;33m*[0;32;46m*[31m*[1;33m*[0;32;46m*[34m*[1;33m[40m[A
+[68C[46m*[0;32;46m*[31m*[1;33m*[0;32;46m*[33;40m�
+[37C�������������������������������������
+[37C�[35C�
+[37C�[35C�
+@key
+@pauseon
+@clear screen
+@show
+`#It probably wasn't a good idea to get Fast Freddy angry. He has friends
+in LOW places!
+@key
+@show
+
+`#I'd watch my step if I were you.
+@key
+@do `p20 is 100000
+@if bounty.&playernum exists true then do
+ @begin
+ @readfile bounty.&playernum
+`p21
+`p21
+ @do `p20 + `p21
+ @do delete bounty.&playernum
+ @end
+@writefile bounty.&playernum
+398
+`p20
+0
+ @do addlog
+ `0According to Nickabrick, Fast Freddy is mad at `n!
+ @routine seperate in gametxt.ref
+@loadmap 1492
+@do map is 1492
+@do x is 44
+@do y is 13
+@drawmap
+@update
+@datasave empdoor.idf &playernum 2
+@closescript
+@end
+@end
+@#nomore
diff --git a/xtrn/lord2/cnw/gamble.ref b/xtrn/lord2/cnw/gamble.ref
new file mode 100644
index 0000000000000000000000000000000000000000..8bdf8ddefede7c0991019b678ee47b79e15c665e
--- /dev/null
+++ b/xtrn/lord2/cnw/gamble.ref
@@ -0,0 +1,1119 @@
+; Script file GAMBLE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:15 2001
+
+@DECLARE townent 000001025
+@DECLARE enter 000002725
+@DECLARE help 000003252
+@DECLARE crapstart 000003689
+@DECLARE craps 000003733
+@DECLARE begin1 000004828
+@DECLARE nextroll 000005862
+@DECLARE hit 000006320
+@DECLARE win 000006371
+@DECLARE crapout 000006730
+@DECLARE lose 000006774
+@DECLARE bottom 000007116
+@DECLARE nomoney 000007161
+@DECLARE slotstart 000007271
+@DECLARE slots 000008334
+@DECLARE ending 000017974
+@NOCHECK
+; End of .REF index
+
+;Gambling Casino for Lord II: New World
+;Lord II: New World written by Seth A. Robinson
+;Gambling Casino written by Davey Case
+;You can e-mail your questions and comments to toadhall@chatlink.com
+;Currently has: Craps, Slots
+
+;5-16-97 touched up by Seth A. Robinson, added colors, 'per day' limits
+;and fixed it so Oranges worked in slots.
+;5-30-97 Townent added by Pap & Seth
+;townent
+;1-6-01 must be 21 to enter (Seth's rules) :), made it possible. CNW
+
+@#TOWNENT
+;For entering bonetown..
+@do `v01 is 1
+@if bounty.&playernum exist true then do
+ @begin
+ @do x is 77
+ @do y is 15
+ @do map is 1287
+ @loadmap 1287
+ @drawmap
+ @update
+ @do saybar
+ `0"Go right in Bounty s&boy .. hehe"
+ @closescript
+ @end
+;Positive Alignment
+@if `p07 > 0 then do
+ @begin
+ @do moveback
+ @do `v01 is 1
+ @show
+`r0`c `r1 `%BoneTown Gates `r0
+
+ `0"Hey there goody s&boy, nice people like you need to pay a fee to
+ get into our little playground. 500 gold like now!" `2demands the
+ big guard.
+
+ `%You have `$$&money `%gold.`2
+
+@do write
+`x`x
+@choice
+>&money 499 Pay the fee
+Forget it!
+@if response is 1 then do
+ @begin
+ @do `v40 is 500
+ @do `p30 is 23
+ @routine deposit in vaults.ref
+ @do money - 500
+ @show
+`\`\ `0"Thanks very much, go right in ..."
+`\`k
+ @do x is 77
+ @do y is 15
+ @do map is 1287
+ @loadmap 1287
+ @drawmap
+ @update
+ @closescript
+ @end
+@drawmap
+@update
+@closescript
+@end
+;OtherWise negative
+ @do moveback
+ @do `v01 is 1
+ @show
+`r0`c `r1 `%BoneTown Gates `r0
+
+ `0"Hey there my fine criminal, for you I'll make it a small fee to get
+ into our little playground. Like only 10 gold for you." `2states the
+ big guard.
+
+ `%You have `$$&money `%gold.`2
+
+@do write
+`x`x
+@choice
+>&money 9 Pay the fee
+Forget it!
+@if response is 1 then do
+ @begin
+ @do `v40 is 10
+ @do `p30 is 23
+ @routine deposit in vaults.ref
+ @do money - 10
+ @show
+`\`\ `0"Thanks very much, go right in ..."
+`\`k
+ @do x is 77
+ @do y is 15
+ @do map is 1287
+ @loadmap 1287
+ @drawmap
+ @update
+ @closescript
+ @end
+@drawmap
+@update
+
+@#enter
+;Going into the casino, made to bother those with bounties.
+@if bounty.&playernum exist true then do
+ @begin
+ ;if they HAVE a bounty on them
+ @do moveback
+ @DO SAYBAR
+ `0"No one with a price on s&his head comes in here."
+ @closescript
+ @end
+;If they don't have a bounty on them
+;age check. (if 21)
+@if `p39 < 21 then do
+ @begin
+ @do moveback
+ @do saybar
+ `0"You're underage, get lost kid.
+ @closescript
+ @end
+@do x is 34
+@do y is 17
+@do map is 1288
+@loadmap 1288
+@drawmap
+@update
+
+@#help
+ @show
+`r0`c `r1 Craps Help `r0
+
+ `2If you roll a `02`2, `03`2, or a `012`2 on your first roll, you lose.
+ If you roll a `07`2 or an `011`2 on your first roll, you win.
+
+ `2 Otherwise, the dice are rolled until the total of the
+ first roll is rolled again, in which case the player
+ wins. But if a `07`2 or an `011`2 is rolled after the first
+ roll, you lose.
+
+ Good luck!
+
+`k
+ @do goto craps
+ @end
+
+@#crapstart
+
+@do `v01 is 1
+@do goto craps
+
+@#craps
+@do moveback
+@busy
+@do `p24 is 0
+@do `p21 is money
+@show
+`r0`c `r1 Playing some Craps `r0
+
+ `2You have `$$`p21`2. How much do you want to wager? `2(`0`p33 `2gambles left`2)
+
+@do write
+`x`x
+@choice
+$5
+$10
+$20
+$50
+$100
+Help on craps
+Leave
+@if response is 6 then do
+ @begin
+ @do goto help
+ @end
+
+
+@if responce = 1 then do
+ @begin
+ @if `p21 < 5 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 5
+ @do goto begin1
+ @end
+@if responce = 2 then do
+ @begin
+ @if `p21 < 10 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 10
+ @do goto begin1
+ @end
+@if responce = 3 then do
+ @begin
+ @if `p21 < 20 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 20
+ @do goto begin1
+ @end
+@if responce = 4 then do
+ @begin
+ @if `p21 < 50 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 50
+ @do goto begin1
+ @end
+@if responce = 5 then do
+ @begin
+ @if `p21 < 100 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 100
+ @do goto begin1
+ @end
+@if response = 7 then do
+ @begin
+ @do goto ending
+ @end
+@label begin1
+@if `p33 < 1 then do
+ @begin
+ @show
+`r0`c `r1 `%You carefully spit on the dice for good luck. `r0
+
+`2 `4A hand catches yours before you can roll.
+`\`k `0"You've gambled enough for today we think, kid. Come back
+ tomorrow," `2 a greasy looking fellow explains.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@do `p33 - 1
+@show
+`r0`c `r1 `%You carefully spit on the dice for good luck. `r0
+
+@do `p22 random 5 1
+@do `p23 random 5 1
+@do `p24 + `p22
+@do `p24 + `p23
+@show
+ `0First Roll....
+
+@show
+ `2Die #1`0: `p22
+ `2Die #2:`0 `p23
+
+ `2Total: `0`p24
+
+@if `p24 = 2 then do
+ @begin
+ @show
+
+ `4Snake Eyes!
+ @do goto lose
+ @end
+@if `p24 = 3 then do
+ @begin
+ @show
+ `4Cock Eyes!
+ @do goto lose
+ @end
+@if `p24 = 12 then do
+ @begin
+ @show
+ `4Boxcars!
+ @do goto lose
+ @end
+@if `p24 = 7 then do
+ @begin
+ @show
+ `%A Natural!
+ @do goto win
+ @end
+@if `p24 = 11 then do
+ @begin
+ @show
+ `%A Natural!
+ @do goto win
+ @end
+@show
+ `0`p24`2 is your point.
+@label nextroll
+@do `p25 is 0
+@show
+
+ Press a key to roll again.
+@do `p22 random 5 1
+@do `p23 random 5 1
+@do `p25 + `p22
+@do `p25 + `p23
+@show
+`\`k `2Die #1: `0`p22
+ `2Die #2: `0`p23
+
+ `2Total: `0`p25
+@if `p25 = `p24 then do
+ @begin
+ @do goto hit
+ @end
+@if `p25 = 7 then do
+ @begin
+ @do goto crapout
+ @end
+@if `p25 = 11 then do
+ @begin
+ @do goto crapout
+ @end
+@show
+
+ `2Not your point, keep rolling the bones!
+@do goto nextroll
+@label hit
+@show
+
+ `0Yes! You hit your point.
+@label win
+@show
+
+ `2You win your bet of: `$$`p20`2!
+@if `p20 = 5 then do
+ @begin
+ @do money + 5
+ @end
+@if `p20 = 10 then do
+ @begin
+ @do money + 10
+ @end
+@if `p20 = 20 then do
+ @begin
+ @do money + 20
+ @end
+@if `p20 = 50 then do
+ @begin
+ @do money + 50
+ @end
+@if `p20 = 100 then do
+ @begin
+ @do money + 100
+ @end
+@do goto bottom
+@label crapout
+@show
+
+ `4You crapped out!
+@label lose
+@show
+
+ `2You lose your bet of: `$$`p20`2.
+@if `p20 = 5 then do
+ @begin
+ @do money - 5
+ @end
+@if `p20 = 10 then do
+ @begin
+ @do money - 10
+ @end
+@if `p20 = 20 then do
+ @begin
+ @do money - 20
+ @end
+@if `p20 = 50 then do
+ @begin
+ @do money - 50
+ @end
+@if `p20 = 100 then do
+ @begin
+ @do money - 100
+ @end
+@label bottom
+@show
+`\`k
+@do goto craps
+@label nomoney
+@show
+`\`\ `4I'm sorry, but you don't have enough money for that bet.
+
+`k
+@do goto craps
+
+@#slotstart
+@show
+`r0`c `r1 Welcome to the slot machines! `r0
+
+ `0Payoffs are:`2
+
+ `03 Bars`2....................................................`0100 `2to `01
+ 3 Bells`2....................................................`080`2 to `01
+ 3 Lemons`2...................................................`050 `2to `01
+ 3 Plums`2....................................................`030 `2to `01
+ 3 Peaches`2..................................................`025 `2to `01
+ 3 Oranges`2..................................................`010 `2to `01
+ 2 Bars & 1 Bell`2............................................`010 `2to `01
+ 2 Bells & 1 Lemon`2...........................................`09 `2to `01
+ 2 Lemons & 1 Plum`2...........................................`08 `2to `01
+ 2 Plums & 1 Peach`2...........................................`07 `2to `01
+ 2 Peaches & 1 Orange`2........................................`05 `2to `01
+ 2 Oranges & Anything`2........................................`02 `2to `01
+
+`k
+@do `v01 is 1
+@do goto slots
+
+@#slots
+@busy
+@do moveback
+@do `p20 is 0
+@do `p21 is 0
+@do `p22 is 0
+@do `p23 is 0
+@do `p24 is 0
+@do `p25 is 0
+@show
+`r0`c `% `r1 Pulling your lever `r0
+
+`2 You now have: `$$&money`2. Put how much in the machine? `2(`0`p33`2 gambles left)
+
+@do write
+`x`x
+@choice
+$1
+$2
+$5
+$10
+$20
+Show payoffs
+Leave
+@if response is 6 then goto slotstart
+
+@if responce = 1 then do
+ @begin
+ @do `p21 is 1
+ @end
+@if responce = 2 then do
+ @begin
+ @do `p21 is 2
+ @end
+@if responce = 3 then do
+ @begin
+ @do `p21 is 5
+ @end
+@if responce = 4 then do
+ @begin
+ @do `p21 is 10
+ @end
+@if responce = 5 then do
+ @begin
+ @do `p21 is 20
+ @end
+@if responce = 7 then do
+ @begin
+ @do goto ending
+ @end
+@if money < `p21 then do
+ @begin
+ @show
+
+ `4You don't have that much money!
+ @key
+ @do goto slots
+ @end
+
+@if `p33 < 1 then do
+ @begin
+ @show
+`r0`c `r1 `%You grab the level firmly `r0
+
+`2 `4A hand catches yours before you can pull.
+`\`k `0"You've gambled enough for today we think, kid. Come back
+ tomorrow," `2 a greasy looking fellow explains.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+@do `p33 - 1
+
+@show
+`\`\ `2You pull the lever as hard as you can.`\
+@do `p22 random 6 1
+@if `p22 = 1 then do
+ @begin
+ @show
+ `%Bar
+ @do `p23 + 300000
+ @end
+@if `p22 = 2 then do
+ @begin
+ @show
+ `7Bell
+ @do `p23 + 20000
+ @end
+@if `p22 = 3 then do
+ @begin
+ @show
+ `$Lemon
+ @do `p23 + 3000
+ @end
+@if `p22 = 4 then do
+ @begin
+ @show
+ `5Plum
+ @do `p23 + 100
+ @end
+@if `p22 = 5 then do
+ @begin
+ @show
+ `6Peach
+ @do `p23 + 20
+ @end
+@if `p22 = 6 then do
+ @begin
+ @show
+ `6Orange
+ @do `p23 + 3
+ @end
+@do `p22 random 6 1
+@if `p22 = 1 then do
+ @begin
+ @show
+ `%Bar
+ @do `p23 + 300000
+ @end
+@if `p22 = 2 then do
+ @begin
+ @show
+ `7Bell
+ @do `p23 + 20000
+ @end
+@if `p22 = 3 then do
+ @begin
+ @show
+ `$Lemon
+ @do `p23 + 3000
+ @end
+@if `p22 = 4 then do
+ @begin
+ @show
+ `5Plum
+ @do `p23 + 100
+ @end
+@if `p22 = 5 then do
+ @begin
+ @show
+ `6Peach
+ @do `p23 + 20
+ @end
+@if `p22 = 6 then do
+ @begin
+ @show
+ `6Orange
+ @do `p23 + 3
+ @end
+@do `p22 random 6 1
+@if `p22 = 1 then do
+ @begin
+ @show
+ `%Bar
+ @do `p23 + 300000
+ @end
+@if `p22 = 2 then do
+ @begin
+ @show
+ `7Bell
+ @do `p23 + 20000
+ @end
+@if `p22 = 3 then do
+ @begin
+ @show
+ `$Lemon
+ @do `p23 + 3000
+ @end
+@if `p22 = 4 then do
+ @begin
+ @show
+ `5Plum
+ @do `p23 + 100
+ @end
+@if `p22 = 5 then do
+ @begin
+ @show
+ `6Peach
+ @do `p23 + 20
+ @end
+@if `p22 = 6 then do
+ @begin
+ @show
+ `6Orange
+ @do `p23 + 3
+ @end
+@do `p24 is `p21
+@if `p23 = 900000 then do
+ @begin
+ @show
+
+ `%Jackpot!!! `0100 `2to `01`2 payoffs!!
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 200
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 500
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 1000
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 2000
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 60000 then do
+ @begin
+ @show
+
+ `2You win at `080`2 to `01`2 payoffs!
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 80
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 160
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 400
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 800
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 1600
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 9000 then do
+ @begin
+ @show
+
+ `2You win at `050`2 to `01`2 payoffs!
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 250
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 500
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 1000
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 300 then do
+ @begin
+ @show
+
+ `2You win at `030`2 to `01`2 payoffs!
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 30
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 60
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 150
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 300
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 600
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 60 then do
+ @begin
+ @show
+
+ `2You win at `025`2 to `01`2 payoffs!
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 25
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 125
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 250
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 500
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 9 then do
+ @begin
+ @show
+
+ `2You win at `010`2 to`0 1`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 200
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 620000 then do
+ @begin
+ @show
+
+ `2You win at `010`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 200
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 43000 then do
+ @begin
+ @show
+
+ `2You win at `09`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 9
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 18
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 45
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 90
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 180
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 6100 then do
+ @begin
+ @show
+
+ `2You win at `08`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 8
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 16
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 40
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 80
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 160
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 220 then do
+ @begin
+ @show
+
+ `2You win at `07`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 7
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 14
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 35
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 70
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 140
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 43 then do
+ @begin
+ @show
+
+ `2You win at `05`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 5
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 25
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 100
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 300006 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 2
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 4
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 40
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 20006 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 2
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 4
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 40
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 3006 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 2
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 4
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 40
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 106 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 2
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 4
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 40
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 26 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 2
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 4
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 40
+ @end
+ @key
+ @do goto slots
+ @end
+@show
+
+ `2I'm sorry, but you `4lose`2 your bet of: `$$`p21
+
+@if `p21 = 1 then do
+ @begin
+ @do money - 1
+ @end
+@if `p21 = 2 then do
+ @begin
+ @do money - 2
+ @end
+@if `p21 = 5 then do
+ @begin
+ @do money - 5
+ @end
+@if `p21 = 10 then do
+ @begin
+ @do money - 10
+ @end
+@if `p21 = 20 then do
+ @begin
+ @do money - 20
+ @end
+@key
+@do goto slots
+
+@#ending
+@drawmap
+@update
+@closescript
+
diff --git a/xtrn/lord2/cnw/game.dat b/xtrn/lord2/cnw/game.dat
new file mode 100644
index 0000000000000000000000000000000000000000..80944ba718c20b6a38143d2b06967f10e26cd8b1
Binary files /dev/null and b/xtrn/lord2/cnw/game.dat differ
diff --git a/xtrn/lord2/cnw/gametxt.ref b/xtrn/lord2/cnw/gametxt.ref
new file mode 100644
index 0000000000000000000000000000000000000000..24e4bf5bc2cb044a4fe84e111c773d7ed6048f54
--- /dev/null
+++ b/xtrn/lord2/cnw/gametxt.ref
@@ -0,0 +1,1060 @@
+This one of the main .ref files the LORD II engine will use as
+references. For help on making your OWN, check out REFHELP.DOC.
+
+Default LORD II files use the vars like this:
+
+The gold and bank vars are special cases, other vars do not have names.
+
+The list of how the variables are used has moved to VARLIST.DAT. This file
+is read by the configuration program - it gives descriptions in the player
+editor from this file. Check this file if you want to know what a var is
+for, or what free ones are available.
+
+NOTE: This file has been modified by ShroomTrip Software. Please read the
+ Sysop.Doc that came with this file to determine what changes have been
+ made.
+
+; Updated by CNW to handle the java telnet app
+;
+;
+;
+
+
+@#showlog
+@routine roses in rose.ref
+@routine readlog in logstuff.ref
+@routine newdata in gm23.ref
+@drawmap
+@update
+
+@#busy
+;player cannot play, someone is attacking him or something
+@show
+`c `r1 `%PROBLEM. `r0
+
+ `2Someone is attacking/giving you an item, please try again in few
+ minutes.
+
+`k
+@halt 0
+
+@#FULL
+;There are already 200 people playing.
+@show
+`r0`c `r1`% UH OH. `r0
+
+`2 This game already has `0200`2 people in it. Please try again in a few
+ days, people are deleted after `%15`2 days of inactivity.
+
+ `2Sorry. Until then, you can only dream of the wonderful world that awaits.
+
+`k
+@
+
+@#drawstats
+@if `p96 < 10 then `s02 is `5Sober`xenuf
+@if `p96 < 1 then `s02 is `x
+@if `p96 > 10 then `s02 is `5Mildly`xdrunk
+@if `p96 > 20 then `s02 is `5Feeling`xGOOD
+@if `p96 > 30 then `s02 is `5Dilerious!?!
+@if `p96 > 40 then `s02 is `5Drunk
+@if `p96 > 50 then `s02 is `5Way`xDrunk
+@if `p96 > 60 then `s02 is `5Pissed`xDRUNK!
+@do move 1 5
+@do `s10 is `p01
+@do pad `s10 18
+@do write
+ `2Experience : `0`s10 `2Hitpoints : (`0`p02`2 of `0`p03`2) `s02`\
+@do `p20 is gold
+@do `s10 is `p20
+@do pad `s10 18
+@do `p20 is bank
+@do `s09 is `p20
+@do write
+ `2Gold in bag: `$`s10 `2Gold in bank : `$`s09`\
+@do `s10 is `0
+@if `p07 less 0 then `s10 is `4
+@do `s10 add `p07
+@do pad `s10 18
+@do write
+ `2Alignment : `0`s10 `2Gems : `0`p19`\
+@do `s10 is `p11
+@if `p11 is 0 then `s10 is `4None
+@if `v05 < 1 then `s10 is Unlimited
+@do pad `s10 18
+@do write
+ `2Turns Left : `0`s10 `2Time left : `0&timeleft`\
+
+@do `s10 is S&weapon
+@do pad `s10 18
+@do `p20 is S&wep_num
+@do `p20 + `p04 (adding muscle to weapon strength to show it)
+@do write
+ `2Weapon : `0`s10 `2Total Attack : `0`p20 `\
+@do `s10 is S&armour
+@do pad `s10 18
+@do `p20 is S&arm_num
+@do `p20 + `p05 (adding dodge to armour defense to show it)
+@do write
+ `2Armour : `0`s10 `2Total Defense: `0`p20 `\
+
+@do `s10 is `p08
+@do pad `s10 18
+@do write
+ `2Charm : `0`s10 `2Quest Points : `0`p18`\
+
+@do `s10 is `p34
+@do pad `s10 18
+@do write
+ `2Lays : `0`s10 `2Kills : `0`p35`\
+
+@do `s10 is `p33
+@do pad `s10 18
+@do write
+ `2Gambles Left: `0`s10 `2Quests Left : `0`p31`\
+
+@do move 10 2
+@do write
+`2(`$`p39 `2years old. BDay on day `$`p72`2)
+@do move 45 2
+@do write
+`2(`2level `$`p09`2)
+
+@#drawwep
+;code to redraw the weapon for arming/unarming.
+@do move 3 9
+@do `s10 is S&weapon
+@do pad `s10 18
+@do `p20 is S&wep_num
+@do `p20 + `p04 (adding muscle to weapon strength to show it)
+@do write
+`r0`2Weapon : `0`s10 `2Total Attack : `0`p20 `\
+
+@#drawarm
+;code to redraw the armour for arming/unarming.
+@do move 3 10
+@do `s10 is S&armour
+@do pad `s10 18
+@do `p20 is S&arm_num
+@do `p20 + `p05 (adding dodge to armour defense to show it)
+@do write
+`r0`2Armour : `0`s10 `2Total Defense: `0`p20 `\
+
+@#stats
+;code to see if mate is with player, and name of.
+@routine getname in npcwith.ref
+@do `s02 is `s01
+@if `p71 is 0 then `s02 is Nobody
+@routine getplace in myhome.ref
+@show
+`r0`c`0 `5`n`2's of `5`s01 `2stats. `5`s02 `2is with you.
+`0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@routine drawstats in gametxt.ref
+@label justitems
+@do move 1 14
+@show
+`r5 `%Item Quantity `r0
+@do move 1 25
+@do write
+`r5`% `$`%Q `$to quit, `%ENTER`$ to use/equip/eat, `%D`$ to drop, `%N`$ for next page & `%P`$ for prev. `r0
+@do move 1 14
+@#closestats
+@routine newdata in gm23.ref
+@drawmap
+@update
+@closescript
+
+@#startgame
+;do startgame routines here
+@do move 1 1
+@CLEAR SCREEN
+@version 99
+;if version 99 or newer isn't detected, it will tell the player to
+;upgrade
+@do `v01 is 1
+@if map < 2 then map is 155
+@if map > 1600 then map is 155
+
+;
+;
+; Is it in WAR mode?
+;
+
+@if `v30 is 4 then do
+ @begin
+ @routine hate in hate.ref
+ @end
+@if `v30 is 5 then do
+ @begin
+ @routine hate in hate.ref
+ @end
+@if `v30 is 7 then do
+ @begin
+ @routine hate in hate.ref
+ @end
+
+;
+; Disable the SmackRod and/or GryphonMoon
+;
+;
+;@do `t98 is 5 ;=SmackRod
+;@do `t98 is 6 ;=Gryphon Moon
+;@do `t98 is 7 ;=both
+
+
+; Finding todays day # and year #
+@do `v11 is 0 ;day #
+@do `v12 is 0 ;year #
+@do `p26 is &time
+@label chkagain
+@if `p26 > `v10 then do
+ @begin
+ @do `v12 + 1
+ @do `p26 - `v10
+ @do goto chkagain
+ @end
+@do `v11 is `p26
+
+;check if its player b-day and checks for proper player age.
+@if `p39 < 10 then do
+ @begin
+ @do `p20 random 18 1
+ @if `p20 < 13 then do
+ @begin
+ @do `p20 + 5
+ @if `p20 < 13 then do
+ @begin
+ @do `p20 + 5
+ @if `p20 < 13 then do
+ @begin
+ @do `p20 + 5
+ @end
+ @end
+ @end
+ @do `p39 is `p20
+ @end
+@if `p73 < 1 then `p73 is `p39
+@if `p75 < 0 then `p75 is `v12
+@if `p72 < 1 then `p72 is 1
+@if `p74 < 1 then `p74 is 1
+; ;example
+@do `p20 is `p39 ;21y = current age
+@do `p20 - `p73 ;21y-15y = current age-original age
+@do `p21 is `v12 ;8 = year#
+@do `p21 - `p75 ;8-2 = year#-player start in year
+
+@if `p20 NOT `p21 then do
+ @begin
+ @if `v11 is `p72 then do
+ @begin
+ @do addlog
+`$It is `%`N's `$bday today. Congrats!
+ @routine seperate
+ @do `p39 + 1
+ @end
+
+ @if `v11 > `p72 then do
+ @begin
+; re-adjust in case age is messed up.
+ @do `p21 is `v12 ;8 = year#
+ @do `p21 - `p75 ;8-2 = year#-player start in year
+ @do `p21 + `p73 ;6+15y = player should be this old
+ @do `p39 is `p21 ;22y = setting proper age
+ @end
+ @end
+
+;@if `p39 < 10 then `p39 is 15
+;@if `p73 < 10 then `p73 is 15
+
+;check if was drunk and make changes.
+@if `p96 > 0 then do
+ @begin
+ @datanewday drunkday.idf
+ @dataload drunkday.idf &playernum `p20
+ @if `p20 is 0 then do
+ @begin
+ @do `p96 - 20
+ @if `p96 < 0 then `p96 is 0
+ @datasave drunkday.idf &playernum 1
+ @end
+ @end
+@if `p96 > 10 then do
+ @begin
+ @if `p96 > 60 then do
+ @begin
+ @do `p11 - 200
+ @do `p02 / 2
+ @do goto drunkend
+ @end
+ @if `p96 > 50 then do
+ @begin
+ @do `p11 - 150
+ @do `p02 / 5
+ @do goto drunkend
+ @end
+ @if `p96 > 40 then do
+ @begin
+ @do `p11 - 100
+ @do `p02 / 10
+ @do goto drunkend
+ @end
+ @if `p96 > 30 then do
+ @begin
+ @do `p11 - 75
+ @do `p02 / 15
+ @do goto drunkend
+ @end
+ @if `p96 > 20 then do
+ @begin
+ @do `p11 - 50
+ @do `p02 / 15
+ @do goto drunkend
+ @end
+ @end
+@label drunkend
+
+@routine npcpay in taxes.ref ;<-- NPCs need to pay taxes too!
+
+@do `s08 is donenpclost
+@do `s09 is gametxt.ref
+@routine finding in npclost.ref ;<-- is any NPC lost? where they found?
+@label donenpclost
+@do `i81 is 1 ;<-- make sure player has "Vehicles & People" item.
+
+@do write
+`r0`c
+
+@if `p10 is &time then do
+ @begin
+ ;guy has already played today
+
+@if dead is 1 then do
+ @begin
+ @if mail\mail&playernum.dat exist true then do
+ @begin
+ @checkmail
+ @key
+ @end
+
+ @if `v03 is 0 then do
+ @begin
+
+ @label deadstart
+ @show
+`r0`c `r1 `%A PROBLEM. `r0
+
+`2 You are lying battered and bruised on the ground. You can't do much
+ in this state.
+
+ `0Try again tomorrow.
+
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+ See todays news`%
+ List players `%
+ `4Quit the game `%
+@if responce is 1 then do
+ @begin
+ @routine readlog in logstuff.ref
+ @do goto deadstart
+ @end
+@if responce is 2 then do
+ @begin
+ @do `v01 is 1
+@do write
+`\`\
+@choice
+ Rank by Experience `%
+ List HomeTown/Lays/Kills`%
+@if responce is 2 then do
+ @begin
+ @DO MOVE 1 1
+ @do write
+`c`r0
+ @displayfile cnwscore.ans
+ @key bottom
+ @do goto deadstart
+ @end
+@do write
+`r0`c `0Ranking players...
+
+@do delete temp`*.dat
+@writefile temp`*.dat
+`r0`r1 `% LORD II RANKINGS `r0
+
+ `0Name Experience Level Status Alignment Quests
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@
+@lordrank temp`*.dat 1
+@DO MOVE 1 1
+@displayfile temp`*.dat
+@key bottom
+ @do goto deadstart
+ @end
+
+@show
+`\`\ `2Bye.
+
+ @halt
+ @end
+ @end
+
+
+@DO MOVE 1 1
+ @show
+ `r1 `% DAY &time `r0
+
+`2 You have already been out and about today.
+
+ @if `p11 > 0 then do
+ @begin
+ @show
+ `2You have `0`p11`2 turns left today.
+
+ @end
+
+ @show
+`2 You decide that you need to have another look at the world.
+@do write
+`\`2 [`0P`2]lay the Game, [`0R`2]ead the News [`%P`2]? `%
+@do readspecial `s01 PR
+
+@if `s01 is R then do
+ @begin
+ @routine readlog in logstuff.ref
+ @closescript
+ @end
+@if `s01 is P then do
+ @begin
+ @closescript
+ @end
+ @end
+
+@if `p10 not &time then do
+ @begin
+ ;NEWDAY!
+ @routine dismounth in vehicle.ref ;<--dismount your horse if mounted
+ @do `p50 is 1 ; <-- Number of wishes at the well per day
+ @do `p10 is &time
+ @do `p11 is `v05 ;this will give them the turns set in rules.ref
+ @do `t04 is 0 ;<-- Can fight master now
+ @do `p02 is `p03 ;<-- Give 'em max hit points
+ @do dead is 0 ;<-- Is now alive
+ @do `t09 is 0 ;<-- Has not visited shrine today
+ @do `t10 random 10 5 ;<-- Amount of fish in stream today
+ @do `p31 is `v07 ;<-- Reset quests per day possible
+ @do `p33 is `v08 ;<-- Reset gambles per day possible
+ @do `p32 + 1 ;<-- Advance quest age.. doesn't matter if there is one active
+ @bitset `t50 6 0 ;<-- havent gone out today with npc.
+ @do `t51 is 0 ;<-- havent gone out today with npc.
+ @bitset `t18 5 0 ;<-- RESET MORTAL IGM
+ @bitset `t12 7 0 ;<-- Has not LOST at Arena yet today
+ @if `p71 > 0 then do ;<-- did the npc get lost over night?
+ @begin
+ @do `p20 random 7 1
+ @if `p20 is 1 then do
+ @begin
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p20 random 30 1
+ @do `p22 - `p20
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @do `p26 is `p71
+ @routine getname in npcname2.ref
+ @writefile mail\mail&playernum.dat
+`\`\ `%You lost `$`s01 `%while you were sleeping.`\
+ `%What ever happened to protecting the innocent?`\`\`k
+ @do `p21 is map
+ @datasave npc/npclost.idf `p71 `p21
+ @datasave npc/npclost2.idf `p71 &playernum
+ @do addlog
+`%`s01 didn't return home last night.
+ @routine location in npclost.ref
+ @do `t50 is 0
+ @bitset `t50 6 1
+ @do `p71 is 0
+ @end
+ @end
+ ;Make horse hungrier if have a horse.
+ @if bitcheck `t79 1 1 then do
+ @begin
+ @if `t80 < 25 then do
+ @begin
+ @do `t80 is 0
+ @bitset `t79 1 0
+ @writefile mail\mail&playernum.dat
+`\ `0Your horse died while sleeping beside you. `1:`@(`\`\`k
+ @end
+ @do `t80 - 15
+ @end
+
+ @routine playertaxes in taxes.ref ;must check to see if player owes taxes.
+ @if s&wep_num > 0 then do
+ @begin
+ @show
+ `r1 `% DAY &time `r0
+
+ @if `p11 > 0 then do
+ @begin
+ @show
+ `2It is morning. You have `0`p11`2 turns left today.
+
+ @end
+ @show
+`2 You wake up early, strap your `0s&weapon`2 to your back and prepare for
+ adventure!
+
+ @end
+
+ @if dead is 0 then do
+ @begin
+
+ @if s&wep_num is 0 then do
+ @begin
+ @show
+ `r1`% DAY &time `r0
+
+ @if `p11 > 0 then do
+ @begin
+ @show
+ `2It is morning. You have `0`p11`2 turns left today.
+
+ @end
+@show
+`2 You wake up early, and prepare for adventure!
+
+ @end
+ @end
+
+
+ @if `p12 is 1 then do
+ @begin
+ @show
+`k `%You feel extra weak this morning.
+
+ `2You have `4VD`2. You must find a place to cure this soon, or you may die.
+
+ @do `p02 / 2
+ @end
+
+ @if `v05 > 0 then do
+ @begin
+ @if `i57 > 0 then do
+ @begin
+ @do `p20 is `i57
+ @do `p20 * 500
+ @do `p11 + `p20
+ @show
+ `2You get `0`p20`2 extra turns from `%Moonstone`2 power!
+
+ @end
+
+
+ @end
+
+
+
+@if `v03 is 1 then do
+ @begin
+ @if dead is 1 then do
+ ;if he is dead when he logs on
+ @begin
+ @do X is 27
+ @do Y is 7
+ @do dead is 0 ;he is now alive
+ @do `p02 is `p03 (give 'em max hit points)
+ @do MAP is 155 (move 'em home)
+ @end
+ @end
+
+
+@if map < 0 then map is 155
+@if map is 1 then do
+ @begin
+ @do map is 155
+ @show
+ `2Your mother is sitting by your bed, weeping.
+
+`k `$"Mom? Why the tears? Is it something I've done?" `2you ask.
+
+`k `0"I was so worried!" `2you mother sobs, `0"When the town elders
+ brought you here last night I was sure you were dead!"
+
+ `$"I'm sorry mother. I shall never scare you like this again!" `2you
+ promise.
+
+ @end
+ @end
+
+@if x < 1 then x is 27
+@if y < 1 then y is 7
+@if x > 80 then x is 27
+@if y > 24 then y is 7
+
+@show
+`k
+@do talk `0`n`x`2has`xentered`xthe`xrealm. all
+
+@routine readlog in logstuff.ref
+
+;do end routines here
+@#endgame
+@do talk `0`n`x`2has`xleft. all
+@if dead is 0 then do
+ @begin
+ @do move 1 24
+ @show
+
+`r0 `2You are lulled to sleep by a gentle breeze...
+
+ `0Come back soon.
+`2
+ @end
+
+@#RUN ;if the guy runs
+@drawmap
+@update
+
+@#DIE
+@do move 3 24
+@do write
+`r0 `x
+
+ @do X is 27
+ @do Y is 7
+ @do money / 2
+ @do `p02 is `p03 (give 'em max hit points)
+ @do `p20 is `p01
+ @do `p20 / 5
+ @do `p01 - `p20
+ @do MAP is 155
+ @do dead is 1
+ @update_update
+
+ @do talk `4Newsflash:`0`x`n`x`2was`xdefeated`xby`x`0`e`2! all
+ @do `p20 random 8 1
+ @if `p20 is 1 then addlog
+ `0`n`2 was whipped up on by `0`e`2!
+ @if `p20 is 2 then addlog
+ `0`e`2 has decapitated `0`n`2!
+ @if `p20 is 3 then addlog
+ `0`e`2 has eaten `0`n`2 for breakfast!
+ @if `p20 is 4 then addlog
+ `0`n`2 got s&his ass slaughtered by `0`e`2!
+ @if `p20 is 5 then addlog
+ `0`n`2 has died a pitiful death at the hands of `0`e`2!
+ @if `p20 is 6 then addlog
+ `0`e`2 was last seen hauling `0`n`2's body to their lair!
+ @if `p20 is 7 then addlog
+ `0`e`2 totally humiliates `0`n`2 in front of s&his lover!
+ @if `p20 is 8 then addlog
+ `0`n`2 curses the day `0`e`2 was born!
+ @routine seperate
+@do move 3 24
+@do write
+`4You've been killed. `k
+
+@pauseoff
+@show
+`r0`c
+[34C[0m���������������
+[29C���[1;30;47m����[0;47m�[1;30m�[0;47m�����������[40m�
+[28C�[1;30;47m����[0;47m������������������[40m�
+[27C�[1;30;47m����[0;47m��������[1;30m��[0;47m���������[40m�
+[19C��[5C�[1;30;47m����[0;47m����������[1;30m����[0;47m�����[40m
+[A[50C[47m[1;30m�[0m��
+[18C���� [1;30;47m�����[0;47m�����[1;30m� �[0;47m�[1;30m���[40m
+[A[43C[0;47m�����[1;30m�ܲ[0m�[47m�[1C[40m�[1;47m��[40m�
+[17C[30m�[47m�[0;47m��[1m�[0m� [1;30;47m���� [0;47m��[1;30m�[40m
+[A[34C[0;47m�[1;30m�����߰�[0;47m�[1;30m�[0;47m����[1;30m߲�[40m
+[A[52C[47m[0m�[1;30m�[47m�[0;47m�[1m�[40m�
+[17C[30;47m���[0;47m��[1m��[0m� [1;30m�[0m��� [1;30m�߲[47m[40m
+[A[37C[47m����[40m���[5C[0m��[1;30;47m�[40m�[47m��[0m� �
+[18C[1;30m���[47m��[0;47m� [1;30m�[1C[0m� [31m� [1;30m��
+[A[38C[47m���[40m� [0;31m� [37m��[1;30;47m�[40m�
+[23C[0m�[1;30;47m��[40m�[0m���� ��[1;30;47m�[0m��[1;30m�
+[A[41C[47m�[0m�� ��[1;47m�[0m�[1;30m�
+[25C[47m�[40m�[0m�[1;30;47m� [0;47m��[1;30m�����[0m� [1;30m� [0m�
+[A[42C[1;30;47m����[0;47m����[1m��[0m�
+[26C�[1;30;47m�[0;47m����[1;30mܲ��[0;47m�[2C[1;30;40m�� [47m��[40m
+[A[44C[47m�[0;47m�����[40m��
+[27C���[1;30;47m��[40m���[47m�[0m��[1;30;47m�����[40m��[0m� ����
+[29C[1;30m�� �� [0m��[1;30m�� �[0m�[1;30m� �� [47m��[0m�
+[27C�[1;30;47m���[40m� � [47m�[0m�[1;47m��[40m��[0m��[1;30;47m[40m
+[A[43C[47m�[40m� � [47m��[0;47m�[40m�
+[22C[1m� [47m��[30m��[40m� [0m� [1;30m� [0m� �[1m� �[0m� �
+[A[45C[1;30m��[47m�[1C[0m�[47m [1m�[40m���
+[19C�[47m�����[30m�[0m�� ���[1;30;47m�[0;47m�[40m�� ����� ��
+[A[45C[1;30;47m��[0;47m��[40m� �[1;30;47m�[37m��[40m�[47m�[40m
+[19C[0;31m� [37m���[1;30;47m�[40m�[0;33mܲ�� [37m�[1;47m��[30m[40m
+[A[34C[47m�[0;47m���[1;30m��[0;47m���� [1m��[0m� [33m���[1;30m�
+[A[53C[47m�[0m��[31m�
+[17C�����[37m�[1;30m�[0;31m���[33;41m����[40m� [37m�[1;47m�[40m
+[A[35C[0;47m��[1;30mܱ[40m�[47m��[40m�[47m�[37m�[0m� [31m�
+[A[48C[33;41m���[31;40m��[1;30m�[0;31m��۲��
+
+ `%You have made an error, s&boy.
+
+`k
+ @if `v03 is 0 then do
+ @begin
+ ;rules.ref file says unlimited deaths not allowed, so we will boot them
+ ;till tomorrow
+
+ ;take them off the map
+ @do map is 1
+ @halt
+ @end
+
+ @pauseon
+
+ @do dead is 0
+
+ @if `p07 less 0 then do
+ @begin
+ @show
+`r0`c`% `r1IT FEELS KINDA WARM IN HERE?`r0
+
+ `4You open your eyes.
+
+`k `4There are naked screaming people all around you. A little boy with
+ a ghastly face begins to gnaw on your leg.
+
+`k `6"Din, leave the newcomer alone. S&he isn't staying." `4a slow voice that
+ can only be described as an abomination dolefully states.
+
+`k `2You feel yourself floating away... faster and faster.
+ @end
+
+ @if `p07 more -1 then do
+ @begin
+ @show
+`r0`c`% `r1APPARENTLY DEATH ISN'T THE END.`r0
+
+ `2You open your eyes.
+
+`k `2You are lying on a table of solid rock in a marble room. Hundreds of
+ soft voices are murmuring all around you, but you see no one.
+
+`k `%"Send s&him back." `2a voice whispers, this one louder than the others.
+
+`k `2You feel yourself floating away... faster and faster.
+
+`k
+ @end
+
+
+@show
+`c `r1`%AWAKENING.`r0
+
+ `0"Can you hear me, `n?" `2a stressed voice shouts.
+
+ `$"Yeah. Christ mom, lemmie up, I'm fine." `2you assure your mother.
+
+ `0"You're alive!! The elders brought your body here yesterday, you must
+ have fainted out there." `2your mother shouts, tears of joy streaming down
+ her wrinkled face.
+
+ `$"Ok, ok - nice little happy reunion and all that, but I gotta hit the
+ road now. Buhbye." `2you tell her. Afterall, you need to make the most of
+ this new lease on life.
+
+ `2You lose `4half`2 the gold you were carrying and `4`p20`2 experience.
+
+`k
+ @loadmap map
+ @drawmap
+ @update
+
+@#iwon
+;is run after someone kills a player - if in multinode combat, L2
+;calls it directly, otherwise @#live calls it with a @routine.
+;the enemy guy they just killed is automatically put in `v39.
+@do `p35 + 1
+ @if grshow.shw exist true then do
+ @begin
+ @dataload grshow.shw 1 `p20
+ @dataload grshow.shw 2 `p24
+ @do `s01 is getname `p20
+ @if `v39 is `p20 then do
+ @begin
+ @do money + `p24
+ @do delete grshow.shw
+ @do quebar
+ `2You collect `0$`p24 `2for killing the `$Greatest Warrior in the Land`2!
+ @do addlog
+ `r5 `r0 `0`n `2killed `0`s01`2, and got the `0$`p24 `2for killing the
+@do addlog
+ `$Greatest Warrior in the Land`2! `r5 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+ @writefile mail\mail`p20.dat
+ `0`3Spr`7ing`4Fa`6ng `2reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`4 You've been killed by `0`n`4. I warned you to watch your back,
+ but I guess you just didn't pay attention. Oh well.
+
+
+
+
+@end
+@end
+
+ @if bounty.`v39 exist true then do
+ @begin
+ @readfile bounty.`v39
+`p23
+`p24
+ @do money + `p24
+ @do delete bounty.`v39
+ @do quebar
+`0BONUS: `%You collect a `$$`p24 `%bounty for this kill!
+ @do addlog
+ `0`n`2 collects a `$$`p24 `2bounty for the kill!
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+ @if `p23 not &playernum then do
+ @begin
+ @writefile mail\mail`p23.dat
+ `0`n `2reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `e`2 has been `4killed`2. Good doing business with you.
+
+ @end
+
+ @if `p23 is &playernum then do
+ @begin
+ @do quebar
+Haha, you got back your own money! Nice.
+ @end
+
+ @end
+
+
+@#live
+;@do `p35 + 1
+@do talk `4Newsflash:`0`x`n`x`2has`xslain`x`0`e`2! all
+@do `V40 random 10 1
+@if `v40 is 1 then addlog
+ `0`n`2 has killed `0`e`2 over a dispute involving cattle!
+@if `v40 is 2 then addlog
+ `0`n`2 has crushed `0`e`2's skull.
+@if `v40 is 3 then addlog
+ `0`n`2 has beaten `0`e`2 in a fair battle!
+@if `v40 is 4 then addlog
+ `0`n`2 has killed `0`e`2 to avenge his mother!
+@if `v40 is 5 then addlog
+ `0`n`2 buries `0`e`2's rotting body.
+@if `v40 is 6 then addlog
+ `0`n`2 thanks `4Belar`2 for the power to destroy `0`e`2.
+@if `v40 is 7 then addlog
+ `0`n`2 kills `0`e`2 for trespassing on s&his land.
+@if `v40 is 8 then addlog
+ `0`n`2 deprives `0`e`2 of living another minute.
+@if `v40 is 9 then addlog
+ `0`n`2 makes quick work of `0`e`2.
+@if `v40 is 10 then addlog
+ `0`n`2 slays `0`e`2.
+
+@routine seperate
+@run iwon
+
+@#newplayer
+@routine help in help.ref
+
+@do `V40 random 5 1
+@if `v40 is 1 then `s10 is Elwin
+@if `v40 is 2 then `s10 is Geengish
+@if `v40 is 3 then `s10 is Dimdom
+@if `v40 is 4 then `s10 is Magi
+@if `v40 is 5 then `s10 is Whinny
+
+@show
+`c `%IN THE BEGINNING.
+
+ `2There once was a poor `$`s10 `2couple who lived in a small village called
+ `0Stonebrook`2.
+
+ One day the mother felt very sick. Scared, her husband took her to Nathan,
+ the town physician - after careful examination he smiled wide.
+
+ `0"Dear woman, you aren't sick - you are with child!"
+
+@KEY
+@show
+`c `%IN THE BEGINNING.
+
+ `2The baby was born six months later - strangely enough on `0Gryphon Moon`2 day.
+
+ The young mother was delighted to find she had a new baby
+@do `v01 is 1
+@do move 61 7
+@choice
+boy.
+`#girl.
+@if responce is 1 then sexmale is 1
+@if responce is 2 then sexmale is 0
+@show
+
+@label namebaby
+@do `v01 is 1
+@if sexmale is 1 then `s10 is him`x
+@if sexmale is 0 then `s10 is her`x
+@show
+
+@do write
+ `2The mother decided to name `s10
+ @do readstring 20 &realname
+ @do stripbad `s10
+ ; change dark blue to light blue in their name
+ @do replaceall `1 `! `s10
+ @do `p20 is length `s10
+ @if `p20 less 1 then do
+ @begin
+ @do move 35 y
+ @show
+`bNothing`2.
+
+ `2She decided to name the baby nothing `8-`2 instead she sold the child
+ for `$20`2 gold pieces. That night she was overcome with guilt and hung
+ herself on the rotting pine behind the cottage.
+
+ Have a nice day, loser!
+
+ @key
+ @closescript
+ @end
+
+
+
+ @if `p20 less 3 then do
+ @begin
+ @show
+
+
+ `2But the husband disagreed. `0"Not such a short name, dear!"
+ @do goto namebaby
+ @end
+
+ @if checkdupe `s10 true then do
+ @begin
+ @show
+
+
+ `2But the husband disagreed. `0"We already know someone with that name!"
+ @do goto namebaby
+ @end
+
+ @end
+
+
+
+@show
+`\`\ `2She decided on `0`s10`2. The husband studied his wife carefully.`\
+@do write
+`x`x
+@choice
+"That is a good name. You have chosen very well, wife."
+"I don't think so. Try again."
+@if response is 2 then goto namebaby
+@do copytoname
+@if sex is 1 then `s09 is she
+@if sex is 0 then `s09 is he
+@show
+`c `r1 `%ARE YOU READY? `r0
+
+ `|`0Cunning. `|`4Guileful. `|`0Friendship. `|`4Deceit. `|`0Honor. `|`4Disgrace.
+
+ `|`%Life is what you make it.
+
+ `0Return to the adventure:
+
+ `| `0� `2killing and loving
+ `| `0� `2questing with other players
+ `| `0� `2traveling a huge land with diverse terrain
+ `| `0� `2purchase and upgrade your own dwelling
+ `|`0 � `2realtime online battles, chat & item trade
+ `|`0 �`2 follow your heart and find your own path
+
+`k
+@show
+`c `r1 `%SOME YEARS LATER `r0
+
+ `0One day you hear your mother shrieking from the kitchen of your small
+ cottage.
+
+ `2You'd better get out of bed and find out what she wants.
+
+ `|`b* `%NOTE `b*
+
+ `2This game requires a fully `2A`3N`4S`5I `2compliant terminal. If screens appear
+ jumbled `8- `2we suggest you try another terminal program, as this game is
+ not compatible with all of them. `%ALSO`2: Instead of arrow keys, you may
+ also use the `$numeric keypad`2, turn numlock on to do this.
+
+@KEY
+
+@do `v11 is `p26
+;Give them starting stuff
+
+ @do `p21 is `v20 ;<--max possible new player age
+ @do `p21 - `v19 ;<--max age - min age for difference
+ @do `p20 random `p21 `v19 ;<--find starting age
+ @do `p39 is `p20 ;<--Set the age
+ @do `p72 is `v11
+ @do `p73 is `p39
+ @do `p74 is &time
+ @do `p75 is `v12
+ @do `p01 is 1
+ @do `p02 is 10
+ @do `p03 is 10
+ @do `p04 is 5
+ @do `p05 is 1
+ @do `p09 is 1
+ @do `i76 is 1
+ @do X is 27
+ @do Y is 7
+ @do MAP is 155
+ @if `p39 < 10 then `p39 is 15
+ @if `p73 < 10 then `p73 is 15
+ @addchar
+
+
+ ;make sure player doesn't need to pay back taxes when they didn't even play
+ ;comment it if you want them to pay, but thats just too evil. <GRIN>
+@datasave taxyear.idf &playernum `v12 ;<--so player doesn't owe back taxes.
+
+;create player's birthday
+@do `p26 is &time
+@label chkagain
+@if `p26 > `v10 then do
+ @begin
+ @do `p26 - `v10
+ @do goto chkagain
+ @end
+@do `p72 is `p26
+@datasave b-day.idf &playernum 1
+
+; some reason these are not working.
+
+; Finding todays day # and year #
+@do `v11 is 0 ;day #
+@do `v12 is 0 ;year #
+@do `p26 is &time
+@label chkagain
+@if `p26 > `v10 then do
+ @begin
+ @do `v12 + 1
+ @do `p26 - `v10
+ @do goto chkagain
+ @end
+
+
+@#seperate
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@closescript
+
+@#DONE
diff --git a/xtrn/lord2/cnw/gandalf.ref b/xtrn/lord2/cnw/gandalf.ref
new file mode 100644
index 0000000000000000000000000000000000000000..ef0fed8a378f7ebaf2f2779f337b15a465e8e022
--- /dev/null
+++ b/xtrn/lord2/cnw/gandalf.ref
@@ -0,0 +1,361 @@
+; Script file GANDALF.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:20 2001
+
+@DECLARE daughter 000000242
+@DECLARE oldmeet 000000486
+@DECLARE sadman 000001476
+@DECLARE coldlady 000006356
+@NOCHECK
+; End of .REF index
+
+@#daughter
+@show
+
+ `0"She is! Thank you so much! I have something for you!!"
+`k
+ `$"Thanks... uh.. what is this blue stuff?"
+`k
+ `0"It's the cure for freeze, just poor it on my daughter!"
+`k
+ `$"I guess!!"
+`k
+@do `t40 is 6
+
+@#oldmeet
+@do `t40 is 1
+@do `v01 is 1
+@show
+`k`c `r1 MEETING THE OLD GUY. `r0
+
+ `0"My name is Gandalf. I was once a Trainer at Turgons."
+
+ `2You can't help but feel snicker - in jail!!!!
+
+ `0"Don't laugh, Its not funny!" `2the old one shouts.
+
+@do write
+`x`x
+@choice
+If you were such a great trainer, how did you end up here?
+Snicker even louder.
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"I quickly left Greentree, where I used to train.
+
+ `$"Why the hell you do that?" `2you politely ask.
+
+ `0"My daughter Lessa - my only child." `2he sighs.
+
+`k `0"I came here to save her... the IceLord Clan caught her stealing from
+
+ the treasure vault here.. You look like a smart s&boy, can you help?."
+`k
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"You weak little brat! Get out of here!" `2Gandalf shouts.
+
+ `$"Not until you tell me why you left Greentree!"
+
+ `0"I had important business to tend to! Get out!"
+
+ `k
+ @end
+
+@#SADMAN
+@do moveback
+@if bitcheck `t42 1 1 then do
+ @begin
+ @do saybar
+`0Prisoner: `2You got that old man out! Pretty decent of you!
+ @closescript
+ @end
+@busy
+@if `t40 more 0 then do
+ @begin
+ @show
+`r0`c `0Gandalf looks at you expectantly.
+
+ @end
+
+@if `t40 is 4 then do
+ @begin
+ @show
+ `0"Did you find my daughter?"
+
+ @end
+
+@if `t40 = 0 then do
+ @begin
+ @show
+`r0`c `2An old man with a stands before you.
+
+ @end
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+=`t40 0 What is wrong with you old man?
+=`t40 1 Tell me about you daughter, I wanna meet her!
+=`t40 2 Come on you old codger! What is with your daughter?
+=`t40 2 >`i08 0 Offer the Old Man your berry pie.
+=`t40 3 Ok, please tell me about your daughter.
+-`t41 0 =`t40 4 No sorry, not really - I wonder..
+=`t40 5 I have news - your daughter still lives! Just Frozen
+=`t40 7 =`t41 1 I have saved her! She gave me something for you!
+Leave.
+@do write
+`\`\
+@if responce is 8 then do
+ @begin
+ @pauseoff
+@do addlog
+ `r1 `r0 `0`n`% has saved Gandalf and his daughter! `r1 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@do `p18 + 10
+@bitset `t42 1 1
+@do `i74 = 0
+@readfile castle1.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @show
+`k`c `r1 Talking with Gandalf `r0
+
+ `2Gandalf opens the letter slowly. He looks sad.
+
+ `0"I knew she didn't do it! - but I don't understand why she found to
+ be guilty!"
+
+`k The letter goes on to tell him she took the blame for her best friend.
+ Gandalf is completely shocked!!!
+
+`k`c `r1`% Free Gandalf `r0
+
+ `0"Gandalf should be free! Gandalf is innocent!" `2a you explain to
+ `0the jail Guard. Other prisoners join your plea! - then, finally he
+ `0decides on letting Gandalf go!!!
+
+`k Gandalf walks slowly and happy - for the first time since you met him
+ you see him as a proud man! He demands to see his daughter.
+
+`k `2You see Gandalf's face look out a window. When his eyes fall upon the
+ beautiful daughter he runs to her! `0"`n`0! I missed you and thanks
+ to that young s&man you have returned!"
+
+ `$"You helped yourself. Don't loose her again!" `2you reply heartily.
+
+`k `%YOU RECIEVE 10 QUEST POINTS.
+
+ `2You give the two happy people one last goodbye.
+`k
+ @end
+
+@if responce is 1 then do
+ @begin
+ @routine oldmeet
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 7 then do begin
+ @begin
+ @routine daughter
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+@if responce is 2 then do begin
+ @begin
+@show
+ `0"She was a sweet daughter.. She took care of the house while I was
+ at work. She made the best pie!" `2Gandalf smiles.
+
+ `$"She sounds like neat person.. where is she?" `2you demand.
+
+ `0"I would rather not speak of this subject anymore," `2Gandalf's voice cracks
+ with emotion.
+
+`k
+ @do `t40 is 2
+ @do goto sadman
+ @end
+
+@if responce is 3 then do begin
+ @begin
+
+@show
+ `0"No, child. I will not speak of it!" `2Gandalf shouts.
+
+ `2He seems pretty determined. If only you had some kind
+ of peace offering... `0(hint: mom's pie)
+
+`k
+ @do goto sadman
+ @end
+
+@if responce is 4 then do begin
+ @begin
+
+@show
+ `0"A pie? For me?! Such a good s&boy!" `2Gandalf exclaims.
+
+ `$"Yeah... Yeah I am." `2you agree wholeheartedly.
+
+`k `%You get a quest point!
+
+`k
+ @do `t40 is 3
+ @do `p18 + 1
+ @do `i08 - 1
+ @do goto sadman
+ @end
+
+@if responce is 6 then do begin
+ @begin
+
+@show
+ `0"Don't worry, s&boy, You'll find her somehow..." `2Gandalf says.
+
+`k
+ @do goto sadman
+ @end
+
+
+@if responce is 5 then do begin
+ @begin
+
+@show
+ `0"Ok.. I'll tell you what happened."
+
+ `2You sit down on one of the empty prison beds. Story time!
+
+`k`c `r1 GANDALF'S STORY! `r0
+
+`0 "I was once a level 10 master. People would come from distant lands just
+ to train with me and Turgon," `2he describes it with detail as if it were
+ only yesterday.
+
+ `$"Thats great and all... but what did you do that got you put in jail!
+ Did you try to kill someone?" `2you ask curiously.
+
+`k Gandalf looks at you seriously. `0"Of coarse not! you silly s&boy!"
+
+ `2You snicker - is he telling the truth?
+
+`k `0"The truth is this - it was soon after the great Red Dragon had been
+ slain when.."
+
+ `$"Red dragon?" `2you rudely interrupt in astonishment.
+
+ `0"Nevermind.. suffice to say we were very happy and celebrating with a great
+ feast when something awful happened," `2Gandalf continues.
+
+`k `0"I received word that my daughter had tried to rob the IceLord Clan"
+
+`$ "Why did she rob them?!" `2you ask puzzled.
+
+ `0"She didn't rob them!" `2he screams.
+
+ `2His moist eyes convince you - you vow to find her!
+
+`k
+ @do `t40 is 4
+ @do goto sadman
+ @end
+
+@end
+
+@drawmap
+@update
+
+; This is the woman in the tower
+@#coldlady
+
+@if bitcheck `t42 1 1 then do
+ @begin
+ @do saybar
+`0Lessa: `2Thank you so much!
+ @closescript
+ @end
+
+@if `t40 less 4 then do
+@begin
+@do moveback
+@do saybar
+`0Wow a ice sculpture of a Woman.. Pretty!
+@end
+
+@if `t40 is 4 then do
+@begin
+@do moveback
+@do saybar
+`0Wait that's Lessa!!!
+@do `t40 is 5
+@end
+
+@if `t40 is 7 then do
+@begin
+@do moveback
+@do saybar
+`0Lessa: "Give him the letter!"
+@end
+
+@if `t40 is 6 then do
+ @do moveback
+ @begin
+ @show
+`r0`c `r1 SAVING LESSA. `r0
+
+ `2You poor the cure on Lessa! She melts!
+`k
+ `0"Woah! Thank you So much!!!"
+`k
+ `$"Shure... uh.."
+`k
+ `0"What is your name? I am Lessa!"
+`k
+ `2She is a very beautiful Woman
+`k
+ `$"My name is `n`$! You father told me about you!"
+`k
+ `0"Please do me a favor and give him this letter!"
+`k
+ `$"You got it!"
+`k
+ `0"Wait I have something for your troubles."
+`k
+ @if &sex is 0 then do
+ @begin
+ @show
+ `2She gives you a beautiful ring that makes you even more pretty
+`k
+ `2You thank her!!! `0(Charm raised by 5!)`2
+ @do `p08 + 5
+ @do `t41 is 1
+ @do `t40 is 7
+ @end
+
+ @if &sex is 1 then do
+ @begin
+ @show
+ `2She grabs you and kisses you! She won't let go!
+`k
+ `2`p08 minutes later you feel `0VERY`2 repaid!
+`k
+ @do `p34 + 1
+ @do `t41 is 1
+ @do `t40 is 7
+ @end
+
+@drawmap
+@update
+
diff --git a/xtrn/lord2/cnw/garden.clr b/xtrn/lord2/cnw/garden.clr
new file mode 100644
index 0000000000000000000000000000000000000000..605d32d3198d95c5698c05227d5e689cb3d8c0f0
--- /dev/null
+++ b/xtrn/lord2/cnw/garden.clr
@@ -0,0 +1,11 @@
+[?7h[255D[53C[0;31m�[32m���������������[37m�����[32m�����
+[51C[31m����[35m�[31m��[32m���������[37m������[32m�����
+[51C[31m���������� [37m��������[31m���[35m�[31m�[32m�[31m��[33m�
+[50C[35m�[31m������� �[37m��������[31m�����������
+[50C[35m���[31m������[37m���������[31m���[32m��������
+[50C[35m�����[32m�[35m��[37m����������[32m�����������
+[50C[35m���[31m�[35m������[37m��������[32m������[35m���[31m�[35m�
+[51C������[32m��[31m�[37m������������[35m���� ��
+[53C[32m���������[37m�������������[35m����
+[54C[32m���������[37m���������������[35m�
+[56C[32m��������[37m���������������
diff --git a/xtrn/lord2/cnw/gargoyle.ref b/xtrn/lord2/cnw/gargoyle.ref
new file mode 100644
index 0000000000000000000000000000000000000000..8c2d656dbe230d8bfe176fd7ea4d38ce2783257e
--- /dev/null
+++ b/xtrn/lord2/cnw/gargoyle.ref
@@ -0,0 +1,530 @@
+;ref file for GARGOYLE'S LANDING IGM by NiGHT fLYER
+
+@#Library1
+@do moveback
+@do `p20 random 8 1
+@if `p20 is 1 then saybar
+`%Anonymous: `0101 way to wok your dog
+@if `p20 is 2 then saybar
+`%Lord Mir: `0Objects are closer than they appear!
+@if `p20 is 3 then saybar
+`%Grimtooth: `0Tricks and Traps, an amatures handbook.
+@if `p20 is 4 then saybar
+`#Violet: `0All is fair in love and war
+@if `p20 is 5 then saybar
+`%Barak: `0FRAMED!
+@if `p20 is 6 then saybar
+`%Seth Able: `0I write the songs
+@if `p20 is 7 then saybar
+`%NiGHT fLYER: `0Gargoyles ROCK!!!
+@if `p20 is 8 then saybar
+`%Cooking for Canibals in 10 easy steps
+
+@#library2
+@do moveback
+ @do saybar
+ now THIS is a Chair!
+
+
+@#darkhall
+@do moveback
+@dataload gargfind.idf &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @do saybar
+`7you find nothing more in this damp cellar
+ @closescript
+ @end
+; @if `i57 is 0 then do
+; @begin
+ @do saybar
+ you find a `+57
+ @do `i57 + 1
+@datasave gargfind.idf &playernum 1
+; @do `i75 = 1
+ @closescript
+; @end
+
+@if `i75 is 1 then do
+ @begin
+ @do saybar
+ you find nothing more in this damp cellar
+ @end
+
+
+@#warm
+@do moveback
+ @do saybar
+ it's nice and toasty by the fire
+
+@#bow
+@do moveback
+ @do saybar
+`6Bow: `%must have been used a long time ago defending this castle...
+
+@#spear
+@do moveback
+ @do saybar
+`6Spear: `%it's worthless now after years of weather
+
+@#noise1
+@do moveback
+ @do saybar
+ you think you hear something upstairs!
+
+@#noise2
+@do moveback
+ @do saybar
+ What was THAT? There is Definitely something up there!
+
+@#food
+:free heal
+@offmap
+@do moveback
+@show
+`r0`c `r1 Well Prepared Meal `r0
+
+ `2You dive fork first into the food.
+
+ `%YOU ARE COMPLETEY HEALED.
+
+`k
+@do `p02 is `p03
+@drawmap
+@update
+
+@#showgargoyle
+@pauseoff
+@show
+
+
+
+
+[0;37;40m[6C [7C[1;33m.[10C[37m�[11C[33m.[9C[0m�
+[6C [14C[1;30m�[0m�[1;30m� ܱ� [37m�[7C�[9C[0m�[7C[1m.[0m
+[7C [1;32m [30m��������ܲ�[0m�[1;30m��V�۱������������[16C[0m.
+[7C [1;32m [30mܲ�����߲ [0;31mO [1;30m��� [0;31mO [1;30m��[8C[0;31m [37m.
+[7C [1;32m [30mܱ�����[0m�[1;30m������[0m�[1;30m���[0m�[1;30m߲�[0m
+[6C [1;30mܱ�����[0m�[1;30m���[0m�[1;30m���߲������� [37m� [5C[0mYou Stand Face-to-face
+[7C[1;30mܱ����[0m�[1;30m���[0m�[1;30m���[0m�[1;30m� ��߰��[17C[0m. with the massive
+[32m [1;30mܱ����[0m�[1;30m��[0m�[1;30m���[0m�[1;30m�� ������� [37m.[9C[0;31m [1;37m.[3C[0m [CStone Beast
+[32m [1;30mܱ���[0m�[1;30m���[0m�[1;30m��[0m�[1;30m��߰��������[9C[0m
+[32m [1;30mܱ��[0m�[1;30m��[0m�[1;30m���[0m�[1;30m�߱����������[10C[0m [17C[1;33m. [0m
+[32m [1;30m�����[0m�[1;30m��[0m�[1;30m��߱�����������[11C[0m [1;30m [37m�[0m
+[32m [1;30m������[0m�[1;30m��۱������������[10C[0m
+[32m [1;30m�������[0m�[1;30m����ܳ���������[9C[0m [5C[1;33m.[0m
+[32m [1;30m��������[0m�[1;30m�����ܰ�����[0m���[7C
+[32m [1;30m������������߲߲�[0m�[1;30m�[0m� ���[5C
+[32m [1;30m�������������[47m����������[0m� [1;30m�������������[47m����������[0m� [1;30m�������������[47m�[40m
+[0;32m [1;30m��������������[0m��������� [1;30m��������������[0m��������� [1;30m��������������
+[0;32m [1;30m��������������[0m��������� [1;30m��������������[0m��������� [1;30m��������������
+[0;32m [1;30m��������������[0m��������� [1;30m��������������[0m��������� [1;30m��������������
+[0m
+
+`k
+@pauseon
+
+
+@#gargoyle
+@do moveback
+@do `v01 is 1
+
+@busy
+@label gargoylestart
+@show
+`r0`c `r1 `%The Keeper of the Castle `r0
+
+ `7You've heard of these mythical creatures, but you didnt think
+ that they REALLY existed!!!
+
+ Now you are on a rooftop with this Graet stone beast perched on
+ a ledge in from of you
+
+ `%"Greetings, `n.`% I heard you down below," `7his booming voice
+ echoes through your head.
+
+@do write
+`x`x
+@choice
+You have wings, can you travel?
+What is this place?
+Make a wish!
+Look at him
+>`i57 0 What is the deal with this stone?
+Leave
+@if responce is 4 then do
+ @begin
+ @routine showgargoyle
+ @do goto gargoylestart
+ @end
+
+@if responce is 5 then do
+ @begin
+ @show
+`\`\ `$"Why was this just laying around in you basement?" `2you
+ ask him.
+
+`k `0"Its just a trinket that the master of this household left behind"
+
+`k
+ @do goto gargoylestart
+ @end
+
+@if response is 6 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 `%This is my domain now. `r0
+
+ `%"This was once the domain of my master...a powerful mage who has bound
+ me to this place to protect it until his return."
+
+`k `$"Well if you believe him to be gone forever why dont you leave?"
+`7you ask.
+
+ `%"Because of his great power I will always be drawn back to this place...
+ Besides...it's home
+
+`k
+ @do goto gargoylestart
+ @end
+
+@if responce is 3 then do
+ @begin
+ @show
+`r0`c `r1 `%????? `r0
+
+ `%"What do I look like, a Djinn?"
+
+`k `$"Sorry, wasnt thinking."`7you reply.
+
+`k
+ @do goto gargoylestart
+ @end
+
+
+
+ @show
+`r0`c `r1 `%Ready for a trip! `r0
+
+ `$"I wanna leave! This place is not for me." `7you explain.
+
+ `%"Well you are not a prisoner here, Where would you like
+ to go?" `7He asks - while looking out over the land beneath.
+
+@do write
+`x`x
+@choice
+Stonebrook
+Stonepass Lodge
+Soshen Village
+"Aww...forget it, You are nothing more than a stupid rock"
+"actually, I'll stay here a while longer"
+@if response is 5 then do
+ @begin
+ @do goto gargoyle
+ @end
+
+@show
+`\`\ `%"Lets GO!!" `7he says suddenly.
+
+ `$"Whoa wait...." `7you demand.
+
+`k `%"I dont have all day!!!" `7he responds.
+
+ `7Before you can reply, he grabs
+ you by the shoulders and carries you away
+
+`k
+ @if response is 1 then do
+ @begin
+ @do map is 1359
+ @loadmap 1359
+ @do x is 50
+ @do y is 6
+ @end
+
+ @if response is 2 then do
+ @begin
+ @do map is 880
+ @loadmap 880
+ @do x is 38
+ @do y is 12
+ @end
+
+ @if response is 3 then do
+ @begin
+ @do map is 536
+ @loadmap 536
+ @do x is 36
+ @do y is 7
+ @end
+
+
+ @if response is 4 then do
+ @begin
+ @do map is 132
+ @loadmap 132
+ @do x is 5
+ @do y is 10
+ @end
+
+@drawmap
+@update
+
+;ALL MONSTERS ARE BELOW HERE!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+@#monster1
+@fight
+;name
+Great White Shark
+;string said when you see him
+Duh.Duh...Duh.Duh...
+;power move kill string
+`$"Shark steaks for dinner tonight!" `2 you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+Rips at you with it' teeth|160
+pulls you under|84
+gets a hold with his teeth|94
+NONE|NONE
+NONE|NONE
+;defense
+45
+;gold reward
+176
+;experience
+120
+;hit points
+175
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Giant squid
+;string said when you see him
+A large black tentacle emerges from the water.
+;power move kill string
+"I wonder what squid tastes like"
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+chokes you with it's tentacle|89
+gets a good gash in your leg|98
+squeezes your head|120
+sprays black "ink" into your eyes|85
+NONE|NONE
+;defense
+37
+;gold reward
+187
+;experience
+165
+;hit points
+260
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Sea Worm
+;string said when you see him
+The water in front of you begins to move
+;power move kill string
+`$"Go back below the waves," `2 you command.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+draws blood with its teeth|83
+wraps around & squeezes you legs|114
+gets ahold with his sucker|127
+NONE|NONE
+NONE|NONE
+;defense
+42
+;gold reward
+0
+;experience
+189
+;hit points
+102
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Sea Serpent
+;string said when you see him
+A large serpentine head appears from the waves.
+;power move kill string
+One less serpent to deal with.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+chomps down on your arm|132
+trys to drown you|95
+gets you in a strangle hold|126
+Spews a water spout at you|87
+NONE|NONE
+;defense
+19
+;gold reward
+173
+;experience
+197
+;hit points
+183
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Man o' War
+;string said when you see him
+Foolishly you approach a blubbery organism
+;power move kill string
+`$"I think it's really dead this time," `2you hope.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+touches you with a blubbery tentacle|130
+lashes out with smile|95
+rubs against your leg with paralysing poison|140
+rolls into you|92
+NONE|NONE
+;defense
+35
+;gold reward
+103
+;experience
+177
+;hit points
+180
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster6
+@fight
+;name
+Giant Crab
+;string said when you see him
+You see a rather large looking crab, but it also sees you!
+;power move kill string
+`$"I had a bad case of crabs, but killed em."
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+snaps at your leg|115
+cracks into your leg|118
+grabs your hand with a pincher|125
+tramples into you|112
+NONE|NONE
+;defense
+42
+;gold reward
+145
+;experience
+172
+;hit points
+150
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster7
+@fight
+;name
+Pirate
+;string said when you see him
+Ahoy there!
+;power move kill string
+"Yo ho ho yourself"
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+slices with his hook|110
+attempts to chop you in two|115
+smacks you with his parrot|113
+NONE|NONE
+NONE|NONE
+;defense
+43
+;gold reward
+340
+;experience
+126
+;hit points
+140
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+gargoyle.REF|PIRATE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#FIGHT
+@do `p20 random 12 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@busy
+@do `p20 random 7 1
+@do goto monster`p20
+
+@#PIRATE
+@do money / 4
+@do money * 3
+@SHOW
+`r0`c `r1`% Defeat by the Pirate `r0
+
+ `2The Pirate raises his cutlass to deliver the blow to your skull...
+
+`k `0"Don't worry, I'm not all about killing, I'm about money. So I'm sure
+ you'll understand if I relieve you of a little." `2He proceeds to raid
+ your gold bag. But at least you have your life.
+
+`4 You lose `b1/4th`4 of your treasure.
+
+`k
+@do `p02 is 5
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+
+@#done
diff --git a/xtrn/lord2/cnw/genran.ref b/xtrn/lord2/cnw/genran.ref
new file mode 100644
index 0000000000000000000000000000000000000000..f1e8d638021be9547962bcfc341ece23b6e31039
--- /dev/null
+++ b/xtrn/lord2/cnw/genran.ref
@@ -0,0 +1,167 @@
+; Script file GENRAN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:13 2001
+
+@DECLARE genran 000000328
+@DECLARE npcfind 000003017
+@DECLARE taxes 000003057
+@DECLARE canoe 000003095
+@NOCHECK
+; End of .REF index
+
+;general random stuff that is usually called from any major tavel route
+;where roads are
+
+
+@#GENRAN
+@do saybar
+`7[ please wait ]
+@routine roses in rose.ref
+@do `p20 random 35 1
+
+@if `p20 is 1 then do
+ @begin
+ @run event1 in genran2.ref
+ @end
+@if `p20 is 2 then do
+ @begin
+ @run event2 in genran2.ref
+ @end
+@if `p20 is 3 then do
+ @begin
+ @run hunters in bounty.ref
+ @end
+@if `p20 is 4 then do
+ @begin
+ @run event4 in genran2.ref
+ @end
+@if `p20 is 5 then do
+ @begin
+ @run event5 in genran2.ref
+ @end
+@if `p20 is 6 then do
+ @begin
+ @run event6 in genran2.ref
+ @end
+@if `p20 is 7 then do
+ @begin
+ @run event7 in genran2.ref
+ @end
+@if `p20 is 8 then do
+ @begin
+ @run event6 in genran2.ref
+ ; yes, we want the run in with the Dragon Tooth guards to happen A LOT
+ @end
+@if `p20 is 9 then do
+ @begin
+ @run start in descent.ref
+ @end
+@if `p20 is 10 then do
+ @begin
+ @run event3 in genran2.ref
+ @end
+@if `p20 is 11 then do
+ @begin
+ @run event8 in genran2.ref
+ @end
+@if `p20 is 12 then do
+ @begin
+ @run event8 in genran2.ref
+ @end
+@if `p20 is 13 then do
+ @begin
+ @run event9 in genran2.ref
+ @end
+@if `p20 is 14 then do
+ @begin
+ @run event9 in genran2.ref
+ @end
+@if `p20 is 15 then do
+ @begin
+ @run event6 in genran2.ref
+ ; yes, we want the run in with the Dragon Tooth guards to happen A LOT
+ @end
+@if `p20 is 16 then do
+ @begin
+ @run event10 in genran2.ref
+ @end
+@if `p20 is 17 then do
+ @begin
+ @run canoe in genran2.ref
+ @end
+@if `p20 is 18 then do
+ @begin
+ @run canoe in genran2.ref
+ @end
+@if `p20 is 19 then do
+ @begin
+ @run canoe in genran2.ref
+ @end
+@if `p20 is 20 then do
+ @begin
+ @run horse in genran2.ref
+ @end
+@if `p20 is 21 then do
+ @begin
+ @dataload taxes.idf &playernum `p21
+ @if `p21 > 0 then do
+ @begin
+ @run taxes in genran2.ref
+ @end
+ @end
+@if `p20 is 22 then do
+ @begin
+ @run animalman in genran2.ref
+ @end
+@if `p20 is 23 then do
+ @begin
+ @run horse in genran2.ref
+ @end
+@if `p20 is 24 then do
+ @begin
+ @run movegold in vaults.ref
+ @end
+@if `p20 is 25 then do
+ @begin
+ @run seegold in vaults.ref
+ @end
+@if `p20 is 26 then do
+ @begin
+ @run seegold in vaults.ref
+ @end
+@if `p20 is 27 then do
+ @begin
+ @run hunters in bounty.ref
+ @end
+@if `p20 is 28 then do
+ @begin
+ @run hunters in bounty.ref
+ @end
+@if `p20 is 29 then do
+ @begin
+ @run hunters in bounty.ref
+ @end
+@if `p20 is 30 then do
+ @begin
+ @run hunters in bounty.ref
+ @end
+@if `p20 is 31 then do
+ @begin
+ @run hunters in bounty.ref
+ @end
+
+@if `p20 > 31 then do
+ @begin
+ @if `p96 < 1 then do
+ @begin
+ @run npcfind in genran2.ref
+ @end
+ @run drunk in genran2.ref
+ @end
+
+@#NPCFIND
+@RUN NPCFIND in GENRAN2.REF
+
+@#TAXES
+@RUN TAXES in GENRAN2.REF
+
+@#CANOE
+@RUN CANOE in GENRAN2.REF
diff --git a/xtrn/lord2/cnw/genran2.ref b/xtrn/lord2/cnw/genran2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..2c88970f08c6dd4d761171d42da38c47410000ee
--- /dev/null
+++ b/xtrn/lord2/cnw/genran2.ref
@@ -0,0 +1,1732 @@
+; Script file GENRAN2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:42 2001
+
+@DECLARE npcfind 000000897
+@DECLARE findloop 000001003
+@DECLARE taxes 000003572
+@DECLARE drunk 000005934
+@DECLARE canoe 000007428
+@DECLARE tab2high 000009256
+@DECLARE event3 000009630
+@DECLARE bird 000009864
+@DECLARE event8 000010631
+@DECLARE event7 000012077
+@DECLARE event6 000013233
+@DECLARE dbattle 000015958
+@DECLARE event5 000016593
+@DECLARE 4run 000017778
+@DECLARE 4win 000017864
+@DECLARE event4 000017964
+@DECLARE event2 000019501
+@DECLARE ev1 000019725
+@DECLARE event1 000021224
+@DECLARE event9 000022727
+@DECLARE event10 000023586
+@DECLARE animalman 000035550
+@DECLARE animal2 000036135
+@DECLARE horse 000037883
+@DECLARE done 000038241
+@NOCHECK
+; End of .REF index
+
+;
+; GENRAN.REF got too big.. took delays for players. So moved all events
+; to this file.
+;
+
+@#npcfind
+@if `p71 > 0 then do
+ @begin
+ @closescript
+ @end
+@do `p20 is 1
+@label findloop
+@dataload npc/npclost.idf `p20 `p21
+@if `p21 > 0 then do
+ @begin
+ @if `p21 is map then do
+ @begin
+ @do moveback
+ @do write
+`r1
+ @clearblock 21 21
+ @do move 3 21
+ @do write
+`r0`0You hear someone coming. Stick around? `2[`0Y`2/`0N`2] :`x
+ @do readspecial `s01 YN
+ @if `s01 is N then do
+ @begin
+ @do saybar
+You wait until the sounds are gone before advancing.
+ @closescript
+ @end
+ @if `s01 is Y then do
+ @begin
+ @do `p70 is `p20
+ @routine getname in npcname.ref
+ @show
+`c`r0 `r1 A Stranger in your travels `r0
+
+ `$`N: `5Hello?, who are you?
+
+ `$`s01: `6I'm `s01, and I am lost, could you please bring me back home?
+
+ `%<Y/n>
+
+ @do readspecial `s02 YN
+ @if `s02 is Y then do
+ @begin
+ @dataload npc/npclost.idf `p20 `p21
+ @if `p21 is &playernum then do
+ @begin
+ @show
+ `$`N: `5Yah sure, come with me. I'll take you to your home.`l`l`l`l
+
+ `$`s01: `6Hey!, it's YOU, the one that left me here!!`l`l`l
+
+ `$`N: `5Ummm, yah.. that was me.`l`l`l
+
+ `$`s01: `6Forget it`l.`l.`l I'll be better off without you!`l`l`l`\
+ @key
+ @closescript
+ @end
+ @show
+ `$`N: `5Yah sure, come with me. I'll take you to your home.`l`l`l`l
+
+ `$`s01: `6Thank you very much.`l`l
+ @key
+ @do `p71 is `p20
+ @bitset `50 0 1
+ @bitset `50 7 1
+ @end
+ @if `s02 is N then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+ @end
+ @end
+ @end
+@if `p20 > 199 then do
+ @begin
+ @closescript
+ @end
+@do `p20 + 1
+@do goto findloop
+
+@#taxes
+@busy
+; add more later
+@dataload taxes.idf &playernum `p21
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`0You hear something in the distance. `l`k
+@do move 1 1
+@clear screen
+@show
+`r0`x
+
+ `%<`4You can recognize them anywhere, they are tax collectors!`%>
+ `l`l`k
+ `$Tax Collector: `%Ahh, looky at who we found gentlemen.
+ `%It's ol' `N `%from `s01`%!`l`k
+
+ `$Guards: `%Perfect.. it's time to pay your taxes s&sir.`l`l
+ `l`k
+
+ `$`N: `%How much do I owe?`l`l`l
+ `l`l`k
+
+ `$Tax Collector: `%Exactly `$`p21 `%gold.`l
+ `l`l`k
+
+@if money < `p21 then do
+ @begin
+ @show
+ `$`N: %Sorry, I will have to return with more money, as I am not
+ `%carrying enough gold.`l`l
+ `l`l`l`k
+
+ @do `p23 is `v17
+ @do `p23 - 1
+ @if `p21 > `p23 then do
+ @begin
+ @show
+ `$Tax Collector: `%You have not paid your tributes in a long time. You are
+ `%going to be sent to jail without passing GO. <smirk>
+ `%GUARDS!! Take this sorry little s&boy away.
+ `l`k
+ `$Guards: `%Yes SIR!`l`k
+
+ `%<The guards grab your arms and pull you away to the GreenTree Prison>
+ `l`k
+
+ `$Tax Collector: `%Make sure you pay your dues as soon as you get out of
+ `%prison. Taxes are payable at the King SysOps Castle.
+ `l`l`k
+ @key
+ @do `s01 is didn't`xpay`xtaxes
+ @run enter in prison.ref
+ @end
+ @show
+ `$Tax Collector: `%This time you can leave, but don't let your taxes go over
+ `$`v17`% gold. You'll end up in jail for life.
+ `l`l`l`l`l`l`l`k
+
+ @key
+ @drawmap
+ @update
+ @closescript
+ @end
+@show
+
+ `%Will you pay now? or go pay later at the SysOp Castle or Bank. [Y/n]
+@DO READSPECIAL `s02 YN
+@if `s02 is Y then do
+ @begin
+ @show
+
+ `$`N: `%Okay sir, here I've got the `$`p21 `%gold.
+ `l`l`k
+
+ `%<you hand over `$`p21 `%gold>`l`l`k
+
+ @bitset `t19 7 0
+ @do money - `p21
+ @dataload vaults.idf 2 `p22
+ @do `p22 + `p21
+ @datasave vaults.idf 2 `p22
+ @key
+ @end
+
+@drawmap
+@update
+@closescript
+
+@drawmap
+@update
+@closescript
+
+@#drunk
+@if `p96 > 0 then do
+ @begin
+ @do `p96 - 2
+ @if `p96 < 0 then `p96 is 0
+ @end
+@if `p96 > 10 then do
+ @begin
+ @if `p96 > 60 then do
+ @begin
+ @do saybar
+`5The alchol is finaly taking some serious effects.`l`l`l`k
+ @do saybar
+`5You will soon pass out there on the ground.
+ @do `p11 - 200
+ @do `p02 / 2
+ @closescript
+ @end
+ @if `p96 > 50 then do
+ @begin
+ @do saybar
+`5The alchol is finaly taking some more dangerous effects.
+ @do `p11 - 150
+ @do `p02 / 5
+ @closescript
+ @end
+ @if `p96 > 40 then do
+ @begin
+ @do saybar
+`5The alchol is finaly taking some serious effects.
+ @do `p11 - 100
+ @do `p02 / 10
+ @closescript
+ @end
+ @if `p96 > 30 then do
+ @begin
+ @do saybar
+`5The alchol is finaly taking some effects.
+ @do `p11 - 75
+ @do `p02 / 15
+ @closescript
+ @end
+ @if `p96 > 20 then do
+ @begin
+ @do saybar
+`5The alchol is finaly taking effect.
+ @do `p11 - 50
+ @do `p02 / 20
+ @closescript
+ @end
+ @end
+
+@#canoe
+@busy
+@dataload canoe.idf &playernum `p21
+@if `p21 > 0 then do
+ @begin
+ @dataload canoeday.idf &playernum `p20
+ @if `p20 > 1 then do
+ @begin
+ @do saybar
+`$Paul: `%My CANOE, you didn't return it.`l`l`l`l`l`k
+ @do `p21 is `p20
+ @do `p22 is `p20
+ @do `p21 * 200
+ @do `p22 * 5
+ @do `p21 + `p22
+ @do saybar
+`$Paul: `%I'll have to charge you for `p20 days, that'll be `$$`p21`l`l`l`l`l`k
+ @do saybar
+`$Paul: `%Will you pay now? or put in your tab? [Y/n]
+ @DO READSPECIAL `s02 YN
+ @if `s02 is Y then do
+ @begin
+ @if money < `p21 then do
+ @begin
+ @if `p21 > 10000 then goto tab2high
+ @do saybar
+`$Paul: `%You do not have enough cash, I'll be seeing you again sometime.`l`l`l`l`l
+ @do quebar
+`$Paul: `%Do not let your tab go over `$$10,000`%, you'll be arrested.
+ @closescript
+ @end
+ @do money - `p21
+ @do saybar
+`$Paul: `%Thank-you, you may go on your way now.
+ @datasave canoeday.idf &playernum 1
+ @closescript
+ @end
+ @if `s02 is N then do
+ @begin
+ @if `p21 > 10000 then goto tab2high
+ @do saybar
+`$Paul: `%Do not let your tab go over `$$10,000`%, you'll be arrested.`l`l`l`l`l
+ @end
+ @end
+ @end
+@closescript
+@end
+
+
+@label tab2high
+@do saybar
+`$Paul: `%My CANOE, you didn't return it.`l`l`l`l`l`k
+@do saybar
+`$Paul: `%You owe me more than `$10,000.`l`l`l`l`l`k
+@do saybar
+`$Paul: `%You are going to go to jail now.`l`l`l`l`l`k
+@do saybar
+`%You were struck on the head from behind, then all goes black.`l`l`l`l`l`k
+@do `s01 is didn't`xpay`xcanoe`xrent
+@run enter in prison.ref
+@end
+
+
+@#event3
+@busy
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2You notice an ugly vulture flying above you. Stop? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is Y then do
+ @begin
+ @label bird
+ @busy
+ @show
+`c `r1 `%The Vulture `r0
+`\The ugly bird slowly circles overhead.
+`\What do you do?`\
+@do `v01 is 1
+@choice
+`%Throw a rock at it
+>&money 0 `%Throw your money pouch at it
+`%Wait for it to go away
+@if responce is 1 then do
+ @begin
+ @show
+`2The stone misses. The vulture flies away.`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\`%You toss your money pouch at the ugly thing`l.`l.`l.
+`k`\`%It makes an attempt to grab it`l.`l.`l.
+`k`\`%IT CATCHES IT!
+`\`%The vulture flys off toward Greentree.
+`k
+ @do `p20 is money
+ @do bank + `p20
+ @do money is 0
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce not 3 then goto bird
+@drawmap
+@update
+
+
+@#event8
+@busy
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`0You hear something in the distance. Investigate? `2[`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+@if `s01 is Y then do
+ @begin
+ @show
+`r0`c `r1 `%How NOT To Get "Ahead" `r0
+
+ `0After about 5 minutes, you find the source of the noise`w.`w.`w`w.`w.`w.
+
+ `%It's a severed head!
+`k
+ @show
+ `$"Don't I know you from somewhere?" `2you ask.
+
+ `0"I don't think so... My name is Olivia Newton-John. Does that help?"
+
+`k `2You laugh! `$"Olivia Newton-John? It's about time someone put you in your place!"
+ `2You notice two big tears well up in her eyes.
+
+ `$"Aww, cut it out. That fake cry-on-cue crap ain't gonna work on me."
+
+ `2Apperantly, she thinks different and begins to cry.
+
+`k `2After 2 minutes of her crying, you decide that you can't take anymore,
+ get physical, and give her a good boot!
+
+`k
+@do `p20 random 50 100
+@do `p20 + `p04
+ @show
+ `2She sails through the air...
+`k
+ @show
+`2`w.`w�`w-`w�`w�`w�`w[`w-`w-`w-`w-`w-`w-`w-`w-`w-`w-`w-`w-`w-`w-`w-`w]`w�`w�`w�`w-`w�`w.
+`k
+ @show
+ `2and lands `p20 yards away! Maybe next time she'll land in Xanadu!
+`k
+@do addlog
+`0WOW! `%`N `0kicked Olivia Newton-John's severed head `%`p20 `0yards!
+@do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@drawmap
+@update
+@closescript
+@end
+
+ @do saybar
+`%You decide you have better things to do.
+
+@#EVENT7
+;The travelers who speak of the dragon
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`2Sounds like traveling folk. Stop? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+@if `s01 is Y then do
+ @begin
+ @show
+`r0`c `r1 ` of Travelers `r0
+
+ `0"Hello!" `2says the leader. His groups seems happy and well travelled.
+ `$"Good day sir, how goes the travels?" `2you ask.
+ `2You sit down and talk with the group a while. They tell you how they're
+ on their way to FlagCity and then on to PortTown. They've heard many a
+ rumor and story on their quests. He also speaks of the dragon ...`k
+
+ `0"There are those who believe ... that the `bRed Dragon`0 is still alive.
+ With the existance of the Dragon Tooth clan that possibility seems more
+ and more real. If the Dragon is still alive, terror could very well
+ come to this land. I suspect only the Dragon Tooth ... and maybe the
+ Koshi know the truth." `(YOU ARE FULLY RESTED!)
+`\`k
+@do `p02 is `p03
+@drawmap
+@update
+ @do saybar
+`0"Have good travels!"
+@closescript
+@end
+
+ @do saybar
+You hide in the bushes while they pass.
+
+@#EVENT6
+;Evil with the Dragon Tooth Clan
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`2You hear a lot of footsteps coming. Investigate? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+@if `s01 is N then do
+ @begin
+ @do saybar
+You wait until the sounds are gone before advancing.
+ @closescript
+ @end
+
+
+@if `s01 is Y then do
+ @begin
+ @dataload child1.idf &playernum `p20
+ @if `p20 < 2 then do
+ @begin
+ @datasave child1.idf &playernum 1
+ @end
+ @show
+`r0`c `r1 ` Tooth Battalion `r0
+
+ `0"Halt lowly citizen!" `2the lieutenant screams. His men seem very
+ loyal and very shady.
+ `0"What's you business here?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Listen to what they have to say
+-`t18 0 Insult them
+-`t18 0 <`p07 -9 Inquire about recruitment
++`t18 0 Head to the castle
+Take off
+@if response is 1 then do
+ @begin
+ @dataload child1.idf &playernum `p20
+ @if `p20 < 2 then do
+ @begin
+ @datasave child1.idf &playernum 1
+ @end
+ @pauseoff
+ @show
+`\`\ `0"The Dragon is still alive my friends, and only we know of the way
+ to stop him. We may protect you, but for a price. It costs us to fight
+ off the beast on a constant basis. We need your money to make the towns
+ safe. Give it to us or your friends will surely die!" `2You stand not
+ very sure of this loser's speech. Sounds like a classic scam.
+
+ `$"I hate to ruin your fine speech sir, but I don't live near here."
+ `2you say.
+
+ `0"The Dragon has wings, he will travel. Soon your home may be next!"
+ `2he replys.
+`\`k
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `$"You guys suck, what a load of crap!!" `2you yell.
+
+ `0"You'll regret that s&boy." `2says the lieutenant.
+`\`k
+ @do goto DBATTLE
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `$"Hey, I like being evil. Could I join you guys and get a piece
+ of the action?" `2you ask.
+
+ `0"You are lowly, but not so lowly that you can't be trained. Yes ...
+ now I think I see a little potential in you s&boy. You could be
+ trained to serve us. Come, to our castle where you may learn more about
+ yourself in our eyes."
+`\`k
+ @loadmap 705
+ @do map is 705
+ @do x is 27
+ @do y is 11
+ @update
+ @drawmap
+ @closescript
+ @end
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `$"My masters, I must see the gatekeeper and ask him of my progress."
+ `2you say.
+
+ `0"It shall be done ..."
+`\`k
+ @loadmap 705
+ @do map is 705
+ @do x is 27
+ @do y is 11
+ @update
+ @drawmap
+ @closescript
+ @end
+@drawmap
+@update
+@if bitcheck `t18 0 0 then do
+ @begin
+ @do saybar
+`0"We'll meet again!"
+ @end
+
+@#DBATTLE
+@fight
+;name
+Dragon Tooth Battalion
+;string said when you see him
+They suddenly charge you, so much for protection.
+;power move kill string
+`$"Save your own ass!!" `2you shout.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+charges you|100
+surrounds and beats you|125
+practice with their swords on you|150
+attempt to trample you|97
+NONE|NONE
+;defense
+40
+;gold reward
+1400
+;experience
+210
+;hit points
+700
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@drawmap
+@update
+
+@#EVENT5
+;Injured person
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`2You hear an injured person nearby. Investigate? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is Y then do
+ @begin
+ @show
+`r0`c `r1 ` a fellow traveler `r0
+
+ `0"Please help me!" `2the injured man screams. His leg seems to have
+ taken quite a blow.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Help the man out
+Beat him and take his money
+Leave
+@if response is 1 then do
+ @begin
+ @do `p07 + 1
+ @show
+`\`\ `2You help the man, and with the first aid are able to get him on his
+ way to a city where he can further heal.
+
+ `bYOUR ALIGNMENT GOES UP BY ONE!`b
+`\`k
+@drawmap
+@update
+ @closescript
+ @end
+@if response is 2 then do
+ @begin
+ @do `p07 - 2
+ @do `p20 random 1300 221
+ @do money + `p20
+ @show
+`\`\ `$"Sure I'll help you .. die!" `2You slam him with your s&weapon, and
+ after he falls unconscious you raid his purse.
+
+ `2You find `$`p20 `2gold!
+
+ `bYOUR ALIGNMENT GOES DOWN BY TWO!`0
+`\`k
+@drawmap
+@update
+ @closescript
+ @end
+ @end
+@do saybar
+You are much too busy to help the man.
+@drawmap
+@update
+@#4run
+@drawmap
+@update
+@do quebar
+You run... she'll have to fend for herself.
+
+@#4win
+@drawmap
+@update
+@do `p07 + 1
+@do quebar
+You saved her! Alignment goes up by one.
+
+@#event4
+;if clean mode, find another event to run, this one isn't suitable...
+@if `v06 is 1 then goto genran
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`2A woman is being raped by two men nearby. Interrupt them? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is Y then do
+ @begin
+ @show
+`r0`c `r1 Violation or a right, you decide `r0
+
+ `0"Please help me!" `2the woman screams. The two men are wearing
+ Dragon Tooth armour... they also seem to be having quite the good time.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Help the woman and kill the men
+Join in the fun
+Leave the encounter
+@if responce is 2 then do
+ @begin
+@drawmap
+@update
+@do `p07 - 1
+@do `p34 + 1
+@do quebar
+A few hours later you are finished! Yeah! Alignment goes down by one.
+ @closescript
+ @end
+@if responce is 1 then do
+ @begin
+ @fight
+;name
+The Guards
+;string said when you see him
+`0"Kill that s&boy! s&he saw us" `2they yell!
+;power move kill string
+You strike a blow for justice this day!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+sock you|45
+clothesline you|52
+laugh as one trips you for|36
+NONE|NONE
+NONE|NONE
+;defense
+15
+;gold reward
+89
+;experience
+54
+;hit points
+136
+;if win: ref file|name or NONE
+GENRAN2.REF|4WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GENRAN2.REF|4RUN
+ @end
+@drawmap
+@update
+@closescript
+@end
+
+@do saybar
+Screw it, why be a hero?
+
+@#event2
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2A dark robed priest approaches. Speak with him? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is Y then do
+ @begin
+ @label ev1
+ @show
+`r0`c `r1 A deal, perhaps? `r0
+
+ `0"Greetings fellow traveler. Would you be interested in a traveling
+ potion for `$$500`0?" `2the priest asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Exactly how does it work, strange dark robed priest?
+>&money 499 Yes, I'll take it!
+>&money 499 No thanks.
+<&money 500 I can't afford it.
+@if response is 1 then do
+ @begin
+ @show
+`r0`c `r1 How it works `r0
+
+ `0"It's really very simple young s&man, first you drink it. Then you
+ wait. You will be randomly teleported to one of ten various places."
+
+ `$"What if I don't like where I am?"
+
+`k `0"Then you're pretty much screwed, aren't you," `2he laughs.
+
+ `$"Hey! A priest isn't supposed to talk like that!" `2you accuse.
+
+`k `0"We're also not supposed to sell illegal drugs, what's your point?"
+
+`k
+ @do goto ev1
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\ `0"Great doing business with you," `2he smiles as he hands you a
+ funny looking vial.
+`\`k
+ @drawmap
+ @update
+ @do `i50 + 1
+ @do money - 500
+ @closescript
+ @end
+
+
+
+ @if response is 3 then do
+ @begin
+ @show
+`\`\ `0"Maybe next time, friend," `2he smiles.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+ @if response is 4 then do
+ @begin
+ @show
+`\`\ `0"Maybe next time, friend," `2he smiles.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+ @end
+@do saybar
+You move to the side to let him pass.
+
+@#event1
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2A hooded figure approaches. Speak with him? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is Y then do
+ @begin
+ @busy
+ @do `p20 random 4 1
+ @if `p20 is 1 then `s10 is `+22
+ @if `p20 is 2 then `s10 is `+23
+ @if `p20 is 3 then `s10 is `+24
+ @if `p20 is 4 then `s10 is `+25
+ @do `p22 random 500 85
+
+ @do move 1 1
+ @clear screen
+ @show
+`r0 `r1 Dark Trading `r0
+
+ `0"Greetings, stranger. I have a very magical item called a `S10
+ `0for sale.. would you like to buy it for `$`p22`0?"
+ @do write
+`\`x`x
+ @do `v01 is 1
+ @choice
+>&money `p22 Sure, I'll take it
+I don't deal with your type.
+<&money `p22 Sorry, I can't afford that.
+ @if response is 1 then do
+ @begin
+ @if `p20 is 1 then `i22 + 1
+ @if `p20 is 2 then `i23 + 1
+ @if `p20 is 3 then `i24 + 1
+ @if `p20 is 4 then `i25 + 1
+ @do money - `p22
+ @show
+`\`\ `0"Nice doing business with you," `2the dark trader laughs evilly as
+ he hands you the `S10`2.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\ `0"You are making a mistake.." `2the dark trader grunts as he leaves.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @show
+`\`\ `0"Maybe next time.." `2the dark trader grunts as he leaves.
+`\`k
+ @drawmap
+ @update
+ @closescript
+
+ @end
+
+@do saybar
+You move to the side to let him pass.
+@#event9
+@do moveback
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`0You hear someone coming. Stick around? `2[`0Y`2/`0N`2] :`x
+@do readspecial `s03 YN
+@if `s03 is Y then do
+@begin
+@do `p20 random 5 1
+@if `p20 is 1 then do
+ @begin
+ @do `s10 is ugly
+ @do `s01 is You`xlose`x1`xcharm
+ @end
+@if `p20 not 1 then do
+ @begin
+ @do `s10 is pretty
+ @do `s01 is Charm`xgoes`xup`xby`x1
+ @end
+@show
+`r0`c `r5 `%WOAH! He's Nekkid! `r0
+
+`\ `2A naked old man runs by and bops you with his `s10 stick!
+`\ `0`s01!
+`\`k
+@if `p20 is 1 then do
+ @begin
+ @do `p08 - 1
+ @if `p08 < 0 then `p08 is 0
+ @end
+@if `p20 not 1 then do
+ @begin
+ @do `p08 + 1
+ @end
+@drawmap
+@update
+@do saybar
+`%Boogitty boogitty
+@closescript
+@end
+
+@do saybar
+`%You step to the side & watch as a naked old man runs by!
+
+@#event10
+;Risk
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2You see a `4w`@i`4z`@a`4r`@d `2that will do some magic (`$$50`2) [`0Y`2\`0N`2]: `x
+@do readspecial `s01 YN
+@if `s01 is Y then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+ `\`\ You don't have enough money for magic!"
+ `k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do money - 50
+ @show
+`\`\ `r0`c `r1 The risk! `r0
+
+ `$"Hey `4w`@i`4z`@a`4r`@d `$can you do some magic for me?"`2 You ask rudely.
+
+ `0"The `4w`@i`4z`@a`4r`@d `0turns around and does what you say."
+
+ `2He then starts to chant a song `0"It could be good, it could be bad
+ depends on what mood that I'm at!"
+`\`k
+@do write
+`x`x
+@do `v01 is 1
+@do `p20 random 45 1
+@if `p20 is 1 then do
+ @begin
+ @show
+`\`\`%You recieve 500 gold
+`\`k
+@do money + 500
+ @do addlog
+ `$�� `0`n `2has gain `$gold`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 2 then do
+ @begin
+ @show
+`\`\`bYou lose 500 gold`b
+`\`k
+@do money - 500
+ @do addlog
+ `$�� `0`n `2has lost `$gold`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 3 then do
+ @begin
+ @show
+`\`\`%You gain 300 gold
+`\`k
+@do money + 300
+ @do addlog
+ `$�� `0`n `2has gain `$gold`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 4 then do
+ @begin
+ @show
+`\`\`bYou loose 300 gold`b
+`\`k
+@do money - 300
+ @do addlog
+ `$�� `0`n `2has lost `$gold`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 5 then do
+ @begin
+ @show
+`\`\`%You gain 5000 gold
+`\`k
+@do money + 5000
+ @do addlog
+ `$�� `0`n `2has gain `$gold`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 6 then do
+ @begin
+ @show
+`\`\`bYou loose 2000 gold`b
+`\`k
+@do money - 500
+ @do addlog
+ `$�� `0`n `2has lost `$gold`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 7 then do
+ @begin
+ @show
+`\`\`%You gain 1 hit point
+`\`k
+@do `p03 + 1
+ @do addlog
+ `$�� `0`n `2has gain a `4Hitpoint`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 8 then do
+ @begin
+ @show
+`\`\`%You gain 2 hit points
+`\`k
+@do `p03 + 2
+ @do addlog
+ `$�� `0`n `2has gain `4Hitpoints`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 9 then do
+ @begin
+ @show
+`\`\`%You gain 5 hit points
+`\`k
+@do `p03 + 5
+ @do addlog
+ `$�� `0`n `2has gain `4Hitpoints`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 10 then do
+ @begin
+ @show
+`\`\`bYou loose 4 hit points`b
+`\`k
+@do `p03 - 4
+ @do addlog
+ `$�� `0`n `2has lost `4Hitpoints`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 11 then do
+ @begin
+ @show
+`\`\`%You lose 2 hit points
+`\`k
+@do `p03 - 2
+ @do addlog
+ `$�� `0`n `2has lost `4Hitpoints`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 12 then do
+ @begin
+ @show
+`\`\`%You lose 1 hit points
+`\`k
+@do `p03 - 1
+ @do addlog
+ `$�� `0`n `2has lost a `4Hitpoint`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 13 then do
+ @begin
+ @show
+`\`\`%You gain 500 experience
+`\`k
+@do `p01 + 500
+ @do addlog
+ `$�� `0`n `2has gain `!experience`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 14 then do
+ @begin
+ @show
+`\`\`bYou loose 500 experience`b
+`\`k
+@do `p01 - 500
+ @do addlog
+ `$�� `0`n `2has lost `!experience`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 15 then do
+ @begin
+ @show
+`\`\`%You gain 2000 experience
+`\`k
+@do `p01 + 2000
+ @do addlog
+ `$�� `0`n `2has gain `!experience`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 16 then do
+ @begin
+ @show
+`\`\`bYou loose 1000 experience`b
+`\`k
+@do `p01 - 1000
+ @do addlog
+ `$�� `0`n `2has lost `!experience`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 17 then do
+ @begin
+ @show
+`\`\`%You gain 1500 experience
+`\`k
+@do `p01 + 1500
+@drawmap
+@update
+@closescript
+ @do addlog
+ `$�� `0`n `2has gain `!experience`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@end
+@if `p20 is 18 then do
+ @begin
+ @show
+`\`\`bYou loose 100 experience`b
+`\`k
+@do `p01 - 100
+@drawmap
+@update
+@closescript
+ @do addlog
+ `$�� `0`n `2has lost `!experience`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@end
+@if `p20 is 19 then do
+ @begin
+ @show
+`\`\`%You gain 1 alignment
+`\`k
+@do `p07 + 1
+@drawmap
+@update
+@closescript
+ @do addlog
+ `$�� `0`n `2has gain `%alignment`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@end
+@if `p20 is 20 then do
+ @begin
+ @show
+`\`\`bYou loose 1 alignment`b
+`\`k
+@do `p07 - 1
+@drawmap
+@update
+@closescript
+ @do addlog
+ `$�� `0`n `2has lost `%alignment`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@end
+@if `p20 is 21 then do
+ @begin
+ @show
+`\`\`%You gain 2 alignments
+`\`k
+@do `p07 + 2
+@drawmap
+@update
+@closescript
+ @do addlog
+ `$�� `0`n `2has gain `%alignment`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@end
+@if `p20 is 22 then do
+ @begin
+ @show
+`\`\`bYou loose 2 alignments`b
+`\`k
+@do `p07 - 2
+@drawmap
+@update
+@closescript
+ @do addlog
+ `$�� `0`n `2has lost `%alignment`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@end
+@if `p20 is 23 then do
+ @begin
+ @show
+`\`\`%You gain 3 alignments
+`\`k
+@do `p07 + 3
+ @do addlog
+ `$�� `0`n `2has gain `%alignment`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 24 then do
+ @begin
+ @show
+`\`\`bYou loose 1 alignments`b
+`\`k
+@do `p07 - 1
+ @do addlog
+ `$�� `0`n `2has lost `%alignment`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 25 then do
+ @begin
+ @show
+`\`\`%You gain some berries
+`\`k
+@do `i01 + 3
+ @do addlog
+ `$�� `0`n `2has gain `6berries`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 26 then do
+ @begin
+ @show
+`\`\`bYou loose some berries`b
+`\`k
+@do `i01 - 3
+ @do addlog
+ `$�� `0`n `2has lost `6berries`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 27 then do
+ @begin
+ @show
+`\`\`%You gain some eggs
+`\`k
+@do `i43 + 3
+ @do addlog
+ `$�� `0`n `2has gain `%eggs`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 28 then do
+ @begin
+ @show
+`\`\`bYou loose some eggs`b
+`\`k
+@do `i43 - 3
+ @do addlog
+ `$�� `0`n `2has lost `%eggs`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 29 then do
+ @begin
+ @show
+`\`\`%You gain a couple of Green potions
+`\`k
+@do `i05 + 2
+ @do addlog
+ `$�� `0`n `2has gain `0Green potions`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 30 then do
+ @begin
+ @show
+`\`\`bYou loose a couple of Green potions`b
+`\`k
+@do `i05 - 2
+ @do addlog
+ `$�� `0`n `2has lost `0Green potions`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 31 then do
+ @begin
+ @show
+`\`\`%You gain 5 muscles
+`\`k
+@do `p04 + 5
+ @do addlog
+ `$�� `0`n `2has gain `7muscle`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 32 then do
+ @begin
+ @show
+`\`\`bYou loose 2 muscles`b
+`\`k
+@do `p04 - 2
+ @do addlog
+ `$�� `0`n `2has lost `7muscle`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 33 then do
+ @begin
+ @show
+`\`\`%You gain 2 dodges
+`\`k
+@do `p05 + 2
+ @do addlog
+ `$�� `0`n `2has gain `7dodges`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 34 then do
+ @begin
+ @show
+`\`\`bYou loose 2 dodges`b
+`\`k
+@do `p05 - 2
+ @do addlog
+ `$�� `0`n `2has lost `7dodges`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 35 then do
+ @begin
+ @show
+`\`\`% you gain 1 Red potions
+`\`k
+@do `i52 + 1
+ @do addlog
+ `$�� `0`n `2has gain `4Red potions`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 36 then do
+ @begin
+ @show
+`\`\`% you gain 2 Gold potions
+`\`k
+@do `i53 + 2
+ @do addlog
+ `$�� `0`n `2has gain `$Gold potions`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+@if `p20 is 37 then do
+ @begin
+ @show
+`\`\`% you gain 2 Silver potions
+`\`k
+@do `i54 + 2
+ @do addlog
+ `$�� `0`n `2has gain `7Silver potions`2 from the `4w`@i`4z`@a`4r`@d `$��
+ @routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+@end
+
+@if `p20 is 38 then do
+ @begin
+ @show
+`\`\`bYou are moved to Island of the Phreaks`b
+`\`k
+@loadmap 63
+@do map is 63
+@do x is 40
+@do y is 18
+@update
+@drawmap
+@closescript
+@end
+@if `p20 is 39 then do
+ @begin
+ @show
+`\`\ `%You are moved to Loki's Inn
+`\`k
+@loadmap 202
+@do map is 202
+@do x is 32
+@do y is 13
+@update
+@drawmap
+@closescript
+@end
+@do moveback
+@if `p20 is 40 then do
+ @begin
+ @show
+`\`\`bYou are moved to the middle of a battlefield`b
+`\`k
+@loadmap 293
+@do map is 293
+@do x is 40
+@do y is 10
+@update
+@drawmap
+@closescript
+@end
+@if `p20 is 41 then do
+ @begin
+ @show
+`\`\`bYou are moved to Bone Town`b
+`\`k
+@loadmap 1572
+@do map is 1572
+@do x is 70
+@do y is 17
+@update
+@drawmap
+@closescript
+@end
+@if `p20 is 42 then do
+ @begin
+ @show
+`\`\`bYou are moved to New StoneBrook`b
+`\`k
+@loadmap 156
+@do map is 156
+@do x is 7
+@do y is 3
+@update
+@drawmap
+@closescript
+@end
+@if `p20 is 43 then do
+ @begin
+ @show
+`\`\`bYou are moved to Marshy Fell`b
+`\`k
+@loadmap 1475
+@do map is 1475
+@do x is 39
+@do y is 13
+@update
+@drawmap
+@closescript
+@end
+@if `p20 is 44 then do
+ @begin
+ @show
+`\`\`bYou are moved to Slayers Domain`b
+`\`k
+@loadmap 935
+@do map is 935
+@do x is 40
+@do y is 10
+@update
+@drawmap
+@closescript
+@end
+@if `p20 is 45 then do
+ @begin
+ @show
+`\`\`bYou are moved to someplace in BigWood Forest`b
+`\`k
+@loadmap 300
+@do map is 300
+@do x is 40
+@do y is 11
+@update
+@drawmap
+@closescript
+@end
+
+@end
+@do saybar
+You decided not to get involved
+
+@#animalman
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2A dark robed priest approaches. Speak with him? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is Y then do
+ @begin
+ @do `p20 random 65 25
+ @do `p21 random 3000 1000
+ @do `p22 random 300 200
+ @do `p23 random 15 1
+ @do `p24 random 400 200
+ @do `p25 random 20000 5000
+ @do `p26 is 0
+ @do move 1 1
+ @clear screen
+ @show
+`r0 `r1 A deal, perhaps? `r0
+
+ `0"Greetings fellow traveler. I'm looking for little animals.
+ By any chance do you have any?
+
+@label animal2
+@key
+ @if `p26 is 1 then do
+ @begin
+ @do move 1 1
+ @clear screen
+ @show
+`r0 `r1 A deal, perhaps? `r0
+
+ `0"Do you have any more for me?
+
+ @end
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+>`i17 0 `$$`p20`% for a gloworm
+>`i18 0 `$$`p21`% for a parrot
+>`i29 0 `$$`p22`% for a salmon
+>`i30 0 `$$`p23`% for a green salmon
+>`i43 0 `$$`p24`% for a chicken egg
+>`i51 0 `$$`p25`% for a small fuzzy animal
+Nah, I dont think so
+@if response is 1 then do
+ @begin
+ @show
+`\ `0Thank you, these glowy buggers are great for tastes. Heres your `$$`p20`0.
+ @do money + `p20
+ @do `i17 - 1
+ @do `p26 is 1
+ @do goto animal2
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\ `0Thank you, i could always use more feathers. Heres your `$$`p21`0.
+ @do money + `p21
+ @do `i18 - 1
+ @do `p26 is 1
+ @do goto animal2
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\ `0Thank you, i could always use more scales. Heres your `$$`p22`0.
+ @do money + `p22
+ @do `i29 - 1
+ @do `p26 is 1
+ @do goto animal2
+ @end
+@if response is 4 then do
+ @begin
+ @show
+`\ `0Thank you, i could always use more green scales. Heres your `$$`p23`0.
+ @do money + `p23
+ @do `i30 - 1
+ @do `p26 is 1
+ @do goto animal2
+ @end
+@if response is 5 then do
+ @begin
+ @show
+`\ `0Thank you, i could always use more eggs. Heres your `$$`p24`0.
+ @do money + `p24
+ @do `i43 - 1
+ @do `p26 is 1
+ @do goto animal2
+ @end
+@if response is 6 then do
+ @begin
+ @show
+`\ `0Thank you, these are hard to fine, they make the best brew.`\ Heres your `$$`p25`0.
+ @do money + `p25
+ @do `i51 - 1
+ @do `p26 is 1
+ @do goto animal2
+ @end
+@drawmap
+@update
+@closescript
+@#HORSE
+@do `p20 random 5 1
+@if bitcheck `t79 1 1 then do
+ @begin
+ @do `t80 - `p20
+ @if `t80 < 1 then do
+ @begin
+ @bitset `t79 1 0
+ @do saybar
+`@`bYour HORSE is now dead!
+ @do quebar
+`4You should think about feeding it next time.
+ @end
+ @end
+@#done
+
diff --git a/xtrn/lord2/cnw/give.ref b/xtrn/lord2/cnw/give.ref
new file mode 100644
index 0000000000000000000000000000000000000000..33fb1454c5779e305eaee623221ad0c1628c8c77
--- /dev/null
+++ b/xtrn/lord2/cnw/give.ref
@@ -0,0 +1,101 @@
+; Script file GIVE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:38 2001
+
+@DECLARE start 000000330
+@DECLARE begin 000000862
+@DECLARE gryph 000000902
+@DECLARE give1 000001111
+@DECLARE smack 000001313
+@DECLARE give2 000001525
+@DECLARE leave 000001745
+@DECLARE haha 000001830
+@NOCHECK
+; End of .REF index
+
+@#start
+@offmap
+@do moveback
+@clear screen
+@do `v01 is 1
+@show
+`\
+`c `r1 `%SMACKROD & GRYPHON MOON DEALERSHIP `r0
+
+`$ "Hello! We are here to serve those who have lost their smackrod and
+ Gryphon Moons in IGM's that stupidly don't have an option to get
+ your specialty items back.."
+
+`0 "That's Great!"
+`k
+@do write
+`x`x
+@choice
+Get Back Your Gryphon Moon!
+Get Back Your Smackrod!
+Leave.
+@if response is 1 then goto gryph
+@if response is 2 then goto smack
+@if response is 3 then goto begin
+
+@#begin
+ @drawmap
+ @update
+ @end
+
+@#gryph
+@if `i72 is 1 then goto leave
+@if `t98 is 6 then goto haha
+@if `t98 is 7 then goto haha
+@if bitcheck `t17 7 1 then goto give1
+@drawmap
+@do saybar
+`$ "You Havn't Saved Them You Fool!!"
+@end
+
+@#give1
+@clear screen
+@show
+
+`$ "I see you have been deprived of the Gryphon Moon. We can help."
+
+`% THEY GIVE YOU BACK YOUR GRYPHON MOON!!!
+`k
+@do `i72 is 1
+@drawmap
+@update
+@end
+
+@#smack
+@if `i73 is 1 then goto leave
+@if `t98 is 5 then goto haha
+@if `t98 is 7 then goto haha
+@if bitcheck `t18 7 1 then goto give2
+@drawmap
+@do saybar
+`$ "You Havn't Stolen It Yet You Fool!!"
+@end
+
+@#give2
+@clear screen
+@show
+
+`$ "We've checked our records, and we see that yes, you are deprived of a
+ smackrod.."
+
+`% THEY GIVE YOU BACK YOUR SMACKROD
+`k
+@do `i73 is 1
+@drawmap
+@update
+@end
+
+@#leave
+@drawmap
+@do saybar
+`$ "Get Out Of Here! You Already Have One!!"
+@end
+
+@#haha
+@drawmap
+@do saybar
+`$ "Sorry King SysOp has felt that your not responsible enough to have it"
+@end
diff --git a/xtrn/lord2/cnw/glendale.ref b/xtrn/lord2/cnw/glendale.ref
new file mode 100644
index 0000000000000000000000000000000000000000..1f6f760e614b0ea4a13e2856a48a3226d4562047
--- /dev/null
+++ b/xtrn/lord2/cnw/glendale.ref
@@ -0,0 +1,639 @@
+; Script file GLENDALE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:25 2001
+
+@DECLARE castsign 000000868
+@DECLARE sign1 000000929
+@DECLARE town 000001002
+@DECLARE exittown 000001104
+@DECLARE healer 000001205
+@DECLARE weapon 000003108
+@DECLARE weap1 000003160
+@DECLARE raise 000003899
+@DECLARE barak 000005283
+@DECLARE train 000005315
+@DECLARE flink 000005617
+@DECLARE flinkstart 000005712
+@DECLARE armour 000007143
+@DECLARE gastart 000007197
+@DECLARE fountain 000007666
+@DECLARE king 000007739
+@DECLARE queen 000007835
+@DECLARE entcast 000007931
+@DECLARE exitcast 000008034
+@DECLARE hotel 000008200
+@DECLARE open 000008236
+@DECLARE exithotel 000011124
+@DECLARE exitglen 000011233
+@DECLARE enterglen 000011338
+@NOCHECK
+; End of .REF index
+
+; Routines For Glendale Grove IGM
+; MAJOR CODE RE-WRITE BY PATRICK MCCONVILLE
+
+@#castsign
+@do saybar
+`!Glendale Castle. Visitors welcome.
+
+@#sign1
+@do saybar
+`!<�� Glendale Castle The Town of Glendale ��>
+
+@#town
+@do x is 2
+@do y is 11
+@do map is 825
+@loadmap 825
+@drawmap
+@update
+@closescript
+
+@#exittown
+@do x is 25
+@do y is 13
+@do map is 824
+@loadmap 824
+@drawmap
+@update
+@closescript
+
+@#healer
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%The Healers
+
+`2 You see a sign on the wall that says healing cost 1/2 gold per hitpoint
+ needed.
+
+`2 Bursa 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.
+@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 baby!
+How about I pay with my good looks, honey?
+How 'bout you and me go in the back and I'll show you my sword?
+Meekly accept, and compliment her on her dress.
+@if response is 4 then do
+ @begin
+ @show
+ `0"Why thanks....now you better be getting along!" `2 she laughs.
+
+`k
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+ `0"How dare you say that to me! Get out!!!!" `2 she screams.
+
+`k
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+ `0"I'd rather kiss a troll." `2 she informs you.
+
+`k
+ @end
+@if response is 3 then do
+ @begin
+ @do `p02 = 1
+ @show
+ `0"How 'bout you try THIS sword!" `2 she yells as she sticks you with a needle!
+
+ `4HIT POINTS GO DOWN TO 1.
+
+`k
+ @end
+ @end
+
+ @drawmap
+ @update
+ @closescript
+ @end
+@do `p30 is 1
+@do `v40 is `p20
+@routine deposit in vaults.ref
+
+@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're a picture of perfect health, dear `$`n`$!" `2Bursa exclaims.
+
+`k
+@drawmap
+@update
+
+@#weapon
+@offmap
+@do moveback
+@do `v01 is 1
+@label weap1
+@show
+`r0`c `%Glendale Weaponry
+
+`2 You see an old man whittling on an even older stick.
+
+@do write
+`x`x
+@choice
+Examine his wares.
+Ask him to buy some of your stuff.
+Go outside.
+@if responce is 1 then do begin
+ @begin
+ @clearblock 8 14
+ @do move 1 7
+ @buymanager
+ 4
+ 6
+ 9
+ 15
+ 36
+ 38
+ 71
+@do goto weap1
+ @end
+
+@if responce is 2 then do begin
+ @begin
+@show
+ `!"I don't think so - I don't buy things back. Find a Pawn Shop and do
+ business with them!" `2the codger relates.
+
+`k
+@do goto weap1
+@end
+
+@if responce is 3 then do
+@Begin
+ @show
+ `\
+ `0 "Perhaps some other time then....."
+ `k
+ @drawmap
+ @update
+ @closescript
+@end
+
+ @drawmap
+ @update
+ @closescript
+@end
+
+@#raise
+;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!"
+
+ `2Damn, and you thought you were ready!
+
+`k
+ @closescript
+ @end
+
+@if `t04 > 0 then do
+ @begin
+ @show
+
+ `0"You already failed once today, come back tomorrow, loser!"
+ `2 You lower your head in shame and cower away!
+
+`k
+ @closescript
+ @end
+
+@show
+
+ `0"You've been at level `p09 long enough."
+
+@if `p09 IS 1 then do
+ @begin
+ @show
+ `$"Cool! So where is the master I fight?" `2you beam with pride.
+
+`k `0"Master? Haw! Now that *I* run this place we do it my way!" `2FLiNK
+ laughs as he crumbles a strange black root into a mortar...
+
+ `2You anxiously await your fate...
+
+@end
+@show
+`k
+`c `r1`4 DRINKING YOUR OWN INIQUITY `r0
+
+`2 FLiNK hands you a cup and asks you to drink.
+
+ `2You nearly retch as you feel the vessel's oily contents slide down
+ your throat.
+
+`k `2FLiNK leads you to a small room with a cot. `2"I'll be back in a few
+ hours, then we'll see if you're still this cocky!"
+
+`2 You lay down and begin dreaming immediately.
+
+`k
+@do `s01 is glendale
+@routine startfight in training.ref
+@closescript
+
+@#barak
+@do goto flinkstart
+
+@#train
+@do `p21 is `v05
+@do `p21 / 24
+@if `p11 < `p21 then do
+ @begin
+ @do moveback
+ @do saybar
+`0There is not enough time for today, come back tommorow.
+ @key bottom
+ @closescript
+ @end
+@offmap
+@do moveback
+@do `v01 is 1
+@do goto flinkstart
+
+@#flink
+@offmap
+@if bitcheck `t19 1 1 then goto turg
+@do moveback
+@do `v01 is 1
+@label flinkstart
+@show
+`r0`c `%FLiNK's Training Center
+
+`2 Hundreds of warriors are randomly jumping and shrieking in their
+ efforts to better themselves.
+
+ Although the building itself is old and scarred, the sign is new.
+
+@do write
+`x`x
+@choice
+Ask for a level raise.
+Talk to Master FLiNK.
+Leave
+@if responce is 1 then do
+ @begin
+ @routine raise
+ @do goto flinkstart
+ @end
+
+@if responce is 2 then do
+ @begin
+ @if `t01 is 4 then do
+ @begin
+ @show
+`r0`c `%Talking to Master FLiNK
+
+ `0"Make it fast kid, I'm busy!"
+
+ `$"Um, FLiNK? Where are the other trainers, as is the tradition?" `2you
+ innocently ask.
+
+`k `0"Other trainers?! Now that *I'M* the new MASTER TRAINER, I fired the
+ rest! I am the master for EVERY LEVEL NOW!" `2FLiNK cackles evilly.
+
+ `$"Wow, nice. You must have worked long and hard to achieve this position,
+ Master FLiNK."
+
+`k `0"Of course I did! That last Master, this geezer known as turned
+ out to be a real looser, he had a crappy system of level raising" `2FLiNK
+ laughs crudely.
+
+`k
+ @do `t01 is 5
+ @do goto flinkstart
+ @end
+
+ @show
+`r0`c `%Talking to Master FLiNK
+
+ `0"Sorry kid, I'm a little busy TEACHING, because after all, I am sort of
+ the MASTER of this whole place - you can grasp that concept, can't you?"
+
+ `2Wow, what an ass. Maybe he'll talk later.
+
+`k
+ @do goto flinkstart
+ @end
+
+@drawmap
+@update
+
+@#armour
+@offmap
+@do moveback
+@do `v01 is 1
+@label gastart
+@show
+`r0`c `%Glendale Armoury
+
+`2 You see all sorts of armour and clothing here...
+
+@do write
+`x`x
+@choice
+Examine the wares
+Go outside.
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 10
+ 12
+ 13
+ 68
+ 69
+ @do goto gastart
+@end
+
+@if responce is 2 then do
+@begin
+ @show
+`\
+ `0"People are in such a hurry these days....."
+ `\
+ `k
+ @drawmap
+ @update
+ @closescript
+@end
+
+ @drawmap
+ @update
+ @closescript
+@end
+
+@#fountain
+@do saybar
+`%You see a statue in the middle of the fountain.
+
+@#king
+@do saybar
+`1King: `4Help yourself to a bed but remember, you can still be killed.
+
+@#queen
+@do saybar
+`@Queen: `4Hello, dear. My husband is a little silly, don't mind him.
+
+@#entcast
+@do x is 39
+@do y is 15
+@do map is 826
+@loadmap 826
+@drawmap
+@update
+@closescript
+
+@#exitcast
+@do x is 22
+@do y is 12
+@do map is 822
+@loadmap 822
+@drawmap
+@update
+@closescript
+;=================================================================
+@#hotel
+@offmap
+@Do MOVEBACK
+@label open
+@DO `v01 is 1
+@SHOW
+`r0`c `r1`% The Glendale Hotel `r0
+
+ `2You step inside the hotel door and realize that this isn't the dump
+ that it seems like from outside. There is a small restaurant to your left
+ and a desk to your right. You decide it's best if you head to the restaurant
+ and get some food.
+
+ `2(you have `$$&money`2)
+
+@DO WRITE
+`x`x
+@CHOICE
+Buy a $10 meal
+Buy the $20 BIG meal
+Flirt with the waitress
+Get a room for the night
+Leave this place
+@IF RESPONcE IS 1 THEN DO
+@Begin
+@if money < 10 then goto open
+@do `p30 is 1
+@do `v40 is 10
+@routine deposit in vaults.ref
+@do money - 10
+@Show
+`\`\ `2Heres the $10.00 special, he says. `2"Oh goodie.... spam soup!"
+
+ `%You feel PARTIALLY refreshed.
+`\`k
+@do `p02 + 5
+@if `p02 > `p03 then `p02 is `p03
+@do goto open
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+
+@IF RESPONcE IS 2 THEN DO
+@Begin
+@if money < 20 then goto open
+@do `p30 is 1
+@do `v40 is 20
+@routine deposit in vaults.ref
+@do money - 20
+@Show
+`\ `$"Give me some of those dog ribs I've heard so much about"`2, you cry out
+ `2He proudly serves you the house specialty.
+
+ `%You feel FULLY refreshed.
+`\`k
+@if `p02 < `p03 then `p02 is `p03
+@do goto open
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@end
+
+ @IF RESPONcE IS 3 THEN DO
+@Begin
+@Show
+`\`\ `2You spot a rather voluptuous waitress and remark.....
+ `$ "Hey baby, when do you get off?" `2She turns, looks at you and `l.`l.`l.
+@do write
+`\`k
+@do `p20 random 4 1
+
+@IF `p20 is 1 then do
+ @Begin
+ @Show
+ `0with a knowing smile says, `2"Same time you do....."
+`\`k
+ @do goto open
+ @End
+
+@IF `p20 is 2 then do
+ @Begin
+ @Show
+ `0shoots back, `2"When i feel like getting off! Whats it to ya!?!?"
+ `\`k
+ @do goto open
+ @End
+
+@IF `p20 is 3 then do
+ @Begin
+ @Show
+ `0snaps back, `2"I'm not your baby!"
+ `\`k
+ @do goto open
+ @End
+
+@If `p20 is 4 then do
+@begin
+@Show
+ `2Slaps you across the face! `$(Gee... you guess not any time soon)
+`\`k
+@do goto open
+ @End
+
+@IF RESPONcE IS 5 THEN DO
+@begin
+ @show
+`\
+`0 "Hope your stay was pleasant....."`
+`\
+`k
+ @DRAWMAP
+ @UPDATE
+ @CLOSESCRIPT
+@End
+
+@drawmap
+@update
+@closescript
+@end
+
+@IF RESPONcE IS 4 THEN DO
+@Begin
+@do `v01 is 1
+@Show
+`\ `$"Pardon me sir, I'm interested in a room for the ....."
+ `0He rudely interrupts without looking up from his paper by saying,
+ `$"Rooms are 35 smackolas a night if you're interested."
+
+@DO WRITE
+`x`x
+@CHOICE
+Go ahead and get a room
+Forget this place
+@IF RESPONcE IS 1 THEN DO
+@BEGIN
+@if money < 35 then goto open
+@do `p30 is 1
+@do `v40 is 35
+@routine deposit in vaults.ref
+@do money - 35
+@do x is 28
+@do y is 5
+@do map is 827
+@loadmap 827
+@drawmap
+@update
+@closescript
+@END
+
+@IF RESPONcE IS 2 THEN DO
+@do goto open
+@End
+
+ @drawmap
+ @update
+ @closescript
+@end
+
+@#exithotel
+@do x is 62
+@do y is 19
+@do map is 825
+@loadmap 825
+@drawmap
+@update
+@closescript
+@end
+
+@#exitglen
+@do x is 79
+@do y is 8
+@do map is 1280
+@loadmap 1280
+@drawmap
+@update
+@closescript
+
+@#enterglen
+@do x is 36
+@do y is 20
+@do map is 823
+@loadmap 823
+@drawmap
+@update
+@closescript
+
diff --git a/xtrn/lord2/cnw/gm23.ref b/xtrn/lord2/cnw/gm23.ref
new file mode 100644
index 0000000000000000000000000000000000000000..5e6251579fe7e20932e487e7df5238837a21784b
--- /dev/null
+++ b/xtrn/lord2/cnw/gm23.ref
@@ -0,0 +1,567 @@
+; LORD2: Complete New World v137.0
+; x-x-2001
+;
+; NOTE: New website, no longer at lord2.darktech.org
+;
+; Our CNW LoRD2 website:
+; http://www.greenmachinebbs.com/lord2/
+;
+; LoRD2 Mailing list (join this to find new versions of CNW)
+; http://www.greenmachinebbs.com/maillist.htm
+;
+; READ ./DOCS/CNW.TXT for more details
+;
+;
+@#welcome
+@busy
+@do moveback
+@offmap
+@DO MOVE 1 1
+@clear screen
+@show scroll
+
+
+`r0 `%`r2���`r0 `2Complete New World v137.0 `%`r2���`r0
+
+
+ `2 This is a LoRD2: New World, with every known GOOD IGM installed.
+ with absolutely no known conficts. Also, a few IGMs have been merged,
+ moved around, modified and enhanced, only for the better.
+
+ Also included is all of my own powerful features, such as:
+ `!-`@Amazing NPC interaction
+ `!-`@TAXES
+ `!-`@Vaults for banks of the realm
+ `!-`@Have KIDS!
+ `!-`@Bed of Roses
+ `!-`@The Locker Room Safe House
+ `!-`@Time is a concept now, years, ages, bdays, etc.
+ `!-`@Vehichles and NPCs can be accessed from items "V"iew
+ `!-`@Pouch of Documents
+ `!-`@Blue Water Falls (incomplete)
+
+ `2For a complete list of new changes in CNW can be found in the HELP
+ section, press `2"`7?`2" `2and check "`7Whats New`2"
+
+
+ `$Minor DDO-F/X support. Included is the LORD2.FNT v2, you should ask
+ your SysOp to make this file available for you to d/l. DDO-F/X requires
+ that you are using the FREEWARE LiTerm.
+
+ You have LORD2.FNT version #�
+ (the "�" should show a version number if you have font version 2+)
+ (If you see an odd looking "j", you do not have the proper LORD2.FNT or
+ no font)
+
+ `$Later versions will include:
+ `4- `2More great IGMs! Please contact CNW for requests.
+
+ `4- `2More NPC actions. Will add trading, and giving,
+ `2more gossiping, like tips and tricks.
+ `2Please send me comments and ideas what to add to which NPC
+ `2on this.
+
+ `4- `2iBBS support! yes, Inter-BBS support! It is easy to make
+ `2an add-on program to handle this. All the info is availble
+ `2to do such a thing. I however am not an expert programmer,
+ `2so I will not do it myself. But, if you are interested in
+ `2creating an iBBS external program, contact me ASAP, I'll
+ `2share my ideas on how to get this thing going.
+
+ `4- `2I want to make fonts for windows and DOS for terminals to
+ `2play LoRD2 with, unfortunately I'm terrible at making them.
+ `2So, I need some help to do this. please contact CNW if you
+ `2want to help.
+ `2NOTE: A DDO-F/X font has already been created.
+ `$All fonts can be found at
+ `$http://www.greenmachinebbs.com/lord2/cnwfiles/fonts/
+
+ `4- `2NEW QUESTS!
+
+ `4- `2More IGMs made by me! including:
+ `@A real PAWN SHOP! where you can buy the stuff they bought
+ from other players. <-done it, but lost it :( gotta remake
+ `@More NPC CHARACTERS
+
+ `2I would like to thank all those IGM makers for making such
+ good IGMs for such a good game. I would of course also like to
+ thank Seth Able for another job well done.
+
+ PS, I heard he's working on a CGI web based game, possibly similar
+ to LoRD2. :)
+
+`%Join the LORD2 Mailing list! lord2@egroups.com
+ lord2-subscribe@egroups.com
+
+
+ EGroups site: http://www.egroups.com/group/lord2
+ CNW web: http://www.greenmachinebbs.com/lord2/
+ CNW telnet://greenmachinebbs.com
+
+@drawmap
+@update
+@closescript
+@end
+
+@#BBSLIST
+;
+@do moveback
+@busy
+@show
+`r0`c `r1 OFFICIAL LoRD2 TELNET BBS LIST `r0
+
+@if docs/bbslist.txt exist false then do
+ @begin
+ @DO DELETE docs/bbslist.dat
+ @writefile docs/bbslist.dat
+15
+this file is for number of lines in bbslist.txt for proper display.
+ @writefile docs/bbslist.txt
+ `2 Please add your BBS to the EGroups LoRD2 Mailing List DATABASE section
+ `2 to get listed in next release of CNW.`$http://www.egroups.com/group/lord2
+ `#* `2= `5Alternate CNW server gateway`2.
+`8������������������������������������������������������������������������Ŀ
+`8� `%CNW Main Server `2: `0telnet://greenmachinebbs.com `8�
+`8�`#* `%Time Warp of the Future `2: `0telnet://time.darktech.org `8�
+`8�`#* `%BoBo's BBS `2: `0telnet://bobobbs.net `8�
+`8� `%TechNet BBS `2: `0telnet://techbbs.dhs.org `8�
+`8� `%The N.U.B. `2: `0telnet://nub.dhs.org `8�
+`8� `%Chowda Net `2: `0telnet://chowdanet.com `8�
+`8� `%The Wastelands `2: `0telnet://wasteland.darktech.org `8�
+`8� `%Cold Fusion `2: `0telnet://fusion.darktech.org `8�
+`8� `%The Apparatus `2: `0telnet://theapparatus.net `8�
+`8� `%Top's Diamond Mine Online `2: `0telnet://bbs.tdmonline.com `8�
+`8� `%Mother Board BBS `2: `0telnet://mbbbs.dtdns.net `8�
+ @end
+
+@if docs/bbslist.txt exist true then do
+ @begin
+ @displayfile docs/bbslist.txt
+ @do write
+`8��������������������������������������������������������������������������
+ @end
+
+@show
+
+@DO WRITE
+ `$Do you want to add another LoRD2 BBS? `8[`%y`7/`%N`8]`x
+@DO READSPECIAL `s01 NY
+@if `s01 is N then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@if `s01 is Y then do
+ @begin
+ @do write
+`%telnet://
+ @DO READSTRING 20 NIL `s01
+ @DO `p24 is length `s01
+ @IF `p24 less 3 then do
+ @begin
+ @do write
+`\ `%Thats too short, try again.`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @DO `s02 is `0telnet://
+ @DO `s02 add `s01
+ @DO STRIP `s02
+ @DO `p20 is length `s02
+ @DO `p21 is 74
+ @DO `p21 - `p20
+ @do write
+`\
+ @DO READSTRING `p21 Name`xof`xSystem `s03 <--Read string, NIL is default. (nothing)
+ @do stripbad `s03
+ @DO `p24 is length `s03
+ @IF `p24 less 3 then do
+ @begin
+ @do write
+`\ `%Thats too short, try again.`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do `s01 is `%
+ @do `s01 add `s03
+ @DO `s03 add `x`2:`x
+ @do `s03 add `s02
+ @do write
+`\`x`x`%`s03`\ `$Add this to the list? `8[`%Y`7/`%n`8]`x
+ @DO READSPECIAL `s01 YN
+ @if `s01 is N then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @if `s01 is Y then do
+ @begin
+ @do `s01 is `8�`%`x`x
+ @do `s01 add `s03
+ @do pad `s01 74
+ @readfile docs/bbslist.dat
+`p20
+ @do `p20 + 1
+ @DO DELETE docs/bbslist.dat
+ @writefile docs/bbslist.dat
+`p20
+this file is for number of lines in bbslist.txt for proper display.
+ @do `p20 + 1
+ @if `p20 > 20 then do
+ @begin
+ @DO DELETE docs/bbslist.dat
+ @writefile docs/bbslist.dat
+1
+this file is for number of lines in bbslist.txt for proper display.
+ @writefile docs/bbslist.txt
+`k
+ @end
+ @writefile docs/bbslist.txt
+`s01`x`8�
+ @drawmap
+ @update
+ @closescript
+ @end
+ @end
+
+
+@#newdata
+;gender
+@If &sex is 0 then `s09 is `#F
+@If &sex is 1 then `s09 is `1M
+
+;name
+@do `s02 is `N
+@do pad `s02 26
+
+;age
+@do `s03 is `p39
+@do pad `s03 2
+
+;lays
+@do `s05 is `p34
+@do pad `s05 5
+
+;kills
+@do `s06 is `p35
+@do pad `s06 5
+
+;charm
+@do `s07 is `p08
+@do pad `s07 5
+
+;last flirted with?
+@if `t72 is 0 then do
+ @begin
+ @do `p70 is `t71
+ @routine getname in npcname.ref
+ @if `t71 is 0 then `s01 is `8Nobody
+ @do `s08 is `s01
+ @end
+
+@if `t72 is 1 then do
+ @begin
+ @do `s08 is getname `t71
+ @end
+@if `t72 is 2 then do
+ @begin
+ @do `s08 is a`xsheep
+ @end
+
+@if `t72 > 2 then do
+ @begin
+ @do write
+`\`\ `4There is seems to be a bug someplace!`\`k
+ @end
+@do pad `s08 14
+
+;hometown
+@routine getplace in myhome.ref
+@do pad `s01 20
+@do delete info&playernum.dat ; <-- player data for lists
+@do `s10 is `s09`%`s02`$`s03`x`%`s01`5`s05`4`s06
+@do `s01 is `!`s07`$`s08
+
+@writefile info&playernum.dat
+`s10
+`s01
+@drawmap
+@update
+@closescript
+
+@#list1
+;this is going to be the list of players with this info:
+; AGE/GENDER/HOMETOWN/LAST FLIRT
+@do `p20 is 0
+@do write
+`r0`c `0Listing players...
+
+@do delete cnw`*.dat
+@writefile cnw`*.dat
+`r0`r1 `% LORD II RANKINGS `r0
+
+`0G Name Age - HomeTown - - - Lays-Kills-Charm-Likes
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@
+@label makelist2
+@do `p20 + 1
+@IF info`p20.dat EXISTS TRUE then do
+ @begin
+ @readfile info`p20.dat
+`s01
+`s02
+ @writefile cnw`*.dat
+`s01`s02
+ @end
+@if `p20 < &totalaccounts then goto makelist2
+@convert_file_to_ansi cnw`*.dat cnwscore.ans
+@convert_file_to_ascii cnw`*.dat cnwscore.txt
+@clear screen
+@DO MOVE 1 1
+@displayfile cnw`*.dat
+@key bottom
+@drawmap
+@update
+@closescript
+
+@#SIGN1
+@do `p20 is 1
+@do goto SIGN
+
+@#SIGN2
+@do `p20 is 2
+@do goto SIGN
+
+@#SIGN3
+@do `p20 is 3
+@do goto SIGN
+
+@#SIGN4
+@do `p20 is 4
+@do goto SIGN
+
+@#SIGN5
+@do `p20 is 5
+@do goto SIGN
+
+@#SIGN6
+@do `p20 is 6
+@do goto SIGN
+@#SIGN7
+@do `p20 is 7
+@do goto SIGN
+@#SIGN8
+@do `p20 is 8
+@do goto SIGN
+@#SIGN9
+@do `p20 is 9
+@do goto SIGN
+@#SIGN10
+@do `p20 is 10
+@do goto SIGN
+@#SIGN11
+@do `p20 is 11
+@do goto SIGN
+@#SIGN12
+@do `p20 is 12
+@do goto SIGN
+@#SIGN13
+@do `p20 is 13
+@do goto SIGN
+@#SIGN14
+@do `p20 is 14
+@do goto SIGN
+@#SIGN15
+@do `p20 is 15
+@do goto SIGN
+
+@#SIGN
+; player rentable signs
+@do moveback
+@do `s01 is `%This`xsign`xis`xblank.
+@if cnwsign.`p20 exists true then do
+ @begin
+ @readfile cnwsign.`p20
+`s01
+`p21
+`p22
+ @do `p25 is &time
+ @do `p25 - `p21
+ @if `p25 > `p22 then do
+ @begin
+ @do delete cnwsign.`p20
+ @do `s01 is `%This`xsign`xis`xblank.
+ @end
+ @end
+@do saybar
+`s01
+
+@#RENTSIGN
+@do moveback
+@do move 1 1
+@clear screen
+@show
+`r0 `r1 `$- `%Commercial Sign Services `$- `r0
+
+ `2We rent signs for `$50`2 gold per day, with a min of 10 days. `7($500)
+
+
+ `6�/\/\/\/\/\/\/\/\�
+ `6� �
+ `6� �
+ `6� �
+ `6� �
+ `6�/\/\/\/\/\/\/\/\�
+@do `v01 is 1
+@do move 34 7
+@choice
+`$Rent a Sign
+`%Why so much?
+`$My Account
+`%Leave
+@if responce is 1 then goto RENTIT
+@if responce is 2 then goto WHYSIGN
+@if responce is 3 then goto SIGNACCT
+@if responce is 4 then goto NOMORE
+@#RENTIT
+@clear screen
+@do move 1 1
+@show
+`r0 `r1 `$- `%Commercial Sign Services `$- `r0
+
+ `2Which area are you interested in having your sign?
+
+
+ `6�/\/\/\/\/\/\/\/\�
+ `6� �
+ `6� �
+ `6� �
+ `6� �
+ `6�/\/\/\/\/\/\/\/\�
+@do `v01 is 1
+@do move 34 7
+@choice
+`$Just outside
+`%FlagCity area
+`$Sosen area
+`%Forget it
+@if responce is 1 then do
+ @begin
+ @do `p22 is 1
+ @do `p23 is 5
+ @end
+@if responce is 2 then do
+ @begin
+ @do `p22 is 6
+ @do `p23 is 10
+ @end
+@if responce is 3 then do
+ @begin
+ @do `p22 is 11
+ @do `p23 is 15
+ @end
+@if responce is 4 then goto NOMORE
+
+@label newsign
+@if cnwsign.`p22 exists true then do
+ @begin
+ @if `p22 is `p23 then do
+ @begin
+ @do move 3 13
+ @do write
+Sorry, there currently is no more signs availabe in that area.
+ @key bottom
+ @do goto RENTIT
+ @end
+ @do `p22 + 1
+ @do goto newsign
+ @end
+@do move 3 13
+@show
+What do you want written on your sign?
+
+`%:
+@do readstring 70 `N's`xsign `s01
+
+@label PAYSIGN
+@clear screen
+@do move 1 1
+@show
+`r0 `r1 `$- `%Commercial Sign Services `$- `r0
+
+ `2Which area are you interested in having your sign?
+
+
+ `6�/\/\/\/\/\/\/\/\�
+ `6� �
+ `6� �
+ `6� �
+ `6� �
+ `6�/\/\/\/\/\/\/\/\�
+@do `v01 is 1
+@do move 34 7
+@choice
+>&money 499 `410 Days `8($500)
+>&money 999 `420 Days `8($1000)
+>&money 1449 `430 Days `8($1450)
+Forget it
+@if responce is 4 then goto NOMORE
+@if responce is 1 then `p24 is 10
+@if responce is 2 then `p24 is 20
+@if responce is 3 then `p24 is 30
+
+@do `p25 is 500
+@do `p25 * `p24
+@if `p24 is 3 then `p25 - 50
+@do `p30 is 2
+@do `v40 is `p25
+@routine deposit in vaults.ref
+@do money - `p25
+@writefile cnwsign.`p22
+`s01
+&time
+`p24
+@do move 3 13
+@do write
+ `2Thanks. We've just sent someone out to fix up your new sign.
+@key bottom
+@do goto NOMORE
+
+@#WHYSIGN
+@do move 1 1
+@clear screen
+@show
+`r0 `r1 `$- `%Commercial Sign Services `$- `r0
+
+ `2After you have purchased a sign, we/you will not be able to modify
+ it until the rent expires. We do not offer ANY sort of warning when
+ it will expire.
+
+ Why you ask is it so expensive? well simple enough, it costs us
+ cash to hire someone cut down some trees, cut them into posts and
+ boards. Then we need to pay ourselves for engraving each sign to
+ the customers liking.
+
+ We also take good care of the sign. Do you know how many little
+ warriors and little goblins try to knock these signs down. Who's
+ gotta replace them, we do!
+
+@key bottom
+@do goto RENTSIGN
+
+@#SIGNACCT
+@do goto RENTSIGN
+
+@#BREAKIN
+@do moveback
+@do saybar
+`%This door is LOCKED.
+@#NOMORE
+@drawmap
+@update
+@closescript
diff --git a/xtrn/lord2/cnw/goblin.ref b/xtrn/lord2/cnw/goblin.ref
new file mode 100644
index 0000000000000000000000000000000000000000..915961bcbfec4c310f621af64957fb7965ad240d
--- /dev/null
+++ b/xtrn/lord2/cnw/goblin.ref
@@ -0,0 +1,203 @@
+; Script file GOBLIN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:32 2001
+
+@DECLARE goblinfight 000000335
+@DECLARE monster1 000000977
+@DECLARE monster2 000001565
+@DECLARE monster3 000002138
+@DECLARE monster4 000002682
+@DECLARE monster5 000003277
+@DECLARE goblin 000003853
+@NOCHECK
+; End of .REF index
+
+@#GOBLINFIGHT
+@offmap
+@fight
+;name
+Goblin King
+;string said when you see him
+This guy wants a piece of you
+;power move kill string
+You gut him and hang him up on a tree !
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits you with stench|295
+stabs you with evil looking dagger|250
+shoots you with crossbow|286
+slices you with his twinswords|245
+NONE|NONE
+;defense
+250
+;gold reward
+2056
+;experience
+1002
+;hit points
+528
+;if win: ref file|name or NONE
+QUESTER.REF|FINQUEST
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+QUESTER.REF|ENDQUEST
+
+@#monster1
+@fight
+;name
+Goblin
+;string said when you see him
+A nasty looking little Goblin pops in front of you.
+;power move kill string
+You slice him from ear to ear.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits you with stench|95
+stabs you with evil looking dagger|50
+shoots you with crossbow|86
+NONE|NONE
+NONE|NONE
+;defense
+65
+;gold reward
+562
+;experience
+210
+;hit points
+125
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Ork
+;string said when you see him
+You see the pig like face and know it's an ork.
+;power move kill string
+Go back to Mordor !
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+hits with it's battleaxe|75
+chops off your ear with it's axe|61
+Bites you with it's teeth|91
+NONE|NONE
+NONE|NONE
+;defense
+68
+;gold reward
+628
+;experience
+158
+;hit points
+145
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Goblin prince
+;string said when you see him
+His armor looks strong.
+;power move kill string
+Die punk !
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+slices you with his long sword|45
+stabs you hard with his dagger|95
+backhands you|54
+NONE|NONE
+NONE|NONE
+;defense
+282
+;gold reward
+925
+;experience
+171
+;hit points
+265
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Goblin blacksmith
+;string said when you see him
+Judging by his weapons he must be a blacksmith
+;power move kill string
+He won't make anymore weapons
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+slices you with his cursed sword|180
+head butts you|95
+stabs you with a poisoned dagger|178
+NONE|NONE
+NONE|NONE
+;defense
+90
+;gold reward
+815
+;experience
+200
+;hit points
+351
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Goblin Archer
+;string said when you see him
+A goblin raises his bow
+;power move kill string
+You break his longbow in half.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits you with 3 arrows|184
+smacks you with his longbow|98
+pins your hand to a tree with an arrow|187
+NONE|NONE
+NONE|NONE
+;defense
+50
+;gold reward
+526
+;experience
+165
+;hit points
+542
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#GOBLIN
+@busy
+@do `p20 random 5 1
+@do goto monster`p20
diff --git a/xtrn/lord2/cnw/gorilla.ref b/xtrn/lord2/cnw/gorilla.ref
new file mode 100644
index 0000000000000000000000000000000000000000..a5f976e28e06b4cc76b3881ff280c18a97a57e9c
--- /dev/null
+++ b/xtrn/lord2/cnw/gorilla.ref
@@ -0,0 +1,797 @@
+; Script file GORILLA.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:20 2001
+
+@DECLARE gorgirl 000002237
+@DECLARE export 000002380
+@DECLARE savedata 000002847
+@DECLARE loaddata 000002975
+@DECLARE shaman 000003075
+@DECLARE house5 000003177
+@DECLARE house1 000004735
+@DECLARE house2 000006217
+@DECLARE house3 000007777
+@DECLARE house4 000009345
+@DECLARE chief 000010904
+@DECLARE claim 000012804
+@DECLARE healer 000013357
+@DECLARE gatekeeper 000014385
+@DECLARE shoppe 000014779
+@DECLARE nomore 000014933
+@NOCHECK
+; End of .REF index
+
+;���������������������������������������������������������������������
+;� IGM: Gorilla Villa � Version: 8th �
+;� Author: Talaphid@Juno.com � Bugfix: �
+;� Added screens: N-NE of Sosen Village � Challenge the Dryad �
+;� Mod'd Screens: 1 east of Porttown � was bugged �
+;���������������������������������������������������������������������
+;� Offers five ownable safehouses (owner only). Sold at a price �
+;�determined by the Chief. Players can vie for the mantle of Chief �
+;�Healer (no chief preference). Stables -> porttown. Chief �
+;�collects proceeds of houses. Format of GORILLA2.DAT: �
+;�# -- Owner of house 1 �
+;�# -- Owner of house 2 (etc., for a total of 5 houses) �
+;�# -- Chief �
+;�# -- Cost of a house �
+;�# -- amount in treasury �
+;�# -- str of dryad �
+;�# -- def of dryad �
+;�# -- hp of dryad �
+;���������������������������������������������������������������������
+;� if you like this, look for Veiled Isle IGM coming soon from Tal! �
+;���������������������������������������������������������������������
+;IGMs also by Talaphid (out to date of release)
+;Monastry Divine Comedy Scrye
+;Magi, the Teleportationist
+
+;<--GorGirl added by CNW-->
+@#GORGIRL
+@do `p70 is 75
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`$Gorilla Girl: `5Hi!
+@end
+
+
+@#EXPORT
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Stables `r0
+
+ `6Uh-gil: `%"`2Greetings, s&sir. Want go Porttown?`%"
+@do `v01 is 1
+@choice
+Uh, nah. I think I'll ... hang out.
+Sure, I wanna make like a tree... and leaf.
+@if response not 1 then do
+ @begin
+@show
+`\`\ `6Uh-gil: `%"`2We go now!`%"
+`2.`L.`L. `5>bump< `2.`L.`L. `5>bump< `2.`L.`L. `5>bump<`2
+@do x is 42
+@do y is 16
+@do map is 956
+@loadmap &map
+@end
+@drawmap
+@update
+
+@#SAVEDATA
+@do delete gorilla2.dat
+@writefile gorilla2.dat
+`p21
+`p22
+`p23
+`p24
+`p25
+`p26
+`p27
+`p28
+`p29
+`p40
+`p41
+@#LOADDATA
+@readfile gorilla2.dat
+`p21
+`p22
+`p23
+`p24
+`p25
+`p26
+`p27
+`p28
+`p29
+`p40
+`p41
+@#SHAMAN
+@DO SAYBAR
+`0Gorilla `6Shaman`%: The portal beyond leads to outskirts of Gorilla Villa.
+
+@#HOUSE5
+;61,15
+@ROUTINE LOADDATA
+@DO MOVEBACK
+@if `p25 is 0 then do
+ @begin
+@show
+`r0`c `2Tree for sale. Only `$`p27 gold`2.
+
+@choice
+Do it, buy your very own hangout!
+Nah... I just don't swing that way.
+@if RESPONSE is 2 then do
+ @begin
+ @do moveback
+ @drawmap
+ @closescript
+ @end
+@if RESPONSE is 1 then do
+ @begin
+ @if `p21 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if `p22 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if `p23 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if `p24 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if money < `p27 then do
+ @begin
+ @show
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`%Reality check just bounced
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ @end
+ ;Not sold.. no money
+ @if money > 49 then do
+ @begin
+ @do `p25 is &playernum
+ @do money - `p27
+ @do `p28 + `p27
+ @ROUTINE SAVEDATA
+ @end
+ ;SOLD!
+
+ ;Didn't want it!
+ @end
+ @key
+@update
+@drawmap
+@end
+;vvv Its owned!
+@if `p25 is &playernum then do
+ @begin
+ @do MAP is 77
+ @do X is 61
+ @do Y is 15
+ @loadmap &map
+ @update
+ @drawmap
+ @closescript
+ @end
+@do moveback
+@do `s01 is getname `p25
+@do saybar
+This is `s01's house -- not yours.
+
+@#HOUSE1
+@ROUTINE LOADDATA
+;61,15
+@DO MOVEBACK
+@if `p21 is 0 then do
+ @begin
+@show
+`r0`c `2Tree for sale. Only `$`p27 gold`2.
+
+@choice
+Do it, buy your very own hangout!
+Nah... I just don't swing that way.
+@if RESPONSE is 2 then do
+ @begin
+ @do moveback
+ @drawmap
+ @closescript
+ @end
+@if RESPONSE is 1 then do
+ @begin
+ @if `p22 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if `p25 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if `p24 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if `p23 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if money < `p27 then do
+ @begin
+ @show
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`%Reality check just bounced
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ @end
+ @if money > `p27 then do
+ @begin
+ @do `p21 is &playernum
+ @do money - `p27
+ @do `p28 + `p27
+ @Routine SAVEDATA
+ @end
+ @end
+ @key
+@update
+@drawmap
+@end
+@if `p21 is &playernum then do
+ @begin
+ @do MAP is 77
+ @do X is 20
+ @do Y is 15
+ @loadmap &map
+ @update
+ @drawmap
+ @closescript
+ @end
+@do moveback
+@do `s01 is getname `p21
+@do saybar
+This is `s01's house -- not yours.
+
+@#HOUSE2
+@ROUtINE LOADDATA
+;33,17
+@DO MOVEBACK
+@if `p22 is 0 then do
+ @begin
+@show
+`r0`c `2Tree for sale. Only `$`p27 gold`2.
+
+@choice
+Do it, buy your very own hangout!
+Nah... I just don't swing that way.
+@if RESPONSE is 2 then do
+ @begin
+ @do moveback
+ @drawmap
+ @closescript
+ @end
+@if RESPONSE is 1 then do
+ @begin
+ @if `p25 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if `p24 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if `p23 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if `p21 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if money < `p27 then do
+ @begin
+ @show
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`%Reality check just bounced
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ @end
+ ;Not sold.. no money
+ @if money > `p27 then do
+ @begin
+ @do `p22 is &playernum
+ @do money - `p27
+ @do `p28 + `p27
+ @ROUTINE SAVEDATA
+ @end
+ ;SOLD!
+
+ ;Didn't want it!
+ @end
+ @key
+@update
+@drawmap
+@end
+;vvv Its owned!
+@if `p22 is &playernum then do
+ @begin
+ @do MAP is 77
+ @do X is 33
+ @do Y is 17
+ @loadmap &map
+ @update
+ @drawmap
+ @closescript
+ @end
+@do moveback
+@do `s01 is getname `p22
+@do saybar
+This is `s01's house -- not yours.
+
+@#HOUSE3
+;45,12
+@ROUtINE LOADDATA
+;33,17
+@DO MOVEBACK
+@if `p23 is 0 then do
+ @begin
+@show
+`r0`c `2Tree for sale. Only `$`p27 gold`2.
+
+@choice
+Do it, buy your very own hangout!
+Nah... I just don't swing that way.
+@if RESPONSE is 2 then do
+ @begin
+ @do moveback
+ @drawmap
+ @closescript
+ @end
+@if RESPONSE is 1 then do
+ @begin
+ @if `p25 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if `p24 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if `p22 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if `p21 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if money < `p27 then do
+ @begin
+ @show
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`%Reality check just bounced
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ @end
+ ;Not sold.. no money
+ @if money > `p27 then do
+ @begin
+ @do `p23 is &playernum
+ @do money - `p27
+ @do `p28 + `p27
+ @ROUTINE SAVEDATA
+ @end
+ ;SOLD!
+
+ ;Didn't want it!
+ @end
+ @key
+@update
+@drawmap
+@end
+;vvv Its owned!
+@if `p23 is &playernum then do
+ @begin
+ @do MAP is 77
+ @do X is 45
+ @do Y is 12
+ @loadmap &map
+ @update
+ @drawmap
+ @closescript
+ @end
+@do moveback
+@do `s01 is getname `p23
+@do saybar
+This is `s01's house -- not yours.
+
+@#HOUSE4
+;59,7
+@ROUtINE LOADDATA
+@DO MOVEBACK
+@if `p24 is 0 then do
+ @begin
+@show
+`r0`c `2Tree for sale. Only `$`p27 gold`2.
+
+@choice
+Do it, buy your very own hangout!
+Nah... I just don't swing that way.
+@if RESPONSE is 2 then do
+ @begin
+ @do moveback
+ @drawmap
+ @closescript
+ @end
+@if RESPONSE is 1 then do
+ @begin
+ @if `p25 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if `p23 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if `p22 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if `p21 is &playernum then do
+ @begin
+ @show
+`2Nu-uh... only one house ta a player.
+@key
+@update
+@drawmap
+@closescript
+ @end
+ @if money < `p27 then do
+ @begin
+ @show
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`%Reality check just bounced
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ @end
+ ;Not sold.. no money
+ @if money > `p27 then do
+ @begin
+ @do `p24 is &playernum
+ @do money - `p27
+ @do `p28 + `p27
+ @ROUTINE SAVEDATA
+ @end
+ ;SOLD!
+
+ ;Didn't want it!
+ @end
+ @key
+@update
+@drawmap
+@end
+;vvv Its owned!
+@if `p24 is &playernum then do
+ @begin
+ @do MAP is 77
+ @do X is 59
+ @do Y is 7
+ @loadmap &map
+ @update
+ @drawmap
+ @closescript
+ @end
+@do moveback
+@do `s01 is getname `p24
+@do saybar
+This is `s01's house -- not yours.
+
+
+@#CHIEF
+@ROUTINE LOADDATA
+;---------- Claim chief if nobody -------------------
+@if `p26 is 0 then do
+ @begin
+@do saybar
+`%Woah! NOBODY IS CHIEF! You walk right on in and claim the title.
+@DO ADDLOG
+ `%All hail `!`N`%, new chief of the Gorilla Villa!
+@DO ADDLOG
+ `2-`0=`2-`0=`2-`0=`2-
+@key
+@do saybar
+`7A strange looking gorilla jumps down from the tree, and...
+@key
+@do saybar
+`7sprinkles you with magic powder! Suddenly...
+@key
+@do saybar
+`7a dryad springs forth from the tree! It is almost a mirror image of you...
+@key
+@do saybar
+`7And it will stay here, representing your claim to chief.
+@do `p29 is `p03
+@do `p40 is `p04
+@do `p40 + S&wep_num
+@do `p41 is `p05
+@do `p41 + S&arm_num
+@do moveback
+@do `p26 is &playernum
+@ROUTINE SAVEDATA
+@closescript
+ @end
+;---------- If chief, get money---------------------
+@if `p26 is &playernum then do
+ @begin
+@do saybar
+`%The treasury held `$`p28`%, which you quickly pocket.
+@do money + `p28
+@do `p28 is 0
+@routine SAVEDATA
+@key
+@do `p29 is `p03
+@do `p40 is `p04
+@do `p40 + S&wep_num
+@do `p41 is `p05
+@do `p41 + S&arm_num
+@routine SAVEDATA
+@do saybar
+`7A gorilla sprinkles you, and the dryad is renewed... `2(`0`p29`2/`0`p40`2/`0`p41`2)
+@key
+@show
+`c`2Change rates `7(`3currently `$`p27`7)`%
+@DO READNUM 4 `p27
+@do `p27 is `v40
+@routine savedata
+@do moveback
+@update
+@drawmap
+@closescript
+@end
+;------------------ Challenge chief ---------------
+@do `s01 is getname `p26
+@ROUTINE LOADDATA
+@fight
+;name
+Guardian Dryad
+;string
+You attempt to take the mantle, and this Guardian materializes...
+;power kill
+You vanquish the defender!
+;gender
+2
+;weapon
+swings a branch|`p40
+throws an apple|`p40
+causes thorn-rain|`p40
+NONE|NONE
+NONE|NONE
+`p41
+0
+0
+`p29
+GORILLA.REF|CLAIM
+GAMETXT.REF|DIE
+NONE|NONE
+@DO MOVEBACK
+@DRAWMAP
+@UPDATE
+@#CLAIM
+@DO MOVEBACK
+@DRAWMAP
+@UPDATE
+@DO SAYBAR
+`%CONGRADULATIONS! YOU are now chief!
+@DO ADDLOG
+ `%All hail `!`N`%, victorous new chief of the Gorilla Villa!
+@DO ADDLOG
+ `2-`0=`2-`0=`2-`0=`2-
+@do `p26 is &playernum
+@DO SAYBAR
+`7A gorilla jumps down from the tree, and spinkles powder on you.
+@KEY
+@DO SAYBAR
+`7A new Dryad bursts from the ground, this one resembles you...
+@DO `p29 is `p03
+@DO `p40 is `p04
+@do `p40 + S&wep_num
+@DO `p41 is `p05
+@do `p41 + S&arm_num
+@ROUTINE SAVEDATA
+
+@#HEALER
+; Healers, borrowed from a Seth routine
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `6Uh-Gorah, Powdermage
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-`\
+`2Uh-Gorah throws white flakes on you, and is then able to know your wounds.
+
+@do write
+`x`x
+@if `p02 < `p03 then do
+ @begin
+@do `p20 is `p03
+@do `p20 - `p02
+@do `p20 / 2
+
+
+ @show
+`0"Uh, you no well! I fix, but it take `$`p20`0 gold, yeah?
+
+@do write
+`x`x
+@choice
+Be healed, 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"Uh, you no have money you need!"
+ @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"Look fine! No need heal! Go, come when ill!"
+
+`k
+@drawmap
+@update
+
+@#GATEKEEPER
+@DO SAYBAR
+"Welcome to the Gorilla Villa!"
+; owner of house 1-5, chief #, house cost, treasury
+@if gorilla2.dat exist false then do
+ @begin
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p23 is 0
+ @do `p24 is 0
+ @do `p25 is 0
+ @do `p26 is 0
+ @do `p27 is 50
+ @do `p28 is 0
+ @do `p29 is 0
+ @do `p40 is 0
+ @do `p41 is 0
+ @ROUTINE SAVEDATA
+ @end
+@ROUTINE LOADDATA
+@closescript
+
+@#SHOPPE
+@DO MOVEBACK
+@offmap
+@busy
+@show
+`r0`c `$Gorilla Villa shoppe
+
+
+
+
+@buymanager
+5
+43
+20
+@drawmap
+@update
+@#NOMORE
diff --git a/xtrn/lord2/cnw/gravey.ref b/xtrn/lord2/cnw/gravey.ref
new file mode 100644
index 0000000000000000000000000000000000000000..0fd09cb75597522311ba5add3507126d62ef4549
--- /dev/null
+++ b/xtrn/lord2/cnw/gravey.ref
@@ -0,0 +1,440 @@
+; Script file GRAVEY.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:14 2001
+
+@DECLARE moon1 000000970
+@DECLARE chest1 000001179
+@DECLARE monster1 000001399
+@DECLARE monster2 000002063
+@DECLARE monster3 000002716
+@DECLARE monster4 000003322
+@DECLARE grave1 000003940
+@DECLARE grave2 000004044
+@DECLARE grave3 000004126
+@DECLARE grave4 000004221
+@DECLARE grave5 000004298
+@DECLARE grave6 000004392
+@DECLARE cave 000004488
+@DECLARE sign 000004595
+@DECLARE icesign 000004687
+@DECLARE darkf 000004832
+@DECLARE nude 000005522
+@DECLARE icecave 000006285
+@DECLARE icy 000006307
+@DECLARE death 000007713
+@DECLARE fiteme 000008331
+@DECLARE win 000008383
+@DECLARE pass 000008412
+@DECLARE nomore 000008524
+@NOCHECK
+; End of .REF index
+
+;The grave yard and cave area
+
+;NOTE: This file has been modified by ShroomTrip Software. Please read the
+; Sysop.Doc that came with this file to determine what changes have been
+; made.
+
+@#moon1
+;hidden moonstone 1
+@do moveback
+@if bitcheck `t13 3 1 then do
+ @begin
+ @closescript
+ @end
+
+@bitset `t13 3 1
+@do saybar
+`%You find a Moonstone lying beneath the water.
+@do `i57 + 1
+
+
+@#chest1
+;secret
+@do moveback
+@if bitcheck `t13 1 1 then do
+ @begin
+ @do saybar
+There is nothing on the table.
+ @closescript
+ @end
+
+@bitset `t13 1 1
+@do saybar
+`%You find a Red Potion!
+@do `i52 + 1
+
+@#monster1
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Skeleton
+;string said when you see him
+A boney arm reaches up through the dirt in the ground ...
+;power move kill string
+The bones clatter to the ground in horrid defeat.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+gives you a bone|10
+slashes with its skinless hand|7
+tears its arm off and hits you with it|8
+NONE|NONE
+NONE|NONE
+;defense
+5
+;gold reward
+18
+;experience
+25
+;hit points
+40
+;if win: ref file|name or NONE
+GRAVEY.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster2
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Zombie
+;string said when you see him
+A horrible figure groans limping its leg towards you ..
+;power move kill string
+You send him back to the ground he came up from.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+uses its amputated arm to bash you|10
+moans "brains" & bites you|15
+gnaws on your leg|8
+NONE|NONE
+NONE|NONE
+;defense
+3
+;gold reward
+14
+;experience
+26
+;hit points
+60
+;if win: ref file|name or NONE
+GRAVEY.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster3
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Raven
+;string said when you see him
+A breeze brushes your neck, something flew pretty close
+;power move kill string
+The bird crashes to the yard.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+claws you|8
+pecks your neck|7
+stabs your eyes with its beak|10
+NONE|NONE
+NONE|NONE
+;defense
+2
+;gold reward
+5
+;experience
+8
+;hit points
+45
+;if win: ref file|name or NONE
+GRAVEY.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster4
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Dog Skeleton
+;string said when you see him
+A horrible half dead dog jumps from behind the gravestone!
+;power move kill string
+Stay boy stay, good dead boy.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+gashes your leg with its claws|10
+bites you|12
+pounces on you|15
+NONE|NONE
+NONE|NONE
+;defense
+3
+;gold reward
+17
+;experience
+24
+;hit points
+65
+;if win: ref file|name or NONE
+GRAVEY.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#GRAVE1
+;Grave 1 in the yard
+@DO SAYBAR
+`2There once was a man from Knantucket ...
+@do moveback
+
+@#GRAVE2
+;Grave 2 in the yard
+@DO SAYBAR
+`2"Hey get off me!!"
+@do moveback
+
+@#GRAVE3
+;Grave 3 in the yard
+@DO SAYBAR
+`2"Dig me up & take me with you!"
+@do moveback
+
+@#GRAVE4
+;Grave 4 in the yard
+@DO SAYBAR
+`2"Join us ..."
+@do moveback
+
+@#GRAVE5
+;Grave 5 in the yard
+@DO SAYBAR
+`2"If you die, don't die on me."
+@do moveback
+
+@#GRAVE6
+;Grave 6 in the yard
+@DO SAYBAR
+`2Here lies Beavis, he never scored.
+@do moveback
+
+@#CAVE
+;Cave to the right of the Grave yard
+@DO SAYBAR
+`2Looks like a dark cave, best not go in now.
+
+@#SIGN
+;Sign outside the yard
+@DO SAYBAR
+`2GraveYard, weak beware !!
+@do moveback
+
+@#ICESIGN
+;Sign on the west entrance of the snowy Pass
+@DO SAYBAR
+`2 <---------- Flag City Snowy Pass ---------->
+@do moveback
+
+@#DARKF
+ @do moveback
+ @busy
+@do `v01 is 1
+@show
+`r0`c `%`r1 THE SHEPHERD `r0
+
+`2 You come across a Shepherd - his eyes look content and wise. He
+ nods to you. `0"How may I help you my friend?" `2he asks.
+
+@do write
+`x`x
+@choice
+Ask about the strange surrounding forest.
+Comment on his sheep.
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `$"No, but your sheep might be able to." `2you tell him.
+`\`k
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `7"The darker trees are dying and becoming part of Dark Forest. They try
+ to grow further towards the living and take it over. My flock and I keep
+ it back."
+`\`k
+ @end
+@drawmap
+@update
+
+@#NUDE
+ @do moveback
+ @busy
+ @do `v01 is 1
+@show
+`r0`c `%`r1 THE NAKED MAN `r0
+
+`2 You come across a nude old man in a field - ahh, he must be at least 70!
+ He nods to you. `0"Come, join me my friend," `2he says.
+
+@do write
+`x`x
+@choice
+Join him on the grass
+Comment on his ... clothes
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `$"Must be cold out huh," `2you tell him.
+`\`k
+ @end
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `$"Hey all right, I've been looking for a place like this. Sometimes you
+ just gotta let it all hang out," `2you say as you get undressed. After
+ relieving yourself of your clothes you look at the old man and then back
+ at yourself. You feel small.
+`\`k
+ @end
+@drawmap
+@update
+
+@#ICECAVE
+ @offmap
+@label icy
+@DO `v01 is 1
+@show
+`r0`c `%`r1 The Ice Wizard's Cave `r0
+
+`2 You step into the cold cave, the only light you see is up ahead. You
+ see the silhouette of an old man by the fire. You step closer and notice
+ the fire's flames are blue! The old man stands sensing your presence.
+ `3"How may I help you my child?" `2he asks.
+
+@do write
+`x`x
+@CHOICE
+Inquire about him
+Ask for passage through the cave
+Leave the cave
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `$"Who are you, what do you do in this cave?" `2you ask.
+
+`k `3"I am a caretaker of these mountains. I watch them, and the people
+ come here, making sure that all is right here."`%
+`\`k
+ @do goto icy
+ @end
+
+@if response is 2 then do
+ @begin
+ @if `i31 > 0 then do
+ @begin
+ @show
+`\`\ `3"I see you have the amulet. Come this way my child, it shall take you
+ safely closer towards that which you seek."
+`\`k
+ @if map is 1499 then do
+ @begin
+ @loadmap 1590
+ @do map is 1590
+ @do x is 38
+ @do y is 7
+ @drawmap
+ @update
+ @closescript
+ @end
+ @loadmap 1499
+ @do map is 1499
+ @do x is 71
+ @do y is 17
+ @drawmap
+ @update
+ @closescript
+@end
+@show
+`\`\ `3"I'm sorry my child, but you must have the pass of my giant masters
+ before you may pass through this way."`%
+`\`k
+@do goto icy
+@end
+@do moveback
+@drawmap
+@update
+
+
+@#DEATH
+@busy
+@do `p21 random 4 1
+@if `p21 is 1 then do
+ @begin
+ @do `p25 is X
+ @do `p25 + 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do `p25 is X
+ @do `p25 - 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 - 1
+ @do goto fiteme
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 + 1
+ @do goto fiteme
+ @end
+
+@#fiteme
+@do `p20 random 4 1
+@do goto monster`p20
+
+@#WIN
+@drawmap
+@update
+
+@#PASS
+;View east of the Snowy Pass.
+@DO SAYBAR
+`2The pass ahead to the west looks snowy & dangerous.
+
+
+@#nomore
diff --git a/xtrn/lord2/cnw/green.ref b/xtrn/lord2/cnw/green.ref
new file mode 100644
index 0000000000000000000000000000000000000000..bb2e1737b79a2bab7a923b57d327467cd27b31c3
--- /dev/null
+++ b/xtrn/lord2/cnw/green.ref
@@ -0,0 +1,612 @@
+; Script file GREEN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:13 2001
+
+@DECLARE h2man 000000945
+@DECLARE h2toy 000001057
+@DECLARE drag 000001122
+@DECLARE statue 000001249
+@DECLARE h1talk 000001342
+@DECLARE bum 000001435
+@DECLARE fountain 000003660
+@DECLARE h1table 000003764
+@DECLARE h1toilet 000003864
+@DECLARE bigtree 000004101
+@DECLARE guardlook 000004212
+@DECLARE picnic 000004310
+@DECLARE richgate 000004407
+@DECLARE porttown 000004527
+@DECLARE dock 000004654
+@DECLARE guard1 000004734
+@DECLARE guard2 000004871
+@DECLARE sheepman 000005002
+@DECLARE sheep 000005262
+@DECLARE healers 000005383
+@DECLARE bank 000007168
+@DECLARE bankstart 000007339
+@DECLARE bankagain 000009562
+@DECLARE deposit 000011013
+@DECLARE withdraw 000011563
+@DECLARE closescript 000012429
+@NOCHECK
+; End of .REF index
+
+; Updated by CNW to handle cheap telnet apps incl java.
+;
+;
+;
+;Ref for the town of Greentree.
+
+@#h2man
+;house 1
+@DO SAYBAR
+`0Man: `2I heard there was a Moonstone hidden on a waterfall.
+@do moveback
+
+
+@#h2toy
+;house 1
+@DO SAYBAR
+`0Nice and clean.
+@do moveback
+
+@#drag
+;stone dragon
+@do saybar
+A magnificent stone dragon. To honor a warrior who killed it years ago.
+@do moveback
+
+@#STATUE
+;The Pt thing in the water
+@do saybar
+It's supposed to be a statue of people.
+
+@#H1talk
+;house 1
+@DO SAYBAR
+`0Some woman: `2Please do not use my restroom.
+@do moveback
+
+@#bum
+;the bum who is in front of Ma's boarding house
+@do `p11 - 10
+@do `p20 random 14 1
+@if `p20 is 1 then saybar
+`%Bum: `0Hey you! `2`l::hic::`l`l`0 Yeah!! Whachu lookin' at???
+@if `p20 is 2 then saybar
+`%Bum: `0Ma's a big woman.. `2`l`l::hic::`l`l`l`0 but the biggin's are the bestest!!
+@if `p20 is 3 then saybar
+`%Bum: `0I'll drink to that!
+@if `p20 is 4 then saybar
+`%Bum: `0Wassup peasant s&boy! Go back to your farm! `2`l`l::hic::
+@if `p20 is 5 then saybar
+`%Bum: `0A little drinkie in the `l`2::hic::`l`l `0morning keeps the doctor away!
+@if `p20 is 6 then saybar
+`%Bum: `0Ma's boarding house is the safest place in `2`l`l::hic::`l`l `0town!
+@if `p20 is 7 then saybar
+`%Bum: `0Watch out for little Elle.. if she ain't the darndest thing!
+@if `p20 is 8 then saybar
+`%Bum: `0I hate Greentree! I wanna move to `l`2::hic::`l`l`l `0Bonetown!!!
+@if `p20 is 9 then saybar
+`%Bum: `0Stay the `bHELL AWAY`0 `l`l`lfrom the dark forest, s&boy!
+@if `p20 is 10 then saybar
+`%Bum: `0::hic::`l Did'ya know, An`l`l`ldrew ::hic::`l gives stuff away
+@if `p20 is 10 then do
+ @begin
+ @bitset `t19 2 1
+ @end
+@if `p20 > 10 then do
+ @begin
+;
+; Only has info on locals from Stonebrook to Porttown.
+;
+ @do `p26 random 40 1
+ @dataload npc/npcgendr.idf `p26 `p21
+ @routine getname in npcname2.ref
+ @if `p21 is 0 then do
+ @begin
+ @do `s02 is is`xa`xsexy`xgal.
+ @end
+ @if `p21 is 1 then do
+ @begin
+ @do `s02 is is`xa`xnormal`xguy.
+ @end
+ @if `p21 is 2 then do
+ @begin
+ @do `s02 is is`xa`xlesbian!
+ @end
+ @if `p21 is 3 then do
+ @begin
+ @do `s02 is is`xgay!
+ @end
+ @if `p21 is 4 then do
+ @begin
+ @do `s02 is likes`xeveryone.
+ @end
+ @if `p21 is 5 then do
+ @begin
+ @do `s02 is likes`xeveryone.
+ @end
+ @do saybar
+`%Bum: `0I heard.. `l`2::hic::`l`l`0 `s01 `s02
+ @end
+
+@do moveback
+
+@#FOUNTAIN
+;Fountain on the east side of town.
+@DO SAYBAR
+`2The pond is beautiful in the sunlight.
+
+@#H1TABLE
+;Gate for the rich folk.
+@DO SAYBAR
+`2There is nothing on the table.
+@do moveback
+
+@#H1TOILET
+@If `i21 > 0 then do
+@BEGIN
+@DO SAYBAR
+`2Looks just like a toilet.
+@do moveback
+@CLOSESCRIPT
+@END
+@DO `i21 + 1
+@DO SAYBAR
+`2You find a travel pass, someone must've dropped it while dropping it.
+@do moveback
+@end
+
+@#BIGTREE
+;Big tree in the middle area.
+@DO SAYBAR
+`2Giant tree from the Northern lands.
+@do moveback
+
+@#GUARDLOOK
+;Going by the guard's wall
+@DO SAYBAR
+`2The Royal Guard eyes you as you pass by...
+
+@#PICNIC
+;Sign for the picnic area
+@DO SAYBAR
+`2Picnic area, all enjoy!!
+@do moveback
+
+
+@#RICHGATE
+;Gate for the rich folk.
+@DO SAYBAR
+`2The guards do not let you pass and are quite rude.
+@do moveback
+
+@#PORTTOWN
+;Sign pointing to PortTown.
+@DO SAYBAR
+`2North to PortTown, gateway to the sea and land 'o pirates.
+@do moveback
+
+@#DOCK
+;Sign at the dock.
+@DO SAYBAR
+`2Fishing dock --->.
+@do moveback
+
+@#GUARD1
+;at 'special' enterance
+@DO SAYBAR
+`0"Move along you! This gate is for nobles only!"`2 the guard commands.
+@do moveback
+
+@#GUARD2
+;other guard at 'special' enterance
+@do SAYBAR
+`0"Get out of here, you peasant!" `2barks the guard.
+@do moveback
+
+@#SHEEPMAN
+;herder, need to talk to him to get access to the 'love machines'
+@do `p70 is 16
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do SAYBAR
+`0"Why you wanna go back there to see the royal sheep?" `2asks the herder.
+@end
+
+@#SHEEP
+;the sheep, oh yes.
+@do SAYBAR
+`0"Bahhhh!! Bahh!!!"`2 it screams as you gently caress it.
+@do moveback
+
+@#healers
+@offmap
+@do moveback
+@do `v01 is 1
+@do move 1 1
+@show
+`r0`c `%The Healers
+
+`2 Nathan 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," `2Nathan 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 `p30 is 2
+@do `v40 is `p20
+@routine deposit in vaults.ref
+@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," `2Nathan laughs.
+
+`k
+@drawmap
+@update
+
+@#bank
+@do `p30 is 2
+@do `v01 is 1
+@do `p22 is 0
+@do `p24 is 0
+@do `p25 is 0
+@offmap
+@do moveback
+@do `s09 is green
+@routine DONEQUEST in VAULTS.REF
+
+@label bankstart
+@do move 1 1
+@show
+`r0`c `r1 `%1st Bank Of Greentree `r0
+
+`2 A young clerk eyes you nervously.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+
+@do `p27 is 0
+@dataload taxes.idf &playernum `p23
+@if `p23 > 0 then `p27 is 1
+
+;check ext items for pouch of documents.
+;@routine NEWITEM in DEEDS.REF
+@do `p29 is &playernum
+@routine Pouch`xof`xDocuments in extitems.ref
+@routine bitcheck in item99.ref
+@do `p30 is 2 ;<--set bank to #2, ext items uses `p30 as well.
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdraw.
+=&bank 0 Apply for an account here.
+=`p20 0 >&money 45 Buy an envelope for important documents. ($40)
+=`p27 1 Pay the taxes
+Leave
+@if responce is 5 then do
+ @begin
+ @routine bank in taxes.ref
+ @end
+@if responce is 4 then do
+@begin
+@show
+
+
+ `2The exited boy tells you...
+
+ `0"You can keep all your important deeds in this secure envelope.
+ `0Instead of leaving them all at your homes, now you can check
+ your property which you own."
+
+ `2You pass him the cash and you recieve the brown envelope.
+`l
+@key
+;double check if already have item, never know, might mess up.
+@routine Pouch`xof`xDocuments in extitems.ref
+@routine giveitem in item99.ref
+@do money - 40
+@do `p30 is 2
+@do `v40 is 40
+@routine deposit in vaults.ref
+@run bankstart
+@end
+
+
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last question?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookkeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+@drawmap
+@update
+
+
+@#CLOSESCRIPT
diff --git a/xtrn/lord2/cnw/griz.ref b/xtrn/lord2/cnw/griz.ref
new file mode 100644
index 0000000000000000000000000000000000000000..05f757ba23a8a75754756f982f92a737c1ff0fca
--- /dev/null
+++ b/xtrn/lord2/cnw/griz.ref
@@ -0,0 +1,74 @@
+; Script file GRIZ.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:20 2001
+
+@DECLARE table 000000232
+@DECLARE table2 000000522
+@DECLARE grizelda 000001219
+@DECLARE sherie 000001365
+@NOCHECK
+; End of .REF index
+
+@#TABLE
+;Table at grizelda's has some money on it
+@do moveback
+@if bitcheck `t19 3 1 then do
+ @begin
+ @do saybar
+`4You allready took her money!
+ @closescript
+ @end
+
+@DO SAYBAR
+`2Wow, there are 35 gold pieces on the table! You take 'em.
+@do money + 35
+@bitset `t19 3 1
+
+@#TABLE2
+;This table has a needle laying on it...
+@do moveback
+@if bitcheck `t19 4 1 then do
+ @begin
+ @do saybar
+`4You allready took the needle!
+ @closescript
+ @end
+
+@DO SAYBAR
+`2Wow, there is a neddle laying on the table...
+@do moveback
+@do `p30 random 4 1
+@if `p30 is 1 then saybar
+`2You inject the neddle and you get 1 dodge point
+@do `p05 + 1
+@if `p30 is 2 then saybar
+`2You inject the neddle and you get 1 muscle point
+@do `p04 + 1
+@if `p30 is 3 then saybar
+`2You inject the neddle and you get 2 More MAX Hit Point's!
+@do `p03 + 2
+@if `p30 is 4 then saybar
+`2You inject the neddle and you start to look better you get 2 charm!
+@do `p08 + 2
+@bitset `t19 4 1
+
+@#GRIZELDA
+@do `p70 is 108
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`$Your cute Come to mama!
+@end
+
+@#SHERIE
+@do `p70 is 107
+@do moveback
+@do quebar
+`%Wow She is HOTT!!!
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`$Hi.. Help me Save me... And i will make it worth your while!
+@end
+
diff --git a/xtrn/lord2/cnw/gshops.ref b/xtrn/lord2/cnw/gshops.ref
new file mode 100644
index 0000000000000000000000000000000000000000..6c7755e5a353615a99157de1895e86d6b58b90be
--- /dev/null
+++ b/xtrn/lord2/cnw/gshops.ref
@@ -0,0 +1,657 @@
+;gshops.ref ... mostly stuff for Greentree
+
+@#bartoy
+;barak's tiolet, need to say something I guess..
+@do saybar
+Not the cleanest thing in town.
+@do moveback
+
+@#house6
+;nobody home
+@do moveback
+@do saybar
+Hmm, no answer.
+
+@#BARCHEST
+@do moveback
+
+@if bitcheck `t01 5 1 then do
+ @begin
+ @do saybar
+The chest is empty.
+ @closescript
+ @end
+
+@do `p20 random 4 1
+@if `p20 is 1 then do
+ @begin
+ @do `i74 is 1
+ @show
+`r0`c `r1 `%You find something in the chest! `r0
+
+ `2You find `0Barak's Diary`2. `%AWESOME!`2
+
+`k
+ @bitset `t01 5 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@do goto ma
+
+@#ma
+@do moveback
+@do `s01 is ass
+@if `v06 is 1 then `s01 is self
+@do x is 52
+@do y is 18
+@do map is 69
+@loadmap &map
+@show
+`r0`c `r1 `%Barak's Mother `r0
+
+`2 An old woman is rocking in her chair.. until she sees you.
+
+`k `0"How did you get in here?!?! Do you know who my son is?!? He will
+ hunt you down and rip you apart!!"
+
+`k `2She promptly kicks your sorry `s01 out.
+
+`k
+@drawmap
+@update
+
+@#picklock
+@do moveback
+
+@datanewday barmom.idf
+@dataload barmom.idf &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @do saybar
+You better not try again today.. she's watching you through a window.
+ @closescript
+ @end
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`2The door is locked. Attempt to pick it? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+@if `s01 is Y then do
+ @begin
+@if `p18 < 15 then do
+ @begin
+
+ @do saybar
+`2You lack the skills. You need more quest points.
+ @closescript
+ @end
+ ;he did it
+ @do x is 40
+ @do y is 13
+ @do map is 75
+ @loadmap &map
+ @drawmap
+ @update
+ @do saybar
+`2You pick the lock successfully!
+ @datasave barmom.idf &playernum 1
+ @closescript
+@end
+@do saybar
+Maybe later.
+
+
+@#MIN
+;minister at church, place to cure vd
+@do `p70 is 76
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do `v01 is 1
+@show
+`r0`c `r1 `%Saying your prayers `r0
+
+ `2You kneel in front of the pulpit. A balding priest looks at you
+ intently.
+
+@do write
+`x`x
+@choice
+I wish to make a donation
+I wish to donate my negative opinion of organized religion
+Leave
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `0"How much, my son?" `2the priests asks, eyes lighting up at the
+ prospect.
+ @do write
+`\`x`x
+ @do readnum 10 0
+ @if `v40 is 0 then do
+ @begin
+ @show
+`\`\ `$"I'll donate let's see... how about nothing?"
+
+`k
+ @do goto min
+ @end
+
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Donate a negative amount? Oh, you mean steal from the plate?
+
+`k `4Too bad there is nothing in it.
+
+`k
+ @do goto min
+ @end
+
+
+ @if `v40 > money then do
+ @begin
+ @show
+`\`\ `2Ok, now try an amount that you have with you.
+
+`k
+ @do goto min
+ @end
+
+ @dataload npc/npcgold.idf `p70 `p29
+ @do `p29 + `v40
+ @datasave npc/npcgold.idf `p70 `p29
+ @do money - `v40
+ @do `p20 is `p09
+ @do `p20 * 100
+ @if `v40 < `p20 then do
+ @begin
+ @show
+`\`\ `2You close your eyes, hoping for a miracle...
+
+`k `4Nothing happens.. course you didn't donate much either.
+`\`k
+
+ @do goto min
+ @end
+
+ @if `p12 is 0 then do
+ @begin
+ @show
+`\`\ `2You close your eyes, hoping for a miracle...
+
+`k `4Nothing happens.. and you donated plenty. I guess you just don't need
+ divine help right now, maybe later.
+`\`k
+ @do goto min
+ @end
+
+ @do `p12 is 0
+ ;cure vd
+ @show
+`\`\ `2You close your eyes, hoping for a miracle...
+
+`k `%YOU FEEL CLEAN AGAIN. Your body is not sick anymore.
+`\`k
+ @do goto min
+ @end
+
+
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ `$"What you do is ridiculous. You tell us we'll go to a better place
+ after we die if we give you money. Who bought this church, God? No, we
+ did.
+
+ Religion is for people that need something to believe in - so they don't go
+ mad." `2you finish softly.
+
+`k `0"Exactly.. so are you gonna donate or what?" `2laughs the priest.
+
+`k
+ @do goto min
+ @end
+
+@drawmap
+@update
+@end
+
+@#WHORE
+;(currently unused)
+@offmap
+@do moveback
+@do `v01 is 1
+@label whorestart
+@show
+`r0`c `r1 `%The Whore House `r0
+
+`2 You run your hands together, it's time you finally had some fun. And
+ hey, while you're in Greentree, why not pay a visit to the infamous
+ Greentree brothel.
+@do write
+`\`x`x
+@choice
+Visit Kelley.
+Leave
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2You rub your hands together lewdly. `$"I want a little 'visit' with
+ Kelley if you know what I mean..." `2you drawl.
+
+ `0"Kelley is busy.. How about Mary?"
+
+ `2You decide to wait. (this area will be added to later..)
+`\`k
+ @end
+
+@drawmap
+@update
+
+@#SCRIBE
+;a place where they can add to the daily happenings
+@offmap
+@do moveback
+@do `v01 is 1
+@label scribestart
+@do `p22 is `p09
+@do `p22 * 10
+@show
+`r0`c `r1 `%The Scribe Hut `r0
+
+`2 Wow! This is where the daily happenings are made! More than just a
+ paper, it brings the community together.
+
+ `2A little man with glasses is working.
+
+@do write
+`x`x
+@choice
+`%Place an ad for `$$`p22`%.
+Leave
+@
+@if response is 1 then do
+ @begin
+ @if money < `p22 then do
+ @begin
+ @show
+`\`\ `2You are a little short. Bummer.`\`\`k
+ @do goto scribestart
+ @end
+ @do `p30 is 2
+ @do `v40 is `p22
+ @routine deposit in vaults.ref
+ @do money - `p22
+ @writefile lognow.txt
+ `2A special announcement from `0`n`2:`\`%
+ @show
+`\`\ `0"Ok sir! Enter your message. A blank line will quit."
+@label keepwriting
+@do write
+`\`x`x
+ @do readstring 75 NIL `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+ @show
+`\ `0"Alright! We have added you to today's edition!"
+
+`2 You trot out feeling important.
+`\`k
+@drawmap
+@update
+@closescript
+ @end
+ @do stripbad `s01
+ @writefile lognow.txt
+ `s01
+ @
+ @do goto keepwriting
+
+ @end
+
+@drawmap
+@update
+
+@#raise
+;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!"
+
+ `2Your face falls - what a bummer!
+
+`k
+@run barak
+@closescript
+@end
+
+ @if `t04 > 0 then do
+ @begin
+ @show
+
+
+ `0"You already failed once today, come back tomorrow, loser!"
+
+ `2Your face falls - what a bummer!
+
+`k
+@run barak
+@closescript
+@end
+
+ @show
+
+
+ `0"You have been sitting at level `p09 long enough."
+
+@if `p09 IS 1 then do
+ @begin
+ @show
+ `$"Cool! So where is the master I fight?" `2you beam with pride.
+
+`k `0"Master? Haw! Now that *I* run this place we do it my way!" `2Barak
+ laughs as he crumbles a strange black root into a mortar...
+
+ `2You anxiously await your fate...
+
+@end
+@show
+`k
+`c `r1`4 DRINKING YOUR OWN INIQUITY `r0
+
+`2 Barak hands you a cup and asks you to drink.
+
+ `2You nearly retch as you feel the vessel's oily contents slide down
+ your throat.
+
+`k `2Barak leads you to a small room with a cot. `2"I'll be back in a few
+ hours, then we'll see if you're still this cocky!"
+
+`2 You lay down and begin dreaming immediately.
+
+`k
+@do `s01 is gshops
+@run startfight in training.ref
+@closescript
+
+@#BARAK
+@offmap
+@do `p21 is `v05
+@do `p21 / 24
+@if `p11 < `p21 then do
+ @begin
+ @do moveback
+ @do saybar
+`0There is not enough time for today, come back tommorow.
+ @key bottom
+ @closescript
+ @end
+@if `t01 is 255 then do
+ @begin
+ @do goto turg
+ @end
+@do moveback
+@do `v01 is 1
+@label barstart
+@show
+`r0`c `%Barak's Training Center
+
+`2 Hundreds of warriors are randomly jumping and shrieking in their
+ efforts to better themselves.
+
+ Although the building itself is old and scarred, the sign is new.
+
+@do write
+`x`x
+@choice
+Ask for a level raise.
+Talk to Master Barak.
+Leave
+@if responce is 1 then do
+ @begin
+ @run raise
+ @do goto barstart
+ @end
+
+
+@if responce is 2 then do
+ @begin
+ @if bitcheck `t01 4 1 then do
+ @begin
+ @show
+`r0`c `%Talking to Master Barak
+
+ `0"Make it fast kid, I'm busy!"
+
+ `$"Um, Barak? Where are the other trainers, as is the tradition?" `2you
+ innocently ask.
+
+`k `0"Other trainers?! Now that *I'M* the new MASTER TRAINER, I fired the
+ rest! I am the master for EVERY LEVEL NOW!" `2Barak cackles evilly.
+
+ `$"Wow, nice. You must have worked long and hard to achieve this position,
+ Master Barak."
+
+`k `0"Of course I did! That last Master, this geezer known as Turgon turned
+ out to be a thief - you never know about some people, eh? Haw!" `2 Barak
+ laughs crudely.
+
+`k
+ @if bitcheck `t01 2 1 then do
+ @begin
+ @bitset `t01 6 1
+ @end
+ @do goto barstart
+ @end
+
+ @show
+`r0`c `%Talking to Master Barak
+
+ `0"Sorry kid, I'm a little busy TEACHING, because after all, I am sort of
+ the MASTER of this whole place - you can grasp that concept, can't you?"
+
+ `2Wow, what an ass. Maybe he'll talk later.
+
+`k
+ @do goto barstart
+ @end
+
+@drawmap
+@update
+
+@#turgraise
+;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!"
+
+ `2Your face falls - what a bummer!
+
+`k
+@run turgstart
+@closescript
+@end
+
+ @if `t04 > 0 then do
+ @begin
+ @show
+
+
+ `0"You already failed once today, `n. I cannot let you try again
+ tomorrow," `2Turgon tells you.
+
+ `2Your face falls - what a bummer!
+
+`k
+@run turg
+@closescript
+@end
+
+
+ @show
+
+
+ `0"You have been sitting at level `p09 long enough."
+
+@show
+`k
+`c `r1`4 DRINKING YOUR OWN INIQUITY `r0
+
+`2 Turgon hands you a small black cup.
+
+ `2It doesn't taste bad actually...
+
+`2 You lay down and begin dreaming immediately.
+
+`k
+@do `s01 is gshops
+@run startfight in training.ref
+@closescript
+
+
+@#TURG
+@offmap
+@do moveback
+@do `v01 is 1
+@label turgstart
+@show
+`r0`c `%Turgon's Training Center
+
+`2 Hundreds of warriors are randomly jumping and shrieking in their
+ efforts to better themselves.
+
+ Turgon waves to you warmly as you come in.
+
+@do write
+`x`x
+@choice
+Ask for a level raise.
+Talk to Master Turgon.
+Leave
+@if responce is 1 then do
+ @begin
+ @run turgraise
+ @do goto turgstart
+ @end
+
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `%Talking to Master Turgon
+
+ `0"How are you, `n`0?"
+
+ `$"Doing pretty good. Are you back to the master-per-level system?" `2you
+ ask.
+
+`k `0"Nah.. the other trainers have left. I think we're gonna stick to
+ the nightmare drink thing." `2he smiles.
+
+ `$"Hmm... I'm not real excited about that part, but ok."
+
+`k
+ @do goto turgstart
+ @end
+
+@drawmap
+@update
+
+
+
+@#ABDUL
+@offmap
+@do moveback
+@do `v01 is 1
+@label abstart
+@show
+`r0`c `%Abdul's Armour
+
+`2 You see chainmail, leather, studded vests and other crap everywhere.
+
+@do write
+`x`x
+@choice
+Examine her wares
+Go outside.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 10
+ 12
+ 13
+ 14
+ @end
+
+@if responce not 2 then goto abstart
+@drawmap
+@update
+
+@#ARTHUR
+@offmap
+@do moveback
+@do `v01 is 1
+@label arstart
+@show
+`r0`c `%King Arthur's Weapons
+
+`2 Items of destruction are hung all around you - you feel like a kid in
+ a candy store.
+
+@do write
+`x`x
+@choice
+Examine his weaponry
+Go outside.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 4
+ 9
+ 15
+ 16
+ @end
+
+@if responce not 2 then goto arstart
+@drawmap
+@update
+
+
diff --git a/xtrn/lord2/cnw/guards.clr b/xtrn/lord2/cnw/guards.clr
new file mode 100644
index 0000000000000000000000000000000000000000..128db589b9944cddf72f511c57055860d05640f4
--- /dev/null
+++ b/xtrn/lord2/cnw/guards.clr
@@ -0,0 +1,17 @@
+[?7h[255D[63C[0m����������
+[61C�����������۲�
+[60C��������������۲
+[60C��[1;31;47m�[30;43m���[31;40m�[0m��[1;31m�[30;43m���[31;47m�[0m۲
+[60C��[1;31m�� [0m� �� � [1;31m��[0m۲
+[59C���[1;31m�����[0m��[1;31m�����[0m���
+[55C����������[5C[1;30m�[31m� [0m�
+[53C�����������۲� [1;30m��
+[52C[0m��������������۲ [1;30m� [0m������
+[52C��[1;31;47m�[30;43m���[31;40m�[0m��[1;31m�[30;43m���[31;47m�[0m۲ �
+[52C��[1;31m�� [0m� �� � [1;31m��[0m۲ �
+[51C���[1;31m�����[0m��[1;31m�����[0m���
+[53C� [1;31m�[30m��[31m��[30m߲[31m� [0m�
+[56C[1;30m۲���۲�
+[50C[0m������ [1;30m������ [0m������
+[56C� [1;30m���� [0m�
+[57C�[5C�
diff --git a/xtrn/lord2/cnw/gumgod.ans b/xtrn/lord2/cnw/gumgod.ans
new file mode 100644
index 0000000000000000000000000000000000000000..c461c6fb4ea0a1a51d76daabe9c7c89b30a79a26
--- /dev/null
+++ b/xtrn/lord2/cnw/gumgod.ans
@@ -0,0 +1,22 @@
+[?7h[40m[2J[2;1H[3;1H[2C[0;1;44m Your Servant Deity. [4;1H[0m������[s
+[u������������������������������������������������������������������������Ŀ
+[5;1H�[31C[47m [36C[40m�[6;1H�[11C[45m [2C [13C[47m[40m[s
+[u[47m [13C[45m [2C [16C[40m�[7;1H�[9C[45m [40m[s
+[u[1C[45m [2C [1C [10C[47m [45m [47m [10C[45m[40m[s
+[u[45m [1C [2C [1C [14C[40m�[8;1H�[9C[45m [1C [1C [1C [40m[s
+[u[11C[47m [45m [1;33m [D [D [47m [11C[45m [1C [40m[s
+[u[1C[45m [1C [14C[0m�[9;1H�[9C[45m [12C[47m [45m [40m[s
+[u[45m [1;33mU [47m [12C[45m [14C[0m�[10;1H�[9C[s
+[u[45m [13C[47m [45m [1;33m���¿ [47m [13C[45m [40m[s
+[u[45m [14C[0m�[11;1H�[8C[42m [13C[47m [45m [1;33m[40m[s
+[u[45m����� [47m [13C[42m [13C[0m�[12;1H�[8C[42m [40m[s
+[u[42m [13C[47m [45m [47m [13C[42m [13C[40m[s
+[u[40m�[13;1H�[9C[42m [5C [45m [42m [40m[s
+[u[42m [5C [14C[40m�[14;1H�[10C[42m [3C [40m[s
+[u[42m [45m [42m [3C [15C[40m�[15;1H����[s
+[u��������������������������������������������������������������������������[s
+[u��[16;1H [D[17;1H [44mAsk for a Boon.[18;1H[2C[40mAsk for some Na[s
+[ustiness.[19;1H Go outside.[20;1H[21;1H[22;1H[23;1H[24;1H[25;1H[A
+[1;33;44mSYSOP [32mLORD II: New World - Node 0 [40m[A
+[57C[44m [37m119:37 [40m
+[A[79C[44m
diff --git a/xtrn/lord2/cnw/gumtown.ref b/xtrn/lord2/cnw/gumtown.ref
new file mode 100644
index 0000000000000000000000000000000000000000..1a704a0b737e0a310c9c97c286d2facd1df3efc1
--- /dev/null
+++ b/xtrn/lord2/cnw/gumtown.ref
@@ -0,0 +1,1138 @@
+; Script file GUMTOWN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:25 2001
+
+@DECLARE foodsell 000000753
+@DECLARE food1 000000805
+@DECLARE behind 000001837
+@DECLARE son1 000001909
+@DECLARE urn 000001981
+@DECLARE talk 000002048
+@DECLARE healer 000002115
+@DECLARE dealer 000003922
+@DECLARE racetrack 000005011
+@DECLARE dograce 000005447
+@DECLARE armshop 000007546
+@DECLARE abstart 000007600
+@DECLARE townsign 000007956
+@DECLARE mybank 000008049
+@DECLARE priv 000010855
+@DECLARE innkeeper 000010953
+@DECLARE pass1 000012256
+@DECLARE pass2 000012510
+@DECLARE done 000013863
+@DECLARE doorguard 000013899
+@DECLARE startg 000013928
+@DECLARE sign 000019143
+@DECLARE enter 000019446
+@NOCHECK
+; End of .REF index
+
+
+
+@#foodsell
+@offmap
+@do moveback
+@do `v01 is 1
+@label food1
+@show
+`r0`c `%The Kind Old Food Lady
+
+`2 She waves you over. She is simply too old and feebly to yell.
+
+@do write
+`x`x
+@choice
+Examine her wares.
+I've got some stuff if your a collector.
+What's your favourite food, lady?
+Go outside.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+ @clearblock 8 14
+ @do move 1 7
+ @buymanager
+ 1
+ 3
+ 11
+ 17
+ 29
+ 43
+ @end
+
+@if responce is 2 then do begin
+ @begin
+ @clearblock 8 14
+ @do move 1 7
+ @sellmanager
+ @end
+
+@if responce is 3 then do begin
+ @begin
+@show
+ `0"Yes, my favourite food is the infamous `4Waldorf Salad`0.
+ `0It's beautiful. Berries, normal and poisonous; egg, salmon,
+ crumbled pie, a dash of milk, a tasty child and a sprinkling
+ `0of the finest glowworm this side of the Philopines.
+ `0Unfortunately my supplier doesn't sell berry pie "She says.
+ `2"I know what to get you, a double labotomy and ten rolls of
+ rubber wallpaper!"
+`k
+ @end
+
+
+
+@if responce not 4 then goto food1
+@drawmap
+@update
+
+@#behind
+ @do saybar
+ `4Get out from behind here!
+ @do moveback
+
+
+@#son1
+ @do saybar
+ `2Mom makes the best Pies ever.
+ @do moveback
+
+@#urn
+ @do saybar
+ A beautiful Grecian Urn.
+ @do moveback
+
+@#talk
+ @do saybar
+ Go away we're talking!
+ @do moveback
+
+@#healer
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1 GumTown Healing `r0
+
+`2 A Georgeous lady 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"Piss off ya pov bastard."
+
+ @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 make love to a man who doesn't work," `2she informs you.
+
+`k
+ @end
+@if response is 3 then do
+ @begin
+ @do `p02 = 1
+ @show
+ `0"Sure. Take uh.. these." `2 she snickers.
+
+ `2You gulp down the weird black pills
+
+ `4HIT POINTS GO DOWN TO 1. OUCH!
+
+`k
+ @end
+
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @do `p30 is 7
+ @do `v40 is `p20
+ @routine deposit in vaults.ref
+@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!" `2she giggles seductively.
+
+`k
+@drawmap
+@update
+
+
+@#DEALER
+;the info dealer
+@do moveback
+@busy
+@do `v01 is 1
+@show
+`r0`c `r1 `%Talking to The Dealer `r0
+
+ `2A slightly evil looking man encourages you to sit.
+
+@do write
+`x`x
+@choice
+Gossip
+Conduct business with The Dealer
+Leave
+@if responce is 2 then do
+ @begin
+ @do `p20 is 5
+ @run getquest in quest.ref
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do `p21 random 3 1
+ @if `p21 is 1 then do
+ @begin
+ @show
+`\`\ `0"Well.. I have an evil half brother, Basil. I want to know what
+ he plans so I can be rid of him and rule the land myself."
+`\`k
+ @end
+
+ @if `p21 is 2 then do
+ @begin
+ @show
+`\`\ `0"I could kill you with a glance. Don't tempt me asshole.
+ If that fails, I could run you through with my `4Dragonblade`0..."
+`\`k
+ @end
+
+ @if `p21 is 3 then do
+ @begin
+ @show
+`\`\ `0"This town is small. But in the information game I always have
+ a few customers.. What do I sell? Don't EVER ask me that again!"
+`\`k
+ @end
+
+ @do goto dealer
+
+ @end
+
+@drawmap
+@update
+
+
+
+
+@#Racetrack
+;racetrack...
+@do moveback
+
+
+@if `p33 < 1 then do
+ @begin
+ @do saybar
+Sorry. I can't let you gamble here. Maybe tomorrow.
+ @closescript
+ @end
+
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2Wanna put bets on the dogs? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is N then do
+ @begin
+ @do saybar
+Maybe later when the dogs are biting.
+ @closescript
+ @end
+
+@label dograce
+
+@do `p20 is `i29
+@do `p20 + `i30
+@do `s01 is `p20
+@if `s01 is 0 then `s01 is no
+
+@show
+`r0`c `r1 `%The race track `r0
+
+ `2You sit yourself down to enjoy the race.
+
+ You have &money Dollars.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+>&money 14 Bet 15 on 5 in the 2nd.
+>&money 14 Bet 15 on 13 in the 3rd.
+Get up and leave
+@if responce is 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if response is 1 then do
+ @begin
+ @do `p33 - 1
+ @do `p30 is 7
+ @do `v40 is 15
+ @routine deposit in vaults.ref
+ @do money - 15
+ @do `p20 random 80 20
+ @show
+ He's really going for it.......
+
+@end
+
+@if response is 2 then do
+ @begin
+ @do `p33 - 1
+ @do `p30 is 7
+ @do `v40 is 15
+ @routine deposit in vaults.ref
+ @do money - 15
+ @do `p20 random 20 1
+ @show
+ This one's a cainer.
+
+@end
+
+
+@do write
+ `2You wait.`l.
+@if `p33 < 1 then do
+ @begin
+ @show
+`4The dogs are all stuffed.`2
+
+ It looks like the action is finished for today.
+
+`k
+ @do goto dograce
+ @end
+@do `p20 random 2 1
+@if `p20 is 1 then do
+ @begin
+ @show
+`4Crap he lost.
+
+`2 You spit in disgust.
+
+`k
+ @do goto dograce
+ @end
+@if `p20 is 2 then do
+ @begin
+ @show
+`%You have a chance!`2
+
+@do write
+`k
+@do `p20 random 4 1
+@IF `P20 IS 1 then do
+ @begin
+ ;catching a special fish
+ @show
+ It's the trifecter! You are on the edge of your seat...
+
+@do write
+`k
+@do `p20 random 4 1
+@IF `P20 IS 1 then do
+ @begin
+ @show
+ `bDisqualified!
+
+ `4"Aaaarrrrrrgggggggghh!!!!" you scream.
+
+`k
+ @do goto dograce
+ @end
+ @show
+ `2Yes! You picked `0the trifector`2! `4Win $1000
+`\`k
+ @do `p30 is 7
+ @do `v40 is 1015
+ @routine widthdraw in vaults.ref
+ @do money + 1015
+ @do `p33 - 1
+ @do goto dograce
+ @end
+
+ @show
+ You go to collect your winnings.
+
+`k Take that evil bookie. `4WIN $100
+
+`k
+ @do `p30 is 7
+ @do `v40 is 115
+ @routine widthdraw in vaults.ref
+ @do money + 115
+ @do `p33 - 1
+ @do goto dograce
+ @end
+
+
+ @end
+
+@#ARMSHOP
+@offmap
+@do moveback
+@do `v01 is 1
+@label abstart
+@show
+`r0`c `%Gum's Armoury
+
+`2 An Ideal place to buy things for maiming or self defence.
+
+@do write
+`x`x
+@choice
+Examine her wares
+Go outside.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 14
+ 15
+ 35
+ 37
+ 39
+ 59
+ 62
+ 64
+ 70
+ @end
+
+@if responce not 2 then goto abstart
+@drawmap
+@update
+
+@#townsign
+ @do saybar
+ `1Welcome to `2G`3u`4m`5t`6o`7w`8n`1:Population 21
+ @do moveback
+
+@#MYBANK
+;team treasury
+@do moveback
+@do `p20 is 0
+@if gumtres.dat exist true then do
+ @begin
+ @readfile gumtres.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile gumtres.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete gumtres.dat
+ @writefile gumtres.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile gumcast.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Gum-Lass Castle Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile gumtres.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete gumtres.dat
+ @writefile gumtres.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile gumcast.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Gum-Lass Castle Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+
+@#priv
+@do moveback
+@do saybar
+Ahhh! The private bedroom! Nothing can hurt you here.
+
+@#innkeeper
+
+
+@do moveback
+
+@if gumcast.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@readfile gumcast.dat
+`p20
+`s01
+@
+
+@if `p20 is &playernum then do
+ @begin
+ @do moveback
+ @do saybar
+`0Innkeeper: `2Greetings, s&sir!
+ @closescript
+ @end
+
+
+
+@if gumcasta.dat exist false then do
+ @begin
+ @writefile gumcasta.dat
+200
+0
+ @
+ @end
+
+ @readfile gumcasta.dat
+`p26
+`p27
+ @
+
+
+@do `v01 is 1
+@show
+`r0`c `r1 `%Getting a room `r0
+
+`2 The Innkeeper looks at you. `0"Kin I getcha a room? Today it costs
+ only `$$`p26!`2"
+
+@do write
+`x`x
+@choice
+Yeah, what a great deal.
+Shyeah, right.
+@if responce is 1 then do
+ @begin
+ @if money < `p26 then do
+ @begin
+ @show
+`\`\ `2You sort of lack the funds right now. Looks like you're sleeping
+ outside...
+
+`k
+ @do goto innkeeper
+ @end
+
+ @do money - `p26
+ @do `p27 + `p26
+ @do delete gumcasta.dat
+ @writefile gumcasta.dat
+`p26
+`p27
+ @
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has stayed at your Inn! Cha-CHING!
+
+ @do x is 25
+ @do y is 13
+ @drawmap
+ @update
+ @do saybar
+`0Bartender: `2"Great! Go on Inn! Ha Ha, a Pun."
+ @closescript
+ @end
+
+@drawmap
+@update
+
+@#pass1
+@readfile gumcast.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+
+@if &lastx is 27 then do
+ @begin
+ @do moveback
+ @do saybar
+`0Innkeeper: `2You need to pay me before you can go back there.
+ @end
+
+@#pass2
+@if gumcast.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@if &lastx is 62 then do
+ @begin
+ @closescript
+ @end
+
+@readfile gumcast.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @do saybar
+`0Innkeeper: `2No one is allowed over there.. it's private.
+
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 Entrance to the private area `r0
+
+`2 `2The Innkeeper looks over at you. `0"Hey! What business do you have
+ going in there?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok, go on in then!"`\`\`k
+ @do x + 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Inkeeper Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get to the private bedroom by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The Innkeeper isn't impressed.`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+
+
+ @#done
+ @drawmap
+ @update
+
+@#doorguard
+@do moveback
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+
+@if gumcasta.dat exist false then do
+ @begin
+ @writefile gumcasta.dat
+200
+0
+ @end
+
+
+@if gumcast.dat exist false then do
+ @begin
+ @do saybar
+`0"Get out please! The Castle has been sold!" `2the Innkeeper commands.
+ @closescript
+ @end
+
+@readfile gumcast.dat
+`p20
+`s01
+@
+
+ @readfile gumcasta.dat
+`p26
+`p27
+ @
+
+
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the Innkeeper.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The Innkeeper stops working for a moment.
+
+@do write
+`x`x
+@choice
+Set password to private rooms. (currently is `0`s01`%)
+Ownership options
+Set room fee (currently is at `$$`p26`%)
+Take money from register
+Leave
+@
+
+@if responce is 4 then do
+ @begin
+ @if `p27 < 1 then do
+ @begin
+@show
+`\`\ `0"Before you look in that register.. lemmie tell you business has
+ been a little slow." `2the Innkeeper tells you.
+
+`k `$"How slow?" `2you ask.
+
+`k `0"Ok, we have not had a single customer since you last checked, I'm
+ a terrible manager," Innkeeper cries as he bursts into tears.
+ No wonder I never get invited to parties.
+
+`k
+ @do goto doorguard
+ @end
+
+
+ @readfile gumcasta.dat
+`p26
+`p27
+ @
+ @do money + `p27
+ @do delete gumcasta.dat
+ @writefile gumcasta.dat
+`p26
+0
+ @
+
+ @show
+`\`\ `2Sure, we've made `$$`p27`2, here ya go!
+
+`k
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You think you're pretty smart, don't you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, yes I do. Now please give me 1,000,000 gold for free, I deserve it.
+No, you oh computer are the true master. We humans suck.
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2GET OUT OF HERE BEFORE I `bDELETE`2 YOU! Next time I will.
+
+ @do goto doorguard
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ The computer playfully slaps your ass as it walks out.
+
+ @do goto doorguard
+
+ @end
+
+ @do goto doorguard
+ @end
+ @readfile gumcasta.dat
+`p26
+`p27
+ @
+ @do `p26 is `v40
+ @do delete gumcasta.dat
+ @writefile gumcasta.dat
+`p26
+`p27
+ @
+ @do goto doorguard
+ @end
+
+
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$100000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your Castle to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete gumcast.dat
+ @writefile gumcast.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of Gum-Lass Castle to you.
+ Password to enter bedroom will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%Gum-Lass Castle`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Castle back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete gumcast.dat
+ @do delete gumcasta.dat
+ @do `p30 is 7
+ @do `v40 is 100000
+ @routine widthdraw in vaults.ref
+ @do money + 100000
+ @show
+`\`\ `%CASTLE SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Gum-Lass Castle`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete gumcast.dat
+ @writefile gumcast.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the Innkeeper promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#sign
+@do moveback
+
+ @if gumcast.dat exist false then do
+ @begin
+ @do saybar
+Gum-Lass Castle - For sale cheap, enquire inside.
+ @end
+
+@if gumcast.dat exist true then do
+ @begin
+@readfile gumcast.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+@#enter
+@do moveback
+@offmap
+
+
+@if gumcast.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+[0m�����������������������������������������������������������������������
+[A[71C�������Ŀ� [41m [40m[9C[41m [40m[4C[41m [40m[18C
+[A[53C[41m [40m[8C[1;36;41m[0m[8C�� [41m [40m[5C
+[A[9C[41m [40m [41m [40m [41m [40m[4C[41m [40m[8C
+[A[37C[41m [40m [41m [40m[6C[41m [40m [9C
+[A[69C[1;32;41m[0m[8C�� [41m [40m[3C[41m [40m [41m [40m
+[A[15C [41m [40m[4C[41m [40m [41m [40m [41m [40m
+[A[43C [41m [40m[6C[41m [40m[10C[1;33;41m[0m[8C��
+[A[2C[41m [40m[5C[41m [40m [41m [40m [41m [40m [41m [40m[11C
+[A[33C[41m [40m [41m [40m [41m [40m[6C[41m [40m
+[A[58C [10C[32;41m[37;40m[8C�� [41m [40m[5C[41m [40m
+[A[16C [41m [40m [41m [40m[4C[41m [40m [41m [40m
+[A[40C [41m [40m [41m [40m [41m [40m[8C[35;41m[40m
+[A[70C[41m[37;40m[8C����������������������������������������������
+[A[45C�����������������������������������[0m
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/gumtown2.ref b/xtrn/lord2/cnw/gumtown2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..d5f0b3b29fb2bd15f0d66608eeeb76d7f57004cf
--- /dev/null
+++ b/xtrn/lord2/cnw/gumtown2.ref
@@ -0,0 +1,102 @@
+; Script file GUMTOWN2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:25 2001
+
+@DECLARE chop 000000264
+@DECLARE battlegod 000000476
+@DECLARE hike 000001120
+@DECLARE spoken 000001277
+@DECLARE slavegod 000001666
+@NOCHECK
+; End of .REF index
+
+
+@#chop
+@if gumgod.idf exist false then goto battlegod
+@dataload gumgod.idf &playernum `p20
+@if `p20 EQUALS 0 then goto battlegod
+@if `p20 EQUALS 2 then goto slavegod
+@if `p20 EQUALS 1 then goto hike
+
+@#battlegod
+@fight
+;name
+Resident God
+;string said when you see him
+`4"You dare challenge the might of god."
+;power move kill string
+My Kung-Fu is the best!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Smites you a bit|766
+Calls down his heavenly wrath|940
+Tears your head off fataly|1200
+NONE|NONE
+NONE|NONE
+;defense
+500
+;gold reward
+666
+;experience
+10000
+;hit points
+2000
+;if win: ref file|name or NONE
+gumtown2.ref|beatgod
+;if lose: ref file|name or NONE
+gumtown2.ref|lostgod
+;if runs: ref file|name or NONE
+NONE|NONE
+@datasave gumgod.idf &playernum 1
+@closescript
+@end
+
+@#hike
+@datanewday gumgod.idf &playernum `p20
+@dataload gumgod.idf &playernum `p20
+@if `p20 is 0 then goto battlegod
+@if `p20 is 1 then goto spoken
+
+@#spoken
+@do saybar
+`2Today God has Spoken. Try again tomorrow.
+ @writefile lognow.txt
+ `$
+ `4 An anouncement from the Great `1G`2u`3m`4-`5L`6a`7s`8s`4
+ `4`2 `n is a complete `3MORON `4
+ `4`2Please someone inform him what `3"Once a Day"`2means`4
+ `$
+
+@do moveback
+@end
+
+@#slavegod
+@offmap
+@datanewday gumboon.idf &playernum `p21
+@do `v01 is 1
+@do moveback
+@pauseoff
+@show
+`r0`c `r1`% Your Servant Deity. `r0
+[0m�����������������������������������������������������������������������
+[A[71C�������Ŀ�[31C[47m [40m[36C��[11C[1;33;45m [0m
+[A[14C [1;33;45m [0m[13C[47m [40m[13C[1;33;45m [40m
+[A[60C[0m [1;33;45m [0m[16C��[9C[1;33;45m [0m [1;33;45m [0m
+[A[13C [1;33;45m [0m [1;33;45m [0m[10C[47m [45m [40m
+[A[41C[47m [40m[10C[1;33;45m [0m [1;33;45m [0m
+[A[62C[1;33;45m [0m [1;33;45m [0m[14C��[7C[1;33m [0m
+[A[10C[1;33;45m [0m [1;33;45m [0m [1;33;45m [40m [45m [0m[11C
+[A[29C[47m [45m [1;33m[0;45m [1;33m[0;45m [47m [40m[11C
+[A[57C[1;33;45m [0m [1;33;45m [0m [1;33;45m [0m [1;33;45m [0m[14C
+[A[79C��[8C[1;33m [45m [0m[12C[47m [45m [1;33mU[40m
+[A[38C[0;45m [47m [40m[12C[1;33;45m [0m[14C��[9C
+[A[10C[1;33;45m [0m[13C[47m [45m [1;33m���¿[0;45m [40m
+[A[42C[47m [40m[13C[1;33;45m [0m[14C��[8C[1;33;42m [40m
+[A[12C[42m [0m[13C[47m [45m [1;33m�����[0;45m [47m [40m[13C
+[A[58C[1;33;42m [0m[13C��[8C[1;33;42m [0m[13C
+[A[31C[47m [45m [47m [40m[13C[1;33;42m [0m[13C
+[A[79C��[9C[1;33;42m [0m[5C[1;33;42m [45m [40m
+[A[39C[42m [0m[5C[1;33;42m [0m[14C��[10C
+[A[11C[1;33;42m [0m[3C[1;33;42m [45m [42m [40m
+[A[39C[42m [0m[3C[1;33;42m [0m[15C����������
+[A[9C�����������������������������������������������������������������
+[A[74C������[0m
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/gumtown3.ref b/xtrn/lord2/cnw/gumtown3.ref
new file mode 100644
index 0000000000000000000000000000000000000000..04c5169b9d8925226f2f2a20877d9cb581394d6b
--- /dev/null
+++ b/xtrn/lord2/cnw/gumtown3.ref
@@ -0,0 +1,325 @@
+; Script file GUMTOWN3.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:25 2001
+
+@DECLARE checkhit 000000518
+@DECLARE kneecap 000000666
+@DECLARE youdead 000000962
+@DECLARE youok 000001593
+@DECLARE nooneruns 000001649
+@DECLARE beathit 000001778
+@DECLARE hitmen 000001934
+@DECLARE cando 000002590
+@DECLARE trainy 000003426
+@DECLARE loneys 000003766
+@DECLARE hirehit 000004591
+@DECLARE beahit 000005847
+@DECLARE spineless 000006299
+@DECLARE spiney 000006470
+@NOCHECK
+; End of .REF index
+
+@#checkhit
+@dataload hitgum.idf &playernum `p20
+@if `p20 is 1 then goto youdead
+@if `p20 is 0 then goto youok
+@if `p20 is 2 then goto kneecap
+
+@#kneecap
+@show
+`r0`c `r1 The Hitmen `r0
+
+`2You get Kneecaped on a personal order from an anonymous hitman.
+
+`2Ask around, if you find out who it was, kick their ass!
+
+`4 You lose 5 Dodge!
+
+`k
+
+@do `p05 - 5
+@datasave hitgum.idf &playernum 0
+@drawmap
+@update
+
+@#youdead
+@fight
+;name
+The Hitmen
+;string said when you see him
+`4"It's Just Business."
+;power move kill string
+My Kung-Fu is the best!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+Breaks your kneecaps|766
+makes you cement shoes|940
+shoots you with his baretta|1200
+NONE|NONE
+NONE|NONE
+;defense
+500
+;gold reward
+666
+;experience
+5000
+;hit points
+2000
+;if win: ref file|name or NONE
+gumtown3.ref|beathit
+;if lose: ref file|name or NONE
+gametxt.ref|die
+;if runs: ref file|name or NONE
+gumtown3.ref|nooneruns
+@datasave hitgum.idf &playernum 0
+@closescript
+@end
+
+@#youok
+@do saybar
+ We won't hit on you. Today
+
+@#nooneruns
+@show
+`r0`c `r1 Running from the Hitmen `r0
+
+No one rums from the Gumtown Hitmen.
+`k
+
+@drawmap
+@update
+
+@#beathit
+@show
+`r0`c `r1 The Gumtown Hitmen `r0
+
+
+`2 You Beat the `3Gumtown Hitmen.
+
+`4Gain 3 Strength
+
+`k
+@do `p04 + 3
+@Drawmap
+@update
+
+@#hitmen
+@do moveback
+@dataload beatnorm.idf &playernum `p20
+@do `v01 is 1
+@show
+`r0`c `r1 Visiting the Hitmen `r0
+
+`2Hi, I'm Arnold J.
+
+ `3Is anyone really bugging you? `2Yes! Then have them erased!
+
+`2It's as simple as `$A`4B`1C`2. Just Pay us the `$$50000 `2and as soon
+`2as they enter Gumtown `$KA-SPLAT`2.
+
+@do write
+`x`x
+@CHOICE
+>&money 49999 Hire a `3Hitman.
+=`p20 0 Ask to become a `3Hitman.
+=`p20 1 What can us Hitmen do
+Leave
+@if response is 1 then goto hirehit
+@if response is 2 then goto beahit
+@if response is 3 then goto cando
+@drawmap
+@update
+
+@#cando
+@do `v01 is 1
+@show
+`r0`c `r1`% Being a Hitman. `r0
+`0Here at `3Gumtown Hitmen Inc. `0 there are a number of things a qualified
+`0Hitman can do. Firstly we encourage all our members to keep in shape.
+`0So, we ofer a fully equipped gym for you to workout in. It takes `$2000 `0turns
+`0and you can improve your body alot. Nextly You can take part in the age old
+`0tradition of `5lone-sharking`0. Make a lone to someone who can't pay it
+`0then break their legs. So much fun! We must insist that the minimum loan
+`0is `$$50000 `0though. So what will it be?
+
+@do write
+`x`x
+@CHOICE
+>`p11 1999 Do some training.
+Go to other Hitman Stuff.
+>&money 49000 The fun of lone sharking
+Leave
+@if response is 1 then goto trainy
+@if response is 3 then goto loneys
+@if response is 2 then goto hitmen
+@drawmap
+@update
+
+@#trainy
+@do `p11 - 2000
+@do `p04 + 4
+@do `p03 + 3
+@do `p05 + 4
+@show
+`r0`c `r1`% The Hitman Training Centre. `r0
+
+`2You really work hard and `$2000 `2turns later you are stronger, more
+
+`2agile and those headaches are gone! Good for You.
+
+ `4 You Gain 3 HP, 4 muscle and 4 dodge!
+
+
+`k
+@drawmap
+@update
+
+
+@#loneys
+@do `p30 is 7
+@do `v40 is 50000
+@routine deposit in vaults.ref
+
+@do money - 50000
+@show
+`r0`c `r1`% Sharking a Lone. `r0
+
+
+ `2Who do you want to make a lone to?
+ @chooseplayer `p20
+
+
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You give your money to`l.`l.`l.`l.`l.NOBODY`l.`k
+ @do goto hitmen
+ @end
+
+ @do `s02 is getname `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @do addlog
+ `s02 `2is being lone-sharked by `n.
+ @datasave hitgum.idf `p20 2
+
+@show
+ `2You will have `s02`2's kneecaps broken.
+
+ `4He'll find it hard walking! `$Hahahahahahahha.........
+`k
+@drawmap
+@update
+
+ @end
+
+ @if `p20 not 0 then do
+ @begin
+ @show
+ `3He's already under contract!
+ `k
+ @drawmap
+ @update
+ @end
+
+
+
+@#hirehit
+@show
+`r0`c `r1`% Choosing A Victim. `r0
+
+`5 So, who do you want `4GNAR , `$KA-POW ,`2and `%GA-SPLATED`2?
+
+ `2Who do you want to send it to?
+ @chooseplayer `p20
+
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your money - for now.`\`\`k
+ @do goto hitmen
+ @end
+
+@do `p30 is 7
+@do `v40 is 50000
+@routine deposit in vaults.ref
+ @do money - 50000
+ @do `s02 is getname `p20
+ @datasave hitgum.idf `p20 1
+ @do addlog
+ `s02 `2had better not show up in `1G`2u`3m`4t`5o`6w`7n`2.
+ @writefile mail\mail`p20.dat
+ `@Delivery from The Gumtown Hitmen:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ `4Contract on `s02
+`2In accordance with the wishes of `n , the `1G`2u`3m`4t`5o`6w`7n `2hitmen
+`2have declared that `s02 `2is to be erased as soon as they enter
+`1G`2u`3m`4t`5o`6w`7n`2. If you are this person we would advise that
+`2you don't show you sorry ass in `1G`2u`3m`4t`5o`6w`7n `2ever again.
+`2 -The `1G`2u`3m`4t`5o`6w`7n `3Hitmen.
+
+ @show
+`\`\ `2Ok! A `4warning `2has been sent. `S02 `2will be notified.`\`\`k
+
+`$Don't worry, we'll rub out `s02
+
+`k
+@drawmap
+@update
+
+@#beahit
+@do `v01 is 1
+@show
+`r0`c `r1 Becoming a Hitman `r0
+`4S&sir,
+`2 Do you realise what you are saying. You want to join us.
+`2To do that you'll have to fight `$Spiney Norman!`2.
+`2He is one tough customer.
+`2 Are you sure you want to join?
+
+@do write
+`x`x
+@CHOICE
+Yes. Errr... Maybe
+No way. Not `$Spiney Norman!
+@if responce is 1 then goto spiney
+@if responce is 2 then goto spineless
+@drawmap
+@update
+
+@#spineless
+@show
+`r0`c `r1 Chickening Out `r0
+`2That's a very wise decision S&sir.
+`2You may live to regret it, but at least you'll live.
+
+`k
+@drawmap
+@update
+
+@#spiney
+@pauseoff
+@show
+`r0`c `r1 Fighting Spiney Norman `r0
+`0Only the bravest, strongest, nastiest people can beat
+`$Spiney Norman `0and become `1G`2u`3m`4t`5o`6w`7n `3Hitmen.
+`0I'll wish you good luck kid:
+
+`l.`l.`l.`l.`l.You'll Need it.
+[0m�����������������������������������������������������������������������
+[A[71C�������Ŀ�[78C��[3C[1;35mSpiney Norman is[0m [1;35ma[0m[9C
+[A[31C[43m [40m [43m [40m [43m [40m [43m [40m [43m [40m
+[A[41C[43m [40m [43m [40m [43m [40m [43m [40m[7C[32mHe is a
+[A[62C master of [37m[6C��[29C[43m [40m[30C��[3C
+[A[4C[1;35mhedgehog![0m [1;35mOh Dear[0m[8C[43m [40m
+[A[45C[43m [40m[5C[32mfigurative language.[37m[4C��[27C
+[A[28C[43m [30mO[37m [30mO[37m [40m[28C��[3C
+[A[4C[1;35mYou are in trouble[0m[6C[43m [30m[37m [40m
+[A[44C[43m [40m[4C[32mPuns, parody, hyperbole[37m ��[27C
+[A[28C[43m [40m[28C��[27C[43m [30m---[40m
+[A[36C[43m-----------[37m [40m[4C[32mmetaphor, bathos.......
+[A[78C[37m ��[28C[43m [40m[29C��������������
+[A[13C����������������������������������������������������������������
+[A[77C���[0m
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/gumtown4.ref b/xtrn/lord2/cnw/gumtown4.ref
new file mode 100644
index 0000000000000000000000000000000000000000..2f997081975da3f6873134b19d3120b20afc1d9c
--- /dev/null
+++ b/xtrn/lord2/cnw/gumtown4.ref
@@ -0,0 +1,144 @@
+; Script file GUMTOWN4.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:25 2001
+
+@DECLARE piere 000000328
+@DECLARE gotsalad 000001061
+@DECLARE pieresalad 000002197
+@DECLARE gettherest 000002769
+@DECLARE normrun 000002961
+@DECLARE beatnorm 000003099
+@DECLARE nomore 000003469
+@NOCHECK
+; End of .REF index
+
+@#piere
+@do moveback
+@busy
+@dataload piereqst.idf &playernum `p20
+@if `p20 = 0 then goto pieresalad
+@if `p20 = 2 then goto gotsalad
+@if `i01 < 1 then goto gettherest
+@if `i08 < 1 then goto gettherest
+@if `i03 < 1 then goto gettherest
+@if `i11 < 1 then goto gettherest
+@if `i29 < 1 then goto gettherest
+@if `i43 < 1 then goto gettherest
+@show
+`r0`c `r1 You brought the Salad `r0
+
+`$Thank you `n `$. Now I have my `4Waldorf Salad`$.
+
+`$I will never forget this. Here, a gift from me.
+
+`4 `l.`l.`l.`l.`l. You Get 10 Gems!
+
+`k
+
+@do `i01 - 1
+@do `i02 - 1
+@do `i08 - 1
+@do `i03 - 1
+@do `i11 - 1
+@do `i29 - 1
+@do `i43 - 1
+@do `p19 + 10
+@datasave piereqst.idf &playernum 2
+@drawmap
+@update
+
+
+@#gotsalad
+@pauseoff
+@show
+`r0`c `r1 Jon Piere: The Weelie Champion `r0
+
+[?7h[40m[2J[0;1;33m-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[s
+[u-=-=-=-=-=-=-=-=-=-=-=-=-=[2;1H[7C[37;47m�������[13C[33;42m���[40m
+[3;1H[7C[37;47m���������[11C[33;42m��[45m�[4;1H[8C[37;47m������[40m[s
+[u[47m����[9C[36;42m [D [D [D [D[37;40m====�[5;1H[9C[47m[40m[s
+[u[47m���������[9C[36;42m [D [D [D[3C[0;31m������[1;30m���[6;1H[s
+[u[12C[37;47m�������[8C[33;45m [D [D [D [D [D[0;31m��� [s
+[u[1;30m�����[7;1H[14C[37;47m������[3C[0;30m�[33m������[30m�[s
+[u[1;33;45m [D[0;30m�������[1m���[8;1H[16C[37;47m�����[2C[40m[s
+[u[0;30m���[1m���[0;30m��[1;33;45m [D[0;30m�[9;1H[23C� [1m�����[s
+[u[0;30m��[10;1H[23C���[1m���[0;30m���[11;1H[1;33m-=-=-=-=-=-=-=-=-=-[s
+[u=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
+@pauseon
+@show
+`2Hi I am Jon Piere.
+ I really loved that salad `n`2. thank you. When I go out
+`2next I'll do a Weelie for you!
+
+
+@key
+@drawmap
+@update
+@closescript
+@end
+
+@#pieresalad
+@show
+`r0`c `r1 Jon Piere: The Weelie Champion `r0
+
+`%Hi I am Jon Piere.
+`% I am the French Weelie Champion. After a race I like a nice
+`4Waldorf Salad`%. Say, if you could get me one I'll be most grateful!
+`%Ask the nice food lady how to make one. Bring all the ingredients to
+`%me and my agent will make one for my. All I have at the moment is the
+`%`3Poison`4berrys, so get the rest can you?
+`% -Thanks
+
+`k
+@datasave piereqst.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+
+@#gettherest
+@show
+`r0`c `r1 Piere's Salad `r0
+
+`3What are you trying to pull?
+
+`3Go see the lady and bring back `4ALL `3the ingredients.
+
+`k
+@drawmap
+@update
+@closescript
+@end
+
+@#normrun
+@show
+`r0`c `r1 You Ran from Spiney Norman `r0
+
+ `0Good for you.
+
+
+`k
+@drawmap
+@update
+
+@#beatnorm
+@show
+`r0`c `r1 You are a Gumtown Hitman `r0
+
+`0You did it, you beat `$Spiney Norman`0.
+
+`0Your wit is obviously great `n`0.
+
+`l.`l.`l.`l.
+
+`4You Gain 20 muscle and 20 dodge!
+
+`k
+@do `p04 + 20
+@do `p05 + 20
+@datasave beatnorm.idf &playernum 1
+@do addlog
+`n `2just beat `$Spiney Norman to become a `3Gumtown Hitman`2!
+
+@drawmap
+@update
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/gurub.ref b/xtrn/lord2/cnw/gurub.ref
new file mode 100644
index 0000000000000000000000000000000000000000..ed79966eb1fa5d2db63a58ac911963c7a14ee031
--- /dev/null
+++ b/xtrn/lord2/cnw/gurub.ref
@@ -0,0 +1,592 @@
+; Script file GURUB.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:30 2001
+
+@DECLARE oasis 000000975
+@DECLARE oasis2 000001132
+@DECLARE sign1 000001290
+@DECLARE sign2 000001357
+@DECLARE sign3 000001421
+@DECLARE gurum 000001514
+@DECLARE gurub 000001855
+@DECLARE guru 000002122
+@DECLARE apple 000004517
+@DECLARE rep 000004784
+@DECLARE berry 000004821
+@DECLARE poison 000005110
+@DECLARE egg 000005429
+@DECLARE barren 000005713
+@DECLARE defence1 000005975
+@DECLARE defence2 000006251
+@DECLARE strength1 000006528
+@DECLARE strength2 000006806
+@DECLARE nothing 000007082
+@DECLARE random1 000007363
+@DECLARE random2 000007554
+@DECLARE random3 000007760
+@DECLARE random4 000007957
+@DECLARE bye 000008148
+@DECLARE bye2 000008255
+@DECLARE guard 000008344
+@DECLARE charm1 000008435
+@DECLARE charm2 000008715
+@DECLARE charm3 000008995
+@DECLARE exp1 000009273
+@DECLARE exp2 000009560
+@DECLARE exp3 000009847
+@NOCHECK
+; End of .REF index
+
+@#OASIS
+@datanewday OASIS.idf
+@dataload OASIS.idf &playernum `p20
+@if `p20 EQUALS 1 then goto bye
+@if `p20 not 1 then do
+ @begin
+@do goto oasis2
+
+@#OASIS2
+@do moveback
+@do saybar
+`2You drink from the oasis and gain 100 turns!!!
+@do `p11 + 100
+@datasave OASIS.IDF &playernum 1
+@closescript
+@end
+
+@#SIGN1
+@do moveback
+@do saybar
+`5Drink and be rejuvinated.
+
+@#SIGN2
+@do moveback
+@do saybar
+`5Greater wisdom awaits.
+
+@#SIGN3
+@do moveback
+@do saybar
+`2Watch for shrine of Tree Of Wisdom in next version.
+
+@#GURUM
+@progname GURU BOB
+@do moveback
+@datanewday gurub.idf
+@dataload GURUB.idf &playernum `p20
+@if `p20 EQUALS 1 then goto bye2
+@if `p20 not 1 then do
+ @begin
+@if `p07 > -50 then goto GURUB
+@if `p07 < -50 then do saybar
+`7Guru Bob:`@I'm sorry but one as evil as you can not benefit from my wisdom!
+@drawmap
+@update
+@end
+
+@#GURUB
+@do moveback
+@offmap
+@clear screen
+@busy
+@do `v01 is 1
+@show
+`r0`c `r1 Guru Bob `r0
+
+ `2A strange looking Indian Guy,who you take to be Guru Bob,stares at you.
+
+ `7"What do you wish of the tree of infinite wisdom?"`2Guru Bob asks.
+`k
+@label guru
+@show
+`r0`c`% `r1 Time to get answers to all your questions `r0
+
+`2 The Guru stares at you expectantly.
+`k
+@do write
+`x`x
+@choice
+Ask the Guru what he has to offer you
+Ask for some fruit,boy are you famished
+Ask for combat skill enhancement
+Ask for charisma boost
+Ask for knowledge
+Leave this nutcase
+@
+
+@if response is 1 then do
+ @begin
+ @show
+`r0`c`% `r1 Time to get answers to all your questions `r0
+
+ `7"Well I offer many services for NOTHING"`2he says.
+
+ `7"I will show you a pamphlet"`2he says as he hands you a pamphlet.
+`k
+`r0`c`% `r1 The Guru's pamphlet `r0
+
+ `4( Combat Knowledge )
+ `5Through the knowledge of the tree of wisdom I can increase your strength
+ and defence by small Amounts.
+
+ `!PRICE:`$FREE
+`k
+ `4( Charm Enhancement )
+ `5The tree also tells me how to help the charismatic impaired to increase
+ their luck with the ladies.
+
+ `!PRICE:`$FREE
+`k
+ `4( Knowledge )
+ `5Increase your wisdom for that next level of experience with my quick
+ and easy method.
+
+ `!PRICE:`$FREE
+`k
+ @do goto guru
+ @END
+
+@if response is 2 then do
+ @begin
+ @show
+`r0`c`% `r1 Asking the tree for fruit `r0
+
+ `$"This may sound a bit stupid..."`2you say feeling a bit silly asking
+ the tree of ultimate wisdom for this.
+ `$"...but I'm really hungry,could I please have some fruit?"
+
+`k `7"Well let's ask the tree then."`2says Guru Bob.
+`k
+@do goto random1
+@END
+
+@if response is 3 then do
+ @begin
+ @clear screen
+ @show
+`r0`c`% `r1 Asking the Guru for combat enhancement `r0
+
+ `$"Could I please ask the tree to increase my form as a warrior?"`2you ask.
+
+
+`k `7"Well let's ask the tree then."`2says Guru Bob.
+`k
+@do goto random2
+@end
+
+@if response is 4 then do
+ @begin
+ @clear screen
+ @show
+`r0`c`% `r1 Asking the Guru for charisma `r0
+
+ `$"Could I please ask the tree to increase my beauty?"`2you ask.
+
+
+`k `7"Well let's ask the tree then."`2says Guru Bob.
+`k
+@do goto random3
+@end
+
+@if response is 5 then do
+ @begin
+ @clear screen
+ @show
+`r0`c`% `r1 Asking the Guru for experience `r0
+
+ `$"Could I please ask the tree to increase my knowledge?"`2you ask.
+
+
+`k `7"Well let's ask the tree then."`2says Guru Bob.
+`k
+@do goto random4
+@end
+
+@if response is 6 then do
+@begin
+@drawmap
+@update
+
+@#APPLE
+`r0`c`% `r1 Receiving your wish `r0
+@show
+ You receive an.....
+`k
+ `0 APPLE!!!!!
+ `0 YUM!!!!!
+
+
+ `$"Gee thanks Mr Guru Bob sir you say as you leave.
+`k
+@do `i19 + 1
+@datasave GURUB.IDF &playernum 1
+@DRAWMAP
+@UPDATE
+
+@end
+@do goto REP
+
+@#REP
+@drawmap
+@update
+@end
+
+@#BERRY
+`r0`c`% `r1 Receiving your wish `r0
+@show
+ You receive a.....
+`k
+ `0 CLUSTER OF WILDBERRIES!!!!!
+ `0 YUM!!!!!
+
+
+
+ `$"Gee thanks Mr Guru Bob sir you say as you leave.
+`k
+@do `i01 + 1
+@datasave GURUB.IDF &playernum 1
+@DRAWMAP
+@UPDATE
+
+@end
+@DO GOTO REP
+
+@#POISON
+`r0`c`% `r1 Receiving your wish `r0
+@show
+ You receive a.....
+`k
+ `4 POISONBERRY!!!!!
+ `0 Guess the tree is trying to tell you something!!!!!
+
+
+
+ `$"Gee thanks Mr Guru Bob sir you say as you leave.
+`k
+@do `i02 + 1
+@datasave GURUB.IDF &playernum 1
+@DRAWMAP
+@UPDATE
+
+@end
+@do goto rep
+
+@#EGG
+`r0`c`% `r1 Receiving your wish `r0
+@show
+ You receive an.....
+`k
+ `0 EGG!!!!!
+ `0 WHAT THE HELL???!!!!!
+
+
+
+ `$"Gee thanks Mr Guru Bob sir you say as you leave.
+`k
+@do `i43 + 1
+@datasave GURUB.IDF &playernum 1
+@DRAWMAP
+@UPDATE
+
+@end
+@do goto rep
+
+@#BARREN
+`r0`c`% `r1 Receiving your wish `r0
+@show
+ You receive.....
+`k
+ `0 NOTHING!!!!!
+ `0 DAMN!!!!!
+
+
+
+ `$"Gee thanks Mr Guru Bob sir you say as you leave.
+`k
+@datasave GURUB.IDF &playernum 1
+@DRAWMAP
+@UPDATE
+
+@end
+@do goto rep
+
+@#DEFENCE1
+`r0`c`% `r1 Receiving your wish `r0
+@show
+ You receive.....
+`k
+ `0 2 MORE DEFENCE
+ `0 YEH!!!!!
+
+
+
+ `$"Gee thanks Mr Guru Bob sir you say as you leave.
+`k
+@do `p05 + 2
+@datasave GURUB.IDF &playernum 1
+@DRAWMAP
+@UPDATE
+
+@end
+@do goto rep
+
+@#DEFENCE2
+`r0`c`% `r1 Receiving your wish `r0
+@show
+ You receive.....
+`k
+ `0 3 MORE DEFENCE
+ `0 YEH!!!!!
+
+
+
+ `$"Gee thanks Mr Guru Bob sir you say as you leave.
+`k
+@do `p05 + 3
+@datasave GURUB.IDF &playernum 1
+@DRAWMAP
+@UPDATE
+
+@end
+@do goto rep
+
+@#STRENGTH1
+`r0`c`% `r1 Receiving your wish `r0
+@show
+ You receive.....
+`k
+ `0 3 MORE STRENGTH
+ `0 YEH!!!!!
+
+
+
+ `$"Gee thanks Mr Guru Bob sir you say as you leave.
+`k
+@do `p04 + 3
+@datasave GURUB.IDF &playernum 1
+@DRAWMAP
+@UPDATE
+
+@end
+@do goto rep
+
+@#STRENGTH2
+`r0`c`% `r1 Receiving your wish `r0
+@show
+ You receive.....
+`k
+ `0 5 MORE STRENGTH
+ `0 YEH!!!!!
+
+
+
+ `$"Gee thanks Mr Guru Bob sir you say as you leave.
+`k
+@do `p04 + 5
+@datasave GURUB.IDF &playernum 1
+@DRAWMAP
+@UPDATE
+
+@end
+@do goto rep
+
+@#NOTHING
+`r0`c`% `r1 Receiving your wish `r0
+@show
+ You receive.....
+`k
+ `0 NOTHING
+ `0 YEH!!!!! Wahoo!!!!
+ Stupid Tree!!!
+
+
+
+ `$"Gee thanks Mr Guru Bob sir you say as you leave.
+`k
+@datasave GURUB.IDF &playernum 1
+@DRAWMAP
+@UPDATE
+
+@end
+@do goto rep
+
+@#RANDOM1
+@do `p20 random 5 1
+@if `p20 is 1 then goto APPLE
+@if `p20 is 2 then goto BERRY
+@if `p20 is 3 then goto POISON
+@if `p20 is 4 then goto EGG
+@if `p20 is 5 then goto BARREN
+
+@#RANDOM2
+@do `p20 random 5 1
+@if `p20 is 1 then goto DEFENCE1
+@if `p20 is 2 then goto DEFENCE2
+@if `p20 is 3 then goto NOTHING
+@if `p20 is 4 then goto STRENGTH1
+@if `p20 is 5 then goto STRENGTH2
+
+@#RANDOM3
+@do `p20 random 5 1
+@if `p20 is 1 then goto CHARM1
+@if `p20 is 2 then goto CHARM2
+@if `p20 is 3 then goto CHARM3
+@if `p20 is 4 then goto NOTHING
+@if `p20 is 5 then goto NOTHING
+
+@#RANDOM4
+@do `p20 random 5 1
+@if `p20 is 1 then goto EXP1
+@if `p20 is 2 then goto EXP2
+@if `p20 is 3 then goto EXP3
+@if `p20 is 4 then goto NOTHING
+@if `p20 is 5 then goto NOTHING
+
+
+@#BYE
+@do moveback
+@do saybar
+`2Looks like you've already drank from the oasis today its bone-dry.
+
+@#BYE2
+@do moveback
+@do saybar
+`2Sorry you may only visit the Guru once per day!
+
+@#GUARD
+@do moveback
+@do saybar
+`4Burly Guard:`2None may touch the tree of wisdom.
+
+@#charm1
+`r0`c`% `r1 Receiving your wish `r0
+@show
+ You receive.....
+`k
+ `0 1 CHARM
+ `0 YEH!!!!! Wahoo!!!!
+
+
+
+
+ `$"Gee thanks Mr Guru Bob sir you say as you leave.
+`k
+@do `p08 + 1
+@datasave GURUB.IDF &playernum 1
+@DRAWMAP
+@UPDATE
+
+@end
+@do goto rep
+
+@#charm2
+`r0`c`% `r1 Receiving your wish `r0
+@show
+ You receive.....
+`k
+ `0 2 CHARM
+ `0 YEH!!!!! Wahoo!!!!
+
+
+
+
+ `$"Gee thanks Mr Guru Bob sir you say as you leave.
+`k
+@do `p08 + 2
+@datasave GURUB.IDF &playernum 1
+@DRAWMAP
+@UPDATE
+
+@end
+@do goto rep
+
+@#charm3
+`r0`c`% `r1 Receiving your wish `r0
+@show
+ You receive.....
+`k
+ `0 5 CHARM
+ `0 YEH!!!!! Wahoo!!!!
+
+
+
+
+ `$"Gee thanks Mr Guru Bob sir you say as you leave.
+`k
+@do `p08 + 5
+@datasave GURUB.IDF &playernum 1
+@DRAWMAP
+@UPDATE
+
+@end
+@do goto rep
+
+@#exp1
+`r0`c`% `r1 Receiving your wish `r0
+@show
+ You receive.....
+`k
+ `0 100 EXPERINCE!
+ `0 YEH!!!!! Wahoo!!!!
+
+
+
+
+ `$"Gee thanks Mr Guru Bob sir you say as you leave.
+`k
+@do `p01 + 100
+@datasave GURUB.IDF &playernum 1
+@DRAWMAP
+@UPDATE
+
+@end
+@do goto rep
+
+@#exp2
+`r0`c`% `r1 Receiving your wish `r0
+@show
+ You receive.....
+`k
+ `0 500 EXPERINCE!
+ `0 YEH!!!!! Wahoo!!!!
+
+
+
+
+ `$"Gee thanks Mr Guru Bob sir you say as you leave.
+`k
+@do `p01 + 500
+@datasave GURUB.IDF &playernum 1
+@DRAWMAP
+@UPDATE
+
+@end
+@do gOto REP
+
+@#exp3
+`r0`c`% `r1 Receiving your wish `r0
+@show
+ You receive.....
+`k
+ `0 1000 EXPERINCE!
+ `0 YEH!!!!! Wahoo!!!!
+
+
+
+
+ `$"Gee thanks Mr Guru Bob sir you say as you leave.
+`k
+@do `p01 + 1000
+@datasave GURUB.IDF &playernum 1
+@DRAWMAP
+@UPDATE
+@end
+
+
+
+
+
+
+
+
+
+
+
diff --git a/xtrn/lord2/cnw/guy.ref b/xtrn/lord2/cnw/guy.ref
new file mode 100644
index 0000000000000000000000000000000000000000..23a42a50a020e2066f12fdcd3db1f1f9d7b5b8a8
--- /dev/null
+++ b/xtrn/lord2/cnw/guy.ref
@@ -0,0 +1,407 @@
+; Script file GUY.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:31 2001
+
+@DECLARE guy 000000314
+@DECLARE dilberstart 000000430
+@DECLARE hithim 000000938
+@DECLARE heran 000001632
+@DECLARE missed 000001816
+@DECLARE dilbert2 000002599
+@DECLARE leaveguy 000011962
+@NOCHECK
+; End of .REF index
+
+@#GUY
+@busy
+@do moveback
+@if `t57 > 10 then `t57 is 10
+@if `t57 < 0 then `t57 is 0
+@do `v01 is 1
+@label dilberstart
+@clearblock 19 23
+@do move 1 19
+@if `t57 is 10 then do
+ @begin
+ @show
+`r0 - Dilbert -
+`7 "Thanks for your help, I'm feeling fine again now.
+`k
+ @do goto leaveguy
+ @end
+@show
+`r0 - Dilbert -
+`7 "Hi..`l
+..hehehe...`l
+`l`l`lI..um..`l`l got...hehe..stuff.`w..`w.hehe.`l`l`l`k
+@clearblock 19 23
+@do move 1 19
+@show
+..um...hehe.`l.you...hehe...`l`l`l
+...you.`l`l..hehe.`l`l`l..want...to...buy..it?.`l`l`l`l..hehe"`k
+@DO goto dilbert2
+
+@label hithim
+@if `t56 < 4 then do
+ @begin
+ @DO `p07 + 1
+ @DO `t56 + 1
+ @do `t57 - 1
+ @clearblock 19 23
+ @do move 1 19
+ @SHOW
+`3You swing your arm as far back and `l`l.`l`l.`l`l.
+ `%POW!!`l `k
+ `3You knocked him in the nose... Then he makes a run for it.`k
+ @clearblock 19 23
+ @do move 1 19
+ @SHOW
+ `%You did everyone a favour...
+ `$Your alignment goes up by 1`k
+ @DO GOTO leaveguy
+ @end
+
+@if `t56 > 3 then do
+ @begin
+ @clearblock 19 23
+ @do move 1 19
+ @SHOW
+
+ `%Why bother? you can't hit him anyways... `k
+ @DO GOTO leaveguy
+ @end
+
+@label heran
+@DO `t56 + 1
+@SHOW
+`3You swing your arm as far back and `l`l.`l`l.`l`l.
+ `7"hehe..`l what the.`l`lgotta go."`k
+`3Dilbert ran away! `k
+@DO GOTO leaveguy
+@end
+
+@label missed
+@if `t56 < 4 then do
+ @begin
+ @DO `p07 - 1
+ @DO `p02 = 3
+ @DO `t56 + 1
+ @do `t57 - 1
+ @clearblock 19 23
+ @do move 1 19
+ @SHOW
+`3You swing your arm as far back and `l`l.`l`l.`l`l.
+ `4You missed!! How could you?
+ `$Your alignment goes down by 1. `k
+ @clearblock 19 23
+ @do move 1 19
+ @show
+ `7"How could you do such a thing!`l hehe.."`l
+ get..`lhehe.. out of my`l`l...`%FACE!
+ `$He returns a punch, then makes a run for it.`k
+ @DO GOTO leaveguy
+ @END
+
+@if `t56 > 3 then do
+ @begin
+ @clearblock 19 23
+ @do move 1 19
+ @SHOW
+ `%Why bother? you can't hit him anyways... `k
+ @end
+@DO GOTO leaveguy
+
+
+@#dilbert2
+@clearblock 19 23
+@do move 19 19
+@choice
+`% Buy Some Of Dilbert's Stuff `%
+`% Talk to the freak `%
+`% Get Away `%
+>`t57 1 <`t57 5 `% Punch the freak in the nose `%
+>`t57 5 `% Give the poor guy something `%
+>`t57 2 = &sex `% Flirt with Dilbert `%
+@if responce is 6 then do
+ @begin
+ @do `t57 + 1
+ @if `p08 < 5 then do
+ @begin
+ @do `t58 + 1
+ @clearblock 19 23
+ @do move 1 19
+ @SHOW
+`r0`5You merely `%wink `5at him with your beautiful eyes.
+ `l.`l.`l.`l.`w`w.`w.`k
+ @do `p27 random 3 1
+ @if `p27 is 1 then do
+ @begin
+ @clearblock 19 23
+ @do move 1 19
+ @show
+ `5Dilbert returns a smile.`k
+ `$Your charm is increased by 1.
+ `$You feel sexier.`k
+ @do `p08 + 1
+ @end
+ @if `p27 is not 1 then do
+ @begin
+ @clearblock 19 23
+ @do move 1 19
+ @show
+ `5Dilbert doesn't even notice.`k
+ @end
+ @end
+ @if `p08 > 4 < `p08 10 then do
+ @begin
+ @do random `p28 3 1
+ @if `p28 is 1 then do
+ @begin
+ @do `t58 + 1
+ @clearblock 19 23
+ @do move 1 19
+ @SHOW
+`r0`5You merely `%throw a kiss `5at him with your sexy red lips.`l.`l.`l.`l.`w`w.`w.
+ `5Dilbert returns a wink.`k
+ `$Your charm is increased by 1.
+ `$You feel sexier.`k
+ @do `p08 + 1
+ @end
+ @if `p28 is not 1 then do
+ @begin
+ @clearblock 19 23
+ @do move 1 19
+ @show
+ `5Dilbert doesn't even notice.`k
+ @end
+
+ @end
+ @if `p08 > 9 < `p08 14 then do
+ @begin
+ @do random `p28 3 1
+ @if `p28 is 1 then do
+ @begin
+ @do `t58 + 1
+ @clearblock 19 23
+ @do move 1 19
+ @SHOW
+`r0`5You try to `%kiss him on the cheaks `5with your sexy red lips.`l.`l.`l.`l.`w`w.`w.
+ `5Dilbert returns the passionate kiss.`k
+ `$Your charm is increased by 1.
+ `$You feel sexier.`k
+ @do `p08 + 1
+ @end
+ @if `p28 is not 1 then do
+ @begin
+ @show
+ @clearblock 19 23
+ @do move 1 19
+ `5Dilbert dodges your kiss and pretended it didn't happen.`k
+ @end
+ @end
+ @if `p08 > 14 then do
+ @begin
+ @do random `p28 3 1
+ @if `p28 is 1 then do
+ @begin
+ @do `t58 + 1
+ @SHOW
+`r0`c
+ `5You try to `%jump his bones `5with your horny body.`l.`l.`l.`l.`w`w.`w.
+ `5Horny Dilbert polls his skirt up and accepts.`l.`l.`l.
+ @clearblock 19 23
+ @do move 1 19
+ `5YOU GOT LAYED!!`k
+ `$Your charm is increased by `@2.
+ `$Your lays is increased by `@1.
+ `$Your experience is increased by `@1000.`k
+ @do `p01 + 1000
+ @do `p08 + 1
+ @do `p34 + 1
+ @do `p02 / 2
+ @end
+ @if `p28 is not 1 then do
+ @begin
+ @clearblock 19 23
+ @do move 1 19
+ @show
+ `5Dilbert runs away scared.`k
+ @do goto leaveguy
+ @end
+ @end
+ @do goto dilbert2
+ @end
+
+@if responce is 4 then do
+ @begin
+ @do `p26 random 3 1
+ @if `p26 is 1 then goto missed
+ @if `p26 is 2 then goto hithim
+ @if `p26 is 3 then goto heran
+ @clearblock 19 23
+ @do move 1 19
+ @show
+`r0 - Dilbert -
+`7 "hehehe...`l`l I've still...`l`lha`lha.. got stuff! `l`lhehehe`l`l`l
+ `7 buy something`l`l.`l. hehehe"
+ @do goto dilbert2
+ @end
+
+@if responce is 5 then do
+ @begin
+ @do `p29 is &playernum
+ @routine Stick`xof`xcinnamon in extitems.ref
+ @routine bitcheck in item99.ref
+ @DO `p27 is 0
+ @if `p20 is 1 then do
+ @begin
+ @if `t57 > 3 then do
+ @begin
+ @DO `p27 is 2
+ @end
+ @end
+ @clearblock 19 23
+ @do `v01 is 1
+ @do move 1 19
+ @do `p20 is `i01
+ @do `p21 is `i08
+ @do `p22 is `i03
+ @Choice
+Forget it
+>`p27 0 Offer him the Stick of cinnamon
+>`p20 0 Offer him some wildberries
+>`p21 0 Offer him momma's pie
+>`p22 0 Offer him a bottle of milk
+ @if responce is 2 then do
+ @begin
+ @clearblock 19 23
+ @do move 1 19
+ @show
+ `7"hehe`l... YES`l`l`lI`l need that!`l`l`l`l"`k
+ `$Dilbert eats the Stick of cinnamon`k
+ `7"There I feel much better now, thank you very much"`k
+ @clearblock 19 23
+ @do move 1 19
+ @routine Stick`xof`xcinnamon in extitems.ref
+ @routine bitcheck in item99.ref
+ @routine takeitem in item99.ref
+ @do `p01 + 2000
+ @do `t57 is 10
+ @do `i51 + 1
+ @do `p06 + 1
+ @show
+ `$Dilbert gives you a `+51
+ `$You get 2000 experience!
+ `$Quest point earned! `k
+ @do goto leaveguy
+ @end
+ @if responce is 3 then do
+ @begin
+ @clearblock 19 23
+ @do move 1 19
+ @do `i01 - 1
+ @show
+ `7"hehe`l... thanks`l`l`l`lhehe`lhe`l"`k
+ `$Dilbert takes the berries.`k
+ `7"hehe`l.`l.`l.more`l`l`l pie`l`l`l is`l on the he`lhehe`l way`l`l`l"`k
+ @do goto leaveguy
+ @end
+ @if responce is 4 then do
+ @begin
+ @clearblock 19 23
+ @do move 1 19
+ @do `i08 - 1
+ @show
+ `7"hehe`l... thanks`l`l`l`lhehe`lhe`l"`k
+ `$Dilbert eats momma's pie`k
+ `7"hehe`l.`l.`l.wow`l`l... thats better`l`l than `l`l`hehe`lhe`l`l my `l`l`lberry pie!"`k
+ @do goto leaveguy
+ @end
+ @if responce is 5 then do
+ @begin
+ @clearblock 19 23
+ @do move 1 19
+ @do `i03 - 1
+ @show
+ `7"hehe`l... thanks`l`l`l`lhehe`lhe`l"`k
+ `$Dilbert drinks the milk`k
+ `7"hehe`l.`l.`l.yumm`l`l... milk`l`l is`l`l`l good for `l`lme`l`hehe`lhe`l"`k
+ @do goto leaveguy
+ @end
+ @if responce is 1 then goto dilbert2
+ @end
+
+@if responce is 2 then do
+ @begin
+ @DO `t57 + 1
+ @clearblock 19 23
+ @do move 1 19
+ @do `p20 random 5 1
+
+ @if `t57 < 2 then do
+ @begin
+ @show
+`r0 `7"hehe`l... i know `l`lhehe`l..something you`l`lhehe`l.. dont`l`lhehe`l..!`l`l`l`l"`k
+ @do goto dilbert2
+ @end
+ @if `t57 < 3 then do
+ @begin
+ @show
+`r0 `7"hehe`l... wheres my pie?`l`lhehe`l.. da man?!`l`l`l`l"`k
+ @do goto dilbert2
+ @end
+ @if `t57 < 4 then do
+ @begin
+ @show
+`r0 `7"hehe`l... yoyo `l`lhehe`l..yur perty `l`lhehe`l.. `l`l"`k
+ @do goto dilbert2
+ @end
+ @if `t57 < 5 then do
+ @begin
+ @show
+`r0 `7"hehe`l... whats happ'n`l`lhehe`l.. man?!`l`l`l`l"`k
+ @do goto dilbert2
+ @end
+ @if `t57 > 4 then do
+ @begin
+ @show
+`r0 `7"hehe`l... I've got something `l`lhehe..`lfor.. `lhehe`l`l.. you..`l hehe..
+ `7but first..`l`l.. I want someting..`l`lhehe`l.. from you...`l`lhehe..."`k
+ @do goto dilbert2
+ @end
+ @end
+
+@if responce is 1 then do
+ @begin
+ @clearblock 19 23
+ @do move 1 19
+ @SHOW
+`r0 "This is what..`l hehe..`l I have..`lhehe.."`k
+ @clearblock 19 23
+ @do move 1 19
+ @buymanager
+1
+2
+43
+51
+ @clearblock 19 23
+ @do move 1 19
+ @SHOW
+`r0 - Dilbert -
+ `7"com'n`l`l.. `l`l I know .. `lhehe `lyou want more..`l HE HE HE HE!!!"
+`k
+ @do goto dilbert2
+ @end
+
+@clearblock 19 23
+@do move 1 19
+@SHOW
+`r0 - Dilbert -
+
+ `7"Thanks.. `l`lcome again..`l HE HE HE HE!!!"
+`k
+@clearblock 19 23
+@do statbar
+@#leaveguy
+@clearblock 19 23
+@do statbar
+@update
+
diff --git a/xtrn/lord2/cnw/gypsy.ref b/xtrn/lord2/cnw/gypsy.ref
new file mode 100644
index 0000000000000000000000000000000000000000..6d557d3b097ed9b2e5f09ddd29186ae7909f34bc
--- /dev/null
+++ b/xtrn/lord2/cnw/gypsy.ref
@@ -0,0 +1,899 @@
+; Script file GYPSY.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:33 2001
+
+@DECLARE sign 000001066
+@DECLARE gypsy 000001442
+@DECLARE kid1 000002101
+@DECLARE kid2 000002996
+@DECLARE lili 000003265
+@DECLARE flirtf 000004448
+@DECLARE flirtf 000004463
+@DECLARE lady 000010229
+@DECLARE guy 000010588
+@DECLARE cook 000010940
+@DECLARE menu 000011009
+@DECLARE barter 000013988
+@DECLARE shop 000014062
+@DECLARE wares 000014611
+@DECLARE wares 000014625
+@DECLARE chandler 000015814
+@DECLARE couple 000016920
+@DECLARE woman1 000017533
+@DECLARE woman2 000017691
+@DECLARE woman21 000017882
+@DECLARE woman3 000018059
+@DECLARE woman31 000018242
+@DECLARE woman4 000018398
+@DECLARE viollca 000018628
+@DECLARE gimi 000019285
+@DECLARE kaku 000020294
+@DECLARE bexhet 000020384
+@DECLARE nuzi 000020474
+@DECLARE game 000020562
+@DECLARE random 000020696
+@DECLARE toomany 000022646
+@NOCHECK
+; End of .REF index
+
+;this is main ref for Gypsy Encampment, it has the basic stuff and
+;determins the time of day for the player entering the IGM
+
+@#sign
+;The entrance
+@offmap
+@do `p70 is 28
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@show
+`r0`c`2"Welcome to the Gypsy encampment!" says a pretty young woman
+ "May the gods bless your legs for being here."
+`\`k
+@drawmap
+@end
+@update
+@closescript
+@end
+;-------------------------------------------------------------------------
+
+@#gypsy
+;Turn setup
+@datanewday gypsy1.idf
+@datanewday gypsy2.idf
+@if `v05 is 0 then do
+@begin
+;checking for unlimited play
+ @do x is 16
+ @do y is 14
+ @do map is 85
+ @loadmap 85
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p11 > 1501 then do
+@begin
+;checking turns for morning
+ @do x is 16
+ @do y is 14
+ @do map is 81
+ @loadmap 81
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p11 < 1500 then do
+@begin
+;checking for nighttime
+ @do x is 16
+ @do y is 14
+ @do map is 82
+ @loadmap 82
+ @drawmap
+ @update
+ @closescript
+ @end
+;-------------------------------------------------------------------------
+
+@#kid1
+;kid in the morning
+@do moveback
+@do `p20 random 10 1
+@if `p20 is 1 then saybar
+`2Have you visited Spiuni yet? He has the best Mariki around.
+@if `p20 is 2 then saybar
+`2The fortune teller knows everything.
+@if `p20 is 3 then saybar
+`2May the god's bless your legs
+@if `p20 is 4 then saybar
+`2The wishing well has been know to really grant wishes
+@if `p20 is 5 then saybar
+`2Not all things work here at all times.
+@if `p20 is 6 then saybar
+`2You should talk to Marcel, he may tell you a story.
+@if `p20 is 7 then saybar
+`2Watch out for Mario, he is not a nice man.
+@if `p20 is 8 then saybar
+`2Please go take a look at the stage.
+@if `p20 is 9 then saybar
+`2Make sure to visit us during the day and at night.
+@if `p20 is 10 then saybar
+`2Why not talk to Nicu? He talks in funny riddles.
+
+;-------------------------------------------------------------------------
+@#kid2
+;2nd kid in the morning
+@DO SAYBAR
+`2"Thanks for the gold stranger" the kid laughs at you and runs away.
+@do money - 10
+@do moveback
+;-------------------------------------------------------------------------
+@#Lili
+;Liliana is someone for guy's to flirt with
+@do moveback
+@do `p70 is 29
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+
+@if sexmale not 1 then do
+ @begin
+ @show
+`r0`c `2You see a gorgeous woman dancing in the middle of the tent. Men
+ seem to be flocking around her. You wonder briefly if you should ask
+ her for beauty advice. Then you realize if you walk too close to her
+ you would seem awfully homely. You turn and walk away, giving the
+ woman a dirty look over your shoulder.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if sexmale is 1 then do
+ @begin
+ @show
+`r0`c `5The most gorgeous woman you have ever seen is dancing alone
+ under the tent. Her simple skirt flares out around her knees every
+ time she moves. As you stand mesmerized by her dancing you notice
+ she is looking right at you, a seductive smile playing across her
+ lips. You take a deep breath, steel you nerves and walk over to
+ her. "Hello stranger. My name is Lilliana" she looks you over and
+ whispers to you invitingly "What is your pleasure?"
+ `\`k
+ @do goto flirtf
+
+@if `v06 is 1 then do
+ @begin
+ @closescript
+ @end
+@end
+
+@#flirtf
+@label flirtf
+@dataload npc\npcfl`p70.idf &playernum `p23
+@dataload npc\npctimes.idf 29 `p21
+@if `p23 > `p21 then `p22 then goto toomany
+@do `p23 + 1
+@datasave npc\npcfl`p70.idf &playernum `p23
+@do `p23 random 3 1
+@do `p24 random 5 1
+;to make a possible "no-effect" on NPC :)
+@do `p23 - 1
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Wink at her
+Ask to kiss her hand
+Give her a hug
+Kiss her deeply
+Slip your hand up her skirt
+Take her behind a hay bail
+Decide against putting the move on Lilliana right now
+@if response is 1 then do
+ @begin
+ @if money > 999 then do
+ @begin
+ @show
+`r0`cShe smiles and winks back.
+`\`k
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if money < 1000 then do
+ @begin
+ @show
+`r0`cShe frowns and turns away.
+`\`k
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 - `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @do `p08 - 1
+ @if `p24 is 3 then `p08 - 2
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 2 then do
+ @begin
+ @if money > 2900 then do
+ @begin
+ @show
+`r0`cShe holds her delicate hand out, allowing you to give it a gentle kiss.
+`\`k
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if money < 3000 then do
+ @begin
+ @show
+`r0`cShe looks as if your kissing her hand might be truly disgusting.
+`\`k
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 - `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @do `p08 - 1
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 3 then do
+ @begin
+ @if money > 4999 then do
+ @begin
+ @show
+`r0`cShe throws her arms around you returning your hug.
+`\`k
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if money < 5000 then do
+ @begin
+ @show
+`r0`cShe pushes you away angrily.
+`\`k
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 - `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @do `p08 - 1
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 4 then do
+ @begin
+ @if money > 7499 then do
+ @begin
+ @show
+`r0`cShe returns your kiss with passion.
+`\`k
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if money < 7500 then do
+ @begin
+ @show
+`r0`cAs you lean forward to kiss her she slaps your face.
+`\`k
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 - `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @do `p08 - 1
+ @if `p24 is 3 then `p08 - 2
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 5 then do
+ @begin
+ @if money > 9999 then do
+ @begin
+ @show
+`r0`cShe doesn't object to your advances, in fact she's smiling!
+`\`k
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if money < 10000 then do
+ @begin
+ @show
+`r0`cShe punches your lights out!
+`\`k
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 - `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @do `p08 - 1
+ @if `p24 is 3 then `p08 - 6
+ @do `p
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 6 then do
+ @begin
+ @if money > 19999 then do
+ @begin
+ @show
+`r0`cYou suggest ducking behind the nearest hay bale and she takes your
+hand and leads you there!
+`\`k
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 1
+ @dataload npc\npcvd.idf `p70 `p28
+ @if `p28 > 0 then do
+ @begin
+ @do `p12 is 1
+ @end
+ @if `p12 > 0 then do
+ @begin
+ @datasave npc\npcvd.idf `p70 1
+ @end
+ @do `p34 + 1
+ @dataload npc\npclays.idf `p70 `p28
+ @do `p28 + 1
+ @datasave npc\npclays.idf `p70 `p28
+ @dataload npc\laynp`p70.idf &playernum `p28
+ @do `p28 + 1
+ @datasave npc\laynp`p70.idf &playernum `p28
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if money < 20000 then do
+ @begin
+ @show
+`r0`cYou grab her hand to lead her behind a hay bale and she kicks and
+screams causing quite a scene!
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 7 then do
+ @begin
+ @show
+`r0`cYou decide against putting the moves on Lilliana and walk away.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+;-------------------------------------------------------------------------
+@#lady
+;Lilliana is someone for the guy's to flirt with
+@do moveback
+@if sexmale is 1 then saybar
+`5Lilliana`#:I'll flirt with you later
+@if sexmale not 1 then saybar
+`5Lilliana`#:Don't you think Djivan is the cutest?
+@if `v06 is 1 then do
+ @begin
+ @closescript
+ @end
+
+;-------------------------------------------------------------------------
+@#GUY
+;Djivan is someone for gal's to flirt with
+@do moveback
+@if sexmale is 0 then saybar
+`8Djivan:`2I'll flirt with you later
+@if sexmale not 0 then saybar
+`8Djivan:`2Don't you think Liliana is the cutest?
+@if `v06 is 1 then do
+ @begin
+ @closescrit
+ @end
+
+;-------------------------------------------------------------------------
+
+@#cook
+;Spiuni the cook
+@offmap
+@do moveback
+@do `v01 is 1
+@label menu
+@show
+`r0`c `2You sniff the air and wonder to yourself "What is that delicious
+ fragrance?" As you follow the smell your stomach growls hungrily and you
+ hope whatever that smell belongs to is edible! The side of the wagon that
+ you are nearing is folded down, revealing a counter on which several items
+ of food are placed. A large man sees you and smiles. "Please come closer
+ and sample some of my delicacies," he calls. Trying not to drool you look
+ at his menu. "Excuse me Mr... um?" you say. "Spiuni!" he laughs,"Call me
+ Spiuni!" "Uh, yes, well Spiuni, what is all this food?" you ask. "Tell me
+ what you would like and I will tell you what it is and how much it costs."
+ offers Spiuni helpfully. You point to each dish and listen to Spiuni
+ carefully before making your decision.
+ `5Menu
+@do write
+`x`x
+@choice
+Sir bread with butter- delicious bread smothered in garlic and butter - 5gp
+But guli and bushalonoodles- very sweet and sour panfried noodles - 5gp
+Mariki- a many layered sweet pizza - 10gp
+Pani neva- cool clear water - 3gp
+You decide your not hungry after all.
+@if response is 5 the do
+ @begin
+ @show
+`r0`c `2"You dont see anything to please you palate? Maybe you'll come
+ back when you're hungrier." says Spiuni.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 1 then do
+ @begin
+ @if money < 5 then do
+ @begin
+ @show
+`\`\`2"I'm sorry I cant sell you that, you dont have enough gold!" Spiuni says
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`\ `2"Ahh the best bread there is" Spiuni says as he hands you the
+ HUGE piece of bread.
+`\
+ @do money - 5
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 2 then do
+ @begin
+ @if money < 5 then do
+ @begin
+ @show
+`\`\`2"I'm sorry I cant sell you that, you dont have enough gold!" Spiuni says
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`\ `2"You will never find a better tasting dish of Noodles around!"
+`\
+ @do money - 5
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 3 then do
+ @begin
+ @if money < 10 then do
+ @begin
+ @show
+`\`\`2"I'm sorry I cant sell you that, you dont have enough gold!" Spiuni says
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`\`2"The best pizza on this side of the world!" says Spiuni.
+`\
+ @do money - 10
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 4 then do
+ @begin
+ @if money < 3 then do
+ @begin
+ @show
+`\`\`2"I'm sorry myfriend, but you can't even afford a glass of water!"
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`\`2"A nice glass of ice cold water to quinch your thirst!"
+`\
+ @do money - 3
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@drawmap
+@update
+
+;-------------------------------------------------------------------------
+@#barter
+;Mario's Barter Wagon
+@offmap
+@do moveback
+@do `v01 is 1
+@label shop
+@show
+`r0`c `%You see a interesting wagon with a sigh that reads
+
+`r0`c `r6`5==============================`r0
+ `r6`5|| `%Mario's Wagon of Goodies `5||`r0
+ `r6`5==============================`r0`\
+`2 `0 A middle-aged Gypsy man waves at you frantically. "Hello
+ dear stranger," he calls. "I am Mario. Perhaps I can
+ interest you in some of my wares?" He looks you over and
+ then adds "Or perhaps I can lighten your load a bit?"`\
+@do goto wares
+
+@#wares
+@label wares
+@do write
+`x`x
+@do `v01 is 3
+@choice
+Look at Mario's wares.
+Show Mario your goods.
+Turn away because you really have no need in dealing with him.
+@if response is 3 then do begin
+ @begin
+ @SHOW
+`r0`c `0"That is to bad my friend for I think we could have
+ profited from each other." With that Mario returns
+ to his work behind the counter.
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if response is 2 then do begin
+ @begin
+ @sellmanager
+4
+5
+9
+10
+11
+12
+13
+14
+15
+`c
+ @do goto shop
+ @end
+
+@if response is 1 then do begin
+ @begin
+ @do `p20 random 4 1
+ @if `p20 is 1 then do
+ @begin
+ @buymanager
+4
+10
+13
+16
+20
+28
+38
+51
+`c
+ @do goto shop
+ @end
+ @if `p20 is 2 then do
+ @begin
+ @buymanager
+9
+12
+15
+35
+37
+59
+50
+51
+ @do goto shop
+ @end
+ @if `p20 is 3 then do
+ @begin
+ @buymanager
+49
+43
+39
+36
+14
+3
+28
+51
+ @do goto shop
+ @end
+ @if `p20 is 4 then do
+ @begin
+ @buymanager
+50
+20
+36
+35
+13
+3
+37
+51
+ @do goto shop
+ @end
+
+;-------------------------------------------------------------------------
+;Below is all tent stuff
+
+@#chandler
+@do `p70 is 30
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+ @do `p20 random 10 1
+ @if `p20 is 1 then saybar
+`8Chandler`2:You know Marcel is the best storyteller there is!
+ @if `p20 is 2 then saybar
+`2I hear the maker of this IGM is making a new world as well, look for it!
+ @if `p20 is 3 then saybar
+`8Chandler`2:Liliana is one hot Gypsy!
+ @if `p20 is 4 then saybar
+`8Chandler`2:Djivan is the best looking guy in the village!
+ @if `p20 is 5 then saybar
+`8Chandler`2:Nicu is not only a master at riddles, but elixers as well!
+ @if `p20 is 6 then saybar
+`8Chandler`2:Mario always seems to have something new on hand.
+ @if `p20 is 7 then saybar
+`8Chandler`2:One day Nadja will be as strong as Jeta.
+ @if `p20 is 8 then saybar
+`8Chandler`2:Sometimes your wishs can come true.
+ @if `p20 is 9 then saybar
+`8Chandler`2:I hear Nicu sleep's in the nude .`l .`l .`l hahaha.
+ @if `p20 is 10 then saybar
+`8Chandler`2:Marcel can be real grumpy when first waking up.
+@end
+;-------------------------------------------------------------------------
+@#couple
+ @do moveback
+ @offmap
+ @show
+`r0`c `!A young couple sits on a bale of hay whispering to each other.
+ As you walk by you clumsily trip over the mans foot.
+ `9"Te bisterdon tumare anave!" `!He yells angrily. You stand up hoping
+ to defend yourself when the woman yells at you.
+ `#"Nuzi is right. May your name be forgotten!" `!You hurriedly walk away,
+ brushing yourself off. You also vow to repeat your name at least twice
+ a day.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+;-------------------------------------------------------------------------
+;women on the stage
+@#woman1
+@do `p70 is 31
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+ @do saybar
+`$Lela`#:Get off the stage you berk!
+@end
+
+@#woman2
+@do `p70 is 32
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+ @do saybar
+`0Mirella`#:If you really want to do something, get Viollca up here!
+@end
+
+@#woman21
+@do `p70 is 32
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+ @do saybar
+`0Mirella`#:I see you like the Gypsy ways! Stay awhile.
+@end
+
+@#woman3
+@do `p70 is 33
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+ @do saybar
+`5Sherif`#:We need Viollca up here to practice dancing with!
+@end
+
+@#woman31
+@do `p70 is 33
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+ @do saybar
+`5Sherif`#:Ohh, you dance so well!
+@end
+
+@#woman4
+@do `p70 is 34
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+ @do saybar
+`!Viollca`#:Come dance with us!
+@end
+
+;-------------------------------------------------------------------------
+@#Viollca
+@do `p70 is 34
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+ @offmap
+ @show
+`r0`c `!A young lady is busily cleaning one of the tables. She does'nt
+ even look up when you approach. `2"Excuse me miss? Why are all these
+ tables set up?" `!Without even looking at you she replies, `#"All of these
+ tables are set up for this evenings entertainment. Why not come back
+ later?" `!You think about asking her a few more questions but decide
+ against it since she seems so busy.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+@end
+;-------------------------------------------------------------------------
+@#Gimi
+@do `p70 is 34
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+ @offmap
+ @show
+`r0`c `9You see a small boy leaning against the wall. He seems to be
+ making something. He looks up at you and smiles. `!"May the gods bless
+ your legs stranger." `9he says to you softly. `2"What are you doing there?"
+ `9you ask him. He stands up straight and takes a deep breath `!"I am
+ called Gimi, and I am making a patrin for our Gypsy brothers. I will
+ place this on the road as a sign to others that we have been here. It
+ is a very important job I have." `9He recites carefully. `2"Well good for
+ you Gimi." `9you tell him. He looks at you expectantly. Not knowing what
+ else to do you pat him on the head and say `2"you better get back to that
+ important job, don't let me disturb you." `9With a shrug he returns to his
+ work.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+@end
+;-------------------------------------------------------------------------
+@#kaku
+@do moveback
+@do saybar
+`9kaku`!:In the next version, you can gamble here!
+
+@#bexhet
+@do moveback
+@do saybar
+`9Bexhet`!:In the next version, you can gamble here!
+
+@#nuzi
+@do moveback
+@do saybar
+`9Nuzi`!:In the next version, you can gamble here!
+
+@#game
+
+;-------------------------------------------------------------------------
+;The random stuff that happens on the maps
+
+@#random
+@do `p20 random 6 1
+@if `p20 is 1 then saybar
+`$The sound of children playing nearby makes you smile.
+@if `p20 is 2 then saybar
+`$You find a small kis on the ground with 10 gold in it.
+ @do money + 10
+@if `p20 is 3 then saybar
+`$Something around here smells really good!
+@if `p20 is 4 then saybar
+`$You see a tarot card flutter past you in the wind
+@if `p20 is 5 then saybar
+`$The friendly Gypsies smile as you walk by.
+@if `p20 is 6 then do
+ @begin
+ @offmap
+ @show
+`r0`c `6You come across a sad looking brown bear. He is tethered by a
+ chain to a large stake driven into the ground. As you approach he
+ stands up and you see a sign around his neck. It reads "The Amazing
+ Dancing Bear". What do you do
+`\`k
+ @do `v01 is 1
+ @do write
+ `x`x
+ @choice
+Break the bonds and free the bear.
+Ignore the bear and walk away.
+Laugh at the bear and make it dance.
+ @if response is 2 then do
+ @begin
+ @show
+`r0`c`6You decide the bear is not yours to worry about so you turn slowly
+and walk away. You hear the bear sit down with a sigh behind you.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if response is 1 then do
+ @begin
+ @show
+`r0`c`6You rush forward and break the chains, freeing the bear. It stands
+up on its huge back paws and gives you a strong bear hug before galloping
+off into the forest. You gain 1 alignment point.
+`\`k
+ @do `p07 + 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if response is 3 then do
+ @begin
+ @show
+`r0`c`6Grabbing a nearby stick you begin to poke and prob the bear, trying
+to get it to dance. At first it only yawns lazily but soon it grows
+angry. It raises up on it's hind legs and swats the stick away. You
+laugh at the bear and walk away, proud of yourself for annoying the
+heck out of it. You lose 1 alignment point.
+`\`k
+ @do `p07 - 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#toomany
+@drawmap
+@update
+@do saybar
+`$Lilliana: `%Not today hunny, you've done enough for me today.
+@closescript
+
diff --git a/xtrn/lord2/cnw/gypsysp.ref b/xtrn/lord2/cnw/gypsysp.ref
new file mode 100644
index 0000000000000000000000000000000000000000..ad8a89c98572a98a2c8205c8a8a3873a086d71bb
--- /dev/null
+++ b/xtrn/lord2/cnw/gypsysp.ref
@@ -0,0 +1,1235 @@
+; Script file GYPSYSP.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:33 2001
+
+@DECLARE tellern 000001515
+@DECLARE storytell 000002052
+@DECLARE story1 000003336
+@DECLARE story2 000004452
+@DECLARE story3 000005941
+@DECLARE story4 000007233
+@DECLARE teller 000008637
+@DECLARE well 000009126
+@DECLARE wish1 000010619
+@DECLARE wish2 000010717
+@DECLARE wish3 000010791
+@DECLARE wish4 000010893
+@DECLARE wish5 000010977
+@DECLARE wish6 000011083
+@DECLARE wish7 000011200
+@DECLARE wish8 000011310
+@DECLARE wish9 000011421
+@DECLARE wish10 000011560
+@DECLARE fortune 000011750
+@DECLARE goodies 000015170
+@DECLARE goodies 000015186
+@DECLARE riddle 000017272
+@DECLARE q1 000018921
+@DECLARE q2 000019320
+@DECLARE q3 000019594
+@DECLARE q4 000019957
+@DECLARE q5 000020350
+@DECLARE q6 000020783
+@DECLARE q7 000021243
+@DECLARE q8 000021516
+@DECLARE q9 000021817
+@DECLARE q10 000022229
+@DECLARE q11 000022663
+@DECLARE q12 000023120
+@DECLARE q13 000023399
+@DECLARE q14 000023901
+@DECLARE q15 000024232
+@DECLARE q16 000024670
+@DECLARE q17 000025128
+@DECLARE q18 000025587
+@DECLARE q19 000026041
+@DECLARE ridwrong 000026448
+@DECLARE ridwrong 000026467
+@DECLARE ridright 000026806
+@DECLARE ridright 000026825
+@DECLARE potion 000027324
+@DECLARE potion 000027339
+@DECLARE riddlen 000028164
+@NOCHECK
+; End of .REF index
+
+;This is all the Gypsy Encampment stuff that can only be done once a day
+
+;-------------------------------------------------------------------------
+@#TELLERN
+;THE STORY TELLER
+@dataload gypsy1.idf &playernum `p30
+@if `p30 is 1 then do
+ @begin
+ @offmap
+ @do moveback
+ @do `v01 is 1
+ @show
+`r0`c `!You see Marcel surrounded by a group of people who are enthralled
+ by his story. He waves at you with a smile, he seems happy to be
+ telling a tale, but he also seems too busy for you. You walk away
+ sadly, hoping to come back tomorrow.`\
+`\`k
+
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p30 not 1 then do
+ @begin
+ @offmap
+ @do moveback
+ @label storytell
+ @do `V01 is 1
+ @show
+ `r0`c `r1`!You see an small man sitting by the campfire. `r0
+
+ `!He sees you approach and calls out to you.`9 "Hello there stranger.
+ Why are you creeping around over there? Come closer and I may tell
+ you a tale of the Gypsies, if you have the time and the money? A
+ good tale always costs."
+
+ @do write
+ `x`x
+ @choice
+>&money 9 Listen to a story for $10 gold
+Bid him farewell
+ @IF RESPONSE IS 1 THEN DO
+ @begin
+ @do money - 10
+ @show
+ `\`\ `9 "Good, good, now come sit by me and let me tell you a little of
+ our Gypsy ways. I usually don't like manusha but you seem
+ like a person I could enjoy talking to."
+ `\`k
+ @datasave gypsy1.idf &playernum 1
+ @do `p21 random 4 1
+ @routine story`p21
+ @drawmap
+ @update
+ @closescript
+ @end
+ @IF RESPONSE IS 2 THEN DO
+ @begin
+ @show
+ `\`\ `9"Well I see I have misjudged you after all! I never trust
+ manusha and YOU seem no different then the rest! You will
+ find that you have made an error in your judgement as well"
+ With that the storyteller turns his back and ignors you.
+ `\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#STORY1
+@show
+`c `r1`%The Gypsy's`r0
+ `!The poor local manusha of a neighboring village went to their governor
+ and complained. The rich drank to the accompaniment of music while they,
+ the poor and destitute, could not. Being sympathetic, the governor re-
+ quested that 10,000 men and women who were expert musicians come to his
+ palace. Upon their arrival he gave them each a zen and a beautiful grast
+ to put it on and to ride, and to the whole group a thousand donkey loads
+ of corn. All in the hopes that they would settle and farm in his kingdom.
+ Being ungrateful the 10,000 men and women ate all the corn, sold the zens
+ and grasts and left. At the end of the year they returned to the kingdom
+ hungry and tired. The governor said to them "You should not have wasted
+ the seed-corn. You should not have sold your things! Now you have only
+ your donkeys! Be gone from my Kingdom." These men and women even now
+ wander through the world, begging a living, sleeping alongside wolves,
+ living like dogs, stealing day and night. We call ourselves Gypsies!
+
+`\`k
+@
+
+@#STORY2
+@show
+`c `r1`%Gypsy Familys`r0
+ `!"Let me tell you a little of my family," says Marcel as he makes
+ himself comfortable. "Ours is not any different than most Gypsy
+ households. My romni, who I have been married to for over 20
+ years, is a wonderful example of a gypsy woman. Even tho gypsy
+ women are considered mahrime, the unclean, my wife being one of
+ the oldest women in our household does not have to abide by those
+ strict standards as the other women do. For example, my sons wives,
+ my boris, must do all the cooking, cleaning and washing. All the
+ men and womens things must be washed seperately you know. Anyway,
+ not only does my wife, my sons and their wives live with me but so
+ does my binak, who was born at the same time as I. Also my bhen
+ lives with us. She was born when I was 6 years old. Oh what a cute
+ little chey, what a beautiful little girl she was." You can tell
+ Marcel is beginning to daydream so you clear your throat politely.
+ "Oh, excuse me" Marcel says "Now where was I? Oh yes lets see wife
+ ...sons...sons wives...twin brother...sister" you watch as he counts
+ them off on his fingers. "Who is left?" Marcel wonders to himself.
+ "My goodness! How could have I forgotten my mother?" he asks with a
+ wink. "Just let me say..." suddenly Marcel jumps up. "Forgive me my
+ friend but I have truly forgotten my mother! She is waiting for me!"
+ With that Marcel runs off with a wave goodbye.
+
+`\`k
+@
+
+@#STORY3
+@show
+`c `r1`%Gypsy Lifestyles`r0
+ `!"As I am sure you already know we Gypsies are travelers, wanderers.
+ Because of this we take great care of our grasts. Without our horses
+ we could not survive. We value them more than any other animal. We
+ make special zens and grasts. Our saddles are of the finest craft-
+ manship and are made special for each horse." You raise one eyebrow
+ questioningly. "Yes, it is true. We gypsies all have unique talents."
+ Marcel assures you. "It is true we move regulary, but we only do that
+ because we enjoy camping outside. Most of us stick close to the
+ borders, hop-scotching across the borders to avoid being arrested as
+ homeless vagrants." At this Marcel sighs heavily and then looks at
+ you and smiles. "But as you can see we have adapted quite well. We
+ often camp in abandoned or inaccesible forests so as to reduce the
+ likelihood of being found." Marcel gives you his most winning smile.
+ "So, please enjoy yourself here. We have so much to see, to do and
+ even to eat! Please do not forget to visit Jeta. Even as fortune
+ tellers go `0she is truly `2amazing." brags Marcel. You smile at him
+ "Sure, Marcel, I'll do that." you say, trying to humor him. Marcel
+ just turns away laughing.
+
+`\`k
+@
+
+@#STORY4
+@show
+`c `r1`%Great Performers`r0
+ `!"Do you see that stage over there under the big tent?" Marcel waves
+ his hand vaguely in an northernly direction, so you look towards where
+ you think he may be pointing. You see the tent easily enough but the
+ stage?? "Over there!" Marcel says impatiently. You nod your head slowly
+ even though you don't see anything. "That stage has traveled the world
+ with us" Marcel says proudly. "On it we have performed for nobility
+ and commoners alike." You look at him sceptically. "It's all true!"
+ Marcel loudly huffs. "We, that is to say, my parents, and grandparents
+ and my great-grandparents and all those that came before them have
+ performed for Prince Vlad II, and his son Prince Vlad Dracul, also
+ known as Vlad the Devil or Vlad the Impaler. I am sure you have heard
+ of him? We have also performed for Stefan the Great, Pope Sixtus IV,
+ Prince Constantin Brancoveanu of Italy and Prince Alexandru Ioan
+ Mavrocordatos." You blink for a moment, not knowing if you should be
+ impressed. Marcel looks at you and sighs sadly. "Well now we are
+ performing for the likes of you. Don't forget to see the stage at
+ night." Still not knowing what to think of his story you clap Marcel
+ on the back and thank him for his time anyway. You think that you
+ might just go and take a look at the stage after all.
+
+`\`k
+@
+
+@#TELLER
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `!As you approach the remains of the campfire you see Marcel`r0
+ `!sleeping soundly. You try nudging him with your foot. "`9Go
+ `9away`!" he mumbles grumpily "`9Can't you see I'm sleeping?`!"
+ Perhaps he stayed up too late telling tales the night before.
+ You think you should try back later.
+`\`k
+
+@drawmap
+@update
+@closescript
+@end
+
+;-------------------------------------------------------------------------
+@#well
+;A good place to make wishes!
+@dataload gypsy1.idf &playernum `p30
+@if `p30 is 1 then do
+ @begin
+ @offmap
+ @do moveback
+ @show
+`r0`c `$The wishing well has an out of order sign on it, try coming here first
+ tomorrow.`\
+ `\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+@if `p30 not 1 then do
+@begin
+@do moveback
+@busy
+@clear screen
+@pauseoff
+@show
+
+[?7h[255D[40m
+
+
+
+
+
+
+
+
+[0;1;30m[21C[33;43m�[0;33m��������
+[19C[1;43m��[0;33m�����������
+[17C[1;43m���[0;33m��������������
+[20C[43m�[37;40m� [1m� � [0;33;43m�[37;40m�
+[20C[33;43m�[37;40m� [1m�[5C[0;33;43m�[37;40m�
+[20C[33;43m�[37;40m� [1m�[5C[0;33;43m�[37;40m�
+[18C[1;30;47m��[40m��[47m�[40m����������
+[18C[47m��[0m�[1;30m������������
+[19C[47m�[40m�[0m��[1;30m���������
+[19C������[0m�[1;30m������
+[17C[0;33;42m� [1;32m\�/[30;40m����[0m�[1;30m����[32;42m�/[0;33;42m�[40m
+[16C[42m� � [1;32m\/ [0;33;42m� [40m
+
+
+
+[0m[255D
+ `r0`5Look a wishing well!`r0
+`\`k
+@clear screen
+@do `V01 is 1
+@do write
+`x`x
+@choice
+>&money 0 Toss in a coin and make a wish?
+Leave the wishing well
+@if response is 2 the do
+@begin
+@show
+`\`\ `$"Wishing wells are for children" you say, and leave.`\`k
+@drawmap
+@update
+@closescript
+@end
+@if response is 1 then do
+@begin
+@do money - 1
+@do `p21 random 10 1
+@routine wish`p21
+@datasave gypsy1.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+
+@#wish1
+@show
+`c `r1`$You make a wish and suddenly feel stronger!`r0
+`\`k
+@do `p04 + 1
+@
+
+@#wish2
+@show
+`c `r1`$You make a wish and feel nothing.`r0
+`\`k
+@
+
+@#wish3
+@show
+`c `r1`$You make a wish and suddenly feel more evasive!`r0
+`\`k
+@do `p05 + 1
+@
+
+@#wish4
+@show
+`c `r1`$You make a wish, everything seems the same.`r0
+`\`k
+@
+
+@#wish5
+@show
+`c `r1`$You make a wish & wait & wait & wait, you wonder if this works?!?`r0
+`\`k
+@
+
+@#wish6
+@show
+`c `r1`$You make a wish, suddenly you feel like the cream of the crop!`r0
+`\`k
+@do `p08 + 1
+@
+
+@#wish7
+@show
+`c `r1`$You make a wish and wait, feeling flustered you kick the stupid well.`r0
+`\`k
+@
+
+@#wish8
+@show
+`c `r1`$You flip your coin in, making a wish, a moment later you feel cheated!`r0
+`\`k
+@
+
+@#wish9
+@show
+`c `r1`$Tossing you coin in, you make a wish, suddenly you feel healthier`r0
+`\`k
+@do `p03 + 1
+@do `p02 is `p03
+@
+
+@#wish10
+@show
+`c `r1`$You make a wish, feeling foolish, you decide to leave. Nothing happens.`r0
+`\`k
+@
+
+;-------------------------------------------------------------------------
+@#fortune
+;Jeta the Fortune teller
+@dataload gypsy2.idf &playernum `p30
+@if `p30 is 1 then do
+ @begin
+ @offmap
+ @do moveback
+ @do `v01 is 1
+ @show
+`r0`c `#A beautiful young woman opens the door,`5 "I'm sorry Jeta is telling
+ someone else's fortune right now, perhaps if you come back tomorrow?"`# With
+ that the young woman shut the door behind her.`\
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p30 not 1 then do
+ @begin
+ @offmap
+ @do moveback
+ @do `v01 is 1
+ @show
+`r0`c `#As you aproach the wagon a beautiful woman opens the door. `5"Hello
+ there. My name is Nadja, how can we be of service today?" `#she looks
+ you over, `5"Perhaps you'ld like your fortune read?"
+
+ @do write
+ `x`x
+ @choice
+>&money 20 "Will you pay 20 gold to have your fortune read?" she asks.
+Decide your destiny is your own to be made
+ @if response is 2 then do
+ @begin
+ @show
+`\`\ `5That's too bad, for Jeta is the most powerful one in the village.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if response is 1 then do
+ @begin
+ @do money - 20
+ @datasave gypsy2.idf &playernum 1
+ @show
+`\`\ `#You pay her the 20 gold and watch as she puts it her purse.
+ `5"I will put it here in my kis for safe keeping." `#Nadja says and
+ then she leads you inside to a table. `5"Madam Jeta will be with
+ you in a minute" `#Nadja tells you and walks away.`l`l`l
+ Sure enough a minute later a mysterious old woman walks in,
+ `5"Greetings `N, I've been expecting you, now tell me how would
+ you like your fortune read?"
+ @do write
+ `x`x
+ @choice
+Crystal ball
+Tarot cards
+Palm reading
+Rune stones
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `#Jeta gazes into her crystal ball, as you watch her and the crystal
+ ball, you see the ball cloud up with smoke and such, you can almost
+ make out pictures of your childhood in there. You shake your head in
+ disbelief, this can't really be happening...can it? In almost what
+ seems like an instant Jeta speaks. `5The crystal ball has told me
+ @do goto goodies
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\ `#The mystifying woman starts to lay the cards out slowly on the
+ table, flipping some over, leaving some alone. After studying them for
+ a few moment's she begins to speak. `5These tarot cards represent you
+ and your life. They have revealed to me that on this day
+ @do goto goodies
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if response is 3 then do
+ @begin
+ @show
+`\`\ `#Jeta gently takes your hand and studys it, tracing the lines on
+ your hand with one ancient finger tip she explains that you have a long
+ life line, and will be mostly happy. She also tell you that
+ @do goto goodies
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if response is 4 then do
+ @begin
+ @show
+`\`\ `#Jeta has you reach into a bag a pull out 6 smooth white stones
+ with strange symbols on them, and then has you place them on the table
+ in front of you. Jeta starts to speak `5"I can see by the way you
+ are placing them in front of you that
+ @do goto goodies
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#goodies
+@label goodies
+@do `p21 random 6 1
+@if `p21 is 1 then do
+ @begin
+ @show
+`r0`c `5you will aquire wealth this day. `#You feel good!
+ On your way out of the fortune teller's wagon, you find a pouch
+ with 200 gold in it!
+ `\`k
+ @do money + 200
+ @drawmap
+ @update
+ @closescript
+ @end
+@if `p21 is 2 then do
+ @begin
+ @show
+`r0`c `5you will have great misfortune. "I'm very sorry" `#she says
+ Contemplating the meaning of your fortune outside the wagon, you
+ are jumped from behind and knocked out! When you wake you find
+ someone stole 200 gold from you.
+ `\`k
+ @do money - 200
+ @drawmap
+ @update
+ @closescript
+ @end
+@if `p21 is 3 then do
+ @begin
+ @show
+`r0`c `5you will seek wealth from the earth itself, and prosper!
+ `#Leaving the fortune tellers wagon you notice a sparkly thing
+ on the ground, as you reach to pick it up, you realize it's a GEM!
+ You quickly pocket it.
+ `\`k
+ @do `p19 + 1
+ @drawmap
+ @update
+ @closescript
+ @end
+@if `p21 is 4 then do
+ @begin
+ @show
+`r0`c `5you will seek to improve you life for all mankind.
+ `#After leaving the wagon, you find a small bird that seems to have
+ fallen from it's nest, you find the nest and put the bird back.
+ You feel much better about yourself.
+ `\`k
+ @do `p07 + 1
+ @drawmap
+ @update
+ @closescript
+ @end
+@if `p21 is 5 then do
+ @begin
+ @show
+`r0`c `5you will seek to do much harm to the world for the grief
+ it has caused you! Your anger will consume you." `#Jeta look sadly
+ at you as you leave. Hearing a chirp from the ground, you look
+ down a see a baby bird. It must have fallen out of it's nest you
+ thiink to yourself. You kick dirt on it just for fun.
+ `\`k
+ @do `p07 - 1
+ @drawmap
+ @update
+ @closescript
+ @end
+@if `p21 is 6 then do
+ @begin
+ @show
+`r0`c `5You will lead a very boring life. `#Not understanding your
+ fortune, you leave the Gypsy feeling ripped off!
+ `\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+;-------------------------------------------------------------------------
+@#riddle
+;Nicu the Riddler, think you can answer his questions?
+@dataload gypsy2.idf &playernum `p30
+@if `p30 is 1 then do
+ @begin
+ @offmap
+ @do moveback
+ @show
+`r0`c `!After searching around the outside of the wagon for Nicu, you knock
+ on his door and yell loudly,"Are you in there?" Then you notice a sign on
+ his door that says "Gone Fishing". Feeling foolish you decide to come back
+ another time.`\
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+@if `p30 not 1 then do
+ @begin
+ @offmap
+ @do moveback
+ @do `v01 is 1
+ @show
+`r0`c `!A young man sits whittling on the steps of a well-traveled
+ gypsy wagon. He smiles broadly as you approach and stands
+ to greet you. "Hello, my friend! Please call me Nicu!
+ Care to try your luck at a few riddles?"
+
+ @do write
+ `x`x
+ @choice
+Take a shot at a riddle?
+Decide not to waste your time.
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `! "I am so pleased!" Nicu shouts happily "So you think you can
+ answer my riddles? Let me warn you they are all about the
+ Gypsys. He comes toward you and throws his arm around your
+ shoulder, pulls you close and whispers, "Here is your riddle
+ for today."
+`\`k
+ @datasave gypsy2.idf &playernum 1
+ @do `p20 random 19 1
+ @routine q`p20
+;@drawmap
+;@update
+ @closescript
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `! "Well thats too bad" Nicu sighs sadly " Nothing ventured,
+ nothing gained!" He run's inside his wagon and shuts the
+ door.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#q1
+@do `v01 is 1
+@show
+`r0`c `!How many limbs does a healthy chey have?
+@do write
+`x`x
+@choice
+Two
+Three
+Four
+Zero
+@if response is 1 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 3 then do
+ @begin
+ @do goto ridright
+ @end
+@if response is 4 then do
+ @begin
+ @do goto ridwrong
+ @end
+@
+
+@#q2
+@do `v01 is 1
+@show
+`r0`c `!If I told you that you were mahrime, would you be offended?
+@do write
+`x`x
+@choice
+ yes
+ no
+@if response is 1 then do
+ @begin
+ @do goto ridright
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridwrong
+ @end
+@
+
+@#q3
+@do `v01 is 1
+@show
+`r0`c `!My friend left a patrin at a crossroads for me. What did he leave?
+@do write
+`x`x
+@choice
+ Lunch
+ A sign
+ A clue
+@if response is 1 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridright
+ @end
+@if response is 3 then do
+ @begin
+ @do goto ridwrong
+ @end
+@
+
+@#q4
+@do `v01 is 1
+@show
+`r0`c `!What would be better for a thief?
+@do write
+`x`x
+@choice
+ Zor
+ Zen
+ Baxt
+ Mulo
+@if response is 1 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 3 then do
+ @begin
+ @do goto ridright
+ @end
+@if response is 4 then do
+ @begin
+ @do goto ridwrong
+ @end
+@
+
+@#q5
+@do `v01 is 1
+@show
+`r0`c `!I have a binak that enjoys the same things as I, what do I have?
+@do write
+`x`x
+@choice
+ Sister
+ Twin
+ Friend
+ Brother
+@if response is 1 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridright
+ @end
+@if response is 3 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 4 then do
+ @begin
+ @do goto ridwrong
+ @end
+@
+
+@#q6
+@do `v01 is 1
+@show
+`r0`c `!If I said "May the gods bless you legs" am I?
+@do write
+`x`x
+@choice
+ Welcoming you
+ Bidding you farewell
+ Showing sympathy
+ Making a pass at you
+@if response is 1 then do
+ @begin
+ @do goto ridright
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 3 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 4 then do
+ @begin
+ @do goto ridwrong
+ @end
+@
+
+@#q7
+@do `v01 is 1
+@show
+`r0`c `!If my sons romni is my bori, would my romni have a bori too?
+@do write
+`x`x
+@choice
+ Yes
+ No
+@if response is 1 then do
+ @begin
+ @do goto ridright
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridwrong
+ @end
+@
+
+@#q8
+@do `v01 is 1
+@show
+`r0`c `!I have put sir into a meal I was preparing. Should I serve it
+ a friend or enemy?
+@do write
+`x`x
+@choice
+ Friend
+ Enemy
+@if response is 1 then do
+ @begin
+ @do goto ridright
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridwrong
+ @end
+@
+
+@#q9
+@do `v01 is 1
+@show
+`r0`c `!If I poured this warm mom into a glass. and asked you to
+ drink it what would you do?
+@do write
+`x`x
+@choice
+ Drink it down fast
+ Sip it slowly
+ Decline the offer
+@if response is 1 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 3 then do
+ @begin
+ @do goto ridright
+ @end
+@
+
+@#q10
+@do `v01 is 1
+@show
+`r0`c `!You have just put a zen on a grast, what would you do next?
+@do write
+`x`x
+@choice
+ Push it
+ Carry it
+ Ride it
+ Fly it
+@if response is 1 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 3 then do
+ @begin
+ @do goto ridright
+ @end
+@if response is 4 then do
+ @begin
+ @do goto ridwrong
+ @end
+@
+
+@#q11
+@do `v01 is 1
+@show
+`r0`c `!That man stole my bhens kis, what did he take?
+@do write
+`x`x
+@choice
+ My brothers horse
+ My sisters purse
+ My neighbors child
+ My black coat
+@if response is 1 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridright
+ @end
+@if response is 3 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 4 then do
+ @begin
+ @do goto ridwrong
+ @end
+@
+
+@#q12
+@do `v01 is 1
+@show
+`r0`c `!A woman has just called you a berk, did she pay you a compliment?
+@do write
+`x`x
+@choice
+ yes
+ no
+@if response is 1 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridright
+ @end
+@
+
+@#q13
+@do `v01 is 1
+@show
+`r0`c `!My grandmother would say "Te bisterdon tumare anave!" what was
+ she doing?
+@do write
+`x`x
+@choice
+ Placing a curse
+ Calling us to dinner
+ Giving a blessing
+ Yelling for peace and quiet
+@if response is 1 then do
+ @begin
+ @do goto ridright
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 3 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 4 then do
+ @begin
+ @do goto ridwrong
+ @end
+@
+
+@#q14
+@do `v01 is 1
+@show
+`r0`c `!I have two pieces of cake. One is but guli, the other but
+ bushalo. Which would you want?
+@do write
+`x`x
+@choice
+ the guli piece
+ the bushalo piece
+@if response is 1 then do
+ @begin
+ @do goto ridright
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridwrong
+ @end
+@
+
+@#q15
+@do `v01 is 1
+@show
+`r0`c `!Marcel, the storyteller avoids manusha. What doesn't he like
+@do write
+`x`x
+@choice
+ Spicy food
+ People
+ Animals
+ Children
+@if response is 1 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridright
+ @end
+@if response is 3 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 4 then do
+ @begin
+ @do goto ridwrong
+ @end
+@
+
+@#q16
+@do `v01 is 1
+@show
+`r0`c `!The man hands you a glass. "It is pani nevi. Take a drink."
+ What has he given you?
+@do write
+`x`x
+@choice
+ Liquor
+ Fresh water
+ Milk
+ Juice
+@if response is 1 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridright
+ @end
+@if response is 3 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 4 then do
+ @begin
+ @do goto ridwrong
+ @end
+@
+
+@#q17
+@do `v01 is 1
+@show
+`r0`c `!If a street vendor gives you mariki what would you do with it?
+@do write
+`x`x
+@choice
+ play ball
+ flip through the pages
+ eat it
+ throw it away
+@if response is 1 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 3 then do
+ @begin
+ @do goto ridright
+ @end
+@if response is 4 then do
+ @begin
+ @do goto ridwrong
+ @end
+@
+
+@#q18
+@do `v01 is 1
+@show
+`r0`c `!Which Pope has this Gypsy caravan performed for?
+@do write
+`x`x
+@choice
+ Pope Dracul II
+ Pope Sixtus IV
+ Pope Paul III
+ Pope Constantin VI
+@if response is 1 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridright
+ @end
+@if response is 3 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 4 then do
+ @begin
+ @do goto ridwrong
+ @end
+@
+
+@#q19
+@do `v01 is 1
+@show
+`r0`c `!What would a gypsy rather have as a pet?
+@do write
+`x`x
+@choice
+ Cat
+ Dog
+ Goat
+ Horse
+@if response is 1 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 2 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 3 then do
+ @begin
+ @do goto ridwrong
+ @end
+@if response is 4 then do
+ @begin
+ @do goto ridright
+ @end
+@
+
+@#ridwrong
+ @label ridwrong
+ @show
+`r0`c `!"HA HA HA" snorts Nicu loudly. "You thought you knew all
+ about us gypsies but you don't know the first thing about
+ our culture!" Nicu's annoying laughter follows you as you
+ turn and walk away feeling ignorant.`\
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#ridright
+ @label ridright
+ @show
+`r0`c `! I knew you were intelligent the moment I laid eyes on you,"
+ says Nicu smugly. "Now, for answering correctly, I have
+ something for you!" He runs into his wagon, closing the door
+ behind him. A moment later he returns and hands you a potion.
+ "Well done my friend, this is your prize!" Smiling, you turn
+ away from him feeling smart.`\
+`\`k
+ @do goto potion
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#potion
+@label potion
+ @do `p21 random 13 1
+@if `p21 is 1 then do
+ @begin
+ @do `i05 + 1
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do `i40 + 1
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do `i50 + 1
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do `i55 + 1
+ @end
+@if `p21 is 5 then do
+ @begin
+ @do `i52 + 1
+ @end
+@if `p21 is 6 then do
+ @begin
+ @do `i05 + 1
+ @end
+@if `p21 is 7 then do
+ @begin
+ @do `i53 + 1
+ @end
+@if `p21 is 8 then do
+ @begin
+ @do `i40 + 1
+ @end
+@if `p21 is 9 then do
+ @begin
+ @do `i54 + 1
+ @end
+@if `p21 is 10 then do
+ @begin
+ @do `i55 + 1
+ @end
+@if `p21 is 11 then do
+ @begin
+ @do `i50 + 1
+ @end
+@if `p21 is 12 then do
+ @begin
+ @do `i40 + 1
+ @end
+@if `p21 is 13 then do
+ @begin
+ @do `i05 + 1
+ @end
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#riddlen
+@offmap
+@do moveback
+@show
+`r0`c `!You approach Nicu's wagon cautiously and knock on the door. After
+ waiting a moment you knock again and press your ear to the door. No sound
+ is heard from within, so you per in the windows. As your eyes adjust to
+ the darkness within the wagon you see Nicu sleeping on his bed. `l. `l. `l.
+ `9STARK NAKED!!! `!You run away embarassed, wondering if you should return
+ tomorrow.`\
+`\`k
+@drawmap
+@update
+@closescript
+@end
+
diff --git a/xtrn/lord2/cnw/habib.ref b/xtrn/lord2/cnw/habib.ref
new file mode 100644
index 0000000000000000000000000000000000000000..af5a0bd8df66de9d43775cd8d93231f630b53180
--- /dev/null
+++ b/xtrn/lord2/cnw/habib.ref
@@ -0,0 +1,342 @@
+; Script file HABIB.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:18 2001
+
+@DECLARE entrance 000000775
+@DECLARE exit 000000859
+@DECLARE upstairs 000000949
+@DECLARE downstairs 000001158
+@DECLARE sign 000001226
+@DECLARE sign2 000001330
+@DECLARE door1 000001436
+@DECLARE habib 000001563
+@DECLARE drunk 000003199
+@DECLARE door2 000003801
+@DECLARE toilet 000003859
+@DECLARE sign3 000003941
+@DECLARE tree 000004054
+@DECLARE tree1 000004144
+@DECLARE tree2 000004491
+@DECLARE tree3 000004837
+@DECLARE tree4 000005184
+@DECLARE tree5 000005530
+@DECLARE moneytree1 000005887
+@DECLARE exptree1 000006239
+@DECLARE exptree2 000006590
+@DECLARE desk 000006937
+@NOCHECK
+; End of .REF index
+
+;ref file for Habib's Tavern IGM v1.00 by Ryan Fields
+
+@#entrance
+ @do `p22 is 0
+ @do x is 40
+ @do y is 17
+ @loadmap 26
+ @drawmap
+
+@#exit
+ @do `p22 is 0
+ @do x is 55
+ @do y is 11
+ @loadmap 1253
+ @drawmap
+
+@#upstairs
+ @if `p22 is 1 then do
+ @begin
+ @do x is 25
+ @do y is 5
+ @loadmap 27
+ @drawmap
+ @end
+
+ @if `p22 is 0 then do
+ @begin
+ @do saybar
+You have to pay to go up there.
+ @end
+
+@#downstairs
+ @do x is 23
+ @do y is 5
+ @loadmap 26
+ @drawmap
+
+@#sign
+ @DO SAYBAR
+ `4H`@a`$b`2i`3b`#'`5s `7Tavern v1.00 `%by `0Ryan Fields.
+ @DO MOVEBACK
+
+@#sign2
+ @do saybar
+ Welcome to `4H`@a`$b`2i`3b`#'`5s `7Tavern!
+ @do moveback
+@closescript
+
+@#door1
+ @do saybar
+ That's where Habib serves drinks. You're not allowed back there.
+ @do moveback
+@closescript
+
+@#habib
+ @show
+`c`r0Talking With Habib
+
+`0"What can I do for you?"
+
+ @do `v01 is 1
+ @choice
+Talk to `4H`@a`$b`2i`3b
+Get something to drink
+>&money 74 Get a room (`$$75`%)
+Examine his items
+Leave him alone
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+`c`$ This is some place you've got here," you politely say.
+
+`k`0"Thank you! I've put lots of work into it. I've been working
+upstairs for over a month. It looks great now. It's the safest place
+you can find in these parts.
+
+`k`$"COOL. How much are rooms?"
+
+`k`0"They're a low, low price of $75 dollars. But remember, if you
+get a room, don't leave the tavern or I can't let you back upstairs."
+
+`k`$"Oh, ok."
+
+`k`$"Thanks for the information!"
+
+`k
+ @do goto habib
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+`c`4H`@a`$b`2i`1b `0gives you a glass of the finest beer you've ever tasted.
+
+`k`3You feel much better.`k
+ @do `p96 + 6
+ @do goto habib
+ @end
+
+@if response is 3 then do
+ @begin
+ @show
+`c`0"Here's the room key. Now you can go into any room you want. The stairs
+are over there."
+
+`4H`@a`$b`2i`3b `0points to your left.
+
+`k
+ @do money - 75
+ @do `p22 is 1
+ @do goto habib
+ @end
+
+@if response is 4 then do
+ @begin
+ @show
+`c`r0Buy Stuff
+
+`4H`@a`$b`2i`3b `0leads you to a back room.
+`0You are amazed at the amount of things he has in this little room.
+
+ @buymanager
+ 1
+ 43
+ 5
+ 40
+ 36
+ 28
+ 14
+ 37
+ 39
+ 20
+ 55
+ 58
+ 59
+ @do goto habib
+ @end
+
+@if response is 5 then do
+ @begin
+ @update
+ @drawmap
+ @closescript
+ @end
+
+@#drunk
+ @do moveback
+ @do `p21 random 6 1
+ @if `p21 is 1 then saybar
+`7Drunk: `%I heard there's `7::hic:: `%money upstairs.
+ @if `p21 is 2 then saybar
+`7Drunk: `4H`@a`$b`2i`3b `%is a `7::hic:: `%great guy.
+ @if `p21 is 3 then saybar
+`7Drunk: `7::hic:: `%I'm not as think `7::hic:: `%as you drunk I am.
+ @if `p21 is 4 then saybar
+`7Drunk: `9Blue `%trees mean `7::hic:: `%treasure.
+ @if `p21 is 5 then saybar
+`7Drunk: ::hic:: `%Somes says there's a `7::hic:: `%secret passage.
+ @if `p21 is 6 then saybar
+`7Drunk: `%Take me `7::hic:: `%drunk, I'm home.
+
+@closescript
+
+@#door2
+ @do saybar
+Ahhh. Privacy.
+@closescript
+
+@#toilet
+ @do saybar
+You relieve yourself of one large load.
+@closescript
+
+@#sign3
+ @do moveback
+ @do saybar
+`9Blue `%trees mean treasure. Can you find the way?
+@closescript
+
+@#tree
+ @do saybar
+You've gotta go INSIDE to use this tree!!! Duh.
+@closescript
+
+@#tree1
+ @datanewday tree.idf
+ @dataload tree.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+ @do saybar
+You find a `#Death Sword`%! ...but can you find your way back?
+ @do `i71 + 1
+ @datasave tree.idf &playernum 1
+ @closescript
+ @end
+@do saybar
+Come back tomorrow. The tree needs time to regrow what you took.
+
+@#tree2
+ @datanewday tree.idf
+ @dataload tree.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+ @do saybar
+You find `#Death Armour`%! ...but can you find your way back?
+ @do `i69 + 1
+ @datasave tree.idf &playernum 1
+ @closescript
+ @end
+@do saybar
+Come back tomorrow. The tree needs time to regrow what you took.
+
+@#tree3
+ @datanewday tree.idf
+ @dataload tree.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+ @do saybar
+You find a `3Koshi Sword`%! ...but can you find your way back?
+ @do `i65 + 1
+ @datasave tree.idf &playernum 1
+ @closescript
+ @end
+@do saybar
+Come back tomorrow. The tree needs time to regrow what you took.
+
+@#tree4
+ @datanewday tree.idf
+ @dataload tree.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+ @do saybar
+You find `3Koshi Armour`%! ...but can you find your way back?
+ @do `i63 + 1
+ @datasave tree.idf &playernum 1
+ @closescript
+ @end
+@do saybar
+Come back tomorrow. The tree needs time to regrow what you took.
+
+@#tree5
+ @datanewday tree.idf
+ @dataload tree.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+ @do saybar
+You find `$500,000 gold`%! ...but can you find your way back?
+ @do money + 500000
+ @datasave tree.idf &playernum 1
+ @closescript
+ @end
+@do saybar
+Come back tomorrow. The tree needs time to regrow what you took.
+
+@#moneytree1
+ @datanewday tree.idf
+ @dataload tree.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+ @do saybar
+You find `$100,000 gold`%! ...but can you find your way back?
+@do money + 100000
+ @datasave tree.idf &playernum 1
+ @closescript
+ @end
+@do saybar
+Come back tomorrow. The tree needs time to regrow what you took.
+
+@#exptree1
+ @datanewday tree.idf
+ @dataload tree.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+ @do saybar
+You find 50,000 experience! ...but can you find your way back?
+@do `p01 + 50000
+ @datasave tree.idf &playernum 1
+ @closescript
+ @end
+@do saybar
+Come back tomorrow. The tree needs time to regrow what you took.
+
+@#exptree2
+ @datanewday tree.idf
+ @dataload tree.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+ @do saybar
+You find 25,000 experience! ...but can you find your way back?
+@do `p01 + 25000
+ @datasave tree.idf &playernum 1
+ @closescript
+ @end
+@do saybar
+Come back tomorrow. The tree needs time to regrow what you took.
+
+@#desk
+ @datanewday desk.idf
+ @dataload desk.idf &playernum `p23
+@if `p23 not 1 then do begin
+ @begin
+ @do saybar
+Wow! You find `$$1,000 `%in the top drawer!
+ @do money + 1000
+ @datasave desk.idf &playernum 1
+ @closescript
+ @end
+@if `p23 is 1 then do begin
+ @begin
+ @do saybar
+You already took the money.
+ @end
+
diff --git a/xtrn/lord2/cnw/hackney.ref b/xtrn/lord2/cnw/hackney.ref
new file mode 100644
index 0000000000000000000000000000000000000000..5f7e8b4b1e3b07de4734a3b651e90c1bdab2d55b
--- /dev/null
+++ b/xtrn/lord2/cnw/hackney.ref
@@ -0,0 +1,213 @@
+; Script file HACKNEY.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:16 2001
+
+@DECLARE slavesign 000000325
+@DECLARE bedsign 000000409
+@DECLARE gemsign 000000519
+@DECLARE potsign 000000588
+@DECLARE slaver 000000674
+@DECLARE gemman 000001420
+@DECLARE potion 000002266
+@NOCHECK
+; End of .REF index
+
+@#slavesign
+@do saybar
+`2Sign reads: `0 Visit Bob the Slave Trader
+@do moveback
+
+@#BEDSIGN
+@do saybar
+`2Sign reads: `0 This Bedroom is Safe from Commies. Red blankets too.
+@do moveback
+
+@#gemsign
+@do saybar
+`2Buy and sell Gems with Me.
+@do moveback
+
+@#potsign
+@do saybar
+`2Sign reads: `0 I've got some wicked potions.
+@do moveback
+
+@#SLAVER
+;trading in girls
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Slaver `r0
+
+ `0"Good day, s&sir! I am evil Bob, the fiendly slavetrader"
+ `2a the cheerful gentleman says.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>`i11 0 Trade Kid For Gems (an evil passtime).
+<`i11 1 "I don't Have any Kids for you."
+"Slave Trading is Wrong!"
+@if response not 3 then do
+ @begin
+@show
+`\`\ `0"Either way i think you are an amoral wanker!" he shouts.
+ But I love you.
+
+
+`k
+@if responce is 1 then do
+ @begin
+ @do `p19 + 1
+ @do `i11 - 1
+ @do `p07 - 3
+ @end
+
+@if responce is 2 then do
+ @begin
+ @do saybar
+ `6Then piss off`0!
+ @end
+
+
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#GEMMAN
+;trading in gems
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Gem Man `r0
+
+ `0"Hello, s&sir and welcome to my wonderful gem house"
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>`p19 0 Trade a Gem for GOOD Alignment and health potions.
+>`p19 0 Trade a Gem for EVIL Alignment and health potions.
+>&money 999 Buy a Gem for $1000.
+I don't Like Gems.
+@if response not 4 then do
+ @begin
+@show
+`\`\ `0"Gems Gems Gems are `6Sweet`0!" he shouts.
+
+
+
+`k
+@if responce is 1 then do
+ @begin
+ @do `p19 - 1
+ @do `p07 + 5
+ @do `i40 + 1
+ @do `i55 + 1
+ @end
+
+
+`k
+@if responce is 2 then do
+ @begin
+ @do `p19 - 1
+ @do `p07 - 5
+ @do `i40 + 1
+ @do `i55 + 1
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do `p19 + 1
+ @do money - 1000
+ @end
+
+
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#POTION
+;trading in potions
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Big Gay Potion Guy `r0
+
+ `0"Hello, s&sir. I have som wicked, filth, sick Potions!"
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Buy a Red potion. ($20000)
+>&money 14999 Buy a Silver potion. ($15000)
+>&money 16999 Buy a Gold potion. ($17000)
+>&money 2999 Buy a Yellow potion. ($3000)
+>&money 1999 Buy a Purple potion. ($2000)
+>&money 3999 Buy a Black potion. ($4000)
+>&money 6999 Buy a Pink potion. ($7000)
+>&money 399 Buy a White potion. ($400)
+I don't Like Drugs.
+@if response not 9 then do
+ @begin
+@show
+`\`\ `0"Cool; a fellow drugie. `6Sweet`0!" he shouts loudly.
+
+
+
+`k
+
+@if responce is 1 then do
+ @begin
+ @do money - 20000
+ @do `i52 + 1
+ @end
+
+@if responce is 2 then do
+ @begin
+ @do money - 15000
+ @do `i54 + 1
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do money - 17000
+ @do `i53 + 1
+ @end
+@if responce is 4 then do
+ @begin
+ @do money - 3000
+ @do `i94 + 1
+ @end
+@if responce is 5 then do
+ @begin
+ @do money - 2000
+ @do `i93 + 1
+ @end
+@if responce is 6 then do
+ @begin
+ @do money - 4000
+ @do `i91 + 1
+ @end
+@if responce is 7 then do
+ @begin
+ @do money - 7000
+ @do `i86 + 1
+ @end
+@if responce is 8 then do
+ @begin
+ @do money - 400
+ @do `i55 + 1
+ @end
+
+
+
+ @loadmap &map
+ @end
+@drawmap
+@update
diff --git a/xtrn/lord2/cnw/hatalk.ref b/xtrn/lord2/cnw/hatalk.ref
new file mode 100644
index 0000000000000000000000000000000000000000..dafdee5389e28278c794498a99663a0b4db7bee7
--- /dev/null
+++ b/xtrn/lord2/cnw/hatalk.ref
@@ -0,0 +1,338 @@
+; Script file HATALK.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:37 2001
+
+@DECLARE monster1 000000497
+@DECLARE monster2 000001082
+@DECLARE monster3 000001647
+@DECLARE monster4 000002261
+@DECLARE woodft 000002864
+@DECLARE owlsign 000002931
+@DECLARE eeyore 000003020
+@DECLARE poohsign 000003088
+@DECLARE pondsign 000003159
+@DECLARE toywish 000003297
+@DECLARE chrisrob 000004778
+@DECLARE dressup 000005650
+@DECLARE dress 000005702
+@NOCHECK
+; End of .REF index
+
+
+@#monster1
+@fight
+;name
+Heffalump
+;string said when you see him
+From behind a tree appears a heffalump...
+;power move kill string
+You stomp on its rotting carcas!!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+slaps you around with its fuzzy trunk|44
+gouges you with its ivory tusks|29
+sits on you|35
+NONE|NONE
+NONE|NONE
+;defense
+29
+;gold reward
+300
+;experience
+200
+;hit points
+189
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Woozle
+;string said when you see him
+Awoozle sneaks up behind you...
+;power move kill string
+You send him back into the hole he came from.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bounces on your head|50
+slaps you to the ground|48
+gnaws on your leg|39
+NONE|NONE
+NONE|NONE
+;defense
+35
+;gold reward
+500
+;experience
+350
+;hit points
+313
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Rampant Thistle
+;string said when you see him
+Something scratches your leg, you look down...
+;power move kill string
+You mould its spines into a victory pincushion for mum!!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+spikes you|53
+jumps up and scratches your cheek|43
+stabs your eyes with its thorns|55
+NONE|NONE
+NONE|NONE
+;defense
+22
+;gold reward
+245
+;experience
+199
+;hit points
+187
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Rabbit with a hoe
+;string said when you see him
+The sound of rabbit's voice startles you...
+;power move kill string
+You take his hoe and give it to Eeyore
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+gashes your leg with his hoe|10
+flicks manure in your face|33
+uses the hoe to trip you up|29
+NONE|NONE
+NONE|NONE
+;defense
+14
+;gold reward
+99
+;experience
+111
+;hit points
+121
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+
+
+@#woodft
+@busy
+@do `p20 random 4 1
+@do goto monster`p20
+
+
+
+@#OWLSIGN
+;A stock message outline
+@DO SAYBAR
+`2Wise old Owl's tree!!
+@DO MOVEBACK
+
+@#EEYORE
+@DO SAYBAR
+`2Eeyore's Thistle Patch!!
+@DO MOVEBACK
+
+@#POOHSIGN
+@DO SAYBAR
+`2Winnie the Pooh lives here!
+@DO MOVEBACK
+
+@#PONDSIGN
+@DO SAYBAR
+`2You stare into the glimmering pond!
+@DO MOVEBACK
+
+--------------------------------------------------------
+
+@#toywish
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2Do you want to step inside the closet? (`$$500`2) [`0Y`2\`0N`2]: `x
+@do readspecial `s01 YN
+@if `s01 is Y then do
+ @begin
+ @if money < 500 then do
+ @begin
+ @show
+ `\`\ You don't have enough money!"
+ `k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do money - 500
+ @show
+`\`\ `r0`c `r1 Christopher Robins Toy Closet! `r0
+
+ `2Where would you like to go? The only place we don't go
+ to is Arrisville, cause our toy boat can't make it!!
+`\`k
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Green Tree
+Porttown
+Flag City
+Bone Town
+Sosen Village
+Stonepass Lodge
+Leave
+@if response is 1 then do
+ @begin
+ ;Green Tree
+ @do x is 46
+ @do y is 10
+ @do map is 147
+ @end
+
+@if response is 2 then do
+ @begin
+ ;Porttown
+ @do x is 40
+ @do y is 14
+ @do map is 152
+ @end
+
+@if responce is 3 then do
+ @begin
+ ;Flag City
+ @do x is 41
+ @do y is 12
+ @do map is 151
+ @end
+
+@if responce is 4 then do
+ @begin
+ ;Bone Town
+ @do x is 32
+ @do y is 12
+ @do map is 1287
+ @end
+
+@if responce is 5 then do
+ @begin
+ ;sosen village
+ @do x is 40
+ @do y is 13
+ @do map is 536
+ @end
+
+@if responce is 6 then do
+ @begin
+ ;Stone village
+ @do x is 39
+ @do y is 11
+ @do map is 880
+ @end
+
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+--------------------------------------------------------
+
+@#chrisrob
+@do moveback
+@do `p20 random 9 1
+@if `p20 is 1 then saybar
+`%Christopher: `0Did you know I have a magical Toy Closet!
+@if `p20 is 2 then saybar
+`%Christopher: `0You can visit Eeyore and he gives you stuff...
+@if `p20 is 3 then saybar
+`%Christopher: `0Have you seen my Dress Up corner?
+@if `p20 is 4 then saybar
+`%Christopher: `0Be Careful what you buy from Old Owl!!
+@if `p20 is 5 then saybar
+`%Christopher: `0I think Pooh is dealing in illegal honey!
+@if `p20 is 6 then saybar
+`%Christopher: `0I hear Eeyore is the best Lord2 player around...
+@if `p20 is 7 then saybar
+`%Christopher: `0Have you seen any Heffalumps or Woozles around?
+@if `p20 is 8 then saybar
+`%Christopher: `0They come in ones or twozles!!!
+@if `p20 is 9 then saybar
+`%Christopher: `0I reckon this game rules!
+
+--------------------------------------------------------
+
+@#dressup
+@offmap
+@do moveback
+@do `v01 is 1
+@label dress
+@show
+`r0`c `%Christopher Robbin's Dress Ups
+
+`2 You see lots of choices of dress ups that can be bought here.
+
+@do write
+`x`x
+@choice
+Examine the clothing
+Choose an accessory
+Go outside.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 10
+ 12
+ 13
+ 14
+ 37
+ 59
+ @end
+
+@if responce is 2 then do begin
+ @begin
+@buymanager
+ 9
+ 15
+ 16
+ 38
+ 35
+ 36
+ 39
+ 58
+ @end
+
+@if responce not 3 then goto dress
+@drawmap
+@update
diff --git a/xtrn/lord2/cnw/hate.ref b/xtrn/lord2/cnw/hate.ref
new file mode 100644
index 0000000000000000000000000000000000000000..82bd00d3345e7eaa65f5c59145344581f0ea95ac
--- /dev/null
+++ b/xtrn/lord2/cnw/hate.ref
@@ -0,0 +1,125 @@
+; Script file HATE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:20 2001
+
+@DECLARE hate 000000320
+@DECLARE hatetop 000000336
+@NOCHECK
+; End of .REF index
+
+; Hate Mail .REF File for use with any LORD 2 game.
+; (c) 1997 ShroomTrip Software
+;
+;
+; CNW updated it for WAR game modes of LoRD2: CNW
+;
+@#hate
+@label hatetop
+@do `p21 is &totalaccounts
+@do `p30 random `p21 1
+@do `s02 is getname `p30
+@do `p20 is &totalaccounts
+@do `p29 random `p20 1
+@do `s01 is getname `p29
+@if `s01 equals `s02 then goto hatetop
+@if `s02 equals `s01 then goto hatetop
+@do `p25 random 10 1
+@if `p25 is 1 then do
+ @begin
+ @writefile mail\mail`p30.dat
+ `0WAR NOTES from `s01:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0Dear `s02`0,
+ `0I think that you are a ninny, and you will die ny my hand!
+`yHAHAHAHAHAHAHA`0! What do ya say to that, ya loser?
+`x
+ `0Sincerly,
+ `%`s01`0
+`k
+ @end
+
+@if `p25 is 2 then do
+ @begin
+ @writefile mail\mail`p30.dat
+ `0WAR NOTES from `s01:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0Dear `s02`0,
+ `0I have been watching your ugly face, and I have decided to do the world
+a favor and remove it! When I catch up with you, I will use a very `bdull
+`0razor to give you the closest shave you have ever had!
+`x
+ `0Sincerly,
+ `%`s01`0
+`k
+ @end
+
+@if `p25 is 3 then do
+ @begin
+ @writefile mail\mail`p30.dat
+ `0WAR NOTES from `s01:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ I'm the best! haha! you can't find me.
+
+`x
+ `0Sincerly,
+ `%`s01`0
+`k
+ @end
+
+@if `p25 is 4 then do
+ @begin
+ @writefile mail\mail`p30.dat
+ `0WAR NOTES from `s01:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+Find me if you dare! I'm hunting you as we speak.
+`x
+ `0Sincerly,
+ `%`s01`0
+`k
+ @end
+@if `p25 is 5 then do
+ @begin
+ @writefile mail\mail`p30.dat
+ `0WAR NOTES from `s01:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ Fuck OFF! If i find you, you're gone!
+`k
+ @end
+@if `p25 is 6 then do
+ @begin
+ @writefile mail\mail`p30.dat
+ `0WAR NOTES from `s01:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+I dont want to see you alive.
+`k
+ @end
+@if `p25 is 7 then do
+ @begin
+ @writefile mail\mail`p30.dat
+ `0WAR NOTES from `s01:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+Where the fuck are you, you fuck'n loser.
+`k
+ @end
+@if `p25 is 8 then do
+ @begin
+ @writefile mail\mail`p30.dat
+ `0WAR NOTES from `s01:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+I will kill you the first chance i see you!
+`k
+ @end
+@if `p25 is 9 then do
+ @begin
+ @writefile mail\mail`p30.dat
+ `0WAR NOTES from `s01:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+This is war baby, watch out!
+`k
+ @end
+@if `p25 is 10 then do
+ @begin
+ @writefile mail\mail`p30.dat
+ `0WAR NOTES from `s01:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+Come and get me, you can't find me, or could you? oh no.
+`k
+ @end
diff --git a/xtrn/lord2/cnw/haunted.ref b/xtrn/lord2/cnw/haunted.ref
new file mode 100644
index 0000000000000000000000000000000000000000..2cc8380f06ebd2d2039a839a0071821005fbaca4
--- /dev/null
+++ b/xtrn/lord2/cnw/haunted.ref
@@ -0,0 +1,199 @@
+; Script file HAUNTED.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:31 2001
+
+@DECLARE sign 000000378
+@DECLARE warp 000000453
+@DECLARE ghost 000000729
+@DECLARE guy 000001246
+@DECLARE guy2 000001737
+@DECLARE door 000002232
+@DECLARE oldlady 000002469
+@DECLARE old 000003082
+@DECLARE gho 000003321
+@DECLARE nomore 000003746
+@NOCHECK
+; End of .REF index
+
+@#SIGN
+@DO MOVEBACK
+@DO SAYBAR
+`bCONDEMNED BUILDING: `7Haunted House
+
+@#WARP
+@dataload HAUNTED.IDF &playernum `t50
+@do MAP is 1238
+@if bitcheck `t50 3 1 then do
+ @begin
+ @do MAP is 1237
+ @end
+@do X is 38
+@do Y is 19
+@loadmap &map
+@drawmap
+@update
+@if bitcheck `t50 4 1 then do
+ @begin
+ @do move 36 13
+ @do write
+`r7`6�
+ @end
+
+@#GHOST
+;wants moonstone
+@dataload HAUNTED.IDF &playernum `t50
+@DO MOVEBACK
+@if bitcheck `t50 0 1 then do
+ @begin
+ @do saybar
+You've given me my moonstone! Yay! I'm so happy!
+ @closescript
+ @end
+@DO SAYBAR
+I want a moonstone.
+@if `i57 > 0 then do
+ @begin
+ @key
+ @do saybar
+Will you give him a moonstone? Y/N :
+@DO READSPECIAL `s01 YN
+ @if `s01 is Y then do
+ @begin
+ @bitset `t50 0 1
+ @do `i57 - 1
+ @do saybar
+You hand over a moonstone
+ @end
+ @end
+@datasave HAUNTED.IDF &playernum `t50
+
+@#GUY
+;wants egg
+@dataload HAUNTED.IDF &playernum `t50
+@DO MOVEBACK
+@if bitcheck `t50 1 1 then do
+ @begin
+ @do saybar
+You've given me my egg! Yay! I'm so happy!
+ @closescript
+ @end
+@DO SAYBAR
+I want an egg.
+@if `i43 > 0 then do
+ @begin
+ @key
+ @do saybar
+Will you give him an egg? Y/N :
+@DO READSPECIAL `s01 YN
+ @if `s01 is Y then do
+ @begin
+ @bitset `t50 1 1
+ @do `i43 - 1
+ @do saybar
+You hand over an egg
+ @end
+ @end
+@datasave HAUNTED.IDF &playernum `t50
+
+@#GUY2
+;apple
+@dataload HAUNTED.IDF &playernum `t50
+@DO MOVEBACK
+@if bitcheck `t50 2 1 then do
+ @begin
+ @do saybar
+You've given me my apple! Yay! I'm so happy!
+ @closescript
+ @end
+@DO SAYBAR
+I want an apple.
+@if `i19 > 0 then do
+ @begin
+ @key
+ @do saybar
+Will you give him an apple? Y/N :
+@DO READSPECIAL `s01 YN
+ @if `s01 is Y then do
+ @begin
+ @bitset `t50 2 1
+ @do `i19 - 1
+ @do saybar
+You hand over an apple
+ @end
+ @end
+@datasave HAUNTED.IDF &playernum `t50
+
+@#DOOR
+;check itself
+@dataload HAUNTED.IDF &playernum `t50
+@if bitcheck `t50 0 1 then do
+ @begin
+@if bitcheck `t50 1 1 then do
+ @begin
+@if bitcheck `t50 2 1 then do
+ @begin
+ @closescript
+ @end
+ @end
+ @end
+@do moveback
+
+@#OLDLADY
+@dataload HAUNTED.IDF &playernum `t50
+@DO MOVEBACK
+@if bitcheck `t50 3 1 then do
+ @begin
+ @do saybar
+Old Lady: You've been so kind, giving me this small furry animal. Thank you!
+ @closescript
+ @end
+@DO SAYBAR
+Old Lady: Me oh my, I'm such an old, decrepit, lonely old lady...
+@if `i51 > 0 then do
+ @begin
+ @key
+ @do saybar
+Do you give her a small fuzzy animal? Y/N :
+@DO READSPECIAL `s01 YN
+ @if `s01 is Y then do
+ @begin
+ @bitset `t50 3 1
+ @do `i51 - 1
+ @do saybar
+You hand over the small furry animal to the happy old lady
+ @end
+ @end
+@datasave HAUNTED.IDF &playernum `t50
+
+@#OLD
+@do MOVEBACK
+@DO SAYBAR
+Thank you so much for breaking the curse. Those ghosts that were in the house
+@key
+@do saybar
+were bound to say until all of us got a specific item. Thank you so very,
+@key
+@do saybar
+very much!!!
+
+@#GHO
+@dataload HAUNTED.IDF &playernum `t50
+@if bitcheck `t50 4 1 then do
+ @begin
+ @closescript
+ @end
+@do moveback
+@do saybar
+The other ghosts ... continued the journey of life... but I remained behind
+@key
+@do saybar
+So as to reward you. Here is $40,000 and two moonstones for your trouble.
+@do `i57 + 2
+@do MONEY + 40000
+@bitset `t50 4 1
+@do move 36 13
+@do write
+`r7`6�
+@key
+@do saybar
+Thank you.
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/hawk.clr b/xtrn/lord2/cnw/hawk.clr
new file mode 100644
index 0000000000000000000000000000000000000000..9a2ad3c83df0ae78c003445dbacff0c4a14f9dda
--- /dev/null
+++ b/xtrn/lord2/cnw/hawk.clr
@@ -0,0 +1,10 @@
+[?7h[255D[71C[0;33m���
+[69C�[30;43m�����[33;40m�
+[68C�[30;43m�[1;37;40m�[0;30;43m������[40m
+[67C[1;33m��[43m�[0;30;43m�������[40m
+[67C[1;33m� [0;33m�[30;43m�������[33;40m�
+[68C�[30;43m���������[33;40m�
+[67C�[30;43m�����������[40m
+[67C[43mܰܰ��������[40m
+[68C[43m�[1C � � [40m
+[74C[43m�[2C �
diff --git a/xtrn/lord2/cnw/hawood.ref b/xtrn/lord2/cnw/hawood.ref
new file mode 100644
index 0000000000000000000000000000000000000000..8e22efd47b90335a21463a2c8c6d5b4f9e706544
--- /dev/null
+++ b/xtrn/lord2/cnw/hawood.ref
@@ -0,0 +1,363 @@
+; Script file HAWOOD.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:37 2001
+
+@DECLARE honeypot 000000349
+@DECLARE poohtalk 000000443
+@DECLARE poo 000000510
+@DECLARE poohcave 000001235
+@DECLARE owltree 000001516
+@DECLARE owl 000001578
+@DECLARE eeyorewish 000002528
+@DECLARE mtop 000002590
+@NOCHECK
+; End of .REF index
+
+
+@#honeypot
+@DO SAYBAR
+`2There are lots of empty honey pots lying around.
+@DO MOVEBACK
+
+
+@#poohtalk
+;Inside Winnie the Pooh's Cave
+@OFFMAP
+@DO MOVEBACK
+@label poo
+@DO `v01 is 1
+@SHOW
+`r0`c `r1 Winnie the Pooh `r0
+
+ `6"Well, umm... hello!"`2 stammers Pooh
+
+
+@DO WRITE
+`x`x
+@CHOICE
+Talk to Pooh Bear
+Buy more honey
+Say Goodbye
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @SHOW
+`\`\ `6"P is for Pooh who loves to eat honey,
+ `6that's why I have such a round little tummy"
+
+`k `0"Um, that's nice!"`2 you offer.
+
+ `6"Please help yourself to what's on the table"`2 he adds.
+`\`k
+@do goto poo
+ @END
+
+@IF RESPONSE IS 2 THEN DO
+@Begin
+@Show
+`r0`c `r1 `%Pooh's Illegal Honey Trade
+
+
+@buymanager
+89
+88
+@do goto poo
+@End
+@drawmap
+@update
+@end
+
+
+---------------------------------------------------------
+
+@#poohcave
+;secret
+@do moveback
+@if bitcheck `t13 1 1 then do
+ @begin
+ @do saybar
+There is nothing on the table.
+ @closescript
+ @end
+
+@bitset `t13 1 1
+@do saybar
+`%You find a Pot of Honey!
+@do `i88 + 1
+
+--------------------------------------------------------
+
+@#owltree
+;The Wise Old Owl's House
+@OFFMAP
+@DO MOVEBACK
+@label owl
+@DO `v01 is 1
+@SHOW
+`r0`c `r1 Owl's Tree `r0
+
+ `2A Owl looks down at you with a knowing look!
+
+ `0"Good afternoon, how may I ... help you?"`2
+
+
+@DO WRITE
+`x`x
+@CHOICE
+Ask for a blessing
+Check out the potions
+Leave, quick!!
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @SHOW
+`\`\ `$"Excuse me, could you give me a blessing?"`2 you ask.
+
+`k `0"Me?!? Give you a blessing??!!"`2 he retorts.
+
+ Owl laughs outloud.`2
+`\`k
+@do goto owl
+ @END
+
+@IF RESPONSE IS 2 THEN DO
+@Begin
+@Show
+`\`\ `$"I'm kinda in need of a pick me up," `2you say. `$"What do you recommend?"
+
+ `0"Take your pick young warrior, but choose `4Carefully!!" `2Owl warns.
+
+ `2You review your choices.
+
+`k
+@show
+`r0`c `r1 `%Health Affecting Potions
+
+
+@buymanager
+91
+90
+92
+93
+@do goto owl
+@End
+@drawmap
+@update
+@end
+
+--------------------------------------------------------
+
+@#eeyorewish
+; Getting a FREE wish
+ @offmap
+ @do moveback
+ @label mtop
+ @do `v01 is 1
+ @show
+`r0`c `%Eeyore's Thistle Patch
+
+`2 As you approach you see a strange looking donkey.
+
+@do write
+`x`x`x`x
+@choice
+Talk to Eeyore
+Leave
+@show
+@if response is 1 then do
+ @begin
+
+; Checking if Data file exists... if not write fake one (don't want this
+; program to crash out)
+
+@if myst&playernum.txt exists false then do begin
+@begin
+@writefile myst&playernum.txt
+01/01/1988
+`s02
+@end
+
+; Read the players data file compare it to todays date. If it equals
+; todays date then exit out with message, else do the routine
+
+@readfile myst&playernum.txt
+`s01
+`s02
+@do `s05 is &date
+@if `s01 not `s05 then do
+ @begin
+ @show
+`c
+ `2 You talk to Eeyore.
+
+ `0 "What do you want Eeyore?"`2 you ask nervously.
+
+ `5 "I have a surprise for you young warrior!"`2 he drones,
+ `5 "Come closer and I will help you!"
+
+ `2 You move closer and you get`l. `l. `l. `l. `l. `l. `l. `l. `l. `\
+
+@do `p20 random 11 1
+;
+; Random things that you can get
+;
+; 1 - Extra Gold
+; 2 - Extra Muscle
+; 3 - Extra Dodge
+; 4 - if Neg alignment (Eviler) If positive (nicer)
+; 5 - A healing potion (5 point one)
+; 6 - a red potion (5 hit points)
+; 7 - a silver potion (muscle)
+; 8 - a gold potion (dodge)
+; 9 - pie
+; 10 - quest point
+; 11 - gem
+
+@if `p20 is 1 then do
+@begin
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p21 is `v09
+ @do `p21 - 1
+; Do the math, You'll get Gold = level * level * 10
+ @do `p21 * `p21
+ @do `p21 * 10
+ @show
+`% Richer! `2 In your hand appears `$`p21`2 gold!`\
+`2 You look at the gold, then leave happly.`\`\`k
+ @do money + `p21
+@end
+
+@if `p20 is 2 then do begin
+@begin
+ @show
+`% Stronger! `2 You feel stronger! (1 muscle point)`\
+`2 You look at your self and leave.`\`\`k
+ @do `p04 + 1
+@end
+
+@if `p20 is 3 then do begin
+@begin
+ @show
+`% Tougher! `2 You get 1 point toughness!`\
+`2 You feel tougher, and you then leave.`\`\`k
+ @do `p05 + 1
+@end
+
+@if `p20 is 4 then do begin
+@begin
+ @if `p07 less 0 then do begin
+ @begin
+ @show
+`2 You truely are `% EVIL`2. I can see it in you. I will help you with
+the way you choose to be. You lose 1 alignment.`\`\`k
+ @do `p07 - 1
+ @end
+
+ @if `p07 more 0 then do begin
+ @begin
+ @show
+`2 You truely are `%GOOD`2. I can see it in you. I will help you with
+the way you choose to be. You gain 1 alignment.`\`\`k
+ @do `p07 + 1
+ @end
+
+ @if `p07 equals 0 then do begin
+ @begin
+ @show
+`2 You truely are `%GOOD`2. I can see it in you. I will help you with
+the way you choose to be. You gain 1 alignment.`\`\`k
+ @do `p07 + 1
+ @end
+@end
+
+@if `p20 is 5 then do begin
+@begin
+ @show
+`2A Green Potion! This potion will heal 10 hitpoints if you drink it!`\`\`k
+ @do `i05 + 1
+@end
+
+@if `p20 is 6 then do begin
+@begin
+ @show
+`2A `4Red Potion! `2This potion will give you 5 hipoints if you drink it!`\`\`k
+ @do `i52 + 1
+@end
+
+@if `p20 is 7 then do begin
+@begin
+ @show
+`2A `$Gold Potion! `2This potion will give you extra muscles if you drink it!`\`\`k
+ @do `i53 + 1
+@end
+
+@if `p20 is 8 then do begin
+@begin
+ @show
+`2A `%Silver Potion! `2This potion will give you extra dodges if you drink it!`\`\`k
+ @do `i54 + 1
+@end
+
+@if `p20 is 9 then do begin
+@begin
+ @show
+`% A Pie! `2 You get an extra pie!`\`\`k
+ @do `i08 + 1
+@end
+
+@if `p20 is 10 then do begin
+@begin
+ @show
+`% A Quest point! `2 You get an extra quest point!`\`\`k
+ @do `p18 + 1
+@end
+
+@if `p20 is 11 then do begin
+@begin
+ @show
+`% A Gem! `2 You get an extra gem!`\`\`k
+ @do `p19 + 1
+@end
+
+
+
+@if myst&playernum.txt exists true then delete myst&playernum.txt
+@writefile myst&playernum.txt
+&date
+`s02
+@do goto mtop
+@end
+
+@if `s01 is `s05 then do
+ @begin
+ @show
+`2`\`\You already wished to day. Try again tomorrow!
+`\`\`k
+ @do goto mtop
+ @end
+
+ @drawmap
+ @update
+ @closescript
+@end
+
+@if response is 2 then do
+@begin
+ @show
+`\`\
+`2 You decide not to make a wish right now.
+`\
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+
+@show
+`\`\
+`2 This is under construction!
+`\`\`k
+@do goto mtop
+
+@drawmap
+@update
+@closescript
+@end
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/hell.ref b/xtrn/lord2/cnw/hell.ref
new file mode 100644
index 0000000000000000000000000000000000000000..ebd8c15b08f1503acfcfd22fae4e8d7dbe93a97e
--- /dev/null
+++ b/xtrn/lord2/cnw/hell.ref
@@ -0,0 +1,372 @@
+; Script file HELL.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:35 2001
+
+@DECLARE monster1 000000599
+@DECLARE monster2 000001121
+@DECLARE monster3 000001644
+@DECLARE monster4 000002182
+@DECLARE monster5 000002669
+@DECLARE monster6 000003234
+@DECLARE monster7 000003865
+@DECLARE monster8 000004456
+@DECLARE monster9 000005023
+@DECLARE monster10 000005608
+@DECLARE fight 000006196
+@DECLARE sign 000006347
+@DECLARE sign1 000006440
+@DECLARE sign2 000006497
+@DECLARE sign3 000006551
+@DECLARE satan 000006608
+@DECLARE author 000006698
+@NOCHECK
+; End of .REF index
+
+@#monster1
+@fight
+;name
+Little Fireball
+;string said when you see him
+Out of nowhere, it appears...
+;power move kill string
+You laugh as it explodes!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+shoots fire at you|30
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+34
+;gold reward
+289
+;experience
+122
+;hit points
+50
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Medium Size Fireball
+;string said when you see him
+It appears out of nowhere!
+;power move kill string
+You laugh as it explodes
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+shoots fire at you|68
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+40
+;gold reward
+10
+;experience
+98
+;hit points
+222
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+STONEP.REF|THIEF
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Regular Fireball
+;string said when you see him
+It appears out of nowhere!
+;power move kill string
+You have to cover yer eyes as it explodes!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+Shoots fire at you|45
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+55
+;gold reward
+100
+;experience
+632
+;hit points
+203
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Can't Fight Boy
+;string said when you see him
+YES! It can't do crap!
+;power move kill string
+That was easy...
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+75
+;gold reward
+1
+;experience
+100
+;hit points
+200
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+NONE|NONE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Roaming Mob
+;string said when you see him
+`0"Hey there s&he is!" `2 you hear.
+;power move kill string
+Just go away you losers!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+chase you down|80
+use their pitchforks and shovels on you|95
+let loose the dogs|78
+NONE|NONE
+NONE|NONE
+;defense
+30
+;gold reward
+480
+;experience
+170
+;hit points
+350
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster6
+@fight
+;name
+Angry Mage
+;string said when you see him
+`2You see a light up ahead, of a fireball headed towards you.
+;power move kill string
+Magic is how long it took me to kick your ass!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+throws a fireball|85
+throws a iceball|100
+calls upon the dead|79
+throws lightning at you|105
+smacks you with his staff|81
+;defense
+27
+;gold reward
+401
+;experience
+156
+;hit points
+480
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster7
+@fight
+;name
+Lost Gladiator
+;string said when you see him
+`0"Hey, have you seen Hawk or Ice?" `2you hear.
+;power move kill string
+`$"I am the greatest!"
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+nails you with a tennis ball|87
+wrestles you down|102
+smashes you with a stick|76
+talks smack to you|88
+NONE|NONE
+;defense
+32
+;gold reward
+550
+;experience
+160
+;hit points
+400
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster8
+@fight
+;name
+Shawn
+;string said when you see him
+`0"My 90 is just as fast as your 133!" `2 you hear.
+;power move kill string
+`$"Over Clock this!"`2
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+smacks you with his keyboard|80
+give you a virus|78
+blows up your chopper|97
+NONE|NONE
+NONE|NONE
+;defense
+33
+;gold reward
+430
+;experience
+160
+;hit points
+210
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster9
+@fight
+;name
+Rogue Officer
+;string said when you see him
+`0"I could help you, but ..." `2 you hear.
+;power move kill string
+So that's the way the man's gonna be?
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits with him mace|85
+boots you in the head|99
+nails you with a poison dart|105
+NONE|NONE
+NONE|NONE
+;defense
+25
+;gold reward
+410
+;experience
+156
+;hit points
+130
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster10
+@fight
+;name
+Mercenary
+;string said when you see him
+`0"I'm looking for a war ..."
+;power move kill string
+`$"Looks like he was pressed for time."
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+jabs you with his spear|97
+connects with his morning star|105
+rams his spear through your arm|115
+NONE|NONE
+NONE|NONE
+;defense
+27
+;gold reward
+760
+;experience
+166
+;hit points
+250
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+
+@#FIGHT
+@do `p20 random 12 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@busy
+@do `p20 random 10 1
+@do goto monster`p20
+
+@#sign
+@DO MOVEBACK
+@DO SAYBAR
+`2Touch all walls in room of no paths to find a path.
+
+@#SIGN1
+@DO MOVEBACK
+@DO SAYBAR
+`%The Bunny Trail
+
+@#SIGN2
+@DO MOVEBACK
+@DO SAYBAR
+`4World War II
+
+@#SIGN3
+@DO MOVEBACK
+@DO SAYBAR
+`2The End of Time
+
+@#SATAN
+@DO MOVEBACK
+@DO SAYBAR
+`4"Pick one of the test of skill" says the Devil.
+
+@#AUTHOR
+@DO MOVEBACK
+@DO SAYBAR
+`7"I am not a Satanist!" -The Author of the IGM
diff --git a/xtrn/lord2/cnw/help.ref b/xtrn/lord2/cnw/help.ref
new file mode 100644
index 0000000000000000000000000000000000000000..4d03b300c67d0dda55f23a53572f6111ac9eb48c
--- /dev/null
+++ b/xtrn/lord2/cnw/help.ref
@@ -0,0 +1,1067 @@
+; Updated by CNW to handle the java telnet app
+;
+;
+;
+
+;help inside of help.ref (yeah, this file) is run if a user hits ? from
+;the main screen in the game. This way, if you want to add a complicated
+;help system, (ie, they can get help on certain things, whatever) you can.
+
+@#NOTIME
+`r0 `2Um, hello? Anybody home? You can't sit here all day, there are
+ adventures to be had! Come back when you are ready - be not afraid, child.
+
+@#yell
+@busy
+@do move 3 21
+@do write
+`r1`% ENTER SCREEN MESSAGE :`x
+@do readstring 51 NIL `s01
+@do stripbad `s01
+@do `p21 is length `s01
+@if `p21 more 1 then do
+ @begin
+ @do `s02 is `r1`%`x`n`%:`x
+ @do `s02 add `s01
+ @do talk `s02 all
+ @end
+@do statbar
+
+@#talk
+@busy
+@do move 3 21
+@do write
+`r1`% ENTER GLOBAL MESSAGE :`x
+@do readstring 51 NIL `s01
+@do stripbad `s01
+@do `p21 is length `s01
+@if `p21 more 1 then do
+ @begin
+ @do `s02 is `r1`%`x`n`%:`x
+ @do `s02 add `s01
+ @do talk `s02 all
+ @end
+@do statbar
+
+
+@#Z
+;z key activates this
+;the Smackrod/aka legendary xy cord warping device
+
+
+@if `i73 < 1 then do
+ @begin
+@if bitcheck `t79 3 1 then do
+ @begin
+ @do saybar
+`%You dismount your horse.
+ @routine dismounth in vehicle.ref
+ @closescript
+ @end
+
+@if bitcheck `t79 1 1 then do
+ @begin
+ @do saybar
+`%You mount your horse.
+ @routine mounth in vehicle.ref
+ @closescript
+ @end
+
+ @do saybar
+`%You do not own a horse.
+ @closescript
+
+; no more bad Z msg.. now horsy.
+; @do saybar
+;`2Nice job on pressing the `0Z`2 key. It is a great key, really.
+; @closescript
+ @end
+
+@do move 3 23
+@do write
+`0`r0New X? `2:`x
+@do `p20 is x
+@do `p21 is y
+@do readnum 2 `p20
+;changed 80 to 79 and 1 to 2, so players can not cheat.
+@if `v40 is 0 then `v40 is `p20
+@if `v40 > 79 then `v40 is 79
+@if `v40 < 2 then `v40 is 2
+@do x is `v40
+
+@do move 15 23
+@do write
+`0`r0New Y? `2:`x
+@do readnum 2 `p21
+;changed 20 to 19 and 1 to 2, so players can not cheat.
+@if `v40 is 0 then `v40 is `p21
+@if `v40 > 20 then `v40 is 19
+@if `v40 < 2 then `v40 is 2
+@do y is `v40
+
+@if `p71 > 0 then do
+ @begin
+ @routine getname in npcwith.ref
+ @dataload npc/npc-`p71.idf &playernum `p27
+ @do `p27 - 15
+ @datasave npc/npc-`p71.idf &playernum `p27
+ @datasave npc/npclost.idf `p71 map
+ @datasave npc/npclost2.idf `p71 &playernum
+ @routine getplace in location.ref
+ @do `p71 is 0
+ @do `p70 is 0
+ @bitset `t50 1 0
+ @bitset `t50 2 0
+ @bitset `t50 3 0
+ @bitset `t50 4 0
+ @bitset `t50 5 0
+ @bitset `t50 6 0
+ @bitset `t50 7 0
+ @writefile lognow.txt
+ `$`s01 got lost today. `s01 was last seen near `s02.
+ `2-`0=`2-`%=`2-`0=`2-
+ @do saybar
+`$You just had lost `s01. :(
+ @so quebar
+`$Maybe you shouldn't jump around like that.
+ @end
+
+@clearblock 23 24
+
+@if blockpassable not 0 then do
+ @begin
+ @clearblock 23 24
+ @drawpart `p20 `p21
+ @update
+ @end
+@if blockpassable is 0 then do
+ @begin
+ @do x is &lastx
+ @do y is &lasty
+ @drawpart `p20 `p21
+ @update
+ @do saybar
+Sorry, you can't go there.
+@end
+
+
+@#whoison
+@busy
+;our whos on list
+@do move 1 1
+@show
+`r0`c `r1 `%PEOPLE ON NOW `r0
+
+ `0Name Level Location
+
+@whoison
+@show
+
+@key
+@drawmap
+@update
+
+@#map
+@busy
+;if player hits M from the map menu
+@if `i20 > 0 then do
+ @begin
+ @do write
+`r0
+ @overheadmap
+ ;now we do any additions to our map, like text or marks on the map
+ ;we had npc players do so they know where to go
+
+ @do move 76 12 ;porttown
+ @do write
+`r2`%�
+
+ @do move 76 17 ;greentree
+ @do write
+`r2`%�
+
+ @do move 79 17 ;stonebrook
+ @do write
+`r2`%�
+
+ @do move 80 10 ;stonepass lodge
+ @do write
+`r2�
+
+ @do move 52 14 ;flag city
+ @do write
+`r2`%�
+
+ @do move 43 7 ;ArrisVille
+ @do write
+`r2`%�
+
+ @do move 56 6 ;Sosen Village
+ @do write
+`r2`%�
+
+ @do move 52 20 ;BoneTown
+ @do write
+`r2`%�
+
+ @do move 75 17 ;town of knotwood
+ @do write
+`r2`%�
+
+ @if bitcheck `t93 1 1 then do
+ @begin
+ @do move 61 17 ;town of Shark Tooth Island
+ @do write
+`r2`%�
+ @end
+
+ @if bitcheck `t93 2 1 then do
+ @begin
+ @do move 62 11 ;Devils Island
+ @do write
+`r2`%�
+ @end
+
+ @if bitcheck `t93 0 1 then do
+ @begin
+ @do move 74 14 ;woodland
+ @do write
+`r2`%�
+ @end
+ @if bitcheck `t92 7 1 then do
+ @begin
+ @do move 65 6 ;GumTown
+ @do write
+`r2`%�
+ @end
+
+ @if bitcheck `t92 6 1 then do
+ @begin
+ @do move 53 17 ;MystVille
+ @do write
+`r2`%�
+ @end
+
+ @if bitcheck `t92 0 1 then do
+ @begin
+ @do move 42 2 ;ArrisTraining Grounds
+ @do write
+`r2`%�
+ @end
+
+ @if bitcheck `t92 1 1 then do
+ @begin
+ @do move 74 16 ;TeamHouse1
+ @do write
+`r2`#1
+ @end
+ @if bitcheck `t92 2 1 then do
+ @begin
+ @do move 80 4 ;TeamHouse2
+ @do write
+`r2`#2
+ @end
+ @if bitcheck `t92 3 1 then do
+ @begin
+ @do move 55 16 ;TeamHouse3
+ @do write
+`r2`#3
+ @end
+ @if bitcheck `t92 4 1 then do
+ @begin
+ @do move 68 13 ;TeamHouse4
+ @do write
+`r2`#4
+ @end
+ @if bitcheck `t92 5 1 then do
+ @begin
+ @do move 55 1 ;TeamHouse5
+ @do write
+`r2`#5
+ @end
+
+ @if bitcheck `t12 3 1 then do
+ @begin
+ @do move 75 20 ;edward
+ @do write
+`r2`0�
+ @end
+
+
+ ;this math converts your 'block #' to x y cords to show the
+ ;"you are here" blip. We use lmap instead of map, lmap is the
+ ;the last 'visible' map the player was on.
+
+ @do `p20 is &lmap
+ @do `p20 / 80
+ @do `p21 is &lmap
+ @do `p22 is `p20
+ @do `p22 * 80
+ @do `p21 - `p22
+ @do `p20 + 1
+ @if `p21 is 0 then do
+ @begin
+ @do `p21 is 80
+ @do `p20 - 1
+ @end
+ @do move `p21 `p20
+ @do write
+`r2`bX`r0
+
+;draw the help
+@do move 3 3
+@show
+`r1`%Reading your map.
+`2���������������������
+ `%� `0City/town with lodging
+ `%� `0City/town `4without`0 lodging
+ `%� `0House or shack
+ `4X `0Your current location
+ `## `0TeamHouse #
+
+ `0Note: `2Some buildings/etc must be
+ discovered before they show up here.
+ @do move 1 22
+ @do write
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+@do saybar
+`4You don't have a map.
+
+@#rank1
+;this is the format for experience ranking
+@do `s01 is `n
+@do pad `s01 21
+@if sexmale is 1 then `s02 is `0M
+@if sexmale is 0 then `s02 is `#F
+@do `s03 is `p01
+@do frontpad `s03 14
+@do `s04 is `p09
+@do frontpad `s04 2
+@if dead is 1 then `s05 is `4Dead
+@if dead is 0 then `s05 is `%Alive
+
+@writefile temp`*.dat
+`s02 `2`s01`%`s03 `s04 `s05
+@#rank2
+;this is the format for experience ranking
+@do `s01 is `n
+@do pad `s01 21
+
+@if sexmale is 1 then `s02 is `0M
+@if sexmale is 0 then `s02 is `#F
+
+@do `s03 is `p18
+@do frontpad `s03 14
+
+@if `p96 < 10 then `s04 is `%Sober`xenuf
+@if `p96 < 1 then `s04 is `%Sober
+@if `p96 > 10 then `s04 is `5Mildly`xdrunk
+@if `p96 > 20 then `s04 is `5Feeling`xGOOD
+@if `p96 > 30 then `s04 is `5Dilerious!?!
+@if `p96 > 40 then `s04 is `5Drunk
+@if `p96 > 50 then `s04 is `5Way`xDrunk
+@if `p96 > 60 then `s04 is `5Pissed`xDRUNK!
+@do frontpad `s04 13
+@writefile list`*.dat
+`s02`x`2`s01`%`s03`x`s04
+@#rank3
+@If &sex is 0 then `s09 is `#F
+@If &sex is 1 then `s09 is `1M
+;name
+@do `s02 is `N
+@do pad `s02 26
+;age
+@do `s03 is `p39
+@do pad `s03 2
+;lays
+@do `s05 is `p34
+@do pad `s05 4
+;kills
+@do `s06 is `p35
+@do pad `s06 4
+;charm
+@do `s07 is `p08
+@do pad `s07 6
+;last flirted with?
+;- working on this -
+@if `t72 is 0 then do
+ @begin
+ @do `p70 is `t71
+ @routine getname in npcname.ref
+; @do write
+;made it here!?! `s01`k
+ @do `s08 is `s01
+ @end
+@if `t72 is 1 then do
+ @begin
+ @do `s08 is getname `t71
+ @end
+@if `t72 is 2 then do
+ @begin
+ @do `s08 is a`xsheep
+ @end
+@do pad `s08 9
+;hometown
+@routine getplace in myhome.ref
+@do pad `s01 20
+@do delete lst2`*.dat
+@writefile lst2`*.dat
+`s09`x`%`s02`x`$`s03`x`%`s01`x`5`s05`x`4`s06`x`!`s07`x`$`s08
+@#listplayers
+@busy
+@clear screen
+@do move 14 1
+@do write
+`4������������������������������������������������Ŀ
+@do move 14 2
+@do write
+`4� �
+@do move 14 3
+@do write
+`4� �
+@do move 14 4
+@do write
+`4� �
+@do move 14 5
+@do write
+`4� �
+@do move 14 6
+@do write
+`4� �
+@do move 14 7
+@do write
+`4� �
+@do move 14 8
+@do write
+`4� �
+@do move 14 9
+@do write
+`4� �
+@do move 14 10
+@do write
+`4� �
+@do move 14 11
+@do write
+`4��������������������������������������������������
+
+@do move 18 3
+@show
+`7How should we list the players this time?
+@do move 25 5
+@do write
+`8������������������������Ŀ
+@do move 25 6
+@do write
+`8� �
+@do move 25 7
+@do write
+`8� �
+@do move 25 8
+@do write
+`8� �
+@do move 25 9
+@do write
+`8��������������������������
+@do move 26 6
+@do `v01 is 1
+@choice
+`$Rank by Experience `%
+`$List HomeTown/Lays/Kills`%
+`$List by most QUESTs `%
+@if responce is 2 then do
+ @begin
+ @run list1 in gm23.ref
+ @end
+
+; @do `p20 is 0
+; @do write
+;`r0`c `0Listing players...
+;
+;@do delete lst2`*.dat
+;@writefile lst2`*.dat
+;`r0`r1 `% LORD II RANKINGS `r0
+;
+;`0G Name Age - HomeTown - - - Lays Kills Charm - Likes
+;`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+;@rank lst2`*.dat 8 rank3
+;@do move 1 1
+;@displayfile lst2`*.dat
+;@key bottom
+;@drawmap
+;@update
+;@closescript
+;@end
+
+@if responce is 3 then do
+ @begin
+ @do move 1 1
+ @clear screen
+ @do write
+`r0 `0Another way of Ranking players... TESTING!!!
+
+@do delete list`*.dat ;`* is node number
+@writefile list`*.dat
+`r0`c`r1 `% LORD II RANKINGS `r0
+
+ `0Name Quests - Drunk -
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@
+
+;rank lets us specify WHAT `p to rank, and what the name of the procedure
+;that formats the rank.
+;its been comented out - it works, but @lordrank is the same thing built
+;into the .EXE, so it is a bit faster
+; @lordrank temp`*.dat 1
+
+ ;@rank crap`*.dat 1 rank1
+ @rank list`*.dat 18 rank2
+ ;@lordrank list`*.dat 18
+ @do move 1 1
+ @displayfile list`*.dat
+ @key bottom
+ @drawmap
+ @update
+ @closescript
+ @end
+@do move 1 1
+@clear screen
+@do write
+`r0 `0Ranking players...
+
+@do delete temp`*.dat ;`* is node number
+@writefile temp`*.dat
+`r0`c`r1 `% LORD II RANKINGS `r0
+
+ `0Name Experience Level Status Alignment Quests
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@
+
+;rank lets us specify WHAT `p to rank, and what the name of the procedure
+;that formats the rank.
+;its been comented out - it works, but @lordrank is the same thing built
+;into the .EXE, so it is a bit faster
+;@rank crap`*.dat 1 rank1
+@lordrank temp`*.dat 1
+@convert_file_to_ansi temp`*.dat score.ans
+@convert_file_to_ascii temp`*.dat score.txt
+@do move 1 1
+@displayfile temp`*.dat
+@key bottom
+@drawmap
+@update
+
+
+
+@#help
+@do `v01 is 1
+@label helpstart
+@do move 1 1
+@show
+`r0`c `r1 `%LORD II: Complete New World v137 `r0
+
+ `2Use your `0ARROW-KEYS`2 or numpad (with numlock turned on) to select an
+ option then press `0ENTER`2.
+
+@do write
+`x`x
+@choice
+`2List hotkeys that do things on the map mode
+`2What symbols mean on the `0'your stats'`2 screen
+`2How to move
+`2New CNW stuff added since the last version
+`2About us and how to report bugs and suggestions
+`2Beginners help and strategy
+`4Quit the game
+`2View `0Game Settings`2
+`@Complete New World?
+`%Play the game!
+@if responce is 9 then do
+ @begin
+ @do write
+`r0`%
+ @displayfile docs/cnw.txt
+ @key
+ @do goto helpstart
+ @end
+@if responce is 8 then do
+ @begin
+ @if `v06 is 1 then `s01 is On
+ @if `v06 is 0 then `s01 is Off
+ @do `s02 is `v05
+ @if `v05 < 1 then `s02 is `%unlimited
+ @show
+`r0`c `r1 Settings for this game `r0
+
+ @if `v03 is 0 then write
+ `2You get only `0one`2 life per day.`\
+ @if `v03 not 0 then write
+ `2You may die `0unlimited`2 times per day.`\
+ @show
+ `2You get `0`s02`2 turns per day.
+ `2Clean mode is `0`s01`2.
+ `2Quest opportunities per day is `0`v07`2.
+ `2This game has been running for `0&time`2 days.
+ `21 Year in this realm is `0`v10 `2days.
+ `2NPCs stay knocked out for `0`v14 `2days.
+ `2Pregnancy lasts for `0`v13 `2days.
+ `2Tax rates are at `0`v15%`2.
+@if `v09 < 1 then do
+ @begin
+ @show
+ `2Players are safe in Inns the entire game.
+ @end
+@if `v09 > 0 then do
+ @begin
+ @show
+ `2Players can be attacked in Inns at level `0`v09`2+.
+ @end
+
+@show
+
+`$Do you want to list all the IGMs installed in CNW? [N/y] :
+@do READSPECIAL `s02 NY
+
+@if `s02 is N then goto helpstart
+ `2`%IGM'S INSTALLED ON THIS SYSTEM:
+
+ @displayfile 3rdparty.dat
+ @show
+`k
+ @do goto helpstart
+ @end
+
+@if responce is 1 then do
+ @begin
+ @pauseoff
+ @SHOW SCROLL
+
+
+ `%Commands that work from the main map screens:
+
+ `0? `2- `0This help screen
+ `0R `2- `0Redraw the screen
+ `0V `2- `0View your stats/inventory
+ `0T `2- `0Talk - Everyone in the game can hear you
+ `0D `2- `0Daily Happenings
+ `0H `2- `0Hail - Trade with/talk to/kill a person. (must be on their square)
+ `0L `2- `0List warriors, lets you know who's on top
+ `0W `2- `0Write mail to someone
+ `0P `2- `0People online right now
+ `0S `2- `0Show names of everyone on the current screen
+ `0B `2- `0BackBuffer, log of recent messages.
+ `0F `2- `0Fast BackBuffer, shows last 3 messages only, for speed.
+ `0Q `2- `0Quit the game
+@do goto helpstart
+ @end
+
+@if responce is 2 then do
+ @begin
+ @pauseoff
+ @SHOW SCROLL
+
+
+ `%ABOUT ITEM SYMBOLS:
+
+ `r4`*W`r0`2 `8- `2It can be used as a weapon.
+ `r2`*A`r0`2 `8- `2It can be used as armour.
+ `r5`*1`r0`2 `8- `2It can only be used once.
+
+ `r0`$�`r0`2 `8- `2Potion or bottle.
+
+ `2Remember - press `0V `2to view your stats, this is also where you
+ equip weapons and armour.
+@do goto helpstart
+
+ @end
+
+@if responce is 3 then do
+ @begin
+ @pauseoff
+ @SHOW SCROLL
+
+
+ `%ABOUT MOVEMENT:
+
+ `2Use the `0arrow-keys`2 or the `0numpad`2 to move around/select options
+ in most areas. To use the numpad, make `4SURE`2 that the num lock
+ key is `4ON`2. `2(`0it will work either way if your terminal supports arrow
+ keys`2)
+
+ If using arrow keys causes the daily log to pop up randomly, you should
+ switch to the numpad.
+
+ `8-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+ `$Want to move faster?
+ `2Either shell from your terminal now to your DOS shell, or run the
+ batch file before you start your term, or put the line right into
+ your autoexec.bat file. `8(for Windows & DOS)
+ `2You can make a batch file with the following line:
+ `%mode con rate=32 delay=1
+ `2thats it!
+
+@do goto helpstart
+ @end
+
+
+@if responce is 4 then do
+ @begin
+ @pauseoff
+ @SHOW SCROLL
+`%+-------------------------------------------------------------------------+
+ `%NEW STUFF in CNW v137.0 SINCE v136.0:
+
+ `%- `$ANSi map screens all been redone. Why? cuz those little trees were
+ ugly! And also wasn't supported by many cheaper telnet programs including
+ the JAVA telnet app.
+ `%- `$Made is possible to list players AGE/GENDER/HOMETOWN/LAST FLIRT
+ `%- `$Each player has a hometown, when you buy a place it can be set
+ as your home. Some inns will also allow this.
+ `%- `$Added a HORSE you can buy and ride (get a max of 2x your turns
+ when mounted). Also made a nice ANSi pic of him. You must feed
+ it too. (Press "Z" to mount)
+ `%- `$Finish "That Guy Has problems" guy north or Greentree.
+ `%- `$Make view game settings to query to list the igms or not. (in HELP)
+ `%- `$Added/Changed newbie quick starter help in home screen.
+ `%- `$Put the 'how to move faster' info in the HELP->STRATEGY
+ `%- `$Added all towns to the MAP ANSi, once you visit it will show.
+ `%- `$Added a standard 'VD check & pass it on' for every sexual encounter.
+ `%- `$Added Zena IGM to the game and put in East Knotwood.
+ `%- `$Created a new quest for Elle, go talk to Johnny and find out more.
+ `%- `$Upgraded a few IGMs `%- `$Oracle Of Whats to Come (v3)
+ `%- `$House of Dreams (v2)
+ `%- `$Frost Glint Keep (v0.3)
+ `%- `$SmackRodders can't cheat anymore, bounced 1 space from the edge.
+ and cannot jump on unmovable blocks.
+ `%- `$BBS LIST, get your lord2 bbs listed!
+ `%- `$Load time shorten dramaticly, moved maint to maint.ref, which
+ is ran once a day, hopefully by the SysOp.
+ `%- `$added some cool ansi for fishing.
+ `%- `$added some cool ansi for swimming hole.
+ `%- `$added PEOPLE.REF - a file with a bunch of standard ansi/ascii pics
+ of people which can be called apon from anywhere in the game.
+ `%- `$added DRAGONS.REF - a file with a bunch of standard ansi/ascii pics
+ of dragons which can be called apon from anywhere in the game.
+ `%- `$Updated Pouch of Deeds. Shows info about every deed supported. (62)
+ `%- `$Changed SCRIBE in GreenTree *10 of your level.
+ `%- `$Taxes! Tired of those rich high end players getting richer and richer.
+ Now everyone over 21 years old has to pay taxes to the realm. If the
+ realm gets too rich there is a lottery to give it away.
+ `%- `$VAULTS all over the place. I mentioned a long time ago about these
+ vaults. Well, they now exist in banks and a few other places. Each
+ Bank has REAL money now, if they dont have enough to give the player,
+ they dont give it to the player. If this happens a request is sent to
+ the SYSOP in SYSOP Castle. Then there are new quests available to move
+ money into proper locations. If you are good enough, you can check all
+ the vault balances.
+ `%- `$When buying or selling property, the cash is sent to the local bank
+ vault (realm vaults).
+ `%- `$Pay taxes at more banks
+ `%- `$Pay taxes in FlagCity CityHall - was there already, just need to
+ implement it for real :)
+ `%- `$Added bank quests. Transport money if your alignment is good.
+ Talk to SYSOP in SYSOP Castle
+ `%- `$Another Elle quest, talk to Johnny to find out. Where is Johnny? :)
+ `%- `$Changed SYSOP Castle, its more useful now. Get quests, pay taxes,
+ view vault amounts.
+ `%- `$Added a time/date question for the bartender at RedDragon Inn,
+ in case you wanted to know the day.
+
+
+`%+-------------------------------------------------------------------------+
+ `%NEW NPC STUFF in CNW v137.0 SINCE v136.0:
+
+ `%- `$Added lots more NPCs to the game. `8[`7now 125`8]
+ `%- `$NPCs can ROB you if you are not nice, or if they are evil.
+ `%- `$You can fight the NPCs. They can fight back, so be careful.
+ `%- `$Many NPC bug fixes has been done. Thanks people.
+ `%- `$Make Laura and Ed as NPC that goes with player, not an ITEM!
+ `%- `$If you keep NPC over night with you, npc can get lost, reported if lost.
+ `%- `$fixed up FLIRT.REF.
+ `%- `$Added a standard VD check routine. (TALK.REF)
+ `%- `$Made SEX with NPCs more interactive! `7<--This is cool! `1:`4)
+ `%- `$Made NPCs stronger and richer.
+ `%- `$Start NPC "GIVE" routines. (now you can give gold and gems to increase
+ your relationship with the NPC.
+ `%- `$Added MoshPit as another NPC date location.
+ `%- `$Made TRAINING.REF to support going back to alternitive ref files.
+ (uses s01 for ref file name)
+ `%- `$Fixed NPCLOST maint, now check ALL npcs if lost, not just the
+ first one found.
+ `%- `$Fixed up NPC date locations bugs plus change to bitsets vars.
+
+`8Note: `7Each CNW game with NPCs, will have different stats than another game.
+ When a new game is start, most of the stats are created randomly. Each game
+ will be different.
+
+
+`%+-------------------------------------------------------------------------+
+ `%IGM BUG FIXES in CNW v137.0 SINCE v136.0:
+
+ `%- `$Fixed "@do moveback" bug with talking with pharoh in pyramid igm
+ `%- `$Grizeldas house
+ `%- `$conflicts with vars t12 and t13
+ `%- `$made 'em NPCs
+ `%- `$TeamLord IGM
+ `%- `$Bug fixes; quits if you try to take/leave gold &
+ nobody owns it.
+ `%- `$Some buying bugs, weird, but fixed.
+ `%- `$Bar listing now shows TeamName not "TeamHouse #"
+ `%- `$Fixed list details at Red Dragon Inn (were many here)
+ `%- `$Only uses 1 ref file now, removed tlhouse1.ref
+ thru *5.ref
+ `%- `$Made the menu system much better.
+ `%- `$Added dragon pics. As it gets stronger, it grows!
+ `%- `$Added time/turns are used to train as well
+ `%- `$Added colour choice for the dragon
+ (only owner can select colour)
+ `%- `$Now TEAMs can declare their relations with other teams
+ (a list can be seen at the bar in GreenTree)
+ `%- `$Loki's Inn
+ `%- `$removed "little girl" from store
+ `%- `$flirting NPC into standard interactive NPCs.
+ `%- `$fixed Q-Fortress location bug.
+ `%- `$Fix DOC FARRELS IGM. Conflicts and used global vars, THIS IS CRAZY!!
+ `%- `$Fix Northern Colliseum bugs.
+ `%- `$UGA alchemist is now a little harder to get cash from gems. :)
+ `%- `$Fast Freddy's Gems IGM now has real cash amount and amount of
+ gems available.
+ `%- `$Fixed RedDragon Town, used `p64 var, shouldn't have.
+ `%- `$Changed begger requirement donation *10 of your level.
+ `%- `$The Loose Screw Resort
+ `%- `$Was missing, put it back in,
+ `%- `$Map jump location fixed.
+ `%- `$Removed var conflicts.
+ `%- `$Wanted man, fixed, now only can fight once,
+ not over and over.
+ `%- `$Felicity IGM
+ `%- `$Changed to an Inn style rest area instead of TEAM style
+ `%- `$Added to Pouch of Deeds
+ `%- `$Made Janitor's Keys as an EXT ITEM.
+ `%- `$Wizard's Tower IGM
+ `%- `$Was also missing, cuz it conflicted with TEAM#3, FIXED
+ `%- `$Map jumps locations fixed.
+ `%- `$Updated Time Stands Still IGM to v2.01
+ `%- `$Myst Inn had tons of bugs
+ `%- `$UnderGround city houses
+ `%- `$Only use 1 ref file now. removed pass1.ref and pass2.ref
+ `%- `$Added a sexy maid (from people.ref) as the door maid.
+ `%- `$BoneTown MoshPit hall ansi bugs! Used lots of invalid hidden ansi chars.
+ `%- `$DragonDen housing
+ `%- `$Warp bug fixed.
+ `%- `$Jasimita house had no maid for ownership options, yet
+ the code was already written. So, added a hotspot for it.
+ `%- `$ArrisTraining Grounds moved and fixed map problems. Now in ArrisVille area!
+ `%- `$Fix Canoe bugs.. keeps buying and they say you dont owe on tabs.. yet you have.
+ `%- `$FrostGlint Keep
+ `%- `$Bartender sells too much and buys too much,
+ `%- `$Bad routines to other refs, and more!
+ `%- `$Warps you to dragon den housing? bug there! all fixed.
+ `%- `$Town of Glendale bugs fixed. Too many, also redone ansi work for the town.
+ `%- `$Fixed Tower of Krystals IGM! Used `p97-`p99 vars and had lots of REF bugs. ALL FIXED!
+ `%- `$Fixed Black Sheep conflist with p90 and t19 vars.
+
+
+`%+-------------------------------------------------------------------------+
+ `%CNW BUG FIXES in CNW v137.0 SINCE v136.0:
+
+ `%- `$fixed "no data record 0" bug when getting into the game.
+ `%- `$fixed 2nd year bug (wouldn't create new players after 1st year)
+ `%- `$The "Broken Key" item will no longer give an error.
+ `%- `$Optimized the Barak/Turgeon quest. It conflicted with igms and
+ bad coding.
+ `%- `$Fixed all the QUESTs with the package/sachet thing. Was problems
+ with Pyramid, SpringFang and AquaMan
+ `%- `$Removed the Koshi Sword and Armour from being purchasable in many exploitable IGMs.
+ `%- `$Removed "make batch file info" from Mother Home and put in the HELP stuff.
+ `%- `$Gems in "V"iew seemed to have a few extra spaces, fixed.
+ `%- `$If you use a smackrod with a screen like a house and nothing on very
+ edges, most maps had non-hard spots there, meaning players (cheaters)
+ can easily jump from one house to another, sometimes a secured house.
+ So, every map edges that were not suposed to be used, are now all
+ blocked off.
+
+`%+-------------------------------------------------------------------------+
+ `%NEW GAME OPTIONS/SYSOP OPTIONS in CNW v137.0 SINCE v136.0:
+
+ `%- `$Requires LoRD2 v1.02+ `%(get it at http://lordlegacy.org)
+ `%- `$Now SysOp should run "lord2.bat" as maint every night, so
+ the players do not need to run the maint. If not run, 1st
+ player will still have to run the maint.
+ `%- `$Made a min age to pay taxes.
+ `%- `$Intrest Rates adjustible.
+ `%- `$Different game styles.
+ `%- `$Option to disable npc+npc maintence (goes with game styles)
+ `%- `$Updated RESET.BAT, now you can reset any LoRD2: New World
+ `%- `$Age restrictions for casinos
+ `%- `$Re-wrote /DOCS/REFHELP.DOC file for new versions of LoRD2.
+ `%- `$Maint will only now quit if SYSOP was running the maint.
+
+ `%Most likely I missed a few dozen other changes since v136.0 :)
+ `%This gives you an idea on how much work was put into fixing bugs
+ `%and exploits from the original LoRD2 to all the IGMs being used
+ `%within here.
+
+ `7-Thanks for ALL the help and bug reports.
+ `7-Mostly thanks to the players on the CNW server!
+
+@do goto helpstart
+ @end
+
+@if responce is 5 then do
+ @begin
+ @pauseoff
+ @SHOW SCROLL
+
+ `%ABOUT US:
+ `0LORD II`2:`0 New World `2- (c) Copyright 2001 Metropolis, Inc.
+ Developed by Michael Preslar
+
+ `0WWW `8:`2 www.gameport.com
+ `0Email`8:`2 info@gameport.com
+
+ `%ABOUT CNW:
+ `0LORD II`2:`0 Complete New World `2 - a package by many FREEWARE IGM authors.
+ `2This is v137 Released MAR-18-2001.
+ `0WWW `8:`2 http://greenmachinebbs.com/lord2
+ `0Email`8:`2 greenie@darktech.org
+ `0ICQ `8:`2 #16277704
+`k
+@do goto helpstart
+ @end
+
+@if responce is 6 then do
+ @begin
+ @pauseoff
+ @SHOW SCROLL
+
+
+ `%Help and strategy for the new adventurer.
+
+ `0LORD II`2:`0 New World `2is a very different kind of game. There is a
+ huge world to explore (`0over 1000 screens`2) many people and animals to meet
+ (not all of them nice) and other REAL players to befriend and kill `0-`2 even while
+ they are online playing at the same time!
+
+ `$ You can be good or you can be evil. You can save the world or you can
+ destroy it.
+
+ `%Find some cash!
+
+ `2Do this by 'pushing' against the table in 'your' house. (the one you
+ started in) With this money you can buy cheap things at the store.
+
+ `%Get berries for your mom.
+
+ `2Just west of your cottage there is a small patch that looks different
+ than the rest `0-`2 try pushing against it. You'll find some berries. If you
+ see a certain block of grass or stone that looks different, try pushing
+ against it `0-`2 you never know what you'll find. (most likely something
+ good)
+
+ `%Fight monsters, heal yourself.
+
+ `2This isn't such an unfamiliar idea! But it is more tricky now `0-`2 First,
+ find an area that looks like it might contain monsters. (usually away from
+ towns and villages)
+
+ Next `0-`2 Walk around. You will randomly encounter various beasts/people and
+ be able to kill and sometimes talk with them. Some areas contain a `0HIGHER`2
+ chance of running into things.
+
+ When you are low on hitpoints, you will need to heal yourself. Inside
+ Stonebrook there is such a place. Later, when you have more gold you may
+ wish to purchase items that have the same effect `0-`2 different color potions
+ are the easiest way to heal on the road.
+
+ `%Raising Levels
+
+ `2No matter how long you have been playing the game, it is `0ALWAYS`2 possible
+ to improve your skills by gaining a level providing you have the experience.
+
+ `2In all the land there is only ONE place you can do this `0-`2 Barak's Training
+ center in Greentree. Beware of Barak though, he is kind of a jerk.
+
+ `%What is alignment?
+
+ `2This is what determines what kind of a person you are - naughty or
+ nice. `00`2 is average, `010`2 is very nice and `4-10`2 is very
+ nasty.
+
+ Someone who is nasty might see different options then someone who is nice -
+ depending on their level of evil they might have an option to kick a beggar
+ in the head where a nice person would have had 'give him some gold' as an
+ option. Get it?
+
+ `%Arming weapons and armour 101.
+
+ `2Before you can use them you need to arm them. From the map menu, hitting
+ `0V`2 will bring up your `0stat screen`2. This where you can see things
+ like what you are holding and how strong you are.
+
+ You equip and use items the same way - by highlighting them with the
+ light bar and pressing enter. You will then be given a list of options
+ that can be done with that item. Some items have more than one use.
+
+ After equiping a weapon or armour, pay close attention to your overall
+ Attack and Defense. The level these increment is how you know how good
+ a particular piece of equipment is!
+
+ `%Getting jobs and quests.
+
+ `2Certain people you talk to will let you 'conduct business' - this usually
+ means they have a job for you to do.
+
+ If it involves going somewhere you have never heard of - do not accept it
+ and see if they have any others. You only get 4 job offers per day max by
+ default so be smart!
+
+ `$Quick Tip: `2Finish the quest on the same day and you will get a bonus!
+
+ `$Want to move faster?
+ `2Either shell from your terminal now to your DOS shell, or run the
+ batch file before you start your term, or put the line right into
+ your autoexec.bat file. `8(for Windows & DOS)
+ `2You can make a batch file with the following line:
+ `%mode con rate=32 delay=1
+ `2thats it!
+
+`%+-------------------------------------------------------------------------+
+
+ `$You can also find more helpful hints and stredegies within the game.
+
+ `2One good little place is right south two screens of StoneBrook.
+
+
+`%+-------------------------------------------------------------------------+
+ `$YOU CAN FIND MORE HELP AT THESE WEB SITES:
+
+`%http://greenmachinebbs.com/lord2
+
+ `8[ does anyone else have an FAQ or WalkThru for L2? ]
+
+@do goto helpstart
+ @end
+
+@if response is 7 then do
+ @begin
+ @show
+`\`\ Goodbye.
+ @halt 0
+ @end
+
+
+ ;default
+ @pauseon
+ @if `p09 > 0 then do
+ @begin
+ @drawmap
+ @update
+ @end
+ @closescript
+
+@#done
diff --git a/xtrn/lord2/cnw/hitems.ref b/xtrn/lord2/cnw/hitems.ref
new file mode 100644
index 0000000000000000000000000000000000000000..87499ca8afb67761e543c0a9eb6b59b9fa43b2ac
--- /dev/null
+++ b/xtrn/lord2/cnw/hitems.ref
@@ -0,0 +1,1118 @@
+; Script file HITEMS.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:37 2001
+
+@DECLARE item88 000001134
+@DECLARE item89 000001353
+@DECLARE item90 000001572
+@DECLARE item91 000001881
+@DECLARE item92 000002148
+@DECLARE item93 000002375
+@DECLARE diary 000002712
+@DECLARE smack 000005068
+@DECLARE moon 000005179
+@DECLARE wand 000005444
+@DECLARE quest 000007041
+@DECLARE item1 000007984
+@DECLARE item2 000008290
+@DECLARE item3 000008597
+@DECLARE item5 000008759
+@DECLARE item7 000009084
+@DECLARE item8 000010299
+@DECLARE item11 000010646
+@DECLARE item11s 000010702
+@DECLARE item17 000012115
+@DECLARE item18 000012572
+@DECLARE item18s 000012623
+@DECLARE item19 000014453
+@DECLARE item20 000014560
+@DECLARE item22 000014695
+@DECLARE fail22 000015476
+@DECLARE item28 000015576
+@DECLARE item40 000015745
+@DECLARE item41 000016079
+@DECLARE item42 000016547
+@DECLARE item50 000017846
+@DECLARE item52 000019137
+@DECLARE item53 000019364
+@DECLARE item54 000019584
+@DECLARE item55 000019805
+@DECLARE item66 000020130
+@DECLARE nomoreitems 000020391
+@NOCHECK
+; End of .REF index
+
+;Items file
+
+@#item88
+;Pot of Honey
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You swallow the sticky mess.
+
+`k `%MAX HITPOINTS INCREASED BY TEN.
+
+`k
+@do `p03 + 10
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+
+@#item89
+;Jar of Honey
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You swallow the sticky mess.
+
+`k `%MAX HITPOINTS INCREASED BY FIVE.
+
+`k
+@do `p03 + 5
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+
+@#item90
+;black potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You slurp it down. It tastes ok at first but then... `bYUCK!`2
+
+ You spew all over the place!
+
+ `4HITPOINTS GO DOWN BY ONE.
+@if `p02 more 0 then `p02 - 1
+@clearblock 5 11
+@routine drawstats in gametxt.ref
+@do move 1 19
+@key
+
+@#item91
+;purple potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You sip it carefully. It tastes like draino...!`2
+
+
+ `4HITPOINTS GO DOWN BY FIVE.
+@if `p02 more 0 then `p02 - 5
+@clearblock 5 11
+@routine drawstats in gametxt.ref
+@do move 1 19
+@key
+
+@#item92
+;Yellow Potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You swallow the bubbling concoction.
+
+`k `%MAX HITPOINTS INCREASED BY ONE.
+
+`k
+@do `p03 + 1
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+
+@#item93
+;Pink potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You drink the pink liquid slowly.
+
+@if `p02 less `p03 then do
+ @begin
+ @show
+ `%You feel a lot better!
+
+ @do `p02 + 200
+ @if `p02 more `p03 then `p02 is `p03
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+@end
+
+@key
+
+
+@#DIARY
+;Barak's diary
+@show
+`r0`c `r1`% Reading Barak's Diary `r0
+
+ `r1`% 2-24 `r0
+
+ `2Turgon embarressed me in front of the students again. He has no right
+ to do this.
+
+`k `r1`% 2-29 `r0
+
+ `2I was beat by a student with 24 experience today! Turgon told Aragorn
+ and Santiger about it immediately... gawd I hate him!
+
+`k `r1`% 3-03 `r0
+
+ `2Mother made some pointed comments about how nice it would be if I got
+ my own place.. that old hag, I'll show her I make plenty of money!
+
+`k `r1`% 3-23 `r0
+
+ `2I took 20 gems from the student gem deposit today. No one saw me.
+
+ I now am afraid to try to sell them... I will wait until people forget.
+
+`k `r1`% 4-03 `r0
+
+ `2Turgon saught me out today in an attempt to 'teach me the proper way
+ to handle twin swords'. I can't believe his ego! It was all I could do
+ to tell him I was busy.
+
+`k `r1`% 4-12 `r0
+
+ `2I have only just become sober. Last night I did something terrible..
+ In a drunken rage while others were at a party celebrating the death of
+ `4The Red Dragon`2 (it was one of Turgon's students that did it.. I will
+ never hear the end of this) I went to Turgon's house and hid the gems
+ behind his bookshelf.
+
+ My heart is heavy now, I hope the gems are never found.
+
+`k `r1`% 4-18 `r0
+
+ `2TURGON SUCKS! I decided to play some dice for a few minutes during
+ training with some students and was reprimanded by Turgon himself in
+ front of everyone. Even Halder was laughing!
+
+ Later I left an anonymous note at the councils door. I told them Turgon
+ had taken the gems, and I told them exactly where to find them. I hope
+ that old coot has not found them and moved them...
+
+`k `r1`% 4-22 `r0
+
+ `2Turgon has been banashed from Greentree! Things could not have worked
+ more beautifully!!! I told the council today that Turgon had been stealing
+ things all along.. it explained many disappearances..<snicker> I told them
+ all the other trainers but I took part - and it was I wrote the note.
+
+`k `r1`% 4-23 `r0
+
+ `2The council has made me the master trainer for my 'service to the
+ community'. I will finally be able to start the Barak Training center
+ like I have always dreamed!
+
+ `0That was the last entry.
+
+`k
+ @run stats in gametxt.ref
+ @closescript
+
+@#SMACK
+@clearblock 13 23
+@do move 1 13
+@show
+ `2To use this item press Z from the map screen.
+
+`k
+@
+
+@#MOON
+;Gryphon Moon
+@clearblock 13 23
+@do move 1 13
+@show
+ `2The `%Gryphon Moon`2 comes alive in your hands.
+
+ Did the sun move backwards a bit?
+
+@if `p11 < `v05 then `p11 + 500
+@clearblock 5 11
+@routine drawstats in gametxt.ref
+@do move 1 17
+@key
+@#WAND
+@if castle3.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `0WAVING YOUR WAND ALL ABOUT `r0
+
+`2 This wand is dead and lifeless. This means nobody currently owns the
+ `%Wizard Tower`2.
+
+`k
+ @run stats in gametxt.ref
+ @closescript
+ @end
+
+@readfile castle3.dat
+`p20
+`s01
+@
+;load owner and current password
+
+
+
+
+@if `p20 not &playernum then do
+ @begin
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do `s04 is getname `p20
+ @show
+`r0`c `r1 `0WAVING YOUR WAND ALL ABOUT `r0
+
+ `%A light appears over the wand! `2Something leans out...
+
+`k`2 The face of mighty wizard `0`s04`2 scowls at you.
+
+ `0"I am not allowing anyone to enter my castle by any means!"
+
+ `2As quick as that the light is gone.
+
+`k
+ @run stats in gametxt.ref
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 `0WAVING YOUR WAND ALL ABOUT `r0
+
+`2 Say what incantation while you wave?
+ @do write
+`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @itemexit
+ @do x is 44
+ @do y is 15
+ @do map is 1176
+ @loadmap &map
+ @drawmap
+ @update
+ @do quebar
+`%AWESOME!
+ @closescript
+ @end
+@do `p02 / 2
+@show
+`\`\ `2The wand grows hot and burns you! `bOUCH!
+
+ `2If only you knew the right thing to say...
+
+`k
+ @run stats in gametxt.ref
+ @closescript
+ @end
+
+ @itemexit
+ @do x is 44
+ @do y is 15
+ @do map is 1176
+ @loadmap &map
+ @drawmap
+ @update
+ @do quebar
+`%WHAT A RIDE!
+ @closescript
+
+
+
+@#QUEST
+;help them remember where they need to deliver something
+
+;get location and name
+@do `p20 is `p15
+@routine getname in quest.ref
+@routine getplace in quest.ref
+
+@clearblock 13 23
+@do move 1 13
+@do `s02 is `2You`xstarted`xthis`xquest`x`0`p32`2`xdays`xago.
+@if `p32 is 0 then `s02 is You`xstarted`xthis`xquest`xtoday.
+@if `p32 is 1 then `s02 is `2You`xstarted`xthis`xquest`xyesterday.
+@show
+ `2You need to take this to `0`s01`2 in `0`s03`2.
+
+ `s02
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Continue your journey
+Throw the thing away like a bad little s&boy
+@if responce is 1 then do
+ @begin
+ @closescript
+ @end
+
+//setting quest stuff to 0, they chose throw sack away
+@do `p14 is 0
+@do `p15 is 0
+@do `p16 is 0
+@do `p17 is 0
+
+//take away quest items
+
+@do `i44 is 0
+@do `i45 is 0
+@do `i46 is 0
+@do `i47 is 0
+@do `i48 is 0
+@show
+`r0
+
+ You chuck it behind some bushes. Haw!
+
+`k
+@closescript
+@#item1
+;Wildberrys
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You chug 'em down. Boy do they taste good.
+
+@if `p02 less `p03 then do
+ @begin
+ @show
+ `%You feel a little better.
+
+ @do `p02 + 1
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+@end
+
+@key
+
+@#item2
+;poisonberrys
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You slurp it up. It tastes ok at first but then... `bACK!`2
+
+ You hook all over the place!
+
+ `4HITPOINTS GO DOWN BY ONE.
+@if `p02 more 0 then `p02 - 1
+@clearblock 5 11
+@routine drawstats in gametxt.ref
+@do move 1 19
+@key
+
+
+@#item3
+;Milk
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You down the cow juice.
+
+ `2It's a little warm, but thats how ya like it!
+
+`k
+@
+
+
+@#item5
+;Green potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You drink the green liquid.
+
+@if `p02 less `p03 then do
+ @begin
+ @show
+ `%You feel better!
+
+ @do `p02 + 10
+ @if `p02 more `p03 then `p02 is `p03
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+@end
+
+@key
+
+
+@#item7
+;Flute
+@if bitcheck `t14 1 1 then do
+ @begin
+ @if bitcheck `t14 2 0 then do
+ @begin
+ @clearblock 13 23
+ @do move 1 13
+ @show
+ `2You don't know any songs. Damn!
+
+`k
+ @closescript
+ @end
+ @do `v01 is 1
+ @show
+`r0`c `r1 Playing your flute `r0
+
+ `2Play what?
+
+@do write
+`x`x
+@choice
+Remembering the past
+Remembering the present
+Play nothing
+@if responce is 3 then do
+ @begin
+ @run stats in gametxt.ref
+ @closescript
+ @end
+
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You play the song. You will never forget this place.
+
+`k
+ @do `t15 is x
+ @do `t16 is y
+ @do `p36 is &map
+ @run stats in gametxt.ref
+ @closescript
+ @end
+
+ @if responce is 1 then do
+ @begin
+ @if `t15 is 0 then do
+ @begin
+ @show
+`\`\ `2Nothing happpens. Maybe you should try the other song...
+
+`k
+
+ @do goto item7
+ @end
+
+ @show
+`\`\ `2You play the song. You are moved by your performance!
+
+`k
+ @do x is `t15
+ @do y is `t16
+ @do map is `p36
+ @loadmap &map
+ @itemexit
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+
+ @end
+
+@clearblock 13 23
+@do move 1 13
+@show
+ `2No sound comes out, must be broke.
+
+`k
+@
+
+
+@#item8
+;momma's pie
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You messily chow down the berry pie.
+
+ After a satisfying belch, the pie is gone.
+
+@if `p02 less `p03 then do
+ @begin
+ @do `p02 + 50
+ @if `p02 > `p03 then `p02 is `p03
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+@end
+
+
+@key
+
+@#item11
+;talking to little girl
+@do `v01 is 1
+@label item11s
+@show
+`r0`c `r1 `0TALKING TO YOUR CHARGE `r0
+
+`2 You motion the girl to sit down so that you may speak with her.
+
+@do write
+`x`x
+@choice
+`%Where is your mother waiting for you again?
+What were you doing so far from town?
+`4Kill her.
+`%Nevermind
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"My mommy is waiting for me at the `4Red Dragon Inn`0. Please, lets hurry,
+ before she leaves!"
+
+`k
+ @do goto item11s
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"I was picking flowers and.. I wanna go home!" `2the girl cries.
+
+`k
+ @do goto item11s
+ @end
+
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `$"Come here, small one. I won't hurt you." `2you beckon.
+
+`2 The child slowly advances towards you. `0"Yes sir?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+End her life.
+Have mercy on her.
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ `$"I just wanted to... Straighten your dress. There, all better."
+
+`2 She thanks you. If only she knew how close you had come to...
+
+`k
+ @do `v01 is 3
+ @do goto item11s
+ @end
+
+ @show
+`\`\ `2You quickly crush the life out of her. In a few moments, it is over.
+
+`k `2Looking down at her lifeless body you are saddened. What ever posessed
+ you to do this awful thing?
+
+ `4ALIGNMENT GOES DOWN BY ONE.
+
+`k
+ @do `i11 is 0
+ @do `p07 - 1
+ @end
+
+
+
+@run stats in gametxt.ref
+
+
+@#ITEM17
+;Gloworm
+@clearblock 13 23
+@do move 1 13
+
+@if map is 1289 then do
+ @begin
+ @show
+ `2You bite into the little guy.
+
+ `$Your mouth is glowing!
+
+`k `%The area is much brighter now. Good thinking!
+
+`k
+
+@do map is 1285
+@loadmap 1285
+ @closescript
+ @end
+
+
+
+@show
+ `2You bite into the little guy.
+
+ `$Your mouth is glowing!
+
+`k `2Gee, it would be more fun in the dark, you can't really see it glow here.
+
+`k
+@
+
+@#item18
+;talking to hector
+@do `v01 is 1
+@label item18s
+@show
+`r0`c `r1 `0TALKING TO HECTOR `r0
+
+`2 You let the bird poke his head out to speak with you.
+
+@do write
+`x`x
+@choice
+How do you know the old woman wants to eat you?
+Taunt the bird
+Set Hector free
+Want a cracker?
+`%Nevermind
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"That witch has told me so, dozens of times! Awk! She kept me locked
+ up for months trying to fatten me up!"
+
+`k `$"Why did she 'enchant' you into a bird? Why does she hate you so much?"
+
+ `0"I threw stones at her shack with some friends. Now I'm paying for it!"
+
+`k
+ @do goto item18s
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `$"Say... Hector. You are gonna taste MIGHTY fine in the old woman's stew!"
+
+ `0"Awk! No! Please let me go!"
+
+`k `$"Haha... and lose my main course? I don't think so." `2you laugh.
+
+`k
+ @do goto item18s
+ @end
+
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `$"Little birdy wordy wanna cracker?" you ask.
+
+`0 "I most certainly do not!" `2Hector sqawks indignantly.
+
+`k
+ @do goto item18s
+ @end
+
+
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `$"Hector. If I let you go... Will you be a good bird?" `2you ask.
+
+`2 Hector violently nods his beak.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Throw Hector into the sky
+Put him back in your pouch
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `$Fly, Hector! Fly!" `2you exclaim as you toss Hector up.
+
+`k The bird sqawks with joy - and soon is gone.
+
+ `%ALIGNMENT GOES UP BY 20. 2 QUEST POINTS GAINED.
+
+`k
+ @do `i18 is 0
+ @do `t08 is 3
+ @do `p07 + 20
+ @do `p18 + 2
+ @run stats in gametxt.ref
+ @end
+
+ @show
+`\`\ `$"Well... I was just kidding, so get back into that bag!"
+
+`k
+ @do `v01 is 3
+ @do goto item18s
+ @end
+
+@run stats in gametxt.ref
+
+@#item19
+;Eating the apple
+@clearblock 13 23
+@do move 1 13
+@show
+ `2It tastes delicious.
+
+`k
+@
+
+@#item20
+;Using the map.
+@clearblock 13 23
+@do move 1 13
+@show
+ `2To use this item, press `0M`2 from the 'map' menu.
+
+`k
+@
+
+@#item22
+;Using the map.
+@clearblock 13 23
+@do move 1 13
+
+@if `i22 < 1 then goto fail22
+@if `i23 < 1 then goto fail22
+@if `i24 < 1 then goto fail22
+@if `i25 < 1 then goto fail22
+
+@show
+ `2You carefully fit all four pieces of this strange wand together...
+
+`k `%THE WAND COMES TO LIFE, BURNING IN YOUR HANDS. (YOU GET A QUEST POINT!)
+
+`k `0YOU ARE TELEPORTED TO A STRANGE AND WONDEROUS PLACE!
+
+ `2You discard the now burned out wand.
+`\`k `2Somehow you feel safe here - as though you were back in your mother's
+ womb and she was laying in a bed stomach down. `k
+ @do map is 154
+ @do x is 14
+ @do y is 12
+ @do `i22 - 1
+ @do `i23 - 1
+ @do `i24 - 1
+ @do `i25 - 1
+ @do `p18 + 1
+ @loadmap 154
+
+ @itemexit
+ @drawmap
+ @update
+ @closescript
+
+
+@label fail22
+@show
+ `2You can't seem to make it work. Pieces are missing it looks like.
+
+`k
+@
+
+@#ITEM28
+;Casting the fishing rod
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You practice casting. Can't wait for a fishing dock to try this out
+ on!
+
+`k
+@
+
+@#item40
+;Blue potion, heals 50
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You drink the blue liquid.
+
+@if `p02 less `p03 then do
+ @begin
+ @show
+ `%You feel better!
+
+ @do `p02 + 50
+ @if `p02 more `p03 then `p02 is `p03
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+@end
+
+@key
+
+
+@#ITEM41
+;Reading ma's letter
+@clearblock 13 23
+@do move 1 13
+@show
+ `2The letter reads:
+
+ `%Dear brother, Elle is with child. The tramp must be taught a lesson
+ only you can teach. Please bring what you need, and hurry.
+
+@if bitcheck `t12 6 0 then do
+ @begin
+ @bitset `t12 6 1
+ @do `p07 - 5
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+ @show
+ `4Your alignment goes down by 5.
+
+ @end
+@show
+`k
+@
+
+@#ITEM42
+;Talking to Laura and Edward
+@show
+`r0`c `r1 Talking with Laura and Uncle Edward `r0
+
+ `2Laura's pretty face is dirty but determined. Edward is panting
+ heavily.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Talk to Laura
+Talk to Uncle Edward
+Talk to nobody
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `$"Hey uh.. Laura. You got a boyfriend?" `2you casually
+ ask.
+
+`k `0"Not yet. Maybe after all this is over you can come over and talk
+ to me about it?"
+
+`k `$"You bet! What are friends for?" `2you grin.
+`\`k
+ @do goto item42
+ @closescript
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `2You feel this might be a bad idea. You sure?
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Yes, talk to 'em
+Good call
+ @if response is 2 then do
+ @begin
+ @do goto item42
+ @closescript
+ @end
+ @show
+`\`\ `$"Friend Edward! Why do you live with your niece?, anyway?" `2you ask,
+ carefully shielding your mouth with one hand.
+
+`k `0"Well - Laura's parents were killed by `4Dragon Tooth `0riders. They
+ burned down her whole village a few months ago. She survived... but
+ not without scars. Luckily I was there to help."
+
+`k
+ @do goto item42
+ @closescript
+ @end
+
+
+
+ @run stats in gametxt.ref
+
+ @#ITEM50
+ ;travel potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You empty the vial's contents down your throat.
+
+`k `2Your mind begins to spin... Streaks of light dance in your head
+ at your command. You are the ruler of this universe of brilliance -
+ and then... it all stops.
+
+`k
+@itemexit ;this will cause it to exit to the map screen directly after
+ ;finishing this .ref
+
+@do `p20 random 9 1
+
+@if `p20 is 1 then do
+ @begin
+ @do map is 1498
+ @do x is 49
+ @do y is 6
+ @end
+
+@if `p20 is 2 then do
+ @begin
+ @do map is 1271
+ @do x is 28
+ @do y is 11
+ @end
+
+@if `p20 is 3 then do
+ @begin
+ @do map is 379
+ @do x is 55
+ @do y is 4
+ @end
+
+@if `p20 is 4 then do
+ @begin
+ @do map is 1255
+ @do x is 58
+ @do y is 6
+ @end
+
+@if `p20 is 5 then do
+ @begin
+ @do map is 1576
+ @do x is 24
+ @do y is 4
+ @end
+
+@if `p20 is 6 then do
+ @begin
+ @do map is 1029
+ @do x is 27
+ @do y is 10
+ @end
+
+@if `p20 is 7 then do
+ @begin
+ @do map is 1358
+ @do x is 66
+ @do y is 3
+ @end
+
+@if `p20 is 8 then do
+ @begin
+ @do map is 1093
+ @do x is 44
+ @do y is 10
+ @end
+
+@if `p20 is 9 then do
+ @begin
+ @do map is 1035
+ @do x is 46
+ @do y is 11
+ @end
+
+
+@loadmap &map
+@drawmap
+@update
+
+@#item52
+;Red potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You slurp down the strange concoction.
+
+`k `%MAX HITPOINTS INCREASED BY FIVE.
+
+`k
+@do `p03 + 5
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+
+@#item53
+;Gold potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You slurp down the strange concoction.
+
+`k `%MUSCLE INCREASED BY TWO.
+
+`k
+@do `p04 + 2
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+
+@#item54
+;Silver potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You slurp down the strange concoction.
+
+`k `%DODGE INCREASED BY ONE.
+
+`k
+@do `p05 + 1
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+
+@#item55
+;White potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You drink the white liquid.
+
+@if `p02 less `p03 then do
+ @begin
+ @show
+ `%You feel better!
+
+ @do `p02 + 200
+ @if `p02 more `p03 then `p02 is `p03
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+@end
+
+@key
+
+@#item66
+;Koshi Snack
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You chomp down the strange cookie.
+
+ `%YOU ARE FULLY HEALED.
+
+ @do `p02 is `p03
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+@end
+
+@key
+
+
+@#NOMOREITEMS
+
diff --git a/xtrn/lord2/cnw/home.ref b/xtrn/lord2/cnw/home.ref
new file mode 100644
index 0000000000000000000000000000000000000000..ad05aca7fe46fc4b95858534677c4baf91f41a00
--- /dev/null
+++ b/xtrn/lord2/cnw/home.ref
@@ -0,0 +1,1022 @@
+; Script file HOME.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:12 2001
+
+@DECLARE sign3 000001235
+@DECLARE h13 000001310
+@DECLARE h4man 000001522
+@DECLARE garbage 000001712
+@DECLARE tie 000001797
+@DECLARE jeb 000001884
+@DECLARE jebbed 000002124
+@DECLARE nebbed 000002192
+@DECLARE h4tub 000002267
+@DECLARE h3mom 000002440
+@DECLARE h3kid4 000002639
+@DECLARE h3kid3 000002809
+@DECLARE h3kid2 000002989
+@DECLARE h3kid1 000003183
+@DECLARE kid 000003364
+@DECLARE h1man 000003548
+@DECLARE h1woman 000003725
+@DECLARE chip 000003896
+@DECLARE wall 000005443
+@DECLARE sign 000006352
+@DECLARE mybed 000006445
+@DECLARE hometoy 000006522
+@DECLARE dadsbed 000006587
+@DECLARE lake 000006682
+@DECLARE nothome 000006783
+@DECLARE empty 000006870
+@DECLARE oldman 000007008
+@DECLARE table 000007121
+@DECLARE dog 000007409
+@DECLARE dogwin 000008601
+@DECLARE jenkins 000008696
+@DECLARE random 000008820
+@DECLARE berry 000008974
+@DECLARE shome 000009275
+@DECLARE sarky 000009327
+@DECLARE treehouse 000010237
+@DECLARE home 000012074
+@DECLARE home2 000012126
+@DECLARE get_milk 000018818
+@DECLARE nothing 000020309
+@NOCHECK
+; End of .REF index
+
+; Updated by CNW to handle the java telnet app
+;
+;
+;
+@#sign3
+@do moveback
+@do saybar
+`%South StoneBrook
+@end
+@closescript
+
+@#h13
+@do moveback
+@do saybar
+`0Uncle Lenny`2: The Dragon Tooth clan is evil. Don't ever believe them!
+@do quebar
+`0Uncle Lenny`2: Don't be afraid.. they don't bother ya here in Stonebrook.
+
+;Yowli 12
+@#h4man
+@do `p70 is 12
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Yowli`2: When you are up in that tree fort, you cannot be attacked.
+@end
+
+@#garbage
+@do moveback
+@do saybar
+Geez, there is garbage everywhere. What a mess.
+
+@#tie
+@do moveback
+@do saybar
+Better jump into your A-wing and take these out!
+
+
+@#jeb
+@do moveback
+
+@if `v06 is 1 then do
+ @begin
+ @do saybar
+`0Jeb: `2You killed my dog!!! My boy is gonna kick yer butt!
+
+ @closescript
+ @end
+
+@do saybar
+`0Jeb: `2You killed my dog!!! My boy is gonna kick yer ass!
+
+@#jebbed
+@do moveback
+@do saybar
+The bed is dirty and unkept.
+
+@#nebbed
+@do moveback
+@do saybar
+This bed smells bad.
+
+
+
+;Sally 11
+@#h4tub
+@do `p70 is 11
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Old Sal`2: Stay outta my hot tub, youngin'!
+@end
+
+;Gei 10
+@#h3mom
+@do `p70 is 14
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`#Mother`2: My son Georgie is so odd. He always has to be different!
+@end
+
+;Nicki 9
+@#h3kid4
+@do `p70 is 9
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Nicki`2: My mother loves me the most!
+@end
+
+;Georgie 8
+@#h3kid3
+@do `p70 is 8
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Georgie`2: Someday I will find a horse with wings.
+@end
+
+;Nina 7
+@#h3kid2
+@do `p70 is 7
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`#Nina`2: I think Wendle likes me!! I'm gonna have a boyfriend!
+@end
+
+;Hattie 6
+@#h3kid1
+@do `p70 is 6
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Hattie`2: Who invited you in? Please leave my room.
+@end
+
+;Sherra 5
+@#KID
+@do `p70 is 5
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`#Little Girl`2: Mommeeeee! `0`n`2 is in my room again!
+@end
+
+;Wryn 3
+@#h1man
+@do `p70 is 3
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Wryn: `2Why hello `0`n`2. How is your mother?
+@end
+
+;Kess 4
+@#h1woman
+@do `p70 is 4
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Kess: `2Did you see that treehouse the boys built?
+@end
+
+
+@#CHIP
+@do `p70 is 13
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 1 then do
+@begin
+@closescript
+@end
+@do `p20 is 0
+@busy
+@do `v01 is 1
+@do move 1 1
+@show
+`r0`c `r1 Treehouse `r0
+
+ `2A streewise looking kid squints at you.
+
+@if l2chip.tmp exist true then do
+ @begin
+ @readfile l2chip.tmp
+`p20
+`p21
+ @do `s01 is getname `p20
+ @do `s02 is getname `p21
+ @show
+ `0"We are not letting in `%`s01`0 at `%`s02`0's request.. ok?"
+
+ @end
+
+@if l2chip.tmp exist false then do
+ @begin
+ @show
+ `0"Greetings, fellow member! What can I do for you today?"
+
+ @end
+
+@do write
+`x`x
+@choice
+Tip Chip off about somebody
+>`p20 0 Tell Chip to let `0`s01 `%back in
+Leave
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `0"Sure.. who should we watch out for?"
+ @chooseplayer `p22
+ @if `p22 is 0 then do
+ @begin
+ @show
+`k
+ @do goto chip
+ @end
+ @if `p22 is &playernum then do
+ @begin
+ @show
+ `0"But we like you around here!" `2Chip laughs.`\`\`k
+ @do goto chip
+ @end
+
+ @if l2chip.tmp exist true then delete l2chip.tmp
+ @writefile l2chip.tmp
+`p22
+&playernum
+ @show
+ `0"Understood...Thanks for the tip," `2Chip thanks as he slaps you on
+ the back.
+`\`k
+ @do goto chip
+ @end
+
+
+
+@if responce is 2 then do
+ @begin
+ @if l2chip.tmp exist true then delete l2chip.tmp
+ @show
+`\`\ `2You explain to Chip the situation. He finally agrees to allow
+ `0`s01`2 to come to the Treehouse.
+`\`k
+ @do goto chip
+ @end
+
+@drawmap
+@update
+@end
+
+@#WALL
+@do moveback
+@busy
+@do move 1 1
+@show
+`r0`c `r1 Tree House Banter `r0
+
+@if tree.txt exist false then do
+ @begin
+ @writefile tree.txt
+ `%Chip `2: `0We'll use birds to communicate! Yeah!
+ @end
+
+@if tree.txt exist true then do
+ @begin
+ @displayfile tree.txt
+ @end
+
+@show
+
+@
+(Do tricky stuff with name to determine how much they can type)
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter your secret message or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile tree.txt
+ `%`n`2 : `0`s03
+ @do trim tree.txt 17
+ @drawmap
+ @update
+
+
+
+
+@#sign
+@do moveback
+@do saybar
+<--- Stonebrook - This is East Stonebrook Village --->
+
+@#mybed
+@do moveback
+@do saybar
+Your bed. Hasn't been wet in years.
+
+@#hometoy
+@do moveback
+@do saybar
+Indoor plumbing, yeah!
+
+
+@#dadsbed
+@do moveback
+@do saybar
+Your mother and father's bed. Well, just mother's now.
+
+
+@#LAKE
+;Lake in the North village
+@DO SAYBAR
+`2The people of your town get water from here.
+
+@#NOTHOME
+;House that's not yours
+@DO SAYBAR
+`2This isn't your home.
+@do moveback
+
+@#EMPTY
+;House up north with no kid
+@DO SAYBAR
+`2There's crying from inside, the mother here recently lost her child
+@do moveback
+
+@#OLDMAN
+;Old man's home
+@DO SAYBAR
+`2That's the old man's home, you don't wanna go in there!
+@do moveback
+
+@#TABLE
+;Table at your house. has some money on it
+@do moveback
+@if bitcheck `t11 0 1 then do
+ @begin
+ @do saybar
+`2There is nothing on the table.
+ @closescript
+ @end
+
+@DO SAYBAR
+`2Wow, there are 5 gold pieces on the table! You take 'em.
+@do money + 5
+@bitset `t11 0 1
+
+@#DOG
+;Dog guarding the bigger house
+
+@if bitcheck `t12 1 1 then do
+ @begin
+ @do map is 230
+ @loadmap 230
+ @do x is 40
+ @do y is 13
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@busy
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2A chihuahua guards the entrance. Kill it? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is N then do
+ @begin
+ @if `07 < 5 then do
+ @begin
+ ;person is evil
+ @do saybar
+You brutally kick the dog as you leave.
+ @closescript
+ @end
+ @do saybar
+To hurt such a nice pup would be wrong!
+ @closescript
+ @end
+
+
+@fight
+;name
+Chihuahua
+;string said when you see him
+The dogs starts barking in an annoying high pitch.
+;power move kill string
+You kick the dead carcas off the porch.
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+nips you in the leg|2
+bites you|3
+wrestles with your boots|1
+NONE|NONE
+NONE|NONE
+;defense
+0
+;gold reward
+3
+;experience
+2
+;hit points
+5
+;if win: ref file|name or NONE
+HOME.REF|DOGWIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+
+@#DOGWIN
+@do saybar
+The porch is now wide open!
+;change a var here
+@bitset `t12 1 1
+
+@#JENKINS 14
+;Mrs. Jenkins home
+@DO SAYBAR
+`2That's miss Jenkin's home, but you didn't hear that from me.
+@do moveback
+
+
+@#random
+;this is the stuff that happens randomly while on the home screen
+@do saybar
+You hear a bird chirp merrily. It's so very nice around here.
+
+@#berry
+; stuff for berry patch near house
+@do moveback ;this means go back one space.. You can't move through a
+;berry patch!
+@if `i01 more 0 then do
+ @begin
+@do saybar
+Nah, you already have some with you.
+ @closescript
+ @end
+@do saybar
+You carefully pick some berries.
+@do `i01 + 1
+
+
+@#SHOME
+@offmap
+@do moveback
+@do `v01 is 1
+@label Sarky
+@do move 1 1
+@show
+`r0`c `r1`% Good old Wendle Hightree's house `r0
+`\ `2This is your good friend Wendle's house. His parents are really nice and
+ let you stay over all the time. He greets you at the door.
+
+ `0"Hey man, how's it going?"
+
+@DO WRITE
+`x`x
+@CHOICE
+Talk with Wendle for a while
+Take off
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"Pretty good, was just getting some berries for Mom. How's it been with
+ You?"
+
+`k `0"Great man, just enjoying the weather lately. I can't wait to get a chance
+ to travel and have adventure though. I hear cities like PortTown and
+ Flagcity are just great! I don't know though my Mom just doesn't want me to
+ leave..."
+
+`k `$"Don't worry man someday we'll get a chance to go have adventures like we
+ always said we would. It'll be great!"`%
+`\`k
+ @do goto sarky
+ @END
+
+@drawmap
+@update
+@end
+
+@#TREEHOUSE
+@offmap
+@do moveback
+@do `v01 is 1
+@do `s01 is SECRET
+@if l2chip.tmp exists true then do
+ @begin
+ @readfile l2chip.tmp
+`p20
+`p21
+ @if `p20 is &playernum then do
+ @begin
+ @do `s01 is getname `p21
+@do move 1 1
+ @show
+`r0`c `r1`% The TreeHouse `r0
+`\ `2This is the big treehouse one of the nice townfolk made. Many a kid
+ come to hang out & play here, sometime people even camp out here and
+ party late night. It's a really great place... if you can get in.
+
+ `$"Throw down the ladder kids, I wanna come up!" `2you yell. But instead
+ of asking for a password or something they start throwing rotten fruit at
+ you.
+
+`k `0"Get the hell out of here, `%`n`0! We heard about
+ the awful things you've done from our friend `%`s01`0!" `2one
+ kid yells.
+
+ Guess you'd better find someplace else to sleep.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @end
+
+@if l2tree.dat exists true then do
+ @begin
+ @readfile l2tree.dat
+`s01
+ @end
+@do move 1 1
+@show
+`r0`c `r1`% The TreeHouse `r0
+`\ `2This is the big treehouse one of the nice townfolk made. Many a kid
+ came to hang out & play here, sometime people even camp out here and
+ party late night. It's a really great place... if you can get in.
+
+ A voice shouts down from above. `0"What's today's password, kid?!"
+
+@do write
+ `2Your reply:`x
+@do readstring 50 NIL `s02
+@do upcase `s01
+@do upcase `s02
+
+@if `s02 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Come on in!" `2a high pitched voice yells. A rope ladder is thrown
+ over the side.
+
+`k
+@loadmap 232
+@do map is 232
+@do x is 30
+@do y is 10
+@drawmap
+@update
+@closescript
+@end
+
+@show
+`\`\ `0"Nice try, loser!" `2a frenzied voice screams. The kids start
+ throwing rotten apples at you!
+
+`k
+@drawmap
+@update
+
+@#HOME
+@offmap
+@do moveback
+@do `v01 is 1
+@label HOME2
+@CLEAR SCREEN
+;`r0`c `r1`% MOTHERS HOUSE `r0
+@DO MOVE 1 1
+@show
+ `r1`% MOTHERS HOUSE `r0
+
+@if `p06 more 2 then do
+ @begin
+@dataload taxes.idf &playernum `p28
+ @do write
+`x`x
+ @choice
+Whatup ma.
+Make me another pie! Now!
++`t17 1 -`t17 3 Ma, no more games. Why do the Koshi know me?
+Home sweet home
+>`p28 0 Help me with my taxes
+Leave
+@do move 1 11
+ @if responce is 5 then do
+ @begin
+ @dataload taxes.idf &playernum `p28
+ @show
+`\`%`N `2: `$"Mommy, I owe money for taxes, can you help me out?"
+`l`l`k
+ @if `p39 < 22 then do
+ @begin
+ @if bitcheck `t19 7 1 then do
+ @begin
+ @show
+`\`0 "Sorry s&son, I already helped you out, you should learn a lesson
+ here and don't buy those koshi snacks anymore!"
+ `l`l`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`0 "Ok, here s&son, take `$`p28 `0gold to pay your taxes, don't spend
+ spend it on `%koshi snacks `0now."
+ `l`l`k
+ @do money + `p28
+ @bitset `t19 7 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`0 "Sorry s&son, I cant help you anymore with that. I can no longer
+ support the both of us."
+ `l`l`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if responce is 4 then do
+ @begin
+ @do `p69 is 0
+ @show
+`0 "Yes, this is your home sweety. Welcome back!"
+
+`k
+ @do goto home
+ @end
+
+ @if responce is 1 then do
+ @begin
+ @if bitcheck `t17 3 1 then do
+ @begin
+ @show
+`0 "Not much. You finally know the truth about your father!"
+
+`k
+ @do goto home
+ @end
+
+ @show
+`0 "No news! Your father is still dead, you're still a delinquent."
+
+`k
+@do goto home2
+ @end
+
+ @if responce is 3 then do
+ @begin
+ @show
+ `0"You've seen the Ko-koshi?" `2you mother stammers.
+
+`k `$"Yes! Now tell me all woman!"
+
+`k
+`c `r1 `%The truth about your past `r0
+
+ `0"Your father's name was Ransom. He traveled the world posing as a human
+ to understand it. We fell in love - secretly. Back then people would kill
+ Koshi on sight. He always hid his wings carefully and visited me at night
+ for my protection."
+
+ `k `$"So, basically I'm a bastard then is what you're saying. Is he
+ really dead? How much have you lied to me about?"
+
+`k `0"I did it for you. Yes, he is dead. One day while at the market place
+ someone saw him for what he was. He was burned at the stake."
+
+ `$"Did they know about you?"
+
+`k `0"I..I was there but I was too afraid to proclaim myself his lover.."
+
+`2 Your mother bursts into tears.
+
+ `$"It's ok mom.. there was nothing you could have done. They would have
+ burned you with him and then you wouldn't have been able to raise the
+ strapping young s&man you did."
+
+`k `0"We were so relieved when you were not born with wings like other
+ Koshi.. but you still had Koshi eyes. It is still in you."
+
+ `$"Very well. I must return and ask Dahma what must be done."
+
+`k
+ @bitset `t17 3 1
+ @do goto home
+ @end
+
+
+ @if responce is 2 then do
+ @begin
+ @if `i08 more 0 then do
+ @begin
+ @show
+`2 You politely ask that she cook another pie for you.
+
+ `0"Another pie? But hun, you already have one!" `2she giggles.
+
+`k
+ @do goto home2
+ @end
+
+ @if `i01 is 0 then do
+ @begin
+ @show
+`2 You demand that she cook for you.
+
+ `0"Ok, but you better grab some berries first." `2
+
+`k
+ @do goto home2
+ @end
+ @if `i03 is 0 then do
+ @begin
+ @show
+ `0"You have berries but... I need some more milk first!" `2
+
+`2 You sigh. `$"Ok ma. But any more stunts like this and you're going
+ STRAIGHT to a home for the aged!"
+
+`k
+ @do goto home2
+ @end
+ @do `i01 - 1 (take away berries and milk and give pie)
+ @do `i03 - 1
+ @do `i08 + 1
+ @do `p08 + 1 ;give a charm point, you're so nice to mommy
+ @show
+ `0"You got it, baby!" `2she laughs.
+
+`k `2A half hour later, you have a big juicy pie in your pocket.
+
+`k
+;<--Added by CNW-->
+ @do `p21 is `v05
+ @do `p21 / 48
+ @do `p11 - `p21
+ @do goto home2
+ @end
+
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @end
+@if `p06 is 2 then do
+ @begin
+
+ @if `i03 is 0 then do
+ @begin
+ @do `s01 is breasts
+ @if `v06 is 1 then `s01 is cows
+ @show
+ `0"Where is my milk? You know my `s01 are simply too old to produce!"
+
+ `2Completely disgusted, you figure you better go find some milk.
+
+`k
+ @end
+ ;has given the berries to mom already
+ @if `i03 more 0 then do
+ @begin
+ @do `i03 - 1 (take one away)
+ @do `i08 + 1 (give them a pie)
+ @do `p06 + 1 (advance this, so we know completed the 1st quest?)
+ @do `p18 + 1
+ @show
+ `0"Great! You brought my milk! Having kids is finally paying off!"
+
+`% YOU GET MOMMA'S PIE.
+
+`k `%You get a quest point!
+
+`k
+ @end
+
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p06 is 0 then do
+ @begin
+ @show
+ `2Your mother greets you warmly. `0"Hello, child! I was hoping you could
+ go pick me some wildberries so I can make you some pie!"
+
+ `2Your mother looks on hopefully.
+
+@do write
+`x`x
+@do `v01 is 1
+ @choice
+Sure, whatever. I want that pie!
+Naw, git 'em yourself, old bag. I'm going to town!
+>`i01 0 Why, funny you should ask for berries, cuz guess what, I've got some!
+@
+@if responce is 1 then do
+ @begin
+ @show
+
+
+ `0"You are such a good s&son! Go find me some berries!"
+
+ @do `p06 is 1
+ @key
+ @end
+
+@if responce is 2 then do
+ @begin
+ @if `v06 is 0 then do
+ @begin
+ @show
+
+
+ `0"Dickhead! I'll just forget this ever happened, now scram!"
+
+
+ `4CHARM GOES DOWN BY ONE.
+
+ @do `p08 - 1
+ @end
+
+ @if `v06 is 1 then do
+ @begin
+ @show
+
+
+ `0"Jerk! I'll just forget this ever happened, now get out!"
+
+
+ `4CHARM GOES DOWN BY ONE.
+
+ @do `p08 - 1
+
+ @end
+
+
+ @key
+
+
+ @end
+
+
+@if responce is 3 then do
+ @begin
+ @show
+
+
+ @do goto get_milk
+ @end
+@drawmap
+@update
+@closescript
+ @end
+`2You strut into your cottage and quietly close the door behind you.
+
+`0"Back so soon?"`2 your mother laughs.
+
+@do `v01 is 1
+
+@do write
+`x`x
+@choice
+>`i01 0 Yes! I have the berries! Make my pie!
+=`i01 0 Sorry mother, I have no berries, I'm basically a failure.
+Shrug and leave.
+-`t11 1 Attempt to strangle her.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@label get_milk
+@show
+ `2You give your mother the berries. She is very pleased!
+
+ `0"Lovely! Lovely! Now... Could you go to town and buy us some milk?"
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Sure mom. That pie better be ready when I come back!
+Whatever! Why do you always have to treat me like a slave?
+This sucks, why can't we afford our own cow?
+@
+@do `i01 - 1
+@do `p06 is 2
+@show
+
+
+ `0"Thanks hun! Now hurry along!"
+
+ `2You sigh. There is only so much daylight, so you better get
+ going.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 2 then do begin
+ @begin
+@show
+ `0"Silly! We need those berries to make you your pie, now don't we?"`2 she
+ giggles strangely. You wonder what other plants Ma has been getting into...
+
+ @end
+
+@if responce is 3 then do begin
+ @begin
+@show
+ `$"Look ma, I got things to do, ok?"`2
+
+ She looks on, bewildered at the prospect.
+
+ @end
+
+@if responce is 4 then do begin
+ @begin
+@show
+ `$"Ma. Come here."
+
+ `2You gently caress her neck. Her contented sigh turns to a look of
+ confusion as you begin to apply pressure.
+
+`k `0"What are you.. awk!" `2she gasps. Her eyes begin to bug out a bit,
+ her tongue flaps around crazily.
+
+`k As her body becomes limp begin to feel sorry for her and decide to
+ let her live. She did birth you, you know.
+
+ `%Note from Seth: `0My God!! You are a jerk!!
+ @bitset `t11 1 1
+ @do `p07 - 1
+ @end
+
+
+@show
+`k
+@drawmap
+@update
+@#nothing
+
+
+
diff --git a/xtrn/lord2/cnw/hongcfg.ref b/xtrn/lord2/cnw/hongcfg.ref
new file mode 100644
index 0000000000000000000000000000000000000000..8d93fae98ce8cef441b2f3395f64844d7d565474
--- /dev/null
+++ b/xtrn/lord2/cnw/hongcfg.ref
@@ -0,0 +1,142 @@
+; Script file HONGCFG.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:20 2001
+
+@DECLARE chan 000000752
+@DECLARE chan1 000000804
+@DECLARE hongwall 000002472
+@NOCHECK
+; End of .REF index
+
+These Ref's have been left out of the main ref because the sysop may want
+to edit some of the settings in these refs. The Ref's included in this file
+are for Chan's underground, incase you did the manual install of the items
+and wish to assign them new numbers, and the chat wall is also included
+incase you want to enable clean mode on it. Instructions on how to change
+these settings are located where you see a ****. It will tell you how to
+change them. Please do not change anything but what is suggested, you could
+mess up the IGM.
+
+@#Chan
+@offmap
+@do moveback
+@do `v01 is 1
+@label chan1
+@show
+`r0`c `r1 Chan's Underground `r0
+
+`2 `4Chan's`% eyes watch your every move. He has a harsh look on his face.
+`0 "You buy something or go the hell out!"`2says Chan coldly.
+
+@do write
+`x`x
+@choice
+Buy something from `4Chan`%
+Ask about his items
+Leave before `4Chan`% shoots you
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+ @clearblock 8 14
+ @do move 1 7
+;****These are the item numbers if you wish to change them do it here****
+;****I ask that you change only the item numbers and nothing else ****
+ @buymanager
+ 78
+ 55
+ @end
+
+@if responce is 2 then do begin
+ @begin
+@show
+
+ `2Note From author: If your sysop didn't install this IGM properly
+ `2the new items below will not be avaliable.`\`\`k
+
+ `0"Ak-47 very good, made in China, very good. Auto fire very good
+ `0very good for drive by. Hasa 7.62mm bullet make big hole in people."
+ `0Cost ahhhhh `$60,000 `0dollar."
+
+`k
+
+`0"`@Flame Thrower `0make big ball of fire like dragon. Cook anythin'
+ `0alive like egg roll. Very good ahhh value only `$70,000 `0dollar."
+
+`k
+
+ `0"`450 caliber machine gun `0very big gun, send weak man flying like
+ `0grasshopper. Kill everything, nothing live. Can cut down tree no need
+ `0chainsaw! Very expensive, very good, costa `$1,000,000 `0dollar."
+
+`k
+
+ `0"`!Kevlar Vest `0good stop bullet, very, very good protection only
+ `0`$200,000 `0dollar." I no steal it from police station last week, ahhh
+ `0 bought in Thiland."
+
+`k
+
+ "`%White Potion`0 very good if hurt. Fix ahhh `2200`0 hitpoint. Only`$ 300
+ `0dollar."`\`\`k
+ @end
+
+
+
+@if responce not 3 then goto chan1
+@drawmap
+@update
+
+@#HONGWALL
+@do moveback
+@busy
+@show
+`r0`c `r1 HONG KONG STUDIO v1.04 MESSAGE BOARD `r0
+
+ `4Chan`2 :`0 If you like this IGM E-mail me at Chan69@juno.com
+@if hongwall.txt exist false then do
+ @begin
+ @writefile hongwall.txt
+ `#Ching Lee `2: `0Leave message but no say bad words. I get in trouble!
+ `$Tang Mai `2: `4Me love you long time, for a little money!
+ `%Wang `2: `0Wise man once say there wisdom in nature.
+@end
+
+@if hongwall.txt exist true then do
+ @begin
+ @displayfile hongwall.txt
+ @end
+
+@show
+
+@
+(Do tricky stuff with name to determine how much they can type)
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter a special message or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+;****Comment the next line in if you don't want your users writing****
+;****foul language on the wall, do not change anything else ****
+;@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile hongwall.txt
+ `%`n`2 : `0`s03
+ @do trim hongwall.txt 16
+ @drawmap
+ @update
+
+
+
diff --git a/xtrn/lord2/cnw/hongkong.ref b/xtrn/lord2/cnw/hongkong.ref
new file mode 100644
index 0000000000000000000000000000000000000000..fd1b83e2c71403a632b29e8b1c620845c54f30bc
--- /dev/null
+++ b/xtrn/lord2/cnw/hongkong.ref
@@ -0,0 +1,1145 @@
+; Script file HONGKONG.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:20 2001
+
+@DECLARE mybank 000001060
+@DECLARE pass2 000003890
+@DECLARE done 000005222
+@DECLARE enter 000005255
+@DECLARE enter5 000005407
+@DECLARE done 000006398
+@DECLARE letmein 000007014
+@DECLARE done 000007112
+@DECLARE tang 000007126
+@DECLARE tangw 000008003
+@DECLARE enter1 000008468
+@DECLARE enter4 000008701
+@DECLARE doorguard 000009624
+@DECLARE startg 000009653
+@DECLARE sign 000015818
+@DECLARE wdoor 000016130
+@DECLARE sossign 000016200
+@DECLARE storer 000016320
+@DECLARE wang 000016415
+@DECLARE carpic 000017671
+@DECLARE car 000018237
+@DECLARE nomore 000019365
+@DECLARE cardam 000019432
+@DECLARE enter3 000021497
+@DECLARE gate 000021843
+@DECLARE sneak 000021949
+@DECLARE clean 000022145
+@DECLARE bing 000022289
+@DECLARE scribestart 000022338
+@DECLARE keepwriting 000023264
+@NOCHECK
+; End of .REF index
+
+While some scripts may have been borowed from other IGMS all ideas and
+writing are by Chan, first distributed in October 1997.
+
+@#MYBANK
+;team treasury
+@do moveback
+@do `p20 is 0
+@if tres5.dat exist true then do
+ @begin
+ @readfile tres5.dat
+`p20
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Money in Safe `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawal.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile tres5.dat
+`p20
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete tres5.dat
+ @writefile tres5.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the safe.
+
+//if not owner, lets notify him
+
+@readfile hong3.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `4H`@ong `4K`@ong `4S`@tudio `0Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the safe.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile tres5.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete tres5.dat
+ @writefile tres5.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile hong3.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `4H`@ong `4K`@ong `4S`@tudio `0Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2in the safe.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the safe.
+ @drawmap
+ @update
+ @closescript
+
+
+ @end
+
+@#pass2
+@if hong3.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@if &lastx is 62 then do
+ @begin
+ @closescript
+ @end
+
+@readfile hong3.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @do saybar
+`$Ching Lee: `0No one allowed over there.. dat boss's place.
+
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 Entrance To The Office `r0
+
+`2 `2Ching Lee notices you. `0"Hey! What you do'n over `dere?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok, me sorry go in!"`\`\`k
+ @do x + 2
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Ching Lee Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 try to get into private office by saying
+`0"`s03"`2. `2I `bNO`2 let him in!
+
+ @show
+`\`\ `2Ching Lee laughs at you and tells you to go away.`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+
+
+ @#done
+ @drawmap
+ @update
+
+@#enter
+@DO MOVEBACK
+ @IF `v06 is 1 then do
+ @BEGIN
+ @DO GOTO ENTER5
+ @END
+
+@IF `v06 IS 0 THEN DO
+ @BEGIN
+ @DO GOTO ENTER5
+ @END
+
+@#enter5
+@do moveback
+@offmap
+@if hong3.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `4H`@ong `4K`@ong `4S`@tudio`2 - money making opportunity. Buy now, only ask
+ `$$20,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Purchase it.
+<&money 20000 Sigh wistfully and leave since you don't have enough.
+>&money 19999 Leave.
+@
+
+@if response is 1 then do
+ @begin
+ @if hong3.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile hong3.dat
+&playernum
+NONE
+ @do money - 20000
+ @do addlog
+ `0`n `2buys `4H`@ong `4K`@ong `4S`@tudio`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, business man! `r0
+`\`2 Nice job! You now own this establishment!
+
+ `2Enjoy your new business.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile hong3.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete hong3.dat
+ @do addlog
+ `4H`@ong `4K`@ong `4S`@tudio`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+;let him in
+@readfile hong3.dat
+`p20
+`s01
+@
+
+@if `p20 is &playernum then do
+ @begin
+ @do x is 60
+ @do y is 17
+ @do map is 713
+ @loadmap &map
+ @do goto done
+ @closescript
+ @end
+@label letmein
+ @do x is 60
+ @do y is 17
+ @do map is 711
+ @loadmap &map
+ @do goto done
+ @#done
+
+
+@#Tang
+;the whore in Hong Kong Studio's lobby
+@if sexmale is 0 then do
+ @begin
+ @do goto TANGW
+ @closescript
+ @end
+@if sexmale is 1 then do
+@do `p20 random 9 1
+@if `p20 is 1 then saybar
+`$Tang Mai: `4Me Love You Long Time ;)!
+@if `p20 is 2 then saybar
+`$Tang Mai: `4$20 go long way in Hong Kong!
+@if `p20 is 3 then saybar
+`$Tang Mai: `4Hong Kong hasa bes girls in Town!
+@if `p20 is 4 then saybar
+`$Tang Mai: `4$20, $30, $50 depends what want!
+@if `p20 is 5 then saybar
+`$Tang Mai: `4You Want Good Time?
+@if `p20 is 6 then saybar
+`$Tang Mai: `4Hong Kong very safe no kill in whore house.
+@if `p20 is 7 then saybar
+`$Tang Mai: `4China girls very clean no `bVD `4at Hong Kong!
+@if `p20 is 8 then saybar
+`$Tang Mai: `4We no sell illegal weapon in basement!
+@if `p20 is 9 then saybar
+`$Tang Mai: `4You good customer! You been laid `@`p34 `4times!
+
+@#TANGW
+@do `p20 random 5 1
+@if `p20 is 1 then saybar
+`$Tang Mai: `4We no sell illegal weapon in basement!
+@if `p20 is 2 then saybar
+`$Tang Mai: `4Only China girl work here you no get job!
+@if `p20 is 3 then saybar
+`$Tang Mai: `4Tell boyfriend about good time at Hong Kong ha ha ha!
+@if `p20 is 4 then saybar
+`$Tang Mai: `4Hong Kong very safe no kill in whore house.
+@if `p20 is 5 then saybar
+`$Tang Mai: `4What kind girl you think I am? Go way!
+
+
+@#ENTER1
+;Ching Lee The Manager of Hong Kong
+@DO MOVEBACK
+@BUSY
+@dataload hong2.idf &playernum `p20
+ @IF `p20 IS 1 THEN DO
+ @BEGIN
+ @DO GOTO ENTER3
+ @END
+
+@IF `p20 IS 0 THEN DO
+ @BEGIN
+ @DO GOTO ENTER4
+ @END
+
+@#ENTER4
+@DO `v01 is 1
+@SHOW
+`r0`c `r1 Front Desk `r0
+
+ `0"Where are the whores?" `2you ask.
+ `0"No whore here we sell ahh... picture" `2says Ching Lee
+
+ `2Oh no what if the rumors about this place aren't true!
+ `2What if it isn't a whore house?? You have to think of something
+ `2smart to say!
+
+@DO WRITE
+`x`x
+@CHOICE
+YA RIGHT, I know what you people do here let me in you whore!
+Emmm I'm sorry I have the wrong building...
+@if responce is 1 then do
+ @BEGIN
+ @do x is 60
+ @do y is 15
+ @do map is 713
+ @datasave hong2.idf &playernum 1
+ @show
+`\`\`0"Ok me let you in but you no tell police ok?`2 says Ching Lee `\`\`k
+`\`\`0"Ok no problem I won't tell" `2you relpy`\`\`k
+ @loadmap &map
+ @drawmap
+ @update
+ @end
+@If responce is 2 then do
+ @BEGIN
+ @drawmap
+ @update
+ @do saybar
+`2You walk out feeling real stupid
+ @closescript
+ @end
+
+
+@#doorguard
+@do moveback
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+
+@if hong3a.dat exist false then do
+ @begin
+ @writefile hong3a.dat
+200
+0
+ @end
+
+
+@if hong3.dat exist false then do
+ @begin
+ @do saybar
+`0"Get out! The whore house been sole!" `2Ching Lee commands.
+ @closescript
+ @end
+
+@readfile hong3.dat
+`p20
+`s01
+@
+
+ @readfile hong3a.dat
+`p26
+`p27
+ @
+
+
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+`$Ching Lee:`#Tell all friends about good time at Hong Kong |)!
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Running your "business" `r0
+
+ `2Ching Lee stops filing her nails when she sees you.
+ `0"What you want boss?" `2Ching Lee smiles
+
+@do write
+`x`x
+@choice
+Set password to private office. (currently is `0`s01`%)
+Ownership options
+Set whore fee (currently is at `$$`p26`%)
+Take money from register
+See Owner's Manual
+Leave
+@
+@if responce is 5 then do
+ @begin
+ @Show
+
+`2 Congratulations! You are now the owner of your very own whorehouse.
+ The following are some of the things that you, as the owner of this
+ establishment should know.`\`\`k
+ Since you are the owner and make all the money that your whores "earn"
+ you will not be allowed to "use" them. This is to keep a balance between
+ the players and the owner. The players will gain skill points while the
+ owner will gain gold. Suggested whore rates are from `$$200 `2to `$$2000`2.`\`\`k
+ There are no whores for female characters, sorry Ladies. It would have
+ taken much too long to put them in. So I suggest that the owner of `4H`@ong
+ `4K`@ong `4S`@tudio `2be female to keep the game fair.`\`\`k
+ Since you are the owner I should let you know that the car outside may
+ be fun to smash up, but be careful there is a 1 in 8 chance it will
+ explode and hurt you real bad.`\`\`k
+ Well that's just about it. Hope you have lots of fun!`\`\`k
+ `4Chan`\`k
+ @do goto startg
+ @end
+@if responce is 4 then do
+ @begin
+ @if `p27 < 1 then do
+ @begin
+@show
+`\`\ `0"Before look in register.. lemmie tell you business has
+ beena little slow." `2Ching Lee says to you in fear.
+
+`k `4"How slow?" `2you demand.
+
+`k `0"We not have single customer since you last here, This is no
+ good!" `2Ching Lee states sadly
+
+`k
+ @do goto doorguard
+ @end
+
+
+ @readfile hong3a.dat
+`p26
+`p27
+ @
+ @do money + `p27
+ @do delete hong3a.dat
+ @writefile hong3a.dat
+`p26
+0
+ @
+
+ @show
+`\`\ `2Sure, we make `$$`p27`2, here ya go!
+
+`k
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You sure we no pay people for China girls?.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, we will.
+Na, your right Ching that was pretty dumb!
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `0"You very stupid" I NO pay people to be with China girls.
+
+ @do goto doorguard
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ Ching Lee winks at you for your show of intelligence.
+
+ @do goto doorguard
+
+ @end
+
+ @do goto doorguard
+ @end
+ @readfile hong3a.dat
+`p26
+`p27
+ @
+ @do `p26 is `v40
+ @do delete hong3a.dat
+ @writefile hong3a.dat
+`p26
+`p27
+ @
+ @do goto doorguard
+ @end
+
+
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$10000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your whore house - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your whore house to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your whore house - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete hong3.dat
+ @writefile hong3.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of `4H`@ong `4K`@ong `4S`@tudio to you.
+ Password to enter office will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `4H`@ong `4K`@ong `4S`@tudio to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transferred. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your whore house back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your whore house - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete hong3.dat
+ @do delete hong3a.dat
+ @do money + 10000
+ @show
+`\`\ `%WHORE HOUSE SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `4H`@ong `4K`@ong `4S`@tudio`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What you want for new password?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete hong3.dat
+ @writefile hong3.dat
+&playernum
+`s01
+@show
+`\`\ `0"OK, Me no forget it!" `2Ching Lee promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+
+@#sign
+@do moveback
+
+ @if hong3.dat exist false then do
+ @begin
+ @do saybar
+`4H`@ong `4K`@ong `4S`@tudio `%- For sale cheap, ask inside.
+ @end
+
+@if hong3.dat exist true then do
+ @begin
+@readfile hong3.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+
+@#WDOOR
+ @do saybar
+`2This door is locked try the other one.
+
+@#sossign
+@do moveback
+@do saybar
+`0Sign: `2<--- Sosen Village, 10 miles | `4H`@ong `4K`@ong `4S`@tudio`2 --->
+
+
+@#storer
+@do moveback
+@do saybar
+`0Leave the storeroom alone, or `4Chan`0 will shoot you.
+
+@#Wang
+@offmap
+@do moveback
+@show
+`r0`c `r1 Wang's Egg Roll Delivery `r0
+
+ `0"I go lotsa places today to deliver egg roll.
+ `0Where you want go?"
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+GreenTree
+PortTown
+BoneTown
+FlagCity
+Sosen Village
+ArrisVille
+Stonebrook
+I don't want to go anywhere!
+@if response not 8 then do
+ @begin
+@show
+`\`\ `0"Ok les go!"
+
+`k `2You jump in the back of his truck and sit on a box of egg rolls.
+
+ `0"Ok we here I make delivery you get out" says Wang.
+`\`k
+@if response is 1 then do
+ @begin
+ @do x is 10
+ @do y is 15
+ @do map is 1356
+ @end
+@if response is 2 then do
+ @begin
+ @do x is 38
+ @do y is 16
+ @do map is 956
+ @end
+@if response is 3 then do
+ @begin
+ @do x is 53
+ @do y is 18
+ @do map is 1572
+ @end
+@if response is 4 then do
+ @begin
+ @do x is 71
+ @do y is 19
+ @do map is 1092
+ @end
+@if response is 5 then do
+ @begin
+ @do x is 36
+ @do y is 5
+ @do map is 456
+ @end
+@if response is 6 then do
+ @begin
+ @do x is 19
+ @do y is 9
+ @do map is 523
+ @end
+
+@if responce is 7 then do
+ @begin
+ @do x is 30
+ @do y is 9
+ @do map is 1359
+ @end
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+
+
+@#carpic
+ @pauseoff
+ @show
+[40m[2J[40m
+
+[0;31mThe Abandoned Car
+
+
+[13C[33m����������������
+[11C[1;36m��[43m [0;33;46m� [40m�[1;36;47m������[43m �[40m�
+[8C����[43m [0;33;46m�[1;36m���� [D[0;33m�[1;36;47m������[0;33;47m�[43m [1;36;40m���
+[5C[31;41m�[43m [0;30;43m� � [1;33;40m [D
+ [0;30;47m�[37;43m����[33;40m���[37;43m��������������������[33;40m���[37;43m���[30;47m�[40m
+[5C[33m���[1;30m�[43m��[0;33m��������������������[1;30m���[0;33m���
+[8C[1;30m���[20C���
+`\`\`k
+@#Car
+@busy
+@do moveback
+@datanewday car.idf
+@dataload car.idf &playernum `p20
+@IF `p20 IS 1 THEN DO
+ @BEGIN
+ @drawmap
+ @update
+ @do saybar
+`2You've done enough damage for one day.
+ @end
+@if `p20 not 1 then do
+ @begin
+ @routine carpic
+@show
+`r0`c `r1`% The Abandoned Car `r0
+
+`0 "Look at this rusting old piece of crap" `2you think to yourself.
+`2 Many other people have destroyed this car in the past, but for some
+`2 reason it magically reassembles itself every night at midnight.
+`2 Do you want to cause some damage to it?
+
+
+ @do write
+`x`x
+;@do `v01 is 1
+@choice
+Na, I'm not into that vandalism stuff
+Yeah! I'm going to send it to hades!
+@if responce is 1 then do
+ @begin
+ @drawmap
+ @update
+ @do saybar
+`2You leave the car alone.
+ @closescript
+ @end
+
+@if responce is 2 then do
+@datasave car.idf &playernum 1
+@pauseon
+@show
+`c
+`2 You take out your s&weapon `2and start the destruction...`\`\
+
+`l`l`l `4SMASH!!!`l`l`l `4SLAM!!!`l`l`l `4CRASH!!!`l`l`l `4BAM!!!`l`l`l`\`\`k
+ @begin
+ @do goto CARDAM
+ @closescript
+ @end
+
+
+@#NOMORE
+@do saybar
+`2You have done enough damage for today.
+
+@#CARDAM
+@do `p20 random 9 1
+@if `p20 is 1 then do begin
+@begin
+ @show
+ `2You broke off a door!`\`\
+ `%YOU GAIN 150 EXPERIENCE!`\`k
+ @do `p01 + 150
+ @drawmap
+ @update
+ @end
+@if `p20 is 2 then do begin
+@begin
+ @show
+ `2You smashed in the headlights!`\`\
+ `%YOU GAIN 50 EXPERIENCE! `\`k
+ @do `p01 + 50
+ @drawmap
+ @update
+ @end
+@if `p20 is 3 then do begin
+@begin
+ @show
+ `2You smashed in the tail lights!`\`\
+ `%YOU GAIN 50 EXPERIENCE! `\`k
+ @do `p01 + 50
+ @drawmap
+ @update
+ @end
+@if `p20 is 4 then do begin
+@begin
+ @show
+ `2You shattered 2 windows!`\`\
+ `%YOU GAIN 105 EXPERIENCE! `\`k
+ @do `p01 + 105
+ @drawmap
+ @update
+ @end
+@if `p20 is 5 then do begin
+@begin
+ @show
+ `2You broke the windshield!`\`\
+ `%YOU GAIN 100 EXPERIENCE! `\`k
+ @do `p01 + 100
+ @drawmap
+ @update
+ @end
+@if `p20 is 6 then do begin
+@begin
+ @show
+ `2You slashed all the tires!`\`\
+ `%YOU GAIN 101 EXPERIENCE! `\`k
+ @do `p01 + 101
+ @drawmap
+ @update
+ @end
+@if `p20 is 7 then do begin
+@begin
+ @show
+ `2You break open the trunk and find`l.`l.`l.`\`\
+ `@A RED POTION!`\`\`k
+@do `i52 + 1
+ @end
+@if `p20 is 8 then do begin
+@begin
+ @show
+ `2You roll the car over onto its roof, causing massive damage!`\`\`k
+ `%YOU GAIN 250 EXPERIENCE!`\`k
+ @do `p01 + 250
+ @end
+
+@if `p20 is 9 then do begin
+@begin
+ @show
+ `2Drip`l`l`\`\
+ `2Drip`l`l`\`\
+ `2Drip`l`l`\`\
+ `2Before you can even scream`l.`l.`l.
+ `4B `wO `wO `wO `wO `wM `wM `wM `wM `w! `w! `w! `w! `w! `w! `w! `w!`\`\`k
+ `2The gas tank explodes, and sends you flying! `4The car has its revenge!`\`\`k
+ `2You wake up several hours later in critical condition. The accident
+ `2has permanently disfigured you!`\`\`k
+ `4YOU LOSE 500 TURNS AND 2 CHARM!`\`\`k
+ @do `p08 - 2
+ @do `p11 - 500
+ @do `p02 is 1
+ @do x is 11
+ @do y is 19
+@do addlog
+ `r1 `r0 `0`n`4 was severely injured today when the abandoned car exploded! `r1 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+
+ @end
+ @drawmap
+ @update
+
+@#Enter3
+@Show
+
+`r0`c `r1 Front Desk `r0`\`\
+`0"Oh hello `N`0 so good to see you. Always like whena good costmer come
+`0by ;)!"`2 declares Ching Lee happily.`\`\`k
+`$"That's nice, now let me in" `2you reply.`\`\`k
+`0"Ok Me let you in now." `2she says.`\`\`k
+@do x is 60
+@do y is 15
+@do map is 713
+@loadmap &map
+@drawmap
+@update
+
+@#gate
+@do moveback
+@do saybar
+`0The gate is locked. Ask the woman behind the counter to open it.
+
+@#Sneak
+ @do x is 60
+ @do y is 13
+ @do map is 713
+ @loadmap 713
+ @drawmap
+ @update
+ @do saybar
+`4Ha ha ha you just use your smackrod to get by the gate!
+ @end
+
+@#CLEAN
+;this ref is no longer in use
+@do moveback
+@do saybar
+`2When the game is in clean mode this is nothing but an abandoned building
+
+@#Bing
+@do moveback
+@do `v01 is 1
+@label scribestart
+@show
+`r0`c `r1 `%Bing's Newsletter `r0
+
+`2 `%Bing's Newsletter`2 is the 2nd most popular newspaper in the world
+`2 it is also the only other known place in the world to make an
+`2 announcement besides `0GreenTree`2.
+
+`2 `%Bing`2 is busy writing today's issue of `%Bing's Newsletter`2. `2He
+`2 looks up at you through his thick glasses. `0"You want to put add
+`0 in my paper?"`2 `2he asks `0"Costa `$$100`0 per add."
+
+@do write
+`x`x
+@choice
+`%Place an add in Bing's Newsletter for `$$100`%.
+Forget it
+@
+@if response is 1 then do
+ @begin
+ @if money < 100 then do
+ @begin
+ @show
+`\`\ `2You do not have enough money to place an add at this time.`\`\`k
+ @do goto scribestart
+ @end
+ @do money - 100
+ @writefile lognow.txt
+ `2`n`2 Announces the following from `4H`@ong `4K`@ong `4S`@tudio:`%
+ @show
+`\`\ `0"Ok what do you want to say in your add?" `2asks `%Bing
+@label keepwriting
+@do write
+`\`x`x
+ @do readstring 75 NIL `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+ @show
+`\ `0"Your add now in today's newsletter"`2 says `%Bing`2.
+
+`\`k
+@drawmap
+@update
+@closescript
+ @end
+ @do stripbad `s01
+ @writefile lognow.txt
+ `s01
+ @
+ @do goto keepwriting
+
+ @end
+
+@drawmap
+@update
diff --git a/xtrn/lord2/cnw/hongmons.ref b/xtrn/lord2/cnw/hongmons.ref
new file mode 100644
index 0000000000000000000000000000000000000000..0f443959e131dd0d94bf8249561b893af3095612
--- /dev/null
+++ b/xtrn/lord2/cnw/hongmons.ref
@@ -0,0 +1,174 @@
+; Script file HONGMONS.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:43 2001
+
+@DECLARE monster1 000000301
+@DECLARE monster2 000000845
+@DECLARE monster3 000001419
+@DECLARE monster4 000001996
+@DECLARE monster5 000002567
+@DECLARE fight 000003134
+@NOCHECK
+; End of .REF index
+
+@#monster1
+@fight
+;name
+Junkie
+;string said when you see him
+He puts down his crack pipe and attacks you!
+;power move kill string
+You broke his addiction!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits you with stench|30
+stabs you with a needle|45
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+50
+;gold reward
+3
+;experience
+333
+;hit points
+70
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Mugger
+;string said when you see him
+`4"Gimmy yo wallet" `2a man in a ski mask demands.
+;power move kill string
+That was some American Justice!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+stabs you with his knife|80
+kicks you in the head|51
+slashes your face|73
+NONE|NONE
+NONE|NONE
+;defense
+13
+;gold reward
+543
+;experience
+451
+;hit points
+276
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+STONEP.REF|THIEF
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Gigantic River Rat
+;string said when you see him
+A huge and vicious rodent runs up to you and attacks!
+;power move kill string
+You splatter its brains with your s&weapon.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites your leg|32
+bites your leg|41
+bites your leg|27
+NONE|NONE
+NONE|NONE
+;defense
+23
+;gold reward
+0
+;experience
+230
+;hit points
+77
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Psycho
+;string said when you see him
+A man with a smile on his faces pulls a knife on you.
+;power move kill string
+You cure his mental illness with your s&weapon
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+strangles you|78
+stabs you|66
+goes berserk on you|103
+NONE|NONE
+NONE|NONE
+;defense
+35
+;gold reward
+632
+;experience
+500
+;hit points
+166
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Car
+;string said when you see him
+You hear tires squeal as a car charges at you.
+;power move kill string
+The car explodes in a ball of fire killing the driver!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+runs you over|110
+backs over you|78
+sends you fling|81
+rams you|87
+NONE|NONE
+;defense
+45
+;gold reward
+1430
+;experience
+520
+;hit points
+300
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@#FIGHT
+@do `p20 random 12 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@busy
+@do `p20 random 5 1
+@do goto monster`p20
diff --git a/xtrn/lord2/cnw/hongwhor.ref b/xtrn/lord2/cnw/hongwhor.ref
new file mode 100644
index 0000000000000000000000000000000000000000..b03f0424df856318722285b20f586d2250529081
--- /dev/null
+++ b/xtrn/lord2/cnw/hongwhor.ref
@@ -0,0 +1,784 @@
+; Script file HONGWHOR.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:43 2001
+
+@DECLARE whore1 000000290
+@DECLARE whore2 000003944
+@DECLARE whore3 000007547
+@DECLARE whore4 000011843
+@DECLARE female 000015182
+@DECLARE whore5 000015493
+@NOCHECK
+; End of .REF index
+
+@#whore1
+@busy
+@if sexmale is 0 then do
+ @begin
+ @do goto FEMALE
+ @closescript
+ @end
+
+@do moveback
+@if hong3.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@readfile hong3.dat
+`p20
+`s01
+@
+
+@if `p20 is &playernum then do
+ @begin
+ @do moveback
+ @do saybar
+`0Ding Wu: `0I work'n real hard boss! Maye Later ;)!
+ @closescript
+ @end
+
+@if hong3a.dat exist false then do
+ @begin
+ @writefile hong3a.dat
+200
+0
+ @
+ @end
+
+ @readfile hong3a.dat
+`p26
+`p27
+ @
+
+
+@do `v01 is 1
+@show
+`r0`c `r1 `%Getting a whore `r0
+
+`2 `0Ding Wu`2 looks at you. `0"Good sex very good! For you only `$$`p26!`2"
+
+`2 She is an average looking Chinese woman, about 5'5" tall, with short
+`2 black hair, in her late 20's. She has medium sized very well shaped
+`2 breasts. She looks seductively at you with her slanty green eyes.
+
+@do write
+`x`x
+@choice
+You aren't worth half that much!
+Yeah, lets go baby.
+@if responce is 1 then do
+ @begin
+ @drawmap
+ @update
+ @do saybar
+`0Ding Wu:`$Someone else will get good time `@GO WAY!
+ @closescript
+ @end
+
+@if responce is 2 then do
+ @begin
+@datanewday hong.idf
+@dataload hong.idf &playernum `p20
+@IF `p20 IS 1 THEN DO
+ @BEGIN
+ @drawmap
+ @update
+ @do saybar
+`2Too much good thing bad grasshopper, come back tomorrow.
+ @end
+
+@if `p20 not 1 then do
+ @begin
+ @if money < `p26 then do
+ @begin
+ @show
+`\`\ `2You no have enough dollar. Go way!
+`k
+ @do goto whore1
+ @end
+
+ @do money - `p26
+ @do `p27 + `p26
+ @do delete hong3a.dat
+ @writefile hong3a.dat
+`p26
+`p27
+
+ @readfile hong3.dat
+ `p20
+ `s01
+ @
+;load owner and current password
+
+ @if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `4H`@ong `4K`@ong `4S`@tudio `0Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has "rented" `0Ding Wu`2! You Make `$$`p26`2 from the sale!
+
+
+ @do x is 51
+ @do y is 11
+ @do `p34 + 1
+ @do `v01 is 1
+ @datasave hong.idf &playernum 1
+ @show
+`\`\ `2She Takes off what little clothing she's wearing...
+`\`k
+`\ `2You look in amazement at her perfectly shaped breasts...
+`\`k
+`\ `0"You enjoy me long time?" `0Ding Wu `2asks as she lays down on the bed
+`\`k
+`\ `0Ding Wu`2 is experienced in her trade she pleases you like no woman
+ `2ever had before. You feel you defiantly got your `$$`p26`2's worth!
+`\`k
+@do `p20 random 6 1
+@if `p20 is 1 then do begin
+@begin
+ @show
+ `0"You give me good time! ;)" `2smiles `0Ding Wu`2`\`\`k
+ `%YOU GAIN 100 EXPERIENCE! `\`k
+ @do `p01 + 100
+ @drawmap
+ @update
+ @end
+@if `p20 is 2 then do begin
+@begin
+ @show
+ `0"You give me good time! ;)" `2smiles `0Ding Wu`2`\`\`k
+ `%YOU GAIN 100 EXPERIENCE! `\`k
+ @do `p01 + 100
+ @drawmap
+ @update
+ @end
+@if `p20 is 3 then do begin
+@begin
+ @show
+ `0"You give me good time! ;)" `2smiles `0Ding Wu`2`\`\`k
+ `%YOU GAIN 100 EXPERIENCE!`\`k
+ @do `p01 + 100
+ @drawmap
+ @update
+ @end
+
+@if `p20 is 4 then do begin
+@begin
+ @show
+ `0"You give me good time! ;)" `2smiles `0Ding Wu`2`\`\`k
+ `%YOU GAIN 100 EXPERIENCE!`\`k
+ @do `p01 + 100
+ @drawmap
+ @update
+ @end
+@if `p20 is 5 then do begin
+@begin
+ @show
+ `0"You give me good time! ;)" `2smiles `0Ding Wu`2`\`\`k
+ `%YOU GAIN 100 EXPERIENCE!`\`k
+ @do `p01 + 100
+ @drawmap
+ @update
+ @end
+@if `p20 is 6 then do begin
+@begin
+ @show
+ `0Ding Wu `2just lies there saying`0"ohhhh!"
+ `2Wow that was the best sex ANYONE has ever had!`\`\`k
+ `%YOU GAIN 1000 EXPERIENCE!`\`k
+ @do `p01 + 1000
+ @drawmap
+ @update
+ @end
+@drawmap
+@update
+
+@#whore2
+@busy
+@if sexmale is 0 then do
+ @begin
+ @do goto FEMALE
+ @closescript
+ @end
+
+@do moveback
+@if hong3.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@readfile hong3.dat
+`p20
+`s01
+@
+
+@if `p20 is &playernum then do
+ @begin
+ @do moveback
+ @do saybar
+`!Mai Chi: `0I work'n real hard boss! Maye Later ;)!
+ @closescript
+ @end
+
+
+
+@if hong3a.dat exist false then do
+ @begin
+ @writefile hong3a.dat
+200
+0
+ @
+ @end
+
+ @readfile hong3a.dat
+`p26
+`p27
+ @
+
+
+@do `v01 is 1
+@show
+`r0`c `r1 `%Getting a whore `r0
+
+`2 `!Mai Chi`2 Look you over `0"You lookn' for good time?`$ Only `$$`p26`0
+`0 for good time with me!"
+
+`2 `!Mai Chi`2 lays on the bed with her thin and sexy legs crossed. She
+`2 is in her early 20's, and hasn't been in the "trade" a very long
+`2 time. Her breasts really aren't much to talk about, but her long black
+`2 hair and beautiful face make up for it.
+
+@do write
+`x`x
+@choice
+You aren't worth half that much!
+Yeah, lets go baby.
+@if responce is 1 then do
+ @begin
+ @drawmap
+ @update
+ @do saybar
+`!Mai Chi:`0It ok, I know you come back later everyone want good time ;)!
+ @closescript
+ @end
+
+@if responce is 2 then do
+ @begin
+@datanewday hong.idf
+@dataload hong.idf &playernum `p20
+@IF `p20 IS 1 THEN DO
+ @BEGIN
+ @drawmap
+ @update
+ @do saybar
+`2Too much good thing bad grasshopper, come back tomorrow.
+ @end
+
+@if `p20 not 1 then do
+ @begin
+ @if money < `p26 then do
+ @begin
+ @show
+`\`\ `2You no have enough, get money and come back later.
+`k
+ @do goto whore2
+
+ @end
+
+
+ @do money - `p26
+ @do `p27 + `p26
+ @do delete hong3a.dat
+ @writefile hong3a.dat
+`p26
+`p27
+
+ @readfile hong3.dat
+ `p20
+ `s01
+ @
+;load owner and current password
+
+ @if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `4H`@ong `4K`@ong `4S`@tudio `0Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has "rented" `!Mai Chi`2! You Make `$$`p26 `2from the sale!
+
+
+ @do x is 35
+ @do y is 11
+ @do `p34 + 1
+ @do `v01 is 1
+ @datasave hong.idf &playernum 1
+ @show
+`\`\`2She takes you by the hand over to the couch and sits down on it...`\`\`k
+`0"Oh damn that felt good!" `2you think to yourself when you are done.`\`\`k
+@do `p20 random 6 1
+@if `p20 is 1 then do begin
+@begin
+ @show
+ `$"Oh that sooooo good" `2says `!Mai Chi`2 with a big smile`\`\`k
+ `%YOU GAIN 1 CHARM! `\`\`k
+ @do `p08 + 1
+ @drawmap
+ @update
+ @end
+@if `p20 is 2 then do begin
+@begin
+ @show
+ `$"Oh that sooooo good" `2says `!Mai Chi `2with a big smile`\`\`k
+ `%YOU GAIN 1 CHARM! `\`\`k
+ @do `p08 + 1
+ @drawmap
+ @update
+ @end
+@if `p20 is 3 then do begin
+@begin
+ @show
+ `$"Oh that sooooo good" `2says `!Mai Chi `2with a big smile`\`\`k
+ `%YOU GAIN 1 CHARM! `\`\`k
+ @do `p08 + 1
+ @drawmap
+ @update
+ @end
+
+@if `p20 is 4 then do begin
+@begin
+ @show
+ `$"Oh that sooooo good" `2says `!Mai Chi `2with a big smile`\`\`k
+ `%YOU GAIN 1 CHARM! `\`\`k
+ @do `p08 + 1
+ @drawmap
+ @update
+ @end
+@if `p20 is 5 then do begin
+@begin
+ @show
+ `$"Oh that sooooo good" `2says `!Mai Chi`2 with a big smile`\`\`k
+ `%YOU GAIN 1 CHARM! `\`\`k
+ @do `p08 + 1
+ @drawmap
+ @update
+ @end
+@if `p20 is 6 then do begin
+@begin
+ @show
+ `!Mai Chi `2Looks real pleased...`\`k
+ `2As you are about to leave...`\`k
+ `2She grabs you and kisses you goodbye
+ `2You are the man!`\`k
+
+ `%YOU GAIN 2 CHARM!`\`\`k
+ @do `p08 + 1
+ @drawmap
+ @update
+
+ @end
+@drawmap
+@update
+
+@#whore3
+@busy
+@if sexmale is 0 then do
+ @begin
+ @do goto FEMALE
+ @closescript
+ @end
+
+@do moveback
+@if hong3.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@readfile hong3.dat
+`p20
+`s01
+@
+
+@if `p20 is &playernum then do
+ @begin
+ @do moveback
+ @do saybar
+`@Nan Chi: `$I'm working real hard boss! Maybe Later ;)!
+ @closescript
+ @end
+
+@if hong3a.dat exist false then do
+ @begin
+ @writefile hong3a.dat
+200
+0
+ @end
+
+ @readfile hong3a.dat
+`p26
+`p27
+ @
+
+
+@do `v01 is 1
+@show
+`r0`c `r1 `%Getting a whore `r0
+
+`2 You enter the room and see a whore watering her plants. Her back is
+`2turned twards you. She has the sexiest body you have ever seen! Especially
+`2that perfect ass of her's. `$"Hey I like your ass!" `2you say to get her
+`2attention.`\`\`k
+`2She turns around`\`\`k
+`2Your eyes focus on her big breasts, then you look at her face`\`\
+`4O`wH`w M`wY`w G`wO`wD`w!`w!`w!`w`\`\`k
+`4HER FACE IS HORRIBLE!`\`\`k`c
+`0"Hello I am `@Nan Chi" `2she says without an accent, `0"I can tell that
+`0@you came here looking for a good time, and for `$$`p26`0 I'll give you
+`0the best time you will ever have." `2she says as she sways her hips.
+
+@do write
+`x`x
+@choice
+You aren't worth half that much!
+Sure, but can you put a paper bag over your head?
+Yeah, lets go baby.
+@if responce is 1 then do
+ @begin
+ @drawmap
+ @update
+ @do saybar
+`@Nan Chi:`0What is there something wrong with my ass?
+ @closescript
+ @end
+@if responce is 2 then do
+ @begin
+ @drawmap
+ @update
+ @do saybar
+`@Nan Chi `2bursts into tears and tells you to go away.
+ @closescript
+ @end
+
+@if responce is 3 then do
+ @begin
+@datanewday hong.idf
+@dataload hong.idf &playernum `p20
+@IF `p20 IS 1 THEN DO
+ @BEGIN
+ @drawmap
+ @update
+ @do saybar
+`2Too much good thing bad grasshopper, come back tomorrow.
+ @end
+
+@if `p20 not 1 then do
+ @begin
+ @if money < `p26 then do
+ @begin
+ @show
+`\`\ `@You don't have enough? You don't get this!
+`k
+ @do goto whore3
+ @end
+
+
+ @do money - `p26
+ @do `p27 + `p26
+ @do delete hong3a.dat
+ @writefile hong3a.dat
+`p26
+`p27
+
+ @readfile hong3.dat
+ `p20
+ `s01
+ @
+;load owner and current password
+
+ @if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `4H`@ong `4K`@ong `4S`@tudio `0Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has "rented" `@Nan Chi`2! You Make `$$`p26 `2from the sale!
+
+
+ @do x is 42
+ @do y is 17
+ @do `p34 + 1
+ @do `v01 is 1
+ @datasave hong.idf &playernum 1
+ @show
+`\`\`2You lay down on the bed and `@Nan Chi`2 gets on top of you
+`\`k`2You having a real good time and hopeing that it will never end`\`\`k
+@do `p20 random 6 1
+@if `p20 is 1 then do begin
+@begin
+ @show
+ `2Then it does...`\`\`k
+ `$"Was it good for you?"`2 you ask.`\`\`k
+ `@"Oh ya" `@Nan Chi `2says in a pleased voice`\`\`k
+ `%YOU GAIN 1 STRENGTH`\`\`k
+ @do `p04 + 1
+ @drawmap
+ @update
+ @end
+@if `p20 is 2 then do begin
+@begin
+ @show
+ `2Then it does...`\`\`k
+ `$"Was it good for you?"`2 you ask.`\`\`k
+ `@"Oh ya" `@Nan Chi`2 says in a pleased voice`\`\`k
+ `%YOU GAIN 1 STRENGTH`\`\`k
+ @do `p04 + 1
+ @drawmap
+ @update
+ @end
+@if `p20 is 3 then do begin
+@begin
+ @show
+ `2Then it does...`\`\`k
+ `$"Was it good for you?"`2 you ask.`\`\`k
+ `@"Oh ya" `@Nan Chi`2 says in a pleased voice`\`\`k
+ `%YOU GAIN 1 STRENGTH`\`\`k
+ @do `p04 + 1
+ @drawmap
+ @update
+ @end
+@if `p20 is 4 then do begin
+@begin
+ @show
+ `2Then it does...`\`\`k
+ `$"Was it good for you?"`2 you ask.`\`\`k
+ `@"Oh ya" `@Nan Chi `2says in a pleased voice`\`\`k
+ `%YOU GAIN 1 STRENGTH`\`\`k
+ @do `p04 + 1
+ @drawmap
+ @update
+ @end
+@if `p20 is 5 then do begin
+@begin
+ @show
+ `2Then it does...`\`\`k
+ `$"Was it good for you?"`2 you ask.`\`\`k
+ `@"Oh ya" `@Nan Chi `2says in a pleased voice`\`\`k
+ `%YOU GAIN 1 STRENGTH`\`\`k
+ @do `p04 + 1
+ @drawmap
+ @update
+ @
+ @end
+
+@if `p20 is 6 then do begin
+@begin
+ @show
+`2When it is over you think to yourself`0 "Wow that was great"`2`\`\`k
+`%THAT WAS ONE GOOD WORK-OUT YOU GAIN 2 STRENGTH`\`\`k
+ @do `p04 + 2
+ @do x is 37
+ @do y is 17
+ @drawmap
+ @update
+ @end
+ @drawmap
+ @update
+
+@#whore4
+@busy
+@if sexmale is 0 then do
+ @begin
+ @do goto FEMALE
+ @closescript
+ @end
+
+@do moveback
+@if hong3.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@readfile hong3.dat
+`p20
+`s01
+@
+
+@if `p20 is &playernum then do
+ @begin
+ @do moveback
+ @do saybar
+`#Tong Ho: `0I work'n real hard boss! Maye Later ;)!
+ @closescript
+ @end
+
+@if hong3a.dat exist false then do
+ @begin
+ @writefile hong3a.dat
+200
+0
+ @end
+
+ @readfile hong3a.dat
+`p26
+`p27
+ @
+
+
+@do `v01 is 1
+@show
+`r0`c `r1 `%Getting a whore `r0
+
+`2 `#Tong Ho`2 Smiles at you. Me love you long time only `$$`p26`2!"
+
+`2 `#Tong Ho`2 is a short and very sexy Chinese girl with huge tits. She
+`2 is only about`2 18, and is said to give a really good time, if not
+`2 the best for only `$$`p26`2 what do you have to lose?
+
+
+@do write
+`x`x
+@choice
+You aren't worth half that much!
+Ok, lets go baby
+@if responce is 1 then do
+ @begin
+ @drawmap
+ @update
+ @do saybar
+`#Tong Ho:`0You no pay you no play!
+ @closescript
+ @end
+
+@if responce is 2 then do
+ @begin
+@datanewday hong.idf
+@dataload hong.idf &playernum `p20
+@IF `p20 IS 1 THEN DO
+ @BEGIN
+ @drawmap
+ @update
+ @do saybar
+`2Too much good thing bad grasshopper, come back tomorrow.
+ @end
+
+@if `p20 not 1 then do
+ @begin
+ @if money < `p26 then do
+ @begin
+ @show
+`\`\ `2You no have enough dollar. Go way!
+`k
+ @do goto whore4
+ @end
+
+ @do money - `p26
+ @do `p27 + `p26
+ @do delete hong3a.dat
+ @writefile hong3a.dat
+`p26
+`p27
+
+ @readfile hong3.dat
+ `p20
+ `s01
+ @
+;load owner and current password
+
+ @if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `4H`@ong `4K`@ong `4S`@tudio `0Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has "rented" `#Tong Ho`2! You Make `$$`p26 `2from the sale!
+
+
+ @do x is 51
+ @do y is 17
+ @do `p34 + 1
+ @do `v01 is 1
+ @datasave hong.idf &playernum 1
+ @show
+`\`\`2She dims the lights and walks over to the bed...`\`\`k
+`0"Wow this the best"`2 you think happily to yourself...
+`\`k
+@do `p20 random 6 1
+@if `p20 is 1 then do begin
+@begin
+ @show
+ `2That was great! The experience fills you with energy!`\`\`k
+ `%YOU GAIN 500 TURNS! `\`k
+ @do `p11 + 500
+ @drawmap
+ @update
+ @end
+@if `p20 is 2 then do begin
+@begin
+ @show
+ `2That was great! The experience fills you with energy!`\`\`k
+ `%YOU GAIN 500 TURNS! `\`k
+ @do `p11 + 500
+ @drawmap
+ @update
+ @end
+@if `p20 is 3 then do begin
+@begin
+ @show
+ `2That was great! The experience fills you with energy!`\`\`k
+ `%YOU GAIN 500 TURNS! `\`k
+ @do `p11 + 500
+ @drawmap
+ @update
+ @end
+@if `p20 is 4 then do begin
+@begin
+ @show
+ `2That was great! The experience fills you with energy!`\`\`k
+ `%YOU GAIN 500 TURNS! `\`k
+ @do `p11 + 500
+ @drawmap
+ @update
+ @end
+@if `p20 is 5 then do begin
+@begin
+ @show
+ `2That was great! The experience fills you with energy!`\`\`k
+ `%YOU GAIN 500 TURNS! `\`k
+ @do `p11 + 500
+ @drawmap
+ @update
+ @end
+
+@if `p20 is 6 then do begin
+@begin
+ @show
+`2WOW THAT WAS BETTER THAN GREAT!
+ `2It makes you feel full of energy!`\`\`k
+ `%YOU GAIN 1000 TURNS!`\`k
+ @do `p11 + 1000
+ @drawmap
+ @update
+ @end
+ @drawmap
+ @update
+
+@#FEMALE
+@readfile hong3.dat
+`p20
+`s01
+@
+
+@if `p20 is &playernum then do
+ @begin
+ @do moveback
+ @do saybar
+`0Whore: `$I work'n real hard boss! Make you lotsa money :)!
+ @closescript
+ @end
+
+ @do moveback
+ @do saybar
+`2You look coldly at the whore on the bed.
+ @closescript
+ @end
+
+@#Whore5
+
+
+
diff --git a/xtrn/lord2/cnw/house.ref b/xtrn/lord2/cnw/house.ref
new file mode 100644
index 0000000000000000000000000000000000000000..0f0933c9b98de604a421ac79ce2e20312ce9ff9b
--- /dev/null
+++ b/xtrn/lord2/cnw/house.ref
@@ -0,0 +1,669 @@
+; Script file HOUSE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:17 2001
+
+@DECLARE tv 000000794
+@DECLARE bath 000001286
+@DECLARE master 000002889
+@DECLARE guest 000003203
+@DECLARE bathroom 000003288
+@DECLARE recroom 000003358
+@DECLARE mybank 000003417
+@DECLARE tower 000006238
+@DECLARE doorguard 000006347
+@DECLARE startg 000006376
+@DECLARE sign 000009944
+@DECLARE enter 000010242
+@DECLARE done 000011765
+@DECLARE letmein 000013546
+@DECLARE done 000013625
+@NOCHECK
+; End of .REF index
+
+
+@NOCHECK
+
+;note to .ref masters:
+;replace castle1 with something else to use this .ref for other dwellings
+;this .ref uses no long term vars, instead it makes its own data file - this
+;means upgrading the game will not make people 'lose ownership' of their
+;stuff.
+
+@#tv
+ @do moveback
+ @show
+ `r0`c `r1Watching TV`r0
+
+ `2Since the TV in the corner is already on, you sit in a beanbag chair and
+ watch it.
+`k
+ After the usual FBI warnings (oh yeah, the SWAT team is gonna do
+ a copied tape bust AANY minute now...), it turns out to be a Jackie Chan
+ movie.
+`k
+ You laugh so hard that at the end of the movie you feel completely healed!
+`k
+ `%HP'S MAXED OUT!!
+`k
+ @do `p02 = `p03
+ @drawmap
+ @update
+
+ @closescript
+
+@#bath
+@do moveback
+@datanewday tub.idf
+
+@dataload tub.idf &playernum `p20
+@if `p20 = 1 then do
+ @begin
+ @do saybar
+`2You really feel clean enough.
+ @closescript
+ @end
+
+@if `p20 not 1 then do
+ @begin
+ @datasave tub.idf &playernum 1
+ @show
+`r0`c `r1 `%Taking a Bath`r0
+
+ `2Ahhh! You take a soak in your tub. THIS certainly is high living! After
+ you feel like a prune and decide that today's daily recomended intake of
+ hygene has been fulfilled, you get out. When you look examine the tub, to
+ your surprise you find...
+`k
+ @do `p21 random 3 1
+ @if `p21 is 1 then do
+ @begin
+ @do `p22 = 100 * `p09
+ @do money + `p22
+ @show
+ `$`p22 GOLD PIECES!!
+`k
+ `2Geez, it must have gotten stuck in your hair somehow! Boy, cleanliness
+ just gets better and better...
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @if `p21 is 2 then do
+ @begin
+ @show
+ `@ENOUGH DIRT TO START A GARDEN!!
+`k
+ `2Boy, that's a strong argument for washing, eh? You find yourself
+ wondering just where all that dirt WAS.
+`k
+ Well, it isn't really all that important where it WAS, because without
+ it you look a WHOLE lot better.
+`k
+ `$CHARM UP BY 1!
+`k
+ @do `p08 + 1
+
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if `p21 is 3 then do
+ @begin
+ @show
+ `%A grimy, smelly bathtub!
+`k
+ `2Hmm...nothing special today I guess. But at least you feel that much
+ better!!
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@do saybar
+`2You really feel clean enough.
+ @drawmap
+ @update
+@closescript
+
+@#master
+@readfile house1.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do moveback
+ @do saybar
+Hmm, the door to the Master Bedroom is locked.
+ @closescript
+ @end
+@busy
+@do saybar
+`%Ahhh, your private master bedroom! NOBODY can get you in here.
+
+@#guest
+@do saybar
+`%These guestrooms are a little small, but what the heck.
+
+@#bathroom
+@do saybar
+`%Hey, running water! This is the big time!
+
+@#recroom
+@do saybar
+`%There is a TV on in the corner.
+
+@#MYBANK
+;team Bucket 'O Money
+@do moveback
+@do `p20 is 0
+@if bucket.dat exist true then do
+ @begin
+ @readfile bucket.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Bucket 'O Money is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You leave the bucket alone.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile bucket.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete bucket.dat
+ @writefile bucket.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the Bucket 'O Money.
+
+//if not owner, lets notify him
+
+@readfile house1.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Household Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the Bucket 'O Money.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile bucket.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete bucket.dat
+ @writefile bucket.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile house1.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Household Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has dropped `$$`p21 `2to the Bucket 'O Money.
+
+ @end
+
+
+ @do saybar
+`2You drop `$`p21`2 in the Bucket 'O Money.
+ @closescript
+
+
+ @end
+
+
+@#TOWER
+;Tower in the castle
+@DO SAYBAR
+`2The tower on this castle is not ready yet.
+@do moveback
+
+@#doorguard
+@do moveback
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+@if house1.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to vacate this house!" `2the lady barks.
+ @closescript
+ @end
+
+@readfile house1.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the cleaning lady, and she scowls at you.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The huge cleaning lady scowls meanly when he sees you are going to
+ address her.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership Options
+Leave
+@
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$2500`%.
+`%Make `#GreenTree `%your home
+Do nothing of the sort
+@if responce is 3 then do
+ @begin
+ @do `p69 is 3
+ @show
+`r0`c
+
+ `#GreenTree `%is now home swet home.
+
+ @key
+ @end
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your keep to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete house1.dat
+ @writefile house1.dat
+`p20
+`s01
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of Greentree Manor to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%Greentree Manor`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your house back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do `p30 is 2
+ @do `v40 is 2500
+ @routine widthdraw in vaults.ref
+ @do delete house1.dat
+ @do money + 2500
+ @show
+`\`\ `%HOUSE SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Greentree Manor`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete house1.dat
+ @writefile house1.dat
+&playernum
+`s01
+@show
+`\`\ `0"Yes, will no forget!" `2the lady barks.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#sign
+@do moveback
+
+ @if house1.dat exist false then do
+ @begin
+ @do saybar
+Greentree Manor - For sale cheap, enquire inside.
+ @end
+
+@if house1.dat exist true then do
+ @begin
+@readfile house1.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+@#enter
+@do moveback
+@offmap
+@if house1.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2Greentree Manor is a quaint little home situated smack dab in the
+ middle of Greentree, a very important city. Its features include:
+
+ A master bedroom
+
+ *2* Guest Rooms
+
+ A rec room
+
+ A cheerful cleaning lady
+
+ A bathroom with `$RUNNING WATER`2!
+
+ It is for sale, however. The asking price is `$$5000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 4999 Purchase it.
+<&money 5000 Sigh wistfully and leave since you don't have enough.
+>&money 4999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if house1.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile house1.dat
+&playernum
+NONE
+ @do `p30 is 2
+ @do `v40 is 5000
+ @routine deposit in vaults.ref
+ @do money - 5000
+ @do addlog
+ `0`n `2buys `%Greentree Manor`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this house!
+
+`k `0As you enter the door, you see the "Cheerful Cleaning Lady" you were
+ promised. A hulking russian battleaxe comes trundling down to see you. You
+ are frightened and hide. You are sure that she will be more effective than
+ any door guard!!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile house1.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete house1.dat
+ @do addlog
+ `%Greentree Manor`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+ `4Ouch!
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. A large Russian woman begins screaming at
+ you, `0"<Russian garble> what business you have with lord and
+ master, `%`s02`0?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%the house`0,"`2 the lady attempts to smile as she opens`
+ the door.\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `0Household Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the lady by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The woman screams `@"LYSOL YES YOU NO."`\`\`k
+@do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein
+@do x is 36
+@do y is 13
+@do map is 229
+@loadmap 229
+@do goto done
+@#done
+
diff --git a/xtrn/lord2/cnw/house1.ref b/xtrn/lord2/cnw/house1.ref
new file mode 100644
index 0000000000000000000000000000000000000000..a9d054e1139b0e35afc22eff9dc574e5fe471be4
--- /dev/null
+++ b/xtrn/lord2/cnw/house1.ref
@@ -0,0 +1,596 @@
+; Script file HOUSE1.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:35 2001
+
+@DECLARE fountain 000000892
+@DECLARE washroom 000003470
+@DECLARE healme 000003519
+@DECLARE doorguard 000003735
+@DECLARE startg 000003764
+@DECLARE sign 000007217
+@DECLARE enter 000007533
+@DECLARE done 000010134
+@DECLARE letmein 000011889
+@DECLARE done 000011968
+@NOCHECK
+; End of .REF index
+
+;
+; -----------------------------------------------
+; Fortress Fear IGM for LORD II - The New World
+; -----------------------------------------------
+;
+; House1.ref - Copyright 1997 Isaac Laurin and D/�rK /\/iGHT
+; darkn@geocities.com
+;
+; If you copy any of this ref file I'll will personaly see
+; that an assassin is hired and sent after you! :)
+; Also you must let me know by an email, or include my
+; name in your docs!
+;
+
+@#fountain
+@do moveback
+@datanewday fount.idf
+@dataload fount.idf &playernum `p20
+@IF `p20 IS 1 THEN DO
+@BEGIN
+@DO SAYBAR
+You've already used the fountain today!. Try again tomorrow.
+@closescript
+@END
+@DO `v01 is 1
+@show
+`r0`c `r1 The Fountain In The Secret Part Of The Inn `r0
+
+ `2A sparkling fountain is before you. A voice wispers:
+ `0"What do you wish for?"`2
+
+@DO WRITE
+`x`x
+@CHOICE
+`$GOLD!
+Hitpoints
+Alignment
+Turns
+Gems
+`4World Domination
+@if response is 1 then do
+@begin
+@do `p20 RANDOM 3 1
+@if `p20 = 2 then do
+@begin
+@do money + 100
+@show
+`c`2You check your`$ gold`2 and see that you are `$$100`2 richer!`\`\`k
+@datasave fount.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+@show
+`c`4You check your gold and see that nothing happened!`\`\`k
+@datasave fount.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+
+@if response is 2 then do
+@begin
+@do `p20 RANDOM 30 1
+@if `p20 = 20 then do
+@begin
+@do `P03 + 2
+@show
+`c`2You check your hp and find that you have 2 more to your max!`\`\`k
+@datasave fount.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+@show
+`c`4You check your hp and find that nothing happened!`\`\`k
+@datasave fount.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+
+@if response is 3 then do
+@begin
+@do `p20 RANDOM 4 1
+@if `p20 = 3 then do
+@begin
+@do `P07 + 1
+@show
+`c`%You GET one alignment point!`\`\`k
+@datasave fount.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+@do `P07 - 1
+@show
+`c`4You LOSE one alignment point!`\`\`k
+@datasave fount.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+
+@if response is 4 then do
+@begin
+@do `p20 RANDOM 4 1
+@if `p20 = 3 then do
+@begin
+@do `P11 + 1000
+@show
+`c`2You GET 1000 more turns today!`\`\`k
+@datasave fount.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+@do `P11 - 50
+@show
+`c`4You LOSE 50 turns today!`\`\`k
+@datasave fount.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+
+@if response is 5 then do
+@begin
+@do `p20 RANDOM 4 1
+@if `p20 = 3 then do
+@begin
+@do `P19 + 3
+@show
+`c`2You GET three gems!`\`\`k
+@datasave fount.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+@show
+`c`4Nothing Happens`\`\`k
+@datasave fount.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+
+@if response is 6 then do
+@begin
+@do `P02 = 1
+@show
+`c`2 A lightning bolt hits you! You lose a bunch of hp!`\
+ You can hear the gods laughing at you...`\`\
+ ...You and your greed!`\`\`k
+@datasave fount.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+
+@#washroom
+@do saybar
+Ahhhhh...much better...
+
+@#HEALME
+;free heal
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Healing Statue `r0
+
+ `2You place a hand on the statue and....
+
+ `%YOU ARE COMPLETEY HEALED.
+
+`k
+@do `p02 is `p03
+@drawmap
+@update
+
+@#doorguard
+@do moveback
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+@if ffhouse1.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 1 minute to vacate this house!" `2RoboDog barks.
+ @closescript
+ @end
+
+@readfile ffhouse1.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to RoboDog (TM), nice of him to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Programing Your RoboDog (TM) `r0
+
+ `2RoboDog snaps to attention when he sees you are going to address him.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+Leave
+@
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$15000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your house - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your house to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your house - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete ffhouse1.dat
+ @writefile ffhouse1.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of House #1 in Fortress Fear to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%House #1 in Fortress Fear`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your house back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your house - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete ffhouse1.dat
+ @do `p30 is 22
+ @do `v40 is 15000
+ @routine widthdraw in vaults.ref
+ @do money + 15000
+ @show
+`\`\ `%HOUSE SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%House #1 in Fortress Fear`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete ffhouse1.dat
+ @writefile ffhouse1.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the RoboDog promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#sign
+@do moveback
+
+ @if ffhouse1.dat exist false then do
+ @begin
+ @do saybar
+House #1 in Fortress Fear - For sale cheap, enquire inside.
+ @end
+
+@if ffhouse1.dat exist true then do
+ @begin
+@readfile ffhouse1.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+@#enter
+@do moveback
+@offmap
+@if ffhouse1.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2This beautiful house in Fortress Fear can be yours!
+
+ Buy now and recieve the following bonuses:
+
+ `0* `2A healing statue that heals you!
+
+ `0* `2A wishing well!
+
+ `2The asking price is `$$20,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Purchase it.
+<&money 20000 Sigh wistfully and leave since you don't have enough.
+>&money 19999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if ffhouse1.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+ @if house2.dat exist true then do
+ @begin
+ @readfile house2.dat
+ `p20
+ `s01
+ @
+ ;load owner and current password
+
+ @if `p20 = &playernum then do
+ @begin
+ @show
+`\`\ `2You already own a house in `@Fortress Fear`2! Let someone else have
+ the chance to buy one!`\`\`k
+ @do goto done
+ @end
+ @end
+ @if house3.dat exist true then do
+ @begin
+ @readfile house3.dat
+ `p20
+ `s01
+ @
+ ;load owner and current password
+
+ @if `p20 = &playernum then do
+ @begin
+ @show
+`\`\ `2You already own a house in `@Fortress Fear`2! Let someone else have
+ the chance to buy one!`\`\`k
+ @do goto done
+ @end
+ @end
+ @if house4.dat exist true then do
+ @begin
+ @readfile house4.dat
+ `p20
+ `s01
+ @
+ ;load owner and current password
+
+ @if `p20 = &playernum then do
+ @begin
+ @show
+`\`\ `2You already own a house in `@Fortress Fear`2! Let someone else have
+ the chance to buy one!`\`\`k
+ @do goto done
+ @end
+ @end
+ @if house5.dat exist true then do
+ @begin
+ @readfile house5.dat
+ `p20
+ `s01
+ @
+ ;load owner and current password
+
+ @if `p20 = &playernum then do
+ @begin
+ @show
+`\`\ `2You already own a house in `@Fortress Fear`2! Let someone else have
+ the chance to buy one!`\`\`k
+ @do goto done
+ @end
+ @end
+ @writefile ffhouse1.dat
+&playernum
+NONE
+0
+0
+0
+0
+ @do `p30 is 22
+ @do `v40 is 20000
+ @routine deposit in vaults.ref
+ @do money - 20000
+ @do addlog
+ `0`n `2buys `%House #1 in Fortress Fear`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this house!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile ffhouse1.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete ffhouse1.dat
+ @do addlog
+ `%House #1 in Fortress Fear`2 was put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2the RoboDog asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%House #1`0,"`2 the guard smiles as he opens the gate.`\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `0Your Fortress Fear House Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The guard doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein
+@do x is 38
+@do y is 15
+@do map is 417
+@loadmap 417
+@do goto done
+@#done
diff --git a/xtrn/lord2/cnw/house2.ref b/xtrn/lord2/cnw/house2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c35bf8f72155ec3f9b26acf8893c99e9fe7aa2ca
--- /dev/null
+++ b/xtrn/lord2/cnw/house2.ref
@@ -0,0 +1,725 @@
+; Script file HOUSE2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:36 2001
+
+@DECLARE run 000000981
+@DECLARE dead 000001220
+@DECLARE win 000001508
+@DECLARE tiolet 000002154
+@DECLARE sink 000002220
+@DECLARE sinkst 000002249
+@DECLARE healme 000002813
+@DECLARE doorguard 000003029
+@DECLARE startg 000003058
+@DECLARE sign 000007077
+@DECLARE enter 000007405
+@DECLARE done 000010033
+@DECLARE letmein 000011819
+@DECLARE done 000015822
+@NOCHECK
+; End of .REF index
+
+;
+; -----------------------------------------------
+; Fortress Fear IGM for LORD II - The New World
+; -----------------------------------------------
+;
+; House2.ref - Copyright 1997 Isaac Laurin and D/�rK /\/iGHT
+; darkn@geocities.com
+;
+; If you copy any of this ref file I'll will personaly see
+; that an assassin is hired and sent after you! :)
+; Also you must let me know by an email, or include my
+; name in your docs!
+;
+
+@#RUN
+@show
+`r0`c`@ You turn and try to run but the Maneating plant blocks your way!
+
+`0 "Trying to get away are ya? Well you're not going anywhere MWHAHAHA!"
+ the Maneating plant evily laughs.`\`\`k
+@run fightpl IN ffear.ref
+
+@#DEAD
+@show
+`r0`c`2 The Maneating plant feasts on your dead body. Next time FEED the plant
+ to prevent getting eaten!`\`\`k
+@readfile ffhouse2.dat
+`p20
+`s01
+`p21
+`p22
+@do delete ffhouse2.dat
+@writefile ffhouse2.dat
+&playernum
+`s01
+0
+`p22
+0
+0
+@run die IN gametxt.ref
+
+@#WIN
+@show
+`r0`c`2 Hey how the hell did you kill the Maneating plant?!?! You must of cheated
+ or something! Cause your not supposed to be able to kill that plant! It
+ has 5000 attack and 5000 defence! You're supposed to be dead! hmmmm......`\`\`k
+ The Maneating plant is suddenly alive again! (hehehe now yer in for it :)`\`\`k
+ It hides in the corner and in a weak voice it says "Please don't hurt me
+ I'm not hungry anymore!" (Well I guess your not in for it afterall)`\`\`k
+@readfile ffhouse2.dat
+`p20
+`s01
+`p21
+`p22
+@do delete ffhouse2.dat
+@writefile ffhouse2.dat
+&playernum
+`s01
+0
+`p22
+0
+0
+@do goto letmein
+
+@#TIOLET
+@DO MOVEBACK
+@DO SAYBAR
+<FLUSH> Ahhh...much better..
+
+@#SINK
+@DO MOVEBACK
+@label sinkst
+@do `v01 is 1
+@show
+`r0`c `r1 The Washroom Sink `r0
+
+ `2What do you want to do now?
+
+@do write
+`x`x
+@choice
+Wash your hands
+Eat the soap
+Leave
+
+@if responce is 1 then do
+ @begin
+ @show
+`\`2 You wash your hands and`l.`l.`l.`l.`l.`l.`l.nothing happens.`\`\`k
+ @do goto sinkst
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+`\`2 You pick up the soap and eat it. It tastes GROSS! You find that`l.`l.`l.`l.`l.`l.`l.`l.
+
+`4 YOU'VE LOST ALL BUT 1 HP!`\`\`k
+ @do `p02 = 1
+ @do goto sinkst
+ @end
+
+@drawmap
+@update
+
+@#HEALME
+;free heal
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Healing Statue `r0
+
+ `2You place a hand on the statue and....
+
+ `%YOU ARE COMPLETEY HEALED.
+
+`k
+@do `p02 is `p03
+@drawmap
+@update
+
+@#doorguard
+@do moveback
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+@if ffhouse2.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 1 minute to vacate this house!" `2the Maneating Plant barks.
+ @closescript
+ @end
+
+@readfile ffhouse2.dat
+`p20
+`s01
+`p21
+`p22
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the Maneating Plant, nice of him to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Feeding Your Maneating Plant `r0
+
+ `2The Maneating Plant drools as he sees you are going to feed him.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+>`p22 0 Feed the Maneating Plant
+Leave
+@
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$15000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your house - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your house to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your house - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete ffhouse2.dat
+ @writefile ffhouse2.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of House #2 in Fortree Fear to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%House #2 in Fortress Fear`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your house back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your house - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete ffhouse2.dat
+ @do `p30 is 22
+ @do `v40 is 2
+ @routine widthdraw in vaults.ref
+ @do money + 15000
+ @show
+`\`\ `%HOUSE SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%House #2 in Fortress Fear`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete ffhouse2.dat
+ @writefile ffhouse2.dat
+&playernum
+`s01
+`p21
+`p22
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the Maneating Plant promises.`\`\`k
+ @do goto startg
+ @end
+
+@if responce is 3 then do
+ @begin
+ @show
+`\`\`2 You toss the Maneating plant a package of Lo Wang's plant food. The
+ plant gulps it down. "Mmmmm...good!" the Maneating plant says contently.`\
+ I wonder what's in the food...maybe some unlucky LORD 2 player...`\`\`k
+ @do `p22 - 1
+ @show
+`\`2 You now have `p22 package(s) of Lo Wang's plant food.`\`\`k
+ @do `p21 = 0
+ @do delete ffhouse2.dat
+@writefile ffhouse2.dat
+&playernum
+`s01
+`p21
+`p22
+0
+0
+@do goto startg
+@end
+
+@drawmap
+@update
+
+@#sign
+@do moveback
+
+ @if ffhouse2.dat exist false then do
+ @begin
+ @do saybar
+House #2 in Fortress Fear - For sale cheap, enquire inside.
+ @end
+
+@if ffhouse2.dat exist true then do
+ @begin
+@readfile ffhouse2.dat
+`p20
+`s01
+`p21
+`p22
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+@#enter
+@do moveback
+@offmap
+@if ffhouse2.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2This big house in Fortress Fear can be yours!
+
+ Buy now and recieve the following bonuses:
+
+ `0* `2A healing statue that heals you!
+
+ `0* `2A Maneating Plant to protect you and your house!
+
+ `2The asking price is `$$20,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Purchase it.
+<&money 20000 Sigh wistfully and leave since you don't have enough.
+>&money 19999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if ffhouse2.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+ @if house1.dat exist true then do
+ @begin
+ @readfile house1.dat
+ `p20
+ `s01
+ @
+ ;load owner and current password
+
+ @if `p20 = &playernum then do
+ @begin
+ @show
+`\`\ `2You already own a house in `@Fortress Fear`2! Let someone else have
+ the chance to buy one!`\`\`k
+ @do goto done
+ @end
+ @end
+ @if house3.dat exist true then do
+ @begin
+ @readfile house3.dat
+ `p20
+ `s01
+ @
+ ;load owner and current password
+
+ @if `p20 = &playernum then do
+ @begin
+ @show
+`\`\ `2You already own a house in `@Fortress Fear`2! Let someone else have
+ the chance to buy one!`\`\`k
+ @do goto done
+ @end
+ @end
+ @if house4.dat exist true then do
+ @begin
+ @readfile house4.dat
+ `p20
+ `s01
+ @
+ ;load owner and current password
+
+ @if `p20 = &playernum then do
+ @begin
+ @show
+`\`\ `2You already own a house in `@Fortress Fear`2! Let someone else have
+ the chance to buy one!`\`\`k
+ @do goto done
+ @end
+ @end
+ @if house5.dat exist true then do
+ @begin
+ @readfile house5.dat
+ `p20
+ `s01
+ @
+ ;load owner and current password
+
+ @if `p20 = &playernum then do
+ @begin
+ @show
+`\`\ `2You already own a house in `@Fortress Fear`2! Let someone else have
+ the chance to buy one!`\`\`k
+ @do goto done
+ @end
+ @end
+ @writefile ffhouse2.dat
+&playernum
+NONE
+0
+0
+0
+0
+ @do `p30 is 22
+ @do `v40 is 20000
+ @routine deposit in vaults.ref
+ @do money - 20000
+ @do addlog
+ `0`n `2buys `%House #2 in Fortress Fear`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this house!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile ffhouse2.dat
+`p20
+`s01
+`p21
+`p22
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete ffhouse2.dat
+ @do addlog
+ `%House #2 in Fortress Fear`2 was put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2the Maneating Plant asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%House #2`0,"`2 the guard smiles as he opens the gate.`\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `0Your Fortress Fear House Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The Maneating Plant snaps it's jaws at you...RUN!`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein
+
+;Hungry plant
+@readfile ffhouse2.dat
+`p20
+`s01
+`p21
+`p22
+@if `p20 is &playernum then do
+ @begin
+;reset eat.idf
+ @datanewday eat.idf
+@dataload eat.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+ @do `p21 + 1
+ @do delete ffhouse2.dat
+@writefile ffhouse2.dat
+&playernum
+`s01
+`p21
+`p22
+0
+0
+ @if `p21 = 2 then do
+;day 1
+ @begin
+ @show
+`r0`c`2 The Maneating plant stares at you with an evil grin as you walk by..`\`\`k
+ @end
+;day 2
+ @if `p21 = 3 then do
+ @begin
+ @show
+`r0`c`2 You can't help noticing that your maneating plant starts drooling as
+ you walk by...maybe it's hungry...`\`\`k
+ @end
+;day 3
+ @if `p21 = 4 then do
+ @begin
+ @show
+`r0`c`2 You can't help noticing that your maneating plant starts drooling as
+ you walk by...maybe it's hungry...`\`\`k
+ @end
+;day 5
+ @if `p21 = 5 then do
+ @begin
+ @do `v01 is 1
+ @show
+`r0`c`2 "I'm starving!!" bellows the Maneating plant as you walk by. "If you
+ don't feed me I'm gonna feed myself by eating YOU!"
+
+ @do write
+`x`x
+@choice
+>`p22 0 Feed Him
+Ask where you can buy food
+RUN!
+ @if responce is 1 then do
+ @begin
+ @show
+`\`\`2 You toss the Maneating plant a package of Lo Wang's plant food. The
+ plant gulps it down. "Mmmmm...good!" the Maneating plant says contently.`\
+ I wonder what's in the food...maybe some unlucky LORD 2 player...`\`\`k
+ @do `p22 - 1
+ @show
+`\`2 You now have `p22 package(s) of Lo Wang's plant food.`\`\`k
+ @do `p21 = 0
+ @do delete ffhouse2.dat
+@writefile ffhouse2.dat
+&playernum
+`s01
+`p21
+`p22
+0
+0
+ @end
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\`2 "You can buy me food at Lo Wang's Supermarket at the other side of
+ Fortress Fear! Now go get me some!" growls the Maneating plant.`\`\`k
+ @end
+ @if responce is 3 then do
+ @begin
+ @show
+`\`\`2 You run as fast as you can past the Maneating plant and into the
+ house...now the only problem is getting out of the house...`\`\`k
+ @end
+@end
+;day 6
+ @if `p21 is 6 then do
+ @begin
+ @do `v01 is 1
+ @show
+`r0`c`2 "You better have food with you!"
+
+ @do write
+`x`x
+@choice
+>`p22 0 I do, here have some food!
+Ummm..where can I get some?
+Err..I forgot them in my other pants..
+ @if responce is 1 then do
+ @begin
+ @show
+`\`\`2 You toss the Maneating plant a package of Lo Wang's plant food. The
+ plant gulps it down. "Mmmmm...good!" the Maneating plant says contently.`\
+ I wonder what's in the food...maybe some unlucky LORD 2 player...`\`\`k
+ @do `p22 - 1
+ @show
+`\`2 You now have `p22 package(s) of Lo Wang's plant food.`\`\`k
+ @do `p21 = 0
+ @do delete ffhouse2.dat
+@writefile ffhouse2.dat
+&playernum
+`s01
+`p21
+`p22
+0
+0
+ @end
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\`2 "You can buy me food at Lo Wang's Supermarket at the other side of
+ Fortress Fear!" growls the Maneating plant. "But it's too late for that!"`\
+ The Maneating plant takes you into it's jaws and starts munching! "Ahhh!"
+ you scream. Then you manage to get out of the plant's jaws and run!`\
+ "You'd better bring me food today or you won't be so lucky tommorow!" the
+ plant threatens.`\
+`4 Your hit points are down to 1!`\`\`k
+ @do `p02 = 1
+ @end
+ @if responce is 3 then do
+ @begin
+ @show
+`\`\`2 The Maneating plant takes you into it's jaws and starts munching! "Ahhh!"
+ you scream. Then you manage to get out of the plant's jaws and run!`\
+ "You'd better bring me food today or you won't be so lucky tommorow!" the
+ plant threatens.`\
+`4 Your hit points are down to 1!`\`\`k
+ @do `p02 = 1
+ @end
+@end
+;day 7
+ @if `p21 is 7 then do
+ @begin
+ @show
+`r0`c`2 The Maneating plant attacks you and trys eats you up! "Hahaha I told you
+ won't be so lucky!" laughs the Maneating plant.`\`\`k
+ @run fightpl IN ffear.ref
+ @end
+@end
+@end
+@datasave eat.idf &playernum 1
+@end
+
+@do x is 44
+@do y is 15
+@do map is 418
+@loadmap 418
+@do goto done
+@#done
diff --git a/xtrn/lord2/cnw/igm/alien.igm b/xtrn/lord2/cnw/igm/alien.igm
new file mode 100644
index 0000000000000000000000000000000000000000..e20d7ba87b3aa1bbe9533a141f903a9472725db5
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/alien.igm
@@ -0,0 +1,54 @@
+
+ The Visitors by Talaphid
+
+Lord 2 1.01a: backwards compatiblity unknown, probably waaay back
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Most Certainly
+ Using any LORD2 vars? : Yup
+ Overwrites any original .refs? : No
+ Saves and loads its own vars independently? : Yes (Alientel.INF)
+ Adds new .refs? : Yes (1- ALIEN.REF)
+ Replaces screens? : Yes (1- 1N3W of Arris)
+ Adds screens? : Yes (3)
+ Free? : Yes
+
+
+ Description:
+
+ An alien spacecraft has crashlanded near Arrisville. Go and explore
+this strange vessel, find out what insideous schemes these visitors have in
+store for the human race!
+
+ Three levels of alien to explore, from the water tank below to the
+orbital contact/ alien spaceship in the stars. If you are confused, the
+� shapes, in this IGM, are ALIENS. Its kinda obvious though, since the IGM's
+internal maps aren't wilderness. There's a trading alien captain, and a
+transporter that can be very interesting if multiple people are online.
+Since the coinage of the humans isn't of any value to the aliens, the player
+can only trade in gems. If the prices of items are unfair, search for
+references to `p19 -- that's gems, and change them. Not too difficult.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM ALIEN.IGM
+
+ To uninstall, do the same thing again, and erase ALIENTEL.INF, if it
+ exists.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `%THE VISITORS `3by `!T`3alaphid
+
+replacescreen: 441 1 show
+
+replacescreen: 46 2 noshow
+
+replacescreen: 47 3 noshow
+
+replacescreen: 48 4 noshow
+
+installmessage:
+
+ `%The Visitors... are amoung us.
diff --git a/xtrn/lord2/cnw/igm/andrew.igm b/xtrn/lord2/cnw/igm/andrew.igm
new file mode 100644
index 0000000000000000000000000000000000000000..7675ee8a91d6cbda02109e146caabc6af2c6bcf6
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/andrew.igm
@@ -0,0 +1,46 @@
+
+ The town of Andrew by Andreas Svendsen V1.00
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01a
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : I don't know!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (9)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (4)
+ Free? : Yes!
+
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM ANDREW.IGM
+
+ To uninstall, do the same thing again.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `@The town of Andrew `4by `$Andreas Svendsen
+replacescreen: 1564 1 show
+
+replacescreen: 1563 2 noshow
+
+replacescreen: 1565 3 show
+
+replacescreen: 1484 4 show
+
+replacescreen: 1194 5 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `4This is my fourth or fifth IGM. This IGM adds a new town...with a
+ `$few new shops...etc. If you have any questions or there are any
+ `4bugs, please E-mail me on Rolfas@online.no
+ `$I will answer everybody!!!!!!!!!!!
diff --git a/xtrn/lord2/cnw/igm/atrain.igm b/xtrn/lord2/cnw/igm/atrain.igm
new file mode 100644
index 0000000000000000000000000000000000000000..ef38e6a3bbead0348d4b527edc64eb4e84b66884
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/atrain.igm
@@ -0,0 +1,50 @@
+
+ Arris Training Grounds by Jay Weber V1.01
+ (C) 1997 ShroomTrip Software
+ AN IGM FOR LORD2 v1.01a
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (3)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes, Always!
+
+
+ Description:
+
+ Pretty simple IGM for LORD2.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM ATRAIN
+
+ To uninstall, do the same thing again.
+
+ To test, go to screen 224 (block 41).
+
+ Author: Jay Weber (aka Elric, Anakha, and blade)
+ (C) 1997 ShroomTrip Software
+ http://www.afn.org/~afn50378/sthome.html
+ E-Mail: elric@innocent.com
+ Support: kender@innocent.com
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `%Arris Training Grounds v1.01 `2by `!E`0lric
+replacescreen: 224 1 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `0This IGM adds a second training center on the Arris continent. It also
+ adds a new arena (similar to the BownTown Arena) and a healer (Expensive.
+ The healer charges `$$2 `0per HP.)
+
+ Players can also purchase some weapons and armors from the Arena Master,
+ and fight 6 new training bosses in 6 new locations!
diff --git a/xtrn/lord2/cnw/igm/backdoor.igm b/xtrn/lord2/cnw/igm/backdoor.igm
new file mode 100644
index 0000000000000000000000000000000000000000..d97d440379ea2dfba6ac10127f3a93f0fc4b765d
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/backdoor.igm
@@ -0,0 +1,27 @@
+
+ TURGON'S BACKDOOR by MAMOOSOFT PROGRAMMING
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01a
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes!
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Turgon's Backdoor `2from `0 Mamoosoft Programming
+
+replacescreen: 68 1 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Turgon's Backdoor introduces users to Sauraman, the dishonest record
+ keeper at the Training Center. Perhaps he can help them... for a price!
diff --git a/xtrn/lord2/cnw/igm/badcomp.igm b/xtrn/lord2/cnw/igm/badcomp.igm
new file mode 100644
index 0000000000000000000000000000000000000000..51756df69a165eee12a16c250f98748fc7558c9e
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/badcomp.igm
@@ -0,0 +1,45 @@
+
+ Bad Company by Talaphid
+
+Lord 2 1.01a: backwards compatiblity unknown, probably waaay back
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yup
+ Using any LORD2 vars? : Nope
+ Overwrites any original .refs? : No
+ Saves and loads its own vars independently? : Yes
+ Adds new .refs? : Yes (1- BADCOMP.REF)
+ Replaces screens? : Yes (1)
+ Adds screens? : No
+ Free? : Yes
+
+
+ Description:
+
+ The one and ONLY murder mystery IGM for LORD ][. While traveling
+between Porttown and Sosen Village, a murderer claims the life of a traveler!
+Determined not to let the villian loose into an unsuspecting Sosen Village,
+Ahyool (the caravan leader) stops the troop, and refuses to continue until
+the heinous fiend is caught.
+
+ The player has a certain number of chances of getting the culprit.
+Each time they guess wrong, two more people die (and thus, their bonus gets
+lower and lower). If they're stuck, they can advance the plot by talking
+with Ahyool. One person dies, but maybe some light is shed on the situation.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM BADCOMP.IGM
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `@Bad company `3by `!T`3alaphid
+
+replacescreen: 720 1 show
+
+installmessage:
+
+ `7Something has happened on the route to Sosen Village!
diff --git a/xtrn/lord2/cnw/igm/baitshop.igm b/xtrn/lord2/cnw/igm/baitshop.igm
new file mode 100644
index 0000000000000000000000000000000000000000..b809e1aebf288fa8bbaf26306a247f1bfcf70c99
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/baitshop.igm
@@ -0,0 +1,45 @@
+
+ The Big Bad Bait Shop v0.6b By Jon Hanson AKA Phobos
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ A quaint little bait shop west of GreenTree where you can catch and
+ sell your fish, buy fishing utilities, some weapons, etc.
+ Meet interesting people and maybe find a secret or two.
+
+
+ To Install:
+ Type: IGM WAMPA.IGM
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `%Big Bad Bait Shop `1By:`9Jon Hanson AKA Phobos
+
+replacescreen: 1118 1 show
+
+replacescreen: 1119 2 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `%Quaint little bait shop with a quickmart inside. Watch the sharks or
+ `%just talk to the people, but be careful. Also a few hidden things.
+ `9 Made by Jon Hanson AKA Phobos
+ `%Shout out to Lee Slate for his support! Rocky's Rag BBS (205)447-9923
+
diff --git a/xtrn/lord2/cnw/igm/bandit.igm b/xtrn/lord2/cnw/igm/bandit.igm
new file mode 100644
index 0000000000000000000000000000000000000000..dae1259d005714fb48407e5add29799d45fc8dcb
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/bandit.igm
@@ -0,0 +1,55 @@
+
+ Bandit's Hide Out by Chet Rhodes v2.0
+
+ AN IGM FOR LORD2 V1.00
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ Super simple IGM for LORD2 v1.0.
+
+ TO INSTALL
+ unzip into your LORD2 dir and type:
+
+ IGM BANDIT.IGM
+
+ Go to the east from BoneTown one screen. The hideout is in the well.
+
+ TO UNINSTALL
+ Do the same thing again.
+
+ TO UPGRADE FROM v1.1
+ Simply copy over the existing files.
+
+
+ TO UPGRADE FROM A VERSION PRIOR TO 1.1
+ Uninstall the current version (see above). Overwrite the existing
+ BANDIT.* files with the new files. From here use the normal install
+ directions.
+
+ chet.rhodes@juno.com
+ Fido 1:151/131
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Bandit's Hideout `2by `0Chet Rhodes (aka Hawkmoon)
+replacescreen: 1573 1 show
+
+replacescreen: 1570 2 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Bandit's Cove is a once per day IGM with both rewards and penalities.
diff --git a/xtrn/lord2/cnw/igm/battle.igm b/xtrn/lord2/cnw/igm/battle.igm
new file mode 100644
index 0000000000000000000000000000000000000000..641d9f5c237137e75cce86a675d129ded90a9019
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/battle.igm
@@ -0,0 +1,155 @@
+
+The Battlefield by Codax and Dragon's Den Ultd v1.3
+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes
+ Using any LORD2 vars? : `p80-`p90, `t04, `t20-`t24
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (3)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes (14)
+ Author : Codax
+ Free? : Yes!
+ This igm is dedicated to Zo� Grioneff
+
+ Description
+=-=-=-=-=-=-=-
+ Bodies are heaped opon each other. The smell of rotting carcases
+fills the air! How can civilized people do this to each other? And how,
+can you join in!! Take sides with Power the Evil Dragon, Shara Phoenix,
+Codax and some of your other friends from Dragon's Den Utld's Igms. Take
+aim with a crossbow and see a huge story unfold! Add the igm with the
+most movement thus far!
+
+ ALL FILES ARE NEEDED IN ORDER FOR THIS IGM TO MAKE SENSE!!
+
+List of Files
+
+ battle.igm --->This file/Instalation file
+ battle.rec --->Main Ref/Rec file
+ battle2.rec --->Part2 of Main Ref/Rec File
+ battlexh.rec --->Has all the Xhair info
+ battlefx.rec --->All Visual FX for Battlefield
+ battlest.ref --->Big Cinimatic type scenes
+ battle.dat --->Used by Igm.exe to add maps
+ battle1.ans --->Battle area
+ battle2.ans --->Porathe
+ battle3.ans --->Porathe 2
+ battle4.ans --->Underground Porathe
+ battle5.ans --->Underground remains of Porathe
+ battle6.ans --->Execution Chamber
+ battleqs.cod --->Queens list
+
+Varlist
+=-=-=-=-
+`p80 Power's Castle Spys
+`p81 Who's side you are on 1-power 2-shara 3-codax
+`p82 Power's Favor
+`p83 If you are the queen/second
+`p84 How many royals are dead
+`p85 Royal treasury
+`p86 Day starting as Queen/King
+`p87 Codax's Favor
+`p88 Shara's Favor
+`p89 Codax's Castle Spys
+`p90 Shara's Castle spys
+
+`t20 Deaths in Power's Castle
+`t21 Quests Finished
+`t22 Codax's Castle deaths
+`t23 Shara's Castle deaths
+
+
+Want more fun? Try out other igms by Codax & Dragon's Den Ultd
+
+The Pit
+Greentree Prison
+Dragon's Den Housing
+Scavenger Hunt
+Cave of Hope and Despair
+The Pond
+
+ If you are upgrading from a previous version just copy then new
+ recs over the old ones.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM battle.igm
+
+ To uninstall, do the same thing again.
+
+
+Location: 1 mile west and 2 miles north of Sosen Village
+
+Special Offer
+=-=-=-=-=-=-=
+Lord2 igm Authors, would you like the source for all the visual
+effects of this game? If so send a $5 money order or check to
+
+Codax Dragon -\
+107 Patti Ln | This price covers 3 1/2 inch disk
+St.Clairsville, Oh |- and shipping. A percentage of this
+43950 | money will be sent to Bobby Queen's
+ -/ Lord2 igm Page to help keep it up!
+
+(There are 10 easy timesaving animation routines, the big 8 minute cinema
+ sequence, all movement, and much more!)
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0The Battlefield by `1C`3o`5d`7a`9x `0and `#Dragon's `$Den `%Ultd
+
+replacescreen: 295 1 show
+
+replacescreen: 294 2 show
+
+replacescreen: 293 3 show
+
+replacescreen: 292 4 show
+
+replacescreen: 213 5 show
+
+replacescreen: 373 6 show
+
+replacescreen: 484 7 noshow
+
+replacescreen: 486 8 noshow
+
+replacescreen: 488 9 noshow
+
+replacescreen: 564 10 noshow
+
+replacescreen: 566 11 noshow
+
+replacescreen: 568 12 noshow
+
+replacescreen: 644 13 noshow
+
+replacescreen: 646 14 noshow
+
+replacescreen: 648 15 noshow
+
+
+installmessage:
+
+`0
+
+ `%ABOUT THIS IGM:
+
+`%Location: 1 mile west and 2 mile north of Sosen Village
+
+ Take sides in a three sided war against seemingly impossible
+ odds. This igm has the most movement of any igm thus far so you
+ can enjoy cinimatic type scenes with love loss and heartbreak.
+ This igm has igm has over 30 minutes of movement!!
+
+ Author: `1C`3o`5d`7a`9x
+ Dragon's Den Ultd
+ http://www.geocities.com/SiliconValley/Way/9982/index.html
+ Codax_dragon@juno.com
+
+`l`l`l`$SUPPORT DRAGON'S DEN BBS!!!!!`L`l`l`l`l`l
+
diff --git a/xtrn/lord2/cnw/igm/begger.igm b/xtrn/lord2/cnw/igm/begger.igm
new file mode 100644
index 0000000000000000000000000000000000000000..1408c0c1172cf254512adb4842c0629313a4f8b6
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/begger.igm
@@ -0,0 +1,49 @@
+
+ The Begger by Craig Goldsmith
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes! (sorta)
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes! Optional :-)
+
+
+ Description:
+
+ Walking along to vist your friend Neb you see a begger hey you
+
+ have some spare change why not. Chances (2/3) are you might
+
+ get something for your generousity. Gold or Alignments Say!
+
+ To install we so far I anit got a install file so type
+
+ IGM begger.IGM
+
+ To uninstall, do the same thing again.
+
+ To test take a walk to see Neb and the Begger shold be there. :-)
+
+ For More info read the Doc ...
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0The Begger `2by `$C`0raig `$G`0oldsmith
+
+replacescreen: 1358 1 show
+
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Met the Begger and give him ya spare change and magic will
+ happen.`$Created by `%C`#raig `%G`#oldsmith. Bugs and Comments
+ Lord Echo or E-mail: gardnerj@onaustralia.com.au. Cya Goldie.
+
diff --git a/xtrn/lord2/cnw/igm/blackbar.igm b/xtrn/lord2/cnw/igm/blackbar.igm
new file mode 100644
index 0000000000000000000000000000000000000000..b2f5406947d3509c1309234518084ea2c88815fe
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/blackbar.igm
@@ -0,0 +1,52 @@
+
+ Black Death's Bar by Jim V1.00
+
+ AN IGM FOR LORD2 1.01a+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (2)
+ Adds screens? : Yes! (3)
+ Free? : Yes! (Yeah!)
+
+
+ Description:
+
+ My first Igm for LORD2, Talk with Black Death, the bartender
+ or stay in a room in the four room Inn upstairs. You can also
+ explore the basement which has some fun stuff to do.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM BLACKBAR.IGM or use the included batch file (BBinst).
+
+ To uninstall, do the same thing again.
+
+ To test, walk 6 screens east of the Purple tree (above Sosen Village)
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `4Bla`@ck De`4ath's `@Tavern `$1.00 `2- `0by `4J`@im `2(blackdth@geocities.com)
+replacescreen: 299 1 show
+
+replacescreen: 305 2 show
+
+replacescreen: 1459 3 noshow
+
+replacescreen: 1460 4 noshow
+
+replacescreen: 1461 5 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2A new place to go hang out and get a drink, some tips, stay a
+ night or maybe even get some `$$$. `2Your `0LORD2`2 world will
+ be a bit more fun to be in :)
diff --git a/xtrn/lord2/cnw/igm/blackdc.igm b/xtrn/lord2/cnw/igm/blackdc.igm
new file mode 100644
index 0000000000000000000000000000000000000000..a9c07ddc669f2813788d7e2e9c66ab4b36598995
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/blackdc.igm
@@ -0,0 +1,43 @@
+
+ Black Dragon Castle by Gum-Lass V1.01
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01a
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (2) Sort of....
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (3)
+ Free? : Yes!
+
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM BLACKDC.IGM
+
+ To uninstall, do the same thing again.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Black Dragon Castle `2by `0Gum-Lass
+replacescreen: 41 1 show
+
+replacescreen: 31 2 noshow
+
+replacescreen: 30 3 noshow
+
+replacescreen: 29 4 noshow
+
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `1Be a winner, learn to cheat
+
diff --git a/xtrn/lord2/cnw/igm/blizzard.igm b/xtrn/lord2/cnw/igm/blizzard.igm
new file mode 100644
index 0000000000000000000000000000000000000000..735ef7170845489030c26fb40b5cdf52b0eccb8d
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/blizzard.igm
@@ -0,0 +1,42 @@
+
+ Snowy Pass BLIZZARD! by Michael Hutson
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (3)
+ Adds screens? : Yes! (2)
+ Free? : Yes!
+ Uses Externally Defined Items? : Yes! (1)
+
+ Description:
+
+ Adds an invisible maze to the snowy pass. Player can see a path if they
+ get the snow goggles at the the snowy pass overlook.
+
+
+igmname: `7Snowy Pass `%BLIZZARD! `0by Michael Hutson
+
+replacescreen: 1508 1 show
+
+replacescreen: 1499 2 show
+
+replacescreen: 1504 3 noshow
+
+replacescreen: 1502 4 noshow
+
+replacescreen: 1591 5 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Makes going over the Snowy Pass a LOT harder! Whiteout conditions make
+ finding your way through almost impossible.. Unless you have obtained the
+ Snow Goggles!
diff --git a/xtrn/lord2/cnw/igm/blksheep.igm b/xtrn/lord2/cnw/igm/blksheep.igm
new file mode 100644
index 0000000000000000000000000000000000000000..99d292bce68dd9da7e8331aecfae04389fb48410
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/blksheep.igm
@@ -0,0 +1,46 @@
+
+ Black Sheep of the Family v1.5
+ By Adam Thompson (shadow_rider@geocities.com)
+ AN IGM FOR LORD2 1.01a and up!
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : Yes! (`p90, `p96, `i74, `t19)
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (2)
+ Adds screens? : No!
+ Free? : Yes!
+
+
+ Description:
+
+ Ok. This should be pretty painless. :)
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM BLKSHEEP.IGM
+
+ To uninstall, do the same thing again.
+
+ I decided to make the sheep more than just scenery. :)
+ This basically just gives players an alternate way to clear Turgon's name.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `9Black Sheep of the Family `2by `8Shadow Rider
+replacescreen: 1514 1 show
+;67
+replacescreen: 227 2 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `0This IGM adds an alternate way to clear Turgon's name.
+ Nothing fancy, but it works. ;)
+
+
+
diff --git a/xtrn/lord2/cnw/igm/blue.igm b/xtrn/lord2/cnw/igm/blue.igm
new file mode 100644
index 0000000000000000000000000000000000000000..9413c3d08e68c33ceaebf9892ca02f57e677f4d0
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/blue.igm
@@ -0,0 +1,35 @@
+
+ The Blue Dragon's Challenge v0.99
+
+ SlayerSoft Programming
+
+
+
+ Is registered version of LORD2 required to use? : Yeppers!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (2)
+ Free? : Of course!
+
+Description: An IGM where you are kidnapped by the Blue Dragon and imprisoned
+The only way out is to solve all his puzzles.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0The `1Blue Dragon`0's Tests v0.99 By Ben Mondoux.
+replacescreen: 1185 1 show
+
+replacescreen: 1187 2 noshow
+
+replacescreen: 1186 3 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ An IGM where you are kidnapped by the Blue Dragon and imprisoned, solve his
+ puzzles to get out. Plenty of movement here. This an unfinished version.
+ Some stuff will be added later. Feedback: slayer@calgary.crosswinds.net. http://www.crosswinds.net/clagary/~slayer
diff --git a/xtrn/lord2/cnw/igm/bong.igm b/xtrn/lord2/cnw/igm/bong.igm
new file mode 100644
index 0000000000000000000000000000000000000000..be3429eb5c3fb387c6e73a9aebfcae54a8c7c666
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/bong.igm
@@ -0,0 +1 @@
+replacescreen: 401 1 noshow
diff --git a/xtrn/lord2/cnw/igm/breanna.igm b/xtrn/lord2/cnw/igm/breanna.igm
new file mode 100644
index 0000000000000000000000000000000000000000..5e4f994fcec115db386bb8ceaffc653c307f6612
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/breanna.igm
@@ -0,0 +1,47 @@
+
+ Breanna's Cove by Chet Rhodes V1.00
+
+ AN IGM FOR LORD2 V1.00
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ Super simple IGM for LORD2 v1.0.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM CRAZY.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, head west from Porttown or North from Flag City. Follow the
+ coast line till you find Breanna's hut.
+
+ chet.rhodes@juno.com
+ Fido 1:151/131
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Breanna's Cove `2by `0Hawkmoon
+replacescreen: 940 1 show
+
+replacescreen: 860 2 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Breanna's Cove is a one time only IGM. Users will be given one chance
+ each day until they have completed the IGM. This IGM was designed to
+ enhance the game without overbalanceing it.
diff --git a/xtrn/lord2/cnw/igm/bunny.igm b/xtrn/lord2/cnw/igm/bunny.igm
new file mode 100644
index 0000000000000000000000000000000000000000..38280d2c0b57ddf68ca75bd7f9e60f1b2317ba2b
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/bunny.igm
@@ -0,0 +1,68 @@
+
+ The Bunny Cave v1.01 by Tom Torbeck
+
+ QUICK INFO:
+ Version of LORD2 required to use it : 1.01a
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : Yes (a few)
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ (Actually, 1 REC file. Requires L2 1.01!)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+ Description:
+ The Bunny Cave started as a joke, but bloomed pretty well after that.
+ Users can will gain gold and experience. They MAY also gain 1 quest
+ point, 10 dodge points, 5 gems, and 1 charm if they meet all of the
+ challenges correctly. Some items cancel out if they do things out of
+ order. I did this on purpose.
+
+ Also, it is important to note that I made this tough. The mosters adjust
+ automatically to the player they are fighting, making this far more of
+ a challenge then first meets the eye. If you and your players are finding
+ this too hard, let me know. I did want it to be difficult. I found that
+ most players above 25 level (including myself) were just walking around
+ killing EVERYTHING that ran into. The Bunny Cave fixes that. My current
+ character is 34th level, has both the Koshi Sowrd and Armour and STILL
+ managed to get killed. I feel that my goal was obtained. ;-)
+
+ This IGM replaces the Old Man's Rock (1189). The old man still functions,
+ just an entrance is added north of were he sits naked. One new screen
+ is added to handle the internal section of the cave (492).
+
+ SPECIAL NOTE: When you reset your game, delete BUNNY.IDF! (Igm Data File)
+
+ HISTORY: v1.00 Initial Release
+ v1.01 Bug fixes in @Choice (Thanks, Ben!)
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM BUNNY.IGM
+
+ To uninstall, do the same thing again.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `@The Bunny Cave v1.01 `3by Tom Torbeck
+
+replacescreen: 1189 1 show
+
+replacescreen: 492 2 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+ `2This is my first public release IGM. It may not be much, but I thought
+ that the idea was pretty funny, so I put it together. I did try to avoid
+ the "walk in the park for easy money" though.
+
+ Kudos to Seth for the `0LORD2`2 world and engine!
+
+ `3Do you have internet email? Join the LORD/LORD2 mailing list by sending
+ an email to `9listserv@leftside.com `3in the `@Message BODY`3, place the
+ words "`2SUBSCRIBE LORDLIST`3" <w/o quotes>. This list has been approved
+ by Seth, he'll be around to answer questions on it too.'!!
diff --git a/xtrn/lord2/cnw/igm/canoe.igm b/xtrn/lord2/cnw/igm/canoe.igm
new file mode 100644
index 0000000000000000000000000000000000000000..1b7feafcaa620ac1f48ef886b015a0c1f7e4c47e
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/canoe.igm
@@ -0,0 +1,64 @@
+
+ The Canoe 2.0
+ by James C. Jones and Ben Tiefert, The Shadow BBS (850) 864-4292
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (2)
+ Adds screens? : Yes! (7)
+ Free? : Yes!
+
+
+ Description:
+
+ This IGM adds a Canoe rental shop east of Porttown where you can
+ get a canoe, and with that, can go to the SeaScape Bar and Grille,
+ and a safehouse to stay. You may also pass those up and go across
+ the sea.
+
+
+ IGM CANOE.IGM
+
+ To uninstall, do the same thing again.
+
+ /////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `!The Canoe `2by `0James Jones The Shadow BBS 850-864-4292
+
+replacescreen: 477 1 show
+
+replacescreen: 556 2 noshow
+
+replacescreen: 637 3 noshow
+
+replacescreen: 717 5 noshow
+
+replacescreen: 797 4 noshow
+
+replacescreen: 877 6 noshow
+
+replacescreen: 957 7 show
+
+replacescreen: 636 8 noshow
+
+replacescreen: 716 9 noshow
+
+
+installmessage:
+
+ `!The Canoe 2.0
+ `%ABOUT THIS IGM:
+
+ `2This IGM adds a Canoe rental shop east of Porttown where you can
+ `2get a canoe, and with that, can go to the SeaScape Bar and Grille,
+ `2and a safehouse to stay. You may also pass those up and go across
+ `2the sea.
+
+ `! Made by James C. Jones and Ben Tiefert, The Shadow BBS 850-864-4292
+
diff --git a/xtrn/lord2/cnw/igm/church.igm b/xtrn/lord2/cnw/igm/church.igm
new file mode 100644
index 0000000000000000000000000000000000000000..960b86826f1190089ffd28eeb8d95df615b5067d
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/church.igm
@@ -0,0 +1,42 @@
+
+ The Crazy Man's House by Seth A. Robinson V1.00
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ Super simple IGM for LORD2, to be used as a template.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM CRAZY.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, walk to the screen directly under Stonebrook and you will see
+ a new building - enter it and see the crazy old man say 9 random things.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0The Stonebrook Church `2from `0 Mamoosoft Programming
+
+replacescreen: 1280 1 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Stonebrook Church was, I believe, the first IGM for LORD2. I hope you
+ enjoy it.
diff --git a/xtrn/lord2/cnw/igm/cleft.igm b/xtrn/lord2/cnw/igm/cleft.igm
new file mode 100644
index 0000000000000000000000000000000000000000..1f0612219ac6c2fb286fce244960c06f46d1c8dc
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/cleft.igm
@@ -0,0 +1,49 @@
+
+ Cleft to the Unknown Version v1.0 By: ArticNight IGMs
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ A REAL simple IGM designed to give more excitement to the game. You must
+enter the area and solve complex puzzle to win. Very nice. Not to ugly...
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM Cleft.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, follow the desert river from porttown to flagcity. You will see
+an island with a black area there. That is my igm!
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Cleft to the Unknown v1.0 `2by `3ArticNight IGMs
+;1352
+replacescreen: 1432 2 show
+
+replacescreen: 628 1 noshow
+
+replacescreen: 1110 2 show
+
+installmessage:
+
+`r0`c `2 A REAL simple IGM designed to give more excitement to the game. You must
+`2enter the area and solve complex puzzle to win. Very nice. Not too ugly...
+
+Stephen Walls
+Proud CEO of DarkForest Software!
+
diff --git a/xtrn/lord2/cnw/igm/cloak.igm b/xtrn/lord2/cnw/igm/cloak.igm
new file mode 100644
index 0000000000000000000000000000000000000000..cfce25107dcb3b3c36001516fef1972ec64ced41
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/cloak.igm
@@ -0,0 +1,57 @@
+
+ DarkCloak Ruins by Jay Weber V2.00
+ (C) 1997 ShroomTrip Software
+ AN IGM FOR LORD2 v1.01a
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes! `t14: Bit 5
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (2)
+ Free? : Yes, Always!
+
+
+ Description:
+
+ Explore the ruins of the Dark Cloak Tavern. Players can talk to Tarrin
+ and learn about color codes, play a game with the Old Man, change their
+ name, and attempt to become a True Warrior!
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM CLOAK
+
+ To uninstall, do the same thing again.
+
+ To upgrade from v1.00, run Install.Bat
+
+ To test, go to 2 screens south of Runion Keep, and go to the ��symbol
+ in the center and press against it. It will warp you to a ��symbol near
+ the Ruins.
+
+ Author: Jay Weber (aka Elric, Anakha, and blade)
+ (C) 1997 ShroomTrip Software
+ http://www.afn.org/~afn50378/sthome.html
+ E-Mail: elric@innocent.com
+ Support: kender@innocent.com
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `7Dark Cloak Ruins v2.00 `2by `!E`#lric
+replacescreen: 1431 1 show
+
+replacescreen: 1583 2 noshow
+
+replacescreen: 1584 3 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `0Explore the ruins of the Dark Cloak Tavern. Players can talk to Tarrin
+ and learn about color codes, play a game with the Old Man, change their
+ name, and attempt to become a True Warrior!
diff --git a/xtrn/lord2/cnw/igm/coliseum.igm b/xtrn/lord2/cnw/igm/coliseum.igm
new file mode 100644
index 0000000000000000000000000000000000000000..31c870f9e2b7d18a4807f860510aa9e767eaad4c
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/coliseum.igm
@@ -0,0 +1,53 @@
+
+ Northlands Coliseum v1.00b by ShroomTrip Software
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No! (1)
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (5)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ This IGM adds a Coliseum in the Northlands. You get to bet on which
+ monster will win a fight. The amount of times you can bet is limited
+ to 6 per day.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM COLISEUM.IGM
+
+ To uninstall, do the same thing again.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `!Northlands Coliseum `2by `0ShroomTrip Software
+;215
+replacescreen: 294 1 show
+
+replacescreen: 216 2 show
+
+replacescreen: 217 3 show
+
+replacescreen: 137 4 show
+
+replacescreen: 57 5 show
+
+replacescreen: 54 6 noshow
+
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2This IGM adds a Coliseum in the Northlands. You get to bet on which
+ monster will win a fight. The amount of times you can bet is limited
+ to 6 per day.
diff --git a/xtrn/lord2/cnw/igm/cottage.igm b/xtrn/lord2/cnw/igm/cottage.igm
new file mode 100644
index 0000000000000000000000000000000000000000..2192e78d069dd16a4af5878dac91bd0ba42440bb
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/cottage.igm
@@ -0,0 +1,66 @@
+
+ BeachSide Cottage by Skull V1.03
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No! Yes! Maybe?
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes! unless u wanna send
+ me money ;)
+
+ Description:
+ An IGM, first one that ever actualy is out to the public (that i made),
+ I (Skull) had originally made over 10 IGMS for the original LORD, but they all
+had too many errors and I got sick of fixin 'em. So here, in 1 day I made an
+IGM for LORD][ and to my knowledge it is BUG-FREE. This is v. 1.03, changed
+the price and stuff, not really anything major.
+
+BeachSide Cottage is the 1st in a series of IGMS due out from me, in which
+there is a small cottage located on the beach betweeen Flag City and BoneTown.
+There are guest beds which the owner can charge for, and a ferry too, as well
+as (SUPRISE! ;) ) a private bedroom. The ferry and Bedroom are password
+protected.
+
+INSTALLATION:
+Unzip into your LORD2 Dir., then type
+
+ IGM COTTAGE.IGM
+
+ To uninstall, do the same thing again.
+
+To test, go to Fagcity... Er FLAGcity (sorry ;) ) and then go down the coastline.
+You should see a small new building with a dock. If you reach bonetown,
+it didnt work.
+
+Some aditional stuff:
+This is version 1.03. Emm, i had a few bugs in 1.00 which i figured out in v.
+1.01, but then i had some more new bugs which i have figured out in 1.02.
+This one just changed the price.
+I GUARANTEE that this one WILL work. And rightly too.
+if not, you didnt read that last line.
+
+
+
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `%BeachSide Cottage by `4Skull `2of Big R.C.s BBS 610-494-4604 v.1.03
+replacescreen: 1332 1 show
+
+replacescreen: 1411 2 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+`2Thanx for installin' `%BeachSide Cottage `2Lord2 IGM. I really appreciate it.
+if you have any errors, contact `4Skull `2 on Big R.C.'s BBS (610)494-4604.
+`8Version 1.03
diff --git a/xtrn/lord2/cnw/igm/crazy.igm b/xtrn/lord2/cnw/igm/crazy.igm
new file mode 100644
index 0000000000000000000000000000000000000000..7f595ba834650d3d79f3ce3894e31d848a831982
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/crazy.igm
@@ -0,0 +1,46 @@
+
+ The Crazy Man's House by Seth A. Robinson V1.00
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ Super simple IGM for LORD2, to be used as a template.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM CRAZY.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, walk to the screen directly under Stonebrook and you will see
+ a new building - enter it and see the crazy old man say 9 random things.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Crazy Man's House `2by `0Seth A. Robinson
+;replacescreen: 1439 1 show
+replacescreen: 1431 1 show
+
+replacescreen: 1458 2 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Well, it really sucks - but it lets you see how easy it is to install
+ and uninstall new houses and areas to your `0LORD2`2 world without screwing
+ up everything!
diff --git a/xtrn/lord2/cnw/igm/descent.igm b/xtrn/lord2/cnw/igm/descent.igm
new file mode 100644
index 0000000000000000000000000000000000000000..2d72373c410296bf044bf3086cdaec210b6f7b7c
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/descent.igm
@@ -0,0 +1,49 @@
+
+ Descent of the Dragon v1.5r
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01a
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ Decent of the Dragon v1.5r
+
+ This is an IGM that will add a random event to the GENRAN.REF. A dragon
+ attack. Players must be level 5 before this will happen. The dragon is
+ so powerful that a character level 4 or below will have virtually no chance
+ against the Dragon. Most characters below level 8 won't have a chance.
+ Losing to the dragon will not kill the player but leave them with very few
+ hitpoints. Running from the Dragon will in most cases be futile. But not
+ necessarily fatal.
+
+ To uninstall, type INSTALL /U
+
+ To test, walk to the screen directly under Stonebrook and you will see
+ a new building - enter it and see a list of places you can go. But not
+ for free.:)
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Decent of the Dragon `2by Oaksoft Computing
+replacescreen: 16 1 noshow
+replacescreen: 42 2 show
+installmessage:
+
+ ` THIS IGM:
+
+ `2This is my second IGM. It adds a random event to GENRAN.REF. A dragon
+ attack. Players must be level 5 or higher before this will happen. Run
+ away from the dragon and she will grab you and carry you to her lair so her
+ babies can practice on you.
+ This IGM backs up the current GENRAN.REF for easy un-install.
diff --git a/xtrn/lord2/cnw/igm/devil.igm b/xtrn/lord2/cnw/igm/devil.igm
new file mode 100644
index 0000000000000000000000000000000000000000..61b6f827f5d123be67eefafe62f467264d6d2997
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/devil.igm
@@ -0,0 +1,53 @@
+ The Devil's Rage by Tony M. Brown V2.00
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 2.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (5)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (6)
+ Free? : Yes!
+
+
+ Description:
+
+ This is a test of skill where users can gain much needed experence.
+ I wish to remain anonymous because of the fact someone who sees this
+ will prolly be really religous, and then like call a preist on me or
+ something... I'll tell you, I do write to other IGMs that are fairly
+ good... try to find em...
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM DEVIL.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, goto the desert, to the osais... enter the hole!
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `4The Devil's Rage `0by `4Tony M. Brown
+replacescreen: 1029 1 show
+replacescreen: 989 2 noshow
+replacescreen: 1069 3 noshow
+replacescreen: 909 4 noshow
+replacescreen: 179 5 noshow
+replacescreen: 180 6 noshow
+replacescreen: 260 7 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `0This is the first release. This is an adventure to the pits of hell.
+ In there, warps will send you to a place to gain experence... for example
+ The Bunny Trail and The End of Time are just two of the places that
+ you can go. After exiting the pits of hell, you appear in the GreenTree
+ chapel... isn't that weird???
+
+
diff --git a/xtrn/lord2/cnw/igm/devisl.igm b/xtrn/lord2/cnw/igm/devisl.igm
new file mode 100644
index 0000000000000000000000000000000000000000..8c6b9b890756d15123d447a07ab30e15dc62b762
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/devisl.igm
@@ -0,0 +1,54 @@
+
+ Devils Island Version v1.50
+
+ MetaLHeaD Softwarez
+
+ Copyright 1997(c), All Rights Reserved...
+
+
+ Is registered version of LORD2 required to use? : Dunno :>
+ Using any LORD2 vars? : Yes (see devils.txt)
+ Overwrites any original .refs? : No
+ Saves and loads its own vars independently? : Yes
+ Adds new .refs? : Yes (3)
+ Replaces screens? : Yes (1)
+ Adds screens? : Yes (5)
+ Free? : Yes
+
+
+Description:
+
+ Cool Igm!, Its a small island about in the cent of Lord ii the new world!
+
+ It has a Cityhall(Bank is only open so far), Bar(with bathroom thats opend
+ since v.666), Training Center, Demons Inn(finished version!), Finishing
+ ,A Place to shop!, a small quest to do!, and much more check it out!
+
+
+ See Devils.Txt for more information on this fine igm by Demon Knight
+
+Use Devils.Exe to REST/UNINSTALL or information!
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Devils Island! v1.50 `2by `0MetaLHeaD Softwars
+replacescreen: 942 1 show
+
+replacescreen: 862 2 show
+
+replacescreen: 863 3 noshow
+
+replacescreen: 864 4 noshow
+
+replacescreen: 865 5 noshow
+
+replacescreen: 866 6 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Devisl Island, Orignal a Megadeth song, and now a Lord *2* IGM.
+ Written by: Demon Knight
+ Demon-Knight@Juno.com
+ WWW.IBBS.COM/DARKLAND/
+ DarkLandsBBS 215.487.7315
diff --git a/xtrn/lord2/cnw/igm/disco.igm b/xtrn/lord2/cnw/igm/disco.igm
new file mode 100644
index 0000000000000000000000000000000000000000..b400caa738bb36490e1a7b0b4cad9061cd121235
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/disco.igm
@@ -0,0 +1,28 @@
+
+ G-Dogg's Disco Hall by MK Technologies
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes!
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `4G`7-`6Dogg's `2D`3i`#s`$c`0o `7Hall `3by `8Hades `4Software
+
+replacescreen: 1277 1 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `0G-Dogg's Disco Hall is the first IGM from Hades Software. Hope ya enjoy
+ enjoy it! If ya like this IGM, visit the official home of Hades
+ Software - Darkside BBS!!! The number is (732) 251-4931
diff --git a/xtrn/lord2/cnw/igm/divinec.igm b/xtrn/lord2/cnw/igm/divinec.igm
new file mode 100644
index 0000000000000000000000000000000000000000..d254e6b29cc5f784e62fc360072b3378fe71b0a5
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/divinec.igm
@@ -0,0 +1,61 @@
+
+ Divine Comedy REF by Talaphid Elsdragon v1.01
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : works with 1.00
+ Is registered version of LORD2 required to use? : Yes
+ Using any LORD2 vars? : No
+ Overwrites any original .refs? : No
+ Saves and loads its own vars independently? : Yes (2 - DIVPETER.IDF
+ DIVDEITY.IDF)
+ Adds new .refs? : Yes (1 - DIVINEC.REF)
+ Replaces screens? : Yes (1 - Greentree o/side)
+ Adds screens? : Yes (1 - block# 1201)
+ Free? : Sure
+
+
+ Description:
+
+ A one a day bonus you have to earn. I'm considering making the bonus
+greater the more good (or evil) the character is... to go along with the
+whole idea. Not too unbalancing, I believe... unless you know of any level
+1 characters who happen to get skystaffs...
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM DIVINEC
+ - or -
+ IGM DIVINEC.IGM
+
+ To uninstall, do the same thing again.
+
+ WHAT'S THE DIFFERENCE?
+
+ Nothing much. Just this map looks a whole lot better than the v1.00 one.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `@Div`4ine `%Com`7edy `8REF `3by `!T`3alaphid
+
+;replacescreen: 1201 1 noshow
+replacescreen: 321 1 noshow
+
+;replacescreen: 1356 2 show
+replacescreen: 401 2 show
+
+installmessage:
+
+ `2The question with a `@Div`4ine `%Com`7edy `2becomes...
+
+ `2who is laughing at who? [probably at me]
+
+ `3-=- To TEST: Talk to the `0GREEN `3face just outside GREENTREE.
+ `3-=- To USE: You need a SKYSTAFF and
+ `3either more than 19 or less than -19 alignment
+
+`7mail: TALAPHID@JUNO.COM
+
+`3-=-
+`!: `3An `@Adventures `$Unlimited`3 product `!: `#REF for LORD ][
+`3-=- `8]`7no thanks `%Seth Able Robinson`8[
diff --git a/xtrn/lord2/cnw/igm/doc.igm b/xtrn/lord2/cnw/igm/doc.igm
new file mode 100644
index 0000000000000000000000000000000000000000..c946ab24e3767c1f9f66759a043a78ae337b149f
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/doc.igm
@@ -0,0 +1,67 @@
+
+ Doc Farrell by Kevin Farrell V3.01a
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : YES!
+ Using any LORD2 vars? : YES!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : YES!
+ Replaces screens? : YES!
+ Adds screens? : YES!
+ Free? : YES!
+
+
+ Description:
+
+ Doc Farrell is a doctors office 2 miles under the Stonepass Lodge. The
+ update introduces something brand new to LORD II. Actual interactivity!
+ You can play a game of darts and win money (or lose it (-: ).
+ There are also lots of hidden treasures like...A hidden key which opens
+ the door to a hidden cave! A backdoor where you can play a game of darts
+ or can go to the Brutal World to try and defeat all 9 enimies and become
+ King of the Mountain! Remember to be nice to the homeless guy!
+
+ To install, unzip DOC301a.ZIP into your LORD2 dir and type:
+
+ IGM DOC
+
+******** READ THIS READ THIS READ THIS READ THIS READ THIS READ THIS ********
+* *
+* (NOTE: if you already have an older version of Doc Farrell installed then *
+* ininstall it before you install this one or you will be stuck with *
+* the old screens!!!) *
+*****************************************************************************
+
+ To uninstall, do the same thing again.
+
+ To test, walk down 2 screens directly under the Stonepass Lodge and you will
+ see a house there - go up to it, go inside and do whatever.
+
+
+
+---------------BELOW IS USED BY LORD2-----DON'T TOUCH!!----------------------
+
+igmname: `2Doc Farrell `8by: `%K`7evin `%F`7arrell `3v3.01a
+
+replacescreen: 1040 1 show
+replacescreen: 169 2 noshow
+replacescreen: 167 3 noshow
+replacescreen: 168 4 noshow
+replacescreen: 170 5 noshow
+
+installmessage:
+`r0 `r1 `4DOC FARRELL`r0
+
+ `2Thank you for installing "`%Doc Farrell`2"!!!
+ I hope you enjoy it and please e-mail me at:
+ `3kfarrell@kearney.net
+ `2if you have ANY questions from how to install
+ to how to edit it....just write me a letter and
+ I will reply within 24 hours!
+
+ `6Thanks & enjoy
+ `%K`7evin `%F`7arrell
diff --git a/xtrn/lord2/cnw/igm/drgnhome.igm b/xtrn/lord2/cnw/igm/drgnhome.igm
new file mode 100644
index 0000000000000000000000000000000000000000..aeb97712f716bc9f74bb2a0c60033e9dd578335b
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/drgnhome.igm
@@ -0,0 +1,118 @@
+ -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ Dragon's Den Housing by Codax Dragon
+ Copyright 1997 Dragon's Den ULTD.
+ -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ AN IGM FOR LORD2 Beta 7+
+
+Quick Info:
+
+ Is registered version of LORD2 required to use? : Yes :(
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (10)
+ Free? : Yes
+
+Description:
+
+ Dragon's Den Housing
+ -=-=-=-=-=-=-=-=-=-=-=-
+
+ This is my first IGM for LORD2, I have gone back and redone somethings so
+ now it takes up less space but has more in it. I decided to make this
+ free so eveyone can have a chance at owning great housing for little money
+ I also added some new features. I hope you love it, I do! :)
+ This is Dragon's Den Housing for Lord2.
+
+You get:
+ -6 Rentable Huts
+ -One person to a hutt
+ -Darlatia's Legend
+ -The Castle Esperanto
+ -Dog
+ -beds
+ -Warp
+ -indoor fishing and garden
+ -pool
+ -much more
+
+ -The Castle Royal
+ -Warp, dog, bed, tables, restaurant, library
+ -much more
+
+ -The Castle Jasminita
+ -Warp, dog, beds, bathrooms
+ -much more
+
+ -Hutts are now rentals 60 entries, 90 entries, 120 entries depending on price
+
+if you are upgrading from the unreged ver delete uninstall drgnhome and then reinstall
+
+To Install:
+
+ Type: IGM Drgnhome.IGM
+
+ To Uninstall:
+
+ do the same thing again.
+
+ To Test:
+
+ Go to the Travel agency outside of Greentree. Enjoy!
+
+ To Contact Me:
+
+ My BBS: Dragon's Den BBS (DIS)-CON-ECTD :( That's why I need da money
+
+
+ Snail Mail Me: Codax Dragon
+ 107 Patti Ln
+ St.Clairsville Ohio 43950
+
+
+ Email: codax_dragon@Juno.com
+ Web: http://www.geocities.com/SiliconValley/Way/9982/index.html
+
+
+Please I need feed back tell me what you think of my IGM
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `#Dragon's Den `$Housing `2by `1C`3o`5d`7a`9x `4Dragon `4`bRegistered!! :)
+replacescreen: 1356 1 show
+
+replacescreen: 1588 2 noshow
+
+replacescreen: 1422 3 noshow
+
+replacescreen: 1423 4 noshow
+
+replacescreen: 1082 5 noshow
+
+replacescreen: 1083 6 noshow
+
+replacescreen: 1084 7 noshow
+
+replacescreen: 1002 8 noshow
+
+replacescreen: 1003 9 noshow
+
+replacescreen: 1004 10 noshow
+
+replacescreen: 1587 11 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Dragon's Den Housing the first of many Dragon's Den Ultd. Igms coming out.
+`2`bRegistered!!! `2Thanx!!! Because you contributed you are my friend....also you have
+ helped out Dragon's Den BBS to go up!!!!
+
+Location: Travel Hut outside Greentree
+
+ `%Copyright 1997 Dragon's Den Ultd
+ `%http://www.geocities.com/SiliconValley/Way/9982/index.html codax_dragon@juno.com
+`k `k
diff --git a/xtrn/lord2/cnw/igm/dsprhope.igm b/xtrn/lord2/cnw/igm/dsprhope.igm
new file mode 100644
index 0000000000000000000000000000000000000000..a8600a6a86c446d1f975fdce1cf004088fb10e53
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/dsprhope.igm
@@ -0,0 +1,92 @@
+ -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ The Cave of Despair and Hope by Codax Dragon
+ Copyright 1997 Dragon's Den ULTD.
+ -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ AN IGM FOR LORD2 Beta 7+
+
+Quick Info:
+
+ Is registered version of LORD2 required to use? : Yes :(
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (6)
+ Free? :Yes....BUT PLEASE SEND DONATIONS FOR MY BBS
+
+Description:
+
+ Cave of Hope + Despair
+ -=-=-=-=-=-=-=-=-=-=-=-=-
+
+ This is my second IGM for LORD2, so it isn't the greatest, but my users
+ love it :). This is The Cave of Hope and despair for Lord2.
+
+ It includes a lost adventurer, a Healer, and a daily treasure chest with 15 different results
+
+ To Install:
+
+ Type: IGM Dsprhope
+
+ To Uninstall:
+
+ do the same thing again.
+
+ To Test:
+
+ Go 2 miles north and 1 mile east of BoneTown. Enjoy!
+
+ To Contact Me:
+
+ My BBS: Dragon's Den BBS (DIS)-CON-ECTD :( That's why I need da money
+
+
+ Snail Mail Me: Codax Dragon
+ 107 Patti Ln
+ St.Clairsville Ohio 43950
+
+
+ Email: codax_dragon@Juno.com
+ Web: http://www.geocities.com/SiliconValley/Way/9982/index.html
+
+
+Please I need feed back tell me what you think of my IGM
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `2The Cave of `7Hope `2and `%Dispair `2by `1C`3o`5d`7a`9x `4Dragon
+
+replacescreen: 1413 1 show
+;913
+replacescreen: 674 2 noshow
+
+;914
+replacescreen: 675 3 noshow
+
+;915
+replacescreen: 676 4 noshow
+
+;833
+replacescreen: 594 5 noshow
+
+;834
+replacescreen: 595 6 noshow
+
+;835
+replacescreen: 596 7 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+`2The Cave of Hope and dispair is a cave with a different item in the chest every day and a few suprises along the way. If you like, you can talk to Codax ;) 2 different paths to get to the chest
+The second of may IGMs coming form Dragon's Den ULTD.
+
+Location: 2 miles north and 1 mile east of BoneTown
+
+Author: `1C`3o`5d`7a`9x
+`2Donations are encoureged!!!!
+
+ `%Copyright 1997 Dragon's Den Ultd
+ `%http://www.geocities.com/SiliconValley/Way/9982/index.html codax_dragon@juno.com
diff --git a/xtrn/lord2/cnw/igm/exfun.igm b/xtrn/lord2/cnw/igm/exfun.igm
new file mode 100644
index 0000000000000000000000000000000000000000..9723ba72626082b8187ef3e31e99496844945328
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/exfun.igm
@@ -0,0 +1,51 @@
+
+ Extacy's Land Of Fun
+ by Yang Qingwei
+ BBS : Yang's Empire BBS o65-581-1224 24hrs
+ EMAIL: yqwemail@mbox2.singnet.com.sg
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : YES!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (4)
+ Free? : Yes!
+
+ Description:
+
+ * Your First Version? Follow This Step *
+ Super simple IGM for LORD2, to be used as a template.
+ Great IGM!
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM EXFUN.IGM
+
+ To uninstall, do the same thing again.
+ Hmm...Look For It Yourself! Its KewL!
+
+//////////////////////// BELOW IS FOR USE BY IGM.EXE /////////////////////
+
+igmname: `0Extacy's Land Or Paradise By `4Yang Qingwei
+replacescreen: 1099 1 show
+replacescreen: 1179 2 show
+replacescreen: 401 3 noshow
+replacescreen: 402 4 noshow
+replacescreen: 403 5 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+
+ `2Extacy's Land Of Fun Had Been Renamed To Extacy's Land Of Paradise
+ `2No BUGS Reported Or Found In Version 1.01 So This Will Be The FINAL
+ `2Version. Added Quite A Number Of Things. Nothing Much To Say Now.
+ `2Changed The REF To REC.
+ `2Maybe I'll Create A Patch To Add 1 Or 2 New Things. But Its Most Unlikely.
+ `3 Extacy's Land Of Paradise V1.03 PATCH
diff --git a/xtrn/lord2/cnw/igm/faerie.igm b/xtrn/lord2/cnw/igm/faerie.igm
new file mode 100644
index 0000000000000000000000000000000000000000..d4b3a0aa86a56347128cccf1148fd61ccd889f5d
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/faerie.igm
@@ -0,0 +1,53 @@
+
+ The Faerie Glade by Jay Weber V1.00
+ (C) 1997 ShroomTrip Software
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ Pretty simple IGM for LORD2.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM FAERIE.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, go to the PURPLE TREE near Turgon's Shack. It will be on the
+ right side of the screen. It warps you to the Glade. The exit is between
+ the two white brackets in the upper left corner.
+
+Visit the ShroomTrip Software Web Site at:
+http://www.afn.org/~afn50378/STHome.html
+
+E-Mail us at: afn50378@afn.org
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0F`!aerie `0G`!lade `2by `0Jay Weber
+replacescreen: 1519 1 show
+
+replacescreen: 1520 2 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `0This IGM adds a F`!aerie `0G`!lade `0where a player can talk to 5 Faeries,
+ a woman by the pond, and the Faerie Queen, and arrange the flowers in the
+ Garden `#(`0Kinda like LORD 1`#)`0.
+
+
+
diff --git a/xtrn/lord2/cnw/igm/farm.igm b/xtrn/lord2/cnw/igm/farm.igm
new file mode 100644
index 0000000000000000000000000000000000000000..80729dc6e183f2b8ae133a411e3350ba76620f91
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/farm.igm
@@ -0,0 +1,91 @@
+ -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ Ye Olde Farm by Lloyd Hannesson V 1.00
+ Copyright 1997 Tech'n Software
+ -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ An IGM for LordII ver 1.00
+
+Quick Info:
+
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : Yes! (`t43)
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Duh! :)
+
+
+Description:
+
+ Ye Olde Farm 1.0
+ -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+ Well here it is, my third IGM for Lord 2, and I think i'm doing pretty well.
+ This adds a Small farm 1 screen West from where Neb is. This IGM is a
+ little different then most. For one thing it'll work in the unregistered
+ version of Lord2. Secondly, it doesn't really do much untill you help to
+ solve a little mystery thet is going on in the farm. The farmer's wife
+ believes that her hubby is cheating, and you have to prove it :) Once you
+ prove it, the Wife will let you harvest the fields once a day, and you'll
+ get cash depending on the number of veggies you find. The gold reward is
+ also level dependant, so it shouldn't kill the game.
+
+ Features Include:
+ - Solve a quest, and gain the ability to farm for gold...
+
+ Features To be added in the next version:
+ - Well I think the game is pretty much solid. It does what it was created
+ to do. I shouldn't have to add anything more.
+
+ To Install:
+
+ Type: IGM FARM.IGM
+
+ To Uninstall:
+
+ do the same thing again.
+
+ To Test:
+
+ Go 1 screen west from Neb, you'll see it
+
+ To Contact Me:
+
+ My BBS: The Outworld BBS (204) 334-0217 2400-33600 baud
+
+
+ Mail Me: Lloyd Hannesson
+ 3015 Sinclair St.
+ Winnipeg, Manitoba
+ R2V 4K9, CANADA
+
+ Email: support@techn.com
+ Web: http://www.techn.com/
+
+ Thanks To:
+
+ Bobby Roger Queen <wizards@shelby.net>
+ - Thanx for the spell checking buddy! :) I'm the worst!
+
+ Elric <afn50378@afn.org>
+ - Thanx for the spell checking also, damn I need to re-read what
+ I type eh? :)
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Ye Olde Farm `2by `0Lloyd Hannesson
+
+replacescreen: 1357 1 show
+
+installmessage:
+
+`$ Ye olde Farm version 1.0
+
+`2 Visit this strange farm. Solve the mystery and you'll be able to harvest
+ the fields for gold.
+
+ Location: `31 screen west of Neb
+
+ `%Copyright 1997 Tech'n Software and Lloyd Hannesson
+ `%http://www.techn.com/ support@techn.com
diff --git a/xtrn/lord2/cnw/igm/felicity.igm b/xtrn/lord2/cnw/igm/felicity.igm
new file mode 100644
index 0000000000000000000000000000000000000000..ef0ef78348b46f43d96300a10596a0815761c844
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/felicity.igm
@@ -0,0 +1,99 @@
+ -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ Felicity's Temple by Lloyd Hannesson V1.00
+ Copyright 1997 Tech'n Software
+ -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ AN IGM FOR LORD2 BETA 7+
+
+Quick Info:
+
+ Is registered version of LORD2 required to use? : Yes :(
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (4)
+ Free? : Duh! :)
+
+
+Description:
+
+ Felicity's Temple for Lord2
+ -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+ This is my first IGM for LORD2, so it isn't the greatest, but my users
+ love it :). Basicly this is Felicity's Temple for Lord2. Many of the same
+ characters (and secrets) from the origional game are here.
+
+ Features Include:
+ - A new ownable property Felicity's Guest House
+ - Heal for free
+ - Allow anyone, only those with password, or none into the place
+ - Message board for quick notes
+ - A General Store
+ - Lots of Items to buy, Armor, Weapons, Potions, ect ect
+ - A Healers Hut
+ - Heal yerself (This was the first place I added BTW :)
+ - The Temple
+ - Talk to Felicity and have her help you
+ - Talk to Akasha
+ - Talk to the Janitor (If you find the secret key)
+ - Warp to different places in the game (also if you have the key)
+
+ To Install:
+
+ Type: IGM FELICITY.IGM
+
+ To Uninstall:
+
+ do the same thing again.
+
+ To Test:
+
+ Go 1 screen south, and 1 East from Stonebrook. Enjoy!
+
+ To Contact Me:
+
+ My BBS: The Outworld BBS (204) 334-0217 2400-33600 baud
+
+
+ Mail Me: Lloyd Hannesson
+ 3015 Sinclair St.
+ Winnipeg, Manitoba
+ R2V 4K9, CANADA
+
+ Email: support@techn.com
+ Web: http://www.techn.com/
+
+ Wishlist:
+
+ I wish Seth would of made Lord2 handle IGMs better for the
+ Unregistered people. Because of this limitation, all you can do
+ is talk to the people by the Temple path :(. So how about it Seth?
+ Is this something that you might be fixing soon?
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Felicity's Temple `2by `0Lloyd Hannesson
+replacescreen: 1440 1 show
+
+replacescreen: 573 2 noshow
+
+replacescreen: 574 3 noshow
+
+replacescreen: 575 4 noshow
+
+replacescreen: 653 5 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Felicity's Temple! The good IGM for Lord one, becomes even better for
+ Lord2! Visit Felicity, talk to Akasha, find the Janitor's Secret room.
+ Also Includes an ownable Guest house....
+
+ Location: South-East from Stonebrook
+
+ `%Copyright 1997 Tech'n Software and Lloyd Hannesson
+ `%http://www.techn.com/ support@techn.com
diff --git a/xtrn/lord2/cnw/igm/ffear.igm b/xtrn/lord2/cnw/igm/ffear.igm
new file mode 100644
index 0000000000000000000000000000000000000000..73fd11c7385617f6861d00ea02f0657b48213104
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/ffear.igm
@@ -0,0 +1,104 @@
+ ---------------------------------------
+ Fortress Fear (tm) by Isaac Laurin V0.30
+ Copyright 1997 D/�rK /\/iGHt
+ ---------------------------------------
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : Newest One!
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Not Right Now!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (15)
+ Free? : For Now! :)
+
+ Description:
+
+ FORTRESS FEAR
+ -------------
+ My first IGM and it isn't even finished yet!
+
+ Features (most of these aren't in the IGM yet):
+ - Five houses you can buy
+ - One has a Maneating plant that eats you if you don't feed it!
+ - All of them have different features in them
+ - A tower you can buy
+ - Still thinking about what to put in it
+ - Shops
+ - Inn, Casino, Bank, Weapon Shop and More!
+ - They all work now!
+ - The Castle Keep
+ - Talk to the king and his guards
+ - Steal the king's money
+ - A jail for thieves
+ - Lots of other stuff
+ - Dock to goto other places
+
+ How to contact me:
+ ------------------
+ Email: darkn@geocities.com
+
+ Webpage: http://www.geocities.com/siliconvalley/park/8021
+ (Page Still Under Construction)
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM FFEAR.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, goto the Porttown castle screen and goto the dock. Talk to the
+ green guy and he'll give you a free ride to Fortress Fear.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `4For`@tress F`4ear `2by `0Isaac Laurin
+replacescreen: 1117 1 show
+
+replacescreen: 417 2 noshow
+
+replacescreen: 418 3 noshow
+
+replacescreen: 419 4 noshow
+
+replacescreen: 420 5 noshow
+
+replacescreen: 421 6 noshow
+
+replacescreen: 497 7 noshow
+
+replacescreen: 498 8 noshow
+
+replacescreen: 499 9 noshow
+
+replacescreen: 500 10 noshow
+
+replacescreen: 501 11 noshow
+
+replacescreen: 577 12 noshow
+
+replacescreen: 578 13 noshow
+
+replacescreen: 579 14 noshow
+
+replacescreen: 580 15 noshow
+
+replacescreen: 581 16 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2This is my first IGM and it's not complete yet either. I've finally got
+ some time to work on this IGM and I've got a bunch of things working now
+ (you can buy 2 houses now and go into the shops).
+
+ `2Location: Porttown Entrance Screen
+
+ `%Copyright 1997 D/�rK /\/iGHt and Isaac Laurin
+ `%http://www.geocities.com/siliconvalley/park/8021 darkn@geocities.com
+
diff --git a/xtrn/lord2/cnw/igm/fgrave.igm b/xtrn/lord2/cnw/igm/fgrave.igm
new file mode 100644
index 0000000000000000000000000000000000000000..08a796054d95469087dbc4a1fa86885a03a4a2b9
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/fgrave.igm
@@ -0,0 +1,53 @@
+
+ The Father's Grave
+
+ AN IGM FOR LORD2 V1.00
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (3)
+ Adds screens? : Yes! (3)
+ Free? : Yes!
+
+
+ Description:
+
+ Super simple IGM for LORD2 v1.0.
+
+ TO INSTALL
+ unzip into your LORD2 dir and type:
+
+ IGM FGRAVE.IGM
+
+ TO UNINSTALL
+ Do the same thing again.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0THE FATHER'S GRAVE `2by `0ASC�� & Resurrection
+
+replacescreen: 147 1 noshow
+
+replacescreen: 793 2 noshow
+
+replacescreen: 873 3 show
+
+replacescreen: 953 4 show
+
+replacescreen: 1091 5 noshow
+
+replacescreen: 1092 6 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2This IGM is a QUEST IGM. Find your father's grave and complete his
+ given task!
+ `%by: `3ASC�� & Resurrection
diff --git a/xtrn/lord2/cnw/igm/figaro.igm b/xtrn/lord2/cnw/igm/figaro.igm
new file mode 100644
index 0000000000000000000000000000000000000000..671f12f277376037fa1a5a51cc8fee9fb5005cc8
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/figaro.igm
@@ -0,0 +1,45 @@
+
+ FIGARO CASTLE v1.3 by VooDoo KnighT
+
+Quick Info:
+
+ Is registered version of LORD2 required to use? : Yep
+ Using any LORD2 vars? : Yep
+ Overwrites any original .refs? : Nope
+ Saves and loads its own vars independently? : Yep
+ Adds new .refs? : Yep (4)
+ Replaces screens? : Yep (2)
+ Adds screens? : Yep (9)
+ Free? : Yep
+
+ To Install:
+ Type: INSTALL
+
+ To Uninstall:
+ Type: INSTALL (Why not!? They both execute "IGM FIGARO" newayz!) =)
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Figaro Castle (BETTER VERSION) `2by `0VooDoo KnighT
+replacescreen: 1031 1 show
+replacescreen: 344 2 noshow
+replacescreen: 424 3 noshow
+replacescreen: 504 4 noshow
+replacescreen: 425 5 noshow
+replacescreen: 503 6 noshow
+replacescreen: 505 7 noshow
+replacescreen: 423 8 noshow
+replacescreen: 264 9 noshow
+replacescreen: 345 10 noshow
+replacescreen: 1575 11 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2FIGARO CASTLE `4(BETTER VERSION) `2is by VooDoo KnighT!
+ `2Here's my Second LORD2 IGM I've designed! This IGM looks
+ `2so much like the REAL FIGARO CASTLE in FF3, I'm happy you
+ `2installed it on your LORD2 game! =)
+ `2Greetz go to SQUARESOFT & KooK! Our `0HomePage`2:
+ `%http://www.angelfire.com/ks/knightsoft/index.html
diff --git a/xtrn/lord2/cnw/igm/freddy.igm b/xtrn/lord2/cnw/igm/freddy.igm
new file mode 100644
index 0000000000000000000000000000000000000000..ae49b1bf3c0bd7a36490daf46dd82ed0956b11d6
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/freddy.igm
@@ -0,0 +1,28 @@
+
+ FAST FREDDY'S GEM EMPORIUM by MAMOOSOFT PROGRAMMING
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01a
+ Is registered version of LORD2 required to use? : Yes?
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Fast Freddy's gem Emporium `2from `0 Mamoosoft Programming
+
+replacescreen: 1406 1 show
+replacescreen: 1407 2 noshow
+;replacescreen: 1492 1 show
+;replacescreen: 1580 2 noshow
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2This IGM adds a place where players can buy and sell gems.
diff --git a/xtrn/lord2/cnw/igm/gargoyle.igm b/xtrn/lord2/cnw/igm/gargoyle.igm
new file mode 100644
index 0000000000000000000000000000000000000000..dd9a1d1cec1392201f0e1d8b478791d45e2734a6
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/gargoyle.igm
@@ -0,0 +1,44 @@
+
+ GARGOYLE'S LANDING IGM by NiGHT fLYER
+ (SysOp: Gargoyle's Landing BBS)
+ AN IGM FOR LORD2 version 1.xx
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ a keep just to the north of the ferry, this one you can purchase, and
+ there are a few little suprises in it
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM GARGOYLE.IGM
+
+ To uninstall, do the same thing again.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `8GARGOYLE'S LANDING `2by `8NiGHT fLYER
+replacescreen: 135 1 show
+
+replacescreen: 130 2 noshow
+replacescreen: 131 3 noshow
+replacescreen: 132 4 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ This is my first attempt at an IGM, its placed just north of the ferry,
+ and has a few little suprises in it... enjoy
diff --git a/xtrn/lord2/cnw/igm/give.igm b/xtrn/lord2/cnw/igm/give.igm
new file mode 100644
index 0000000000000000000000000000000000000000..c01c0ec66684e8b947b02f7c825a6148cb436c8a
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/give.igm
@@ -0,0 +1,42 @@
+
+ The Greentree Givers V1.00 : Spencer Vickers
+
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes!
+
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM GIVE.IGM
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `$The Greentree Givers `0: `%By Spencer Vickers `0(`2aka `4Mo`%unt`4ie`0)
+
+replacescreen: 313 1 show
+
+installmessage:
+
+`@ This IGM is made for other IGM's that don't give you back the smackrod
+ or the gryphon moon.. You can make it so that your "bad" user still can't
+ get either one back - read sysop.txt for instructions.
+
+`b MOST IMPORTANTLY!!!!
+
+`% Have Fun!!!
+
+`! Spencer Vickers `0(`2aka `4Mo`%unt`4ie`0)
diff --git a/xtrn/lord2/cnw/igm/glendale.igm b/xtrn/lord2/cnw/igm/glendale.igm
new file mode 100644
index 0000000000000000000000000000000000000000..c62e5cf778ebf9f7728a08c54922eb9b3726cd9d
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/glendale.igm
@@ -0,0 +1,58 @@
+
+ The Lands of Glendale by Nicholas Morrissey
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (6)
+ Free? : Yes!
+
+
+ Description:
+
+ A neat IGM for Lord2.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM GLENDALE.IGM
+
+ To uninstall, do the same thing again.
+
+ To see it, walk to the screen right of the treehouse. You will see that
+ you can enter a new place from above. Walk there and see a new place. There
+ is a castle to the left, and a town to the right.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `7T`8he `7L`8ands `7o`8f `#G`5lendale `2by `0Nicholas Morrissey `0(`!FLiNK`0)`2
+replacescreen: 1199 1 show
+
+;744
+replacescreen: 822 2 noshow
+;745
+replacescreen: 823 3 noshow
+;746
+replacescreen: 824 4 noshow
+;747
+replacescreen: 825 5 noshow
+;748
+replacescreen: 826 6 noshow
+;749
+replacescreen: 827 7 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2This is my newest (4th one if I am right) IGM that I have made. It is
+ definately my best piece of work. There is a castle and a small town. The
+ town has a healer, a weapon and an armour shop, a trainer, and a hotel.
+
+ BY: `5F`#L`%i`#N`5K
diff --git a/xtrn/lord2/cnw/igm/gorilla.igm b/xtrn/lord2/cnw/igm/gorilla.igm
new file mode 100644
index 0000000000000000000000000000000000000000..8ee8118d4d9e19dc8ed6fe8d863e2b20a031a31f
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/gorilla.igm
@@ -0,0 +1,61 @@
+
+ Gorilla Villa by Talaphid 9th V
+
+Lord 2 1.01a: backwards compatiblity unknown, probably all back to �5
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yup
+ Using any LORD2 vars? : Nope
+ Overwrites any original .refs? : Nope
+ Saves and loads its own vars independently? : Yup
+ Adds new .refs? : Yup! (1- GORILLA.REF)
+ Replaces screens? : Yup! (3)
+ 1 E of Porttown)
+ 2 NNE of Sosen Village
+ Adds screens? : Yup! (2)
+ Free? : Sure!
+
+
+ Description:
+
+Read the beginning of GORILLA.REF. Its like New York City, without the bad
+things. So really, its just "City". A healer, five ownable houses (just safe
+place to rest- no more, no less). A stables, so that there's a two-way link
+Porttown/Gorilla Villa (A shaman 1E of Porttown links to Gorilla Villa).
+The Chief gets to set the house's price (50gp to start with), and can
+collect the money from the treasury. Chief is a player, BTW. A nice change
+of scenery, too -- the buildings are all TREES!!! =)
+
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM GORILLA.IGM
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `5Gorilla `2Villa `3by `@T`4alaphid
+replacescreen: 60 1 noshow
+
+replacescreen: 140 2 show
+
+replacescreen: 957 3 show
+
+replacescreen: 220 4 show
+
+installmessage:
+
+ `2While you were monkeying around, some gorillas went and settled
+into your LORD ][ game. They live far north of Sosen village, but can be
+reached by their helpful shaman who lives just east of Porttown. Sometimes,
+though, their construction philosophy is enough to drive ya...well, up a
+tree.
+
+ Now that I'm through punning around, I'm through. (Gosh, that was
+DUMB.) This doesn't screw up your game, doesn't do anything bad (and if it
+does, its not my fault). The worst it could do is give people a hiding spot.
+Oh no. Just get a Smackrod and no worries, right? =)
+
+`7mail: TALAPHID@JUNO.COM
diff --git a/xtrn/lord2/cnw/igm/griz.igm b/xtrn/lord2/cnw/igm/griz.igm
new file mode 100644
index 0000000000000000000000000000000000000000..910c3fde6a94a062566a1409b85b64427c8c9323
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/griz.igm
@@ -0,0 +1,43 @@
+
+ Grizelda's House V1.00
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ Super simple IGM for LORD2, to be used as a template.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM GRIZ.IGM
+
+ To uninstall, do the same thing again.
+
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `1Grizelda's `3House `$by `4Brandon Harvey (aka X-Acutioner)
+
+replacescreen: 1436 1 show
+
+replacescreen: 240 2 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `$This IGM is cool.. Talk to The Ugly GRIZELDA, The Hot Sherie..
+ `$Inject a needle different things happen.. More coming soon...
+ `3E-Mail Questions and Comments or suggestions INSANEPRODUCTIONS@juno.com
diff --git a/xtrn/lord2/cnw/igm/gum.igm b/xtrn/lord2/cnw/igm/gum.igm
new file mode 100644
index 0000000000000000000000000000000000000000..35db6d1de26c33368eed125141a75321e1347ae2
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/gum.igm
@@ -0,0 +1,68 @@
+
+ Gumtown by Gum-Lass V2.09
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01a
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes
+ Adds new .refs? : Yes! (3)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (7)
+ Free? : Yes!
+
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM GUM.IGM
+
+ To uninstall, do the same thing again.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `1G`2u`3m`4t`5o`6w`7n `2by `1G`2u`3m`4-`5L`6a`7s`8s `0V2.09
+replacescreen: 465 1 show
+
+replacescreen: 107 2 noshow
+
+replacescreen: 106 3 noshow
+
+replacescreen: 105 4 noshow
+
+replacescreen: 104 5 noshow
+
+replacescreen: 103 6 noshow
+
+replacescreen: 102 7 noshow
+
+replacescreen: 101 8 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+ `1G`2u`3m`4t`5o`6w`7n `2by `1G`2u`3m`4-`5L`6a`7s`8s
+ `4+`2An entire new town west of Sosen villiage
+ `4+`2Spice up that dull trip.
+ `4+`2Bet on Horses
+ `4+`2Buy `1G`2u`3m`4-`5L`6a`7s`8s Castle.
+ `4+`2Be the envy of friends and aquaintences.........
+ `4+`2All new, evil and scary enemies (all very tough...)
+ `4+`2Really cool private rooms.
+ `4+`2An absolute goldmine.
+ `4+`2!!!!!!Mud Wrestling!!!!!!!!
+`4NEW+
+ `4+`2Fight a God and enslave him
+ `4+`2Get mugged by the `3Gumtown Bandit`2. Then get even!
+ `4+`2Complain to the Mayor.
+ `4+`2Hitmen-`3hire 'em, join 'em love 'em
+ `4+`2Help Jon Piere get his Waldorf Salad!
+ `4+`$A Couple of Bug Fixes:
+ -Fixed the infamous bank bug (Thanks Bobby Queen)
+ -Fixed the mudwrestling bug (Thanks Bobby Queen)
+ -Fixed the "Negative Money Bug" (It Sucked)
+
diff --git a/xtrn/lord2/cnw/igm/gurub.igm b/xtrn/lord2/cnw/igm/gurub.igm
new file mode 100644
index 0000000000000000000000000000000000000000..40302577de75704539e92f28a47ab09211577075
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/gurub.igm
@@ -0,0 +1,42 @@
+
+ Guru Bob Version 0.9 BETA By Sam Wilson
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes!
+
+
+ Description:
+ ������
+ Well this is my second IGM that I have released.
+ My first one,The Realm Of The Domanu was,utter crap and this one is better
+ than it.(slightly,quite a simple IGM,created in around 3 hours).
+ REMEMBER THIS IS ONLY A BETA VERSION!!!!!!
+ The next version will have a better looking map screen,more people to talk
+ to,more ansis (it currently has none) and the temple of the Tree Of Wisdom
+ will be accessible.
+ There is a slight bug in the IGM at the moment that doesn't clear the screen
+ properly after talking to the guru.If you find more bugs/want to comment/or
+ know how to fix this one please e-mail me avatar@clear.net.nz
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Guru Bob and the Tree Of Knowledge `4By Sam Wilson
+
+;replacescreen: 1030 1 show
+replacescreen: 839 1 show
+
+installmessage:
+
+ `7 This is my second IGM.
+ `7 Pretty basic little thing that only took a couple of hours to create.
+ `7 E-mail me at : avatar@clear.net.nz
diff --git a/xtrn/lord2/cnw/igm/guy.igm b/xtrn/lord2/cnw/igm/guy.igm
new file mode 100644
index 0000000000000000000000000000000000000000..fb62c54e7a64dcd508424fdfbb20c415283286e0
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/guy.igm
@@ -0,0 +1,39 @@
+
+ Greentree's Weird Guy 1.0: Spencer Vickers
+
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : Yes!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes!
+
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM GUY.IGM
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Greentree's own `2Weird Guy: By Spence
+replacescreen: 1197 1 show
+
+installmessage:
+
+ `% Well, if have actually downloaded my igm, thank you...There is no stupid
+stuff about registering, because like most igm's, this one is FREEWARE!!
+ Check out CHeRNOByL BbS where this thing was made
+ cya :)
+
+
+
diff --git a/xtrn/lord2/cnw/igm/gypsy.igm b/xtrn/lord2/cnw/igm/gypsy.igm
new file mode 100644
index 0000000000000000000000000000000000000000..a9cf671f02f7308615812c9af08b2c69d0e6d292
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/gypsy.igm
@@ -0,0 +1,99 @@
+ =-:-=-:-=-:-=-:-=-:-=-:-=-:-=-:-=-:-=-:-=
+ Gypsy Encampment ver 1.0 for LORD2
+ A new IGM for LORD2
+ =-:-=-:-=-:-=-:-=-:-=-:-=-:-=-:-=-:-=-:-=
+ Use with LORD2 ver 7+
+
+Information
+
+Need registered version of LORD2? : Yes
+ Using any LORD2 vars? : No
+ Overwrites any original .refs? : No
+ Uses its own vars in its own file : Yes!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (6)
+
+
+Description:
+
+ The Gypsy Encampment for Lord2
+ =-:-=-:-=-:-=-:-=-:-=-:-=-:-=-:-=
+
+ This is my first IGM for LORD2, so I hope you like it.
+
+ Features Include:
+ * Time based entrance
+ - There's a Morning and a Evening where different things happen.
+ - The tent is different depending on the time of day you enter the IGM.
+ - Even works with turnless games of LORD2
+ * A Story Teller
+ - Learn about the Gypsy's, if you catch him at a good time.
+ * A Fortune Teller
+ - Have your fortune told!
+ * The Wishing Well
+ - Make a wish, you might get lucky.
+ * The Riddle
+ - Answer his riddles about the Gypsies for something special.
+ * Cooks Wagon, and a Barter Wagon
+ - Buy food, Sell of Buy stuff, The barter Wagon often has new stuff!
+
+ Coming Within a week or so!!!!
+ * Gamble in the Tent
+ * Flirt with Lilliana or Djivan, depending on your sex.
+ * More Riddles
+
+ To Install:
+
+ Type: IGM GYPSY.IGM
+
+ To Uninstall:
+
+ do the same thing again.
+
+ To Test:
+
+ Go to the waterfall by the Shrine of Babos, you can't miss it!
+
+ If you have Questions
+
+ Mail Me: Michael Rodda
+ 745 East 4th Ave
+ Escondido, Ca. 92025
+
+ Email: sabo@cts.com
+
+ A Very Special Thanks to
+ Seth Able for making Lord and Lord2
+ Everyone that helped Seth make Lord2
+ Ana Vrin for all the info on Gypsy's
+
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `#The Gypsy Encampment
+replacescreen: 1035 1 show
+
+replacescreen: 81 2 noshow
+
+replacescreen: 82 3 noshow
+
+replacescreen: 83 4 noshow
+
+replacescreen: 84 5 noshow
+
+replacescreen: 85 6 noshow
+
+replacescreen: 86 7 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `!The Gypsy Encampment...Learn their lore, meet their people
+ join in on there games, and have a great time!
+
+ Location: East of the Shrine of Babos
+
+ sabo@cts.com
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/igm/habib.igm b/xtrn/lord2/cnw/igm/habib.igm
new file mode 100644
index 0000000000000000000000000000000000000000..a572e86bb0ad483a0514d7136ab7c07ff732136f
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/habib.igm
@@ -0,0 +1,47 @@
+
+ -=<Habib's Tavern v1.00 by Ryan Fields>=-
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01a
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (3)
+ Free? : Yes!
+
+
+ Description:
+
+ Habib's Tavern IGM for LORD ][.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM habib.IGM
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `4H`#a`$b`2i`1b`#'`5s `7Tavern `2by `0Ryan Fields
+replacescreen: 1253 1 show
+
+replacescreen: 26 2 noshow
+
+replacescreen: 27 3 noshow
+
+replacescreen: 28 4 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `4H`#a`$b`2i`1b`#'`5s `7Tavern v1.00. `2This is my first IGM
+ for `0LORD ][`2. If you find any bugs, or have any compliments
+ or complaints, please e-mail me at:
+ `%Habib1469@juno.com.
+
+ `2ENJOY!
diff --git a/xtrn/lord2/cnw/igm/haunted.igm b/xtrn/lord2/cnw/igm/haunted.igm
new file mode 100644
index 0000000000000000000000000000000000000000..e2259f0c55eb81adff7fc4878bf67bfa85e42f9d
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/haunted.igm
@@ -0,0 +1,42 @@
+
+ Haunted House by Talaphid and Monty Python
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes
+ Using any LORD2 vars? : No
+ Overwrites any original .refs? : No
+ Saves and loads its own vars independently? : Yes
+ Adds new .refs? : Yes (1- HAUNTED.REF)
+ Replaces screens? : Yes (1- S of Runion)
+ Adds screens? : Yes (2)
+ Free? : Yes
+
+
+ Description:
+
+ A haunted house. You gotta give everyone what they want -- trust
+me, its worth it. People can be very rewarding, once you set their spirit
+free, so to speak.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM HAUNTED
+
+ To uninstall, do the same thing again.
+
+ Recent notes:
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `6Haunted House `2by `!T`3alaphid `2& `0Monty Python
+
+replacescreen: 1237 1 noshow
+
+replacescreen: 1238 2 noshow
+
+replacescreen: 1354 3 show
+
+installmessage:
+
+haunted house installed
diff --git a/xtrn/lord2/cnw/igm/hawood.igm b/xtrn/lord2/cnw/igm/hawood.igm
new file mode 100644
index 0000000000000000000000000000000000000000..f40a46b3d014e39db09a823a3357dcf54e5b6342
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/hawood.igm
@@ -0,0 +1,54 @@
+
+ "The Hundred Acre Woods" by Jennifer Doyle V1.00
+
+ AN IGM FOR LORD2
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : Yes! (1)
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (3)
+ Free? : Yes!
+
+
+ Description:
+
+ My first attempt at an IGM that's based on Winnie the Pooh.
+
+ Before installing, read Readme.txt on how to add to the Items.ref
+ files and the item editor.
+
+ Then to install, unzip into your LORD2 dir and type:
+
+ IGM HAWOOD.IGM
+
+ To uninstall, do the same thing again.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `6The Hundred Acre Woods `2by `3Jennifer Doyle
+replacescreen: 1350 1 show
+
+;replacescreen: 1347 2 noshow
+replacescreen: 1427 2 noshow
+
+;replacescreen: 1346 3 noshow
+replacescreen: 1426 3 noshow
+
+;replacescreen: 1345 4 noshow
+replacescreen: 1425 4 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Well, it's an IGM based on the character Winnie the Pooh and his friends.
+ `2It's my first attempt at an IGm and it took about 4 days to complete.
+ `2Just `4DON'T FORGET `2to change the items.ref and items editor files!!! and it
+ should work fine.
+ `2Hope you enjoy it!! Mail me with suggestions `%pindari@connexus.net.au
diff --git a/xtrn/lord2/cnw/igm/hongkong.igm b/xtrn/lord2/cnw/igm/hongkong.igm
new file mode 100644
index 0000000000000000000000000000000000000000..bde0d81f6782621a29a97796ba3503369a942ac3
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/hongkong.igm
@@ -0,0 +1,76 @@
+
+ Hong Kong Studio by Chan ver 1.04
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Adds new .refs? : Yes! (3)
+ Replaces screens? : Yes! (3)
+ Adds screens? : Yes! (3)
+ Free? : Yes!
+
+
+ Description:
+
+ A whore house that people can own and make money on. It also sells
+ 4 new items in the basement. There is an abandoned car to damage and
+ modern day monsters to fight outside.
+
+ Updates since v 1.03a
+ *Added a place to make announcements in the basement
+ *Fixed All known bugs
+ *Made text look nicer
+ *Added some trees and rocks
+ *Game is now more colorful
+
+ backup your ITEMS.ref and your ITEMS.dat files incase you want to
+ uninstall this IGM
+ Unzip into your LORD2 dir and type:
+
+ IGM Honkong.IGM
+
+ This will install Hong Kong Studio in the northlands 10 screens to the
+ right of Socean Village.
+
+ NOTE: Unzipping will overwrite ITEMS.ref and ITEMS.dat because there
+ is an added item. If this is a problem, unzip the file into its own
+ directory and, when copying over, do not overwrite these files but
+ manually add in the information in Honkong.doc.
+
+
+ To uninstall,
+ Type IGM Honkong.IGM
+
+ If you want to reset the IGM just type:
+ erase hong*.dat
+ erase hong*.idf
+ erase car.idf
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `4H`@ong `4K`@ong `4S`@tudio`2ver1.04, `2by `4Chan
+replacescreen: 711 1 noshow
+
+replacescreen: 712 2 noshow
+
+replacescreen: 713 3 noshow
+
+replacescreen: 386 4 show
+
+replacescreen: 385 5 show
+
+replacescreen: 466 6 show
+installmessage:
+
+ `2ABOUT `4H`@ong `4K`@ong `4S`@tudio `2ver1.04, `2by `4Chan
+
+ This IGM is a place in the middle of the northlands where nothing
+ else exists, I made it so that there would be a place to go besides
+ Socean Village in the northlands. It is a whore house in which the owner
+ gets to keep the money from the sales and a whole lot more, which
+ includes a store and place to make announcements. Trust me your users
+ will love it, and if not it will be very easy to erase.
+
diff --git a/xtrn/lord2/cnw/igm/house.igm b/xtrn/lord2/cnw/igm/house.igm
new file mode 100644
index 0000000000000000000000000000000000000000..35ef1e976de98c5e807083f6e14787eb150d0a73
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/house.igm
@@ -0,0 +1,63 @@
+
+ Greentree Manor by CHRiS Belanger V1.00
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ This is my first IGM, so go easy on me.
+
+ I found that all the castles cost WAAY too much for a newbie, and
+ had a bunch of stuff that made it expensive.
+
+ This is a no-frills house with a tub (1 random event per day) and a TV
+ (heals you).
+
+ To install:
+
+ IGM HOUSE.IGM
+
+ The IGM should make 2 files: HOUSE1.DAT (owner + password), and BUCKET.DAT
+ (treasury).
+
+ To uninstall, do the same thing again.
+
+ To test, just go to the bottom-left corner of Greentree and look for a
+ blue house. It's that simple, my friend!!
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Greentree Manor `2by `@CHR`%i`@S `%Belanger
+replacescreen: 69 1 noshow
+
+replacescreen: 229 2 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Ok, this is my first IGM, and yes, it `%kinda sucks`2. What it is is a little
+ house in Greentree aimed at the lower levels, cuz it's cheap (`$500$`2), and
+ dosen't have very much in it.
+
+ Send `%ALL `2comments (`@bad`2, `$neutral`2, or `%good`2) to
+
+ The_Roach_42@hotmail.com
+
+ I wanna know what u think!!
+
+ CHRiS Belanger
+
diff --git a/xtrn/lord2/cnw/igm/icelord.igm b/xtrn/lord2/cnw/igm/icelord.igm
new file mode 100644
index 0000000000000000000000000000000000000000..8c3e76f7e4d53580a3648a4d3d97f90804584062
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/icelord.igm
@@ -0,0 +1,80 @@
+ ==================================
+ | IceLord Keep (tm) v1.49 |
+ | by Commando |
+ ==================================
+
+ AN IGM FOR LORD2
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : Yes! (1)
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (4)
+ Replaces screens? : Yes! (4)
+ Adds screens? : Yes! (9)
+ Free? : Yes!
+
+
+ Description:
+
+ A great Keep for those larger bulletin boards with tons of people
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM Icelord
+
+ To uninstall, do the same thing again.
+
+ To test, walk to the screen above GreenTree and follow to the left.
+ You will find a awesome castle - enter and see all the buildings!
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0IceLord Keep (tm) `2by `0Commando
+replacescreen: 1361 1 noshow
+
+replacescreen: 1362 2 noshow
+
+replacescreen: 1363 3 noshow
+
+replacescreen: 1364 4 noshow
+
+replacescreen: 1365 5 noshow
+
+replacescreen: 1366 6 noshow
+
+replacescreen: 1367 7 noshow
+
+replacescreen: 1368 8 noshow
+
+replacescreen: 1369 9 noshow
+
+replacescreen: 1370 10 noshow
+
+replacescreen: 1371 11 noshow
+
+replacescreen: 1272 12 show
+
+replacescreen: 1273 13 show
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2This IGM is for those who find the keep dull! if you want a real castle
+ with tons of buildings and lots of things to do then this is the igm for
+ your bbs! Your `0LORD2`2 keep will be the most popular in town!
+
+ `2Ok, well if you like this igm i sweat to create then you can pay me
+ back by donating me some money, but if you just want to write to me saying
+ how much you do or don't like this that will be fine too! :)
+
+ `4Commando:
+
+ `2Fred Franks Jr.
+ `2810 Timberline Dr.
+ `2Akron, OH 44333
+
+ `2IceLord33@aol.com
diff --git a/xtrn/lord2/cnw/igm/innguard.igm b/xtrn/lord2/cnw/igm/innguard.igm
new file mode 100644
index 0000000000000000000000000000000000000000..7cafa088fe9ceaddf7e0e0b0cbbdb723152f6fcc
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/innguard.igm
@@ -0,0 +1,54 @@
+
+ Sosen Inn Guard by Weaver of Weaver's House bbs
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : Yes! (see innguard.txt)
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : No!
+ Replaces screens? : Yes! (2)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ This is an igm to make your Sosen Inn safe so people can't just break in
+ with the Smackrod. Now you gotta pay to get in to the sleeping area and
+ no using the Smackrod.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM innguard
+
+ To uninstall, do the same thing again.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `%Sosen Inn Safeguard `2by `1W`2E`3A`4V`2E`5R `%of Weaver's House bbs
+;616
+replacescreen: 619 1 noshow
+;617
+replacescreen: 620 2 noshow
+;776
+replacescreen: 618 3 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `0This is a little Igm to fix it so people can't use the SmackRod to break
+ `0into Sosen Inn. You're room still isn't safe yet (might fix that to if I
+ `0get a few e-mails that people like it) though, but it still makes it so
+ `0that the inn owner make more money 'cause they can't just use the smackrod
+ `0to get inn. However...if they use the Smack Rod to get out the won't get
+ `0their flute back until they get out the right way. If ya like it or hate
+ `0it send me e-mail `bout it.
+
+ Thanx,
+ `1W`2E`3A`4V`2E`5R
+ `%qtgroove10@aol.com
diff --git a/xtrn/lord2/cnw/igm/inns.igm b/xtrn/lord2/cnw/igm/inns.igm
new file mode 100644
index 0000000000000000000000000000000000000000..ed2a672da5fe58715a4699ad7c788c3a7f9fe527
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/inns.igm
@@ -0,0 +1,112 @@
+ -Inn Stuffing-
+ (c)opyright 1997 Chris Yeates
+ An IGM for LORD2 v1.00
+
+by Chris Yeates (Screwy343@aol.com)
+or at his BBS -- The Loose Screw (801)561-4780
+
+(The really bland looking credits above were also done by Chris <g> )
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : Yes!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (3)
+ Replaces screens? : Yes! (13)
+ Adds screens? : No!
+ Free? : Yes!
+
+
+ Description:
+
+ This IGM basically allows ALL the inns in LORD2 to be purchased,
+ owned, and run by the participating users. It runs in much the same fashion
+ as Sosen Inn, with two basic new features:
+
+ -The owner can pick toilet water.
+ (What? What? you say. What is he talking about?)
+ I'll explain. Whomever owns the inn can choose to have their
+ toilet water made out of either Gold Potions, Red Potions, etc...
+ Then, once a day, users can drink from the toilet to receive the
+ benefits!
+
+ -All the inns have whores! (Sorry if this offends)
+ Except for Ma's Boarding House, all the inns now have whores
+ just like Porttown. However, the best catch: whomever owns the
+ inn gets to set the "sleep with whore" price.
+ Basically, the inn keepers also become pimps!
+
+ Installation:
+ Backup the following .REF's:
+
+ -INN.REF
+ -PORTTOWN.REF
+ -BONE.REF
+ -FLAGCITY.REF
+ -STONEP.REF
+ -CASTLE4.REF
+ -ARRIS.REF
+
+ Unzip into your LORD2 dir and type:
+
+ IGM INNS.IGM
+
+ Un-installation:
+ IGM INNS.IGM (again)
+ and type "delete NINN*.DAT"
+ and type "delete NINN*.IDF"
+
+ Then copy the above list of files back over mine...
+
+ (This IGM creates a shitload of files)
+
+ Resetting LORD2:
+ type "delete NINN*.DAT"
+ type "delete NINN*.IDF"
+
+ Location:
+ Wherever the inns are! ;)
+
+ For more information, please read INNS.DOC. Any comments, suggestions,
+ or complaints just send to:
+
+ Screwy343@aol.com
+ or
+ The Loose Screw BBS (801)561-4780 (to the sysop <g> )
+
+ Again, I apologize for my crappy .DOC writing...I hope you like the IGM
+ better.
+
+ Please PLEASE mail me with anything -- compliments, criticisms, questions.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `2I`0n`%n Stuffi`0n`2g `2by `2C`0h`%ris Yeat`0e`2s / `0The Loose Screw BBS `2(`0801`2)`0561`2-`04780
+replacescreen: 149 1 noshow
+
+replacescreen: 157 2 noshow
+
+replacescreen: 158 3 noshow
+
+replacescreen: 153 4 noshow
+
+replacescreen: 1286 5 noshow
+
+replacescreen: 1206 6 noshow
+
+replacescreen: 151 7 noshow
+
+replacescreen: 73 8 noshow
+
+replacescreen: 70 9 noshow
+
+replacescreen: 880 10 show
+
+replacescreen: 616 11 noshow
+
+replacescreen: 617 12 noshow
+
+replacescreen: 450 13 noshow
+
diff --git a/xtrn/lord2/cnw/igm/island.igm b/xtrn/lord2/cnw/igm/island.igm
new file mode 100644
index 0000000000000000000000000000000000000000..e1ce0e5312d70d9960043fd11e32eb27281056e5
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/island.igm
@@ -0,0 +1,32 @@
+
+ The Island of the Hydra by MAMOOSOFT PROGRAMMING
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (5)
+ Free? : Yes!
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0The Island of the Hydra `2from `0 Mamoosoft Programming
+
+replacescreen: 1073 1 noshow
+replacescreen: 1074 2 show
+replacescreen: 1075 3 show
+replacescreen: 1154 4 show
+replacescreen: 1155 5 show
+replacescreen: 934 6 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2The Island of the Hydra provides another quest for players who have
+ finished the game.
diff --git a/xtrn/lord2/cnw/igm/isle.igm b/xtrn/lord2/cnw/igm/isle.igm
new file mode 100644
index 0000000000000000000000000000000000000000..e6babebc1333d494df3b8ac1953fa76f2146b58f
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/isle.igm
@@ -0,0 +1,70 @@
+
+ Isle of the Phreaks by Max Walton V4.5
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : YES!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (8)
+ Adds screens? : Yes! (4)
+ Free? : Yes!
+
+
+ Description:
+
+ IGM for LORD2, to be used as a template.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM isle.IGM
+
+ To uninstall, do the same thing again.
+
+ To test go to the Jagged Sandy Beach north of Flagcity and go to the sign
+ and follow the instructions!
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `5Isle of the Phreaks `!v4.5 `5by `!Max `4(`5Phreak`4) `!Walton
+replacescreen: 63 1 show
+
+replacescreen: 64 2 noshow
+
+replacescreen: 65 3 noshow
+
+replacescreen: 1012 4 show
+
+replacescreen: 1594 5 show
+
+replacescreen: 707 6 noshow
+
+replacescreen: 32 7 noshow
+
+replacescreen: 43 8 show
+
+replacescreen: 1498 9 show
+
+replacescreen: 239 10 show
+
+replacescreen: 56 11 show
+
+replacescreen: 115 12 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2 Travel to the Isle of the Phreaks. And Purchase Phreak's Keep!
+ Lucky owner now has an awesome advantage. And now a teleprting stone to
+ The Underground Passage... if you have it... And now the skystaff parts
+ charge 400 dollars. A scroll that tells you where all the teleporting
+ stones are! On the Isle, there is a healer, a mall and a keep you can
+ buy! And also soon, a wizard tower(don't know what all will be in there
+ yet, but there will be one soon!)
+
+
diff --git a/xtrn/lord2/cnw/igm/jcamelot.igm b/xtrn/lord2/cnw/igm/jcamelot.igm
new file mode 100644
index 0000000000000000000000000000000000000000..86111f067d00269142c976fe50c9cce5fe367ca9
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/jcamelot.igm
@@ -0,0 +1,54 @@
+
+ Castle Camelot V1.35 by Dave (Jam) Henderson
+
+ AN IGM FOR LORD2 1.01a+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (3)
+ Adds screens? : Yes! (3)
+ Free? : Yes!
+
+
+ Description:
+
+ A new castle for LORD2 beta 7+ called Camelot.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM JCAMELOT.IGM
+
+ To uninstall, do the same thing again.
+
+ The new castle is located North-East of Sosen Village.
+ Email me at Davejam@netpage.net.au for comments and/or suggestions.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Camelot v1.35 `2by `4D`@ave `#(`5Jam`#) `4H`@enderson
+replacescreen: 1442 1 noshow
+
+replacescreen: 1443 2 noshow
+
+replacescreen: 1441 3 noshow
+
+replacescreen: 297 4 show
+
+replacescreen: 296 5 show
+
+replacescreen: 376 6 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2This is my third `0IGM `2and includes a new castle called Camelot.
+ Email your comments and suggestions to davejam@netpage.net.au.
+ Thankyou for using my product.
+
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/igm/jennie.igm b/xtrn/lord2/cnw/igm/jennie.igm
new file mode 100644
index 0000000000000000000000000000000000000000..f426148706e9af9163bbfc24a289701ad55eb74c
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/jennie.igm
@@ -0,0 +1,44 @@
+
+ The JENNIE GARTH's House by SENoR FRoG (Julian Korell)
+ V. 1.00
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (3)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+ This is a nice IGM for Lord 2. Find the secret of Jennie Garth. If you are
+ succesful you will get experience, money or charm points. Just try it
+ you'll see it's real fun.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `3Jennie Garth 's hidden house `2by `0SENoR FRoG
+replacescreen: 960 1 show
+;Stonecircle
+replacescreen: 874 2 show
+;Greyman 956
+replacescreen: 79 3 show
+;Red Dragon Inn 159
+replacescreen: 1523 4 noshow
+;Jennie's house 1441
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2It is my first IGM for Lord2 but I think it is quite good. You have to talk
+ to someone to find the secret home of Jennie Garth. So it is funny and
+ complicated too.
+ `5 !!! YOU HAVE TO CREATE A DIRECTORY CALLED \JENNIE\ IN YOUR LORD PATH !!!
+ made by SENoR FRoG (Julian Korell)
diff --git a/xtrn/lord2/cnw/igm/jester.igm b/xtrn/lord2/cnw/igm/jester.igm
new file mode 100644
index 0000000000000000000000000000000000000000..f526d7b295d16f2477000e7c6af1d9c4c247ce09
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/jester.igm
@@ -0,0 +1,51 @@
+
+ Jester's Casino Update v2.1
+
+ AN IGM FOR LORD2 V1.00+
+
+ by ShroomTrip Software
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes, Always.
+
+
+ Description:
+
+ This IGM adds a new gambling feature to Jester's Casino in Bowntown.
+ You can now play Knucklebones, 3 Shells. or Knucklebones for Turns.
+
+ TO INSTALL
+ unzip into your LORD2 dir and type:
+
+ IGM Jester
+
+ To test you will need to go to Jester's Casino in BownTown.
+
+ TO UNINSTALL
+ Do the same thing again.
+
+ Author: Jay Weber (aka Elric, Anakha, and blade)
+ (C) 1997 ShroomTrip Software
+ http://www.afn.org/~afn50378/sthome.html
+ E-Mail: elric@innocent.com
+ Support: kender@innocent.com
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0J`2ester's `0C`2asino `0U`2pdate v1.0 by `!E`#lric
+replacescreen: 1288 1 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `0This IGM adds a `%new `0gambling feature to `%Jester's Casino `0in `%Bowntown`0.
+ You can now play `%Knucklebones`0, `%3 Shells`0, or `%Knucklebones for Turns`0.
diff --git a/xtrn/lord2/cnw/igm/jrest.igm b/xtrn/lord2/cnw/igm/jrest.igm
new file mode 100644
index 0000000000000000000000000000000000000000..3719c2465e2793c382eb9b3aabbc26aeddf0cd7c
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/jrest.igm
@@ -0,0 +1,43 @@
+
+ Jack's Restauraunt by ASC��
+
+ AN IGM FOR LORD2
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes!
+
+
+ Description:
+
+ More Complex IGM for LORD2.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM JREST.IGM
+
+ To uninstall, do the same thing again.
+
+ To enter, walk to the screen directly under Stonebrook and to the right
+ you will see a new building - enter it and you're in The Wizard's Castle!
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Jack's Restauraunt `2by `0ASC��
+replacescreen: 1589 1 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2I added a secret room similar to Turgon's Shack where you can find
+ 500,000 gold pieces on the in the back room. Sysops feel `%FREE TO CHANGE
+ %THAT! `2it's in the TREASURE.REF file.
diff --git a/xtrn/lord2/cnw/igm/kiteria.igm b/xtrn/lord2/cnw/igm/kiteria.igm
new file mode 100644
index 0000000000000000000000000000000000000000..7c5ecf8e8395e38491fc896c180d5329aec5dcc7
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/kiteria.igm
@@ -0,0 +1,28 @@
+
+ Kiteria's Kastle by Mamoosoft Programming
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01a
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (2)
+ Free? : Yes!
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Kiteria's Kastle `2from `0 Mamoosoft Programming
+
+replacescreen: 1113 1 show
+replacescreen: 1566 2 noshow
+replacescreen: 1567 3 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Welcome to Kiteria's Kastle, another fine product from Mamoosoft!
diff --git a/xtrn/lord2/cnw/igm/knotwood.igm b/xtrn/lord2/cnw/igm/knotwood.igm
new file mode 100644
index 0000000000000000000000000000000000000000..1e1a196624d506ee367f5a0bff855313f13d3385
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/knotwood.igm
@@ -0,0 +1,47 @@
+
+ Knotwood Village V2.50
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ Super simple IGM for LORD2, to be used as a template.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM KNOTWOOD.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, walk into GreenTree and down the steps near the fenced sheep.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Knotwood Village `2by `0Sean E. Andersen aka Sneakers
+replacescreen: 67 1 noshow
+
+replacescreen: 998 2 noshow
+
+replacescreen: 999 3 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Well, this is my first `0LORD2`2 IGM, hope you like it. Visit the shops
+ and castle, or even travel to many locations. Just added is a wishing
+ fountain. It would've been nice to have an option to steal money from the
+ fountain. :) I did what I can, and would've liked to added much more to it.
diff --git a/xtrn/lord2/cnw/igm/lenny.igm b/xtrn/lord2/cnw/igm/lenny.igm
new file mode 100644
index 0000000000000000000000000000000000000000..856223867e88520c6ba446ea58cfe6ad6624e426
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/lenny.igm
@@ -0,0 +1,12 @@
+igmname: `0U`2ncle `0L`2enny v1.00 `0b`2y `0C`2hris `0C`2urry
+;233
+replacescreen: 313 1 noshow
+
+installmessage:
+
+`0U`2ncle `0L`2enny `0v`2ersion 2.00
+
+This igm just replaces Uncle Lenny in the Neighbors House and
+gives him more options. He can give gifts. He still tells
+the player about the Dragon Tooth clan so they don't miss that
+part of the game.
diff --git a/xtrn/lord2/cnw/igm/lokisinn.igm b/xtrn/lord2/cnw/igm/lokisinn.igm
new file mode 100644
index 0000000000000000000000000000000000000000..55fbed1b6bfe5ddf9a8227ac02da3229bac12f77
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/lokisinn.igm
@@ -0,0 +1,55 @@
+
+ Loki's Inn by Peter Jackson V1.03
+
+ AN IGM FOR LORD2 1.01a+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs/recs : Yes! (7)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (8)
+ Free? : Yes!
+
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM LOKISINN.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, from Arrisville go North then west on the west highway.
+
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `%L`7oki's `%I`7nn `8by `4AEsir `8software
+replacescreen: 202 1 show
+replacescreen: 261 2 noshow
+replacescreen: 341 3 noshow
+replacescreen: 342 4 noshow
+replacescreen: 343 5 noshow
+;344
+replacescreen: 422 6 noshow
+;345
+replacescreen: 502 7 noshow
+replacescreen: 346 8 noshow
+replacescreen: 347 9 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+
+ `b* `7Up to 18 player owned private rooms at Loki's Inn
+ `b* `7Built in code prevents 1 player from buying all the rooms.
+ `b* `7Innkeeper performs Name and sex changes
+ `b* `7Flirting with local Man/Woman (depending on players sex)
+
+ `%Also see Loki.doc for full details about this IGM.
diff --git a/xtrn/lord2/cnw/igm/mimsic.igm b/xtrn/lord2/cnw/igm/mimsic.igm
new file mode 100644
index 0000000000000000000000000000000000000000..65b354d1ef5a4d4737c3ed0e6ceacd28b4cae2f2
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/mimsic.igm
@@ -0,0 +1,70 @@
+
+ Mimsic Isle by Jim Wilson V1.17
+
+ jfw@ica.net
+
+ AN IGM FOR LORD2
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes.
+ Using any LORD2 vars? : Yes. t70-72
+ (These are used as scratch variables only.)
+ Overwrites any original .refs? : No.
+ Saves and loads its own vars independently? : Yes.
+ Adds new .refs? : Yes! (4)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (17)
+ Free? : Yes.
+
+
+ Description:
+
+ This is an IGM to test any character.
+ It cannot be "done" in a week. Smackrod users
+ will miss all the action though they can tour
+ the island to see the maps. Players who follow
+ the storyline will have better survival rates
+ than those who don't but there will be deaths
+ aplenty in either case.
+
+ The monsters near the end will test any character.
+ Really. (You'll see!)
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM MIMSIC.IGM
+
+ To uninstall, type IGM MIMSIC.IGM again.
+
+ To test, head for the North Shore and see if
+ the wharf is installed.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `2Mimsic Isle version 1.17 `0by Jim Wilson`2 (jfw@ica.net)
+
+replacescreen: 471 1 show
+replacescreen: 1236 2 noshow
+replacescreen: 1316 3 noshow
+replacescreen: 1233 4 show
+replacescreen: 1234 5 show
+replacescreen: 1235 6 show
+replacescreen: 1313 7 show
+replacescreen: 1314 8 show
+replacescreen: 1315 9 show
+replacescreen: 1393 10 show
+replacescreen: 1394 11 show
+replacescreen: 1395 12 show
+replacescreen: 1473 13 show
+replacescreen: 1474 14 show
+replacescreen: 1475 15 show
+replacescreen: 1553 16 show
+replacescreen: 1554 17 show
+replacescreen: 1555 18 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2A very difficult Island, high level players are expected.
diff --git a/xtrn/lord2/cnw/igm/mine.igm b/xtrn/lord2/cnw/igm/mine.igm
new file mode 100644
index 0000000000000000000000000000000000000000..d43c03a7e82b7f64bca9aadbe3ee75f92e6044e7
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/mine.igm
@@ -0,0 +1,41 @@
+
+ The Crazy Man's House by Seth A. Robinson V1.00
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ Super simple IGM for LORD2, to be used as a template.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM CRAZY.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, walk to the screen directly under Stonebrook and you will see
+ a new building - enter it and see the crazy old man say 9 random things.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Dahlonega Dave's Do-It-Yourself Mining `2from `0 Mamoosoft Programming
+
+replacescreen: 1195 1 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Welcome to Dahlonega Dave's, another fine product from Mamoosoft!
diff --git a/xtrn/lord2/cnw/igm/mold.igm b/xtrn/lord2/cnw/igm/mold.igm
new file mode 100644
index 0000000000000000000000000000000000000000..9c2285d2f3ef8e758c26cd06a157ce2492b269f9
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/mold.igm
@@ -0,0 +1,50 @@
+
+ The Moldy City V1.00
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : ya
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : nop
+ Free? : Yes!
+
+
+ Description:
+
+ a great igm for lord2 made my stealth From
+
+ Stealth Dreams BBS, 871-0133
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM MOLD.IGM
+
+ To uninstall, do the same thing again.
+
+ To Test it, go 2 screens down from port town
+
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0M`2o`8ldy `0C`2i`8ty `2by `0S`2t`8ealth
+replacescreen: 323 1 NOSHOW
+
+replacescreen: 324 2 NOSHOW
+
+replacescreen: 1116 3 show
+
+
+installmessage:
+
+go check out this kix ass igm
+
+ `%ABOUT THIS IGM:
+
+ `2It KiCkZ AzS!
+
diff --git a/xtrn/lord2/cnw/igm/mon.igm b/xtrn/lord2/cnw/igm/mon.igm
new file mode 100644
index 0000000000000000000000000000000000000000..fd82574f92f6fdc9b48ccc9d2dc266ca728c614d
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/mon.igm
@@ -0,0 +1,39 @@
+
+ Monastry by Talaphid / Monty Python
+
+Lord 2 1.01a: backwards compatiblity unknown, probably waaay back
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes
+ Using any LORD2 vars? : No
+ Overwrites any original .refs? : No
+ Saves and loads its own vars independently? : Yes
+ Adds new .refs? : Yes (1- MON.REF)
+ Replaces screens? : Yes (1- 1E of Flagcity)
+ Adds screens? : Yes (1)
+ Free? : Yes
+
+
+ Description:
+
+This place is just some more filling for a LORD ][ game, with an item shop
+that's better to good guys [+50]
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM MON.IGM
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `7Monastry `3by `!T`3alaphid `%& `0Monty Python
+replacescreen: 1334 1 noshow
+
+replacescreen: 1173 2 show
+
+installmessage:
+
+ The first T. Elsdragon / Monty Python collaberation. This is
+very scarey, if you know us. He uploaded an ANSi and said "MAKE THIS!"
diff --git a/xtrn/lord2/cnw/igm/mortal.igm b/xtrn/lord2/cnw/igm/mortal.igm
new file mode 100644
index 0000000000000000000000000000000000000000..e582b3abcd388b84277af13ea9f045f9a3cba5cd
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/mortal.igm
@@ -0,0 +1,49 @@
+
+ The Crazy Man's House by Seth A. Robinson V1.00
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : Yes! (`p98 & `t18 bit 5)
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (4)
+ Adds screens? : No!
+ Free? : No! (2 bucks)
+
+
+ Description:
+
+ Old Man |\/|ortal's House.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM MORTAL.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, walk to the screen directly under Stonebrook and you will see
+ a new building - enter it and see what you can see.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `6Old man `4|\/|`6ortal's `6by `4R`6ob `4C`6ummings
+replacescreen: 1359 1 show
+replacescreen: 1360 2 show
+replacescreen: 1439 3 show
+replacescreen: 1440 4 noshow
+
+installmessage:
+
+ `8A`%BOUT `8T`%HIS `8IGM`%:
+
+ `4W`6ell, it took me forever and a day to figure out the half-ass
+ language `4S`6eth wrote `4:) `6however, the game is cool and I think
+ you'll like the `4IGM`6! `4T`6hanks goes out to `4M`6r. `4A`6ble for a
+ great game.
+
+
diff --git a/xtrn/lord2/cnw/igm/mosh.igm b/xtrn/lord2/cnw/igm/mosh.igm
new file mode 100644
index 0000000000000000000000000000000000000000..a02b6e6bdbd20a6268b70688463cc4922f8adeb6
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/mosh.igm
@@ -0,0 +1,48 @@
+
+ The BoneTown Concert Hall v1.00 by Curious Yellow
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (2)
+ Free? : Yes!
+
+
+ Description:
+
+ alright.. well.. an "upgrade" of sorts for the original. it fixes ALL BUGS,
+ (all known, at least,) and adds a new aspect to the IGM. you can drop acid.
+ if you find the guy (he's hidden, of course), you can decide how high you
+ want to get. if you take a sheet, you will be put into a mini-quest kinda
+ thing, where you have to battle all your evil emotions.
+
+ visit shadowsoft's homepage at http://home.earthlink.net/~csyellow/shadow
+
+ curious yellow
+ csyellow@earthlink.net
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0B`2one`0T`2own `0C`2oncert `0H`2all `2by `$Curious Yellow
+replacescreen: 974 1 noshow
+
+replacescreen: 975 2 noshow
+
+replacescreen: 976 3 noshow
+
+;replacescreen: 1287 4 noshow
+
+installmessage:
+
+ `r1 `%Is it cool? HECK YEAH. `r0
+
+`2At least.. I think it is. heh.. it replaces screens 974-976, and 1287.
+
+ `$curious yellow
diff --git a/xtrn/lord2/cnw/igm/myst.igm b/xtrn/lord2/cnw/igm/myst.igm
new file mode 100644
index 0000000000000000000000000000000000000000..7c1032cfe102d287f0e185db7fbb49a800129885
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/myst.igm
@@ -0,0 +1,60 @@
+
+ �Myst Ville by Sejr Andersen V1.00�
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (3)
+ Free? : Yes!
+
+
+ Description:
+
+ Super simple IGM for LORD2, to be used as a template.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM MYST.IGM
+
+ To uninstall, do the same thing again.
+
+ This IGM is right under Flag City. You have to find the purple tree
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Myst Ville `2by `0Sejr Andersen
+
+replacescreen: 1249 1 noshow
+
+replacescreen: 1250 2 noshow
+
+replacescreen: 1330 3 noshow
+
+replacescreen: 1331 4 show
+
+replacescreen: 1333 5 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Myst Ville, is a little Town just a little down from FlagCity. A
+ tree was made to go to Myst Ville. Myst Ville is available for any-
+ one to enter. It includes a:
+ �Healer
+ �Bank
+ �Weaponary
+ �Stables
+ �Inn - You can buy the Inn, and recieve money.
+ �Training Ground
+ �Gamble House
+
+ -=[Enjoy]=-
+
diff --git a/xtrn/lord2/cnw/igm/mythran.igm b/xtrn/lord2/cnw/igm/mythran.igm
new file mode 100644
index 0000000000000000000000000000000000000000..f86e8c706149e2227e6c20edd1d08d90e567befb
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/mythran.igm
@@ -0,0 +1,20 @@
+igmname: `0Mythrans Cottage `2v`01.12 `2by `0Heath Axton
+
+replacescreen: 1436 1 show
+replacescreen: 112 2 show
+replacescreen: 111 3 noshow
+replacescreen: 110 4 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Mythran is an old man who lives on a strange island. You can buy
+ items from him, get free stuff, flirt with his georgeous apprentice,
+ or go into the basement and beat the shit out of his collection of
+ rabid animals.
+
+ `2To test this IGM, go south of Greentree and walk into the purple
+ tree. (which will teleport you to mythrans secret island)
+
+ `4** NOTE, THIS IGM REQUIRES THE REGISTERED VERSION OF LORD 2 ! **
diff --git a/xtrn/lord2/cnw/igm/ocean.igm b/xtrn/lord2/cnw/igm/ocean.igm
new file mode 100644
index 0000000000000000000000000000000000000000..247e0da87ab561347ded843a443860c8ed5ddbe4
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/ocean.igm
@@ -0,0 +1,35 @@
+
+ Ocean Adventure by Michael Hutson
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes*
+ Overwrites any original .refs? : No!#
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (3)
+ Replaces screens? : Yes! (9)
+ Adds screens? : Yes! (66)
+ Free? : Yes!
+
+ *temporarily uses `t70 for doing bitcheck and bitset functions
+ #makes random message routine @#man in PortTown.ref unavailable
+
+ Description:
+
+ An incredible adventure at sea! Walk out from docks on Pontoon Boots, fight
+ seagoing enemies, win up to 50 gems a day, and defeat two special monsters
+ for extra quest points. Extra high random setting for lots of fights and
+ alignment events.
+
+igmname: `2Ocean Adventure `0by Michael Hutson
+replacescreen: 1156 26 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Walk the waves between major cities and find lots to do on the way.
+ `2(Hint: start from Bone Town)
diff --git a/xtrn/lord2/cnw/igm/odinkeep.igm b/xtrn/lord2/cnw/igm/odinkeep.igm
new file mode 100644
index 0000000000000000000000000000000000000000..bda1d69cd73de32d1c536cc51bf42edb23b0d824
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/odinkeep.igm
@@ -0,0 +1,45 @@
+
+ Odin's Keep by Peter Jackson V2.00
+
+ AN IGM FOR LORD2 1.00+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (3)
+ Free? : Yes!
+
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM ODINKEEP.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, walk to the East Forest that is east of Porttown.
+
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Odin's Keep `2by `0Peter Jackson
+replacescreen: 1037 1 show
+;877
+replacescreen: 879 2 noshow
+
+replacescreen: 796 3 noshow
+;797
+replacescreen: 798 4 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2It's a great Igm, read Sysop.doc for full details.
diff --git a/xtrn/lord2/cnw/igm/orphan.igm b/xtrn/lord2/cnw/igm/orphan.igm
new file mode 100644
index 0000000000000000000000000000000000000000..349e2383e07002c9ecebce7fcbe9d23148d6bdc5
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/orphan.igm
@@ -0,0 +1,37 @@
+
+ The Greentree Orphanage by Mamoosoft Programming
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes!
+
+
+ Description:
+
+ Super simple IGM for LORD2, to be used as a template.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM ORPHAN.IGM
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0The Greentree Orphanage `2from `0 Mamoosoft Programming
+
+replacescreen: 1436 1 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Greentree Orphanage is a good way to increase/decrease alignment.
diff --git a/xtrn/lord2/cnw/igm/owtc.igm b/xtrn/lord2/cnw/igm/owtc.igm
new file mode 100644
index 0000000000000000000000000000000000000000..035ea91278cf1b7ba47f0f5169921633e8446f23
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/owtc.igm
@@ -0,0 +1,39 @@
+
+ The Oracle of What's to Come v3.00
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01
+ Is registered version of LORD2 required to use? : Possibly!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (4)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes!
+
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM owtc.IGM
+
+ To uninstall, do the same thing again.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `%The Oracle of What's to Come v`@3`%.`@00 `2by `0Tien Lung
+replacescreen: 1125 1 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2The Oracle of What's to Come introduces characters to a story behind
+ the scenes and moderately works to slowly build up the character.
+
+ `2This `0IGM `2is located in the abandonned cavern by Stonebrook
+ `2By: `!G`3odlike `!P`3roductions
diff --git a/xtrn/lord2/cnw/igm/p1092.igm b/xtrn/lord2/cnw/igm/p1092.igm
new file mode 100644
index 0000000000000000000000000000000000000000..581c7b558592b382e810910dad1a78a566368828
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/p1092.igm
@@ -0,0 +1,34 @@
+
+ Screen 1092 Patch
+ by Bobby Queen
+ E-MAIL: wizards@shelby.net
+
+ QUICK INFO:
+
+ Allows you to use BOTH The Loose Screw IGM *AND* Fathers
+ Grave IGM at the same time (Otherwise wouldn't be
+ possible, as they use the same screen. This is just the screen with
+ BOTH igm's on it. Both IGM's are available for download at the
+ Official Lord II IGM web site. www.shelby.net/wizards/l2igm
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM p1092.IGM
+
+ To uninstall, do the same thing again.
+
+//////////////////////// BELOW IS FOR USE BY IGM.EXE /////////////////////
+
+igmname: `0The Loose Screw `2- `0Fathers Grave`2 Combination Patch
+replacescreen: 1092 1 show
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2This IGM is actually just a screen patch for those of you that wish to
+ `2run `0The Loose Screw IGM `2AND `0Fathers Grave IGM
+ `2in the same game. They both use the same entry point screen, and can
+ `2only co-exist if you install both of them first, then install this
+ `2patch, all will be well.
diff --git a/xtrn/lord2/cnw/igm/p1357.igm b/xtrn/lord2/cnw/igm/p1357.igm
new file mode 100644
index 0000000000000000000000000000000000000000..fdf4990ee8d0fca8b723b1b7041f959ee8768450
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/p1357.igm
@@ -0,0 +1,34 @@
+
+ Screen 1357 Patch
+ by Bobby Queen
+ E-MAIL: wizards@shelby.net
+
+ QUICK INFO:
+
+ Allows you to use BOTH the Ye Olde Farm IGM *AND* the House
+ of Incredible Tensions IGM at the same time (Otherwise wouldn't be
+ possible, as they use the same screen. This is just the screen with
+ BOTH igm's on it. Both IGM's are available for download at my
+ Lord II IGM web site. www.shelby.net/wizards/l2igm/
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM p1357.IGM
+
+ To uninstall, do the same thing again.
+
+//////////////////////// BELOW IS FOR USE BY IGM.EXE /////////////////////
+
+igmname: `0Ye Olde Farm `2- `0House of Incredible Tensions`2 Combination Patch
+replacescreen: 1357 1 show
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2This IGM is actually just a screen patch for those of you that wish to
+ `2run `0Ye Old Farm IGM `2AND `0House of Incredible Tensions IGM
+ `2in the same game. They both use the same entry point screen, and can
+ `2only co-exist if you install both of them first, then install this
+ `2patch, all will be well.
diff --git a/xtrn/lord2/cnw/igm/p1436.igm b/xtrn/lord2/cnw/igm/p1436.igm
new file mode 100644
index 0000000000000000000000000000000000000000..ec4e92811f405fb4ed3b27a040b3e0f5a949078c
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/p1436.igm
@@ -0,0 +1,33 @@
+
+ Screen 1436 Patch
+ by Bobby Queen
+ E-MAIL: wizards@shelby.net
+
+ QUICK INFO:
+
+ Allows you to use BOTH the Greentree Orphanage IGM *AND* the Mythrans
+ Cottage IGM at the same time (Otherwise wouldn't be possible, as they
+ use the same screen. This is just the screen with BOTH igm's on it.
+ Both IGM's are available for download at the Official Lord II IGM web
+ site. www.chatnet.com/ben/l2igm/
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM p1436.IGM
+
+ To uninstall, do the same thing again.
+
+//////////////////////// BELOW IS FOR USE BY IGM.EXE /////////////////////
+
+igmname: `0Greentree Orphange `2- `0Mythrans Cottage`2 Combination Patch
+replacescreen: 1436 1 show
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2This IGM is actually just a screen patch for those of you that wish to
+ `2run `0Greentree Orphange `2AND `0Mythrans Cottage IGM's in the same game.
+ `2They both use the same entry point screen, and can only co-exist if you
+ `2install both of them first, then install this patch, all will be well.
diff --git a/xtrn/lord2/cnw/igm/palo.igm b/xtrn/lord2/cnw/igm/palo.igm
new file mode 100644
index 0000000000000000000000000000000000000000..08c021d00074ee6c118151671c45873a3ba52c10
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/palo.igm
@@ -0,0 +1,54 @@
+
+ Paladin's Oasis by Talaphid version 2 (bugfix)
+
+Lord 2 1.01a: backwards compatiblity unknown, probably waaay back
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes
+ Using any LORD2 vars? : Yes (Quest vars)
+ Overwrites any original .refs? : No
+ Saves and loads its own vars independently? : Yes
+ Adds new .refs? : Yes (1- MON.REF)
+ Replaces screens? : Yes (1- 1E of Flagcity)
+ Adds screens? : Yes (1)
+ Free? : Yes
+
+
+ Bugfixes:
+ Selling your quest item to Finneg didn't reset quest variables.
+ It should get them all now.
+ This file told IGM.EXE the wrong screen for the entrance. It should
+ have been 1031 rather than the posted 1331.
+
+ Description:
+
+ I thought the game was unfair, balanced towards evil (easy money =
+easy equipment = unfair advantage). This oasis only lets in good guys, and
+even smackrod-equipped persons get deprived of the Catina. The bartender
+here gives a better than average deal on gems (4 gems = +5 attribute).
+There's a transmutationist here, too. I don't recommend giving him a ma's
+pie. That would be interesting >wink<.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM PALO.IGM
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `%Paladin's `9Oasis `3by `!T`3alaphid
+
+;1031
+replacescreen: 1030 1 show
+;1581
+replacescreen: 1580 2 noshow
+;1582
+replacescreen: 1581 3 noshow
+;1583
+replacescreen: 1582 4 noshow
+
+installmessage:
+
+ `%Paladin's `9Oasis `2INSTALLED.
diff --git a/xtrn/lord2/cnw/igm/passage.igm b/xtrn/lord2/cnw/igm/passage.igm
new file mode 100644
index 0000000000000000000000000000000000000000..b71483aa2ca72f3d37549b8673c06f7ec72a0bf8
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/passage.igm
@@ -0,0 +1,64 @@
+
+ Underground Passage by Max Walton V3.0
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : YES!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (6)
+ Replaces screens? : Yes! (2)
+ Adds screens? : Yes! (7)
+ Free? : Yes!
+
+
+ Description:
+
+ IGM for LORD2, to be used as a template.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM passage.IGM
+
+ To uninstall, do the same thing again.
+
+ To test go west of Porttown, where you can see water above you, go until
+ you see a sign and �!
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Underground Passage v3.0 `2by `0Max (`9Phreak`0) Walton
+replacescreen: 945 1 show
+
+replacescreen: 805 2 noshow
+
+replacescreen: 804 3 noshow
+
+replacescreen: 282 4 show
+
+replacescreen: 1450 5 noshow
+
+replacescreen: 1451 6 noshow
+
+replacescreen: 1452 7 noshow
+
+replacescreen: 1453 8 noshow
+
+replacescreen: 1454 9 noshow
+
+replacescreen: 1455 10 noshow
+
+replacescreen: 1456 11 noshow
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `0Travel through an underground passage from the desert to close by
+ Arrisville. And on the way if your hurt, Frank the Healing Wizard will
+ heal you no longer free of charge(sorry). And now a new city... with tons
+ of stuff to do. And a teleporter stone... the stone transports you to
+ Isle of the Phreaks if you have it!
+
+
diff --git a/xtrn/lord2/cnw/igm/photek.igm b/xtrn/lord2/cnw/igm/photek.igm
new file mode 100644
index 0000000000000000000000000000000000000000..c5f32acf360379cfd9843e355460274e246d427c
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/photek.igm
@@ -0,0 +1,44 @@
+
+ Photek's House by White Stone V2.8
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (2)
+ Free? : Yes!
+
+
+ Description:
+
+ Visit Photek, talk, whatver.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM PHOTEK.IGM
+
+ To uninstall, do the same thing again.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Photek's House v2.8 `2by `0White_Stone
+
+replacescreen: 1569 1 noshow
+
+replacescreen: 1586 2 noshow
+
+replacescreen: 1595 3 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2This is my `5first`2 igm, and it could really use some work, but
+ other than that, it's not bad for my first one.
diff --git a/xtrn/lord2/cnw/igm/prison.igm b/xtrn/lord2/cnw/igm/prison.igm
new file mode 100644
index 0000000000000000000000000000000000000000..69a45ce27abc8c9246a358f4760ed58009c728da
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/prison.igm
@@ -0,0 +1,78 @@
+Greentree Prison by Codax and Dragon's Den Ultd v 2.0
+=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
+
+ This Igm requires version 1.0 of Lord 2
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : I think so but not sure
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (3)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (9)
+ Free? : Yes!
+
+ Description:
+
+ This Igm accuses you of a crime you may or may not have committed....
+enter the jail...make friends and enemies and attempt to escape. Or serve
+out your term....Watch out for your good friend and cell mate, Hairy Bob.
+Pump up by crushing rocks, racing, excercising.
+
+ATTENTION:
+
+There are two ways to play this game. There is the unlimited gambles
+version and the limited gambles version. The gambling games are harder
+so I think ulimited gambles are ok but others may not. I have included
+two similar .ref files. If you would like the ulimited gambling all you
+have to do is rename the file "prisone.ref" to "prisonc.ref"
+
+
+PLEASE SEND DONATIONS FOR DRAGON'S DEN BBS' PHONE LINE
+
+codax_dragon@juno.com E-mail me for more info
+
+ or
+
+Send donations: Codax Dragon
+ 107 Patti Lane
+ St. Clairsville, Ohio 43950
+
+
+Location: 1 mile west of Greentree
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `7Greentree Prison `2by `1C`3o`5d`7a`9x
+
+replacescreen: 1355 1 show
+replacescreen: 689 2 noshow
+replacescreen: 769 3 noshow
+replacescreen: 688 4 noshow
+replacescreen: 768 5 noshow
+replacescreen: 610 6 noshow
+replacescreen: 850 7 noshow
+replacescreen: 847 8 noshow
+replacescreen: 607 9 noshow
+replacescreen: 766 10 noshow
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ Welcome to you're worst nightmare! This Prison come fully loaded.
+ You have your gym, warden, guards, filth, terrible food, rock crushing,
+ jail cells, and your own best buddy, Hairy Bob. Watch out for the inmates
+ not all of them are friendly!
+`k
+Location: 1 mile west of Greentree
+`k
+Author: `1C`3o`5d`7a`9x
+
+Please send donations to Dragon's Den BBS it needs to go up!
+107 Patti Lane
+St.Clairsville, Ohio
+ 43950
+
+`k `k `k
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/igm/pyramid.igm b/xtrn/lord2/cnw/igm/pyramid.igm
new file mode 100644
index 0000000000000000000000000000000000000000..e81de4da5323b2ab2b32289d71fa4d5458416fbc
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/pyramid.igm
@@ -0,0 +1,111 @@
+ Pyramid's Place Ver 1.20
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : Yes! but you do that
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (6)
+ Adds screens? : Yes! (9)
+ Free? : Yes!
+
+
+ Description:
+ See Py's Place.doc
+
+ Installation:
+ backup your quest.ref your items.dat and your items.ref files in case you want to
+ uninstall this IGM
+ Unzip into your LORD2 dir and type:
+ igm pyramid.igm
+ NOTE: Unzipping will not overwrite ITEMS.ref and ITEMS.dat because I have
+ put P in front of the files so if you put them on you don't copy over the originals.
+
+ To uninstall, do the same thing again and copy your backup items,
+ and quest files over the ones that came with the igm.
+
+ And when resetting LORD2, do the following:
+ "delete pyr4.DAT"
+ "delete pyr5.DAT"
+ "delete pyr6.DAT"
+ "delete pyr7.DAT"
+ "delete pr4.DAT"
+ "delete pr5.DAT"
+ "delete pr6.DAT"
+ "delete pr7.DAT
+ "delete pys.IDF"
+ "delete ankh.IDF
+ "delete pyport.idf
+ "delete pychek.idf
+ "dleete pychat.txt
+
+ Location:
+ Main entrance is on screen 1,194.
+ And there are some portals to get to Pyramid's Place
+ But I have put restrictions on it so a player can't use
+ it to cheat. Like get passed Neb.
+
+
+
+
+(c)opyright 1997 Scott Tolboe
+
+ by Scott Tolboe Pyramid_1@geocities.com
+ or at The Losse Screw BBS (801)561-4780
+ usere name Pyramid
+
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `4Pyramid's`xPlace`x`2by`x`2Scott`xTolboe`xver.`x1.20
+;replacescreen: 1194 1 show
+
+replacescreen: 1360 2 show
+
+replacescreen: 1591 3 show
+
+replacescreen: 1574 4 show
+
+replacescreen: 40 5 show
+
+replacescreen: 400 6 show
+
+replacescreen: 1549 7 noshow
+
+replacescreen: 1556 8 noshow
+
+replacescreen: 1476 9 noshow
+
+replacescreen: 1477 10 noshow
+
+replacescreen: 1478 11 noshow
+
+replacescreen: 1479 12 noshow
+
+replacescreen: 1396 13 noshow
+
+replacescreen: 1397 14 noshow
+
+replacescreen: 1398 15 noshow
+
+installmessage:
+
+`%ABOUT THIS IGM:
+
+
+Pyramid's place ver. 1.20
+
+Send your ? to `4Pyramid_1@geocities.com
+
+`%and I will get to you as soon as I can.
+
+`%The only change from Ver. 1.10 to 1.20
+
+`%is the art and I think that more of you will
+
+`%like the art. And I will responed to
+
+`%everyone.
diff --git a/xtrn/lord2/cnw/igm/qfortres.igm b/xtrn/lord2/cnw/igm/qfortres.igm
new file mode 100644
index 0000000000000000000000000000000000000000..9b6e223fe4cbfa25b12c86d44b154a7d6addc575
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/qfortres.igm
@@ -0,0 +1,73 @@
+
+ Q's Fortress by Eric L. Bennett v1.45
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (15)
+ Free? : Yes!
+
+
+ Description:
+
+ Super simple IGM for LORD2, to be used as a template.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM QFORTRES.IGM
+
+ To uninstall, do the same thing again.
+
+ Location is south of the naked guy.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `9Q's Fortress `0v1.45 `2by `0Eric L. Bennett
+replacescreen: 911 1 noshow
+
+replacescreen: 912 2 noshow
+
+replacescreen: 832 3 noshow
+
+replacescreen: 833 4 noshow
+
+replacescreen: 834 5 noshow
+
+replacescreen: 835 6 noshow
+
+replacescreen: 836 7 noshow
+
+replacescreen: 837 8 noshow
+
+replacescreen: 838 9 noshow
+
+replacescreen: 1188 10 show
+
+replacescreen: 913 11 noshow
+
+replacescreen: 914 12 noshow
+
+replacescreen: 1268 13 show
+
+replacescreen: 1269 14 show
+
+replacescreen: 1348 15 show
+
+replacescreen: 1349 16 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Q's Fortress version 1.45
+ `2Q's fortress is an ownable castle that
+ `2has many features, including a bar,
+ `2stables, sea travel, supplies, and
+ `2weapon/armor stores.
diff --git a/xtrn/lord2/cnw/igm/quester.igm b/xtrn/lord2/cnw/igm/quester.igm
new file mode 100644
index 0000000000000000000000000000000000000000..79f4ae74b7374b9f22eaa6e2e2637f5434882079
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/quester.igm
@@ -0,0 +1,56 @@
+
+ Quester by Peter Jackson V2.01
+
+ AN IGM FOR LORD2 1.01a+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (6)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (6)
+ Free? : Yes!
+
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM QUESTER.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, from GreenTree go north towards Porttown at the
+ pawn shop (North GreenTree) screen, go west to (Forest with small
+ Mountain) screen, go North to (Tiny Lake) screen. You're there !
+
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Quester `2by `4AEsir Software
+replacescreen: 1115 1 show
+;1368
+replacescreen: 1212 2 noshow
+;1369
+replacescreen: 1213 3 noshow
+;1370
+replacescreen: 1214 4 noshow
+
+replacescreen: 1384 5 noshow
+
+replacescreen: 1385 6 noshow
+
+replacescreen: 1386 7 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2A good addition to any game, not to giving, very sysop configurable.
+ Please read the Quester.doc for full details.
+
+ `0Enjoy !
diff --git a/xtrn/lord2/cnw/igm/rdcastle.igm b/xtrn/lord2/cnw/igm/rdcastle.igm
new file mode 100644
index 0000000000000000000000000000000000000000..9da80e12120fe475f24917aa147840d3f3cb4c3e
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/rdcastle.igm
@@ -0,0 +1,50 @@
+
+ `4The Red Dragon's Castle `2By `%King `4Lucifer
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ An easy to make IGM that I thought would really help people and their
+ quests...ENJOY
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM RDCASTLE.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, go across Flag City Bridge and follow the beach until you see a
+ good size island with a path leading directly into the water...(hint hint)
+ at the centre of the island is a blinking X which teleports you inside
+ the castle...
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `4The Red Dragon's Castle `2by `%King `4Lucifer
+replacescreen: 1014 1 show
+
+replacescreen: 933 2 show
+
+replacescreen: 44 3 noshow
+
+installmessage:
+
+ `bABOUT THIS IGM:
+
+ `yIf you didn't already know this, this is my first IGM I ever created...I
+ think it makes sense since the Dragon Tooth Clan is always protecting a Town
+ or City from attack from the Red Dragon...if you have any questions write me
+ mail in LORD II on THE ZONE BBS...
diff --git a/xtrn/lord2/cnw/igm/rdhide.igm b/xtrn/lord2/cnw/igm/rdhide.igm
new file mode 100644
index 0000000000000000000000000000000000000000..6eb369208ee38936cbeafa2e1df58e469acf0943
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/rdhide.igm
@@ -0,0 +1,45 @@
+
+ The `4Red Dragon's `%Hide-Out v1.1 `2by `%King `4Lucifer
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ This is my 2nd IGM that I've made for LORD II, my 1st was Red Dragon's Castle.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM REDRAGON.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, go 2 screens south of Flag City and follow the blinking arrow. It should warp you to a different screen
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `%The `4Red Dragon's `%Hide-Out v1.1`2by `%King `4Lucifer
+replacescreen: 353 1 noshow
+
+replacescreen: 354 2 noshow
+
+replacescreen: 355 3 noshow
+
+replacescreen: 1252 4 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `%Welcome to my 2nd IGM that has been made by me for the game Legend Of the Red Dragon 2: New World. For the next few months (at least 6 months) I will NOT be making any IGMs as I will be working on my own New World for LORD II...hopefully by then I would have gotten used to writing .ref files...thank you for choosing this IGM...
diff --git a/xtrn/lord2/cnw/igm/reddtown.igm b/xtrn/lord2/cnw/igm/reddtown.igm
new file mode 100644
index 0000000000000000000000000000000000000000..d5248fbba17894cfa014f7994d8d14aaabf68c0d
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/reddtown.igm
@@ -0,0 +1,58 @@
+
+ RED DRAGON TOWN (The town from LORD1) - By VooDoo KnighT
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : v1.0 (Not BETA)
+ Is registered version of LORD2 required to use? : Yep(sorry! it does!)
+ Using any LORD2 vars? : Yep
+ Overwrites any original .refs? : Nope
+ Saves and loads its own vars independently? : Yep
+ Adds new .refs? : Yep
+ Replaces screens? : Yep
+ Adds screens? : Yep
+ Free? : Nope(Scared ya didn't it)
+
+
+ Description:
+ I'M THE FIRST!!! This IGM was created on August 24 1997 ... I'm the 1ST
+ to have created the Village from LORD 1!!! And it KICKS HEAVY ASS!!! Why?
+ Cuz I'm >>SO<< PROUD OF MY WORK!!! INSTALL IT... I GARANTIE you'll have
+ SO MUCH FUN!!!
+
+ How to install:
+ IGM REDDTOWN
+
+ How to uninstall:
+ IGM REDDTOWN
+
+ **COMMING SOON** Another KICK ASS Installation Program by KooK!!!
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `4RED DRAGON `2Town (The town from LORD1) `0by `7VooDoo KnighT
+replacescreen: 1020 1 show
+
+replacescreen: 1000 2 noshow
+
+replacescreen: 1001 3 noshow
+
+replacescreen: 920 4 noshow
+
+replacescreen: 921 5 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+ `8K`7N`%iGHTSo`7F`8T `2- `0*FRee* QuaLiTy iGMS By Da PRoS
+
+ `4RED DRAGON `2TOWN `0is my 3rd LORD 2 IGM ... and I'm SO PROUD
+ `0about this one because it's my first "COMPLETE" town!!! Be sure
+ `0to check out our webpage to d/load other LORD 2 IGM's by KNiGHTSoFT!
+ `%http://www.angelfire.com/ks/knightsoft/index.html
+
+ `2OTHER IGMs by VooDoo KnighT - `0VooDoo Temple (with help of TSUNAMI)
+ `0Figaro Castle
+
+ `2Reach us at my BBS : `0MisTy MounTainS BBS (514)461-3460
+ `2VooDoo KnighT : `0knightsoft@hotmail.com
diff --git a/xtrn/lord2/cnw/igm/registry.igm b/xtrn/lord2/cnw/igm/registry.igm
new file mode 100644
index 0000000000000000000000000000000000000000..7dccdfa05ee3b92c6fe000cf83ec22bc0d635102
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/registry.igm
@@ -0,0 +1,44 @@
+ Global Registries(tm) For Lord II v1.01a by Mike Freeman
+ AuSSie Creations Inc.
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01a(NEW WORLD ONLY!)
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : Yes! (03)(OPTIONAL)
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (10)
+ Replaces screens? : Yes! (01)(Neb's Road)
+ Adds screens? : No!
+ Free? : Optional
+
+ Description:
+
+ To install, unzip into an empty directory by typing:
+ =======
+
+ pkunzip registry
+
+ Next:
+
+ * DO NOT TYPE * IGM REGISTRY till you read the docs
+
+ Read REGISTRY.DOC for full installation modifications and installation
+ completion instructions. * DO NOT * type REGISTRY until you have read
+ REGISTRY.DOC and MCODE.DOC
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `@� `2Global Registries `0v1`2.`012 `2by Mike Freeman `0(`2AuSSie Creations Inc.`0) `@� `@� `2Our Home Page ... `$http`7://`$home`7.`$att`7.`$net`7/~`$aussie`7.`$mfreeman`7/`$home`7.`$htm `@�`2
+
+replacescreen: 1358 1 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `%Please read `$REGISTRY.DOC `%and `$MCODE.DOC `%prior to running
+ Global Registries(tm).
+
diff --git a/xtrn/lord2/cnw/igm/reset.igm b/xtrn/lord2/cnw/igm/reset.igm
new file mode 100644
index 0000000000000000000000000000000000000000..aa9bd4d5fa5973d789d60afed1f7a73d14dc4245
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/reset.igm
@@ -0,0 +1,54 @@
+
+ Reset Your Character by Jim Wilson V1.07
+
+ jfw@ica.net
+
+ AN IGM FOR LORD2
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : No.
+ (But there would be no point.)
+ Using any LORD2 vars? : No.
+ Overwrites any original .refs? : No.
+ Saves and loads its own vars independently? : Yes.
+ Adds new .refs? : Yes. (1)
+ Replaces screens? : Yes. (1)
+ Adds screens? : No.
+ Free? : Yes.
+
+
+ Description:
+
+ Sets a character back to start.
+ Resets Hydra, amongst other IGMs.
+ Resets some IGMs that use idf files.
+ Can be extended to reset new IGMs by editing "resetidf.txt".
+ The above named file is a text file. Leave the first line
+ alone, add or subract filenames to have updated.
+ Extras do little harm, up to 50 idfs.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM RESET.IGM
+
+ To uninstall, type IGM RESET.IGM again.
+
+ To test, walk to the screen directly under Stonebrook and over one
+ west and you will see a new building,
+ enter it and see the retired list.
+ If an "ancestor" is living there you may visit.
+ Note: Only characters that have "won" are allowed to retire.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `2Reset Your Character ver. `$1.07 `0by Jim Wilson`2 (jfw@ica.net)
+
+replacescreen: 1438 1 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Resets Characters that have won, if desired.
diff --git a/xtrn/lord2/cnw/igm/resort.igm b/xtrn/lord2/cnw/igm/resort.igm
new file mode 100644
index 0000000000000000000000000000000000000000..3f8e3603704d1c189a4c510ef11d7daaf775b687
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/resort.igm
@@ -0,0 +1,51 @@
+
+ The Resort by Nicholas Morrissey
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : v1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (3)
+ Free? : Yes!
+
+
+ Description:
+
+ An IGM that is bigger and better than my first...
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM RESORT.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, walk to the screen with the with the cave and you will see a
+ gate, a new sign, and a dark grey tree. Walk into the tree and be
+ transported to a new land.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `5The Resort `2by `5Nicholas Morrissey `0(`!FLiNK`0)`2
+replacescreen: 1518 1 show
+
+replacescreen: 50 2 noshow
+
+replacescreen: 51 3 noshow
+
+replacescreen: 52 4 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2This is my third IGM, and I am thinking about starting some sort of name
+ for myself. This one is really quite crappy (not much to do). Anyways,
+ enjoy, See ya later.
+
+ BY: `5F`#L`%i`#N`5K
diff --git a/xtrn/lord2/cnw/igm/revenge.igm b/xtrn/lord2/cnw/igm/revenge.igm
new file mode 100644
index 0000000000000000000000000000000000000000..f439575e47809d318b09d3a1fbadb55875af836c
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/revenge.igm
@@ -0,0 +1,63 @@
+
+ ۲��Revenge Castle by Sejr Andersen V1.00����
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes!
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (3)
+ Free? : Yes!
+
+
+ Description:
+
+ Super simple IGM for LORD2, to be used as a template.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM Revenge.IGM
+
+ To uninstall, do the same thing again.
+
+ This IGM is right under Flag City. You have to find the purple tree
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `1Revenge Castle `2by `4Sejr Andersen
+
+replacescreen: 59 1 show
+
+;replacescreen: 1211 2 noshow
+replacescreen: 1215 2 noshow
+
+replacescreen: 1216 3 noshow
+
+replacescreen: 1217 4 noshow
+
+replacescreen: 1295 5 noshow
+
+replacescreen: 1296 6 noshow
+
+replacescreen: 1297 7 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM: Revenge Castle is an IGM that is North
+of Sosen Village, at the very top of the map. It is in the middle of
+the rocks. This IGM includes:
+�A Travelers
+�A weapon and armour shop
+�A potion shop
+�A Bank
+�An Inn.
+and much more....
+
+I hope you enjoy this IGM.
+
+
diff --git a/xtrn/lord2/cnw/igm/rose.igm b/xtrn/lord2/cnw/igm/rose.igm
new file mode 100644
index 0000000000000000000000000000000000000000..072e02d1f6e050b62179f0e89a0e93ff6afde395
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/rose.igm
@@ -0,0 +1,52 @@
+ @>---,---'---
+ Ralphie's Roses
+ ---'---,---<@
+
+ An IGM for LORD 2
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes!
+
+
+ Description:
+
+ This IGM adds a small hut west of Runion Keep where players can
+ buy a rose for $5 and send it to another player.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM Rose
+
+ To uninstall, do the same thing again.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `@Ralphie's Roses (r) `2by `!E`0lric `#(`0elric`2@`0innocent`2.`0com`#)
+
+replacescreen: 1271 1 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `0This IGM adds a small hut west of Runion Keep where players can
+ buy a rose for `$$5 `0and send it to another player.
+
+ `0I would like to dedicate this IGM to my father-in-law `%Fred Ledden`0,
+ the real-life owner of `@Ralphie's Roses`0.
+
+ `0From `!S`@h`#r`$o`%o`0m`!T`@r`#i`$p `0Software:
+
+ `0WWW `%:`0 www`2.`0afn`2.`0org`2/`!~`0afn50378`2/`0sthome`2.`0html
+ `0Primary Email `%:`0 elric`2@`0innocent`2.`0com
+ `0Secondary Email`%:`0 afn50378`2@`0afn`2.`0org
+ `0Tech Support `%:`0 kender`2@`0innocent`2.`0com
diff --git a/xtrn/lord2/cnw/igm/sandcity.igm b/xtrn/lord2/cnw/igm/sandcity.igm
new file mode 100644
index 0000000000000000000000000000000000000000..7296b926c6fa768b16173dea28a1d18db2230051
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/sandcity.igm
@@ -0,0 +1,46 @@
+
+ SandCity by Kevin Brown V1.00
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes! (T60)
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ Super simple IGM for LORD2, to be used as a template.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM SANDCITY.IGM
+
+ To uninstall, do the same thing again.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0SandCity `2by `0Kevin Brown
+
+replacescreen: 1027 1 show
+
+replacescreen: 980 2 noshow
+
+replacescreen: 979 3 noshow
+
+replacescreen: 978 4 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Well, it's a starter! Add Sandcity to your desert. Sandcity has fallen
+ into a cavern below it's origional site. Will you help them dig out?
diff --git a/xtrn/lord2/cnw/igm/save.igm b/xtrn/lord2/cnw/igm/save.igm
new file mode 100644
index 0000000000000000000000000000000000000000..23630ce361993436cfe15e8ee6360bbaa72f99f3
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/save.igm
@@ -0,0 +1,101 @@
+
+ SAVE v1.0 by Talaphid
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : You betcha
+ Using any LORD2 vars? : Yes
+ Overwrites any original .refs? : Yes/No (see below)
+ Saves and loads its own vars independently? : Yes
+ Adds new .refs? : Yes (1- SAVE.REF)
+ Replaces screens? : Yes (3- 1093, 379, 319)
+ Adds screens? : Yes (3- 1045-7)
+ Free? : Once again, yes
+ Adds items? : No
+
+ Description:
+
+ An IGM to redefine how LORD 2 plays. With this version, I'm not
+sure that it all works, and this won't affect IGMs that refuse to use DIE
+in GAMETXT.REF. Morons. This IGM adds a religious order that will, upon
+the player finding them, be so nice as to resurrect the player ( at their
+choice ) at any of their [found] temples. This requirement, of finding
+a temple first, prevents it from unbalancing (a level 1 character by
+RockHolm!?) gameplay. One site is in each corner of the map, and there are
+no conflicts that I noticed.
+
+ ADDENUM:
+
+ This requires editing your GAMETXT.REF. I'm not aware of which
+ versions require what, but this will allow backwards capability probably
+ to beta 7. And forwards capability, as well. Anyway, here's what you do:
+
+ -- BACKUP GAMETXT.REF --
+ Open GAMETXT.REF in your favorite text editor... or DOS's EDIT. Whatever
+ gets the job done.
+ Find "@#DIE"
+ Delete EVERYTHING down to @#iwon
+ Add "@routine NEWLIFE in SAVE.REF"
+ So, the revelent few lines of GAMETXT.REF will look like : "
+
+@#DIE
+@routine NEWLIFE in SAVE.REF
+
+@#iwon
+;is run after someone kills a player - if in multinode combat, L2
+" minus, of course, the quotation marks... =)
+
+ Now, there's another edit in GAMETXT.REF, and its a lot more
+ tricky.
+
+ Find ";if he is dead when he logs on"
+ I'll just show you what stuff will look like post edit, you figure
+ out how to get there:"
+
+@if `v03 is 1 then do
+ @begin
+ @if dead is 1 then do
+ ;if he is dead when he logs on
+ @begin
+ @routine OLDLIFE in SAVE.REF
+ @end
+ @end
+
+
+"
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM SAVE.IGM
+
+ -and- make the necessary edits mentioned in the ADDENUM above.
+
+ To uninstall, do
+
+ IGM SAVE.IGM
+
+ again, and then restore your backup of GAMETXT.REF.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `9Save `7by `!T`3alaphid
+replacescreen: 1045 1 noshow
+
+replacescreen: 1046 2 noshow
+
+replacescreen: 1047 3 noshow
+
+replacescreen: 1093 4 show
+
+replacescreen: 379 5 show
+
+replacescreen: 319 6 show
+
+installmessage:
+
+`2 You've just made life nicer for your LORD2 players, thanks be to
+ `9Talaphid Elsdragon `@( `4Talaphid@Juno.Com `@)`2, member of `@A`$U`2.
+
+`3 Try out my other IGMs, if you haven't --
+`4 or risk an eternity in `@Hell.
+`! Your choice. `3=)
diff --git a/xtrn/lord2/cnw/igm/scorp.igm b/xtrn/lord2/cnw/igm/scorp.igm
new file mode 100644
index 0000000000000000000000000000000000000000..c5ef20ff9a56eab26de704785f4fa550dd05abc4
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/scorp.igm
@@ -0,0 +1,44 @@
+
+ Scorpion's Den V1.00
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ Super simple IGM for LORD2, to be used as a template.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM SCORP.IGM
+
+ To uninstall, do the same thing again.
+
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `4Scorpion's `$Den By: Brandon Harvey (aka) `4X-Acutioner
+
+replacescreen: 1032 1 show
+
+replacescreen: 1192 2 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `4This is my 2nd IGM.. This one is cool.. It adds a bar in the middle of
+ `4the desert. There is a healer, old drunk man, bartender. Meet X-Acutioner
+ `4the dealer...
+
diff --git a/xtrn/lord2/cnw/igm/scvngr.igm b/xtrn/lord2/cnw/igm/scvngr.igm
new file mode 100644
index 0000000000000000000000000000000000000000..07466e126285a0dd6e42e79dde118cb1143480e9
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/scvngr.igm
@@ -0,0 +1,99 @@
+
+Scavenger Hunt by Codax and Dragon's Den ULTD v 1.03
+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes
+ Using any LORD2 vars? : money and items
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (13)
+ Adds screens? : Yes (1)
+ Free? : Yes!
+
+
+ Description:
+
+ This Igm will send players to find items and then bring them back to
+the home base. This igm uses ALL the Items found in Lord2 plus some little
+extras. These items can be found by searching the world, talking to people,
+bartering, and just plain luck(little brains never hurt either)
+(This game is Loose Screw BBS and Springfang friendly!)
+
+Note: Not having mine, Loose Screw, or Springfang items won't really
+ matter, but it makes the igm harder to understand(clues and all)
+ Also if you choose not to have my items just delete the file
+ SCVNGR.NUM this will only let players hunt for the original 57 items
+
+
+List of Files
+ scvngr.igm --->This file used to (un)install
+ scvngr.ref --->This is the (I)n (G)ame (M)odule
+ scvngr1.ans --->Picture
+ scvngr2.ans --->Picture
+ scvngr3.ans --->Picture
+ scvngr.num --->Text editable, how many items to hunt for (1 - 99)
+ scvngr.dat --->Used by igm.exe to fill in screens
+ items.dat --->My items(not nessesary if scvngr.num = 57)
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM scvngr.igm
+
+ To uninstall, do the same thing again.
+
+
+Location: (Main Hedquaters) 2 screens south of Castle Coldrake
+ other locations are various places around the world
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0The Great Scavenger hunt by `1C`3o`5d`7a`9x `0and `#Dragon's `$Den `%Ultd
+
+replacescreen: 560 1 show
+
+replacescreen: 462 2 show
+
+replacescreen: 238 3 show
+
+replacescreen: 388 4 show
+
+replacescreen: 120 5 show
+
+replacescreen: 706 6 show
+
+replacescreen: 280 7 show
+
+replacescreen: 1494 8 show
+
+replacescreen: 559 9 noshow
+
+replacescreen: 136 10 show
+
+replacescreen: 160 11 noshow
+
+replacescreen: 1100 12 show
+
+replacescreen: 1210 13 noshow
+
+replacescreen: 1512 14 noshow
+
+replacescreen: 1193 15 show
+
+
+installmessage:
+
+`0 Hunt for items in the world and bring them back for cash and prizes
+
+
+ `%ABOUT THIS IGM:
+
+`%Location: 2 screens south of Castle Coldrake.
+ Author: `1C`3o`5d`7a`9x
+ Dragon's Den Ultd
+ http://www.geocities.com/SiliconValley/Way/9982/index.html
+ Codax_dragon@juno.com
+
+
diff --git a/xtrn/lord2/cnw/igm/seasons.igm b/xtrn/lord2/cnw/igm/seasons.igm
new file mode 100644
index 0000000000000000000000000000000000000000..e21c435144dd988fa3ee21bcdf59c71f6999c18b
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/seasons.igm
@@ -0,0 +1,45 @@
+
+ The Seasons 97' v1.00
+
+ by Bryan Turner and Robby Dittmann
+
+
+ AN IGM FOR LORD2
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : No!
+
+
+ Description:
+
+ Seasons 97. Tis the Season remember to give to the Needy (read
+ seasons.doc for more info)
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM SEASONS.IGM
+
+ To uninstall, do the same thing again.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `@T`0i`$s `9T`@h`0e `$S`9e`@a`0s`$o`9n`@.`0.`$.`9. `2by `0Bryan Turner `2and `0Robby Dittmann
+
+replacescreen: 1278 1 show
+
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2 This is the continuing story of the Seasons IGM done by Ken Weitzel
+ The Children's Shelter is located next to Jack's Rest. Have Phun!
diff --git a/xtrn/lord2/cnw/igm/shark.igm b/xtrn/lord2/cnw/igm/shark.igm
new file mode 100644
index 0000000000000000000000000000000000000000..dadc66d4555faaff53253b543622eae17134c6b8
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/shark.igm
@@ -0,0 +1,55 @@
+
+ Sharks' Tooth Island by Jay Weber V1.00
+ (C) 1997 ShroomTrip Software
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+ Has anyone figured out a way to charge for LORD 2 IGM's : No!
+
+ Description:
+
+ A new village for LORD2.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM SHARK
+
+ To uninstall, do the same thing again.
+
+ To test, use the player editor to position your chaaracter on map 1416,
+ X=57, Y=19, and press against the tree on your right. Walk through the
+ trees until you are warped to Shark's Tooth Island.
+
+
+Visit the ShroomTrip Software Web Site at:
+http://www.afn.org/~afn50378/STHome.html
+
+E-Mail us at: afn50378@afn.org
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0S`!harks' `0T`!ooth `0I`!sland `2by `0Jay Weber
+replacescreen: 1341 1 show
+
+replacescreen: 1416 2 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `0This IGM adds a `0S`!harks' `0T`!ooth `0I`!sland, a new village for LORD 2.
+ There is a Bank, a healer, a place to buy travel tickets (neede to leave the
+ island), a general store, and 3 people to talk to.
+
+
+
+
diff --git a/xtrn/lord2/cnw/igm/ship.igm b/xtrn/lord2/cnw/igm/ship.igm
new file mode 100644
index 0000000000000000000000000000000000000000..1d3a1febcb9a76ecdad4104dd9b56aeaa36058b8
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/ship.igm
@@ -0,0 +1,59 @@
+
+ The The Sea Serpent by Peter Pelliccia V1.00
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (5)
+ Adds screens? : Yes! (2)
+ Free? : Yes!
+
+
+ Description:
+
+ Nice IGM for LORD2, which adds a bit of flair to the game.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM SHIP.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, walk to the screen west of PortTown and you will see
+ a ship. Purchase it and it will take you almost anywhere.
+
+
+ Oh Yeah, a personal thanks to Seth for his great game and for most
+ the routines I used in this IGM.
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Sea Serpent `2by `0Peter Pelliccia
+replacescreen: 721 1 noshow
+
+replacescreen: 801 2 noshow
+
+replacescreen: 952 3 show
+
+replacescreen: 71 4 noshow
+
+replacescreen: 152 5 noshow
+
+replacescreen: 536 6 noshow
+
+replacescreen: 444 7 noshow
+;456
+replacescreen: 539 8 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Well, its sort of a cool IGM. It lets you become the captain of a ship
+ and lets you sail the Eight seas (g). Better than having a castle.
+ If you like it drop me a line at: petros@.cobweb.com.au
diff --git a/xtrn/lord2/cnw/igm/shipwrk.igm b/xtrn/lord2/cnw/igm/shipwrk.igm
new file mode 100644
index 0000000000000000000000000000000000000000..19ce220d9d76813e7e8ac817b3a3d01420d2df76
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/shipwrk.igm
@@ -0,0 +1,52 @@
+
+ The Shipwreck by Chet Rhodes v1.0
+
+ AN IGM FOR LORD2 V1.00+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (2)
+ Free? : Yes!
+
+
+ Description:
+
+ Another IGM from Chet Rhodes. Sysop of Hawkmoon's Realm.
+
+ TO INSTALL
+ unzip into your LORD2 dir and type:
+
+ IGM SHIPWRK.IGM
+
+ Head west 6 screens from PortTown to test.
+
+ TO UNINSTALL
+ Do the same thing again.
+
+ TO UPGRADE FROM A PREVIOUS VERSION
+ N/A
+
+ chet.rhodes@juno.com
+ Fido 1:151/131
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0The Shipwreck `2by `0Chet Rhodes (aka Hawkmoon)
+replacescreen: 950 1 show
+
+replacescreen: 870 2 noshow
+
+replacescreen: 790 3 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Explore the merchant ship PRIDE OF ARRIS. Trade with her captain.
+ Fire the cannon. Meet Larkin, the worlds most powerful wizard.
diff --git a/xtrn/lord2/cnw/igm/show.igm b/xtrn/lord2/cnw/igm/show.igm
new file mode 100644
index 0000000000000000000000000000000000000000..69c864f7d6a444c75e5df35274ba1919b7dc51f5
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/show.igm
@@ -0,0 +1,196 @@
+To install, type: IGM SHOW.IGM
+
+ Version of LORD2 required to use it : 1.01a
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : Yes! (3)
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (5)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (6)
+ Free? : Yes!
+ Version of this IGM : 1.9
+
+ I replace the quest.ref, items.ref, gametxt.ref, and items.dat. Just so
+ they won't overwrite your files, I named them squest.ref, sitems.ref,
+ sgametxt.ref, and sitems.dat. Below are listed all the changes.
+
+ I add maps to blocks 245, 246, 247, 248, 249, and 250. If you have a
+ conflict with any other programs, you can easily change one or the other.
+ Just be sure that if you change this one, you make the appropriate changes
+ on ALL the hotspots in it, as well as changing the Mystic Eye to take you
+ to the right place.
+
+ I change block 55. All I do is add an entrance and two signs. If this is a
+ problem, go ahead and change it to wherever you like, but be sure to change
+ the exit from the House of Wonders to go to the new entrance. Also, be sure
+ you put BOTH signs in as well.
+
+
+ Here are all the changes I made to quest.ref, items.ref, gametxt.ref and
+ items.dat:
+
+ QUEST.REF
+ I added the ability for SpringFang to be included in the quest deal. Just
+ look at squest.ref to see the changes you need to make. They include adding
+ the line:
+
+ @if `p20 is 7 then `s01 is `3Spr`7ing`4Fa`6ng
+
+ in the @#GETNAME function, and the line:
+
+ @if `p20 is 7 then `s03 is House`xof`xWonders
+
+ in the @#GETPLACE function. Finally, you need to replace the line:
+
+ @do `p20 random 6 1
+
+ with:
+
+ @do `p20 random 7 1
+
+ This is VERY necessary.
+
+
+ ITEMS.REF
+ All I did was add one item ref for my Mystic Eye item. It's very simple to
+ add. All the @datasave lines are for the challenge bit.
+
+ Just add these lines:
+
+ @#MEYE
+ @itemexit
+ @routine enter in show2.ref
+
+
+ anywhere in the file, except of course in another function.
+
+
+ GAMETXT.REF
+ These changes make it so that when someone is killed, if the just happen to
+ be the Greatest Warrior in the Land, the person who killed them will get the
+ money, and all that fun stuff.
+
+ First, locate the @#iwon function in the file. Then add these lines BEFORE
+ it goes into the bounty stuff:
+
+ @if grshow.shw exist true then do
+ @begin
+ @dataload grshow.shw 1 `p20
+ @dataload grshow.shw 2 `p24
+ @do `s01 is getname `p20
+ @if `v39 is `p20 then do
+ @begin
+ @do money + `p24
+ @do delete grshow.shw
+ @do quebar
+ `2You collect `0$`p24 `2for killing the `$Greatest Warrior in the Land`2!
+ @do addlog
+ `r5 `r0 `0`n `2killed `0`s01`2, and got the `0$`p24 `2for killing the
+@do addlog
+ `$Greatest Warrior in the Land`2! `r5 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+ @writefile mail\mail`p20.dat
+ `0`3Spr`7ing`4Fa`6ng `2reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`4 You've been killed by `0`n`4. I warned you to watch your back,
+ but I guess you just didn't pay attention. Oh well.
+
+
+
+
+@end
+@end
+
+
+ ITEMS.DAT
+ This is where the info is for the Mystic Eye, the Armor of KCD, and the
+ Sword of KCD is. You simply add this stuff by going into L2CFG and accessing
+ the item editor. I will list all the stats for these items just as they are
+ listed in the item editor. It is EXTREMELY necessary that you keep the item
+ numbers the same.
+
+
+ LORD II ITEM EDITOR editing item (83 of 99)
+ (A) Name of the item : Mystic Eye
+ (B) Action String :
+ (C) Used as armour? : No
+ (D) Used as weapon? : No
+ (E) Can be sold? : No
+ (F) Ref, if "Usable"? : MEYE
+ (G) Use string : Look into it.
+ (H) Gold Value : 0
+ (I) Used only once? : No
+ (J) Breaks 1 out of : Never breaks
+ (K) Description : Try it out!
+ (L) Weapon strength : 0
+ (M) Armour defence : 0
+ (N) Quest item? : No
+
+
+ LORD II ITEM EDITOR editing item (84 of 99)
+ (A) Name of the item : Armor of `4K`5C`8D`0
+ (B) Action String :
+ (C) Used as armour? : Yes
+ (D) Used as weapon? : No
+ (E) Can be sold? : No
+ (F) Ref, if "Usable"? :
+ (G) Use string :
+ (H) Gold Value : 0
+ (I) Used only once? : No
+ (J) Breaks 1 out of : Never breaks
+ (K) Description : Greatest armor. (+300)
+ (L) Weapon strength : 0
+ (M) Armour defence : 300
+ (N) Quest item? : No
+
+
+ LORD II ITEM EDITOR editing item (85 of 99)
+ (A) Name of the item : Armor of `4K`5C`8D`0
+ (B) Action String : You savagely slash
+ (C) Used as armour? : No
+ (D) Used as weapon? : Yes
+ (E) Can be sold? : No
+ (F) Ref, if "Usable"? :
+ (G) Use string :
+ (H) Gold Value : 0
+ (I) Used only once? : No
+ (J) Breaks 1 out of : Never breaks
+ (K) Description : Greatest sword. (+650)
+ (L) Weapon strength : 650
+ (M) Armour defence : 0
+ (N) Quest item? : No
+
+
+
+ One other thing... This igm creates MANY .shw files. They are listed in
+ the README file. So, if you wonder what they are and what they do, go check
+ it out.
+
+
+
+igmname: `3Spr`7ing`4Fa`6ng`2's House of Wonders `5v1.9 `1by Thos Swallow (springfang@hotmail.com)
+
+replacescreen: 245 1 noshow
+
+replacescreen: 246 2 noshow
+
+replacescreen: 247 3 noshow
+
+replacescreen: 248 4 noshow
+
+replacescreen: 249 5 noshow
+
+replacescreen: 250 7 noshow
+
+replacescreen: 55 6 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `0Check out the README and SHOW.IGM files for any and all information
+ about this IGM!
+
+ `5Give me your comments! springfang@hotmail.com
diff --git a/xtrn/lord2/cnw/igm/sl.igm b/xtrn/lord2/cnw/igm/sl.igm
new file mode 100644
index 0000000000000000000000000000000000000000..fbebb377935bd6d8dfd656484b3ad4224d6416b6
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/sl.igm
@@ -0,0 +1,48 @@
+
+ The Crazy Man's House by Seth A. Robinson V1.00
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : Beta 6 or Higher
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ An IGM that is just a simple thing...
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM SL.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, walk to the screen with the TreeHouse and you will see a blue tree
+ right above... Walk into it and be transported to another screen and see
+ a few things..
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `4Shangri La `2by `5Nicholas Morrissey `0(`!FLiNK`0)`2
+replacescreen: 1279 1 show
+
+replacescreen: 171 2 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Well, this is my second IGM and it was made in about 2 hours.. It's not
+ too shabby. If you don't want your users taking advantage of this, get rid
+ of it, cause a user can keep coming in and getting better stats (fixed in a
+ later version, I am too lazy to finish it now...
+
+ BY: `5F`#L`%i`#N`5K
diff --git a/xtrn/lord2/cnw/igm/slayer.igm b/xtrn/lord2/cnw/igm/slayer.igm
new file mode 100644
index 0000000000000000000000000000000000000000..de278435b5dece9eaedb28ac211435de3136b11f
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/slayer.igm
@@ -0,0 +1,53 @@
+
+ SLAYER's Domain v2.01
+
+ Ben Mondoux
+
+
+
+ Is registered version of LORD2 required to use? : Yeppers!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (2)
+ Adds screens? : Yes! (9)
+ Free? : Of course!
+
+
+Description: A groovy IGM along the jagged beach! Tons of shops, training
+centre, casino, stables (used once a day) and two quests.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `1S`4L`!A`3Y`@E`%R`0's Domain v2.01 `2by`0 Ben Mondoux
+replacescreen: 172 1 show
+
+replacescreen: 173 2 show
+
+replacescreen: 252 3 noshow
+
+replacescreen: 253 4 noshow
+
+replacescreen: 332 5 noshow
+
+replacescreen: 333 6 noshow
+
+;775
+replacescreen: 854 7 noshow
+
+replacescreen: 855 8 show
+
+replacescreen: 856 9 show
+
+replacescreen: 935 10 show
+
+replacescreen: 1191 11 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ Shops etc. and two quests, one with a moving sequence. Email bug reports,
+ comments and suggestions to me at bmondoux@geocities.com. I really
+ apreciate feedback.
diff --git a/xtrn/lord2/cnw/igm/soldacar.igm b/xtrn/lord2/cnw/igm/soldacar.igm
new file mode 100644
index 0000000000000000000000000000000000000000..c9ae863d00e63a589c331af8ab3f4979246c31d5
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/soldacar.igm
@@ -0,0 +1,52 @@
+
+ SoldaCar Crisis v.0.9 By ArticNight IGMs
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : I think so!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (2)
+ Adds screens? : Yes! (5)
+ Free? : Yes!
+
+
+ Description:
+
+ Super simple IGM for LORD2, to be used as a template.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM soldacar.IGM
+
+ To uninstall, do the same thing again.
+
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `4 SoldaCar Crisis V.9 `2By: `3 ArticNight IGMs
+
+replacescreen: 60 1 noshow
+replacescreen: 61 2 noshow
+replacescreen: 62 3 noshow
+replacescreen: 141 4 noshow
+replacescreen: 142 5 noshow
+replacescreen: 219 6 show
+;replacescreen: 316 7 show
+replacescreen: 315 7 show
+
+
+installmessage:`%ABOUT THIS IGM:
+
+ This is the `7 4th `2IGM that ArticNight IGMs has created! This IGM is:
+ SoldaCar Crisis: Where you play the spy for our Mother Company,
+ DarkForest Software! Kill the Evil Dr. Notnilc! Save Zelda? It is all
+ up to you!
+
+Stephen Walls
+Proud member (& CEO) of DarkForest Software!!!
+
diff --git a/xtrn/lord2/cnw/igm/sorry.igm b/xtrn/lord2/cnw/igm/sorry.igm
new file mode 100644
index 0000000000000000000000000000000000000000..ed430a88b532581df118297a0b76b59a1b03cf69
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/sorry.igm
@@ -0,0 +1,27 @@
+
+ Externally Defined Items example screen by Michael Hutson Beta 1.01
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes!
+ Uses Externally Defined Items? : Yes! (2)
+
+igmname: `0Sorry `2by `0Michael Hutson
+
+replacescreen: 1276 1 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Well, it's really sorry - but it lets you see how .REF files can use
+ Externally Defined Items
diff --git a/xtrn/lord2/cnw/igm/stoneb.igm b/xtrn/lord2/cnw/igm/stoneb.igm
new file mode 100644
index 0000000000000000000000000000000000000000..9bde71f5efbf892a8f67f479c1d3f61eee61681f
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/stoneb.igm
@@ -0,0 +1,32 @@
+
+ The Township of New Stonebrook by Trent Renshaw
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : No!
+ Replaces screens? : Yes! (2)
+ Adds screens? : No!
+ Free? : Yes!
+
+ Description:
+
+ The Township of New Stonebrook is a replacement screen for the original
+ Stonebrook with nothing more than enhanced buildings and landscapes
+ featuring trees from the Northlands.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM STONEB.IGM
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Township of New Stonebrook `2by `0Trent Renshaw
+replacescreen: 1359 1 show
+replacescreen: 156 2 noshow
diff --git a/xtrn/lord2/cnw/igm/sword.igm b/xtrn/lord2/cnw/igm/sword.igm
new file mode 100644
index 0000000000000000000000000000000000000000..4cf65622d03becabafa7ecc7f6567184d3fc61c7
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/sword.igm
@@ -0,0 +1,50 @@
+
+ The `%$word`7 in the `8$tone`7 1.0
+ by MERCER (Michael Naeseth)
+
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : YES! (sorry)
+ Using any LORD2 vars? : YES! (1)
+ Overwrites any original .refs? : NO!
+ Saves and loads its own vars independently? : YES!
+ Adds new .refs? : YES! (1)
+ Replaces screens? : YES! (1)
+ Adds screens? : YES! (2)
+ Free? : YES!
+
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM SWORD
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: The `%$word`7 in the `8$`7tone 1.0 : by MERCER (Michael Naeseth)
+
+replacescreen: 1516 1 show
+replacescreen: 1560 2 noshow
+replacescreen: 1568 3 noshow
+
+installmessage:
+
+ `0Thanks for Downloading this IGM by MeRcEr, I would appreciate it
+ if you'd E-Mail me with any errors or mistakes, so that I may improve
+ them. E-Mail me at: MERCER281@AOL.COM and if you live in
+ the Houston, Texas area be sure to check out my new BBS,
+ The Rookie BBS ; Sysop: Mercer ; BPS : X2, 56k ; (281) 373-4436
+
+ABOUT THIS IGM:
+
+ `2Description: Pull out the $word from the $tone, discover the lost
+ treasure of Stone Brook. But remember, you only get one pull per
+ day so make it a good one....
+
+
+
diff --git a/xtrn/lord2/cnw/igm/swordcas.igm b/xtrn/lord2/cnw/igm/swordcas.igm
new file mode 100644
index 0000000000000000000000000000000000000000..bc644fb3adc4373625f6037faa29757d450d1be5
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/swordcas.igm
@@ -0,0 +1,77 @@
+
+ `9The Sword Castle v2.0 - MeRCeR Programming
+
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01a+
+ Is registered version of LORD2 required to use? : YES! (sorry)
+ Using any LORD2 vars? : YES! (3)
+ Overwrites any original .refs? : YES! (1, w/ Backup)
+ Saves and loads its own vars independently? : YES!
+ Adds new .refs? : YES! (2)
+ Replaces screens? : YES! (4)
+ Adds screens? : YES! (23)
+ Free? : YES!
+
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM SWORDCAS
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `9The Sword Castle v2.0 - MeRCeR Programming
+
+replacescreen: 955 1 show
+replacescreen: 457 2 show
+replacescreen: 201 3 show
+replacescreen: 1493 4 show
+replacescreen: 1383 5 noshow
+replacescreen: 1463 6 noshow
+replacescreen: 1464 7 noshow
+replacescreen: 1465 8 noshow
+replacescreen: 1466 9 noshow
+replacescreen: 1467 10 noshow
+replacescreen: 1468 11 noshow
+replacescreen: 1469 12 noshow
+replacescreen: 1470 13 noshow
+replacescreen: 1472 14 noshow
+replacescreen: 983 15 noshow
+replacescreen: 984 16 noshow
+replacescreen: 985 17 noshow
+replacescreen: 986 18 noshow
+replacescreen: 1063 19 noshow
+replacescreen: 1064 20 noshow
+replacescreen: 1065 21 noshow
+replacescreen: 1066 22 noshow
+replacescreen: 1143 23 noshow
+replacescreen: 1144 24 noshow
+replacescreen: 1145 25 noshow
+replacescreen: 1146 26 noshow
+replacescreen: 1225 27 noshow
+
+installmessage:
+
+ `0Thanks for downloading this MeRCeR Programming LORD2
+ IGM. Visit the MeRCeR Programming web site at
+ HTTP://members.aol.com/yomercer/index.htm. Or for questions,
+ comments, or suggestions email MeRCeR at YOMeRCeR@AOL.COM
+
+ABOUT THIS IGM:
+
+ `2Description: A whole new city in LORD2 (REGISTERED) many
+ chances to get money, items, food, fish, and all kinds of stuff,
+ In this version (2.0), Buy a tower, go in caves, there is a
+ built-in quest for you to do, gambling, and much more!!!
+ Also replaces quest.ref to make deliveries available to this
+ new city! Have fun with this one.... Look for later releases!
+
+
+
+
+
diff --git a/xtrn/lord2/cnw/igm/sysop.igm b/xtrn/lord2/cnw/igm/sysop.igm
new file mode 100644
index 0000000000000000000000000000000000000000..fe33d9534d89f1099e572484438de4bd426795b5
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/sysop.igm
@@ -0,0 +1,54 @@
+
+ The SYSOPs CASTLE by Don Kinney V1.00
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : YES!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : YES!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (2)
+ Free? : Yes!
+
+
+ Description:
+
+ Super simple IGM for LORD2, to be used as a template.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM SYSOP.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, walk two screens above Stonebrook (your home) and find the
+ castle. look at the map, whick may be changed by simply editing
+ file called SYSOP.MAP. Talk to guards and make noise and see what
+ happens.
+ ....To teach people respect for the SYSOP:) ....or not:(
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0SYSOP CASTLE `2by `0Don Kinney
+replacescreen: 1198 1 noshow
+replacescreen: 1200 2 show
+replacescreen: 1199 3 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2 - To test go nothe of Stonebrook.
+ - You may edit the file SYSOP.MAP to givr users a more accurate
+ map of YOUR lord realm.
+ - If you enjoy or find bug, write me at 1:105/24.14 or for
+ faster responce d_kinney@juno.com or for fastest responce
+ DON KINNEY
+ PO BOX 161
+ BANKS, OREGON 97106-0161
+
diff --git a/xtrn/lord2/cnw/igm/talquiz.igm b/xtrn/lord2/cnw/igm/talquiz.igm
new file mode 100644
index 0000000000000000000000000000000000000000..ff78fdd7e5d3542baaafb61e33b2c9c7500dcc52
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/talquiz.igm
@@ -0,0 +1,49 @@
+
+ Scry Programming by Talaphid
+ (formerly Broadcast Scrying-Gem Co.)
+
+Lord 2 1.01a: backwards compatiblity unknown, probably waaay back
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Probably
+ Using any LORD2 vars? : Nope
+ Overwrites any original .refs? : Nope
+ Saves and loads its own vars independently? : Yup
+ Adds new .refs? : Yup (1- TALQUIZ.REF)
+ Replaces screens? : Yup (1- 1W of Stonebrook)
+ Adds screens? : Yup (1)
+ Free? : Sure
+
+
+ Description:
+
+ Some more filling for your LORD ][ game, and a little gameshow
+where players can get a little money (level based) for knowing their
+LORD trivia. If no other word escapes your mind from this document, think
+JEWEL. =)
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM TALQUIZ.IGM
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `%S`7cry `%P`7rogramming `3by `!T`3alaphid
+
+;1357
+replacescreen: 1437 1 show
+;1489
+replacescreen: 1399 2 noshow
+;1491
+replacescreen: 1401 3 noshow
+;1490
+replacescreen: 1400 4 noshow
+;1571
+replacescreen: 1481 5 noshow
+
+installmessage:
+
+ La-de-dah, you've got another place in LORD ][! Yay!
diff --git a/xtrn/lord2/cnw/igm/teaml.igm b/xtrn/lord2/cnw/igm/teaml.igm
new file mode 100644
index 0000000000000000000000000000000000000000..6306ce943debbe82add85d21e2b1177aa8a47f7a
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/teaml.igm
@@ -0,0 +1,59 @@
+
+ Cool TeamLord v1.30
+ Copyright (C) Coolhouse in 1997
+ -=-=-=-=-=-=-=-=-=-=-=-=-
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : Yes! (inn.ref)
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (10)
+ Replaces screens? : Yes! (8)
+ Adds screens? : YES!(2)
+ Free? : Yes!
+
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM TEAML.IGM
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `1Co`9ol `%Tea`9mLo`1rd. `0By. Lauri Aalto
+replacescreen: 1274 1 show
+replacescreen: 1221 2 noshow
+replacescreen: 320 3 show
+replacescreen: 80 4 noshow
+replacescreen: 1255 5 show
+replacescreen: 1175 6 noshow
+replacescreen: 1028 7 show
+replacescreen: 1342 8 noshow
+replacescreen: 55 9 show
+replacescreen: 1340 10 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+ `1Co`9ol`% Team`9LO`1RD v1.2
+ `2Playing LORD 2 trough again and again is bit boring? I think it is.
+ `2So I made this great IGM! It adds 5 TeamHouses. Now you can attack
+ `2other TeamHouses and steal their treasure, but beware the `4Dragons`2
+ `2And now in this version you can heal yourself free and write messages
+ `2to chatting wall.
+
+ `2Thanks for ideas:
+ `2All LORD 2 players in The Eden Project BBS
+
+ `2Contact us:
+ `2http://www.angelfire.com/co/coolhouse
+ `2coolhousebbs@hotmail.com
+ `2latex@death-star.com
+ `9Thanks for trying this IGM...hope you like it.
+
diff --git a/xtrn/lord2/cnw/igm/tempmap.igm b/xtrn/lord2/cnw/igm/tempmap.igm
new file mode 100644
index 0000000000000000000000000000000000000000..f30240cbd3f3a0823cbf8326f2583b84bd37d485
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/tempmap.igm
@@ -0,0 +1,12 @@
+igmname: Highton Thieves' Guild
+replacescreen: 1089 2 noshow
+replacescreen: 1088 2 noshow
+
+installmessage:
+
+`8The `%Thieves' Guild of Highton`8 is looking for recruits!
+
+This IGM adds a Thieves Guild as well as a house that you can
+enter and rob of jewels and other valuables. More houses and
+people to be robbed in later versions. It is situated just
+south west of the bridge on the Highton Continent.
diff --git a/xtrn/lord2/cnw/igm/tense.igm b/xtrn/lord2/cnw/igm/tense.igm
new file mode 100644
index 0000000000000000000000000000000000000000..cdd2b894d5aeaab5e55e5a13653eb5b44d1bea7a
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/tense.igm
@@ -0,0 +1,141 @@
+-House of the Incredible Tensions-
+ (c)opyright 1997 Chris Yeates
+ An IGM for LORD2 v1.00
+
+by Chris Yeates (Screwy343@aol.com)
+or at his BBS -- The Loose Screw (801)561-4780
+
+(The really bland looking credits above were also done by Chris <g> )
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (3)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (2)
+ Free? : Yes!
+
+
+ Description:
+ This is one big IGM. This is my third actually decent-enough-to-be
+ -released IGM for Lord II. I know a great many people who were disappointed
+ that there was no Red Dragon here in Lord II, so this is it. This creates
+ the Red Dragon Ending everyone was looking for.
+ This IGM is incredibly difficult (and it was incredibly difficult to
+ write). It is only for those who are very far in the game and/or have
+ completed the game (as good or evil).
+ If you can find your way through the House of the Incredible Tensions,
+ solving puzzles and what-not, then you will be taken completely unarmed to
+ the valley of the Red Dragons, where each enemy is a red dragon...plus, the
+ enemies are formed under much the same format that Turgon's or Barak's
+ training opponents are (to match the skill level of the user).
+ Lastly, if you can solve all the puzzles in the Valley of the Red
+ Dragon, you can fight the Mother of all Red Dragons, and find a new ending
+ to Lord II.
+
+ It also has frequent allusions to:
+ -The Legend of Zelda
+ -Star Wars
+ -Back to the Future
+ -Aliens
+ -The Loose Screw BBS <g>
+
+ I'm terrible at documentation. I urge you to try it. I promise you
+ won't be disappointed, though I also promise you it is REALLY difficult.
+ Don't give up. You will want to see the valley of the red dragon (I hope).
+
+ Please report all bugs to Screwy343@aol.com. Also contact me there if
+ you'd like either one of my other IGM's (MafiaVille and The Loose Screw
+ Resort). However, you can find both of these on the Offical Lord 2 IGM
+ page...at any rate. Enjoy!
+
+ Installation:
+ Unzip into your LORD2 dir and type:
+ IGM TENSE.IGM
+
+ Un-installation:
+ IGM TENSE.IGM (again)
+ and type "delete TENSE*.DAT"
+ and type "delete TENSE*.IDF"
+ and type "delete TENSE*.TXT"
+
+ (This IGM creates a shitload of files)
+
+ Resetting LORD2:
+ type "delete TENSE*.DAT"
+ type "delete TENSE*.IDF"
+ type "delete TENSE*.TXT"
+
+ Location:
+ Sort of near Greentree
+
+ By the way, this IGM creates the following files:
+
+ TENSEMN1.DAT
+ TENSEMN2.DAT
+ TENSEMN3.DAT
+ TENSEMN4.DAT
+ TENSEFIN.DAT
+ TENSEWMN.DAT
+ TENSEKEY.DAT
+ TENSEKB.DAT
+ TENSEQZ.DAT
+ TENSEQZ2.DAT
+ TENSEW1.DAT
+ TENSEW2.DAT
+ TENSEW3.DAT
+ TENSEW4.DAT
+ TENSEP1.DAT
+ TENSEP2.DAT
+ TENSEPK.DAT
+ TENSESCLE.DAT
+ TENSEWPN.DAT
+ TENSESEC1.DAT
+ TENSESEC2.DAT
+ TENSESEC3.DAT
+ TENSEQZ1.IDF
+ TENSEQZ2.IDF
+ TENSEDP.DAT
+
+ Again, I apologize for my crappy .DOC writing...I hope you like the IGM
+ better.
+
+ Please PLEASE mail me with anything -- compliments, criticisms, questions.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `%House of the Incredible Tensions `7by `8Chris Yeates
+replacescreen: 1357 1 show
+
+replacescreen: 895 2 noshow
+
+replacescreen: 815 3 noshow
+
+replacescreen: 735 4 noshow
+
+replacescreen: 736 5 noshow
+
+replacescreen: 816 6 noshow
+
+replacescreen: 896 7 noshow
+
+replacescreen: 897 8 noshow
+
+replacescreen: 817 9 noshow
+
+replacescreen: 737 10 noshow
+
+replacescreen: 738 11 noshow
+
+replacescreen: 818 12 noshow
+
+replacescreen: 898 13 noshow
+
+replacescreen: 899 14 noshow
+
+replacescreen: 819 15 noshow
+
+replacescreen: 739 16 noshow
diff --git a/xtrn/lord2/cnw/igm/theif.igm b/xtrn/lord2/cnw/igm/theif.igm
new file mode 100644
index 0000000000000000000000000000000000000000..3db59f74325f0e45d9dc5a00a450aefc1affbdae
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/theif.igm
@@ -0,0 +1,108 @@
+
+ The Bridge of Thieves by Tony M. Brown V3.10
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 3.10
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : Yes!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (2)
+ Adds screens? : Yes! (40+)
+ Free? : Yes!
+
+
+ Description:
+
+ All this is, is a bridge that connects the contenients of ArrisVille
+ and the Northlands. Has some pretty strong monsters.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM THEIF.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, go north of ArrisVille (or Sosen Village) to the ferry. You will
+ now see a bridge going out into the ocean.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `4The Bridge of Thieves `0by `4Tony M. Brown
+replacescreen: 203 1 show
+replacescreen: 204 2 show
+replacescreen: 205 3 show
+replacescreen: 206 4 show
+replacescreen: 207 5 show
+replacescreen: 208 6 show
+replacescreen: 209 7 show
+replacescreen: 210 8 show
+replacescreen: 211 9 show
+replacescreen: 212 10 show
+replacescreen: 213 11 show
+replacescreen: 214 12 show
+replacescreen: 215 13 show
+replacescreen: 1056 14 noshow
+replacescreen: 1057 15 noshow
+replacescreen: 976 16 noshow
+replacescreen: 977 17 noshow
+replacescreen: 896 18 noshow
+replacescreen: 816 19 noshow
+replacescreen: 736 20 noshow
+replacescreen: 737 21 noshow
+replacescreen: 738 21 noshow
+replacescreen: 739 21 noshow
+replacescreen: 740 21 noshow
+replacescreen: 741 21 noshow
+replacescreen: 742 21 noshow
+replacescreen: 743 21 noshow
+replacescreen: 744 21 noshow
+replacescreen: 745 21 noshow
+replacescreen: 746 21 noshow
+replacescreen: 747 21 noshow
+replacescreen: 748 21 noshow
+replacescreen: 749 21 noshow
+replacescreen: 750 21 noshow
+replacescreen: 751 21 noshow
+replacescreen: 752 21 noshow
+replacescreen: 753 21 noshow
+replacescreen: 754 21 noshow
+replacescreen: 755 21 noshow
+replacescreen: 756 21 noshow
+replacescreen: 757 21 noshow
+replacescreen: 758 21 noshow
+replacescreen: 759 21 noshow
+replacescreen: 760 21 noshow
+replacescreen: 761 21 noshow
+replacescreen: 762 21 noshow
+replacescreen: 763 21 noshow
+replacescreen: 764 21 noshow
+replacescreen: 765 21 noshow
+replacescreen: 766 21 noshow
+replacescreen: 767 21 noshow
+replacescreen: 768 21 noshow
+replacescreen: 769 21 noshow
+replacescreen: 770 21 noshow
+replacescreen: 771 21 noshow
+replacescreen: 772 21 noshow
+replacescreen: 773 21 noshow
+replacescreen: 774 22 noshow
+replacescreen: 694 23 noshow
+replacescreen: 614 24 noshow
+replacescreen: 615 25 noshow
+
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `0This IGM connects the lands of ArrisVille and the NorthLands by a bridge.
+ The bridge is located right by the ferry. Enjoy, and please do not modify
+ this, then claim it is yours.
+
+ `0A note to the guy who runs the IGM page, PUT MY CRACK HOUSE IGM UP!
+
+ NEW IN VERSION 3.10 : Missing scrren 767 fixed!!!
+
diff --git a/xtrn/lord2/cnw/igm/thief.igm b/xtrn/lord2/cnw/igm/thief.igm
new file mode 100644
index 0000000000000000000000000000000000000000..2ad49b63f1a660614ff578e039ef35ea0794c8a4
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/thief.igm
@@ -0,0 +1,17 @@
+igmname: Highton Thieves' Guild
+replacescreen: 1090 1 noshow
+replacescreen: 1089 2 noshow
+replacescreen: 1088 3 noshow
+replacescreen: 1087 4 noshow
+replacescreen: 1086 5 noshow
+replacescreen: 1085 6 noshow
+replacescreen: 1084 7 noshow
+
+installmessage:
+
+`8The `%Thieves' Guild of Highton`8 is looking for recruits!
+
+This IGM adds a Thieves Guild as well as a house that you can
+enter and rob of jewels and other valuables. More houses and
+people to be robbed in later versions. It is situated just
+south west of the bridge on the Highton Continent.
diff --git a/xtrn/lord2/cnw/igm/thod.igm b/xtrn/lord2/cnw/igm/thod.igm
new file mode 100644
index 0000000000000000000000000000000000000000..26d6087ad41fad4c81f87bad1eb6806213f2fa43
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/thod.igm
@@ -0,0 +1,40 @@
+
+ The House of Dreams by Tien Lung V2.00
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM THOD.IGM
+
+ To uninstall, do the same thing again.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `%The Ho`7use of D`8reams `%v`72`8.`700 `2by `0Tien Lung
+replacescreen: 1094 1 show
+
+replacescreen: 1257 2 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `%The Ho`7use of D`8reams `2is a house for character's to enter their dreams for
+ gifts or loss.
+ `2This `0IGM `2is located 1 screen east from the Flagcity Bridge.
+ By: Godlike Productions
diff --git a/xtrn/lord2/cnw/igm/tls1.igm b/xtrn/lord2/cnw/igm/tls1.igm
new file mode 100644
index 0000000000000000000000000000000000000000..1c069067e57fb0e804158297a38dc874b5f28723
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/tls1.igm
@@ -0,0 +1,75 @@
+ -The Loose Screw Resort-
+(c)opyright 1997 Chris Yeates
+ An IGM for LORD2 v7.00b
+
+by Chris Yeates (Screwy343@aol.com)
+or at his BBS -- The Loose Screw (801)561-4780
+
+(The really bland looking credits above were also done by Chris <g> )
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+
+ It uses so far 3 variables: `p90, `p95, `p91
+ For any additions hereafter I am going to
+ attempt to use the new @dataload & @datasave
+ But for the above variables, a manual
+ installation is required (which is described
+ in TLS1.DOC)
+
+ Overwrites any original .refs? : Yes!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (3)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (2)
+ Free? : Yes!
+
+
+ Description:
+ See TLS1.DOC -- but, even it stinks. By the time I was finished with
+ the REF, I felt little like explaining it...it takes a while to get
+ used to. Everything happens for a purpose...it improves your exp or
+ such...it is mainly built for those who are farther in the game (to
+ give THEM some sort of challenge) but a few surprises such as free
+ EXP points and *Violet* will keep even the in-experienced user
+ (hopefully) entertained.
+
+ Installation:
+ backup your ITEMS.ref and your ITEMS.dat files incase you want to
+ uninstall this IGM
+ Unzip into your LORD2 dir and type:
+ IGM TLS1.IGM
+ NOTE: Unzipping will overwrite ITEMS.ref and ITEMS.dat because there
+ is an added item. If this is a problem, unzip the file into its own
+ directory and, when copying over, do not overwrite these files but
+ manually add in the information described in TLS1.DOC...
+
+ To uninstall, do the same thing again and copy your backup ITEMS files
+ over the ones that came with the IGM.
+
+ Location:
+ On the same screen as Flag City...
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `#The Loose Screw Resort `5by `#Chris Yeates `5/ `#The Loose Screw BBS `5(`#801`5)`#561`5-`#4780
+replacescreen: 656 1 noshow
+
+replacescreen: 576 2 noshow
+
+replacescreen: 495 3 noshow
+
+;replacescreen: 497 4 noshow
+replacescreen: 496 4 noshow
+
+replacescreen: 655 5 noshow
+
+replacescreen: 657 6 noshow
+
+;replacescreen: 1092 7 show
+replacescreen: 662 7 show
+
+;replacescreen: 1012 8 show
+replacescreen: 663 8 show
diff --git a/xtrn/lord2/cnw/igm/tm.igm b/xtrn/lord2/cnw/igm/tm.igm
new file mode 100644
index 0000000000000000000000000000000000000000..c1a5fcdf74d57c8d0110817a293568826bf4fb5e
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/tm.igm
@@ -0,0 +1,47 @@
+
+ The OLD Man's Time Machine by Justin P. Murphy V1.14
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01a
+ Is registered version of LORD2 required to use? : YES!<sorry>
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : YES!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : YES! (1)
+ Free? : NO give me $$$ :)<of course its free :)>
+
+
+ Description:
+
+ Super simple IGM for LORD2, to be used as a template.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM TM.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, walk to the the tree Elf Highway and poof there you are
+ enter it and see if you can go back<or forward :) in time>
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Old Man's Time Machine v1.14 `2by `0Justin P. Murphy
+;1357
+replacescreen: 1431 1 show
+;1600
+replacescreen: 1511 2 noshow
+
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Well, it's my first atempt at an igm but what it does is its a place
+ which lets you gain or lose time in the game. Ah well don't complain.
+ This is ver 1.14 Send your bug Repots to justin@comnet.ca or call inner
+ Realm (613)838-3034 and give them to me on my bbs.
diff --git a/xtrn/lord2/cnw/igm/tmhsk.igm b/xtrn/lord2/cnw/igm/tmhsk.igm
new file mode 100644
index 0000000000000000000000000000000000000000..a10041281e26b49a6e417140141c4720403cad7f
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/tmhsk.igm
@@ -0,0 +1,46 @@
+
+ Frostglint Keep by Jonathon Welborn (The March Hare) V2.00
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : I'm sure I don't know!
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : I Think!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (2)
+ Free? : Yes!
+
+
+ Description:
+
+ A small and simple IGM for LORD2.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM TMHSK.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, goto screen 1439.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `%Frostglint Keep V0.30 `2by `%Jonathon Welborn (The March Hare)`2.
+replacescreen: 1428 1 show
+replacescreen: 1429 2 noshow
+replacescreen: 1430 3 noshow
+;replacescreen: 1439 1 show
+;replacescreen: 1458 2 noshow
+;replacescreen: 1588 3 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2It adds a small keep in the snowy pass. There is a Healer, Wizard, and
+ `2Inn. The keep is run by Koshi and they don't respond to well to evil
+ `2players.
diff --git a/xtrn/lord2/cnw/igm/tok.igm b/xtrn/lord2/cnw/igm/tok.igm
new file mode 100644
index 0000000000000000000000000000000000000000..33678f173baee7de9f24c1a02ac5d77be71028a6
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/tok.igm
@@ -0,0 +1,75 @@
+
+ The Tower of Krystal by Jared McQuade
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (3)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (11)
+ Free? : Yes!
+
+
+ Description:
+
+ A Tower with a quest. Simple rewards and even a comeback-every-day
+ blessing. Comes with tower basement, a healer, teleporters for those
+ who solve the quest, and a shop. Designed for higher characters...
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM TOK100.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, go two screens west and one screen south of ruin keep.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Tower of Krystal `2by `0Jared McQuade
+replacescreen: 1352 1 show
+
+replacescreen: 1264 2 show
+
+replacescreen: 909 3 noshow
+
+replacescreen: 829 4 noshow
+
+replacescreen: 828 5 noshow
+
+replacescreen: 830 6 noshow
+
+replacescreen: 749 7 noshow
+
+replacescreen: 669 8 noshow
+
+replacescreen: 668 9 noshow
+
+replacescreen: 589 10 noshow
+
+replacescreen: 590 11 noshow
+
+replacescreen: 670 12 noshow
+
+installmessage:
+
+`r0`c `2Well, I think I finally figured out this IGM thing! :) Once again, if
+ `2you like this IGM, because there's no real way to charge for, please send
+ `2money. This IGM took a week to finally finish and it was hard work. :)
+
+ `2Send donations to:
+ Jared McQuade
+ 1703A SW 309TH ST
+ Federal Way, WA 98023
+ USA :)
+
+ `2Like I said, it's not required, but it would be nice. Any kid of donation
+ `2would do really... even suggestions! :) You can send those via E-mail
+ `2much faster to Marik_TIBBS@Juno.com or DraxTheMad@AOL.com.
+
+ `2Enjoy it. My users sure do! :)
diff --git a/xtrn/lord2/cnw/igm/torin.igm b/xtrn/lord2/cnw/igm/torin.igm
new file mode 100644
index 0000000000000000000000000000000000000000..c766846baa74787d95773f60d891fe28b2c6e9ef
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/torin.igm
@@ -0,0 +1,48 @@
+
+ Torin Castle V1.3 by Dave (Jam) Henderson
+
+ AN IGM FOR LORD2 BETA 7+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ A new castle for LORD2 beta 7+ called Torin Castle.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM TORIN.IGM
+
+ To uninstall, do the same thing again.
+
+ The new castle is located south-west of GreenTree.
+ Email me at Davejam@netpage.net.au for comments and/or suggestions.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Torin Castle `2by `4D`@ave `#(`5Jam`#) `4H`@enderson
+replacescreen: 1202 1 noshow
+
+replacescreen: 1435 2 show
+
+replacescreen: 1351 3 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2This is my second `0IGM `2and includes a new castle called Torin
+ Castle. Email your comments and suggestions to davejam@netpage.net.au.
+ Thankyou for using my product.
+ `$Distribute freely, Enjoy!
diff --git a/xtrn/lord2/cnw/igm/tscrew.igm b/xtrn/lord2/cnw/igm/tscrew.igm
new file mode 100644
index 0000000000000000000000000000000000000000..5e0672c2cad32ccb52dc04bf4a0465d7dd93b7f9
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/tscrew.igm
@@ -0,0 +1,77 @@
+ -The Loose Screw Resort-
+(c)opyright 1997 Chris Yeates
+ An IGM for LORD2 v1.03
+
+by Chris Yeates (Screwy343@aol.com)
+or at his BBS -- The Loose Screw (801)561-4780
+
+(The really bland looking credits above were also done by Chris <g> )
+
+Check TSCREW.DOC for more (required) information on installation and
+the game itself
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : Yes!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (3)
+ Replaces screens? : Yes! (2)
+ Adds screens? : Yes! (6)
+ Free? : Yes!
+
+
+ Description:
+ See TSCREW.DOC -- but, even it stinks. By the time I was finished with
+ the REF, I felt little like explaining it...it takes a while to get
+ used to. Everything happens for a purpose...it improves your exp or
+ such...it is mainly built for those who are farther in the game (to
+ give THEM some sort of challenge) but a few surprises such as free
+ EXP points and *Violet* will keep even the in-experienced user
+ (hopefully) entertained.
+
+ Installation:
+ backup your ITEMS.ref and your ITEMS.dat files incase you want to
+ uninstall this IGM
+ Unzip into your LORD2 dir and type:
+ IGM TSCREW.IGM
+ NOTE: Unzipping will overwrite ITEMS.ref and ITEMS.dat because there
+ is an added item. If this is a problem, unzip the file into its own
+ directory and, when copying over, do not overwrite these files but
+ manually add in the information described in TLS1.DOC...
+
+ To uninstall, do the same thing again and copy your backup ITEMS files
+ over the ones that came with the IGM.
+
+ And when resetting LORD2, do the following:
+ "delete TLS*.DAT"
+ "delete TLS*.IDF"
+ "delete TLS*.TXT"
+
+ Location:
+ On the same screen as Flag City...(on the outside) ;)
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `#The Loose Screw Resort `5by `#Chris Yeates `5/ `#The Loose Screw BBS `5(`#801`5)`#561`5-`#4780
+replacescreen: 656 1 noshow
+
+replacescreen: 576 2 noshow
+
+replacescreen: 495 3 noshow
+
+;replacescreen: 497 4 noshow
+replacescreen: 494 4 noshow
+
+replacescreen: 655 5 noshow
+
+replacescreen: 657 6 noshow
+
+;replacescreen: 1092 7 show
+replacescreen: 663 7 show
+
+;replacescreen: 1012 8 show
+replacescreen: 664 8 show
+
+replacescreen: 496 9 noshow
diff --git a/xtrn/lord2/cnw/igm/tst.igm b/xtrn/lord2/cnw/igm/tst.igm
new file mode 100644
index 0000000000000000000000000000000000000000..958cd524db05e678e7ae23af3d71afb3478fb0f5
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/tst.igm
@@ -0,0 +1,40 @@
+
+ Time Stands Still v2.01 by: Tien Lung
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes! (1)
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (3)
+ Free? : Yes!
+
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM TST.IGM
+
+ To uninstall, do the same thing again.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Time Stands Still `2by `0Tien Lung
+;replacescreen: 1593 1 show
+replacescreen: 1483 1 show
+replacescreen: 1525 2 noshow
+replacescreen: 1526 3 noshow
+replacescreen: 1527 4 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Time Stands Still is located in the Greentree Graveyard. It takes
+ characters back to the original Greentree from LORD.
diff --git a/xtrn/lord2/cnw/igm/uga.igm b/xtrn/lord2/cnw/igm/uga.igm
new file mode 100644
index 0000000000000000000000000000000000000000..2aa43bd91b4fda6603cebfa236a67c43793c12d4
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/uga.igm
@@ -0,0 +1,30 @@
+
+ UNIVERSITY OF GREATER ARRISVILLE by MAMOOSOFT PROGRAMMING
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01a
+ Is registered version of LORD2 required to use? : Yes?
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (4)
+ Free? : Yes!
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0University of Greater Arrisville `2from `0 Mamoosoft Programming
+
+replacescreen: 522 1 show
+replacescreen: 1577 2 noshow
+replacescreen: 1578 3 noshow
+replacescreen: 1579 4 noshow
+replacescreen: 523 5 show
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2University of Greater Arrisville adds an institute of higher learning to
+ the Greater Arrisville area.
diff --git a/xtrn/lord2/cnw/igm/vdhut.igm b/xtrn/lord2/cnw/igm/vdhut.igm
new file mode 100644
index 0000000000000000000000000000000000000000..534c094279f952b30803d765b1ddba7a63e27bd9
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/vdhut.igm
@@ -0,0 +1,48 @@
+
+ The VooDoo Temple v2.0 � By VooDoo KnighT & �s�n�m�
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : v1.0 (Not BETA)
+ Is registered version of LORD2 required to use? : I think
+ Using any LORD2 vars? : Yep
+ Overwrites any original .refs? : Nope
+ Saves and loads its own vars independently? : I think
+ Adds new .refs? : Yep
+ Replaces screens? : Yep
+ Adds screens? : Yep
+ Free? : No! It costs 150$ to
+ Register! Send 150$ to:
+ It's A Joke Software
+ 123 Sesame Street
+ Somewhere, HE
+ HAH AHA
+ ... I'm just kidding!!!
+
+ Description:
+ Super simple IGM for LORD2, to be used as a template.
+ To install, unzip into your LORD2 dir and run:
+
+ INSTALL.EXE
+
+ To uninstall, either run REMOVE.BAT or type IGM VDHUT
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0The VooDoo Temple `2by `7VooDoo KnighT `2& `9�s�n�m�
+replacescreen: 1276 1 show
+
+replacescreen: 1062 2 show
+
+replacescreen: 1063 3 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Here's a pretty fun IGM that VooDoo KnighT & �s�n�m� put together!
+ `2Get the NEWEST, UPDATED version off the `0OFFICIAL KNiGHTSoFT Page`2!
+ `0http://www.angelfire.com/ks/knightsoft/index.html
+
+ `2Reach us at my BBS : `0MisTy MounTainS BBS (514)461-3460
+ `2VooDoo KnighT : `0knightsoft@hotmail.com
diff --git a/xtrn/lord2/cnw/igm/violet.igm b/xtrn/lord2/cnw/igm/violet.igm
new file mode 100644
index 0000000000000000000000000000000000000000..79c302ce13c82dc9bfdf3defe99f4985c75c9129
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/violet.igm
@@ -0,0 +1,47 @@
+
+ Flirt with Violet/Seth Able By Michael Bujold Ver. 1.0
+ (C)1997 FPSoft, Ltd.
+
+ AN IGM FOR LORD2
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Nope
+ Using any LORD2 vars? : Yes
+ Overwrites any original .refs? : No
+ Saves and loads its own vars independently? : No
+ Adds new .refs? : Yes (1)
+ Replaces screens? : Yes (1)
+ Adds screens? : No
+ Free? : Yes, unless you have
+ girls on your BBS.
+
+
+ Description:
+
+ An IGM that adds Violet and Seth Able flirting options in the Red Dragon
+ Inn
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM VIOLET.IGM
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Flirt with `1Seth Able`0/`5Violet `2by `@Floating Point `9Software
+replacescreen: 79 1 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Allows your players to flirt with `1Seth Able`2/`5Violet,`2 whatever their sex.
+
+ +-----------+
+ |FPSoft I | The FPSoft IGM Seal Indicates that this IGM is fully
+ | G | compatible with all other FPSoft IGMs.
+ | M |
+ +-----------+
+
diff --git a/xtrn/lord2/cnw/igm/voyage.igm b/xtrn/lord2/cnw/igm/voyage.igm
new file mode 100644
index 0000000000000000000000000000000000000000..a635c90998c707b7d77339e364a003eaebe57352
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/voyage.igm
@@ -0,0 +1,44 @@
+
+ The Voyage V1.10 : Spencer Vickers
+
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes!
+
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM VOYAGE.IGM
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `!THE VOYAGE IGM V1.10 : `%By Spencer Vickers
+
+replacescreen: 1172 1 show
+
+replacescreen: 1171 2 show
+
+replacescreen: 1169 3 noshow
+
+installmessage:
+
+`! You have to fight very powerful monsters in this IGM to comlete the
+ Voyage...Pretty hard to do...With a maze and a shop outside the maze
+ near Flag City...
+
+ `%ENJOY!
+
+ Spence
diff --git a/xtrn/lord2/cnw/igm/wally.igm b/xtrn/lord2/cnw/igm/wally.igm
new file mode 100644
index 0000000000000000000000000000000000000000..55f79d46dd96d923d167e20fb6a8621d90735efd
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/wally.igm
@@ -0,0 +1,28 @@
+
+ WISE WALLY'S PUBLIC LIBRARY by MAMOOSOFT PROGRAMMING
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01a
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes!
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Wise Wally's Public Library `2from `0 Mamoosoft Programming
+
+;replacescreen: 1196 1 show
+replacescreen: 1199 1 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Wise Wally's Public Library will allow users to increase certain stats
+by spending time in study.
diff --git a/xtrn/lord2/cnw/igm/wampa.igm b/xtrn/lord2/cnw/igm/wampa.igm
new file mode 100644
index 0000000000000000000000000000000000000000..de0d0a30a859c2f7dff5a969344c198aea6bce88
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/wampa.igm
@@ -0,0 +1,43 @@
+
+ Wampa's Cave 1.00 by James C. Jones, The Shadow BBS(850) 864-4292
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Yes!
+
+
+ Description:
+
+ Use the force Luke to kill the evil Wampa Ice Creature and enjoy in the
+ benefits, once a day.
+
+ IGM WAMPA.IGM
+
+ To uninstall, do the same thing again.
+
+ Find it in snowy pass. There is another cave added there on the west side.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `!Wampa's Cave `2by `0James Jones The Shadow BBS 850-864-4292
+
+replacescreen: 1418 1 noshow
+
+replacescreen: 1499 2 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Use the force Luke to kill the evil Wampa Ice Creature and enjoy in the
+ `2benefits, once a day.
+ `! Made by James C. Jones, The Shadow BBS 850-864-4292
+
diff --git a/xtrn/lord2/cnw/igm/wedchap.igm b/xtrn/lord2/cnw/igm/wedchap.igm
new file mode 100644
index 0000000000000000000000000000000000000000..dcdc043bfd5384d55926b5dd8101563daba3d6af
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/wedchap.igm
@@ -0,0 +1,56 @@
+
+ The Wedding Chapel by Chet Rhodes v1.0
+
+ AN IGM FOR LORD2 V1.00+
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (3)
+ Adds screens? : Yes! (2)
+ Free? : Yes!
+
+
+ Description:
+
+ Another IGM from Chet Rhodes. Sysop of Hawkmoon's Realm.
+
+ TO INSTALL
+ unzip into your LORD2 dir and type:
+
+ IGM WEDCHAP.IGM
+
+ To test you will need to head to Cloudy City.
+
+ TO UNINSTALL
+ Do the same thing again.
+
+ TO UPGRADE FROM A PREVIOUS VERSION
+ N/A
+
+ chet.rhodes@juno.com
+ Fido 1:151/131
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0The Wedding Chapel `2by `0Chet Rhodes (aka Hawkmoon)
+replacescreen: 74 1 noshow
+
+replacescreen: 76 2 noshow
+
+replacescreen: 154 3 noshow
+
+replacescreen: 1036 4 show
+
+replacescreen: 1290 5 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Want to show that special someone that you really care? Stop by
+ The Wedding Chapel. But be careful. Those clouds can be slippery.
diff --git a/xtrn/lord2/cnw/igm/wgrave.igm b/xtrn/lord2/cnw/igm/wgrave.igm
new file mode 100644
index 0000000000000000000000000000000000000000..64b592c509d5a8c9dce8f376ca4f4a3b1f934ff7
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/wgrave.igm
@@ -0,0 +1,94 @@
+ -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ The Warrior's Graveyard by Lloyd Hannesson V 1.00
+ Copyright 1997 Tech'n Software
+ -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ An IGM for LordII ver 1.01
+
+Quick Info:
+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (1)
+ Free? : Duh! :)
+
+
+Description:
+
+ The Warrior's Graveyard 1.0
+ -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+ This is my second IGM for LORD2, hopefully you people will like it as
+ much as you liked Felicity's Temple. This IGM will basicly let you revisit
+ the Warrior's Graveyard from Lord 1. The same characters are there to talk
+ to, and interact with. There are a few secrets, but they aren't fully
+ implemented yet.
+
+ Features Include:
+ - Grave Robbing
+ - A popular option from Warrior's Graveyard from Lord 1 makes another
+ appearance. Same as before, it can be good or bad :)
+ - The Old Hut
+ - Potions from the hag
+ - Flirt with the Hag (if yer male)
+ - gossip
+ - The Lemon-Aid stand
+ - Talk to the Juice Seller
+ - Buy some Aid
+ - Comment sheet!
+ - The Grave Digger
+ - Gossip with him!
+
+ Features To be added in the next version:
+ - More secrets (2 ghosts)
+ - Flirting for the ladies (sorry I didn't have time to put this in for
+ the ladies :(
+ - another section that'll remain secret for now :)
+
+ To Install:
+
+ Type: IGM WGRAVE.IGM
+
+ To Uninstall:
+
+ do the same thing again.
+
+ To Test:
+
+ Go to Stonebrook, you'll see it :)
+
+ To Contact Me:
+
+ My BBS: The Outworld BBS (204) 334-0217 2400-33600 baud
+
+
+ Mail Me: Lloyd Hannesson
+ 3015 Sinclair St.
+ Winnipeg, Manitoba
+ R2V 4K9, CANADA
+
+ Email: support@techn.com
+ Web: http://www.techn.com/
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0The Warrior's Graveyard `2by `0Lloyd Hannesson
+replacescreen: 1198 1 show
+
+replacescreen: 572 2 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2The Warrior's Graveyard! Visit this mysterious Graveyard, and try to
+ find out all the secrets that it holds! Talk to the Grave digger, and the
+ Old Hag. Or cool off at the Lemon-Aid stand.
+
+ Location: Same screen as Stonebrook
+
+ `%Copyright 1997 Tech'n Software and Lloyd Hannesson
+ `%http://www.techn.com/ support@techn.com
diff --git a/xtrn/lord2/cnw/igm/wishwel2.igm b/xtrn/lord2/cnw/igm/wishwel2.igm
new file mode 100644
index 0000000000000000000000000000000000000000..47f619f1e8bc1387e6bc94b55c8c885efc8e1b0c
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/wishwel2.igm
@@ -0,0 +1,37 @@
+
+ The Wishing Well v1.2 by David Loranger
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes!
+
+
+ Description:
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM WISHWELL.IGM
+
+ To uninstall, do the same thing again.
+
+ To test, go north-east from Sosen Village, in the BigWood Forest.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `%The Wishing Well `2v1.2 by `0David Loranger `7[`8FieldSoft`7]
+replacescreen: 298 1 show
+
+installmessage:
+
+ `0A single well, in a secluded forest... It is tempting to go see it. Maybe
+ drop a gold or a thousand! Is it just a legend? What lies at the bottom of
+ the well that would grand such wishes?
diff --git a/xtrn/lord2/cnw/igm/wizard20.igm b/xtrn/lord2/cnw/igm/wizard20.igm
new file mode 100644
index 0000000000000000000000000000000000000000..34ceace89bd18eb231117ba82ce7861cd9638ebf
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/wizard20.igm
@@ -0,0 +1,47 @@
+
+ Wizard's Tower 2.00 by James C. Jones, The Shadow BBS(850) 864-4292
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : No!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (2)
+ Adds screens? : Yes! (2)
+ Free? : Yes!
+
+
+ Description:
+
+ Add everything you could want to the Wizard's Tower in LORD2
+ Disco, Travel Agent, and, a bed.
+
+ IGM WIZARD20.IGM
+
+ To uninstall, do the same thing again.
+
+ /////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `!Wizard's Tower 2.0 `2by `0James Jones The Shadow BBS 850-864-4292
+
+;replacescreen: 1175 1 noshow
+replacescreen: 1179 1 noshow
+
+replacescreen: 1176 2 noshow
+
+replacescreen: 1177 3 noshow
+
+replacescreen: 1178 4 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Add everything you could want to the Wizard's Tower in LORD2
+ `2Disco, Travel Agent, and, a bed.
+
+ `! Made by James C. Jones, The Shadow BBS 850-864-4292
+
diff --git a/xtrn/lord2/cnw/igm/wizcast.igm b/xtrn/lord2/cnw/igm/wizcast.igm
new file mode 100644
index 0000000000000000000000000000000000000000..9657dc5a243c0c8fd58873d92cadfea8e06fef83
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/wizcast.igm
@@ -0,0 +1,48 @@
+
+ The Wizard's Castle by Bobby Queen & Robby Dittmann V1.3
+
+ AN IGM FOR LORD2
+
+ QUICK INFO:
+
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (2)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (2)
+ Free? : Yes!
+
+
+ Description:
+
+ More Complex IGM for LORD2.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM WIZCAST.IGM
+
+ To uninstall, do the same thing again.
+
+ To enter, walk to the screen directly under Stonebrook and to the right
+ you will see a new building - enter it and you're in The Wizard's Castle!
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Wizard's Castle `2by `0Bobby Queen & Robby Dittmann
+;1440
+replacescreen: 1198 1 show
+
+replacescreen: 1521 2 noshow
+
+replacescreen: 1522 3 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `2Well, this IGM adds a Castle that you can sleep in, in the Unregistered
+ version of `0LORD2`2 without screwing anything up. This Castle even has
+ a maze on the top floor for you to traverse and try to find the treasure.
diff --git a/xtrn/lord2/cnw/igm/woodland.igm b/xtrn/lord2/cnw/igm/woodland.igm
new file mode 100644
index 0000000000000000000000000000000000000000..fbf6a337d5207825c074d6185cec416a16c85400
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/woodland.igm
@@ -0,0 +1,46 @@
+
+ Woodland Underground by Syntech Software v1.00a
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.00+
+ Is registered version of LORD2 required to use? : Yes!
+ Using any LORD2 vars? : Yes!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : Yes! (4)
+ Free? : Yes!
+
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM WOODLAND.IGM
+
+ To uninstall, do the same thing again.
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Woodland Underground `2by `0Valtane `8(valtane@geocities.com)
+
+rem replacescreen: 1114 1 show
+
+replacescreen: 1596 2 noshow
+
+replacescreen: 1597 3 noshow
+
+replacescreen: 1598 4 noshow
+
+replacescreen: 1599 5 noshow
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ `0This IGM adds a new underground town with a bar, general store, museum,
+ `0bank, and sheriff's office.
+
+ `2To get to the entrance of this IGM, walk down the path towards the
+ elderly nudist, or go west two screens from PortTown, and follow the
+ path south.
diff --git a/xtrn/lord2/cnw/igm/xena.igm b/xtrn/lord2/cnw/igm/xena.igm
new file mode 100644
index 0000000000000000000000000000000000000000..e2dfa6c0cdd6fa7adf2b7607c394bf92e0ea91c1
--- /dev/null
+++ b/xtrn/lord2/cnw/igm/xena.igm
@@ -0,0 +1,44 @@
+
+ Xena's House Version 2.00 by Quineska Software
+
+ QUICK INFO:
+
+ Version of LORD2 required to use it : 1.01a
+ Is registered version of LORD2 required to use? : No!
+ Using any LORD2 vars? : No!
+ Overwrites any original .refs? : No!
+ Saves and loads its own vars independently? : Yes!
+ Adds new .refs? : Yes! (1)
+ Replaces screens? : Yes! (1)
+ Adds screens? : No!
+ Free? : Yes!
+ (Registration required)
+
+Xena's House replaces the South Greentree Field Map (Block: 1435) and adds
+XENA.REC.
+
+ To install, unzip into your LORD2 dir and type:
+
+ IGM XENA
+
+ To uninstall, do the same thing again.
+
+ If installing over a previous version, uninstall the existing one first
+ otherwise it'll stuff up.
+
+
+/////////////////////////// BELOW IS FOR USE BY IGM.EXE ///////////////////
+
+igmname: `0Xena's House `2by `0Quineska Software
+replacescreen: 1435 1 show
+
+installmessage:
+
+ `%ABOUT THIS IGM:
+
+ [34mYou enter Xena's House in the LORD II World and she gives you more
+ Dodge, Muscle, Experience and More Hitpoints at a reasonable price! Players
+ can only use it once a day unless LORD2 /MAINT is called locally.
+ Please read XENA.TXT.
+ Have fun!
+
diff --git a/xtrn/lord2/cnw/inn.ref b/xtrn/lord2/cnw/inn.ref
new file mode 100644
index 0000000000000000000000000000000000000000..182daf74098d9f80e8a22d3a20199ae0b74b05d9
--- /dev/null
+++ b/xtrn/lord2/cnw/inn.ref
@@ -0,0 +1,2045 @@
+; Script file INN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:13 2001
+
+@DECLARE sign 000001095
+@DECLARE sign2 000001198
+@DECLARE violetsroom 000001268
+@DECLARE violet 000001363
+@DECLARE seth 000001503
+@DECLARE edhome 000001646
+@DECLARE laura 000001819
+@DECLARE edhouse 000001987
+@DECLARE fall 000002214
+@DECLARE chest2 000002500
+@DECLARE castle 000002726
+@DECLARE ferrynot 000002827
+@DECLARE bartender 000002945
+@DECLARE ferry 000007197
+@DECLARE cabin 000008105
+@DECLARE elle 000012111
+@DECLARE findrapest 000013610
+@DECLARE elletalk 000016328
+@DECLARE madoor 000017498
+@DECLARE manb 000018198
+@DECLARE maback 000018287
+@DECLARE startg 000018390
+@DECLARE potion1 000019565
+@DECLARE clean 000025219
+@DECLARE girl 000025323
+@DECLARE girl2 000025516
+@DECLARE door 000025748
+@DECLARE ma 000025797
+@DECLARE startma1 000025918
+@DECLARE startma 000033076
+@DECLARE mother 000037528
+@DECLARE chatwall 000038450
+@DECLARE finishoff 000039362
+@DECLARE potiond 000040118
+@DECLARE done 000041793
+@DECLARE nothing 000041849
+@NOCHECK
+; End of .REF index
+
+@#sign
+@do moveback
+@do saybar
+`%Arrisville - South Loki's Inn - West
+
+@#sign2
+@do moveback
+@do saybar
+`%Ferry Crossing services
+
+@#violetsroom
+@do moveback
+@do saybar
+`@Thats where Violet does, well you know.
+@closescript
+
+@#violet
+@do moveback
+@do `p70 is 1
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`%Violet: `#I'm Violet.
+@end
+
+@#seth
+@do moveback
+@do `p70 is 2
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`%Seth: `#I'm Seth Able.
+@end
+
+@#edhome
+@do moveback
+@do `p70 is 109
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`%Edward: `2Hello again, `n!`2 Nice of you to visit!
+@end
+
+@#laura
+@do moveback
+@do `p70 is 15
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`%Laura: `#Greetings! Do you like my new room?
+@end
+
+@#edhouse
+;does edward live here?
+@if bitcheck `t12 5 0 then do
+ @begin
+ @do moveback
+ @do saybar
+Hmm... no answer.
+ @closescript
+ @end
+
+@do x is 39
+@do y is 12
+@do map is 160
+@loadmap &map
+@drawmap
+@update
+
+@#fall
+@show
+`r0`c `r1A falling out `r0
+
+`2 You step back - your foot finds nothing but air.
+
+`k You fall.. and fall. After what seems like hours pass you finally hit
+ bottom.
+
+`k Your hands feels warm and sticky. You stop breathing.
+
+`k
+@run die in gametxt.ref
+
+@#chest2
+;secret
+@do moveback
+@if bitcheck `t13 2 1 then do
+ @begin
+ @do saybar
+There is nothing on the table.
+ @closescript
+ @end
+
+@bitset `t13 2 1
+@do saybar
+`%You find two Silver Potions!
+@do `i54 + 2
+
+
+@#castle
+;castle
+@do moveback
+@do saybar
+`0Sign on door: `2Will be for sale in next beta.
+
+
+@#ferrynot
+@do moveback
+@do saybar
+Ferry closed. Will be active in next version. (it will cost $1000 I think)
+
+@#bartender
+@do moveback
+@if `p09 < 2 then do
+ @begin
+ @do saybar
+`0Bartender: `2Get outta my face kid, I've never heard of you!
+ @closescript
+ @end
+@do `v01 is 1
+@show
+`r0`c `r1 Talking to the bartender `r0
+
+ `0"What do ya want, punk?"
+
+@do write
+`x`x
+@choice
+What day is it?
+Conduct business with the bartender
+Trade in gems
+Ask about Teams
+Leave
+@if response is 1 then do
+@begin
+@do `s01 is `v12
+@do `s02 is `v11
+@DO `p20 IS LENGTH `s01
+@if `p20 is 1 then do
+ @begin
+ @do frontpad `s01 2
+ @do pad `s01 3
+ @end
+@if `p20 is 2 then do
+ @begin
+ @do frontpad `s01 3
+ @end
+
+@DO `p20 IS LENGTH `s02
+@if `p20 is 1 then do
+ @begin
+ @do frontpad `s02 2
+ @do pad `s02 3
+ @end
+@if `p20 is 2 then do
+ @begin
+ @do frontpad `s02 3
+ @end
+@show
+`\
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+`r0 `% `r6`8___`r0`% `r6`8___`r0`%
+`r0 `%Today is day `r6`%`s02`r0`% of the year `r6`%`s01`r0`%
+
+
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@key bottom
+@end
+@if response is 4 then do
+@begin
+@show
+`\`\ `2What about the teams do you want to know?
+@do move 35 15
+@do `v01 is 1
+@choice
+STATS
+RELATIONS
+@if responce is 2 then do
+ @begin
+ @do `s09 is bartender
+ @do `s10 is inn.ref
+ @do `p29 is 0
+ @routine STARTREL in TLHOUSE.REF
+ @end
+@if responce is 1 then do
+ @begin
+@show
+`\`\`0"So you wanna hear about Teams?"
+`k
+@do `s01 is `8-
+@do `s02 is `8-
+@do `s03 is `8-
+@do `s04 is `8-
+@do `s05 is `8-
+@do `s10 is `s05
+@do `p21 is 0
+@do `p22 is 0
+@do `p23 is 0
+@do `p24 is 0
+@do `p25 is 0
+@do `p26 is 0
+@do `p27 is 0
+@do `p28 is 0
+@do `p29 is 0
+@do `p30 is 0
+@readfile tltname1.dat
+`s01
+@readfile tlhouse1.dat
+`p26
+@readfile tltname2.dat
+`s02
+@readfile tlhouse2.dat
+`p27
+@readfile tltname3.dat
+`s03
+@readfile tlhouse3.dat
+`p28
+@readfile tltname4.dat
+`s04
+@readfile tlhouse4.dat
+`p29
+@readfile tltname5.dat
+`s10
+@readfile tlhouse5.dat
+`p30
+@readfile tltres1.dat
+`p21
+@readfile tltres2.dat
+`p22
+@readfile tltres3.dat
+`p23
+@readfile tltres4.dat
+`p24
+@readfile tltres5.dat
+`p25
+@CLEAR SCREEN
+@do move 7 3
+@do write
+`r1 Cool TeamLord `r0
+@do move 5 5
+@do write
+`2-Team-
+@do move 30 5
+@do write
+`2-Gold-
+@do move 50 5
+@do write
+`2-Leader-
+@do move 5 6
+@do write
+`$`s01
+@do move 30 6
+@do write
+`$$`p21
+@do move 5 7
+@do write
+`s02
+@do move 30 7
+@do write
+`$$`p22
+@do move 5 8
+@do write
+`s03
+@do move 30 8
+@do write
+`$$`p23
+@do move 5 9
+@do write
+`s04
+@do move 30 9
+@do write
+`$$`p24
+@do move 5 10
+@do write
+`s10
+@do move 30 10
+@do write
+`$$`p25
+@do move 50 6
+@do `s08 is getname `p26
+@do pad `s08 28
+@do write
+`#`s08
+@do move 50 7
+@do `s08 is getname `p27
+@do pad `s08 28
+@do write
+`#`s08
+@do move 50 8
+@do `s08 is getname `p28
+@do pad `s08 28
+@do write
+`#`s08
+@do move 50 9
+@do `s08 is getname `p29
+@do pad `s08 28
+@do write
+`#`s08
+@do move 50 10
+@do `s08 is getname `p30
+@do pad `s08 28
+@do write
+`#`s08
+@do move 1 12
+@key
+@end
+@do goto bartender
+@end
+@if responce is 2 then do
+ @begin
+ @do `p20 is 1
+ @run getquest in quest.ref
+ @end
+@if response is 3 then do
+@begin
+;3 gems for `i54 Silver potion, 3 gems for `i53 Gold, `i52 red.
+ @if `p19 < 3 then do
+ @begin
+ @show
+`\`\ `0"Hey, you need at least three gems to get a potion!"
+`\`k
+ @do goto bartender
+ @end
+ @do `v01 is 1
+ @show
+`\`\ `0"Okay, what kind a potion you want?"`2
+
+ @do write
+ `x`x
+ @choice
+Silver Potion
+Gold Potion
+Red Potion
+ @if response is 1 then do
+ @begin
+ @do `p19 - 3
+ @do `i54 + 1
+ @show
+`\`\ `0"Allright, there you go"`2
+`\`k
+ @end
+ @if response is 2 then do
+ @begin
+ @do `p19 - 3
+ @do `i53 + 1
+ @show
+`\`\ `0"Allright, there you go"`2
+`\`k
+ @end
+ @if response is 3 then do
+ @begin
+ @do `p19 - 3
+ @do `i52 + 1
+ @show
+`\`\ `0"Allright, there you go"`2
+`\`k
+ @end
+ @end
+@drawmap
+@update
+
+@#FERRY
+;Ferrys on the Northern Continents
+@offmap
+@DO `v01 is 1
+@SHOW
+`r0`c `r1 `%Looks like a Ferry! `r0
+
+ `2A man at the counter greets you `0"Hello there, like to travel across the
+ ocean? It'll cost you 1000 gold."
+
+@DO WRITE
+`x`x
+@CHOICE
+>&Money 999 Take the Ferry
+Leave
+@IF RESPONSE IS 1 THEN DO
+@Begin
+@do money - 1000
+@Show
+`\`\ `$"Let's take a trip,"`2 you say and pay the man.
+`\`k
+ @if map is 215 then do
+ @begin
+ @loadmap 203
+ @do map is 203
+ @do x is 47
+ @do y is 13
+ @drawmap
+ @update
+ @DO SAYBAR
+`2Looks like a new land ...
+ @closescript
+ @end
+ @loadmap 215
+ @do map is 215
+ @do x is 49
+ @do y is 10
+ @drawmap
+ @update
+ @closescript
+@End
+@IF RESPONSE IS 2 THEN DO
+@Begin
+@Show
+`\`\ `2Maybe later...
+`\`k
+@DO MOVEBACK
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+
+
+@#CABIN
+@do `v01 is 1
+@do moveback
+
+
+@if bitcheck `t12 5 1 then do
+ @begin
+ @do saybar
+No one is here. Oh yeah, they moved to Greentree, remember?
+ @closescript
+ @end
+
+
+@if `p71 is 109 then do
+ @begin
+ @do saybar
+`0Uncle Edward: `2What are we doing back here?
+ @do quebar
+`0Laura: `#Take us to Greentree, `n`#!
+ @closescript
+ @end
+
+@if bitcheck `t12 4 1 then do
+ @begin
+ @show
+`r0`c `r1 THE CABIN `r0
+
+`2 A young woman opens the door. `#"Have you changed your mind?"
+
+ @do write
+`x`x
+ @choice
+Yes, I'll take you and your uncle to Greentree, ok?
+No - just came by to tell you no again. Haw!
+ @if response is 2 then do
+ @begin
+ @show
+`\`\ `2Laura is not amused. She slams the door in your face!
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @do `p71 is 109
+ @show
+`\`\ `#"Wonderful! I'll go tell Edward!"
+
+`k `%TWO HOURS LATER, YOU LEAVE - WITH LAURA AND EDWARD WITH YOU!
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+@if `i41 < 1 then do
+ @begin
+ @show
+`r0`c `r1 THE CABIN `r0
+
+`2 A young woman opens the door. `#"Can I help you?"
+
+ @do write
+`x`x
+ @choice
+Hi um... Can I be your friend?
+I may be a stranger, but let me in!
+You don't know me, but I've been watching you for a long time...
+ @show
+`\`\ `#"S&sir - neither my uncle nor I know you. Please leave."
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 THE CABIN `r0
+
+`2 A young woman opens the door. `#"Can I help you?"
+
+ @do write
+`x`x
+ @choice
+I have a letter for someone named Edward from his sister?
+@
+@bitset `t12 4 1
+@do `i41 is 0 ;take away letter
+@show
+`\`\ `#"Yes! I am his niece, Laura. Yes my uncle would want to see you,
+ please come in. But first, I must warn you..."
+
+`k `$"Warn me? About what?" `2you ask.
+
+`# "My uncle has a slight disorder... I never mention it - he would be
+ positively crushed if we were to say anything about it... So.. I would
+ be debted to you forever if you don't."
+`\`k`c `r1 `%Meeting Uncle Edward `r0
+
+ `2Uncle Edward turns out to be a large jovial man with a round red face.
+
+ He shakes your hand enthusiastically.
+
+`k `0"Nice to meeeheat you, `n`0!"
+
+`k `4YOU ARE KNOCKED OVER BY THE `bWORST BREATH`4 YOU HAVE EVER SMELLED!
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+`%Nice to meet you too, Uncle Edward!
+`%You have `4REALLY `%bad breath, did you know that?!
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2He smiles and retires to a back room to read the letter.
+
+ `2Laura winks at you!
+
+ `%YOU GET ONE CHARM AND ALIGNMENT!
+ @do `p08 + 1
+ @do `p07 + 1
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You see a tear tricle down Uncle Edward's cheek. He quickly wipes
+ it off. `0"I must read this in private... I'll be back in a moment."
+
+`k `2Laura slaps you.
+
+ `4 YOU LOSE ONE CHARM AND ALIGNMENT!
+ @if `p08 > 0 then `p08 - 1
+ @do `p07 - 1
+ @end
+
+ @show
+`\`k`c `r1 `%A CHANGE OF PLANS `r0
+
+`2 Edward appears from a back room.
+
+ `0"We must go see her," `2he states gravely.
+
+ `2Laura stands up. `#"It is too dangerous, Uncle! If only we had someone
+ to travel with us... Someone who knew the roads.."
+
+`k `2All eyes turn to you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Absolutely NOT! I am not a babysitter.
+Yes, I will take you to Ma, back in Greentree.
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `2Edward look downcast and Laura leaves the room in a huff.
+
+ `0"If you chahange `4::smell alert::`0 your mind, `n`0 - Please come back."
+
+ `2There isn't much else to do but leave.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @show
+`\`\ `2Edward and Laura cheer in unison!
+
+ `0"Wonderfull! I'll pack my things!!" `2Uncle Edward shouts as he runs
+ out of the room.
+
+`k `%TWO HOURS LATER, YOU LEAVE - WITH LAURA AND EDWARD WITH YOU!
+`\`k
+ @do `p71 is 109
+ @drawmap
+ @update
+
+@#ELLE
+;elle's room
+@do `p20 is 1
+@busy
+@do `p70 is 17
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@if bitcheck `t12 3 1 then do
+ @begin
+ @if bitcheck `t12 5 1 then do
+ @begin
+ @dataload npc/ellequst.idf &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @dataload npc/ellequst.idf &playernum `p20
+ @if `p20 < 3 then do
+ @begin
+ @datasave npc/ellequst.idf &playernum 3
+ @do saybar
+`#`N`2: It wasn't Johhny! I talked with him near FlagCity, what really happened?`l`k
+ @do saybar
+`#Elle`2: I don't care, go away. `7<sniffle>`l`k
+ @update
+ @closescript
+ @end
+ @if `p20 is 3 then do
+ @begin
+ @do `p20 random 3 1
+ @if `p20 is 1 then do
+ @begin
+ @datasave npc/ellequst.idf &playernum 4
+ @do saybar
+`#`N`2: Do you know who done this to you?`l`k
+ @do saybar
+`#Elle`2: Not really,`k
+ @label findrapest
+ @do `p21 random 200 2
+ @dataload npc\npcgendr.idf `p21 `p22
+ @if `p21 is 39 then goto findrapest <--can't be Johnny!
+ @if `p22 is 0 then goto findrapest <--can't be a female!
+ @if `p22 is 2 then goto findrapest <--can't be a female!
+ @if `p22 is 4 then goto findrapest <--can't be a female!
+ @if `p22 is 3 then goto findrapest <--can't be a gay man!
+ @if `p22 > 5 then goto findrapest <--huh? shouldn't even be this high!
+ @do `p70 is `p21
+ @routine getname in npcname.ref <--can't be nobody!
+ @if `s01 is Somebody then goto findrapest
+ @do `t82 is `p21
+ @do saybar
+`#Elle`2: I was raped late one night just outside of GreenTree!`l`k
+ @do saybar
+`#Elle`2: It was too dark to see their face.`l`k
+ @update
+ @closescript
+ @end
+ @end
+ @do saybar
+`#`N`2: How do you feel now?`l`k
+ @do saybar
+`#Elle`2: I feel better, thanks.`l`k
+ @closescript
+ @end
+ @do saybar
+`#Elle`2: I lost my baby because of you! GET OUT!
+ @closescript
+ @end
+ @do saybar
+`#Elle`2: Thanks for talking to mum. I wonder what she'll do?
+ @closescript
+ @end
+
+@if bitcheck `t12 2 1 then do
+ @begin
+ @do saybar
+`#Elle`2: Go talk to my mother!
+ @closescript
+ @end
+
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2A girl is crying, talk to her? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is N then do
+ @begin
+ @if `v06 is 1 then do
+ @begin
+ ;clean mode is on, so we can't say 'bitch'
+ @do saybar
+Poor girl, she needs to be alone.
+ @end
+
+ @if `v06 is 0 then do
+ @begin
+ @do saybar
+Let the bitch cry.
+ @end
+ @closescript
+ @end
+
+@if `v06 is 1 then do
+ @begin
+ ;clean mode is on, will disable this quest
+ @do saybar
+`0Elle: `2This game is running in `4CLEAN mode`2, so this quest is disabled.
+ @closescript
+ @end
+
+@do `v01 is 1
+@end
+
+@label elletalk
+@if `p20 is 0 then do
+@begin
+@show
+`r0`c `r1 `%ELLE'S ROOM `r0
+
+ `2The girl stops her convulsive sobbing to speak with you.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Your ma is big, eh?
+Why the water works?
+Leave
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `0"Don't talk about my mother that way! Get away from me!"
+`\`k
+;added for NPC profiles
+@dataload npc/npc-`p70.idf &playernum `p21
+@do `p21 - 15
+@datasave npc/npc-`p70.idf &playernum `p21
+; end of NPC change
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 2 then do
+ @begin
+ @do `s01 is a`xslut
+ @if `v06 is 1 then `s01 is pregnant
+ @show
+`\`\ `0"I'm pregnant!" `2she screams.
+
+`k `$"Woah!! Does your ma know? She thinks you are good girl, if
+ she knew you were `s01 she'd have a heart attack!" `2you soothe.
+
+`k `0"I know," `2Elle tells you tearfully. `0"Would you tell her for me? In
+ a nice way? Make her understand that I LOVE Johnny!"
+
+`k `2You agree.
+
+ `0"Thank you! Come back and tell me what happened!!!"
+
+`k
+ @bitset `t12 2 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@drawmap
+@update
+@end
+@end
+@end
+@#madoor
+@if `p71 is 17 then do
+ @begin
+ @do saybar
+`$Elle opens to door to let you through.
+ @closescript
+ @end
+@if `p71 is 18 then do
+ @begin
+ @do saybar
+`$Ma opens to door to let you through.
+ @closescript
+ @end
+@if `p71 is 19 then do
+ @begin
+ @do saybar
+`$Estella opens to door to let you through.
+ @closescript
+ @end
+
+
+@if ninn1.dat exist true than do
+ @begin
+@readfile ninn1.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+ @end
+
+@if &lasty is 10 then do
+ @begin
+ @do moveback
+ @do saybar
+`!Ma: `$Only paying customers can go back there!
+ @end
+
+@#MANB
+;Man in the booth
+@DO SAYBAR
+`0"This is MY booth, go away."
+@do moveback
+
+@#MABACK
+@do moveback
+@do `p70 is 18
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@label startg
+
+@if ninn1a.dat exist false then do
+ @begin
+ @writefile ninn1a.dat
+200
+0
+ @end
+
+
+@if ninn1.dat exist false then do
+ @begin
+ @do saybar
+`#Ma: `0What are you doing behind the counter?!
+ @closescript
+ @end
+
+@readfile ninn1.dat
+`p20
+`s01
+@
+
+ @readfile ninn1a.dat
+`p26
+`p27
+ @
+
+@if ninnw1.dat exist false then do
+ @begin
+ @writefile ninnw1.dat
+5
+Red Potion
+ @end
+ @readfile ninnw1.dat
+`p29
+`s03
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+`#Ma: `0What are you doing behind the counter?!
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing Ma `r0
+
+ `2She stops working for a moment.
+
+@do write
+`x`x
+@choice
+Set password to private bedroom. (currently is `0`s01`%)
+Ownership options
+Set inn fee (currently is at `$$`p26`%)
+Take money from register
+Change Toilet Water (currently is made of `!`s03s`%)
+Home Sweet Home
+Leave
+@if responce is 6 then do
+ @begin
+ @show
+
+`\`2This is you new home now.
+ @key
+ @do `p69 is 3
+ @end
+@if response is 5 then do
+ @begin
+ @label POTION1
+ @show
+`c`\`\ `0"What do you want your toilet water made of?"
+
+@do write
+`x`x`x
+@do `v01 is 1
+@choice
+Silver Potion
+Gold Potion
+Red Potion
+What!?!
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `2Let's explain, shall we...
+
+ `0In your private room, there will be a toilet. In it, there will be water.
+ What kind of water is your choice. This water will be available to drink
+ once per day by yourself and whomever you allow inside your private room.
+
+ `2Types of Water:
+
+ `$-`0Silver Potion`2: Dodge goes up by 1!
+ `$-`0Gold Potion`2: Muscle goes up by 2!
+ `$-`0Red Potion`2: Max HP goes up by 5!
+
+ `2That's what we're talking about...
+
+`k
+
+ @do goto POTION1
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2Ma says, and pours the contents of a Silver Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if NINNW1.DAT exist true then delete NINNW1.DAT
+ @writefile NINNW1.DAT
+1
+Silver Potion
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2Ma says, and pours the contents of a Gold Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if NINNW1.DAT exist true then delete NINNW1.DAT
+ @writefile NINNW1.DAT
+2
+Gold Potion
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2Ma says, and pours the contents of a Red Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if NINNW1.DAT exist true then delete NINNW1.DAT
+ @writefile NINNW1.DAT
+5
+Red Potion
+ @end
+
+ @do goto MABACK
+ @end
+
+@if responce is 4 then do
+ @begin
+ @if `p27 < 1 then do
+ @begin
+@show
+`\`\ `0"Before you look in that register.. lemmie tell you business has
+ been a little slow." `2Ma tells you.
+
+`k `$"How slow?" `2you ask.
+
+`k `0"Ok, we have not had a single customer since you last checked, ARE
+ YOU HAPPY NOW!?" `2Ma sobs as she bursts into tears. `0"You're going to
+ FIRE us!"
+
+`k
+ @do goto maback
+ @end
+
+
+ @readfile ninn1a.dat
+`p26
+`p27
+ @
+ @do money + `p27
+ @do delete ninn1a.dat
+ @writefile ninn1a.dat
+`p26
+0
+ @
+
+ @show
+`\`\ `2Sure, we've made `$$`p27`2, here ya go!
+
+`k
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You think you're pretty smart, don't you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, yes I do. Now please give me 1,000,000 gold for free, I deserve it.
+No, you oh computer are the true master. We humans suck.
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2GET OUT OF HERE BEFORE I `bDELETE`2 YOU! Next time I will.
+
+ @do goto maback
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ The computer playfully slaps your ass as it walks out.
+
+ @do goto maback
+
+ @end
+
+ @do goto maback
+ @end
+ @readfile ninn1a.dat
+`p26
+`p27
+ @
+ @do `p26 is `v40
+ @do delete ninn1a.dat
+ @writefile ninn1a.dat
+`p26
+`p27
+ @
+ @do goto maback
+ @end
+
+
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$10000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your Inn to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete ninn1.dat
+ @writefile ninn1.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of Ma's Boarding House to you.
+ Password to enter bedroom will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%Ma's Boarding House`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Inn back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete ninn1.dat
+ @do delete ninn1a.dat
+ @do money + 10000
+ @show
+`\`\ `%INN SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Ma's Boarding House`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete ninn1.dat
+ @writefile ninn1.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2Ma promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+@end
+
+@#CLEAN
+;Table in Jack's restaurant
+@DO SAYBAR
+Someone needs to clean up this table.
+@do moveback
+
+@#GIRL
+;Girl in MA's bording
+@do moveback
+@do `p70 is 19
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@DO SAYBAR
+`#Estella: `0Hey there, I hope you'll stay a night.
+@end
+
+@#GIRL2
+;Touching the Girl in Ma's bording
+@do moveback
+@do `p70 is 19
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+
+@if &sex > 0 then do
+@BEGIN
+@DO SAYBAR
+`#Estella: `0Hey look but don't touch big boy.
+@END
+
+@#door
+ @do saybar
+The door opens.
+ @end
+
+
+
+@#ma
+;ma from ma's boarding house
+@if ninn1.dat exist false then do
+ @begin
+@do moveback
+@do `v01 is 1
+@label startma1
+@do `p70 is 18
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@dataload npc/ellequst.idf &playernum `p20
+@show
+`r0`c `r1 `%Talking to Ma `r0
+
+`2 'Ma' is a pleasantly plump woman with rosy cheeks.
+
+ `0"What kin I do for ya, child?" `2she asks.
+
+@do write
+`x`x
+@choice
+Get a room
+-`t12 5 Shoot the breeze with Ma
++`t12 2 -`t12 3 Your daughter got knocked up!
++`t12 1 I kill dogs.
++`t12 3 -`t12 4 Where do I deliver this letter again?
+=`p71 109 I have Uncle Edward with me!
++`t12 5 Shoot the breeze with Ma
+I'd like to buy this place!
+Leave
+>`p20 1 <`p20 5 It wasn't Johnny!
++`t11 7 Hand over the bastard
+@if responce is 11 then do
+ @begin
+ @show
+`\`\
+ `2"`$I got him right here!`2"
+ `l`k
+ `2"`0Great, let me punish him my way.`2" Ma takes him by the ear in the
+ back room. All you here is a lot of slapping.
+ `l`k
+ `2"`0Estella, get me the silver dagger`2" Estella runs to the back room
+ with the shark object.
+ `l`k
+ `2You suddenly hear a loud high pitch scream comming from the back room.
+`l`k
+ `2Ma and Estella comes out.
+ `2"`$There, that should take care of his breeding habits.`2"
+ `l`k
+
+ `@BONUS: `!3000 EXP
+ `@ `!75 QUEST POINTS
+ @key
+ @do `p01 + 3000
+ @do `p18 + 75
+ @do `p71 is 0
+ @bitset `t11 7 0
+ @datasave npc/ellequst.idf &playernum 255
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 10 then do
+ @begin
+ @show
+`\`\
+ `2"`$It wasn't Johnny that knocked your daughter up!`2" you say.
+ `l`l`k
+ `2Ma scowls out, "`0What do you mean?! its not Johnny?`2"
+ `l`l`k
+ `2"`$I caught up with Johnny near FlagCity, and he hardly knows who
+ Elle is. He says he was was last here less than 2 months ago hanging
+ out in the `4Red Dragon Inn`$. He said he's more interested in Violet's
+ daughter. He was only introduced to Elle for a short time. He hardly
+ remembered her at all.`2" you explain.
+ `l`l`k
+ `2"`0Then who did this obstructiveness!"
+ `l`l`k
+ `2"`$I'll try to find out for you Ma.`2" you insist.
+ `l`l`k
+ `2"`0Ok `N, try to find the culpret, we'll bring them to justice!`2"
+ `l`l`k
+ `2"`0Bring him here when you find him!`2"
+ `l`l`k
+
+ @bitset `t11 5 1
+ @dataload npc/ellequst.idf &playernum `p22
+ @if `p22 is 4 then `p22 is 4
+ @if `p22 is 3 then `p22 is 3
+ @if `p22 is 2 then `p22 is 3
+ @datasave npc/ellequst.idf &playernum `p22
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 2 then do
+ @begin
+@if bitcheck `t12 3 1 then do
+ @begin
+ @show
+`\`\ `0"Not much to tell," `2Ma scowls. `0"My daughter Elle is the whore
+ of Greentree, that's all!"
+
+`k
+ @do goto startma1
+
+
+ @end
+ @show
+`\`\ `0"Not much to tell," `2Ma smiles. `0"My daughter Elle is the light
+ of my life. I am so proud of her!"
+
+`k
+ @do goto startma1
+ @end
+
+@if response is 7 then do
+ @begin
+ @show
+`\`\ `0"Not much to tell," `2Ma smiles. `0"Elle still hates me and Laura
+ and Edward are still visiting. They are renting a house near here."
+
+`k
+ @do `v01 is 1
+ @do goto startma1
+ @end
+
+
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"With who?!?!?!" `2the portly woman screams. Ma looks like she is
+ ready to explode.
+
+`k `$"That Johnny guy. Yeah, ya want me to kill 'em for you?"
+
+`k `2Ma thinks hard. `0"No.. No we need something else. I want you to
+ deliver this letter to my brother Edward urgently. Please don't read it."
+
+`k `%YOU GET THE LETTER!
+
+@if `i20 > 0 then do
+ @begin
+ @show
+ `2Your map was marked with his location.
+ @end
+@if `i20 = 0 then do
+ @begin
+ @show
+ `2If you buy a map, it will be marked with his location.
+ @end
+
+ @show
+`\`k
+ @bitset `t12 3 1
+ @do `i41 is 1
+ @do goto startma1
+ @end
+
+
+@if response is 5 then do
+ @begin
+ @show
+`\`\ `0"Take the letter to my brother Edward. He lives about 4 miles south
+ of Greentree," `2Ma tells you.
+
+`k
+ @do `v01 is 1
+ @do goto startma1
+ @end
+
+@if response is 6 then do
+ @begin
+ @show
+`\`\ `0"Edward!!! How I've missed you!" `2cries Ma. `0"And with Laura too!"
+
+`k `2Your eyes moisten at this happy reunion.
+
+ `0"Did you bring it?" `2Ma asks seriously.
+
+ `2Edward slowly pulls something out of his knapsack...
+
+`k `%IT IS A BARREN ROCK.
+
+`k `0"We must do this now," `2Edward states somberly.
+
+`k`c `r1 A little something different happens at the Inn... `r0
+
+ `2A few minutes later you hear screams coming from upstairs.
+
+`k `2Later Ma comes down. `0"Thanks to you, Elle is a virgin again. At
+ least that's what we're gonna say, right?" `2she nudges with a wink.
+
+`k `%MA GIVES YOU 2000 GOLD AND YOU GET 10 QUEST POINTS!
+
+`k
+ @bitset `t12 5 1
+ @do money + 2000
+ @do `p18 + 10
+ @do `p71 is 0
+ @do `p70 is 17
+@dataload npc/npc-`p70.idf &playernum `p21
+@do `p21 - 25
+@datasave npc/npc-`p70.idf &playernum `p21
+ @drawmap
+ @update
+ @end
+
+
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `0"I'm so happy for you," `2Ma smiles.
+
+`k
+ @do goto startma1
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Ok, that will be $50."
+@do write
+`\`x`x
+@choice
+Ok!
+<`p07 -4 `4If I'm gonna spend `$$50`4, I might as well go up to the whore house, bitch.
+>`p07 -5 No way!
+ @if response is 1 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+`\`\ `2Damn it... You only have `$$&money`2!
+`\`k
+ @do goto startma1
+ @end
+ @show
+ @do money - 50
+`\`\ `2Ma takes your money and tells you to find a room upstairs.
+ @do y - 2
+ @do x - 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\ `2Ma's face turns beet red. Haw, serves her right.`\`\`k
+ @end
+
+ @if response is 3 then do
+ @begin
+ @show
+`\`\ `2Maybe later - `$50 `2is a bit much.`\`\`k
+ @end
+
+
+
+ @do goto startma1
+ @end
+
+ @if response is 8 then do
+ @begin
+ @show
+`\`\ `$"I'd like to buy this place from you," `2you say to Ma.
+
+`k `0"Oh, how did you know that because of increasingly hard times we've
+ been thinking of selling the place?" `2She is sobbing uncontrollably.
+
+`k `$"I didn't," `2you say. `$"But that's great! That's just what I was
+ hoping for."
+
+`k `0"But we'd be out of work!" `2Ma screams at you.
+
+`k `$"Oh, you could still work for me. I just want some profit."
+
+`k `0"You mean it? You'd let us stay?"
+
+`k `$"Sure."
+
+ @do goto FINISHOFF
+ @end
+@drawmap
+@update
+@end
+
+@closescript
+
+@end
+;---IF MA'S INN HAS BEEN PURCHASED!
+
+@readfile ninn1.dat
+`p20
+`s01
+@
+
+@do `s02 is getname `p20
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete ninn1.dat
+ @do addlog
+ `%Ma's Boarding House`2 is put on the market today.
+ @routine seperate in gametxt.ref
+ @end
+
+@if `p20 is &playernum then do
+ @begin
+ @do moveback
+ @do saybar
+`0Ma: `2Greetings, s&sir!
+ @closescript
+ @end
+
+@do moveback
+@label startma
+@do `v01 is 1
+@show
+`r0`c `r1 `%Talking to Ma `r0
+
+`2 'Ma' is a pleasantly plump woman with rosy cheeks.
+
+ `0"What kin I do for ya, child?" `2she asks.
+
+@do write
+`x`x
+@choice
+Get a room
+-`t12 5 Shoot the breeze with Ma
++`t12 2 -`t12 3 Your daughter got knocked up!
++`t12 1 I kill dogs.
++`t12 3 -`t12 4 Where do I deliver this letter again?
+>`p71 109 I have Uncle Edward with me!
++`t12 5 Shoot the breeze with Ma
+How's the owner?
+Leave
+@if response is 2 then do
+ @begin
+@if bitcheck `t12 3 1 then do
+ @begin
+ @show
+`\`\ `0"Not much to tell," `2Ma scowls. `0"My daughter Elle is the whore
+ of Greentree, that's all!"
+
+`k
+ @do goto startma
+
+
+ @end
+ @show
+`\`\ `0"Not much to tell," `2Ma smiles. `0"My daughter Elle is the light
+ of my life. I am so proud of her!"
+
+`k
+ @do goto startma
+ @end
+
+@if response is 7 then do
+ @begin
+ @show
+`\`\ `0"Not much to tell," `2Ma smiles. `0"Elle still hates me and Laura
+ and Edward are still visiting. They are renting a house near here."
+
+`k
+ @do `v01 is 1
+ @do goto startma
+ @end
+
+
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"With who?!?!?!" `2the portly woman screams. Ma looks like she is
+ ready to explode.
+
+`k `$"That Johnny guy. Yeah, ya want me to kill 'em for you?"
+
+`k `2Ma thinks hard. `0"No.. No we need something else. I want you to
+ deliver this letter to my brother Edward urgently. Please don't read it."
+
+`k `%YOU GET THE LETTER!
+
+@if `i20 > 0 then do
+ @begin
+ @show
+ `2Your map was marked with his location.
+ @end
+@if `i20 = 0 then do
+ @begin
+ @show
+ `2If you buy a map, it will be marked with his location.
+ @end
+
+ @show
+`\`k
+ @bitset `t12 3 1
+ @do `i41 is 1
+ @do goto startma
+ @end
+
+
+@if response is 5 then do
+ @begin
+ @show
+`\`\ `0"Take the letter to my brother Edward. He lives about 4 miles south
+ of Greentree," `2Ma tells you.
+
+`k
+ @do `v01 is 1
+ @do goto startma
+ @end
+
+@if response is 6 then do
+ @begin
+ @show
+`\`\ `0"Edward!!! How I've missed you!" `2cries Ma. `0"And with Laura too!"
+
+`k `2Your eyes moisten at this happy reunion.
+
+ `0"Did you bring it?" `2Ma asks seriously.
+
+ `2Edward slowly pulls something out of his knapsack...
+
+`k `%IT IS A BARREN ROCK.
+
+`k `0"We must do this now," `2Edward states somberly.
+
+`k`c `r1 A little something different happens at the Inn... `r0
+
+ `2A few minutes later you hear screams coming from upstairs.
+
+`k `2Later Ma comes down. `0"Thanks to you, Elle is a virgin again. At
+ least that's what we're gonna say, right?" `2she nudges with a wink.
+
+`k `%MA GIVES YOU 2000 GOLD AND YOU GET 10 QUEST POINTS!
+
+`k
+ @bitset `t12 5 1
+ @do money + 2000
+ @do `p18 + 10
+ @do `p71 is 0
+ @drawmap
+ @update
+ @end
+
+
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `0"I'm so happy for you," `2Ma smiles.
+
+`k
+ @do goto startma
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @readfile ninn1a.dat
+`p26
+`p27
+ @
+ @show
+`\`\ `0"Ok, that will be $`p26."
+@do write
+`\`x`x
+@choice
+Ok!
+<`p07 -4 `4If I'm gonna spend `$`p26`4, I might as well go up to the whore house, bitch.
+>`p07 -5 No way!
+ @if response is 1 then do
+ @begin
+ @if money < `p26 then do
+ @begin
+ @show
+`\`\ `2Damn it... You only have `$$&money`2!
+`\`k
+ @do goto startma
+ @end
+ @show
+ @do money - `p26
+`\`\ `2Ma takes your money and tells you to find a room upstairs.
+ @do `p27 + `p26
+ @do delete ninn1a.dat
+ @writefile ninn1a.dat
+`p26
+`p27
+ @
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has stayed at your Inn! Cha-CHING!
+
+ @do y - 2
+ @do x - 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\ `2Ma's face turns beet red. Haw, serves her right.`\`\`k
+ @end
+
+ @if response is 3 then do
+ @begin
+ @show
+`\`\ `2Maybe later - `$50 `2is a bit much.`\`\`k
+ @end
+
+
+
+ @do goto startma
+ @end
+
+ @if response is 8 then do
+ @begin
+ @show
+`\`\ `$"How's `0`s02 `$doing?" `2you groan meekly. You'd like to buy this
+ place.
+
+`k `0"Doing fine. Doing fine. And a good owner, too! Treated us very
+ kindly, thank you for asking."
+
+ `$"What's his toilet water like?"
+
+ `0"Very tasty. I'd stay here just for that if I were you..."
+
+`k
+ @do goto startma
+ @end
+
+@drawmap
+@update
+
+
+@#mother
+;chick waiting for her daughter in RDI
+@do moveback
+@busy
+@do `v01 is 1
+@show
+`r0`c `%`r1 Talking to a patron `r0
+
+`2 A woman is sitting on a stool.
+
+@do write
+`x`x
+@choice
+>`i11 0 `%Hello, woman, why so worried?
+>`i11 0 I have returned your daughter! Safe and sound.
+=&sex 1 !`i11 1 Hey baby, wassup?
+Leave
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `0"My daughter was supposed to meet me here! She is never this late!"
+
+`k
+@do goto mother
+ @end
+
+@if responce is 3 then do
+ @begin
+ @show
+`\`\ `0"Get lost, creep!"
+
+ `2Damn! She is outta your league anyway.
+
+`k
+@do goto mother
+ @end
+
+
+@if responce is 2 then do
+ @begin
+ @do money + 50
+ @do `p01 + 10
+ @do `i11 - 1
+ @show
+`\`\ `0"Thank you so much!!! You saved her life!"
+
+ `2The woman gives you `$$50`2! `2 You receive `010`2 experience for helping the community.
+`k
+@end
+
+
+@drawmap
+@update
+
+@#CHATWALL
+@do moveback
+@busy
+@show
+`r0`c `r1 SCRIBBLING ON THE BULLETIN BOARD `r0
+
+@if bar.txt exist false then do
+ @begin
+ @writefile bar.txt
+ `%Bartender `2: `0Notice - Do not graffiti on this or else!
+ @end
+
+@if bar.txt exist true then do
+ @begin
+ @displayfile bar.txt
+ @end
+
+@show
+
+@
+(Do tricky stuff with name to determine how much they can type)
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter a special message or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile bar.txt
+ `%`n`2 : `0`s03
+ @do trim bar.txt 17
+ @drawmap
+ @update
+
+
+
+@#FINISHOFF
+@show
+`k`r0`c`\`\ `0"We'd sell it to you for `%$25,000`0?
+
+@do `v01 is 1
+@do write
+`x`x`x
+@choice
+>&money 24999 I'll take it!
+Too rich for my blood.
+@
+@if response is 1 then do
+@begin
+ @if ninn1.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile ninn1.dat
+&playernum
+NONE
+0
+0
+0
+0
+ @do money - 25000
+ @do addlog
+ `0`n `2buys `%Ma's Boarding House`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Ma, your Employee and Friend `r0
+`\`2 Nice job! You now own her Inn!
+
+ `2Enjoy your new home.
+
+`k
+@label POTIOND
+@show
+`c`\
+ `2What would you like your toilet water to be made out of?
+
+@do write
+`x`x`x
+@do `v01 is 1
+@choice
+Silver Potion
+Gold Potion
+Red Potion
+What!?!
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `2Let's explain, shall we...
+
+ `0In your private room, there will be a toilet. In it, there will be water.
+ What kind of water is your choice. This water will be available to drink
+ once per day by yourself and whomever you allow inside your private room.
+
+ `2Types of Water:
+
+ `$-`0Silver Potion`2: Dodge goes up by 1!
+ `$-`0Gold Potion`2: Muscle goes up by 2!
+ `$-`0Red Potion`2: Max HP goes up by 5!
+
+ `2That's what we're talking about...
+
+`k
+
+ @do goto POTIOND
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2Ma says, and pours the contents of a Silver Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if NINNW1.DAT exist true then delete NINNW1.DAT
+ @writefile NINNW1.DAT
+1
+Silver Potion
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2Ma says, and pours the contents of a Gold Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if NINNW1.DAT exist true then delete NINNW1.DAT
+ @writefile NINNW1.DAT
+2
+Gold Potion
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2Ma says, and pours the contents of a Red Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if NINNW1.DAT exist true then delete NINNW1.DAT
+ @writefile NINNW1.DAT
+5
+Red Potion
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#DONE
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#NOTHING
diff --git a/xtrn/lord2/cnw/inns.ref b/xtrn/lord2/cnw/inns.ref
new file mode 100644
index 0000000000000000000000000000000000000000..ee5c61de8f32a84fc4d8103ef6fb69e796762e2b
--- /dev/null
+++ b/xtrn/lord2/cnw/inns.ref
@@ -0,0 +1,2620 @@
+; Script file INNS.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:28 2001
+
+@DECLARE greentree 000000864
+@DECLARE gtoilet 000001177
+@DECLARE gtreasurey 000002134
+@DECLARE groom 000005064
+@DECLARE done 000006438
+@DECLARE ptoilet 000006472
+@DECLARE pdoor 000007422
+@DECLARE pdoorguard 000008803
+@DECLARE startp 000008832
+@DECLARE potion1 000010068
+@DECLARE ptreasurey 000017155
+@DECLARE bonetown 000020074
+@DECLARE btoilet 000020352
+@DECLARE pdoor 000021302
+@DECLARE bdoor 000022678
+@DECLARE btreasurey 000024069
+@DECLARE bdoorguard 000026998
+@DECLARE startg 000027027
+@DECLARE potion2 000028267
+@DECLARE flagcity 000035344
+@DECLARE ftoilet 000035619
+@DECLARE ftreasurey 000036574
+@DECLARE fdoor 000039488
+@DECLARE fdoorguard 000040875
+@DECLARE startf 000040904
+@DECLARE potion3 000042144
+@NOCHECK
+; End of .REF index
+
+@#GREENTREE
+@do moveback
+
+ @if NINN1.dat exist false then do
+ @begin
+ @do saybar
+`!Ma's Boarding House, owned by Ma, herself
+ @end
+
+@if NINN1.DAT exist true then do
+ @begin
+@readfile NINN1.DAT
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`!Ma's Boarding House, `!owned by `0`s01`2.
+ @end
+
+@#GTOILET
+@datanewday NINNW1.IDF
+@dataload NINNW1.IDF &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @do saybar
+`!You drank all the toilet water. Come back tomorrow.
+ @closescript
+ @end
+
+@if NINNW1.DAT exist false then do
+ @begin
+ @do saybar
+`!There is no toilet water in here. Better tell the owner.
+ @closescript
+ @end
+
+ @readfile NINNW1.DAT
+`p29
+`s03
+ @datasave NINNW1.IDF &playernum 1
+ @if `p29 is 1 then do
+ @begin
+ @do saybar
+`1:`!You drink the toilet water, and your dodge goes up by 1!
+ @do `p05 + 1
+ @closescript
+ @end
+ @if `p29 is 2 then do
+ @begin
+ @do saybar
+`1:`!You drink the toilet water, and your muscle goes up by 2!
+ @do `p04 + 2
+ @closescript
+ @end
+ @if `p29 is 5 then do
+ @begin
+ @do saybar
+`1`!You drink the toilet water, and your max HP goes up by 5!
+ @do `p03 + 5
+ @closescript
+ @end
+
+@do saybar
+`!There seems to be something wrong with the toilet. Tell the owner.
+
+@#GTREASUREY
+;team treasury
+@if ninn1.dat exist false then do
+ @begin
+ @do moveback
+ @do saybar
+`!No one owns the treasury yet.
+ @closescript
+ @end
+
+@do moveback
+@do `p20 is 0
+@if ninnt1.dat exist true then do
+ @begin
+ @readfile ninnt1.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile ninnt1.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete ninnt1.dat
+ @writefile ninnt1.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile ninn1.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Ma's Boarding House Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile ninnt1.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete ninnt1.dat
+ @writefile ninnt1.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile ninn1.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Ma's Boarding House Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+@#GROOM
+@if ninn1.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@if &lastx is 25 then do
+ @begin
+ @closescript
+ @end
+
+@readfile ninn1.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @do saybar
+`0The Looes Screw Spirit: `2No one is allowed over there.. it's private.
+
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 Entrance to the private area `r0
+
+`2 `2The Loose Screw spirit looks over at you. `0"Hey! What business do you
+ have going in there?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok, go on in then!"`\`\`k
+ @do x + 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Ma Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get to the private bedroom by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The Loose Screw Spirit isn't impressed.`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+
+
+ @#done
+ @drawmap
+ @update
+
+@#PTOILET
+@datanewday NINNW2.IDF
+@dataload NINNW2.IDF &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @do saybar
+`!You drank all the toilet water. Come back tomorrow.
+ @closescript
+ @end
+
+@if NINNW2.DAT exist false then do
+ @begin
+ @do saybar
+`!There is no toilet water in here. Better tell the owner.
+ @closescript
+ @end
+
+ @readfile NINNW2.DAT
+`p29
+`s03
+ @datasave NINNW2.IDF &playernum 1
+ @if `p29 is 1 then do
+ @begin
+ @do saybar
+`1:`!You drink the toilet water, and your dodge goes up by 1!
+ @do `p05 + 1
+ @closescript
+ @end
+ @if `p29 is 2 then do
+ @begin
+ @do saybar
+`1:`!You drink the toilet water, and your muscle goes up by 2!
+ @do `p04 + 2
+ @closescript
+ @end
+ @if `p29 is 5 then do
+ @begin
+ @do saybar
+`1`!You drink the toilet water, and your max HP goes up by 5!
+ @do `p03 + 5
+ @closescript
+ @end
+
+@do saybar
+`!There seems to be something wrong with the toilet. Tell the owner.
+@#PDOOR
+@if ninn2.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@if &lastx is 20 then do
+ @begin
+ @closescript
+ @end
+
+@readfile ninn2.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @do saybar
+`0The Looes Screw Spirit: `2No one is allowed over there.. it's private.
+
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 Entrance to the private area `r0
+
+`2 `2The Loose Screw spirit looks over at you. `0"Hey! What business do you
+ have going in there?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok, go on in then!"`\`\`k
+ @do x - 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0The Hag Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get to the private bedroom by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The Loose Screw Spirt isn't impressed.`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+
+@#PDOORGUARD
+@do moveback
+@label startp
+
+@if ninn2a.dat exist false then do
+ @begin
+ @writefile ninn2a.dat
+200
+0
+ @end
+@if ninn2b.dat exist false then do
+ @begin
+ @writefile ninn2b.dat
+25
+0
+ @end
+
+@if ninn2.dat exist false then do
+ @begin
+ @do saybar
+`$The Loose Screw Spirit: `!Greetings...
+ @closescript
+ @end
+
+@readfile ninn2.dat
+`p20
+`s01
+@
+
+ @readfile ninn2a.dat
+`p26
+`p27
+ @
+ @readfile ninn2b.dat
+`p25
+`p29
+ @
+@if NINNW2.dat exist false then do
+ @begin
+ @writefile NINNW2.dat
+5
+Red Potion
+ @end
+ @readfile NINNW2.dat
+`p28
+`s03
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+`$The Loose Screw Spirit: `!Greetings...
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing The Loose Screw Spirit `r0
+
+ `2It glows before you, almost like, well, a lightbulb.
+
+@do write
+`x`x
+@choice
+Set password to private bedroom. (currently is `0`s01`%)
+Ownership options
+Set inn fee (currently is at `$$`p26`%)
+Take money from register
+Set whore fee (currently is at `$$`p25`%)
+Take money from whores
+Change Toilet Water (currently is made of `!`s03s`%)
+Leave
+@
+@if response is 7 then do
+ @begin
+ @label POTION1
+ @show
+`c`\`\ `0"What do you want your toilet water made of?"
+
+@do write
+`x`x`x
+@do `v01 is 1
+@choice
+Silver Potion
+Gold Potion
+Red Potion
+What!?!
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `2Let's explain, shall we...
+
+ `0In your private room, there will be a toilet. In it, there will be water.
+ What kind of water is your choice. This water will be available to drink
+ once per day by yourself and whomever you allow inside your private room.
+
+ `2Types of Water:
+
+ `$-`0Silver Potion`2: Dodge goes up by 1!
+ `$-`0Gold Potion`2: Muscle goes up by 2!
+ `$-`0Red Potion`2: Max HP goes up by 5!
+
+ `2That's what we're talking about...
+
+`k
+
+ @do goto POTION1
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2he says, and pours the contents of a Silver Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if NINNW2.DAT exist true then delete NINNW2.DAT
+ @writefile NINNW2.DAT
+1
+Silver Potion
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Gold Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if NINNW2.DAT exist true then delete NINNW2.DAT
+ @writefile NINNW2.DAT
+2
+Gold Potion
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Red Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if NINNW2.DAT exist true then delete NINNW2.DAT
+ @writefile NINNW2.DAT
+5
+Red Potion
+ @end
+
+ @do goto PDOORGUARD
+ @end
+
+@if responce is 4 then do
+ @begin
+ @if `p27 < 1 then do
+ @begin
+@show
+`\`\ `0"Before you look in that register.. lemmie tell you business has
+ been a little slow." `2The Spirit tells you.
+
+`k `$"How slow?" `2you ask.
+
+`k `0"Ok, we have not had a single customer since you last checked, ARE
+ YOU HAPPY NOW!?" `2The Spirit bursts into tears. `0"It's me! It's all
+ because I'm a ghost. People don't like ghosts...except Casper."
+
+`k
+ @do goto PDOORGUARD
+ @end
+
+
+ @readfile ninn2a.dat
+`p26
+`p27
+ @
+ @do money + `p27
+ @do delete ninn2a.dat
+ @writefile ninn2a.dat
+`p26
+0
+ @
+
+ @show
+`\`\ `2Sure, we've made `$$`p27`2, here ya go!
+
+`k
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You think you're pretty smart, don't you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, yes I do. Now please give me 1,000,000 gold for free, I deserve it.
+No, you oh computer are the true master. We humans suck.
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2GET OUT OF HERE BEFORE I `bDELETE`2 YOU! Next time I will.
+
+ @do goto PDOORGUARD
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ The computer playfully slaps your ass as it walks out.
+
+ @do goto PDOORGUARD
+
+ @end
+
+ @do goto PDOORGUARD
+ @end
+ @readfile ninn2a.dat
+`p26
+`p27
+ @
+ @do `p26 is `v40
+ @do delete ninn2a.dat
+ @writefile ninn2a.dat
+`p26
+`p27
+ @
+ @do goto PDOORGUARD
+ @end
+
+
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$25000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startp
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your Inn to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startp
+ @end
+
+ @do delete ninn2.dat
+ @writefile ninn2.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of The Sea Hag's Hotel to you.
+ Password to enter bedroom will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%Ma's Boarding House`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Inn back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startp
+ @end
+
+ @do delete ninn2.dat
+ @do delete ninn2a.dat
+ @do money + 25000
+ @show
+`\`\ `%INN SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Sea Hag's Hotel`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startp
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startp
+ @end
+ @do delete ninn2.dat
+ @writefile ninn2.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the Spirit promises.`\`\`k
+ @do goto startp
+ @end
+
+@if response is 5 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You think you're pretty smart, don't you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, yes I do. Now please give me 1,000,000 gold for free, I deserve it.
+No, you oh computer are the true master. We humans suck.
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2GET OUT OF HERE BEFORE I `bDELETE`2 YOU! Next time I will.
+
+ @do goto PDOORGUARD
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ The computer playfully slaps your ass as it walks out.
+
+ @do goto PDOORGUARD
+
+ @end
+
+ @do goto PDOORGUARD
+ @end
+ @readfile ninn2b.dat
+`p26
+`p27
+ @
+ @do `p26 is `v40
+ @do delete ninn2b.dat
+ @writefile ninn2b.dat
+`p26
+`p27
+ @
+ @do goto PDOORGUARD
+ @end
+
+
+@if response is 6 then do
+ @begin
+ @readfile NINN2b.dat
+`p25
+`p29
+ @if `p29 is 0 then do
+ @begin
+ @show
+`\`\ `2The whores sob uncontrollably. `0"We haven't had sex since you last
+ checked. It's awful!"
+
+`k
+ @do goto PDOORGUARD
+ @end
+
+ @do money + `p29
+ @do delete ninn2b.dat
+ @writefile ninn2b.dat
+`p25
+0
+ @
+
+ @show
+`\`\ `2Sure, we've made `$$`p29`2, here ya go!
+
+ `2The whores sure are helpful.
+
+`k
+ @end
+
+@drawmap
+@update
+
+@#PTREASUREY
+;team treasury
+@if ninn2.dat exist false then do
+ @begin
+ @do moveback
+ @do saybar
+`!No one owns the treasury yet.
+ @closescript
+ @end
+@do moveback
+@do `p20 is 0
+@if ninnt2.dat exist true then do
+ @begin
+ @readfile ninnt2.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile ninnt2.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete ninnt2.dat
+ @writefile ninnt2.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile ninn2.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Sea Hag Hotel Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile ninnt2.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete ninnt2.dat
+ @writefile ninnt2.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile ninn2.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Sea Hag Hotel Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+@#BONETOWN
+@do moveback
+
+ @if ninn3.dat exist false then do
+ @begin
+ @do saybar
+`!The Woodlog Inn
+ @end
+
+@if ninn3.dat exist true then do
+ @begin
+@readfile ninn3.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`!The Woodlog Inn, owned by `0`s01
+ @end
+
+@#BTOILET
+@datanewday ninnw3.IDF
+@dataload ninnw3.IDF &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @do saybar
+`!You drank all the toilet water. Come back tomorrow.
+ @closescript
+ @end
+
+@if ninnw3.DAT exist false then do
+ @begin
+ @do saybar
+`!There is no toilet water in here. Better tell the owner.
+ @closescript
+ @end
+
+ @readfile ninnw3.DAT
+`p29
+`s03
+ @datasave ninnw3.IDF &playernum 1
+ @if `p29 is 1 then do
+ @begin
+ @do saybar
+`1:`!You drink the toilet water, and your dodge goes up by 1!
+ @do `p05 + 1
+ @closescript
+ @end
+ @if `p29 is 2 then do
+ @begin
+ @do saybar
+`1:`!You drink the toilet water, and your muscle goes up by 2!
+ @do `p04 + 2
+ @closescript
+ @end
+ @if `p29 is 5 then do
+ @begin
+ @do saybar
+`1`!You drink the toilet water, and your max HP goes up by 5!
+ @do `p03 + 5
+ @closescript
+ @end
+
+@do saybar
+`!There seems to be something wrong with the toilet. Tell the owner.
+@#PDOOR
+@if ninn2.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@if &lastx is 20 then do
+ @begin
+ @closescript
+ @end
+
+@readfile ninn2.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @do saybar
+`0The Looes Screw Spirit: `2No one is allowed over there.. it's private.
+
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 Entrance to the private area `r0
+
+`2 `2The Loose Screw spirit looks over at you. `0"Hey! What business do you
+ have going in there?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok, go on in then!"`\`\`k
+ @do x - 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0The Hag Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get to the private bedroom by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The Loose Screw Spirt isn't impressed.`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+
+@#BDOOR
+@if ninn3.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@if &lasty is 7 then do
+ @begin
+ @closescript
+ @end
+
+@readfile ninn3.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @do saybar
+`0The Looes Screw Spirit: `2No one is allowed over there.. it's private.
+
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 Entrance to the private area `r0
+
+`2 `2The Loose Screw spirit looks over at you. `0"Hey! What business do you
+ have going in there?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok, go on in then!"`\`\`k
+ @do y - 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0The Dirty Old Man Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get to the private bedroom by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The Loose Screw Spirit isn't impressed.`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+
+@#BTREASUREY
+;team treasury
+@if ninn3.dat exist false then do
+ @begin
+ @do moveback
+ @do saybar
+`!No one owns the treasury yet.
+ @closescript
+ @end
+@do moveback
+@do `p20 is 0
+@if ninnt3.dat exist true then do
+ @begin
+ @readfile ninnt3.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile ninnt3.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete ninnt3.dat
+ @writefile ninnt3.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile ninn3.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0The Dirty Old Man Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile ninnt3.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete ninnt3.dat
+ @writefile ninnt3.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile ninn3.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0The Dirty Old Man Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+@#BDOORGUARD
+@do moveback
+@label startg
+
+@if ninn3a.dat exist false then do
+ @begin
+ @writefile ninn3a.dat
+200
+0
+ @end
+@if ninn3b.dat exist false then do
+ @begin
+ @writefile ninn3b.dat
+25
+0
+ @end
+
+@if ninn3.dat exist false then do
+ @begin
+ @do saybar
+`$The Loose Screw Spirit: `!Greetings...
+ @closescript
+ @end
+
+@readfile ninn3.dat
+`p20
+`s01
+@
+
+ @readfile ninn3a.dat
+`p26
+`p27
+ @
+ @readfile ninn3b.dat
+`p25
+`p29
+ @
+@if ninnw3.dat exist false then do
+ @begin
+ @writefile ninnw3.dat
+5
+Red Potion
+ @end
+ @readfile ninnw3.dat
+`p28
+`s03
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+`$The Loose Screw Spirit: `!Greetings...
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing The Loose Screw Spirit `r0
+
+ `2It glows before you, almost like, well, a lightbulb.
+
+@do write
+`x`x
+@choice
+Set password to private bedroom. (currently is `0`s01`%)
+Ownership options
+Set inn fee (currently is at `$$`p26`%)
+Take money from register
+Set whore fee (currently is at `$$`p25`%)
+Take money from whores
+Change Toilet Water (currently is composed of `!`s03s`%)
+Leave
+@
+@if response is 7 then do
+ @begin
+ @label POTION2
+ @show
+`c`\`\ `0"What do you want your toilet water made of?"
+
+@do write
+`x`x`x
+@do `v01 is 1
+@choice
+Silver Potion
+Gold Potion
+Red Potion
+What!?!
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `2Let's explain, shall we...
+
+ `0In your private room, there will be a toilet. In it, there will be water.
+ What kind of water is your choice. This water will be available to drink
+ once per day by yourself and whomever you allow inside your private room.
+
+ `2Types of Water:
+
+ `$-`0Silver Potion`2: Dodge goes up by 1!
+ `$-`0Gold Potion`2: Muscle goes up by 2!
+ `$-`0Red Potion`2: Max HP goes up by 5!
+
+ `2That's what we're talking about...
+
+`k
+
+ @do goto POTION2
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Silver Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw3.DAT exist true then delete ninnw3.DAT
+ @writefile ninnw3.DAT
+1
+Silver Potion
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Gold Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw3.DAT exist true then delete ninnw3.DAT
+ @writefile ninnw3.DAT
+2
+Gold Potion
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Red Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw3.DAT exist true then delete ninnw3.DAT
+ @writefile ninnw3.DAT
+5
+Red Potion
+ @end
+
+ @do goto BDOORGUARD
+ @end
+
+@if responce is 4 then do
+ @begin
+ @if `p27 < 1 then do
+ @begin
+@show
+`\`\ `0"Before you look in that register.. lemmie tell you business has
+ been a little slow." `2The Spirit tells you.
+
+`k `$"How slow?" `2you ask.
+
+`k `0"Ok, we have not had a single customer since you last checked, ARE
+ YOU HAPPY NOW!?" `2The Spirit bursts into tears. `0"It's me! It's all
+ because I'm a ghost. People don't like ghosts...except Casper."
+
+`k
+ @do goto bdoorguard
+ @end
+
+
+ @readfile ninn3a.dat
+`p26
+`p27
+ @
+ @do money + `p27
+ @do delete ninn3a.dat
+ @writefile ninn3a.dat
+`p26
+0
+ @
+
+ @show
+`\`\ `2Sure, we've made `$$`p27`2, here ya go!
+
+`k
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You think you're pretty smart, don't you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, yes I do. Now please give me 1,000,000 gold for free, I deserve it.
+No, you oh computer are the true master. We humans suck.
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2GET OUT OF HERE BEFORE I `bDELETE`2 YOU! Next time I will.
+
+ @do goto bdoorguard
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ The computer playfully slaps your ass as it walks out.
+
+ @do goto bdoorguard
+
+ @end
+
+ @do goto bdoorguard
+ @end
+ @readfile ninn3a.dat
+`p26
+`p27
+ @
+ @do `p26 is `v40
+ @do delete ninn3a.dat
+ @writefile ninn3a.dat
+`p26
+`p27
+ @
+ @do goto bdoorguard
+ @end
+
+
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$30000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your Inn to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete ninn3.dat
+ @writefile ninn3.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of The Woodlog Inn to you.
+ Password to enter bedroom will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%The Woodlog Inn`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Inn back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete ninn3.dat
+ @do delete ninn3a.dat
+ @do money + 30000
+ @show
+`\`\ `%INN SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%The Woodlog Inn`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete ninn3.dat
+ @writefile ninn3.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the Spirit promises.`\`\`k
+ @do goto startg
+ @end
+
+@if response is 5 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You think you're pretty smart, don't you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, yes I do. Now please give me 1,000,000 gold for free, I deserve it.
+No, you oh computer are the true master. We humans suck.
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2GET OUT OF HERE BEFORE I `bDELETE`2 YOU! Next time I will.
+
+ @do goto bdoorguard
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ The computer playfully slaps your ass as it walks out.
+
+ @do goto bdoorguard
+
+ @end
+
+ @do goto bdoorguard
+ @end
+ @readfile ninn3b.dat
+`p26
+`p27
+ @
+ @do `p26 is `v40
+ @do delete ninn3b.dat
+ @writefile ninn3b.dat
+`p26
+`p27
+ @
+ @do goto bdoorguard
+ @end
+
+
+@if response is 6 then do
+ @begin
+ @readfile ninn3b.dat
+`p25
+`p29
+ @if `p29 is 0 then do
+ @begin
+ @show
+`\`\ `2The whores sob uncontrollably. `0"We haven't had sex since you last
+ checked. It's awful!"
+
+`k
+ @do goto bdoorguard
+ @end
+
+ @do money + `p29
+ @do delete ninn3b.dat
+ @writefile ninn3b.dat
+`p25
+0
+ @
+
+ @show
+`\`\ `2Sure, we've made `$$`p29`2, here ya go!
+
+ `2The whores sure are helpful.
+
+`k
+ @end
+
+@drawmap
+@update
+
+@#FLAGCITY
+@do moveback
+
+ @if ninn4.dat exist false then do
+ @begin
+ @do saybar
+`%FlagCity Inn
+ @end
+
+@if ninn4.dat exist true then do
+ @begin
+@readfile ninn4.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`$FlagCity Inn, owned by `0`s01`$.
+ @end
+
+@#FTOILET
+@datanewday ninnw4.IDF
+@dataload ninnw4.IDF &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @do saybar
+`!You drank all the toilet water. Come back tomorrow.
+ @closescript
+ @end
+
+@if ninnw4.DAT exist false then do
+ @begin
+ @do saybar
+`!There is no toilet water in here. Better tell the owner.
+ @closescript
+ @end
+
+ @readfile ninnw4.DAT
+`p29
+`s03
+ @datasave ninnw4.IDF &playernum 1
+ @if `p29 is 1 then do
+ @begin
+ @do saybar
+`1:`!You drink the toilet water, and your dodge goes up by 1!
+ @do `p05 + 1
+ @closescript
+ @end
+ @if `p29 is 2 then do
+ @begin
+ @do saybar
+`1:`!You drink the toilet water, and your muscle goes up by 2!
+ @do `p04 + 2
+ @closescript
+ @end
+ @if `p29 is 5 then do
+ @begin
+ @do saybar
+`1`!You drink the toilet water, and your max HP goes up by 5!
+ @do `p03 + 5
+ @closescript
+ @end
+
+@do saybar
+`!There seems to be something wrong with the toilet. Tell the owner.
+@#FTREASUREY
+;team treasury
+@if ninn4.dat exist false then do
+ @begin
+ @do moveback
+ @do saybar
+`!No one owns the treasury yet.
+ @closescript
+ @end
+@do moveback
+@do `p20 is 0
+@if ninnt4.dat exist true then do
+ @begin
+ @readfile ninnt4.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile ninnt4.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete ninnt4.dat
+ @writefile ninnt4.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile ninn4.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0FlagCity Inn Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile ninnt4.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete ninnt4.dat
+ @writefile ninnt4.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile ninn4.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0FlagCity Inn Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+@#FDOOR
+@if ninn4.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@if &lastx is 15 then do
+ @begin
+ @closescript
+ @end
+
+@readfile ninn4.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @do saybar
+`0The Looes Screw Spirit: `2No one is allowed over there.. it's private.
+
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 Entrance to the private area `r0
+
+`2 `2The Loose Screw spirit looks over at you. `0"Hey! What business do you
+ have going in there?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok, go on in then!"`\`\`k
+ @do x - 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0FlagCity Inn Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get to the private bedroom by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The Loose Screw Spirit isn't impressed.`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+
+@#FDOORGUARD
+@do moveback
+@label startf
+
+@if ninn4a.dat exist false then do
+ @begin
+ @writefile ninn4a.dat
+200
+0
+ @end
+@if ninn4b.dat exist false then do
+ @begin
+ @writefile ninn4b.dat
+25
+0
+ @end
+
+@if ninn4.dat exist false then do
+ @begin
+ @do saybar
+`$The Loose Screw Spirit: `!Greetings...
+ @closescript
+ @end
+
+@readfile ninn4.dat
+`p20
+`s01
+@
+
+ @readfile ninn4a.dat
+`p26
+`p27
+ @
+ @readfile ninn4b.dat
+`p25
+`p29
+ @
+@if ninnw4.dat exist false then do
+ @begin
+ @writefile ninnw4.dat
+5
+Red Potion
+ @end
+ @readfile ninnw4.dat
+`p28
+`s03
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+`$The Loose Screw Spirit: `!Greetings...
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing The Loose Screw Spirit `r0
+
+ `2It glows before you, almost like, well, a lightbulb.
+
+@do write
+`x`x
+@choice
+Set password to private bedroom. (currently is `0`s01`%)
+Ownership options
+Set inn fee (currently is at `$$`p26`%)
+Take money from register
+Set whore fee (currently is at `$$`p25`%)
+Take money from whores
+Change Toilet Water (currently is composed of `!`s03s`%)
+Leave
+@
+@if response is 7 then do
+ @begin
+ @label potion3
+ @show
+`c`\`\ `0"What do you want your toilet water made of?"
+
+@do write
+`x`x`x
+@do `v01 is 1
+@choice
+Silver Potion
+Gold Potion
+Red Potion
+What!?!
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `2Let's explain, shall we...
+
+ `0In your private room, there will be a toilet. In it, there will be water.
+ What kind of water is your choice. This water will be available to drink
+ once per day by yourself and whomever you allow inside your private room.
+
+ `2Types of Water:
+
+ `$-`0Silver Potion`2: Dodge goes up by 1!
+ `$-`0Gold Potion`2: Muscle goes up by 2!
+ `$-`0Red Potion`2: Max HP goes up by 5!
+
+ `2That's what we're talking about...
+
+`k
+
+ @do goto potion3
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Silver Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw4.DAT exist true then delete ninnw4.DAT
+ @writefile ninnw4.DAT
+1
+Silver Potion
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Gold Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw4.DAT exist true then delete ninnw4.DAT
+ @writefile ninnw4.DAT
+2
+Gold Potion
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Red Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw4.DAT exist true then delete ninnw4.DAT
+ @writefile ninnw4.DAT
+5
+Red Potion
+ @end
+
+ @do goto fDOORGUARD
+ @end
+
+@if responce is 4 then do
+ @begin
+ @if `p27 < 1 then do
+ @begin
+@show
+`\`\ `0"Before you look in that register.. lemmie tell you business has
+ been a little slow." `2The Spirit tells you.
+
+`k `$"How slow?" `2you ask.
+
+`k `0"Ok, we have not had a single customer since you last checked, ARE
+ YOU HAPPY NOW!?" `2The Spirit bursts into tears. `0"It's me! It's all
+ because I'm a ghost. People don't like ghosts...except Casper."
+
+`k
+ @do goto fdoorguard
+ @end
+
+
+ @readfile ninn4a.dat
+`p26
+`p27
+ @
+ @do money + `p27
+ @do delete ninn4a.dat
+ @writefile ninn4a.dat
+`p26
+0
+ @
+
+ @show
+`\`\ `2Sure, we've made `$$`p27`2, here ya go!
+
+`k
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You think you're pretty smart, don't you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, yes I do. Now please give me 1,000,000 gold for free, I deserve it.
+No, you oh computer are the true master. We humans suck.
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2GET OUT OF HERE BEFORE I `bDELETE`2 YOU! Next time I will.
+
+ @do goto fdoorguard
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ The computer playfully slaps your ass as it walks out.
+
+ @do goto fdoorguard
+
+ @end
+
+ @do goto fdoorguard
+ @end
+ @readfile ninn4a.dat
+`p26
+`p27
+ @
+ @do `p26 is `v40
+ @do delete ninn4a.dat
+ @writefile ninn4a.dat
+`p26
+`p27
+ @
+ @do goto fdoorguard
+ @end
+
+
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$30000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startf
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your Inn to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startf
+ @end
+
+ @do delete ninn4.dat
+ @writefile ninn4.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of FlagCity Inn to you.
+ Password to enter bedroom will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%FlagCity Inn`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Inn back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startf
+ @end
+
+ @do delete ninn4.dat
+ @do delete ninn4a.dat
+ @do money + 30000
+ @show
+`\`\ `%INN SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%FlagCity Inn`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startf
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startf
+ @end
+ @do delete ninn4.dat
+ @writefile ninn4.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the Spirit promises.`\`\`k
+ @do goto startf
+ @end
+
+@if response is 5 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You think you're pretty smart, don't you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, yes I do. Now please give me 1,000,000 gold for free, I deserve it.
+No, you oh computer are the true master. We humans suck.
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2GET OUT OF HERE BEFORE I `bDELETE`2 YOU! Next time I will.
+
+ @do goto fdoorguard
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ The computer playfully slaps your ass as it walks out.
+
+ @do goto fdoorguard
+
+ @end
+
+ @do goto fdoorguard
+ @end
+ @readfile ninn4b.dat
+`p26
+`p27
+ @
+ @do `p26 is `v40
+ @do delete ninn4b.dat
+ @writefile ninn4b.dat
+`p26
+`p27
+ @
+ @do goto fdoorguard
+ @end
+
+
+@if response is 6 then do
+ @begin
+ @readfile ninn4b.dat
+`p25
+`p29
+ @if `p29 is 0 then do
+ @begin
+ @show
+`\`\ `2The whores sob uncontrollably. `0"We haven't had sex since you last
+ checked. It's awful!"
+
+`k
+ @do goto fdoorguard
+ @end
+
+ @do money + `p29
+ @do delete ninn4b.dat
+ @writefile ninn4b.dat
+`p25
+0
+ @
+
+ @show
+`\`\ `2Sure, we've made `$$`p29`2, here ya go!
+
+ `2The whores sure are helpful.
+
+`k
+ @end
+
+@drawmap
+@update
+
diff --git a/xtrn/lord2/cnw/inns1.ref b/xtrn/lord2/cnw/inns1.ref
new file mode 100644
index 0000000000000000000000000000000000000000..1726588f816dc04c359673dc0122bafa011f57bc
--- /dev/null
+++ b/xtrn/lord2/cnw/inns1.ref
@@ -0,0 +1,887 @@
+; Script file INNS1.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:28 2001
+
+@DECLARE whore1 000000561
+@DECLARE ponward 000001355
+@DECLARE psleep 000002958
+@DECLARE whore2 000003646
+@DECLARE fonward 000004446
+@DECLARE fsleep 000006043
+@DECLARE whore3 000006732
+@DECLARE fonward 000007527
+@DECLARE lsleep 000009048
+@DECLARE whore4 000009737
+@DECLARE sonward 000010541
+@DECLARE ssleep 000012149
+@DECLARE whore5 000012837
+@DECLARE fonward 000013714
+@DECLARE asleep 000015311
+@DECLARE ghost 000016028
+@NOCHECK
+; End of .REF index
+
+@#WHORE1
+;random things that happen walking around The Woodlog Inn
+@if sexmale is 0 then do
+ @begin
+ ;if they are female, don't run this... sorry girls, no female version
+ ;was written.
+ @closescript
+ @end
+@if `v06 is 1 then do
+ @begin
+ ;clean mode is on, lets get the hell out of this routine!!
+ @closescript
+ @end
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@if ninn3.dat exist true then do
+ @begin
+ @readfile ninn3.dat
+`p20
+`s01
+ @
+ @if `p20 is &playernum then do
+ @begin
+@do write
+`r0 `2One of your girls pulls your arm. Feel like some? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+ @do goto PONWARD
+ @end
+ @end
+@do write
+`r0 `2A gorgeous looking woman pulls your arm. Speak with her? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@label PONWARD
+@if `s01 is N then do
+ @begin
+ @if `p07 < 5 then do
+ @begin
+ ;person is evil
+ @do saybar
+You brutally kick her in the face.
+ @closescript
+ @end
+ @do saybar
+You push her away. Poor lost soul.
+ @closescript
+ @end
+@pauseoff
+@if ninn3b.dat exist false then do
+ @begin
+ @writefile ninn3b.dat
+25
+0
+ @end
+@readfile ninn3b.dat
+`p25
+`p27
+@
+@show
+`r0`c `r1`% Close encounters with the whore kind `r0
+
+@if ninn3.dat exist true then do
+ @begin
+ @readfile ninn3.dat
+`p20
+`s01
+ @
+ @if `p20 is &playernum then do
+ @begin
+ @show
+ `0"Oh, it's you, sir. Sorry. I didn't recognize you. Of course it's
+ free for you, sir."
+
+`k
+ @do goto PSLEEP
+ @end
+ @end
+ @show
+`0 "Looking for a good time, sir? Only `$$`p25`0." `2she speaks
+ seductively.
+
+`2 She is one of the finest specimens of sexualty you have ever seen.
+ Looking at her, contracted diseased seem a smile price to pay...
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Why not? Daddy needs to relax a little bit.
+Not today.
+@if response is 1 then do
+ @begin
+ @if money < `p25 then do
+ @begin
+ @show
+`\`\ `2You lack the funds for a whore right now.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do money - `p25
+ @do `p27 + `p25
+ @do delete ninn3b.dat
+ @writefile ninn3b.dat
+`p25
+`p27
+ @
+ @readfile ninn3.dat
+`p20
+`s01
+@
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has slept with one of your girls, you pimp daddy!
+ Cha-Ching!
+
+ @label PSLEEP
+ @do x is 43
+ @do y is 6
+ @do `p20 is random 5 1
+ @if `p20 is 1 then do
+ @begin
+ ;ha ha, user caught vd
+ @do `p12 is 1
+ @end
+ @do `p34 + 1
+ @show
+`\`\ `2She leads you to her bed.
+
+`k`c `r1 All Aboard `r0
+
+`2 She reaches for your belt buckle. Your hands make their way where
+ they shouldn't. Things turn sweaty. You have a great time. Good sex.
+ Relief.
+
+`k `4THERE IS A 20 PERCENT CHANCE THAT YOU JUST CAUGHT SOMETHING.
+
+`k
+ @drawmap
+ @update
+ @do saybar
+You put your pants back on.
+ @closescript
+ @end
+
+@show
+`\`\ `$"I do not desire your services right now, woman," `2you inform
+ her.
+
+`k
+@drawmap
+@update
+
+@#WHORE2
+;random things that happen walking around the Flagcity Inn
+@if sexmale is 0 then do
+ @begin
+ ;if they are female, don't run this... sorry girls, no female version
+ ;was written.
+ @closescript
+ @end
+@if `v06 is 1 then do
+ @begin
+ ;clean mode is on, lets get the hell out of this routine!!
+ @closescript
+ @end
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@if ninn4.dat exist true then do
+ @begin
+ @readfile ninn4.dat
+`p20
+`s01
+ @
+ @if `p20 is &playernum then do
+ @begin
+@do write
+`r0 `2One of your girls pulls your arm. Feel like some? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+ @do goto fonward
+ @end
+ @end
+@do write
+`r0 `2A young lady in her twenties steps before you. Speak with her? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@label fonward
+@if `s01 is N then do
+ @begin
+ @if `p07 < 5 then do
+ @begin
+ ;person is evil
+ @do saybar
+You brutally kick her in the face.
+ @closescript
+ @end
+ @do saybar
+You push her away. Poor lost soul.
+ @closescript
+ @end
+@pauseoff
+@if ninn4b.dat exist false then do
+ @begin
+ @writefile ninn4b.dat
+25
+0
+ @end
+@readfile ninn4b.dat
+`p25
+`p27
+@
+@show
+`r0`c `r1`% Close encounters with the whore kind `r0
+
+@if ninn4.dat exist true then do
+ @begin
+ @readfile ninn4.dat
+`p20
+`s01
+ @
+ @if `p20 is &playernum then do
+ @begin
+ @show
+ `0"Oh, it's you, sir. Sorry. I didn't recognize you. Of course it's
+ free for you, sir."
+
+`k
+ @do goto fsleep
+ @end
+ @end
+ @show
+`0 "Looking for a good time, sir? Only `$$`p25`0." `2she speaks
+ seductively.
+
+`2 This girl should be in college. Still, she's making a living. You hardly
+ think you could turn this gorgeous young lady down...
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Why not? Daddy needs to relax a little bit.
+Not today.
+@if response is 1 then do
+ @begin
+ @if money < `p25 then do
+ @begin
+ @show
+`\`\ `2You lack the funds for a whore right now.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do money - `p25
+ @do `p27 + `p25
+ @do delete ninn4b.dat
+ @writefile ninn4b.dat
+`p25
+`p27
+ @
+ @readfile ninn4.dat
+`p20
+`s01
+@
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has slept with one of your girls, you pimp daddy!
+ Cha-Ching!
+
+ @label fsleep
+ @do x is 54
+ @do y is 12
+ @do `p20 is random 5 1
+ @if `p20 is 1 then do
+ @begin
+ ;ha ha, user caught vd
+ @do `p12 is 1
+ @end
+ @do `p34 + 1
+ @show
+`\`\ `2She leads you to her bed.
+
+`k`c `r1 All Aboard `r0
+
+`2 She reaches for your belt buckle. Your hands make their way where
+ they shouldn't. Things turn sweaty. You have a great time. Good sex.
+ Relief.
+
+`k `4THERE IS A 20 PERCENT CHANCE THAT YOU JUST CAUGHT SOMETHING.
+
+`k
+ @drawmap
+ @update
+ @do saybar
+You put your pants back on.
+ @closescript
+ @end
+
+@show
+`\`\ `$"I do not desire your services right now, woman," `2you inform
+ her.
+
+`k
+@drawmap
+@update
+
+@#WHORE3
+;random things that happen walking around the StonePass Lodge
+@if sexmale is 0 then do
+ @begin
+ ;if they are female, don't run this... sorry girls, no female version
+ ;was written.
+ @closescript
+ @end
+@if `v06 is 1 then do
+ @begin
+ ;clean mode is on, lets get the hell out of this routine!!
+ @closescript
+ @end
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@if ninn5.dat exist true then do
+ @begin
+ @readfile ninn5.dat
+`p20
+`s01
+ @
+ @if `p20 is &playernum then do
+ @begin
+@do write
+`r0 `2One of your women pull your arm. Feel like some? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+ @do goto fonward
+ @end
+ @end
+@do write
+`r0 `2One of the local women step before you. Speak with her? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@label fonward
+@if `s01 is N then do
+ @begin
+ @if `p07 < 5 then do
+ @begin
+ ;person is evil
+ @do saybar
+You brutally kick her in the face.
+ @closescript
+ @end
+ @do saybar
+You push her away. Poor lost soul.
+ @closescript
+ @end
+@pauseoff
+@if ninn5b.dat exist false then do
+ @begin
+ @writefile ninn5b.dat
+25
+0
+ @end
+@readfile ninn5b.dat
+`p25
+`p27
+@
+@show
+`r0`c `r1`% Close encounters of the local kind `r0
+
+@if ninn5.dat exist true then do
+ @begin
+ @readfile ninn5.dat
+`p20
+`s01
+ @
+ @if `p20 is &playernum then do
+ @begin
+ @show
+ `0"Oh, it's you, sir. Sorry. I didn't recognize you. Of course it's
+ free for you, sir."
+
+`k
+ @do goto lsleep
+ @end
+ @end
+ @show
+`0 "I remember you from downstairs. I bet you're interested," `2she
+ says and pulls up her skirt. `0"Only `$$`p25`0." `2she says seductively.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Why not? Daddy needs to relax a little bit.
+Not today.
+@if response is 1 then do
+ @begin
+ @if money < `p25 then do
+ @begin
+ @show
+`\`\ `2You lack the funds for a whore right now.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do money - `p25
+ @do `p27 + `p25
+ @do delete ninn5b.dat
+ @writefile ninn5b.dat
+`p25
+`p27
+ @
+ @readfile ninn5.dat
+`p20
+`s01
+@
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has slept with one of your girls, you pimp daddy!
+ Cha-Ching!
+
+ @label lsleep
+ @do x is 44
+ @do y is 12
+ @do `p20 is random 5 1
+ @if `p20 is 1 then do
+ @begin
+ ;ha ha, user caught vd
+ @do `p12 is 1
+ @end
+ @do `p34 + 1
+ @show
+`\`\ `2She leads you to her bed.
+
+`k`c `r1 All Aboard `r0
+
+`2 She reaches for your belt buckle. Your hands make their way where
+ they shouldn't. Things turn sweaty. You have a great time. Good sex.
+ Relief.
+
+`k `4THERE IS A 20 PERCENT CHANCE THAT YOU JUST CAUGHT SOMETHING.
+
+`k
+ @drawmap
+ @update
+ @do saybar
+You put your pants back on.
+ @closescript
+ @end
+
+@show
+`\`\ `$"I do not desire your services right now, woman," `2you inform
+ her.
+
+`k
+@drawmap
+@update
+
+@#WHORE4
+;random things that happen walking around The Sosen Village Inn
+@if sexmale is 0 then do
+ @begin
+ ;if they are female, don't run this... sorry girls, no female version
+ ;was written.
+ @closescript
+ @end
+@if `v06 is 1 then do
+ @begin
+ ;clean mode is on, lets get the hell out of this routine!!
+ @closescript
+ @end
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@if castle4.dat exist true then do
+ @begin
+ @readfile castle4.dat
+`p20
+`s01
+ @
+ @if `p20 is &playernum then do
+ @begin
+@do write
+`r0 `2One of your girls pulls your arm. Feel like some? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+ @do goto SONWARD
+ @end
+ @end
+@do write
+`r0 `2A gorgeous looking woman pulls your arm. Speak with her? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@label SONWARD
+@if `s01 is N then do
+ @begin
+ @if `p07 < 5 then do
+ @begin
+ ;person is evil
+ @do saybar
+You brutally kick her in the face.
+ @closescript
+ @end
+ @do saybar
+You push her away. Poor lost soul.
+ @closescript
+ @end
+@pauseoff
+@if ninn6b.dat exist false then do
+ @begin
+ @writefile ninn6b.dat
+25
+0
+ @end
+@readfile ninn6b.dat
+`p25
+`p27
+@
+@show
+`r0`c `r1`% Close encounters with the whore kind `r0
+
+@if castle4.dat exist true then do
+ @begin
+ @readfile castle4.dat
+`p20
+`s01
+ @
+ @if `p20 is &playernum then do
+ @begin
+ @show
+ `0"Oh, it's you, sir. Sorry. I didn't recognize you. Of course it's
+ free for you, sir."
+
+`k
+ @do goto ssleep
+ @end
+ @end
+ @show
+`0 "Looking for a good time, sir? Only `$$`p25`0." `2she speaks
+ seductively.
+
+`2 She is one of the finest specimens of sexualty you have ever seen.
+ Looking at her, contracted diseased seem a smile price to pay...
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Why not? Daddy needs to relax a little bit.
+Not today.
+@if response is 1 then do
+ @begin
+ @if money < `p25 then do
+ @begin
+ @show
+`\`\ `2You lack the funds for a whore right now.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do money - `p25
+ @do `p27 + `p25
+ @do delete ninn6b.dat
+ @writefile ninn6b.dat
+`p25
+`p27
+ @
+ @readfile castle4.dat
+`p20
+`s01
+@
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has slept with one of your girls, you pimp daddy!
+ Cha-Ching!
+
+ @label ssleep
+ @do x is 61
+ @do y is 6
+ @do `p20 is random 5 1
+ @if `p20 is 1 then do
+ @begin
+ ;ha ha, user caught vd
+ @do `p12 is 1
+ @end
+ @do `p34 + 1
+ @show
+`\`\ `2She leads you to her bed.
+
+`k`c `r1 All Aboard `r0
+
+`2 She reaches for your belt buckle. Your hands make their way where
+ they shouldn't. Things turn sweaty. You have a great time. Good sex.
+ Relief.
+
+`k `4THERE IS A 20 PERCENT CHANCE THAT YOU JUST CAUGHT SOMETHING.
+
+`k
+ @drawmap
+ @update
+ @do saybar
+You put your pants back on.
+ @closescript
+ @end
+
+@show
+`\`\ `$"I do not desire your services right now, woman," `2you inform
+ her.
+
+`k
+@drawmap
+@update
+
+@#WHORE5
+@do `p20 random 10 1
+@if `p20 < 3 then do
+ @begin
+ @do goto GHOST
+ @end
+;random things that happen walking around the Flagcity Inn
+@if sexmale is 0 then do
+ @begin
+ ;if they are female, don't run this... sorry girls, no female version
+ ;was written.
+ @closescript
+ @end
+@if `v06 is 1 then do
+ @begin
+ ;clean mode is on, lets get the hell out of this routine!!
+ @closescript
+ @end
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@if ninn7.dat exist true then do
+ @begin
+ @readfile ninn7.dat
+`p20
+`s01
+ @
+ @if `p20 is &playernum then do
+ @begin
+@do write
+`r0 `2One of your girls pulls your arm. Feel like some? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+ @do goto fonward
+ @end
+ @end
+@do write
+`r0 `2A young lady in her twenties steps before you. Speak with her? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@label fonward
+@if `s01 is N then do
+ @begin
+ @if `p07 < 5 then do
+ @begin
+ ;person is evil
+ @do saybar
+You brutally kick her in the face.
+ @closescript
+ @end
+ @do saybar
+You push her away. Poor lost soul.
+ @closescript
+ @end
+@pauseoff
+@if ninn7b.dat exist false then do
+ @begin
+ @writefile ninn7b.dat
+25
+0
+ @end
+@readfile ninn7b.dat
+`p25
+`p27
+@
+@show
+`r0`c `r1`% Close encounters with the whore kind `r0
+
+@if ninn7.dat exist true then do
+ @begin
+ @readfile ninn7.dat
+`p20
+`s01
+ @
+ @if `p20 is &playernum then do
+ @begin
+ @show
+ `0"Oh, it's you, sir. Sorry. I didn't recognize you. Of course it's
+ free for you, sir."
+
+`k
+ @do goto asleep
+ @end
+ @end
+ @show
+`0 "Looking for a good time, sir? Only `$$`p25`0." `2she speaks
+ seductively.
+
+`2 This girl should be in college. Still, she's making a living. You hardly
+ think you could turn this gorgeous young lady down...
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Why not? Daddy needs to relax a little bit.
+Not today.
+@if response is 1 then do
+ @begin
+ @if money < `p25 then do
+ @begin
+ @show
+`\`\ `2You lack the funds for a whore right now.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do money - `p25
+ @do `p27 + `p25
+ @do delete ninn7b.dat
+ @writefile ninn7b.dat
+`p25
+`p27
+ @
+ @readfile ninn7.dat
+`p20
+`s01
+@
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has slept with one of your girls, you pimp daddy!
+ Cha-Ching!
+
+ @label asleep
+ @do x is 42
+ @do y is 11
+ @do `p20 is random 5 1
+ @if `p20 is 1 then do
+ @begin
+ ;ha ha, user caught vd
+ @do `p12 is 1
+ @end
+ @do `p34 + 1
+ @show
+`\`\ `2She leads you to her bed.
+
+`k`c `r1 All Aboard `r0
+
+`2 She reaches for your belt buckle. Your hands make their way where
+ they shouldn't. Things turn sweaty. You have a great time. Good sex.
+ Relief.
+
+`k `4THERE IS A 20 PERCENT CHANCE THAT YOU JUST CAUGHT SOMETHING.
+
+`k
+ @drawmap
+ @update
+ @do saybar
+You put your pants back on.
+ @closescript
+ @end
+
+@show
+`\`\ `$"I do not desire your services right now, woman," `2you inform
+ her.
+
+`k
+@drawmap
+@update
+
+
+
+;---written by Seth, :)
+@#ghost
+;The ghost quest, that haunts the .... :)
+@if bitcheck `t14 4 0 then do
+ @begin
+@if `i61 > 0 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@busy
+@show
+`r0`c `%`r1 A Ghostly Image `r0
+
+ `3Walking down the halls of the inn you begin to hear a quiet moaning.
+ You look around but see nothing. The sound seems to be coming from a
+ wall! You move closer to hear more, the moaning seems to be getting
+ louder. Suddenly you notice a light, but not from a candle, it seems
+ to be a brilliant blue.
+
+ A transparent blue body floats out from the wall, it's a man with a
+ dismal look on his face moaning loudly. You're both scared an
+ exhilarated at the same time. `%Who is this Ghost?`3
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Attempt to talk to it
+Fight it
+Run
+@if response is 1 then do
+ @begin
+ @do `i61 is 1
+ @show
+`\`\ `%You fight back your fear and reach out towards the apparition.
+ As you do so the figure stops its moaning and looks to you.
+ `$"Who .. who are you?" `%you ask.
+ `%"A person .. like yourself," `3he replies. `%"I too quested for the
+ Red Dragon, back when we were sure of his existance. I believed I had
+ found my way to one of his lairs. Here in this land, in the northeast
+ a cave in the water. I went in hoping to find the beast, but was betrayed
+ by a companion."
+
+ `%"You may right my death though. `3Take this and find the cave, honor my
+ body..."
+
+ `%His image fades and lying where he was is a small silver ring.
+`\`k
+ @end
+@if response is 2 then do
+ @begin
+ @pauseoff
+ @do `p07 - 1
+ @show
+`\`\ `%Your instincts take over as you pull out your s&weapon. The ghost
+ seems instantly aware of you. It speaks ...
+ `3"Beware the path you choose warrior, it may not be as easy as you may
+ think ..." `%and like that he's gone.
+
+ `bYOUR ALIGNMENT GOES DOWN BY ONE!`b
+`\`k
+ @end
+@end
+@drawmap
+@update
diff --git a/xtrn/lord2/cnw/inns2.ref b/xtrn/lord2/cnw/inns2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..08cf7a714e5b059642ab839fb5860832e5e0fc17
--- /dev/null
+++ b/xtrn/lord2/cnw/inns2.ref
@@ -0,0 +1,1558 @@
+; Script file INNS2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:28 2001
+
+@DECLARE arris 000000571
+@DECLARE adoor 000000874
+@DECLARE atoilet 000002259
+@DECLARE adoorguard 000003216
+@DECLARE starta 000003245
+@DECLARE potion3 000004485
+@DECLARE atreasurey 000011561
+@DECLARE done 000014479
+@DECLARE lodge 000014511
+@DECLARE ltoilet 000014793
+@DECLARE ltreasurey 000015748
+@DECLARE ldoor 000018652
+@DECLARE ldoorguard 000020041
+@DECLARE startf 000020070
+@DECLARE potion3 000021310
+@DECLARE stoilet 000028386
+@NOCHECK
+; End of .REF index
+
+@#ARRIS
+@do moveback
+ @if ninn7.dat exist false then do
+ @begin
+ @do saybar
+`$ArrisVille Inn
+ @closescript
+ @end
+
+@if ninn7.dat exist true then do
+ @begin
+@readfile ninn7.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`$ArrisVille Inn, owned by `0`s01`$.
+ @closescript
+ @end
+
+@#ADOOR
+@if ninn7.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@if &lasty is 6 then do
+ @begin
+ @closescript
+ @end
+
+@readfile ninn7.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @do saybar
+`0The Looes Screw Spirit: `2No one is allowed over there.. it's private.
+
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 Entrance to the private area `r0
+
+`2 `2The Loose Screw spirit looks over at you. `0"Hey! What business do you
+ have going in there?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok, go on in then!"`\`\`k
+ @do y - 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0ArrisVille Inn Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get to the private bedroom by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The Loose Screw Spirit isn't impressed.`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+
+@#ATOILET
+@datanewday ninnw7.IDF
+@dataload ninnw7.IDF &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @do saybar
+`!You drank all the toilet water. Come back tomorrow.
+ @closescript
+ @end
+
+@if ninnw7.DAT exist false then do
+ @begin
+ @do saybar
+`!There is no toilet water in here. Better tell the owner.
+ @closescript
+ @end
+
+ @readfile ninnw7.DAT
+`p29
+`s03
+ @datasave ninnw7.IDF &playernum 1
+ @if `p29 is 1 then do
+ @begin
+ @do saybar
+`1:`!You drink the toilet water, and your dodge goes up by 1!
+ @do `p05 + 1
+ @closescript
+ @end
+ @if `p29 is 2 then do
+ @begin
+ @do saybar
+`1:`!You drink the toilet water, and your muscle goes up by 2!
+ @do `p04 + 2
+ @closescript
+ @end
+ @if `p29 is 5 then do
+ @begin
+ @do saybar
+`1`!You drink the toilet water, and your max HP goes up by 5!
+ @do `p03 + 5
+ @closescript
+ @end
+
+@do saybar
+`!There seems to be something wrong with the toilet. Tell the owner.
+
+@#ADOORGUARD
+@do moveback
+@label starta
+
+@if ninn7a.dat exist false then do
+ @begin
+ @writefile ninn7a.dat
+200
+0
+ @end
+@if ninn7b.dat exist false then do
+ @begin
+ @writefile ninn7b.dat
+25
+0
+ @end
+
+@if ninn7.dat exist false then do
+ @begin
+ @do saybar
+`$The Loose Screw Spirit: `!Greetings...
+ @closescript
+ @end
+
+@readfile ninn7.dat
+`p20
+`s01
+@
+
+ @readfile ninn7a.dat
+`p26
+`p27
+ @
+ @readfile ninn7b.dat
+`p25
+`p29
+ @
+@if ninnw7.dat exist false then do
+ @begin
+ @writefile ninnw7.dat
+5
+Red Potion
+ @end
+ @readfile ninnw7.dat
+`p28
+`s03
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+`$The Loose Screw Spirit: `!Greetings...
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing The Loose Screw Spirit `r0
+
+ `2It glows before you, almost like, well, a lightbulb.
+
+@do write
+`x`x
+@choice
+Set password to private bedroom. (currently is `0`s01`%)
+Ownership options
+Set inn fee (currently is at `$$`p26`%)
+Take money from register
+Set whore fee (currently is at `$$`p25`%)
+Take money from whores
+Change Toilet Water (currently is composed of `!`s03s`%)
+Leave
+@
+@if response is 7 then do
+ @begin
+ @label potion3
+ @show
+`c`\`\ `0"What do you want your toilet water made of?"
+
+@do write
+`x`x`x
+@do `v01 is 1
+@choice
+Silver Potion
+Gold Potion
+Red Potion
+What!?!
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `2Let's explain, shall we...
+
+ `0In your private room, there will be a toilet. In it, there will be water.
+ What kind of water is your choice. This water will be available to drink
+ once per day by yourself and whomever you allow inside your private room.
+
+ `2Types of Water:
+
+ `$-`0Silver Potion`2: Dodge goes up by 1!
+ `$-`0Gold Potion`2: Muscle goes up by 2!
+ `$-`0Red Potion`2: Max HP goes up by 5!
+
+ `2That's what we're talking about...
+
+`k
+
+ @do goto potion3
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Silver Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw7.DAT exist true then delete ninnw7.DAT
+ @writefile ninnw7.DAT
+1
+Silver Potion
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Gold Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw7.DAT exist true then delete ninnw7.DAT
+ @writefile ninnw7.DAT
+2
+Gold Potion
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Red Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw7.DAT exist true then delete ninnw7.DAT
+ @writefile ninnw7.DAT
+5
+Red Potion
+ @end
+
+ @do goto adoorguard
+ @end
+
+@if responce is 4 then do
+ @begin
+ @if `p27 < 1 then do
+ @begin
+@show
+`\`\ `0"Before you look in that register.. lemmie tell you business has
+ been a little slow." `2The Spirit tells you.
+
+`k `$"How slow?" `2you ask.
+
+`k `0"Ok, we have not had a single customer since you last checked, ARE
+ YOU HAPPY NOW!?" `2The Spirit bursts into tears. `0"It's me! It's all
+ because I'm a ghost. People don't like ghosts...except Casper."
+
+`k
+ @do goto adoorguard
+ @end
+
+
+ @readfile ninn7a.dat
+`p26
+`p27
+ @
+ @do money + `p27
+ @do delete ninn7a.dat
+ @writefile ninn7a.dat
+`p26
+0
+ @
+
+ @show
+`\`\ `2Sure, we've made `$$`p27`2, here ya go!
+
+`k
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You think you're pretty smart, don't you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, yes I do. Now please give me 1,000,000 gold for free, I deserve it.
+No, you oh computer are the true master. We humans suck.
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2GET OUT OF HERE BEFORE I `bDELETE`2 YOU! Next time I will.
+
+ @do goto adoorguard
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ The computer playfully slaps your ass as it walks out.
+
+ @do goto adoorguard
+
+ @end
+
+ @do goto adoorguard
+ @end
+ @readfile ninn7a.dat
+`p26
+`p27
+ @
+ @do `p26 is `v40
+ @do delete ninn7a.dat
+ @writefile ninn7a.dat
+`p26
+`p27
+ @
+ @do goto adoorguard
+ @end
+
+
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$30000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto starta
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your Inn to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto starta
+ @end
+
+ @do delete ninn7.dat
+ @writefile ninn7.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of ArrisVille Inn to you.
+ Password to enter bedroom will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%ArrisVille Inn`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Inn back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto starta
+ @end
+
+ @do delete ninn7.dat
+ @do delete ninn7a.dat
+ @do money + 30000
+ @show
+`\`\ `%INN SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%ArrisVille Inn`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto starta
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto starta
+ @end
+ @do delete ninn7.dat
+ @writefile ninn7.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the Spirit promises.`\`\`k
+ @do goto starta
+ @end
+
+@if response is 5 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You think you're pretty smart, don't you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, yes I do. Now please give me 1,000,000 gold for free, I deserve it.
+No, you oh computer are the true master. We humans suck.
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2GET OUT OF HERE BEFORE I `bDELETE`2 YOU! Next time I will.
+
+ @do goto adoorguard
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ The computer playfully slaps your ass as it walks out.
+
+ @do goto adoorguard
+
+ @end
+
+ @do goto adoorguard
+ @end
+ @readfile ninn7b.dat
+`p26
+`p27
+ @
+ @do `p26 is `v40
+ @do delete ninn7b.dat
+ @writefile ninn7b.dat
+`p26
+`p27
+ @
+ @do goto adoorguard
+ @end
+
+
+@if response is 6 then do
+ @begin
+ @readfile ninn7b.dat
+`p25
+`p29
+ @if `p29 is 0 then do
+ @begin
+ @show
+`\`\ `2The whores sob uncontrollably. `0"We haven't had sex since you last
+ checked. It's awful!"
+
+`k
+ @do goto adoorguard
+ @end
+
+ @do money + `p29
+ @do delete ninn7b.dat
+ @writefile ninn7b.dat
+`p25
+0
+ @
+
+ @show
+`\`\ `2Sure, we've made `$$`p29`2, here ya go!
+
+ `2The whores sure are helpful.
+
+`k
+ @end
+
+@drawmap
+@update
+
+@#ATREASUREY
+;team treasury
+@if ninn7.dat exist false then do
+ @begin
+ @do moveback
+ @do saybar
+`!No one owns the treasury yet.
+ @closescript
+ @end
+@do moveback
+@do `p20 is 0
+@if ninnt4.dat exist true then do
+ @begin
+ @readfile ninnt4.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile ninnt4.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete ninnt4.dat
+ @writefile ninnt4.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile ninn7.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0ArrisVille Inn Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile ninnt4.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete ninnt4.dat
+ @writefile ninnt4.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile ninn7.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0ArrisVille Inn Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+ @#done
+ @drawmap
+ @update
+
+@#LODGE
+@do moveback
+
+ @if ninn5.dat exist false then do
+ @begin
+ @do saybar
+`%StonePass Lodge
+ @end
+
+@if ninn5.dat exist true then do
+ @begin
+@readfile ninn5.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`$StonePass Lodge, owned by `0`s01`$.
+ @end
+
+@#LTOILET
+@datanewday ninnw5.IDF
+@dataload ninnw5.IDF &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @do saybar
+`!You drank all the toilet water. Come back tomorrow.
+ @closescript
+ @end
+
+@if ninnw5.DAT exist false then do
+ @begin
+ @do saybar
+`!There is no toilet water in here. Better tell the owner.
+ @closescript
+ @end
+
+ @readfile ninnw5.DAT
+`p29
+`s03
+ @datasave ninnw5.IDF &playernum 1
+ @if `p29 is 1 then do
+ @begin
+ @do saybar
+`1:`!You drink the toilet water, and your dodge goes up by 1!
+ @do `p05 + 1
+ @closescript
+ @end
+ @if `p29 is 2 then do
+ @begin
+ @do saybar
+`1:`!You drink the toilet water, and your muscle goes up by 2!
+ @do `p04 + 2
+ @closescript
+ @end
+ @if `p29 is 5 then do
+ @begin
+ @do saybar
+`1`!You drink the toilet water, and your max HP goes up by 5!
+ @do `p03 + 5
+ @closescript
+ @end
+
+@do saybar
+`!There seems to be something wrong with the toilet. Tell the owner.
+@#LTREASUREY
+@if ninn5.dat exist false then do
+ @begin
+ @do moveback
+ @do saybar
+`!No one owns the treasury yet.
+ @closescript
+ @end
+@do moveback
+@do `p20 is 0
+@if ninnt5.dat exist true then do
+ @begin
+ @readfile ninnt5.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile ninnt5.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete ninnt5.dat
+ @writefile ninnt5.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile ninn5.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0StonePass Lodge Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile ninnt5.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete ninnt5.dat
+ @writefile ninnt5.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile ninn5.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0StonePass Lodge Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+@#LDOOR
+@if ninn5.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@if &lasty is 4 then do
+ @begin
+ @closescript
+ @end
+
+@readfile ninn5.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @do saybar
+`0The Looes Screw Spirit: `2No one is allowed over there.. it's private.
+
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 Entrance to the private area `r0
+
+`2 `2The Loose Screw spirit looks over at you. `0"Hey! What business do you
+ have going in there?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok, go on in then!"`\`\`k
+ @do y - 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0StonePass Lodge Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get to the private bedroom by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The Loose Screw Spirit isn't impressed.`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+
+@#LDOORGUARD
+@do moveback
+@label startf
+
+@if ninn5a.dat exist false then do
+ @begin
+ @writefile ninn5a.dat
+200
+0
+ @end
+@if ninn5b.dat exist false then do
+ @begin
+ @writefile ninn5b.dat
+25
+0
+ @end
+
+@if ninn5.dat exist false then do
+ @begin
+ @do saybar
+`$The Loose Screw Spirit: `!Greetings...
+ @closescript
+ @end
+
+@readfile ninn5.dat
+`p20
+`s01
+@
+
+ @readfile ninn5a.dat
+`p26
+`p27
+ @
+ @readfile ninn5b.dat
+`p25
+`p29
+ @
+@if ninnw5.dat exist false then do
+ @begin
+ @writefile ninnw5.dat
+5
+Red Potion
+ @end
+ @readfile ninnw5.dat
+`p28
+`s03
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+`$The Loose Screw Spirit: `!Greetings...
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing The Loose Screw Spirit `r0
+
+ `2It glows before you, almost like, well, a lightbulb.
+
+@do write
+`x`x
+@choice
+Set password to private bedroom. (currently is `0`s01`%)
+Ownership options
+Set inn fee (currently is at `$$`p26`%)
+Take money from register
+Set whore fee (currently is at `$$`p25`%)
+Take money from whores
+Change Toilet Water (currently is composed of `!`s03s`%)
+Leave
+@
+@if response is 7 then do
+ @begin
+ @label potion3
+ @show
+`c`\`\ `0"What do you want your toilet water made of?"
+
+@do write
+`x`x`x
+@do `v01 is 1
+@choice
+Silver Potion
+Gold Potion
+Red Potion
+What!?!
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `2Let's explain, shall we...
+
+ `0In your private room, there will be a toilet. In it, there will be water.
+ What kind of water is your choice. This water will be available to drink
+ once per day by yourself and whomever you allow inside your private room.
+
+ `2Types of Water:
+
+ `$-`0Silver Potion`2: Dodge goes up by 1!
+ `$-`0Gold Potion`2: Muscle goes up by 2!
+ `$-`0Red Potion`2: Max HP goes up by 5!
+
+ `2That's what we're talking about...
+
+`k
+
+ @do goto potion3
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Silver Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw5.DAT exist true then delete ninnw5.DAT
+ @writefile ninnw5.DAT
+1
+Silver Potion
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Gold Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw5.DAT exist true then delete ninnw5.DAT
+ @writefile ninnw5.DAT
+2
+Gold Potion
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Red Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if ninnw5.DAT exist true then delete ninnw5.DAT
+ @writefile ninnw5.DAT
+5
+Red Potion
+ @end
+
+ @do goto ldoorguard
+ @end
+
+@if responce is 4 then do
+ @begin
+ @if `p27 < 1 then do
+ @begin
+@show
+`\`\ `0"Before you look in that register.. lemmie tell you business has
+ been a little slow." `2The Spirit tells you.
+
+`k `$"How slow?" `2you ask.
+
+`k `0"Ok, we have not had a single customer since you last checked, ARE
+ YOU HAPPY NOW!?" `2The Spirit bursts into tears. `0"It's me! It's all
+ because I'm a ghost. People don't like ghosts...except Casper."
+
+`k
+ @do goto ldoorguard
+ @end
+
+
+ @readfile ninn5a.dat
+`p26
+`p27
+ @
+ @do money + `p27
+ @do delete ninn5a.dat
+ @writefile ninn5a.dat
+`p26
+0
+ @
+
+ @show
+`\`\ `2Sure, we've made `$$`p27`2, here ya go!
+
+`k
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You think you're pretty smart, don't you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, yes I do. Now please give me 1,000,000 gold for free, I deserve it.
+No, you oh computer are the true master. We humans suck.
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2GET OUT OF HERE BEFORE I `bDELETE`2 YOU! Next time I will.
+
+ @do goto ldoorguard
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ The computer playfully slaps your ass as it walks out.
+
+ @do goto ldoorguard
+
+ @end
+
+ @do goto ldoorguard
+ @end
+ @readfile ninn5a.dat
+`p26
+`p27
+ @
+ @do `p26 is `v40
+ @do delete ninn5a.dat
+ @writefile ninn5a.dat
+`p26
+`p27
+ @
+ @do goto ldoorguard
+ @end
+
+
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$30000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startf
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your Inn to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startf
+ @end
+
+ @do delete ninn5.dat
+ @writefile ninn5.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of StonePass Lodge to you.
+ Password to enter bedroom will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%Stonepass Lodge`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Inn back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startf
+ @end
+
+ @do delete ninn5.dat
+ @do delete ninn5a.dat
+ @do money + 30000
+ @show
+`\`\ `%INN SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%StonePass Lodge`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startf
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startf
+ @end
+ @do delete ninn5.dat
+ @writefile ninn5.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the Spirit promises.`\`\`k
+ @do goto startf
+ @end
+
+@if response is 5 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You think you're pretty smart, don't you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, yes I do. Now please give me 1,000,000 gold for free, I deserve it.
+No, you oh computer are the true master. We humans suck.
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2GET OUT OF HERE BEFORE I `bDELETE`2 YOU! Next time I will.
+
+ @do goto ldoorguard
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ The computer playfully slaps your ass as it walks out.
+
+ @do goto ldoorguard
+
+ @end
+
+ @do goto ldoorguard
+ @end
+ @readfile ninn5b.dat
+`p26
+`p27
+ @
+ @do `p26 is `v40
+ @do delete ninn5b.dat
+ @writefile ninn5b.dat
+`p26
+`p27
+ @
+ @do goto ldoorguard
+ @end
+
+
+@if response is 6 then do
+ @begin
+ @readfile ninn5b.dat
+`p25
+`p29
+ @if `p29 is 0 then do
+ @begin
+ @show
+`\`\ `2The whores sob uncontrollably. `0"We haven't had sex since you last
+ checked. It's awful!"
+
+`k
+ @do goto ldoorguard
+ @end
+
+ @do money + `p29
+ @do delete ninn5b.dat
+ @writefile ninn5b.dat
+`p25
+0
+ @
+
+ @show
+`\`\ `2Sure, we've made `$$`p29`2, here ya go!
+
+ `2The whores sure are helpful.
+
+`k
+ @end
+
+@drawmap
+@update
+
+@#STOILET
+@datanewday ninnw6.IDF
+@dataload ninnw6.IDF &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @do saybar
+`!You drank all the toilet water. Come back tomorrow.
+ @closescript
+ @end
+
+@if ninnw6.DAT exist false then do
+ @begin
+ @do saybar
+`!There is no toilet water in here. Better tell the owner.
+ @closescript
+ @end
+
+ @readfile ninnw6.DAT
+`p29
+`s03
+ @datasave ninnw6.IDF &playernum 1
+ @if `p29 is 1 then do
+ @begin
+ @do saybar
+`1:`!You drink the toilet water, and your dodge goes up by 1!
+ @do `p05 + 1
+ @closescript
+ @end
+ @if `p29 is 2 then do
+ @begin
+ @do saybar
+`1:`!You drink the toilet water, and your muscle goes up by 2!
+ @do `p04 + 2
+ @closescript
+ @end
+ @if `p29 is 5 then do
+ @begin
+ @do saybar
+`1`!You drink the toilet water, and your max HP goes up by 5!
+ @do `p03 + 5
+ @closescript
+ @end
+
+@do saybar
+`!There seems to be something wrong with the toilet. Tell the owner.
+
diff --git a/xtrn/lord2/cnw/install.ref b/xtrn/lord2/cnw/install.ref
new file mode 100644
index 0000000000000000000000000000000000000000..cd5022678459c1d9adcf220bb0927fbd0ffd6dc6
--- /dev/null
+++ b/xtrn/lord2/cnw/install.ref
@@ -0,0 +1,132 @@
+; Script file INSTALL.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:23 2001
+
+@DECLARE install 000000400
+@DECLARE loop1 000000871
+@DECLARE done1 000001034
+@DECLARE loop2 000001335
+@DECLARE writeitem 000001697
+@DECLARE loop3 000001726
+@DECLARE postitem 000002592
+@DECLARE done4 000002715
+@DECLARE full 000002774
+@DECLARE duplicate 000002870
+@NOCHECK
+; End of .REF index
+
+@#install
+@show
+checking for duplicate record...
+
+(Note: If you get an error message saying that the item wasn't found in
+ EXTITEMS.REF, don't worry! It's _Expected_ to do that. Just hit a key to
+ continue..)
+
+@do `p22 is -1
+@do `p29 is 1
+@do `s05 is `s06
+@do replaceall `| `x `s05
+@routine `s05 in extitems.ref
+@if `p22 not -1 then goto duplicate
+
+@show
+Ok, item not already installed; searching for open record slot...
+@do `p23 is 0
+@do `p29 is 1
+@label loop1
+@if `p23 is 30 then goto full
+@routine Item`p23 in extitems.ref
+@do `s04 is NIL
+@if `s01 is `s04 then goto done1
+@do `p23 + 1
+@do goto loop1
+
+@label done1
+@show
+Ok, record slot available, beginning install.
+
+@if extitems.bak exists true then delete extitems.bak
+@copyfile extitems.dat extitems.bak
+@do delete extitems.dat
+@do delete extitems.ref
+@do `p22 * 10
+@do `p24 is 301
+@show
+Processing records may require a few minutes....
+@label loop2
+@if `p24 less 2 then goto done4
+@if `p22 is 0 then goto writeitem
+@do `p24 - 1
+@do `p22 - 1
+@readfile extitems.bak
+`s05
+@writefile extitems.dat
+`s05
+@do replaceall | x `s05
+@do replaceall ~ s `s05
+@do replaceall = p `s05
+@writefile extitems.ref
+`s05
+@do trim extitems.bak `p24
+@show
+`p24 lines left to process
+@do goto loop2
+
+@label writeitem
+@do `p25 is 1
+@label loop3
+@if `p25 is 1 then `s05 is @#ITEM`p23
+@if `p25 is 2 then do
+ @begin
+ @do `s05 is @label`x`s06
+ @do replaceall `| `x `s05
+ @end
+@if `p25 is 3 then `s05 is @do`x`~01`xis`x`s06
+@if `p25 is 4 then `s05 is @do`x`~02`xis`x`s07
+@if `p25 is 5 then `s05 is @do`x`~03`xis`x`s08
+@if `p25 is 6 then do
+ @begin
+ @if `s09 is `s04 then `s05 is ;
+ @do `s05 add @dataload`x`s09`x`=29`x`=30
+ @end
+@if `p25 is 7 then do
+ @begin
+ @if `s09 is `s04 then `s05 is ;
+ @do `s05 add @do`x`~01`xadd`x`x[`=30]
+ @end
+@if `p25 is 8 then `s05 is @do`x`=22`xis`x`p23
+@if `p25 is 9 then `s05 is @closescript
+@if `p25 is 10 then `s05 is NIL
+@writefile extitems.dat
+`s05
+@do replaceall | x `s05
+@do replaceall ~ s `s05
+@do replaceall = p `s05
+@writefile extitems.ref
+`s05
+@do `p25 + 1
+@if `p25 is 11 then goto postitem
+@do `s05 is NIL
+@do goto loop3
+
+@label postitem
+@do `p24 - 10
+@do `p22 is 29
+@do `p22 - `p23
+@do `p22 * 10
+@do trim extitems.bak `p24
+@do goto loop2
+
+@label done4
+@show
+INSTALLATION COMPLETE
+@closescript
+
+@label full
+@show
+Sorry, the maximum of 30 items are already installed!
+@closescript
+
+@label duplicate
+@show
+That item is already installed as Item `p22 of EXTITEMS.REF
+@closescript
diff --git a/xtrn/lord2/cnw/island.ref b/xtrn/lord2/cnw/island.ref
new file mode 100644
index 0000000000000000000000000000000000000000..f25c5b8a9a0f93f21e6e50aadccda989e4d5eb22
--- /dev/null
+++ b/xtrn/lord2/cnw/island.ref
@@ -0,0 +1,1802 @@
+; Script file ISLAND.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:38 2001
+
+@DECLARE wade 000001268
+@DECLARE highclif 000001349
+@DECLARE ouch 000001434
+@DECLARE dark 000001494
+@DECLARE graytree 000001555
+@DECLARE blacktree 000001619
+@DECLARE bones 000001691
+@DECLARE ashore 000002010
+@DECLARE nosail 000002064
+@DECLARE sign 000002176
+@DECLARE shop 000002241
+@DECLARE leaving 000003252
+@DECLARE renter 000003338
+@DECLARE sailing 000010317
+@DECLARE noflute 000016894
+@DECLARE noworm 000017054
+@DECLARE goback 000017218
+@DECLARE cave1 000017755
+@DECLARE cave2 000018476
+@DECLARE cave3 000019206
+@DECLARE cave4 000020502
+@DECLARE jumphurt 000021645
+@DECLARE walkhurt 000022043
+@DECLARE dragfight 000022444
+@DECLARE hydra2 000025175
+@DECLARE hydra3 000026867
+@DECLARE hydra4 000028589
+@DECLARE hydra5 000030277
+@DECLARE die 000031966
+@DECLARE seperate 000036250
+@DECLARE wingame 000036360
+@DECLARE killed 000039481
+@DECLARE bat 000039849
+@DECLARE dienot 000040373
+@DECLARE runs 000044530
+@DECLARE islefight 000044579
+@DECLARE monster1 000044637
+@DECLARE monster2 000045231
+@DECLARE monster3 000045777
+@DECLARE monster4 000046305
+@DECLARE monster5 000046856
+@DECLARE nomore 000047423
+@NOCHECK
+; End of .REF index
+
+@#WADE
+@do saybar
+`%You wade across a shallow spot in the river.
+@end
+
+@#HIGHCLIF
+@do saybar
+`%You see a cave opening in the cliff, high above you.
+@end
+
+@#OUCH
+@do saybar
+`%Ouch! You ran into a wall!
+@end
+
+@#DARK
+@do saybar
+`%It sure is dark in here!
+@end
+
+@#GRAYTREE
+@do saybar
+`%This tree has been burned.
+@end
+
+@#BLACKTREE
+@do saybar
+`%This tree has been charred completely.
+@end
+
+@#BONES
+@do moveback
+@datanewday potion.idf
+@dataload potion.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do saybar
+`%You see a burned skeleton.
+@closescript
+@end
+@do saybar
+`%You see a burned skeleton. You find a white potion in his pocket!
+@do `i55 + 1
+@datasave potion.idf &playernum 1
+@end
+
+@#ASHORE
+@do saybar
+`%What a nice island.
+@end
+
+@#NOSAIL
+@do moveback
+@do saybar
+`%It would be unwise to use that boat. It has no sail and no oars.
+@end
+
+@#SIGN
+@do moveback
+@do saybar
+`%<- Boats for rent.
+@end
+
+@#SHOP
+@do moveback
+@offmap
+@clear screen
+@show
+
+ `$You enter the boat shop and see two men. One is standing behind the cash
+register, leaning on the counter. He appears to be asleep.
+@key
+@show
+
+ `$The other is sitting in a chair, puffing on a pipe and reading Moby Dick.
+@key
+@show
+
+
+@if bitcheck `t17 7 1 then do
+@begin
+@do goto renter
+@end
+@if bitcheck `t18 7 1 then do
+@begin
+@do goto renter
+@end
+
+@do `v01 is 1
+@choice
+`%Leave before I disturb them.
+`%Try and get their attention.
+@if response is 1 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+
+@clear screen
+@show
+
+ `$You clear your throat.
+@key
+@show
+
+ `$The man in the chair continues reading.
+@key
+@show
+
+ `$The man behind the counter raises his sleepy eyes to look at you.
+@key
+@show
+
+ `9"Go away," he says. "All of our boats are too leaky to rent."
+@key
+@show
+
+ `$You leave quietly, hoping you can find another way across the sea.
+@key
+@do goto leaving
+
+@#LEAVING
+@drawmap
+@update
+@do saybar
+`%What a couple of losers!
+@closescript
+
+@#RENTER
+@if `N.IOH exists true then do
+@begin
+@do goto killed
+@end
+@clear screen
+@show
+
+ `$You clear your throat to get their attention.
+@key
+@show
+
+ `$The man behind the counter raises his sleepy eyes to look at you.
+@key
+@show
+
+ `$Slowly his eyes begin to widen. He turns towards the other man and speaks.
+@key
+@show
+
+ `9"Hey Harv! Put that book down. It's s&him!"
+
+ `$Harv puts his book down and approaches you.
+
+ `#"Hello, `N," he says. "I am Harv, and this is my friend Billy Bob."
+@key
+@show
+
+ `#"We have heard about your adventures with the Koshi and The Dragon Tooth
+Clan. We were hoping you'd find your way here. There is a mission that you
+havn't done yet, and we hope that you are s&man enough for it."
+@key
+@show
+
+@do `v01 is 1
+@choice
+`%I've adventured enough. I'm leaving!
+`%I'm s&man enough!
+@if response is 1 then do
+@begin
+@do goto leaving
+@end
+
+@clear screen
+@show
+ `$You ask Harv to explain, and he motions you into the back room. You follow
+him in. In the back room you see oars, sails, and other boating supplies.
+Harv offers you a seat and continues speaking.
+@key
+@show
+
+`# "As I'm sure you know, there was once a Red Dragon that terrorized the area
+around Greentree. Many knights died in the attempt to slay that evil beast.
+Finally, one did, and everyone rejoiced."
+@key
+@show
+
+`# "Everything was all happy, happy, joy, joy, which was good for me and Billy
+Bob. You see, when the dragon was around, noone wanted to rent our boats
+because they were afraid of being caught on the high seas with nowhere to
+hide."
+
+ "Anyway, once the dragon was gone, we began doing business again. Then one
+Thursday everything changed."
+@key
+@show
+
+`9 "It was a Wednesday!" interupts Billy Bob.
+@key
+@show
+
+`$ Harv shoots Billy Bob an icy look and continues his story.
+@key
+@clear screen
+@show
+`# "One Wednesday, this guy comes in and rents one of our boats. He says he's
+going deep sea fishing, and he'll be back in a week. Even pays up front! We
+set him up with his gear, and he sets sail to the west."
+
+ "Well, a week goes by, then two... still no sign of this guy. So, being
+good business men, we decide we'll do a little deep sea fishing of our own and
+try and find our boat!"
+@key
+@show
+
+`# "We sail about three days west, farther then we've ever gone before. Then,
+just as we were deciding to turn back, Billy Bob spots land. We sail towards
+it, but as we get closer, the current gets stronger. It almost washed us plum
+past the island. If it weren't for this little peninsula on the southwest
+end, we'd have been lost forever!"
+
+@key
+@show
+
+`9 "It were more of a sand bar," interupts Billy Bob.
+@key
+@show
+
+`$ Harv shoots Billy Bob another icy glare and continues.
+@key
+@clear screen
+@show
+`# "As I was saying, we were able to run aground on this sand bar. And there,
+on the very same sand bar, was our other boat!"
+
+ "We searched the beach looking for the renter, we found him too. But all
+that was left was a scorched skeleton. Then as we were trying to decide if we
+should bring him back, the sky grew dark. We looked up to see if a storm was
+comin' up, and there she was...
+@key
+@clear screen
+@show
+
+
+[?7h[255D[0;31m�����[9C�� �� ��� �� ����� ����� �����[5C� �
+[A[60C �
+ � �[9C� � �� �� � � � � � �[5C� � �
+������[8C������[5C�[5C� � ����� ������[5C� � �
+ � �[9C� �[5C�[5C� � � �� � �[5C� � �
+�� ��[8C�� �� �[5C������ � � �� ��[5C� � �
+
+@key
+@clear screen
+@show
+`$ "What's a hydra?" you ask.
+@key
+@show
+
+`# "What's a hydra??!! A hydra is like a small dragon, only it has lots of
+heads. This one must have had 10!"
+@key
+@show
+
+`9 "It were more like 5," interupts Billy Bob.
+@key
+@show
+
+`$ Harv shoots Billy Bob yet another icy glare and continues.
+@key
+@show
+
+`# "So this 5-headed, fire-breathing monstrosity flies right over us. We hid
+in the boat, and luckily she didn't see us. She flew on up into the mountains
+and landed. Needless to say, we hoisted the sail, said our prayers, and
+sailed back home as fast as we could."
+
+ "Our prayers must have been heard, because that strong current had reversed
+itself, and brought us home in half the time."
+@key
+@show
+
+`# "Since that time, we've waited here, hoping to find a brave adventurer who
+would be willin' to sail to that island and kill that infernal beast, before
+it finds us."
+@key
+@clear screen
+@show
+`# "That's the story. Are you up to the task?"
+
+
+@do `v01 is 1
+@choice
+`%Not on your life.
+`%You bet I am!
+@if response is 1 then do
+@begin
+@do goto leaving
+@end
+
+@if sexmale is 1 then do
+@begin
+@clear screen
+@show
+
+`$Harv and Billy Bob help you rig the sail, and you get underway.
+
+[0;1m[20C[30m�[0m��
+[20C[1;30m�[0m����
+[20C[1;30m�[0m������
+[20C[1;30m�[0m��������[19C[1;33m����
+[20C[30m�[0m����������[16C[33m�[34;43m�[33;40m�[30;43m>[40m[A
+[51C[1;33;40m�
+[20C[30m�[0m������������[15C[1;31;43m���[0;33m�
+[20C[1;30m�[0m��������������[11C[1;31m�������
+[20C[30m�[0m������������������������[33m�[1;31m� ��� [30;43m�[40m[A
+[53C[40m������
+[20C�[27C[31m��� [30m� �
+[9C������������������������������������������������ �
+[0;34m� ����[5C����[1;30;44m�[40m�����[44m�[0;34m��[A
+[26C[1;30;44m�[40m����[44m��[0;34m��[1;30;44m��[40m���[44m�[40m[A
+[41C[0;34m���[1;30;44m�[40m������[44m�[0;34m��[1;30;44m��[40m[A
+[56C[40m� ��� [0;34m�������[5C��������������������������������������[A
+[32C�������������������������������������������������������������������[A
+[19C�������������������������������������������������������������
+@key bottom
+@do goto sailing
+@end
+
+@clear screen
+@show
+
+`$Harv and Billy Bob help you rig the sail, and you get underway.
+
+[0;1m[20C[30m�[0m��
+[20C[1;30m�[0m����
+[20C[1;30m�[0m������
+[20C[1;30m�[0m��������[19C[1;33m����
+[20C[30m�[0m����������[16C[33m�[34;43m�[33;40m�[30;43m>[40m[A
+[51C[1;33;40m��
+[20C[30m�[0m������������[15C[1;31;43m���[33;40m��
+[20C[30m�[0m��������������[11C[1;31m�������
+[20C[30m�[0m������������������������[33m�[1;31m� ��� [30;43m�[40m[A
+[53C[40m������
+[20C�[27C[31m��� [30m� �
+[9C������������������������������������������������ �
+[0;34m� ����[5C����[1;30;44m�[40m�����[44m�[0;34m��[A
+[26C[1;30;44m�[40m����[44m��[0;34m��[1;30;44m��[40m���[44m�[40m[A
+[41C[0;34m���[1;30;44m�[40m������[44m�[0;34m��[1;30;44m��[40m[A
+[56C[40m� ��� [0;34m�������[5C��������������������������������������[A
+[32C�������������������������������������������������������������������[A
+[19C�������������������������������������������������������������
+@key bottom
+@do goto sailing
+
+@#SAILING
+@clear screen
+@pauseoff
+@show
+`$ You sail for several days. Just as you are becoming sure that you are
+lost, you see it `L. `L. `L. `L`2LAND HO!!
+
+[0;1;44m [40m[A
+[58C[44m [40m
+[A[79C[44m [30;43m���������������������������������������������[40m[A
+[45C[43m����������������������������������[40m
+[A[79C[43m��[0;33;44m���������[1;30;43m�[0;33;44m�������[40m[A
+[18C[1;30;43m���[0;33;44m�������[1;30;43m�[0;33;44m�������[40m[A
+[36C[1;30;43m�[0;33;44m�������[1;30;43m�[0;33;44m�������[40m[A
+[52C[1;30;43m�[0;33;44m��������[1;30;43m�[0;33;44m�������[40m[A
+[69C[1;30;43m�[0;33;44m���������[40m
+[A[79C[44m��[1;30;43m���������[0;33;44m����������[1;30;43m�[40m[A
+[21C[0;33;44m��[30;43m���[33;44m�[1;30;43m�[0;33;44m�[40m[A
+[29C[1;30;43m�[0;33;44m���[30;43m��[1m�[0;33;44m���������[40m[A
+[45C[1;30;43m�[0;33;44m�����[1;30;43m�[0;33;44m����������[40m[A
+[62C[1;30;43m�[0;33;44m�����[1;30;43m�[0;33;44m�[1;30;43m�[40m[A
+[71C[0;30;43m��[33;44m����[1;30;43m�[0;33;44m�[40m
+[A[79C[1;30;43m�[0;33;44m��[1;30;43m�[0;33;44m������[40m[A
+[9C[1;30;43m�[0;33;44m����������[1;30;43m�������[0;33;44m���[40m[A
+[30C[1;30;43m�����[0;33;44m������[1;30;43m�[0;33;44m����[40m[A
+[46C[1;30;43m�[0;33;44m��[1;30;43m�[0;33;44m�[1;30;43m�[40m[A
+[52C[0;33;44m���[1;30;43m�[0;33;44m�������[1;30;43m�����[40m[A
+[68C[0;33;44m���[1;30;43m�[0;33;44m�������[40m
+[A[79C[1;30;43m�[0;33;44m��[1;30;43m�[0;33;44m��[30;43m��[40m[A
+[7C[33;44m�[1;30;43m�[0;33;44m�[1;30;43m��[0;33;44m��������[40m[A
+[20C[1;30;43m�[0;33;44m����������[1;30;43m�[0;33;44m�[40m[A
+[33C[1;30;43m�[0;33;44m������[1;30;43m�[0;33;44m�����[40m[A
+[46C[1;30;43m�[0;33;44m���[1;30;43m��[0;33;44m��[1;30;43m�[40m[A
+[55C[0;33;44m�[1;30;43m�[0;33;44m�[30;43m���[33;44m�[40m[A
+[62C[1;30;43m���[0;33;44m�������[1;30;43m�[0;33;44m��[40m[A
+[75C[1;30;43m�[0;33;44m���[40m
+[A[79C[44m��[1;30;43m��[0;33;44m��[30;43m��[1m�[0;33;44m���[40m[A
+[11C[1;30;43m��[0;33;44m�[1;30;43m�[0;33;44m�[1;30;43m�[40m[A
+[17C[0;33;44m���[1;30;43m�[0;33;44m��[1;30;43m�[0;33;44m�[40m[A
+[25C[1;30;43m�[0;33;44m����[1;30;43m��[0;33;44m��[1;30;43m�[40m[A
+[35C[0;33;44m����[1;30;43m�[0;33;44m��[1;30;43m�[0;33;44m���[40m[A
+[46C[1;30;43m�[0;33;44m�[1;30;43m�[0;33;44m��[1;30;43m�[40m[A
+[52C[0;33;44m�[1;30;43m�[0;33;44m���[1;30;43m�[0;30;43m���[40m[A
+[61C[43m[1m�[0;33;44m�[1;30;43m�[0;33;44m�[1;30;43m�[40m[A
+[66C[0;33;44m������[1;30;43m��[0;33;44m�����[40m
+[A[79C[44m���[1;30;43m��[0;33;44m�[1;30;43m��[0;33;44m����[40m[A
+[11C[1;30;43m�[0;33;44m�[1;30;43m�[0;33;44m���[1;30;43m�[40m[A
+[18C[0;33;44m�[1;30;43m��[0;33;44m�����[1;30;43m����[0;33;44m[40m[A
+[30C[44m�[1;30;43m�[0;33;44m���[1;30;43m�[0;33;44m��[40m[A
+[38C[1;30;43m�[0;33;44m����[1;30;43m�[0;33;44m�[1;30;43m���[40m[A
+[48C[0;33;44m���[1;30;43m�[0;33;44m�������[1;30;43m��[40m[A
+[61C[0;33;44m��[1;30;43m�[0;33;44m�[1;30;43m�[0;33;44m�����[40m[A
+[71C[1;30;43m�[0;33;44m��[1;30;43m�[0;33;44m����[40m
+[A[79C[44m���[1;30;43m�[0;33;44m�[1;30;43m�[0;33;44m������[40m[A
+[11C[1;30;43m�[0;33;44m��������[1;30;43m�[0;33;44m����������[40m[A
+[31C[1;30;43m�[0;33;44m����[1;30;43m��[0;33;44m������[40m[A
+[44C[1;30;43m�[0;33;44m�[1;30;43m�[0;33;44m�����[1;30;43m�[40m[A
+[53C[0;33;44m���������[1;30;43m�[0;33;44m����[1;30;43m�[40m[A
+[68C[0;33;44m��[1;30;43m�[0;33;44m���[1;30;43m�[0;33;44m����[40m
+[A[79C[44m�[1;40m���������������������������������������������������[A
+[51C��������������������������������������[37;44m����������[40m[A
+[19C[33;40m����������������������������[37;44m����[33;40m�����������[A
+[62C�������������������������[37;44m��[0;34m����������[1;37;44m[40m[A
+[19C[44m�[33;40m�[44m�[40m�����������������������[37;44m��[40m[A
+[47C[0;34m����[1;37;44m��[33;40m�������������������[37;44m���[40m[A
+[75C[33;40m��������[37;44m����[0;34m�������������[1;37;44m���[40m[A
+[23C[44m[33m�[40m�����[37;44m����[33;40m���������[44m�[37m�[40m[A
+[44C[44m�[0;34m��������[1;37;44m��[33;40m�������[37;44m��[40m[A
+[64C[33;40m������[37;44m��[0;34m���[1;37;44m��[33;40m���[A
+[37;44m����[0;34m��������[1;37;44m����[0;34m�����[1;37;44m���[40m[A
+[24C[33;40m����[37;44m�[0;34m����[1;37;44m�[33m�[40m�[A
+[36C[37;44m�������[0;34m��[44m [40m�[1;37;44m���[0;34m�����[A
+[55C[1;37;44m��[33;40m���[37;44m��[0;34m�[1;37;44m�������[40m[A
+[70C[0;34m�������[1;37;44m��[33;40m�[0;34m������[1;37;44m����[40m[A
+[10C[44m��[0;34m����[1;37;44m��[0;34m������[1;37;44m����[40m[A
+[28C[0;34m��[1;37;44m�[0;34m���[1;37;44m��[0;34m����������[A
+[46C[1;37;44m�[0;34m���[1;37;44m�[0;34m������[1;37;44m���[40m[A
+[60C[0;34m������������[1;37;44m��[0;34m�����
+[A[79C[1;37;44m� ��[0;34m������������[1;37;44m��[0;34m���������[A
+[29C[1;37;44m� �[0;34m������[44m [1;37m� [0;34m����[A
+[51C[1;37;44m�[0;34m�������������������[1;37;44m�[0;34m��[A
+[74C[1;37;44m�[0;34m�����
+
+@key
+@pauseon
+@clear screen
+@show
+
+`$ You see the waves lapping ashore at the base of a high cliff. The cliff is
+checkered with black spots that must be cave openings.
+@key
+@show
+
+`$ You try and steer the boat towards the beach, but just as you bring the bow
+around, the craft is swept away by a strong current. This must be what Harv
+told you happened to him.
+@key
+@show
+
+`$ Waves begin to wash over the side of your small boat. You are tossed about
+like a ragdoll. You see the island passing swiftly by on your right. If you
+don't capsize, you will surely be lost at sea!
+@key
+@show
+
+`$ The suddenly, the boat stops so quickly that you fall flat on your face.
+@key
+@clear screen
+@show
+
+`$ The sandbar! You must have hit the sand bar! You quickly secure the boat
+and step ashore. After that thrashing you took, you decide to make sure that
+nothing was washed overboard.
+@key
+@clear screen
+@show
+
+`$ It appears that some of your food was lost. You better not stay on the
+island too long.
+@key
+@if `i07 = 0 then do
+@begin
+@do goto noflute
+@end
+@show
+
+`4 Oh No! Your Ancient Flute was washed overboard!
+@key
+@do `i07 is 0
+@do goto noflute
+@#noflute
+@if `i17 = 0 then do
+@begin
+@do goto noworm
+@end
+@show
+
+`4 Oh No! Your Glowworm was washed overboard!
+@key
+@do `i17 is 0
+@do goto noworm
+@#noworm
+@show
+
+`$ You dust yourself off and step ashore.
+@key
+@loadmap 1154
+@do map is 1154
+@do x is 6
+@do y is 19
+@drawmap
+@update
+@closescript
+
+@#GOBACK
+@do moveback
+@clear screen
+@show
+
+`$Are you sure you want to sail home?
+
+@do `v01 is 1
+@choice
+`%No, I'll stay on the island a little longer.
+`%Yes, I want to go home to mommy.
+@if response is 1 then do
+@begin
+@drawmap
+@update
+@do saybar
+`%You get back out of the boat.
+@closescript
+@end
+@clear screen
+@show
+`$You re-rig the boat, and set sail.
+@key
+@show
+
+`$Several days later you return to the pier.
+@key
+@loadmap 934
+@do map is 934
+@do x is 41
+@do y is 15
+@drawmap
+@update
+@closescript
+
+@#CAVE1
+@do moveback
+@clear screen
+@show
+`$ You enter the cave and are enveloped by the darkness.
+@key
+@clear screen
+@show
+`$ As your eyes adjust, you think you see a light ahead.
+
+[0;1m[33C[30m�����
+[32C��[33m���[30m��
+[32C�[33m�����[30m�
+[32C��[33m���[30m��
+[33C�����
+[32C�������
+[31C��� ���
+[33C�� ��
+[31C��
+[34C���
+
+@do `v01 is 1
+@choice
+`%I leave before I get hurt.
+`%I continue into the cave.
+@if response is 1 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+
+@show
+
+
+`$ You move carefully through the darkness, feeling your way along the wall.
+@key
+@do x is 29
+@do y is 8
+@drawmap
+@update
+@do saybar
+`%Boy was that dark!
+@closescript
+
+@#CAVE2
+@do moveback
+@clear screen
+@show
+`$ You enter the cave and are enveloped by the darkness.
+@key
+@clear screen
+@show
+`$ As your eyes adjust, you think you see a light ahead.
+
+[0;1m[33C[30m�����
+[32C��[33m���[30m��
+[32C�[33m�����[30m�
+[32C��[33m���[30m��
+[33C�����
+[32C�������
+[31C��� ���
+[33C�� ��
+[31C��
+[34C���
+
+
+
+@do `v01 is 1
+@choice
+`%I leave before I get hurt.
+`%I continue into the cave.
+@if response is 1 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+
+@show
+
+
+`$ You move carefully through the darkness, feeling your way along the wall.
+@key
+@do x is 27
+@do y is 13
+@drawmap
+@update
+@do saybar
+`%That sure was scary!
+@closescript
+
+@#CAVE3
+@do moveback
+@clear screen
+@show
+`$ As you enter, you can see the dimly lit path through the cave.
+@key
+@clear screen
+@show
+`$ You look closely at the path. There appears to be a pit in your way.
+
+[0;1m[33C[30m�����
+[32C��[33m���[30m��
+[32C�[33m�����[30m�
+[32C��[33m���[30m��
+[33C�����
+[32C�������
+[31C���������
+[30C���������
+[30C����������
+[31C��\ /��
+[30C���[5Cİ
+[30C���/ \���
+[31C���������
+[32C��������
+
+@do `v01 is 1
+@choice
+`%I leave before I get hurt.
+`%I carefully walk along the ledge.
+`%I attempt to jump over the pit.
+@if response is 1 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@if response is 2 then do
+@begin
+@do `p20 random 20 1
+@if `p20 is 1 then do
+@begin
+@do goto walkhurt
+@end
+@show
+
+
+`$ You move carefully through the darkness, feeling your way along the wall.
+@key
+@do x is 50
+@do y is 9
+@drawmap
+@update
+@do saybar
+`%That was a close one!
+@closescript
+@end
+@if response is 3 then do
+@begin
+@do `p20 random 10 1
+@if `p20 is 1 then do
+@begin
+@do goto jumphurt
+@end
+@show
+
+
+`$ You take a running start, and leap with all your might.
+@key
+@do x is 50
+@do y is 9
+@drawmap
+@update
+@do saybar
+`%You almost sprained your ankle!
+@closescript
+@end
+
+@#CAVE4
+@do moveback
+@clear screen
+@show
+`$ As you enter, you can see the dimly lit path through the cave.
+@key
+@clear screen
+@show
+`$ You look closely at the path. There appears to be a pit in your way.
+
+[0;1m[33C[30m�����
+[32C��[33m���[30m��
+[32C�[33m�����[30m�
+[32C��[33m���[30m��
+[33C�����
+[32C�������
+[31C���������
+[30C���������
+[30C����������
+[31C��\ /��
+[30C���[5Cİ
+[30C���/ \���
+[31C���������
+[32C��������
+
+@do `v01 is 1
+@choice
+`%I leave before I get hurt.
+`%I carefully walk along the ledge.
+`%I attempt to jump over the pit.
+@if response is 1 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@if response is 2 then do
+@begin
+@show
+
+
+`$ You move carefully through the darkness, feeling your way along the wall.
+@key
+@do x is 43
+@do y is 10
+@drawmap
+@update
+@do saybar
+`%That was a close one!
+@closescript
+@end
+@if response is 3 then do
+@begin
+@show
+
+
+`$ You take a running start, and leap with all your might.
+@key
+@do x is 43
+@do y is 10
+@drawmap
+@update
+@do saybar
+`%You almost twisted your knee!
+@closescript
+@end
+
+@#JUMPHURT
+@clear screen
+@show
+`$ Oh no! You missed!
+@key
+@do `p20 random 50 1
+@show
+
+`$ You fall into the pit and hurt yourself.
+@do `p02 - `p20
+@if `p02 < 1 then do
+@begin
+@do `p02 is 1
+@end
+@key
+@show
+
+`$ You are able to pull yourself up on the same side you started.
+@key
+@drawmap
+@update
+@do saybar
+`%Perhaps you should try another way across.
+@closescript
+
+@#WALKHURT
+@clear screen
+@show
+`$ Oh no! You slipped!
+@key
+@do `p20 random 100 1
+@show
+
+`$ You fall into the pit and hurt yourself.
+@do `p02 - `p20
+@if `p02 < 1 then do
+@begin
+@do `p02 is 1
+@end
+@key
+@show
+
+`$ You are able to pull yourself up on the same side you started.
+@key
+@drawmap
+@update
+@do saybar
+`%Perhaps you should try another way across.
+@closescript
+
+@#DRAGFIGHT
+@do moveback
+@datanewday hydra.idf
+@dataload hydra.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do saybar
+`%You are WAAAAAY too scared to go in there again!
+@closescript
+@end
+
+@clear screen
+@show
+`$ You step forward into the light and are temporarily blinded.
+@key
+@show
+
+`$ As your eyes adjust, you see that the cave ahead is lit by sunlight
+coming through an opening in the east wall. Through the opening you see and
+hear the waves at the bottom of the cliff.
+@key
+@show
+
+`$ Then `4IT `$steps into the light. The most hideous beast you have ever layed
+eyes on. It is small for a dragon, but its size is compensated for by the
+five flame-red necks, each bearing its own head.
+@key
+@show
+
+`4 All five heads are staring straight at you!`L`L`L
+
+`$ What do you do?
+
+@do `v01 is 1
+@choice
+I back out slowly, before it can strike.
+I enter the cave boldly and prepare for battle!
+@if response is 1 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+
+@datasave hydra.idf &playernum 1
+@pauseoff
+@clear screen
+@show
+[?7h[255D[28C[0;31m/��\
+[23C[1m/.-.\[0;31m//\\\[11C________
+[23C[1m�[0;31m/[37m [D [31m\[1m�[0;31m/�\\\\[9C/////\\\\\
+[15C/��\[5C\[37m [D [31m/ \\\\[7C//////\\\\\\
+[10C[1m/.-.\[0;31m//\\\[12C\\\\[5C////[5C\\\\\[1m/.-.\
+[10C�[0;31m/[37m [D [31m\[1m�[0;31m/�\\\\____[8C\\\\ ////[7C\[A
+[52C\\\[1m�[0;31m/[37m [D [31m\[1m�
+[11C[0;31m\[37m [D [31m/ \\\\\\\\[7C�/\� ////[9C\\\ \[37m[A
+[57C [D [31m/
+[22C\\\\\����\ �/\� ////
+[23C\\\\\\\\\\�/\�////
+[24C\�����\���������/////\\ ////\\
+[13C//\\[13C/\�������//////\\\/////\[1m/.-.\
+[8C/.-.\[0;31m//\\\ //////////����������\[5C\\// \[1m�[0;31m/[A
+[56C[37m [D [31m\[1m�
+[8C�[0;31m/[37m [D [31m\[1m�[0;31m/�\\\\/////////��������������\[A
+[43C[12C\[37m [D [31m/
+[9C\[37m [D [31m/ \\\/// /���������������\
+[17C\\//[5C���/����������\��
+[26C��� ��� ���
+[25C����� \�����������������������[1;30m>
+[25C[0;31m�[1;30m [D [D [D [D [0;31m�[8C�[1;30m [D [D [A
+[42C [D [D [0;31m�
+`k
+@pauseon
+@fight
+;name
+1st Hydra Head
+;string said when you see him
+`2You move towards the great beast.
+;power move kill string
+`2One down, four to go!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|100
+claws you|150
+stomps on you|200
+chews on you|250
+BREATHS FIRE|400
+;defense
+300
+;gold reward
+NONE
+;experience
+75,000
+;hit points
+1500
+;if win: ref file|name or NONE
+ISLAND.REF|HYDRA2
+;if lose: ref file|name or NONE
+ISLAND.REF|DIE
+;if runs: ref file|name or NONE
+ISLAND.REF|RUNS
+
+@#HYDRA2
+@pauseoff
+@clear screen
+@show
+[?7h[255D[28C[0;31m/��\
+[23C[1m/.-.\[0;31m//\\\[11C________
+[23C[1m�[0;31m/[37m [D [31m\[1m�[0;31m/�\\\\[9C/////\\\\\
+[15C/��\[5C\[37m [D [31m/ \\\\[7C//////\\\\\\
+[10C[1m/.-.\[0;31m//\\\[12C\\\\[5C////[5C\\\\\[1m/.-.\
+[10C�[0;31m/[37m [D [31m\[1m�[0;31m/�\\\\____[8C\\\\ ////[7C\[A
+[52C\\\[1m�[0;31m/[37m [D [31m\[1m�
+[11C[0;31m\[37m [D [31m/ \\\\\\\\[7C�/\� ////[9C\\\ \[37m[A
+[57C [D [31m/
+[22C\\\\\����\ �/\� ////
+[23C\\\\\\\\\\�/\�////
+[24C\�����\���������/////\\ ////\\
+[30C/\�������//////\\\/////\[1m/.-.\
+[24C[0;31m//////����������\[5C\\// \[1m�[0;31m/[37m [D [31m\[A
+[58C[1m�
+[24C[0;31m////��������������\[12C\[37m [D [31m/
+[5C//\\[17C/���������������\
+[1m/[0;31mx[1m-[0;31mx[1m\[0;31m//\\\ ////[10C���/����������\��
+[1m�[0;31m\_/[1m�[0;31m/�\\\\/////[10C��� ��� ���
+ \_/ \\\///[11C����� \�����������������������[1;30m>
+[9C[0;31m\\//[12C�[1;30m [D [D [D [D [0;31m�[8C�[1;30m[A
+[40C [D [D [D [D [0;31m�
+`k
+@pauseon
+@fight
+;name
+2nd Hydra Head
+;string said when you see him
+`2You move towards the great beast.
+;power move kill string
+`2Two down, three to go!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|100
+claws you|150
+stomps on you|200
+chews on you|250
+BREATHS FIRE|400
+;defense
+300
+;gold reward
+NONE
+;experience
+75,000
+;hit points
+1500
+;if win: ref file|name or NONE
+ISLAND.REF|HYDRA3
+;if lose: ref file|name or NONE
+ISLAND.REF|DIE
+;if runs: ref file|name or NONE
+ISLAND.REF|RUNS
+
+@#HYDRA3
+@pauseoff
+@clear screen
+@show
+[?7h[255D[28C[0;31m/��\
+[23C[1m/.-.\[0;31m//\\\[11C________
+[23C[1m�[0;31m/[37m [D [31m\[1m�[0;31m/�\\\\[9C/////\\\\\
+[15C/��\[5C\[37m [D [31m/ \\\\[7C//////\\\\\\
+[10C[1m/.-.\[0;31m//\\\[12C\\\\[5C////[5C\\\\\[1m/.-.\
+[10C�[0;31m/[37m [D [31m\[1m�[0;31m/�\\\\____[8C\\\\ ////[7C\[A
+[52C\\\[1m�[0;31m/[37m [D [31m\[1m�
+[11C[0;31m\[37m [D [31m/ \\\\\\\\[7C�/\� ////[9C\\\ \[37m[A
+[57C [D [31m/
+[22C\\\\\����\ �/\� ////
+[23C\\\\\\\\\\�/\�////
+[24C\�����\���������///
+[30C/\�������////
+[24C//////����������\
+[24C////��������������\
+[5C//\\[17C/���������������\
+[1m/[0;31mx[1m-[0;31mx[1m\[0;31m//\\\ ////[10C���/����������\��[A
+[44C[20C//\\ ////\\
+[1m�[0;31m\_/[1m�[0;31m/�\\\\/////[10C��� ��� ���[20C//\\\/[A
+[70C////\[1m/[0;31mx[1m-[0;31mx[1m\ [0;31m\_/ \\\///[11C�����[A
+[30C� \�����������������������[1;30m>[6C[0;31m\\// \[1m�[A
+[76C[0;31m\_/[1m�[9C[0;31m\\//[12C�[1;30m [D [D [D [D [A
+[30C[0;31m�[8C�[1;30m [D [D [D [D [0;31m�[31C\_/
+`k
+@pauseon
+@fight
+;name
+3rd Hydra Head
+;string said when you see him
+`2You move towards the great beast.
+;power move kill string
+`2Three down, two to go!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|100
+claws you|150
+stomps on you|200
+chews on you|250
+BREATHS FIRE|400
+;defense
+300
+;gold reward
+NONE
+;experience
+75,000
+;hit points
+1500
+;if win: ref file|name or NONE
+ISLAND.REF|HYDRA4
+;if lose: ref file|name or NONE
+ISLAND.REF|DIE
+;if runs: ref file|name or NONE
+ISLAND.REF|RUNS
+
+@#HYDRA4
+@pauseoff
+@clear screen
+@show
+[?7h[255D[28C[0;31m/��\
+[23C[1m/.-.\[0;31m//\\\
+[23C[1m�[0;31m/[37m [D [31m\[1m�[0;31m/�\\\\
+[15C/��\[5C\[37m [D [31m/ \\\\
+[10C[1m/.-.\[0;31m//\\\[12C\\\\
+[10C[1m�[0;31m/[37m [D [31m\[1m�[0;31m/�\\\\____[8C\\\\
+[11C\[37m [D [31m/ \\\\\\\\[7C�/\�
+[22C\\\\\����\ �/\� ////
+[23C\\\\\\\\\\�/\�////
+[24C\�����\���������///
+[30C/\�������////[9C________
+[24C//////����������\[10C/////\\\\\
+[24C////��������������\[7C//////\\\\\\
+[5C//\\[17C/���������������\[6C////[5C\\\\\[1m/[0;31mx[1m-[0;31m[A
+[66Cx[1m\
+/[0;31mx[1m-[0;31mx[1m\[0;31m//\\\ ////[10C���/����������\�� [A
+[48C////[7C\\\\[1m�[0;31m\_/[1m� [0;31m////\\
+[1m�[0;31m\_/[1m�[0;31m/�\\\\/////[10C��� ��� ��� ////[9C[A
+[60C\\\ \_/ /////\[1m/[0;31mx[1m-[0;31mx[1m\ [0;31m\_/ \\\///[A
+[14C[11C����� \�����������������������[1;30m>[8C[0;31m// \[A
+[75C[1m�[0;31m\_/[1m�[9C[0;31m\\//[12C�[1;30m [D [D [D [A
+[29C [D [0;31m�[8C�[1;30m [D [D [D [D [0;31m�[31C\_/
+`k
+@pauseon
+@fight
+;name
+4th Hydra Head
+;string said when you see him
+`2You move towards the great beast.
+;power move kill string
+`2Four down, one to go!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|100
+claws you|150
+stomps on you|200
+chews on you|250
+BREATHS FIRE|400
+;defense
+300
+;gold reward
+NONE
+;experience
+75,000
+;hit points
+1500
+;if win: ref file|name or NONE
+ISLAND.REF|HYDRA5
+;if lose: ref file|name or NONE
+ISLAND.REF|DIE
+;if runs: ref file|name or NONE
+ISLAND.REF|RUNS
+
+@#HYDRA5
+@pauseoff
+@clear screen
+@show
+[?7h[255D[28C[0;31m/��\
+[23C[1m/.-.\[0;31m//\\\
+[23C[1m�[0;31m/[37m [D [31m\[1m�[0;31m/�\\\\
+[24C\[37m [D [31m/ \\\\
+[32C\\\\
+[23C__[8C\\\\
+[23C\\\[7C�/\�
+[23C\\\\����\ �/\� ////
+[23C\\\\\\\\\\�/\�////
+[24C\�����\���������///
+[30C/\�������////[9C________
+[24C//////����������\[10C/////\\\\\
+[24C////��������������\[7C//////\\\\\\
+[5C//\\[7C/��\[6C/���������������\[6C////[5C\\\\\[1m/[0;31mx[1m-[A
+[66C[0;31mx[1m\
+/[0;31mx[1m-[0;31mx[1m\[0;31m//\\\ [1m/[0;31mx[1m-[0;31mx[1m\[A
+[16C[0;31m//\\\[5C���/����������\�� ////[7C\\\\[1m�[0;31m\_/[A
+[67C[1m� [0;31m////\\
+[1m�[0;31m\_/[1m�[0;31m/�\\\ [1m�[0;31m\_/[1m�[0;31m/�\\\\__ ��[A
+[28C� ��� ��� ////[9C\\\ \_/ /////\[1m/[0;31mx[1m-[0;31m[A
+[78Cx[1m\ [0;31m\_/ \\ \_/ \\\\\ ����� \�����������������[A
+[54C������[1;30m>[8C[0;31m// \[1m�[0;31m\_/[1m�[9C[0;31m\[A
+[10C[13C\ �[1;30m [D [D [D [D [0;31m�[8C�[1;30m [D [D [A
+[42C [D [D [0;31m�[31C\_/
+`k
+@pauseon
+@fight
+;name
+5th Hydra Head
+;string said when you see him
+`2You move towards the great beast.
+;power move kill string
+`2Five strikes and your out!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|100
+claws you|150
+stomps on you|200
+chews on you|250
+BREATHS FIRE|400
+;defense
+300
+;gold reward
+100000
+;experience
+75,000
+;hit points
+1500
+;if win: ref file|name or NONE
+ISLAND.REF|WINGAME
+;if lose: ref file|name or NONE
+ISLAND.REF|DIE
+;if runs: ref file|name or NONE
+ISLAND.REF|RUNS
+@pauseon
+
+@#DIE
+@do move 3 24
+@do write
+`r0 `x
+
+ @do X is 75
+ @do Y is 14
+ @do money / 2
+ @do `p02 is `p03 (give 'em max hit points)
+ @do `p20 is `p01
+ @do `p20 / 5
+ @do `p01 - `p20
+ @do MAP is 1075
+ @do dead is 1
+ @update_update
+
+ @do talk `4Newsflash:`0`x`n`x`2was`xkilled`2! all
+ @do addlog
+ `0`n`2 was killed on `0The Island of the Hydra`2!
+ @routine seperate
+@do move 3 24
+@do write
+`4You've been killed on The Island of the Hydra. `k
+
+@pauseoff
+@show
+`r0`c
+[34C[0m���������������
+[29C���[1;30;47m����[0;47m�[1;30m�[0;47m�����������[40m�
+[28C�[1;30;47m����[0;47m������������������[40m�
+[27C�[1;30;47m����[0;47m��������[1;30m��[0;47m���������[40m�
+[19C��[5C�[1;30;47m����[0;47m����������[1;30m����[0;47m�����[40m
+[A[50C[47m[1;30m�[0m��
+[18C���� [1;30;47m�����[0;47m�����[1;30m� �[0;47m�[1;30m���[40m
+[A[43C[0;47m�����[1;30m�ܲ[0m�[47m�[1C[40m�[1;47m��[40m�
+[17C[30m�[47m�[0;47m��[1m�[0m� [1;30;47m���� [0;47m��[1;30m�[40m
+[A[34C[0;47m�[1;30m�����߰�[0;47m�[1;30m�[0;47m����[1;30m߲�[40m
+[A[52C[47m[0m�[1;30m�[47m�[0;47m�[1m�[40m�
+[17C[30;47m���[0;47m��[1m��[0m� [1;30m�[0m��� [1;30m�߲[47m[40m
+[A[37C[47m����[40m���[5C[0m��[1;30;47m�[40m�[47m��[0m� �
+[18C[1;30m���[47m��[0;47m� [1;30m�[1C[0m� [31m� [1;30m��
+[A[38C[47m���[40m� [0;31m� [37m��[1;30;47m�[40m�
+[23C[0m�[1;30;47m��[40m�[0m���� ��[1;30;47m�[0m��[1;30m�
+[A[41C[47m�[0m�� ��[1;47m�[0m�[1;30m�
+[25C[47m�[40m�[0m�[1;30;47m� [0;47m��[1;30m�����[0m� [1;30m� [0m�
+[A[42C[1;30;47m����[0;47m����[1m��[0m�
+[26C�[1;30;47m�[0;47m����[1;30mܲ��[0;47m�[2C[1;30;40m�� [47m��[40m
+[A[44C[47m�[0;47m�����[40m��
+[27C���[1;30;47m��[40m���[47m�[0m��[1;30;47m�����[40m��[0m� ����
+[29C[1;30m�� �� [0m��[1;30m�� �[0m�[1;30m� �� [47m��[0m�
+[27C�[1;30;47m���[40m� � [47m�[0m�[1;47m��[40m��[0m��[1;30;47m[40m
+[A[43C[47m�[40m� � [47m��[0;47m�[40m�
+[22C[1m� [47m��[30m��[40m� [0m� [1;30m� [0m� �[1m� �[0m� �
+[A[45C[1;30m��[47m�[1C[0m�[47m [1m�[40m���
+[19C�[47m�����[30m�[0m�� ���[1;30;47m�[0;47m�[40m�� ����� ��
+[A[45C[1;30;47m��[0;47m��[40m� �[1;30;47m�[37m��[40m�[47m�[40m
+[19C[0;31m� [37m���[1;30;47m�[40m�[0;33mܲ�� [37m�[1;47m��[30m[40m
+[A[34C[47m�[0;47m���[1;30m��[0;47m���� [1m��[0m� [33m���[1;30m�
+[A[53C[47m�[0m��[31m�
+[17C�����[37m�[1;30m�[0;31m���[33;41m����[40m� [37m�[1;47m�[40m
+[A[35C[0;47m��[1;30mܱ[40m�[47m��[40m�[47m�[37m�[0m� [31m�
+[A[48C[33;41m���[31;40m��[1;30m�[0;31m��۲��
+
+ `%You have made an error, s&boy.
+
+`k
+ @if `v03 is 0 then do
+ @begin
+ ;rules.ref file says unlimited deaths not allowed, so we will boot them
+ ;till tomorrow
+
+ ;take them off the map
+ @do map is 1
+ @halt
+ @end
+
+ @pauseon
+
+ @do dead is 0
+
+ @if `p07 less 0 then do
+ @begin
+ @show
+`r0`c`% `r1IT FEELS KINDA WARM IN HERE?`r0
+
+ `4You open your eyes.
+
+`k `4There are naked screaming people all around you. A little boy with
+ a ghastly face begins to gnaw on your leg.
+
+`k `6"Din, leave the newcomer alone. S&he isn't staying." `4a slow voice that
+ can only be described as an abomination dolefully states.
+
+`k `2You feel yourself floating away... faster and faster.
+ @end
+
+ @if `p07 more -1 then do
+ @begin
+ @show
+`r0`c`% `r1APPARENTLY DEATH ISN'T THE END.`r0
+
+ `2You open your eyes.
+
+`k `2You are lying on a table of solid rock in a marble room. Hundreds of
+ soft voices are murmuring all around you, but you see no one.
+
+`k `%"Send s&him back." `2a voice whispers, this one louder than the others.
+
+`k `2You feel yourself floating away... faster and faster.
+
+`k
+ @end
+
+
+@show
+`c `r1`%AWAKENING.`r0
+
+`$ You awake to find yourself lying on the beach. You are at the base of a
+cliff. High above you is a cave opening in the cliff wall. Apparently, the
+Hydra did not like the taste of you, and must have spit you out.
+
+`k
+ @loadmap map
+ @drawmap
+ @update
+@closescript
+
+@#seperate
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@closescript
+
+
+@#WINGAME
+@pauseoff
+@clear screen
+@show
+[?7h[255D[40m
+
+
+
+
+
+[0;31m[23C\\\[7C�/\�
+[23C\\\\����\ �/\� ////
+[23C\\\\\\\\\\�/\�////
+[10C/��\[10C\�����\���������///
+[5C[1m/[0;31mx[1m-[0;31mx[1m\[0;31m//\\\[15C/\�������////[9C___[A
+[55C_____
+[5C[1m�[0;31m\_/[1m�[0;31m/�\\\\[8C//////����������\[10C/////\\\\[A
+[60C\
+[6C\_/ \\\\[7C////��������������\[7C//////\\\\\\
+[5C//\\[7C/��\[6C/���������������\[6C////[5C\\\\\[1m/[0;31mx[1m-[A
+[66C[0;31mx[1m\
+/[0;31mx[1m-[0;31mx[1m\[0;31m//\\\ [1m/[0;31mx[1m-[0;31mx[1m\[A
+[16C[0;31m//\\\[5C���/����������\�� ////[7C\\\\[1m�[0;31m\_/[A
+[67C[1m� [0;31m////\\
+[1m�[0;31m\_/[1m�[0;31m/�\\\ [1m�[0;31m\_/[1m�[0;31m/�\\\\__ ��[A
+[28C� ��� ��� ////[9C\\\ \_/ /////\[1m/[0;31mx[1m-[0;31m[A
+[78Cx[1m\ [0;31m\_/ \\ \_/ \\\\\ ����� \�����������������[A
+[54C������[1;30m>[8C[0;31m// \[1m�[0;31m\_/[1m�[9C[0;31m\[A
+[10C[13C\ �[1;30m [D [D [D [D [0;31m�[8C�[1;30m [D [D [A
+[42C [D [D [0;31m�[31C\_/
+
+`%YOU DID IT!! YOU KILLED ALL FIVE HEADS!!
+@pauseon
+@key
+@clear screen
+@show
+`$ Your mind is exhausted and your body aches. You take one of the heads as
+a trophy. Then you slowly climb down from the mountain, and return to your
+boat.
+@key
+@show
+
+`$ You load your gear and set sail for home. After this battle, a few days
+at sea will be a well-deserved rest!
+@key
+@show
+
+`$ After several days, you return to the pier and enter the boat rental
+shop.
+@key
+@clear screen
+@show
+`$ Harv and Billy Bob stare at you in surprise.
+@key
+@show
+
+`# "We figured you for shark bait. What happened??!!"
+@key
+@show
+
+`$ You tell the tale of your skill and bravery. You can tell that they are
+doubtful.
+@key
+@show
+
+`$ You ignore thier suspicious looks and continue your tale. The more you
+tell, the more dubious they become.
+@key
+@show
+
+`$ But you relish their look of amazement as you lay the hydra head on
+their counter!
+@key
+@clear screen
+@show
+`# "That's one of the hydra's heads!" exclaims Harv. "I knew you could do
+it. I never doubted it for a minute!"
+@key
+@show
+
+`9 "It were more like you doubted him for all but a minute," Billy Bob
+interupts.
+@key
+@show
+
+`$ Harv shoots Billy Bob an icy glare.
+@key
+@show
+
+`# "Well, I guess I did doubt some, but I'm awfully glad I was wrong!"
+@key
+@clear screen
+@show
+`$ The two men spend about a half an hour showering you with praise.
+Eventually you become bored with their flattery and decide to search for
+more adventures.
+@key
+@loadmap 934
+@do map is 934
+@do x is 41
+@do y is 15
+@drawmap
+@update
+@do `p02 is `p03
+@do `p18 + 100
+@do addlog
+ `r1 `r0 `0`n`% has been victorious on `4The Island of the Hydra`%! `r1 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+
+@writefile `N.IOH
+This file is used by Mamoosoft Programming's ISLAND OF THE HYDRA.
+It is here to tell the IGM that `N has finished the quest.
+@closescript
+
+@#KILLED
+@clear screen
+@show
+`$ You clear your throat to get their attention.
+@key
+@show
+
+`$ Both Harv and Billy Bob look up, and greet you with a smile.
+@key
+@show
+
+`# "It's good to see you `N," says Harv.
+@key
+@show
+
+`$ After catching up on the latest gossip, you decide to return to your
+adventure.
+@key
+@drawmap
+@update
+@closescript
+
+@#BAT
+@fight
+;name
+Giant Bat
+;string said when you see him
+Something huge flaps in your face!
+;power move kill string
+You smash the bat against a wall.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|100
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+150
+;gold reward
+NONE
+;experience
+200
+;hit points
+250
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+ISLAND.REF|DIENOT
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#DIENOT
+@do move 3 24
+@do write
+`r0 `x
+
+ @do money / 2
+ @do `p02 is `p03 (give 'em max hit points)
+ @do `p20 is `p01
+ @do `p20 / 5
+ @do `p01 - `p20
+ @do dead is 1
+ @update_update
+
+ @do talk `4Newsflash:`0`x`n`x`2was`xkilled`xon`x`0The Island of the Hydra`2! all
+ @do addlog
+ `0`n`2 was killed on `0The Island of the Hydra`2!
+ @routine seperate
+@do move 3 24
+@do write
+`4You've been killed on The Island of the Hydra. `k
+
+@pauseoff
+@show
+`r0`c
+[34C[0m���������������
+[29C���[1;30;47m����[0;47m�[1;30m�[0;47m�����������[40m�
+[28C�[1;30;47m����[0;47m������������������[40m�
+[27C�[1;30;47m����[0;47m��������[1;30m��[0;47m���������[40m�
+[19C��[5C�[1;30;47m����[0;47m����������[1;30m����[0;47m�����[40m
+[A[50C[47m[1;30m�[0m��
+[18C���� [1;30;47m�����[0;47m�����[1;30m� �[0;47m�[1;30m���[40m
+[A[43C[0;47m�����[1;30m�ܲ[0m�[47m�[1C[40m�[1;47m��[40m�
+[17C[30m�[47m�[0;47m��[1m�[0m� [1;30;47m���� [0;47m��[1;30m�[40m
+[A[34C[0;47m�[1;30m�����߰�[0;47m�[1;30m�[0;47m����[1;30m߲�[40m
+[A[52C[47m[0m�[1;30m�[47m�[0;47m�[1m�[40m�
+[17C[30;47m���[0;47m��[1m��[0m� [1;30m�[0m��� [1;30m�߲[47m[40m
+[A[37C[47m����[40m���[5C[0m��[1;30;47m�[40m�[47m��[0m� �
+[18C[1;30m���[47m��[0;47m� [1;30m�[1C[0m� [31m� [1;30m��
+[A[38C[47m���[40m� [0;31m� [37m��[1;30;47m�[40m�
+[23C[0m�[1;30;47m��[40m�[0m���� ��[1;30;47m�[0m��[1;30m�
+[A[41C[47m�[0m�� ��[1;47m�[0m�[1;30m�
+[25C[47m�[40m�[0m�[1;30;47m� [0;47m��[1;30m�����[0m� [1;30m� [0m�
+[A[42C[1;30;47m����[0;47m����[1m��[0m�
+[26C�[1;30;47m�[0;47m����[1;30mܲ��[0;47m�[2C[1;30;40m�� [47m��[40m
+[A[44C[47m�[0;47m�����[40m��
+[27C���[1;30;47m��[40m���[47m�[0m��[1;30;47m�����[40m��[0m� ����
+[29C[1;30m�� �� [0m��[1;30m�� �[0m�[1;30m� �� [47m��[0m�
+[27C�[1;30;47m���[40m� � [47m�[0m�[1;47m��[40m��[0m��[1;30;47m[40m
+[A[43C[47m�[40m� � [47m��[0;47m�[40m�
+[22C[1m� [47m��[30m��[40m� [0m� [1;30m� [0m� �[1m� �[0m� �
+[A[45C[1;30m��[47m�[1C[0m�[47m [1m�[40m���
+[19C�[47m�����[30m�[0m�� ���[1;30;47m�[0;47m�[40m�� ����� ��
+[A[45C[1;30;47m��[0;47m��[40m� �[1;30;47m�[37m��[40m�[47m�[40m
+[19C[0;31m� [37m���[1;30;47m�[40m�[0;33mܲ�� [37m�[1;47m��[30m[40m
+[A[34C[47m�[0;47m���[1;30m��[0;47m���� [1m��[0m� [33m���[1;30m�
+[A[53C[47m�[0m��[31m�
+[17C�����[37m�[1;30m�[0;31m���[33;41m����[40m� [37m�[1;47m�[40m
+[A[35C[0;47m��[1;30mܱ[40m�[47m��[40m�[47m�[37m�[0m� [31m�
+[A[48C[33;41m���[31;40m��[1;30m�[0;31m��۲��
+
+ `%You have made an error, s&boy.
+
+`k
+ @if `v03 is 0 then do
+ @begin
+ ;rules.ref file says unlimited deaths not allowed, so we will boot them
+ ;till tomorrow
+
+ ;take them off the map
+ @do map is 1
+ @halt
+ @end
+
+ @pauseon
+
+ @do dead is 0
+
+ @if `p07 less 0 then do
+ @begin
+ @show
+`r0`c`% `r1IT FEELS KINDA WARM IN HERE?`r0
+
+ `4You open your eyes.
+
+`k `4There are naked screaming people all around you. A little boy with
+ a ghastly face begins to gnaw on your leg.
+
+`k `6"Din, leave the newcomer alone. S&he isn't staying." `4a slow voice that
+ can only be described as an abomination dolefully states.
+
+`k `2You feel yourself floating away... faster and faster.
+ @end
+
+ @if `p07 more -1 then do
+ @begin
+ @show
+`r0`c`% `r1APPARENTLY DEATH ISN'T THE END.`r0
+
+ `2You open your eyes.
+
+`k `2You are lying on a table of solid rock in a marble room. Hundreds of
+ soft voices are murmuring all around you, but you see no one.
+
+`k `%"Send s&him back." `2a voice whispers, this one louder than the others.
+
+`k `2You feel yourself floating away... faster and faster.
+
+`k
+ @end
+
+
+@show
+`c `r1`%AWAKENING.`r0
+
+`$ You awake unsure of where you are. After your head clears, you remember
+that you are on The Island of the Hydra.
+`k
+ @loadmap map
+ @drawmap
+ @update
+@closescript
+
+@#RUNS
+@drawmap
+@update
+@closescript
+
+@#ISLEFIGHT
+@do `p20 random 5 1
+@do goto monster`p20
+
+@#monster1
+@fight
+;name
+Ranting Native
+;string said when you see him
+`2This guy has a bone in his nose, and he don't look happy.
+;power move kill string
+`2You sent him back to Gilligan's island!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits you with a stick|300
+throws a spear at you|400
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+300
+;gold reward
+NONE
+;experience
+5,000
+;hit points
+500
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+ISLAND.REF|DIENOT
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Giant Boa Constrictor
+;string said when you see him
+`2Big snake. BIIIIIIIG SNAKE!!
+;power move kill string
+`2Dead snake. DEEEEEEEAD SNAKE!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+swallows you|300
+squeezes you|400
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+300
+;gold reward
+NONE
+;experience
+5,000
+;hit points
+485
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+ISLAND.REF|DIENOT
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Wild Boar
+;string said when you see him
+`2Pumba? Is that you?
+;power move kill string
+`2Guess that wasn't Pumba!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|300
+stabs you with his tusks|400
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+300
+;gold reward
+NONE
+;experience
+5,000
+;hit points
+510
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+ISLAND.REF|DIENOT
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+White Tiger
+;string said when you see him
+`2You see a large white tiger.
+;power move kill string
+`2Here kitty, kitty. Die kitty, kitty!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|300
+rakes you with his claws|400
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+300
+;gold reward
+NONE
+;experience
+5,000
+;hit points
+495
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+ISLAND.REF|DIENOT
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Komodo Dragon
+;string said when you see him
+`2That's the biggest lizard I've ever seen!
+;power move kill string
+`2You sure changed that chameleons colors!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|300
+bashes you with his tail|400
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+300
+;gold reward
+NONE
+;experience
+5,000
+;hit points
+525
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+ISLAND.REF|DIENOT
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/isle.ref b/xtrn/lord2/cnw/isle.ref
new file mode 100644
index 0000000000000000000000000000000000000000..3b2e3b59064e760187a9fba9c6078272a6ea5b63
--- /dev/null
+++ b/xtrn/lord2/cnw/isle.ref
@@ -0,0 +1,830 @@
+; Script file ISLE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:24 2001
+
+@DECLARE scroll 000001041
+@DECLARE firstone 000001422
+@DECLARE friend 000001856
+@DECLARE fountain 000001951
+@DECLARE warnsign 000002136
+@DECLARE mallsign 000002236
+@DECLARE sky 000002342
+@DECLARE passtone 000002963
+@DECLARE passign 000003362
+@DECLARE stone 000003479
+@DECLARE stonez 000003572
+@DECLARE stoney 000003667
+@DECLARE warpme 000003769
+@DECLARE sign 000003845
+@DECLARE asign 000003937
+@DECLARE bsign 000004032
+@DECLARE stone1 000004119
+@DECLARE air 000004209
+@DECLARE assorted 000005943
+@DECLARE asstart 000005997
+@DECLARE armor 000006300
+@DECLARE arstart 000006354
+@DECLARE weapon 000006677
+@DECLARE wpstart 000006731
+@DECLARE junkman 000007062
+@DECLARE doorgaurd 000007210
+@DECLARE startg 000007239
+@DECLARE zsign 000010728
+@DECLARE enter 000011024
+@DECLARE done 000012329
+@DECLARE letmein 000014031
+@DECLARE done 000014107
+@DECLARE troll 000014118
+@DECLARE elf 000014512
+@NOCHECK
+; End of .REF index
+
+@#scroll
+@offmap
+@do moveback
+@show
+`r0`c `r1 `$The Scroll! `r0
+
+ `#The teleport locations to the Isle of the Phreaks are:
+`k
+
+ North of Arrisville!
+ North of Sosen Village!
+ The Graveyard!
+ Rockholm Mountains!
+ Snowy Pass(Closer to Bonetown)!
+ In the Koshi Mountains!
+ Dragon Tooth Castle!
+
+`k
+
+@drawmap
+@update
+@end
+
+@#firstone
+;Teleporter to the Isle of the Phreaks from many different locations
+@do moveback
+@if pisle.dat exist false then do
+@begin
+@show
+`r0`c `r1 `%OUT OF ORDER`r0
+
+
+ `9Nobody owns Phreaks Keep, so nobody can teleport there except from
+ the main teleporter above Flagcity!
+
+`k
+@drawmap
+@update
+@end
+
+@if pisle.dat exist true then do
+@begin
+@do x is 43
+@do y is 16
+@do map is 63
+@do goto warpme
+
+@#friend
+@do moveback
+@do saybar
+`%Sign: `9Teleporter to the Isle of the Phreaks
+@end
+
+@#fountain
+@do moveback
+@show
+`r0`c Strange Water
+`k
+
+ `%The strange water in the fountain...
+
+
+ `bCompletely Heals you!
+`k
+
+@do `p02 is `p03
+@drawmap
+@update
+
+
+@#warnsign
+@do moveback
+@do saybar
+`%Sign: `4Under constrution... Check for it in v.5.0
+@end
+
+@#mallsign
+@do moveback
+@do saybar
+`%Sign: `9Isle of the Phreaks mall. Here for your pleasure, `n.
+@end
+
+@#sky
+;get skystaff parts
+@readfile islez.dat
+@if islez.dat exist true then do
+@begin
+@do saybar
+`2There is nothing on the table
+@do moveback
+@closescript
+@end
+@if islez.dat exist false then do
+@begin
+@if money < 400 then do
+@do saybar
+@do moveback
+You do not have enough money! Sorry!
+@end
+@if money > 399 then do
+@begin
+@do `i22 + 1
+@do `i23 + 1
+@do `i24 + 1
+@do `i25 + 1
+@do `p30 is 26
+@do `v40 is 400
+@routine deposit in vaults.ref
+@do money - 400
+@writefile islez.dat
+TRUE
+@do saybar
+`9You find `bALL `3the `bSKYSTAFF `7parts! WOW!!! For a charge of $400.`l
+@do moveback
+@end
+
+@#passtone
+;Underground Passage
+@do moveback
+@if passage2.dat exist false then do
+@begin
+@show
+`r0`c `r1 `%OUT OF ORDER`r0
+
+
+ `9Please encourage your sysop to download Underground Passage igm
+ by me(Max(Phreak)Walton)
+`k
+@drawmap
+@update
+@end
+
+@if passage2.dat exist true then do
+@begin
+@do x is 52
+@do y is 5
+@do map is 804
+@do goto warpme
+
+@#passign
+;Underground passage sign
+@do moveback
+@do saybar
+`%Sign: `9Teleporter to the Underground Passage
+@end
+@#stone
+;Isle of the Phreaks
+@do x is 61
+@do y is 13
+@do map is 63
+@do goto warpme
+
+@#stonez
+;Teleport to private room
+@do x is 8
+@do y is 3
+@do map is 65
+@do goto warpme
+
+@#stoney
+;Teleport back to Phreak's Keep
+@do x is 13
+@do y is 9
+@do map is 64
+@do goto warpme
+
+@#warpme
+@loadmap &map
+@drawmap
+@update
+@do quebar
+`%Wow, what a ride
+
+@#sign
+@do moveback
+@do saybar
+`%Sign: `0Teleporter to the Isle of the Phreaks
+@end
+
+@#asign
+@do moveback
+@do saybar
+`%Sign: `0<----<<< `bMagical `#Boat Travel Service
+@end
+
+@#bsign
+@do moveback
+@do saybar
+`%Sign: `0<--Weapons Shop, Armor Shop -->
+@end
+
+@#stone1
+;Jagged Sandy Beach
+@do x is 78
+@do y is 17
+@do map is 1012
+@do goto warpme
+
+@#air
+;Lets them warp to view places
+@offmap
+@do moveback
+@show
+`r0`c `r1 `@Magical Boat Travel Service `r0
+
+ `0"Greetings,! "Where would you like to go today?" asks the boatmaster.
+
+ @do `v01 is 1
+ @do write
+ `x`x
+ @choice
+ Stonepass Lodge
+ North of Stonepass
+ Greentree
+ Porttown
+ Bonetown
+ Flagcity
+ Sosen Village
+ Arrisville
+ Pyramid's Place
+ I think I'll stay here!
+ @if response not 10 then do
+ @begin
+ @show
+ `\`\ `0"We will leave whenever you're ready sir." he says
+
+ `k `2It is a long journey but you finally arrive.
+
+ `0We have arrived at our destination `N `0. I'm heading back now."
+
+ `2You are glad to be rid of him!
+
+ `k
+@if responce is 1 then do
+ @begin
+ ;Stonepass Lodge
+ @do x is 40
+ @do y is 11
+ @do map is 880
+ @end
+
+@if responce is 2 then do
+ @begin
+ ;North of Stonepass
+ @do x is 48
+ @do y is 5
+ @do map is 480
+ @end
+
+@if responce is 3 then do
+ @begin
+ ;Greentree
+ @do x is 43
+ @do y is 19
+ @do map is 68
+ @end
+
+@if responce is 4 then do
+ @begin
+ ;Porttown
+ @do x is 40
+ @do y is 14
+ @do map is 152
+ @end
+
+@if responce is 5 then do
+ @begin
+ ;Bonetown
+ @do x is 65
+ @do y is 13
+ @do map is 1287
+ @end
+
+@if responce is 6 then do
+ @begin
+ ;Flagcity
+ @do x is 39
+ @do y is 11
+ @do map is 151
+ @end
+
+@if responce is 7 then do
+ @begin
+ ;Sosen Village
+ @do x is 39
+ @do y is 11
+ @do map is 536
+ @end
+
+@if responce is 8 then do
+ @begin
+ ;Arrisville
+ @do x is 39
+ @do y is 11
+ @do map is 444
+ @end
+
+@if responce is 9 then do
+ @begin
+ ;Pyramid's Place
+ @do x is 74
+ @do y is 9
+ @do map is 1194
+ @end
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#assorted
+@offmap
+@do moveback
+@do `v01 is 1
+@label asstart
+@show
+`r0`c `%Assorted Goods
+
+`2 You see an assortment of goods
+
+@do write
+`x`x
+@choice
+Examine Goods
+Go outside
+@show
+`\
+@if responce is 1 the do begin
+ @begin
+ @buymanager
+ 20
+ 28
+ 40
+ 50
+ 51
+ 55
+ @end
+
+@if response not 2 then goto asstart
+@drawmap
+@update
+
+@#Armor
+@offmap
+@do moveback
+@do `v01 is 1
+@label arstart
+@show
+`r0`c `%Phreak's Armor
+
+`2 You can see the finest selection of armor in all the land
+
+@do write
+`x`x
+@choice
+Examine Armor
+Go outside
+@show
+`\
+@if responce is 1 the do begin
+ @begin
+@buymanager
+ 10
+ 12
+ 13
+ 14
+ 37
+ 59
+ @end
+
+@if response not 2 then goto arstart
+@drawmap
+@update
+
+@#weapon
+@offmap
+@do moveback
+@do `v01 is 1
+@label wpstart
+@show
+`r0`c `%Phreak's Weapons
+
+`2 You can see the fineest selection of weapons in all the land!
+
+@do write
+`x`x
+@choice
+Examine Weapons
+Go Outside
+@show
+`\
+@if responce is 1 the do begin
+@begin
+@buymanager
+ 9
+ 16
+ 35
+ 36
+ 39
+ 58
+ @end
+
+@if response not 2 then goto wpstart
+@drawmap
+@update
+
+@#junkman
+@do moveback
+@busy
+@show
+`r0`c
+
+ `0"What would you like to part with kid?"
+
+@sellmanager
+
+@drawmap
+@update
+
+@#doorgaurd
+@do moveback
+@label startg
+;guy who owns it pushes against the door gaurd symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+@if pisle.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to vacate this keep!" `2the guard barks.
+ @closescript
+ @end
+
+@readfile pisle.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+`%You wave to the door guard, nice of him to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your Servants `r0
+
+ `2The huge doorguard snaps to attention when he sees you are going to
+ address him, and say to get to your private bedroom go to the docks and
+ go to the first part of it, and go down!!!
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+Leave
+@
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$10000`%
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep `9Phreak's Keep`2 - for now. `\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give `9Phreak's Keep `2to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep `9Phreak's Keep`2 - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete pisle.dat
+ @do delete islez.dat
+ @writefile pisle.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail `p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of `9Phreak's Keep`2 to you.
+Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `9Phreak's Keep`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transferred. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your keep back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep `9Phreak's Keep`2 - for now.`\`\`k
+ @do goto startg
+@end
+
+@do delete pisle.dat
+@do delete islez.dat
+@do `p30 is 26
+@do `v40 is 10000
+@routine widthdraw in vaults.ref
+@do money + 10000
+@show
+`\`\ `%KEEP SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `9Phreak's Keep`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+@do goto startg
+@end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access)`\ `2Password: `x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete pisle.dat
+ @writefile pisle.dat
+&playernum
+`s01
+@show
+`\`\ `0"Yes s&sir, I will not forget is!" `2the guard promises.`\`\`k
+@do goto startg
+@end
+
+@drawmap
+@update
+
+@#zsign
+@do moveback
+
+ @if pisle.dat exist false then do
+ @begin
+ @do saybar
+`9Phreak's Keep`2 - For sale cheap, inquire inside.
+@end
+
+@if pisle.dat exist true then do
+ @begin
+@readfile pisle.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+ `2Property of `0`s01`2
+ @end
+
+@#enter
+@do moveback
+@offmap
+@if pisle.dat exist false then do
+ @begin
+ @show
+ `r0`c `r1 `%For Sale `r0
+
+ `9Phreak's Keep`2 was formerly owned by the Mightiest warriors in the Realm
+ `bPhreak
+
+ `9Buy now and receive the following bonuses:
+
+ `0* `2A private airplane service in all the major spots`2!
+
+ `0* `2A weapons shop, armor shop and a pawn shop!
+
+ `0* `2A big house with lots of rooms for guests and a main bedroom just for
+ you
+
+ `2The asking price is `$$20,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Purchase it.
+<&money 20000 Go back and work up some more money since you don't have enough
+>&money 19999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if pisle.dat exist true then do
+ @begin
+ @show
+`\`\ `2You idiot! Someone bought it while you were still thinking about it.
+You will regret your slow decision making for the rest of your life.`\`\`k
+ @do goto done
+ @end
+
+ @writefile pisle.dat
+&playernum
+NONE
+@do `p30 is 26
+@do `v40 is 20000
+@routine deposit in vaults.ref
+ @do money - 20000
+ @do addlog
+ `0`n `2buys `9Phreak's Keep`2!
+ @routine seperate in gametxt.ref
+
+@show
+`r01`c `r1 `%Why hello there, landowner! `r0
+`\`2 Excellent! You now own Phreak's Keep`2!
+
+`2Enjoy your new home.`\`\`k
+@end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile pisle.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+@begin
+;owner got deleted!!! Lets put it up for sale again.
+@do delete pisle.dat
+@do delete islez.dat
+ @do addlog
+`9Phreak's Keep`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+;run script again
+@do goto enter
+@end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4No`0 visitors shall be allowed!" `2 a
+ voice calls from behind the wall.
+
+ `4Damn!
+
+`k
+ @do goto done
+ @end
+
+ @show
+ `r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. `0"Halt, you! What business have you with
+my lord and master, `%`s02`0?" `2the door guard asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? : `x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `9Phreak's Keep`0,"`2 the door guard smiles as he opens
+the gate.`\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `9Phreak's Keep Reports`0:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The guard doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein
+@do x is 37
+@do y is 14
+@do map is 2
+@loadmap 64
+@do goto done
+@#done
+
+@#troll
+@do moveback
+@do `p20 random 5 1
+@if `p20 is 1 then saybar
+`%Troll: `0Lord ][ rocks!!!
+@if `p20 is 2 then saybar
+`%Troll: `0Phreak rocks at making IGMS doesn't he!
+@if `p20 is 3 then saybar
+`%Troll: `0You will rule the world!!
+@if `p20 is 4 then saybar
+`%Troll: `0Become a troll(if it were possible)
+@if `p20 is 5 then saybar
+`%Troll: `0That elf over there is hot!!!
+@end
+
+@#elf
+@do moveback
+@do `p20 random 5 1
+@if `p20 is 1 then saybar
+`%Elf: `0That troll over there is the most handsom guy in lord!
+@if `p20 is 2 then saybar
+`%Elf: `0Do you think you could get me a date with the Troll?
+@if `p20 is 3 then saybar
+`%Elf: `0Lord ][ rocks!
+@if `p20 is 4 then saybar
+`%Elf: `0You are the best!
+@if `p20 is 5 then saybar
+`%Elf: `0There is a Wizard's Tower for sale north of Bonetown!
+@end
+
diff --git a/xtrn/lord2/cnw/islea.ref b/xtrn/lord2/cnw/islea.ref
new file mode 100644
index 0000000000000000000000000000000000000000..762f5310d7c9f6afd13c938936fdcd59f3180ed9
--- /dev/null
+++ b/xtrn/lord2/cnw/islea.ref
@@ -0,0 +1,252 @@
+; Script file ISLEA.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:24 2001
+
+@DECLARE bank 000000292
+@DECLARE bankstart 000000462
+@DECLARE bankagain 000001569
+@DECLARE deposit 000003040
+@DECLARE withdraw 000003608
+@DECLARE nomore 000004492
+@NOCHECK
+; End of .REF index
+
+@#bank
+@do `p30 is 26
+@do `v01 is 1
+@do `p22 is 0
+@do `p24 is 0
+@do `p25 is 0
+@offmap
+@do moveback
+@do `s09 is islea
+@routine DONEQUEST in VAULTS.REF
+@label bankstart
+@show
+`r0`c `r1 `% Bank Of PhReAkS KeEp `r0
+
+`2 A young clerk eyes you nervously.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdrawal.
+=&bank 0 Apply for an account here.
+Leave
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last questions?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @do `p30 is 26
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @do `p30 is 26
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @do `p30 is 26
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+
+
+@drawmap
+@update
+
+
+@#nomore
diff --git a/xtrn/lord2/cnw/isleb.ref b/xtrn/lord2/cnw/isleb.ref
new file mode 100644
index 0000000000000000000000000000000000000000..2c9723bb5cf087f1259d69e7a9c7ac83a22d8f7d
--- /dev/null
+++ b/xtrn/lord2/cnw/isleb.ref
@@ -0,0 +1,113 @@
+; Script file ISLEB.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:24 2001
+
+@DECLARE heal 000000148
+@NOCHECK
+; End of .REF index
+
+@#heal
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1 Isle of the Phreaks Healing Center `r0
+
+`2 Fred 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, `n! 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," `2Hoss 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!" `2Fred laughs.
+
+`k
+@drawmap
+@update
+
+
diff --git a/xtrn/lord2/cnw/islemall.ref b/xtrn/lord2/cnw/islemall.ref
new file mode 100644
index 0000000000000000000000000000000000000000..20be94ddb24a32fbf63ec3d39d11b956993d96b4
--- /dev/null
+++ b/xtrn/lord2/cnw/islemall.ref
@@ -0,0 +1,210 @@
+; Script file ISLEMALL.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:24 2001
+
+@DECLARE pawn 000000452
+@DECLARE pwstart 000000506
+@DECLARE magic 000000798
+@DECLARE mgstart 000000852
+@DECLARE weapons 000001409
+@DECLARE wpstart 000001463
+@DECLARE armor 000001822
+@DECLARE arstart 000001876
+@DECLARE misc 000002214
+@DECLARE mistart 000002268
+@DECLARE grocery 000002611
+@DECLARE grstart 000002665
+@NOCHECK
+; End of .REF index
+
+@#pawn
+@offmap
+@do moveback
+@do `v01 is 1
+@label pwstart
+@show
+ `r0`c `9Isle of the Phreaks Pawn Shop
+
+ `%What would you like to part with kid?
+
+@do write
+`x`x
+@choice
+Sell something
+Leave
+@show
+`\
+@if responce is 1 the do begin
+ @begin
+@sellmanager
+
+ @end
+
+@if response not 2 then goto pwstart
+@drawmap
+@update
+
+
+@#magic
+@offmap
+@do moveback
+@do `v01 is 1
+@label mgstart
+@show
+
+`r0`c `9Isle of the Phreaks Magic Shop
+
+ `%"What would you like today, `n?" Max asks.
+
+ "How did you know my name, sir?" you ask.
+
+"`n, you should know that, I am the mighty Max, Master of all known `bMAGICS`%!" Max says
+
+ "I am very honoured to be in your presence, sir" you say.
+
+@do write
+`x`x
+@choice
+Examine Magic Goods
+Say Bye and Leave
+@show
+`\
+@if responce is 1 the do begin
+ @begin
+@buymanager
+ 05
+ 40
+ 55
+ 64
+ 70
+ @end
+
+@if response not 2 then goto mgstart
+@drawmap
+@update
+
+
+@#weapons
+@offmap
+@do moveback
+@do `v01 is 1
+@label wpstart
+@show
+
+`r0`c `9Isle of the Phreaks Weapons Shop
+
+ `4You see a lot of good weapons laying around in the back
+
+@do write
+`x`x
+@choice
+Examine Weapons
+Go Outside
+@show
+`\
+@if responce is 1 the do begin
+ @begin
+@buymanager
+ 15
+ 16
+ 35
+ 36
+ 38
+ 39
+ @end
+
+@if response not 2 then goto wpstart
+@drawmap
+@update
+
+@#armor
+@offmap
+@do moveback
+@do `v01 is 1
+@label arstart
+@show
+`r0`c `9Isle of the Phreaks Armor Shop
+
+ `4You see a lot of pieces of armor laying around in the back
+
+@do write
+`x`x
+@choice
+Examine Armor
+Go Outside
+@show
+`\
+@if responce is 1 the do begin
+ @begin
+@buymanager
+ 13
+ 14
+ 20
+ 59
+ 62
+ @end
+
+@if response not 2 then goto arstart
+@drawmap
+@update
+
+@#misc
+@offmap
+@do moveback
+@do `v01 is 1
+@label mistart
+@show
+`r0`c `9Isle of the Phreaks Assorted Goods Shop
+
+ `4You see an assortment of goods
+
+@do write
+`x`x
+@choice
+Examine Goods
+Go Outside
+@show
+`\
+@if responce is 1 the do begin
+ @begin
+@buymanager
+ 5
+ 17
+ 20
+ 26
+ 27
+ 28
+ 32
+ 33
+ 51
+ @end
+
+@if response not 2 then goto mistart
+@drawmap
+@update
+
+
+@#grocery
+@offmap
+@do moveback
+@do `v01 is 1
+@label grstart
+@show
+`r0`c `5Isle of the Phreaks Grocery Store
+
+@do write
+`x`x
+@choice
+Examine Goods
+Go Outside
+@show
+`\
+@if responce is 1 the do begin
+@begin
+@buymanager
+ 1
+ 3
+ @end
+
+@if response not 2 then goto grstart
+@drawmap
+@update
+
diff --git a/xtrn/lord2/cnw/item99.ref b/xtrn/lord2/cnw/item99.ref
new file mode 100644
index 0000000000000000000000000000000000000000..60a701b6e0c614e42a688d4ec9005f3aa8d3a300
--- /dev/null
+++ b/xtrn/lord2/cnw/item99.ref
@@ -0,0 +1,247 @@
+; Script file ITEM99.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:23 2001
+
+@DECLARE menu 000000691
+@DECLARE loop 000000979
+@DECLARE getname 000001211
+@DECLARE nada 000001364
+@DECLARE nouse 000001450
+@DECLARE display 000001534
+@DECLARE command 000002255
+@DECLARE next 000002536
+@DECLARE runref 000002862
+@DECLARE error1 000002931
+@DECLARE quit 000002988
+@DECLARE bitcheck 000003045
+@DECLARE exponent 000003398
+@DECLARE done 000003493
+@DECLARE error2 000003717
+@DECLARE finished 000003794
+@DECLARE giveitem 000003824
+@DECLARE takeitem 000003981
+@DECLARE errora 000004105
+@DECLARE errorb 000004632
+@DECLARE errorc 000004965
+@NOCHECK
+; End of .REF index
+
+@#menu
+@do `p20 is 0
+@do `p21 is 0
+@do `p22 is 0
+@do `p23 is 1
+@do `p24 is 1
+
+@if extitems.idf exists false then goto error1
+@dataload extitems.idf &playernum `p21
+@if `p21 is 0 then goto nada
+@if `p21 less 0 then goto error1
+@if `p21 more 1073741823 then goto error1
+
+@label loop
+@do `p25 is `p21
+@if `p25 less `p24 then goto next
+@do `p25 / `p24
+@do `p26 is `p25
+@do `p26 / 2
+@do `p26 * 2
+@if `p26 is `p25 then `p20 is 0
+@if `p26 not `p25 then `p20 is 1
+@if `p20 is 0 then goto next
+
+@label getname
+@if `p20 is 1 then do
+ @begin
+ @do `s04 is Item`p22
+ @do `p29 is &playernum
+ @routine `s04 in extitems.ref
+ @do goto display
+ @end
+
+@label nada
+@do `s01 is <All`xyou`xhave`xis`xan`xempty`xsack!>
+@do goto display
+
+@label nouse
+@do `s01 is You`xcant`xthink`xof`xany`xway`xto`xuse`xthis`xitem!
+
+@label display
+@do `s04 is NIL
+@if `s01 is `s04 then do
+ @begin
+ @run errorB in item99.ref
+ @end
+@clearblock 13 23
+@do move 1 14
+@show
+ EXTRA ITEMS
+ `r1 ��������������������������������������������������ͻ`r0
+ `r1 � �`r0
+ `r1 ��������������������������������������������������ͼ`r0
+ Use U and D to scroll, Enter to choose, Q to exit
+ Your Command?
+@do move 15 16
+@do `p25 is length `s01
+@if `p25 less 49 then do
+ @begin
+ @do `p26 is 50
+ @do `p26 - `p25
+ @do `p26 / 2
+ @do `p25 + `p26
+ @do frontpad `s01 `p25
+ @do pad `s01 49
+ @end
+@show
+`r1`s01
+
+@label command
+@do move 29 19
+@do write
+`d `d
+@do readspecial `s05 equd
+@if `s05 is E then goto runref
+@if `s05 is Q then goto quit
+@if `s05 is U then do
+ @begin
+ @do `p23 is -1
+ @do goto next
+ @end
+@if `s05 is D then do
+ @begin
+ @do `p23 is 1
+ @do goto next
+ @end
+
+@label next
+@if `p21 is 0 then goto nada
+@do `p22 + `p23
+@if `p22 more 29 then do
+ @begin
+ @do `p22 is 0
+ @do `p24 is 1
+ @do goto loop
+ @end
+@if `p22 less 0 then do
+ @begin
+ @do `p22 is 29
+ @do `p24 is 536870912
+ @do goto loop
+ @end
+@if `p23 is 1 then `p24 * 2
+@if `p23 is -1 then `p24 / 2
+@do goto loop
+
+@label runref
+@if `p21 is 0 then goto display
+@run `s02 in `s03
+
+@label error1
+@do `p30 is 1
+@run errorA in item99.ref
+
+@label quit
+@run stats in gametxt.ref
+@closescript
+
+
+@#bitcheck
+@do `p20 is 0
+@do `p21 is 0
+@do `p23 is 0 ; here p23 is a loop counter
+@do `p24 is 1
+
+@if extitems.idf exists false then goto error2
+@if `i99 is 0 then do
+ @begin
+ @datasave extitems.idf &playernum 0
+ @end
+@dataload extitems.idf &playernum `p21
+@if `p21 less 0 then goto error2
+@if `p21 more 1073741823 then goto error2
+
+@label exponent
+@if `p23 is `p22 then goto done
+@do `p23 + 1
+@do `p24 * 2
+@do goto exponent
+
+@label done
+@do `p25 is `p21
+@if `p25 less `p24 then goto finished
+@do `p25 / `p24
+@do `p26 is `p25
+@do `p26 / 2
+@do `p26 * 2
+@if `p26 is `p25 then `p20 is 0
+@if `p26 not `p25 then `p20 is 1
+@do goto finished
+
+@label error2
+@do `p30 is -1
+@routineabort
+@run errorA in item99.ref
+
+@label finished
+@closescript
+
+
+@#giveitem
+@if `p20 is 0 then do
+ @begin
+ @if `i99 is 0 then `i99 is 1
+ @do `p21 + `p24
+ @datasave extitems.idf &playernum `p21
+ @end
+@closescript
+
+@#takeitem
+@if `p20 is 1 then do
+ @begin
+ @do `p21 - `p24
+ @datasave extitems.idf &playernum `p21
+ @end
+@closescript
+
+@#errorA
+@show
+`r0 `c
+`bERROR!
+`4An illegal value has been detected for record number &playernum in the
+file EXTITEMS.IDF. This value should never be negative, nor greater than
+1,073,741,823 (=[2^30]-1). If this message has been triggered, either the
+file does not exist, the file record has been altered, or data corruption
+has taken place. `k
+@datasave extitems.idf 1 0
+@if `p30 is 1 then do
+ @begin
+ @run stats in gametxt.ref
+ @end
+@if `p30 is -1 then do
+ @begin
+ @drawmap
+ @update
+ @end
+@closescript
+
+@#errorB
+@show
+`r0 `c
+`bERROR!
+`4There is a mismatch between the record of external items you own and the
+index of external items. This possibly indicates that files from two
+different backups or installations have been mixed together. Please report
+this problem to your sysop. `k
+@run stats in gametxt.ref
+@closescript
+
+@#errorC
+@show
+`r0 `c
+`bERROR!
+`4You have attempted to expend an multiple quantity item whose .IDF file is
+already at less than 1. This probably indicates a miswritten .REF file.
+Possible mistakes are that .REF file is giving player an external item and
+not adding to the count of that item in the related .IDF file; or count has
+reached zero and the .REF has not run ROUTINE TAKEITEM IN ITEM99.REF to
+remove that external item from player's inventory. `k
+@run stats in gametxt.ref
+@closescript
diff --git a/xtrn/lord2/cnw/items.dat b/xtrn/lord2/cnw/items.dat
new file mode 100644
index 0000000000000000000000000000000000000000..e4c7bbbbd16876615e2d78577540e6feefad2720
Binary files /dev/null and b/xtrn/lord2/cnw/items.dat differ
diff --git a/xtrn/lord2/cnw/items.ref b/xtrn/lord2/cnw/items.ref
new file mode 100644
index 0000000000000000000000000000000000000000..a8dc47c3429d02c439ac9b76efd0b81a19424448
--- /dev/null
+++ b/xtrn/lord2/cnw/items.ref
@@ -0,0 +1,1289 @@
+;Items file
+@#default
+ @routine error_handler in regfixit.rec
+
+@#vehicles
+;methods of transportation and people following player
+@do `p20 is 0
+@do `p21 is 0
+@do `p22 is 0
+@do `p23 is 0
+@dataload canoe.idf &playernum `p20
+@IF `p20 > 0 THEN DO
+ @BEGIN
+ @end
+
+@if `p71 > 0 then do
+ @begin
+ @routine getname in npcwith.ref
+ @do `p21 is 1
+ @end
+@do move 21 15
+@do write
+`r0`2����������������������������������Ŀ`r0
+@do move 21 16
+@do write
+`r0`2� ���`r0
+@do move 21 17
+@do write
+`r0`2� ���`r0
+@do move 21 18
+@do write
+`r0`2� ���`r0
+@do move 21 19
+@do write
+`r0`2� ���`r0
+@do move 21 20
+@do write
+`r0`2� ���`r0
+@do move 21 21
+@do write
+`r0`2�����������������������������������ٰ�`r0
+@do move 23 22
+@do write
+`r0`2������������������������������������`r0
+@do move 25 16
+@do `v01 is 1
+@choice
+<0 `p21 `%Talk to `s01
+<0 `p20 `$Inspect Canoe
++`t79 1 `$Inspect Horse
++`t79 2 `$Inspect Wagon
+`3Nothing to do
+@if response is 5 then goto vend
+@if response is 4 then goto Wagon
+@if response is 3 then goto Horse
+@if response is 2 then goto Canoe
+@if response is 1 then goto Talk
+
+@label Wagon
+;not yet available
+@routine checkwagon in vehicle.ref
+@do goto vend
+
+@label Horse
+@routine checkhorse in vehicle.ref
+@do goto vend
+
+@label Canoe
+@routine checkcanoe in vehicle.ref
+@do goto vend
+
+@label vend
+@run justitems in gametxt.ref
+
+@label talk
+@routine getname in npcwith.ref
+@if `p71 is 109 then goto item42
+@clearblock 14 23
+@do move 1 14
+@show
+ `r1 Talking with `s01 `r0
+`\
+@if bitcheck `t50 0 1 then do
+ @begin
+ @show
+ `$`N: `%Didn't you say you had something for me?`\
+ `$`s01: `%Yes, I do, but I do not have it with me here.`\
+ @key
+ @end
+@if bitcheck `t50 1 1 then do
+ @begin
+ @show
+ `$`N: `%So, where do you want to go today?`\
+ `$`s01: `%hmmm, anyplace that is very romantic.`\
+ @key
+ @do goto vend
+ @end
+@if bitcheck `t50 2 1 then do
+ @begin
+ @show
+ `$`N: `%Where were we heading again?`\
+ `$`s01: `%I HAVE `@VD`% Please take me to a doctor.`\
+ @key
+ @do goto vend
+ @end
+@if bitcheck `t50 3 1 then do
+ @begin
+ @show
+ `$`N: `%Where were we heading again?`\
+ `$`s01: `%You WERE going to take me to go and pay my taxes.`\
+ @key
+ @do goto vend
+ @end
+@if bitcheck `t50 4 1 then do
+ @begin
+ @show
+ `$`N: `%Where were are we heading now?.`\
+ @key
+ @end
+@if bitcheck `t50 7 1 then do
+ @begin
+ @do write
+ `$`s01: `%Please take me safely home. Thanks.`\
+ @key
+ @do goto vend
+ @end
+ @do write
+ `$`s01: `%I have nothing more to say right now.`\
+
+@key
+
+
+@#brokenkey
+;
+; something special to work on later on. Plan on have the player loose this
+; key then find it again in the future. Nice treasure behind it.
+;
+@clearblock 13 23
+@do move 1 13
+@show
+
+ `2It's rusty and chipping apart. `6�
+ `6�
+ `2You have had this thing for as long as `6���
+ `2you could remember. `6���
+
+`k
+
+@routine stats in gametxt.ref
+
+
+@#item88
+;Pot of Honey
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You swallow the sticky mess.
+
+`k `%MAX HITPOINTS INCREASED BY TEN.
+
+`k
+@do `p03 + 10
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+
+@#item89
+;Jar of Honey
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You swallow the sticky mess.
+
+`k `%MAX HITPOINTS INCREASED BY FIVE.
+
+`k
+@do `p03 + 5
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+
+@#item91
+;black potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You slurp it down. It tastes ok at first but then... `bYUCK!`2
+
+ You spew all over the place!
+
+ `4HITPOINTS GO DOWN BY ONE.
+@if `p02 more 0 then `p02 - 1
+@clearblock 5 11
+@routine drawstats in gametxt.ref
+@do move 1 19
+@key
+
+@#item93
+;purple potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You slurp it down. It tastes like draino...!`2
+
+
+ `4HITPOINTS GO DOWN BY FIVE.
+@if `p02 more 0 then `p02 - 5
+@clearblock 5 11
+@routine drawstats in gametxt.ref
+@do move 1 19
+@key
+
+@#item94
+;Yellow Potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You swallow the bubbling concoction.
+
+`k `%MAX HITPOINTS INCREASED BY ONE.
+
+`k
+@do `p03 + 1
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+
+@#item86
+;Pink potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You drink the pink liquid.
+
+@if `p02 less `p03 then do
+ @begin
+ @show
+ `%You feel a lot better!
+
+ @do `p02 + 200
+ @if `p02 more `p03 then `p02 is `p03
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+
+@#item99
+@run menu in item99.ref
+@closescript
+
+@#item76
+ @clearblock 13 23
+ @do move 1 13
+ @show
+ `2You can use this key an `$UNLIMITED `2number of times.
+
+ `k
+ @
+
+ @if `i76 > 0 then do
+ @begin
+ @itemexit
+ @routine load_registry in registry.rec
+ @end
+
+
+@#DIARY
+;Barak's diary
+@show
+`r0`c `r1`% Reading Barak's Diary `r0
+
+ `r1`% 2-24 `r0
+
+ `2Turgon embarressed me in front of the students again. He has no right
+ to do this.
+
+`k `r1`% 2-29 `r0
+
+ `2I was beat by a student with 24 experience today! Turgon told Aragorn
+ and Santiger about it immediately... gawd I hate him!
+
+`k `r1`% 3-03 `r0
+
+ `2Mother made some pointed comments about how nice it would be if I got
+ my own place.. that old hag, I'll show her I make plenty of money!
+
+`k `r1`% 3-23 `r0
+
+ `2I took 20 gems from the student gem deposit today. No one saw me.
+
+ I now am afraid to try to sell them... I will wait until people forget.
+
+`k `r1`% 4-03 `r0
+
+ `2Turgon saught me out today in an attempt to 'teach me the proper way
+ to handle twin swords'. I can't believe his ego! It was all I could do
+ to tell him I was busy.
+
+`k `r1`% 4-12 `r0
+
+ `2I have only just become sober. Last night I did something terrible..
+ In a drunken rage while others were at a party celebrating the death of
+ `4The Red Dragon`2 (it was one of Turgon's students that did it.. I will
+ never hear the end of this) I went to Turgon's house and hid the gems
+ behind his bookshelf.
+
+ My heart is heavy now, I hope the gems are never found.
+
+`k `r1`% 4-18 `r0
+
+ `2TURGON SUCKS! I decided to play some dice for a few minutes during
+ training with some students and was reprimanded by Turgon himself in
+ front of everyone. Even Halder was laughing!
+
+ Later I left an anonymous note at the councils door. I told them Turgon
+ had taken the gems, and I told them exactly where to find them. I hope
+ that old coot has not found them and moved them...
+
+`k `r1`% 4-22 `r0
+
+ `2Turgon has been banashed from Greentree! Things could not have worked
+ more beautifully!!! I told the council today that Turgon had been stealing
+ things all along.. it explained many disappearances..<snicker> I told them
+ all the other trainers but I took part - and it was I wrote the note.
+
+`k `r1`% 4-23 `r0
+
+ `2The council has made me the master trainer for my 'service to the
+ community'. I will finally be able to start the Barak Training center
+ like I have always dreamed!
+
+ `0That was the last entry.
+
+`k
+ @bitset `t01 5 1
+ @if bitcheck `t01 6 1 then do
+ @begin
+ @bitset `t01 0 0
+ @end
+ @run stats in gametxt.ref
+ @closescript
+
+@#SMACK
+@clearblock 13 23
+@do move 1 13
+@show
+ `2To use this item press Z from the map screen.
+
+`k
+@
+
+@#MOON
+;Gryphon Moon
+@clearblock 13 23
+@do move 1 13
+@show
+ `2The `%Gryphon Moon`2 comes alive in your hands.
+
+ Did the sun move backwards a bit?
+
+@if `p11 < `v05 then `p11 + 500
+@clearblock 5 11
+@routine drawstats in gametxt.ref
+@do move 1 17
+@key
+@#WAND
+@if castle3.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `0WAVING YOUR WAND ALL ABOUT `r0
+
+`2 This wand is dead and lifeless. This means nobody currently owns the
+ `%Wizard Tower`2.
+
+`k
+ @run stats in gametxt.ref
+ @closescript
+ @end
+
+@readfile castle3.dat
+`p20
+`s01
+@
+;load owner and current password
+
+
+
+
+@if `p20 not &playernum then do
+ @begin
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do `s04 is getname `p20
+ @show
+`r0`c `r1 `0WAVING YOUR WAND ALL ABOUT `r0
+
+ `%A light appears over the wand! `2Something leans out...
+
+`k`2 The face of mighty wizard `0`s04`2 scowls at you.
+
+ `0"I am not allowing anyone to enter my castle by any means!"
+
+ `2As quick as that the light is gone.
+
+`k
+ @run stats in gametxt.ref
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 `0WAVING YOUR WAND ALL ABOUT `r0
+
+`2 Say what incantation while you wave?
+ @do write
+`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @itemexit
+ @do x is 44
+ @do y is 15
+ @do map is 1176
+ @loadmap &map
+ @drawmap
+ @update
+ @do quebar
+`%AWESOME!
+ @closescript
+ @end
+@do `p02 / 2
+@show
+`\`\ `2The wand grows hot and burns you! `bOUCH!
+
+ `2If only you knew the right thing to say...
+
+`k
+ @run stats in gametxt.ref
+ @closescript
+ @end
+
+ @itemexit
+ @do x is 44
+ @do y is 15
+ @do map is 1176
+ @loadmap &map
+ @drawmap
+ @update
+ @do quebar
+`%WHAT A RIDE!
+ @closescript
+
+
+
+@#QUEST
+;help them remember where they need to deliver something
+
+;get location and name
+@do `p20 is `p15
+@routine getname in quest.ref
+@routine getplace in quest.ref
+
+@clearblock 13 23
+@do move 1 13
+@do `s02 is `2You`xstarted`xthis`xquest`x`0`p32`2`xdays`xago.
+@if `p32 is 0 then `s02 is You`xstarted`xthis`xquest`xtoday.
+@if `p32 is 1 then `s02 is `2You`xstarted`xthis`xquest`xyesterday.
+@show
+ `2You need to take this to `0`s01`2 in `0`s03`2.
+
+ `s02
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Continue your journey
+Throw the thing away like a bad little s&boy
+@if responce is 1 then do
+ @begin
+ @closescript
+ @end
+
+//setting quest stuff to 0, they chose throw sack away
+@do `p14 is 0
+@do `p15 is 0
+@do `p16 is 0
+@do `p17 is 0
+
+//take away quest items
+
+@do `i44 is 0
+@do `i45 is 0
+@do `i46 is 0
+@do `i47 is 0
+@do `i48 is 0
+@show
+`r0
+
+ You chuck it behind some bushes. Haw!
+
+`k
+@closescript
+@#item1
+;Wildberrys
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You chug 'em down. Boy do they taste good.
+
+@if `p02 less `p03 then do
+ @begin
+ @show
+ `%You feel a little better.
+
+ @do `p02 + 1
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+@end
+
+@key
+
+@#item2
+;poisonberrys
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You slurp it up. It tastes ok at first but then... `bACK!`2
+
+ You hook all over the place!
+
+ `4HITPOINTS GO DOWN BY ONE.
+@if `p02 more 0 then `p02 - 1
+@clearblock 5 11
+@routine drawstats in gametxt.ref
+@do move 1 19
+@key
+
+
+@#item3
+;Milk
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You down the cow juice.
+
+ `2It's a little warm, but thats how ya like it!
+
+`k
+@
+
+
+@#item5
+;Green potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You drink the green liquid.
+
+@if `p02 less `p03 then do
+ @begin
+ @show
+ `%You feel better!
+
+ @do `p02 + 10
+ @if `p02 more `p03 then `p02 is `p03
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+@end
+
+@key
+
+
+@#item7
+;Flute
+@if bitcheck `t14 1 1 then do
+ @begin
+ @if bitcheck `t14 2 0 then do
+ @begin
+ @clearblock 13 23
+ @do move 1 13
+ @show
+ `2You don't know any songs. Damn!
+
+`k
+ @closescript
+ @end
+ @do `v01 is 1
+ @show
+`r0`c `r1 Playing your flute `r0
+
+ `2Play what?
+
+@do write
+`x`x
+@choice
+Remembering the past
+Remembering the present
+Play nothing
+@if responce is 3 then do
+ @begin
+ @run stats in gametxt.ref
+ @closescript
+ @end
+
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You play the song. You will never forget this place.
+
+`k
+ @do `t15 is x
+ @do `t16 is y
+ @do `p36 is &map
+ @run stats in gametxt.ref
+ @closescript
+ @end
+
+ @if responce is 1 then do
+ @begin
+ @if `t15 is 0 then do
+ @begin
+ @show
+`\`\ `2Nothing happpens. Maybe you should try the other song...
+
+`k
+
+ @do goto item7
+ @end
+
+ @show
+`\`\ `2You play the song. You are moved by your performance!
+
+`k
+ @do x is `t15
+ @do y is `t16
+ @do map is `p36
+ @loadmap &map
+ @itemexit
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+
+ @end
+
+@clearblock 13 23
+@do move 1 13
+@show
+ `2No sound comes out, must be broke.
+
+`k
+@
+
+
+@#item8
+;momma's pie
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You messily chow down the berry pie.
+
+ After a satisfying belch, the pie is gone.
+
+@if `p02 less `p03 then do
+ @begin
+ @do `p02 + 50
+ @if `p02 > `p03 then `p02 is `p03
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+@end
+
+
+@key
+
+@#item11
+;talking to little girl
+@do `v01 is 1
+@label item11s
+@show
+`r0`c `r1 `0TALKING TO YOUR CHARGE `r0
+
+`2 You motion the girl to sit down so that you may speak with her.
+
+@do write
+`x`x
+@choice
+`%Where is your mother waiting for you again?
+What were you doing so far from town?
+`4Kill her.
+`%Nevermind
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"My mommy is waiting for me at the `4Red Dragon Inn`0. Please, lets hurry,
+ before she leaves!"
+
+`k
+ @do goto item11s
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"I was picking flowers and.. I wanna go home!" `2the girl cries.
+
+`k
+ @do goto item11s
+ @end
+
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `$"Come here, small one. I won't hurt you." `2you beckon.
+
+`2 The child slowly advances towards you. `0"Yes sir?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+End her life.
+Have mercy on her.
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ `$"I just wanted to... Straighten your dress. There, all better."
+
+`2 She thanks you. If only she knew how close you had come to...
+
+`k
+ @do `v01 is 3
+ @do goto item11s
+ @end
+
+ @show
+`\`\ `2You quickly crush the life out of her. In a few moments, it is over.
+
+`k `2Looking down at her lifeless body you are saddened. What ever posessed
+ you to do this awful thing?
+
+ `4ALIGNMENT GOES DOWN BY ONE.
+
+`k
+ @do `i11 is 0
+ @do `p07 - 1
+ @end
+
+
+
+@run stats in gametxt.ref
+
+
+@#ITEM17
+;Gloworm
+@clearblock 13 23
+@do move 1 13
+
+@if map is 1289 then do
+ @begin
+ @show
+ `2You bite into the little guy.
+
+ `$Your mouth is glowing!
+
+`k `%The area is much brighter now. Good thinking!
+
+`k
+
+@do map is 1285
+@loadmap 1285
+ @closescript
+ @end
+
+
+
+@show
+ `2You bite into the little guy.
+
+ `$Your mouth is glowing!
+
+`k `2Gee, it would be more fun in the dark, you can't really see it glow here.
+
+`k
+@
+
+@#item18
+;talking to hector
+@do `v01 is 1
+@label item18s
+@show
+`r0`c `r1 `0TALKING TO HECTOR `r0
+
+`2 You let the bird poke his head out to speak with you.
+
+@do write
+`x`x
+@choice
+How do you know the old woman wants to eat you?
+Taunt the bird
+Set Hector free
+Want a cracker?
+`%Nevermind
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"That witch has told me so, dozens of times! Awk! She kept me locked
+ up for months trying to fatten me up!"
+
+`k `$"Why did she 'enchant' you into a bird? Why does she hate you so much?"
+
+ `0"I threw stones at her shack with some friends. Now I'm paying for it!"
+
+`k
+ @do goto item18s
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `$"Say... Hector. You are gonna taste MIGHTY fine in the old woman's stew!"
+
+ `0"Awk! No! Please let me go!"
+
+`k `$"Haha... and lose my main course? I don't think so." `2you laugh.
+
+`k
+ @do goto item18s
+ @end
+
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `$"Little birdy wordy wanna cracker?" you ask.
+
+`0 "I most certainly do not!" `2Hector sqawks indignantly.
+
+`k
+ @do goto item18s
+ @end
+
+
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `$"Hector. If I let you go... Will you be a good bird?" `2you ask.
+
+`2 Hector violently nods his beak.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Throw Hector into the sky
+Put him back in your pouch
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `$Fly, Hector! Fly!" `2you exclaim as you toss Hector up.
+
+`k The bird sqawks with joy - and soon is gone.
+
+ `%ALIGNMENT GOES UP BY 20. 2 QUEST POINTS GAINED.
+
+`k
+ @do `i18 is 0
+ @do `t08 is 3
+ @do `p07 + 20
+ @do `p18 + 2
+ @run stats in gametxt.ref
+ @end
+
+ @show
+`\`\ `$"Well... I was just kidding, so get back into that bag!"
+
+`k
+ @do `v01 is 3
+ @do goto item18s
+ @end
+
+@run stats in gametxt.ref
+
+@#item19
+;Eating the apple
+@clearblock 13 23
+@do move 1 13
+@show
+ `2It tastes delicious.
+
+`k
+@
+
+@#item20
+;Using the map.
+@clearblock 13 23
+@do move 1 13
+@show
+ `2To use this item, press `0M`2 from the 'map' menu.
+
+`k
+@
+
+@#item22
+;Using the map.
+@clearblock 13 23
+@do move 1 13
+
+@if `i22 < 1 then goto fail22
+@if `i23 < 1 then goto fail22
+@if `i24 < 1 then goto fail22
+@if `i25 < 1 then goto fail22
+
+@show
+ `2You carefully fit all four pieces of this strange wand together...
+
+`k `%THE WAND COMES TO LIFE, BURNING IN YOUR HANDS. (YOU GET A QUEST POINT!)
+
+`k `0YOU ARE TELEPORTED TO A STRANGE AND WONDEROUS PLACE!
+
+ `2You discard the now burned out wand.
+`\`k `2Somehow you feel safe here - as though you were back in your mother's
+ womb and she was laying in a bed stomach down. `k
+ @do map is 154
+ @do x is 14
+ @do y is 12
+ @do `i22 - 1
+ @do `i23 - 1
+ @do `i24 - 1
+ @do `i25 - 1
+ @do `p18 + 1
+ @loadmap 154
+
+ @itemexit
+ @drawmap
+ @update
+ @closescript
+
+
+@label fail22
+@show
+ `2You can't seem to make it work. Pieces are missing it looks like.
+
+`k
+@
+
+@#ITEM28
+;Casting the fishing rod
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You practice casting. Can't wait for a fishing dock to try this out
+ on!
+
+`k
+@
+
+@#item40
+;Blue potion, heals 50
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You drink the blue liquid.
+
+@if `p02 less `p03 then do
+ @begin
+ @show
+ `%You feel better!
+
+ @do `p02 + 50
+ @if `p02 more `p03 then `p02 is `p03
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+@end
+
+@key
+
+
+@#ITEM41
+;Reading ma's letter
+@clearblock 13 23
+@do move 1 13
+@show
+ `2The letter reads:
+
+ `%Dear brother, Elle is with child. The tramp must be taught a lesson
+ only you can teach. Please bring what you need, and hurry.
+
+@if bitcheck `t12 6 0 then do
+ @begin
+ @bitset `t12 6 1
+ @do `p07 - 5
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+ @show
+ `4Your alignment goes down by 5.
+
+ @end
+@show
+`k
+@
+
+@#ITEM42
+;Talking to Laura and Edward
+@clearblock 14 24
+@do move 1 14
+@show
+`r0 `r1 Talking with Laura and Uncle Edward `r0
+
+ `2Laura's pretty face is dirty but determined. Edward is panting
+ heavily.
+ `4�����������������������Ŀ
+ `4� �`8��
+ `4� �`8��
+ `4� �`8��
+ `4�������������������������`8��
+ `8 �������������������������
+@do move 27 19
+@do `v01 is 1
+@choice
+`% Talk to Laura `%
+`% Talk to Uncle Edward`%
+`% Talk to nobody `%
+@if response is 1 then do
+ @begin
+ @clearblock 15 23
+ @do move 1 15
+ @show
+ `$"Hey uh.. Laura. You got a boyfriend?" `2you casually
+ ask.
+
+`k `0"Not yet. Maybe after all this is over you can come over and talk
+ to me about it?"
+
+`k `$"You bet! What are friends for?" `2you grin.
+`k
+ @do goto item42
+ @closescript
+ @end
+
+@if response is 2 then do
+ @begin
+ @clearblock 15 23
+ @do move 1 15
+ @show
+ `2You feel this might be a bad idea. You sure?
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Yes, talk to 'em
+Good call
+ @if response is 2 then do
+ @begin
+ @do goto item42
+ @closescript
+ @end
+ @clearblock 15 23
+ @do move 1 15
+ @show
+ `$"Friend Edward! Why do you live with your niece?, anyway?" `2you ask,
+ carefully shielding your mouth with one hand.
+
+`k `0"Well - Laura's parents were killed by `4Dragon Tooth `0riders. They
+ burned down her whole village a few months ago. She survived... but
+ not without scars. Luckily I was there to help."
+
+`k
+ @do goto item42
+ @closescript
+ @end
+
+@run justitems in gametxt.ref
+
+ @#ITEM50
+ ;travel potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You empty the vial's contents down your throat.
+
+`k `2Your mind begins to spin... Streaks of light dance in your head
+ at your command. You are the ruler of this universe of brilliance -
+ and then... it all stops.
+
+`k
+@itemexit ;this will cause it to exit to the map screen directly after
+ ;finishing this .ref
+
+@do `p20 random 9 1
+
+@if `p20 is 1 then do
+ @begin
+ @do map is 1498
+ @do x is 49
+ @do y is 6
+ @end
+
+@if `p20 is 2 then do
+ @begin
+ @do map is 1271
+ @do x is 28
+ @do y is 11
+ @end
+
+@if `p20 is 3 then do
+ @begin
+ @do map is 379
+ @do x is 55
+ @do y is 4
+ @end
+
+@if `p20 is 4 then do
+ @begin
+ @do map is 1255
+ @do x is 58
+ @do y is 6
+ @end
+
+@if `p20 is 5 then do
+ @begin
+ @do map is 1576
+ @do x is 24
+ @do y is 4
+ @end
+
+@if `p20 is 6 then do
+ @begin
+ @do map is 1029
+ @do x is 27
+ @do y is 10
+ @end
+
+@if `p20 is 7 then do
+ @begin
+ @do map is 1358
+ @do x is 66
+ @do y is 3
+ @end
+
+@if `p20 is 8 then do
+ @begin
+ @do map is 1093
+ @do x is 44
+ @do y is 10
+ @end
+
+@if `p20 is 9 then do
+ @begin
+ @do map is 1035
+ @do x is 46
+ @do y is 11
+ @end
+
+
+@loadmap &map
+@drawmap
+@update
+
+@#item52
+;Red potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You slurp down the strange concoction.
+
+`k `%MAX HITPOINTS INCREASED BY FIVE.
+
+`k
+@do `p03 + 5
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+
+@#item53
+;Gold potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You slurp down the strange concoction.
+
+`k `%MUSCLE INCREASED BY TWO.
+
+`k
+@do `p04 + 2
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+
+@#item54
+;Silver potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You slurp down the strange concoction.
+
+`k `%DODGE INCREASED BY ONE.
+
+`k
+@do `p05 + 1
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+
+@#item55
+;White potion
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You drink the white liquid.
+
+@if `p02 less `p03 then do
+ @begin
+ @show
+ `%You feel better!
+
+ @do `p02 + 200
+ @if `p02 more `p03 then `p02 is `p03
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+@end
+
+@key
+
+@#item66
+;Koshi Snack
+@clearblock 13 23
+@do move 1 13
+@show
+ `2You chomp down the strange cookie.
+
+ `%YOU ARE FULLY HEALED.
+
+ @do `p02 is `p03
+ @savecursor
+ @clearblock 5 11
+ @routine drawstats in gametxt.ref
+ @loadcursor
+@end
+
+@key
+
+
+;---The Following is used by TLS1.REF
+@#groon
+;Myphon Groon
+@routine GTRANS in TLS1.REF
+@drawmap
+@update
+
+@#screw
+;The Loose Screw
+@routine GSCREW in TLS2.REF
+@drawmap
+@update
+;----------------------------------
+
+;For Pyramid.ref
+@#ankh
+;ankh
+@routine ankh in pyramid.ref
+@drawmap
+@update
+@end
+
+@#MEYE
+ @itemexit
+ @routine enter in show2.ref
+
+
+@#DEEDS
+@routine DEEDS in DEEDS.REF
+@routine drawstats in gametxt.ref
+@UPDATE
+@END
+
+@#NOMOREITEMS
+
diff --git a/xtrn/lord2/cnw/itemsel.ref b/xtrn/lord2/cnw/itemsel.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c8e49c4226a3d63aff1991c059fb67611c514680
--- /dev/null
+++ b/xtrn/lord2/cnw/itemsel.ref
@@ -0,0 +1,1287 @@
+; Script file ITEMSEL.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:41 2001
+
+@DECLARE itemsel 000003867
+@DECLARE loop 000003892
+@DECLARE 1 000004789
+@DECLARE 2 000004951
+@DECLARE 3 000005114
+@DECLARE 4 000005277
+@DECLARE 5 000005440
+@DECLARE 6 000005603
+@DECLARE 7 000005766
+@DECLARE 8 000006063
+@DECLARE 9 000006226
+@DECLARE 10 000006389
+@DECLARE 11 000006555
+@DECLARE 12 000006722
+@DECLARE 13 000006889
+@DECLARE 14 000007056
+@DECLARE 15 000007223
+@DECLARE 16 000007390
+@DECLARE 17 000007557
+@DECLARE 18 000007724
+@DECLARE 19 000007891
+@DECLARE 20 000008058
+@DECLARE 21 000008225
+@DECLARE 22 000008400
+@DECLARE 23 000008567
+@DECLARE 24 000008734
+@DECLARE 25 000008901
+@DECLARE 26 000009068
+@DECLARE 27 000009235
+@DECLARE 28 000009402
+@DECLARE 29 000009569
+@DECLARE 30 000009736
+@DECLARE 31 000009903
+@DECLARE 32 000010070
+@DECLARE 33 000010237
+@DECLARE 34 000010404
+@DECLARE 35 000010571
+@DECLARE 36 000010738
+@DECLARE 37 000010906
+@DECLARE 38 000011073
+@DECLARE 39 000011240
+@DECLARE 40 000011407
+@DECLARE 41 000011574
+@DECLARE 42 000011741
+@DECLARE 43 000011908
+@DECLARE 44 000012075
+@DECLARE 45 000012242
+@DECLARE 46 000012409
+@DECLARE 47 000012577
+@DECLARE 48 000012744
+@DECLARE 49 000012911
+@DECLARE 50 000013078
+@DECLARE 51 000013245
+@DECLARE 52 000013420
+@DECLARE 53 000013610
+@DECLARE 54 000013777
+@DECLARE 55 000013944
+@DECLARE 56 000014111
+@DECLARE 57 000014278
+@DECLARE 58 000014445
+@DECLARE 59 000014612
+@DECLARE 60 000014779
+@DECLARE 61 000014946
+@DECLARE 62 000015113
+@DECLARE 63 000015280
+@DECLARE 64 000015455
+@DECLARE 65 000015622
+@DECLARE 66 000015789
+@DECLARE 67 000015956
+@DECLARE 68 000016123
+@DECLARE 69 000016290
+@DECLARE 70 000016457
+@DECLARE 71 000016624
+@DECLARE 72 000016791
+@DECLARE 73 000016958
+@DECLARE 74 000017125
+@DECLARE 75 000017292
+@DECLARE 76 000017459
+@DECLARE 77 000017626
+@DECLARE 78 000017793
+@DECLARE 79 000017960
+@DECLARE 80 000018127
+@DECLARE 81 000018294
+@DECLARE 82 000018461
+@DECLARE 83 000018628
+@DECLARE 84 000018795
+@DECLARE 85 000018964
+@DECLARE 86 000019131
+@DECLARE 87 000019298
+@DECLARE 88 000019465
+@DECLARE 89 000019632
+@DECLARE 90 000019799
+@DECLARE 91 000019966
+@DECLARE 92 000020133
+@DECLARE 93 000020300
+@DECLARE 94 000020467
+@DECLARE 95 000020634
+@DECLARE 96 000020801
+@DECLARE 97 000020968
+@DECLARE 98 000021135
+@DECLARE 99 000021302
+@NOCHECK
+; End of .REF index
+
+;
+; Item Selector v1.0 tool for REFing
+; by: Joel Gathercole
+;
+; http://greenmachinebbs.com/lord2/
+; telnet://greenmachinebbs.com
+; greenie@darktech.org
+;
+;
+; This is a stand REF script to be called whenever
+; you need to select items for something.
+; you can find an example in NPC-SEX.REF
+; or a copied+modified example in LOCKREF3.REF and LOCKREF4.REF
+; Those REFs are found in CNW v137.0+ packages
+;
+; IMPORTANT, READ AND DO, IMPORTANT!
+; `s03 = ref file this was called from - eg. @do `s03 is RUNME.REF
+; `p23 = location to print X
+; `p24 = location to print Y
+; `p20 = current selected item #
+; `p22 = quantity of that item
+;
+; Run these codes in your REF to call this REF.
+;----snip-it-start---------
+; @#ITEMSEL
+; @do `s03 is <insert full REF filename here>
+; @do `p23 is <x> ; <--- where do you want the item to be displayed?
+; @do `p24 is <y> ; <--- where do you want the item to be displayed?
+; @run ITELSEL in ITEMSEL.REF
+;
+; @#ITEMEND
+; <insert next thing to do after quiting selection>
+;
+; @#ITEMUSE
+; <using the item coding here>
+;----snip-it-end----------
+;
+; Questions?
+; Q- Why is @RUN being used instead of @ROUTINE?
+; A- Becuase @ROUTINE can only be called 2 times before it gets lost.
+; If you want to test it with @ROUTINE, be my guest. It might work,
+; depends on how extended your REF's go.
+;
+@#ITEMSEL
+@do goto loop
+
+@#loop
+@do readspecial `s02 EDU28Q
+@if `s02 is E then do
+ @begin
+ @run ITEMUSE in `s03
+ @end
+@if `s02 is Q then do
+ @begin
+ @run ITEMEND in `s03
+ @end
+@if `s02 is U then do
+ @begin
+ @do `p30 is 1
+ @do `p20 - 1
+ @if `p20 < 1 then `p20 is 99
+ @end
+@if `s02 is 2 then do
+ @begin
+ @do `p30 is 1
+ @do `p20 - 1
+ @if `p20 < 1 then `p20 is 99
+ @end
+@if `s02 is D then do
+ @begin
+ @do `p30 is 0
+ @do `p20 + 1
+ @if `p20 > 99 then `p20 is 1
+ @end
+@if `s02 is 8 then do
+ @begin
+ @do `p30 is 0
+ @do `p20 + 1
+ @if `p20 > 99 then `p20 is 1
+ @end
+@do move `p23 `p24
+@do write
+`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+@do move `p23 `p24
+@do goto `p20
+@do goto ITEMSEL
+
+@label 1
+ @do `p20 is 1
+@if `i01 > 0 then do
+ @begin
+ @do `p22 is `i01
+ @do write
+`$`+01 `8(`7`i01`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 99
+
+@label 2
+ @do `p20 is 2
+@if `i02 > 0 then do
+ @begin
+ @do `p22 is `i02
+ @do write
+`$`+02 `8(`7`i02`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 1
+
+@label 3
+ @do `p20 is 3
+@if `i03 > 0 then do
+ @begin
+ @do `p22 is `i03
+ @do write
+`$`+03 `8(`7`i03`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 2
+
+@label 4
+ @do `p20 is 4
+@if `i04 > 0 then do
+ @begin
+ @do `p22 is `i04
+ @do write
+`$`+04 `8(`7`i04`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 3
+
+@label 5
+ @do `p20 is 5
+@if `i05 > 0 then do
+ @begin
+ @do `p22 is `i05
+ @do write
+`$`+05 `8(`7`i05`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 4
+
+@label 6
+ @do `p20 is 6
+@if `i06 > 0 then do
+ @begin
+ @do `p22 is `i06
+ @do write
+`$`+06 `8(`7`i06`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 5
+
+@label 7
+; There is a weird bug here, do not know why!?!?! :(
+; This is all exatly the same as the rest, yet a bug exists.
+; @do `p20 is 7
+;@if `i07 > 0 then do
+; @begin
+; @do `p22 is `i07
+; @begin
+; @do write
+;`$`+07 `8(`7`i07`8)
+; @do goto loop
+; @end
+@if `p30 is 1 then goto 6
+
+@label 8
+ @do `p20 is 8
+@if `i08 > 0 then do
+ @begin
+ @do `p22 is `i08
+ @do write
+`$`+08 `8(`7`i08`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 7
+
+@label 9
+ @do `p20 is 9
+@if `i09 > 0 then do
+ @begin
+ @do `p22 is `i09
+ @do write
+`$`+09 `8(`7`i09`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 8
+
+@label 10
+ @do `p20 is 10
+@if `i10 > 0 then do
+ @begin
+ @do `p22 is `i10
+ @do write
+`$`+10 `8(`7`i10`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 9
+
+@label 11
+ @do `p20 is 11
+@if `i11 > 0 then do
+ @begin
+ @do `p22 is `i11
+ @do write
+`$`+11 `8(`7`i11`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 10
+
+@label 12
+ @do `p20 is 12
+@if `i12 > 0 then do
+ @begin
+ @do `p22 is `i12
+ @do write
+`$`+12 `8(`7`i12`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 11
+
+@label 13
+ @do `p20 is 13
+@if `i13 > 0 then do
+ @begin
+ @do `p22 is `i13
+ @do write
+`$`+13 `8(`7`i13`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 12
+
+@label 14
+ @do `p20 is 14
+@if `i14 > 0 then do
+ @begin
+ @do `p22 is `i14
+ @do write
+`$`+14 `8(`7`i14`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 13
+
+@label 15
+ @do `p20 is 15
+@if `i15 > 0 then do
+ @begin
+ @do `p22 is `i15
+ @do write
+`$`+15 `8(`7`i15`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 14
+
+@label 16
+ @do `p20 is 16
+@if `i16 > 0 then do
+ @begin
+ @do `p22 is `i16
+ @do write
+`$`+16 `8(`7`i16`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 15
+
+@label 17
+ @do `p20 is 17
+@if `i17 > 0 then do
+ @begin
+ @do `p22 is `i17
+ @do write
+`$`+17 `8(`7`i17`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 16
+
+@label 18
+ @do `p20 is 18
+@if `i18 > 0 then do
+ @begin
+ @do `p22 is `i18
+ @do write
+`$`+18 `8(`7`i18`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 17
+
+@label 19
+ @do `p20 is 19
+@if `i19 > 0 then do
+ @begin
+ @do `p22 is `i19
+ @do write
+`$`+19 `8(`7`i19`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 18
+
+@label 20
+ @do `p20 is 20
+@if `i20 > 0 then do
+ @begin
+ @do `p22 is `i20
+ @do write
+`$`+20 `8(`7`i20`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 19
+
+@label 21
+ @do `p20 is 21
+@if `i21 > 0 then do
+ @begin
+ @do `p22 is `i21
+ @do write
+`$`+21 `8(`7`i21`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 20
+
+@label 22
+ @do `p20 is 22
+@if `i22 > 0 then do
+ @begin
+ @do `p22 is `i22
+ @do write
+`$`+22 `8(`7`i22`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 21
+
+@label 23
+ @do `p20 is 23
+@if `i23 > 0 then do
+ @begin
+ @do `p22 is `i23
+ @do write
+`$`+23 `8(`7`i23`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 22
+
+@label 24
+ @do `p20 is 24
+@if `i24 > 0 then do
+ @begin
+ @do `p22 is `i24
+ @do write
+`$`+24 `8(`7`i24`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 23
+
+@label 25
+ @do `p20 is 25
+@if `i25 > 0 then do
+ @begin
+ @do `p22 is `i25
+ @do write
+`$`+25 `8(`7`i25`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 24
+
+@label 26
+ @do `p20 is 26
+@if `i26 > 0 then do
+ @begin
+ @do `p22 is `i26
+ @do write
+`$`+26 `8(`7`i26`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 25
+
+@label 27
+ @do `p20 is 27
+@if `i27 > 0 then do
+ @begin
+ @do `p22 is `i27
+ @do write
+`$`+27 `8(`7`i27`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 26
+
+@label 28
+ @do `p20 is 28
+@if `i28 > 0 then do
+ @begin
+ @do `p22 is `i28
+ @do write
+`$`+28 `8(`7`i28`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 27
+
+@label 29
+ @do `p20 is 29
+@if `i29 > 0 then do
+ @begin
+ @do `p22 is `i29
+ @do write
+`$`+29 `8(`7`i29`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 28
+
+@label 30
+ @do `p20 is 30
+@if `i20 > 0 then do
+ @begin
+ @do `p22 is `i30
+ @do write
+`$`+30 `8(`7`i30`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 29
+
+@label 31
+ @do `p20 is 31
+@if `i31 > 0 then do
+ @begin
+ @do `p22 is `i31
+ @do write
+`$`+31 `8(`7`i31`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 30
+
+@label 32
+ @do `p20 is 32
+@if `i32 > 0 then do
+ @begin
+ @do `p22 is `i32
+ @do write
+`$`+32 `8(`7`i32`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 31
+
+@label 33
+ @do `p20 is 33
+@if `i33 > 0 then do
+ @begin
+ @do `p22 is `i33
+ @do write
+`$`+33 `8(`7`i33`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 32
+
+@label 34
+ @do `p20 is 34
+@if `i34 > 0 then do
+ @begin
+ @do `p22 is `i34
+ @do write
+`$`+34 `8(`7`i34`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 33
+
+@label 35
+ @do `p20 is 35
+@if `i35 > 0 then do
+ @begin
+ @do `p22 is `i35
+ @do write
+`$`+35 `8(`7`i35`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 34
+
+@label 36
+ @do `p20 is 36
+@if `i36 > 0 then do
+ @begin
+ @do `p22 is `i36
+ @do write
+`$`+36 `8(`7`i36`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 35
+
+@label 37
+ @do `p20 is 37
+@if `i37 > 0 then do
+ @begin
+ @do `p22 is `i37
+ @do write
+`$`+37 `8(`7`i37`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 36
+
+@label 38
+ @do `p20 is 38
+@if `i38 > 0 then do
+ @begin
+ @do `p22 is `i38
+ @do write
+`$`+38 `8(`7`i38`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 37
+
+@label 39
+ @do `p20 is 39
+@if `i39 > 0 then do
+ @begin
+ @do `p22 is `i39
+ @do write
+`$`+39 `8(`7`i39`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 38
+
+@label 40
+ @do `p20 is 40
+@if `i40 > 0 then do
+ @begin
+ @do `p22 is `i40
+ @do write
+`$`+40 `8(`7`i40`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 39
+
+@label 41
+ @do `p20 is 41
+@if `i41 > 0 then do
+ @begin
+ @do `p22 is `i41
+ @do write
+`$`+41 `8(`7`i41`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 40
+
+@label 42
+ @do `p20 is 42
+@if `i42 > 0 then do
+ @begin
+ @do `p22 is `i42
+ @do write
+`$`+42 `8(`7`i42`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 41
+
+@label 43
+ @do `p20 is 43
+@if `i43 > 0 then do
+ @begin
+ @do `p22 is `i43
+ @do write
+`$`+43 `8(`7`i43`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 42
+
+@label 44
+ @do `p20 is 44
+@if `i44 > 0 then do
+ @begin
+ @do `p22 is `i44
+ @do write
+`$`+44 `8(`7`i44`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 43
+
+@label 45
+ @do `p20 is 45
+@if `i45 > 0 then do
+ @begin
+ @do `p22 is `i45
+ @do write
+`$`+45 `8(`7`i45`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 44
+
+@label 46
+ @do `p20 is 46
+@if `i46 > 0 then do
+ @begin
+ @do `p22 is `i46
+ @do write
+`$`+46 `8(`7`i46`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 45
+
+@label 47
+ @do `p20 is 47
+@if `i47 > 0 then do
+ @begin
+ @do `p22 is `i47
+ @do write
+`$`+47 `8(`7`i47`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 46
+
+@label 48
+ @do `p20 is 48
+@if `i48 > 0 then do
+ @begin
+ @do `p22 is `i48
+ @do write
+`$`+48 `8(`7`i48`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 47
+
+@label 49
+ @do `p20 is 49
+@if `i49 > 0 then do
+ @begin
+ @do `p22 is `i49
+ @do write
+`$`+49 `8(`7`i49`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 48
+
+@label 50
+ @do `p20 is 50
+@if `i50 > 0 then do
+ @begin
+ @do `p22 is `i50
+ @do write
+`$`+50 `8(`7`i50`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 49
+
+@label 51
+ @do `p20 is 51
+@if `i51 > 0 then do
+ @begin
+ @do `p22 is `i51
+ @do write
+`$`+51 `8(`7`i51`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 50
+
+@label 52
+ @do `p20 is 52
+@if `i52 > 0 then do
+ @begin
+ @do `p22 is `i52
+ @do write
+`$`+52 `8(`7`i52`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 51
+
+@label 53
+ @do `p20 is 53
+@if `i53 > 0 then do
+ @begin
+ @do `p22 is `i53
+ @do write
+`$`+53 `8(`7`i53`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 52
+
+@label 54
+ @do `p20 is 54
+@if `i54 > 0 then do
+ @begin
+ @do `p22 is `i54
+ @do write
+`$`+54 `8(`7`i54`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 53
+
+@label 55
+ @do `p20 is 55
+@if `i55 > 0 then do
+ @begin
+ @do `p22 is `i55
+ @do write
+`$`+55 `8(`7`i55`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 54
+
+@label 56
+ @do `p20 is 56
+@if `i56 > 0 then do
+ @begin
+ @do `p22 is `i56
+ @do write
+`$`+56 `8(`7`i56`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 55
+
+@label 57
+ @do `p20 is 57
+@if `i57 > 0 then do
+ @begin
+ @do `p22 is `i57
+ @do write
+`$`+57 `8(`7`i57`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 56
+
+@label 58
+ @do `p20 is 58
+@if `i58 > 0 then do
+ @begin
+ @do `p22 is `i58
+ @do write
+`$`+58 `8(`7`i58`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 57
+
+@label 59
+ @do `p20 is 59
+@if `i59 > 0 then do
+ @begin
+ @do `p22 is `i59
+ @do write
+`$`+59 `8(`7`i59`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 58
+
+@label 60
+ @do `p20 is 60
+@if `i60 > 0 then do
+ @begin
+ @do `p22 is `i60
+ @do write
+`$`+60 `8(`7`i60`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 59
+
+@label 61
+ @do `p20 is 61
+@if `i61 > 0 then do
+ @begin
+ @do `p22 is `i61
+ @do write
+`$`+61 `8(`7`i61`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 60
+
+@label 62
+ @do `p20 is 62
+@if `i62 > 0 then do
+ @begin
+ @do `p22 is `i62
+ @do write
+`$`+62 `8(`7`i62`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 61
+
+@label 63
+ @do `p20 is 63
+@if `i63 > 0 then do
+ @begin
+ @do `p22 is `i63
+ @do write
+`$`+63 `8(`7`i63`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 62
+
+@label 64
+ @do `p20 is 64
+@if `i64 > 0 then do
+ @begin
+ @do `p22 is `i64
+ @do write
+`$`+64 `8(`7`i64`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 63
+
+@label 65
+ @do `p20 is 65
+@if `i65 > 0 then do
+ @begin
+ @do `p22 is `i65
+ @do write
+`$`+65 `8(`7`i65`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 64
+
+@label 66
+ @do `p20 is 66
+@if `i66 > 0 then do
+ @begin
+ @do `p22 is `i66
+ @do write
+`$`+66 `8(`7`i66`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 65
+
+@label 67
+ @do `p20 is 67
+@if `i67 > 0 then do
+ @begin
+ @do `p22 is `i67
+ @do write
+`$`+67 `8(`7`i67`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 66
+
+@label 68
+ @do `p20 is 68
+@if `i68 > 0 then do
+ @begin
+ @do `p22 is `i68
+ @do write
+`$`+68 `8(`7`i68`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 67
+
+@label 69
+ @do `p20 is 69
+@if `i69 > 0 then do
+ @begin
+ @do `p22 is `i69
+ @do write
+`$`+69 `8(`7`i69`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 68
+
+@label 70
+ @do `p20 is 70
+@if `i70 > 0 then do
+ @begin
+ @do `p22 is `i70
+ @do write
+`$`+70 `8(`7`i70`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 69
+
+@label 71
+ @do `p20 is 71
+@if `i71 > 0 then do
+ @begin
+ @do `p22 is `i71
+ @do write
+`$`+71 `8(`7`i71`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 70
+
+@label 72
+ @do `p20 is 72
+@if `i72 > 0 then do
+ @begin
+ @do `p22 is `i72
+ @do write
+`$`+72 `8(`7`i72`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 71
+
+@label 73
+ @do `p20 is 73
+@if `i73 > 0 then do
+ @begin
+ @do `p22 is `i73
+ @do write
+`$`+73 `8(`7`i73`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 72
+
+@label 74
+ @do `p20 is 74
+@if `i74 > 0 then do
+ @begin
+ @do `p22 is `i74
+ @do write
+`$`+74 `8(`7`i74`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 73
+
+@label 75
+ @do `p20 is 75
+@if `i75 > 0 then do
+ @begin
+ @do `p22 is `i75
+ @do write
+`$`+75 `8(`7`i75`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 74
+
+@label 76
+ @do `p20 is 76
+@if `i76 > 0 then do
+ @begin
+ @do `p22 is `i76
+ @do write
+`$`+76 `8(`7`i76`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 75
+
+@label 77
+ @do `p20 is 77
+@if `i77 > 0 then do
+ @begin
+ @do `p22 is `i77
+ @do write
+`$`+77 `8(`7`i77`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 76
+
+@label 78
+ @do `p20 is 78
+@if `i78 > 0 then do
+ @begin
+ @do `p22 is `i78
+ @do write
+`$`+78 `8(`7`i78`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 77
+
+@label 79
+ @do `p20 is 79
+@if `i79 > 0 then do
+ @begin
+ @do `p22 is `i79
+ @do write
+`$`+79 `8(`7`i79`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 78
+
+@label 80
+ @do `p20 is 80
+@if `i80 > 0 then do
+ @begin
+ @do `p22 is `i80
+ @do write
+`$`+80 `8(`7`i80`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 79
+
+@label 81
+ @do `p20 is 81
+@if `i81 > 0 then do
+ @begin
+ @do `p22 is `i81
+ @do write
+`$`+81 `8(`7`i81`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 80
+
+@label 82
+ @do `p20 is 82
+@if `i82 > 0 then do
+ @begin
+ @do `p22 is `i82
+ @do write
+`$`+82 `8(`7`i82`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 81
+
+@label 83
+ @do `p20 is 83
+@if `i83 > 0 then do
+ @begin
+ @do `p22 is `i83
+ @do write
+`$`+83 `8(`7`i83`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 82
+
+@label 84
+ @do `p20 is 84
+@if `i84 > 0 then do
+ @begin
+ @do `p22 is `i84
+ @do write
+`$`+84 `8(`7`i84`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 83
+
+
+@label 85
+ @do `p20 is 85
+@if `i85 > 0 then do
+ @begin
+ @do `p22 is `i85
+ @do write
+`$`+85 `8(`7`i85`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 84
+
+@label 86
+ @do `p20 is 86
+@if `i86 > 0 then do
+ @begin
+ @do `p22 is `i86
+ @do write
+`$`+86 `8(`7`i86`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 85
+
+@label 87
+ @do `p20 is 87
+@if `i87 > 0 then do
+ @begin
+ @do `p22 is `i87
+ @do write
+`$`+87 `8(`7`i87`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 86
+
+@label 88
+ @do `p20 is 88
+@if `i88 > 0 then do
+ @begin
+ @do `p22 is `i88
+ @do write
+`$`+88 `8(`7`i88`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 87
+
+@label 89
+ @do `p20 is 89
+@if `i89 > 0 then do
+ @begin
+ @do `p22 is `i89
+ @do write
+`$`+89 `8(`7`i89`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 88
+
+@label 90
+ @do `p20 is 90
+@if `i90 > 0 then do
+ @begin
+ @do `p22 is `i90
+ @do write
+`$`+90 `8(`7`i90`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 89
+
+@label 91
+ @do `p20 is 91
+@if `i91 > 0 then do
+ @begin
+ @do `p22 is `i91
+ @do write
+`$`+91 `8(`7`i91`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 90
+
+@label 92
+@if `i92 > 0 then do
+ @begin
+ @do `p20 is 92
+ @do `p22 is `i92
+ @do write
+`$`+92 `8(`7`i92`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 91
+
+@label 93
+ @do `p20 is 93
+@if `i93 > 0 then do
+ @begin
+ @do `p22 is `i93
+ @do write
+`$`+93 `8(`7`i93`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 92
+
+@label 94
+ @do `p20 is 94
+@if `i94 > 0 then do
+ @begin
+ @do `p22 is `i94
+ @do write
+`$`+94 `8(`7`i94`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 93
+
+@label 95
+ @do `p20 is 95
+@if `i95 > 0 then do
+ @begin
+ @do `p22 is `i95
+ @do write
+`$`+95 `8(`7`i95`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 94
+
+@label 96
+ @do `p20 is 96
+@if `i96 > 0 then do
+ @begin
+ @do `p22 is `i96
+ @do write
+`$`+96 `8(`7`i96`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 95
+
+@label 97
+ @do `p20 is 97
+@if `i97 > 0 then do
+ @begin
+ @do `p22 is `i97
+ @do write
+`$`+97 `8(`7`i97`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 96
+
+@label 98
+ @do `p20 is 98
+@if `i98 > 0 then do
+ @begin
+ @do `p22 is `i98
+ @do write
+`$`+98 `8(`7`i98`8)
+ @do goto loop
+ @end
+@if `p30 is 1 then goto 97
+
+@label 99
+ @do `p20 is 99
+@if `i99 > 0 then do
+ @begin
+ @do `p22 is `i99
+ @do write
+`$`+99 `8(`7`i99`8)
+ @do goto loop
+ @end
+@do goto 1
+@end
+
diff --git a/xtrn/lord2/cnw/jcastle.ref b/xtrn/lord2/cnw/jcastle.ref
new file mode 100644
index 0000000000000000000000000000000000000000..03eec03957bca62602bde0416a50bb0c497a8e9e
--- /dev/null
+++ b/xtrn/lord2/cnw/jcastle.ref
@@ -0,0 +1,443 @@
+; Script file JCASTLE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:36 2001
+
+@DECLARE merlin 000000365
+@DECLARE heal 000001765
+@DECLARE doorguard 000001964
+@DECLARE startg 000001993
+@DECLARE sign 000005121
+@DECLARE enter 000005415
+@DECLARE done 000006614
+@DECLARE letmein 000008280
+@DECLARE done 000008361
+@NOCHECK
+; End of .REF index
+
+@#merlin
+@offmap
+@do moveback
+@do move 1 1
+@clear screen
+@show
+`r0 `r1 Merlin `r0
+
+ `0"Hello sir. Where do you wish to go today?" `2Asks Merlin.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+`%GreenTree
+`%PortTown
+`%BoneTown
+`%FlagCity
+`%Sosen Village
+`%ArrisVille
+`4Nevermind
+`%Make `5Torin Castle `%your home
+@if responce is 8 then do
+ @begin
+ @do `p69 is 25
+ @show
+
+ `#`5Torin Castle `%is now your registered home.
+
+ @key
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response not 7 then do
+ @begin
+@show
+`\`\ `0"Okay sir, here we go, I'll just grab my spell book."
+
+`k `2"`#Nethin dwargin nargin flargin!`2" Shouts Merlin.
+
+ `2Then suddenly, you are there, on your own.
+`\`k
+@if response is 1 then do
+ @begin
+ @do x is 10
+ @do y is 15
+ @do map is 1356
+ @end
+@if response is 2 then do
+ @begin
+ @do x is 38
+ @do y is 16
+ @do map is 956
+ @end
+@if response is 3 then do
+ @begin
+ @do x is 53
+ @do y is 18
+ @do map is 1572
+ @end
+@if response is 4 then do
+ @begin
+ @do x is 71
+ @do y is 19
+ @do map is 1092
+ @end
+@if response is 5 then do
+ @begin
+ @do x is 36
+ @do y is 5
+ @do map is 456
+ @end
+@if response is 6 then do
+ @begin
+ @do x is 19
+ @do y is 9
+ @do map is 523
+ @end
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#heal
+@offmap
+@do moveback
+@show
+`r0`c `r1 Healer `r0
+
+ `2The doctor carefully looks over your wounds.
+
+ `%YOU ARE COMPLETELY HEALED.
+`\`k
+@do `p02 is `p03
+@drawmap
+@update
+
+@#doorguard
+@do moveback
+@label startg
+@if jcastle.dat exist false then do
+ @begin
+ @do saybar
+`0"You must leave this castle now!" `2the guard yells.
+ @closescript
+ @end
+
+@readfile jcastle.dat
+`p20
+`s01
+@
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+The doorguard salutes you as you pass.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2You're doorguard stands to attention.
+
+@do write
+`x`x
+@choice
+`%Change Password (currently is `0`s01`%)
+`%Ownership Options
+`%Make `5Torin Castle `%your home
+Leave
+@if responce is 3 then do
+ @begin
+ @do `p69 is 25
+ @show
+
+ `#`5Torin Castle `%is now your registered home.
+
+ @key
+ @do goto startg
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer ownership
+Sell property to the bank for `$25,000`%.
+Nevermind
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your castle.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your castle to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your castle.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete jcastle.dat
+ @writefile jcastle.dat
+`p20
+`s01
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of Torin Castle to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%Torin Castle`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Ownership transfered.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell it back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your castle.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete jcastle.dat
+ @do money + 25000
+ @show
+`\`\ `%CASTLE SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Torin Castle`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete jcastle.dat
+ @writefile jcastle.dat
+&playernum
+`s01
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#sign
+@do moveback
+
+ @if jcastle.dat exist false then do
+ @begin
+ @do saybar
+Torin Castle - For sale, enquire inside.
+ @end
+
+@if jcastle.dat exist true then do
+ @begin
+@readfile jcastle.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+@#enter
+@do moveback
+@offmap
+@if jcastle.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2Torin Castle was once a magnificent castle that has housed many
+ great warriors and royalty.
+
+ `2If you choose to buy this great castle, you will recieve:
+
+ `0*`2 A magician to teleport you to many places.
+
+ `0*`2 Your very own healer that works free of charge.
+
+ `0*`2 Two doorguards for your protection
+
+ `0*`2 A room for your companions to stay.
+
+ The asking price is `$$50,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 49999 Purchase it.
+<&money 50000 Sigh wistfully and leave since you don't have enough.
+>&money 49999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if jcastle.dat exist true then do
+ @begin
+ @show
+`\`\ `2DAMN! Someone bought it while you where thinking about it.`\`\`k
+ @do goto done
+ @end
+
+ @writefile jcastle.dat
+&playernum
+NONE
+ @do money - 50000
+ @do addlog
+ `0`n `2buys `%Torin Castle`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this keep!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile jcastle.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete jcastle.dat
+ @do addlog
+ `%Torin Castle`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You knock on the door for some time before a reply is given.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2the door guard asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%Torin Castle`0,"`2 the guard smiles as he opens the gate.`\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `0Torin Castle News:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The guard shows no interest.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein
+@do x is 36
+@do y is 15
+@do map is 1202
+@loadmap 1202
+@do goto done
+@#done
diff --git a/xtrn/lord2/cnw/jennie.ref b/xtrn/lord2/cnw/jennie.ref
new file mode 100644
index 0000000000000000000000000000000000000000..cd09d053f0ace1186c84206c5f4a8d6501bf4ecf
--- /dev/null
+++ b/xtrn/lord2/cnw/jennie.ref
@@ -0,0 +1,407 @@
+; Script file JENNIE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:17 2001
+
+@DECLARE greyman 000000552
+@DECLARE stonecircle 000002029
+@DECLARE choice 000002306
+@DECLARE entrance 000003534
+@DECLARE toilet 000003587
+@DECLARE jennie 000003692
+@DECLARE table 000006502
+@DECLARE inn 000007240
+@DECLARE backinn 000007675
+@NOCHECK
+; End of .REF index
+
+;Jennie.ref
+;1. Darkman at map 956
+;2. Stonecircle at map 960
+;3. Jennie's house at map 1523
+;4. Inn
+
+;------------------------------DARKMAN-----------------------------
+@#greyman
+@do `p70 is 130
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@show
+`r0`c `r1`%The Darkman`r0
+
+
+ `0"Hi young fellow . . . "
+
+ `$Your quite shocked looking at this dark person. He seems to be completly
+ black. You don't see his face or anything else.
+
+ `0"What can I do for you ?" `2The black man whispers.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Who are you ?
+Leave quick !
+@if response is 1 then do begin
+ @begin
+ @show
+`r0`c `r1`%The Darkman`r0
+
+ `0"I am just a friend of JENNIE GARTH the most beautiful girl of
+ greentree."
+
+ `$"Aha JENNIE GARTH. Where can I find her ?"
+
+ `0"Go a few miles east and look for some strange stones at the stonecircle"
+ Maybe you are clever enough to find out the secret about her . . .
+ `2 He whispers . . .
+
+ `$"Thank you !" `2You say quite happy to leave . . .
+`\`k
+ @drawmap
+ @update
+ @if jennie.&playernum exists false then do
+ @begin
+ @writefile jennie.&playernum
+`N
+ @do saybar
+`2Your ready to break up to the stonecircle
+ @closescript
+ @end
+ @end
+@end
+
+@if response is 2 then do
+ @begin
+ @show
+`r0`c `r1`%The Darkman`r0
+
+
+ `0"Yeah Yeah great. Everyone is running away from me." `2 He shouts !!!
+`\`k
+@drawmap
+@update
+@closescript
+@end
+
+;-------------------------STONECIRCLES-------------------------
+
+@#stonecircle
+@do moveback
+@if jennie.&playernum exists false then do
+@begin
+ @do saybar
+`2You don't no what to look for. Maybe you ask someone !
+ @closescript
+ @end
+
+@show
+`r0`c `r1`%The STONECIRCLE`r0
+
+ `1You see the beautiful tree which is completly silver.
+
+@label choice
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Try to take the tree
+climb on the tree
+forget it !
+@if response is 1 then do
+ @begin
+ @show
+`r0`c `r1`%The Silvertree`r0
+
+`1Aeh Ooh . . . what a fuckin idea !
+`\`k
+@do goto choice
+@end
+@if response is 2 then do begin
+ @begin
+ @show
+`r0`c `r1`%The Silvertree`r0
+
+ `1Uaah it's very high up here :-)
+
+ `2Aah but there you see a kind of paper. A very special kind of paper you gess.
+
+ `1You look at it . . .
+
+ `2WOW !!!. There is the secret of JENNIE GARTH.
+
+ `2Lets read the instructions . . .
+ go to the Red Dragon Inn.`l .`l .`l .`l right in front of the bartender. `l.`l .`l .`l then
+ 28 moves to the left .`l .`l .`l .`l 1 up .`l .`l .`l . and 6 to the left .`l .`l .`l.
+
+ `1You should write this down. `$You think.
+ `\`k
+@drawmap
+@update
+@readfile jennie.&playernum
+`s01
+`s01
+@if `s01 = tree then do
+@begin
+@do saybar
+`2Lets walk to the Red Dragon Inn
+@closescript
+@end
+
+@writefile jennie.&playernum
+tree
+@do saybar
+`2Lets walk to the Red Dragon Inn
+@closescript
+@end
+
+@if response is 3 then do
+@drawmap
+@update
+@closescript
+@end
+
+;---------------------------JENNIE's HOUSE-----------------------------------
+@#entrance
+@do saybar
+`2What a nice and save home
+
+@#toilet
+@do moveback
+@do saybar
+`2A double toilet. You never saw something like this before . . .
+
+@#jennie
+@do `p70 is 131
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@readfile jennie.&playernum
+`s01
+`s01
+`p20
+@if `p20 = &time then do
+@begin
+@do saybar
+`2Try again tommorrow. . .
+@drawmap
+@update
+@closescript
+@end
+
+
+@do delete jennie.&playernum
+@writefile jennie.&playernum
+`N
+tree
+&time
+@show
+`r0`c `r1`%Jennie Garth`r0
+
+`4There she is. JENNIE GARTH . . . now you really notice how beautiful she is !
+`l
+`0"Who are you and how did you find me ?"
+
+`2"A good friend of you told me your secret."
+
+`0"I knew I couldn't trust him . . ."
+
+ `$That's exactly the answer you expected ;-)
+
+ `0So what can I do for you ?
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+My name is . . .
+You are so beautiful
+How much for one night ?
+Tell my something about you !
+@if response is 1 then do
+ @begin
+ @show
+
+`r0`c `r1`%Jennie Garth`r0
+
+ `0"That doesn't interest me . . ."
+
+ `2"Oh ah .`l .`l .`l .`l ok !"
+`\`k
+ @drawmap
+ @update
+ @do saybar
+ `2Ok next time maybe
+ @closescript
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+
+`r0`c `r1`%Jennie Garth`r0
+
+ `0"Oh thank you." `$She smiles in a lovely way.
+`\`k
+
+ @do `p08 + 5
+ @drawmap
+ @update
+ @do saybar
+ `2Yeah your get 5 charm points !
+ @closescript
+ @end
+
+@if response is 3 then do begin
+ @begin
+ @do moveback
+ @show
+`r0`c `r1`%Jennie Garth`r0
+
+`0Her face gets angry .`l .`l .`l .`l and a few seconds later you have a broken
+nose :-)
+`\`k
+@drawmap
+@update
+@do `p20 random 3 1
+@if `p20 is 1 then do
+ @begin
+@do `p23 is `p01
+@do `p23 / 10
+@do `p01 - `p23
+ @drawmap
+ @update
+ @do saybar
+`2You lost `p24 experience
+ @closescript
+ @end
+
+@if `p20 is 2 then do
+ @begin
+ @drawmap
+ @update
+ @do saybar
+`2Oh shit but you had luck . . . just the nose is gone :-)
+ @closescript
+ @end
+
+@if `p20 is 3 then do
+ @begin
+ @do `p02 is 5
+ @drawmap
+ @update
+ @do saybar
+`2You lost some Hitpoints
+ @closescript
+ @end
+@end
+
+@if response is 4 then do
+ @begin
+ @do moveback
+ @show
+`r0`c `r1`%Jennie Garth`r0
+
+`0Once I lived in the deep forest .`l .`l .`l
+`0But this cruel Red Dragon wanted to marry me. He cept me in a cold and dark
+`0cave. But then there came a great warrior. His name was SENoR FRoG and he was
+`0the strongest and bravest man I ever saw. He saved me and took me to this
+`0hidden house. The Bartender and my old friend SENoR FRoG are the only ones
+`0who know this place. SENoR FRoG tries to hide himself because of the Red
+`0Dragon. He sent you here to help me I gess because for him it is too
+`0dangerous.
+`0SO PLEASE HELP ME AND KILL THAT DAMN DRAGON
+`\`k
+ @do `p23 is `p01
+ @do `p23 / 10
+ @do `p01 + `p23
+ @drawmap
+ @update
+ @do saybar
+`2You get some experience
+ @closescript
+ @end
+@end
+
+@#table
+ @do moveback
+@readfile table.&playernum
+`p22
+@if `p22 = &time then do
+@begin
+@do saybar
+`2Try again later
+@closescript
+@end
+
+@do delete table.&playernum
+@writefile table.&playernum
+&time
+ @do `p20 random 3 1
+
+ @if `p20 is 1 then do
+ @begin
+@do `p23 is money
+@do `p23 / 10
+@do money + `p23
+ @do saybar
+`2You get `p23 gold pieces !
+ @closescript
+ @end
+
+ @if `p20 is 2 then do
+ @begin
+ @do money + 100
+ @do saybar
+`2You get 100 gold pieces !
+ @closescript
+ @end
+
+ @if `p20 is 3 then do
+ @begin
+ @do `p23 is money
+ @do `p23 / 5
+ @do money + `p23
+ @do saybar
+`2You get `p23 gold pieces !
+ @closescript
+ @end
+
+;---------------------------INN-----------------------------------
+
+@#inn
+@if jennie.&playernum exists false then do
+ @begin
+ @do moveback
+ @closescript
+ @end
+
+@readfile jennie.&playernum
+`s01
+`s01
+@if `s01 = tree then do
+@begin
+@show
+`r0`c `r1`%HIDDEN`r0
+
+`0You see a button right in front of you.`l .`l .`l .`l you push it and a door
+opens !
+`\`k
+
+@do map is 1523
+@loadmap 1523
+@do x is 49
+@do y is 19
+@drawmap
+@update
+@do saybar
+`2Oh you discovered a hidden house !
+
+@#backinn
+@do map is 159
+@loadmap 159
+@do x is 2
+@do y is 4
+@drawmap
+@update
diff --git a/xtrn/lord2/cnw/jester.clr b/xtrn/lord2/cnw/jester.clr
new file mode 100644
index 0000000000000000000000000000000000000000..c880ac815e8d15095663edde6d8eb00dcc7df4f7
--- /dev/null
+++ b/xtrn/lord2/cnw/jester.clr
@@ -0,0 +1,14 @@
+[?7h[255D[67C[0;35m�[32m��
+[58C[35m�������ܲ�[32m۲�������
+[58C[35m۲ ߲�����[32m���۲� ��
+[58C[35m� ܲ[41m�[40m�[41m���[32m��[40m�[41m�[40m�� �
+[58C[35m� �[1;31;41m�[40m���������[41m�[0;32m� �
+[61C[35m�[1;31m�[37m�[34m�[37m�[31m���[37m�[34m�[37m�[31m�[0;32m�
+[62C[1;31m�[41m���[40m���[41m���[40m�
+[63C��[41m��[40m�[41m��[40m��
+[64C���[41m�[40m���
+[64C��[37m���[31m��
+[64C�������
+[56C[0;32m���������[5C[35m�������
+[65C[32m� [35m�
+
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/joust.clr b/xtrn/lord2/cnw/joust.clr
new file mode 100644
index 0000000000000000000000000000000000000000..7eec702329bfbdb175519bc753ace2aa278bb7e5
--- /dev/null
+++ b/xtrn/lord2/cnw/joust.clr
@@ -0,0 +1,9 @@
+[?7h[255D[69C[0;1;44m�����۲[40m
+[68C[44m�������۲[40m
+[67C[44m���� � ��۲[40m
+[66C[44m�����������۲[40m
+[66C[44m� � �[41m� �[44m� � �[40m
+[66C[44m�����������۲[40m
+[67C[44m���� � ��۲[40m
+[68C[44m�������۲[40m
+[69C[44m�����۲
diff --git a/xtrn/lord2/cnw/jump.ref b/xtrn/lord2/cnw/jump.ref
new file mode 100644
index 0000000000000000000000000000000000000000..714ed8b60b687f330079465c03b2853d26da2f67
--- /dev/null
+++ b/xtrn/lord2/cnw/jump.ref
@@ -0,0 +1,45 @@
+; Script file JUMP.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:36 2001
+
+@DECLARE temple1 000000206
+@DECLARE grave 000000478
+@DECLARE nomore 000000763
+@NOCHECK
+; End of .REF index
+
+@#temple1
+@do moveback
+@if `p09 > 2 then do
+@begin
+@do map is 653
+@do x is 47
+@do y is 2
+@loadmap &map
+@drawmap
+@update
+@closescript
+@end
+@if `p09 < 2 then do
+@do saybar
+`%The guard says: `$"`!Go home to your mother, don't play here!`$"
+@closescript
+@end
+
+@#grave
+@do moveback
+@if `p09 > 4 then do
+@begin
+@do map is 572
+@do x is 39
+@do y is 17
+@loadmap &map
+@drawmap
+@update
+@closescript
+@end
+@if `p09 > 4 then do
+@do saybar
+`%The grave digger says: `$"`!You are too young to be playing around here.`$"
+@closescript
+@end
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/jw-isle.ref b/xtrn/lord2/cnw/jw-isle.ref
new file mode 100644
index 0000000000000000000000000000000000000000..5db95a035b9e52b18ecb2feabf909f937001b431
--- /dev/null
+++ b/xtrn/lord2/cnw/jw-isle.ref
@@ -0,0 +1,1701 @@
+; Script file JW-ISLE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:27 2001
+
+@DECLARE start 000001374
+@DECLARE giftshop 000001527
+@DECLARE inshop 000001982
+@DECLARE boughtsome 000010490
+@DECLARE nosale 000010681
+@DECLARE travelbureau 000010791
+@DECLARE clerkexit 000018839
+@DECLARE doctorfell 000020397
+@DECLARE drloop 000020450
+@DECLARE banker 000023678
+@DECLARE hotel 000023973
+@DECLARE jail 000024168
+@DECLARE farmerhut 000024366
+@DECLARE ratnest 000025301
+@DECLARE redcross 000026597
+@DECLARE celldoor 000026826
+@DECLARE jailer 000027082
+@DECLARE prisoner 000027295
+@DECLARE shiv 000027746
+@DECLARE madmage 000028313
+@DECLARE jailexit 000031786
+@DECLARE hotelexit 000032070
+@DECLARE clerkenter 000032222
+@DECLARE entryshack 000033309
+@DECLARE entrywharf 000033841
+@DECLARE entrysign 000034526
+@DECLARE spidersign 000034707
+@DECLARE spiderbard 000034845
+@DECLARE dockman 000035209
+@DECLARE bigspider 000035482
+@DECLARE spiderfight 000037599
+@DECLARE spiderdo 000039224
+@DECLARE spiderweb 000039982
+@DECLARE hospital 000042998
+@DECLARE piperbard 000044807
+@DECLARE pipersign 000044973
+@DECLARE oldroad 000045132
+@DECLARE piperstone 000045286
+@DECLARE killkeypress 000045461
+@DECLARE ranger 000045698
+@NOCHECK
+; End of .REF index
+
+; Ref file for Jim Wilson's, Lord 2 IGM ver. 1.01, Mimsic Isle.
+; jw-isle.ref
+
+@#Start
+ ;Events ....
+ ;Town Stuff
+
+;-----------------------------------------------------
+
+@#GiftShop
+ ; Once per day
+ ; Ask about items.
+ ; Buy one? Close Shop.
+@do moveback
+@busy
+@datanewday jw-isle1.mil
+@dataload jw-isle1.mil &playernum `p24
+@do `t70 is `p24
+@if bitcheck `t70 6 1 then do
+@begin
+ @do saybar
+ `$Sorry, we're closed. Try again another day.
+ @closescript
+@end
+@dataload jw-isleL.mil &playernum `p23
+@do `v01 is 1
+
+@label inshop
+@show
+`r0`c `2 You stand at the counter of the quaint little gift shop
+ with your `$`p23`2 rat pelts, the local currency.
+`/
+@choice
+Leave
+`0Ask about the `4Campfire Starter `0 (15 pelts)
+`0Ask about the `$Sunstone `0 (15 pelts)
+`0Ask about the `!Magic Pipe `0 (50 pelts)
+`0Ask about the `#Shining Orb `0 (170 pelts)
+`0Ask about the `2Balance Pole `0 (170 pelts)
+`0Ask about the `3Earmuffs `0 (350 pelts)
+`0Ask about the `%Holy Book `0 (999 pelts)
+@if response is 1 then do
+@begin
+ @do goto nosale
+@end
+
+@if response is 2 then do
+@begin
+ @show
+ `c
+ This usefull item is a requirement for all travelers
+ through "Spider Woods". It costs 15 rat pelts.
+`/
+ @dataload jw-isleg.mil &playernum `p22
+ @do `t70 is `p22
+ @if bitcheck `t70 0 1 then do
+ @begin
+ @show
+ `%I see that you already have one.
+`/
+ @key nodisplay
+ @do goto inshop
+ @end
+@do write
+`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+ @if `p23 > 14 then do
+ @begin
+ @do `v01 is 1
+ @choice
+Leave
+Buy one
+ @if response is 1 then do
+ @begin
+ @do goto inshop
+ @end
+ @bitset `t70 0 1
+ @do `p22 is `t70
+ @datasave jw-isleg.mil &playernum `p22
+ @do `p23 - 15
+ @do goto boughtsome
+ @end
+ @show
+ `/`$
+ You can't afford it right now.
+ @key nodisplay
+ @do goto inshop
+@end
+
+@if response is 3 then do
+@begin
+ @show
+ `c
+ This is another way to get past the spiders in
+ "Spider Woods". It costs 15 rat pelts.
+`/
+ @dataload jw-isleg.mil &playernum `p22
+ @do `t70 is `p22
+ @if bitcheck `t70 1 1 then do
+ @begin
+ @show
+ `%I see that you already have one.
+`/
+ @key nodisplay
+ @do goto inshop
+ @end
+@do write
+`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+ @if `p23 > 14 then do
+ @begin
+ @do `v01 is 1
+ @choice
+Leave
+Buy one
+ @if response is 1 then do
+ @begin
+ @do goto inshop
+ @end
+ @bitset `t70 1 1
+ @do `p22 is `t70
+ @datasave jw-isleg.mil &playernum `p22
+ @do `p23 - 15
+ @do goto boughtsome
+ @end
+ @show
+ `/`$
+ You can't afford it right now.
+ @key nodisplay
+ @do goto inshop
+@end
+
+@if response is 4 then do
+@begin
+ @show
+ `c
+ A musician? These pipes are said to be magical,
+ You may need instruction for their use. I scarcely
+ make a profit at the low price of 50 pelts!
+`/
+ @dataload jw-isleg.mil &playernum `p22
+ @do `t70 is `p22
+ @if bitcheck `t70 2 1 then do
+ @begin
+ @show
+ `%I see that you already have one.
+`/
+ @key nodisplay
+ @do goto inshop
+ @end
+@do write
+`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+ @if `p23 > 49 then do
+ @begin
+ @do `v01 is 1
+ @choice
+Leave
+Buy one
+ @if response is 1 then do
+ @begin
+ @do goto inshop
+ @end
+ @bitset `t70 2 1
+ @do `p22 is `t70
+ @datasave jw-isleg.mil &playernum `p22
+ @do `p23 - 50
+ @do goto boughtsome
+ @end
+ @show
+ `/`$
+ You can't afford it right now.
+ @key nodisplay
+ @do goto inshop
+@end
+
+@if response is 5 then do
+@begin
+ @show
+ `c
+ This bright object will help you see in the gloom.
+ Handy for the eastern trail north.
+ It is on sale for the modest price of 170 rat pelts!
+`/
+ @dataload jw-isleg.mil &playernum `p22
+ @do `t70 is `p22
+ @if bitcheck `t70 3 1 then do
+ @begin
+ @show
+ `%I see that you already have one.
+`/
+ @key nodisplay
+ @do goto inshop
+ @end
+@do write
+`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+ @if `p23 > 169 then do
+ @begin
+ @do `v01 is 1
+ @choice
+Leave
+Buy one
+ @if response is 1 then do
+ @begin
+ @do goto inshop
+ @end
+ @bitset `t70 3 1
+ @do `p22 is `t70
+ @datasave jw-isleg.mil &playernum `p22
+ @do `p23 - 170
+ @do goto boughtsome
+ @end
+ @show
+ `/`$
+ You can't afford it right now.
+ @key nodisplay
+ @do goto inshop
+@end
+
+
+@if response is 6 then do
+@begin
+ @show
+ `c
+ This usefull item allows travellers to cross the
+ chasm that cuts the western trail north.
+ It can be had for only 170 rat pelts.
+`/
+ @dataload jw-isleg.mil &playernum `p22
+ @do `t70 is `p22
+ @if bitcheck `t70 4 1 then do
+ @begin
+ @show
+ `%I see that you already have one.
+`/
+ @key nodisplay
+ @do goto inshop
+ @end
+@do write
+`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+ @if `p23 > 169 then do
+ @begin
+ @do `v01 is 1
+ @choice
+Leave
+Buy one
+ @if response is 1 then do
+ @begin
+ @do goto inshop
+ @end
+ @bitset `t70 4 1
+ @do `p22 is `t70
+ @datasave jw-isleg.mil &playernum `p22
+ @do `p23 - 170
+ @do goto boughtsome
+ @end
+ @show
+ `/`$
+ You can't afford it right now.
+ @key nodisplay
+ @do goto inshop
+@end
+
+@if response is 7 then do
+@begin
+ @show
+ `c
+ These are not for cold, oh no, they stop the sounds
+ of the `3BANSHEES`0 from killing you dead!
+ They cost 350 rat pelts a pair.
+`/
+ @dataload jw-isleg.mil &playernum `p22
+ @do `t70 is `p22
+ @if bitcheck `t70 6 1 then do
+ @begin
+ @show
+ `%I see that you already have 'em.
+`/
+ @key nodisplay
+ @do goto inshop
+ @end
+@do write
+`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+ @if `p23 > 349 then do
+ @begin
+ @do `v01 is 1
+ @choice
+Leave
+Buy one
+ @if response is 1 then do
+ @begin
+ @do goto inshop
+ @end
+ @bitset `t70 6 1
+ @do `p22 is `t70
+ @datasave jw-isleg.mil &playernum `p22
+ @do `p23 - 350
+ @do goto boughtsome
+ @end
+ @show
+ `/`$
+ You can't afford them right now.
+ @key nodisplay
+ @do goto inshop
+
+@end
+
+@if response is 8 then do
+@begin
+ @show
+ `c
+ `0Ah...the Holy Book. It is an instruction manual for
+ use of the `%Holy Flail.`0 It costs 999 rat pelts.
+
+ The `%Holy Flail`0 will help if you ever fight `4DEMONS!
+`/
+ @dataload jw-isleg.mil &playernum `p22
+ @do `t70 is `p22
+ @if bitcheck `t70 7 1 then do
+ @begin
+ @show
+ `%I see that you already have one.
+`/
+ @key nodisplay
+ @do goto inshop
+ @end
+@do write
+`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+ @if `p23 > 998 then do
+ @begin
+ @do `v01 is 1
+ @choice
+Leave
+Buy one
+ @if response is 1 then do
+ @begin
+ @do goto inshop
+ @end
+ @bitset `t70 7 1
+ @do `p22 is `t70
+ @datasave jw-isleg.mil &playernum `p22
+ @do `p23 - 999
+ @do goto boughtsome
+ @end
+
+ @show
+ `/`$
+ You can't afford it right now.
+ @key nodisplay
+ @do goto inshop
+@end
+
+@label boughtsome
+@datasave jw-isleL.mil &playernum `p23
+@dataload jw-isle1.mil &playernum `p24
+@do `t70 is `p24
+@bitset `t70 6 1
+@do `p24 is `t70
+@datasave jw-isle1.mil &playernum `p24
+
+@label nosale
+
+@drawmap
+@update
+@closescript
+
+;------------------------------------------------------
+@#TravelBureau
+@do moveback
+@busy
+@show
+`r0`c
+ `$Howdy stranger!
+
+ `3We're closed, out of business, destitute!
+
+ People that aren't already on Mimsic Isle
+ don't wish to visit and people who are here
+ don't want to go any where else!
+
+ You can see why, check out the travel posters,
+ they are no good to me now.
+
+ The first one here is the falls at Mimsic gap.
+
+@do readspecial `s01 yn
+@pauseoff
+@show
+[?7h[40m[2J[0;1;36;46m���[40m�[46m�����[40m����[46m�����[40m[s
+[u[40m��[46m�����[40m�[46m���[40m��[46m���[40m�������������������[s
+[u���������������������������[2;1H[0;32m�[1;36m��[46m���[40m���[s
+[u[46m����[40m����[46m������[40m����[46m��������[40m��������������[s
+[u�������������������������������[3;1H[30;42m�[40m�[0;32m����� [s
+[u[1;36m���������������������[46m���������[40m�����������������������[s
+[u�������������������[4;1H[30m�[42m�ܰ���[0;32m��[36m���������[32m[s
+[u������[1;36m���������[46m�����[40m���������������������������������[s
+[u���������[5;1H[30m����[42m�[40m�[42m�[40m� [0;36m��[1;46m[40m[s
+[u[46m��۲[0;36m����[1;30m��[42m�� [0;32m�� [1;36m����[46m�[40m[s
+[u[46m�[40m����������������������������������������������[6;1H[30m��[s
+[u������� [0;36m��[1;46m��[0;36m���[1;30m���[42m��� [0;32m���� [s
+[u[1;36m���������������������������������������������������[7;1H[30m�[s
+[u���ܲ�����[0;36m�[1;46m��[0;36m��[1;30m������[42m��ܰ � �[40m[s
+[u[36;40m��������������������������������������������������[8;1H[30m�[s
+[u۲�����۰[0;36m��[1;46m��[30;40m�����۲���[42m���[40m�[42m�[40m[s
+[u[42m� [40m�[36m������������������������������������������������
+[9;1H[30m۲�����۰[0;36m��[1;46m��[0;36m�[1;30m�������۱������[s
+[u[42m�[40m���[36m�����������������������������������������������
+[10;1H[30m�������۰�[0;36m�[1;46mܱ[30;40m�����������۱���������[s
+[u[36m���������������������������������������������[11;1H[30m��� ����[s
+[u��[0;36m�[1;46m��[0;36m�[1;30m� ������������۰������[36m���������[s
+[u���������������������������������[30m��[12;1Hs������۰[0;36m��[s
+[u[1;46m߲[0;36m�[1;30m�����۰���۲�����������[36m������������������[s
+[u�������������������� [30m��۱[13;1Hc������۰[0;36m��[1;46m��[40m[s
+[u[0;36m�[1;30m������ �����������������[36m��������������������������[s
+[u��������[30m����۱��[14;1H������۰[0;36m���[1;46m��[0;36m��[s
+[u[1;30m���߲�������������������[36m����������������������������� [s
+[u[30m�����۱����[15;1H�ܱ�����[0;36m��[1;46m���[0;36m���[1;30m���[s
+[u���������[42m��[0;32m����[1;30;42m� �[40m��� [36m���������������[s
+[u�������[30m����۲��۲���� [42m [16;1H[40m���ܱ���[0;36m���[s
+[u[1;46m��[0;36m���[1;30m���������[42m�� [0;32m������[1;30m�������[s
+[u�� [36m�����������������[30m����۲���������[0;32m�[1;30;42m� [40m[s
+[u[42m [17;1H[40m����[0;36m��[1;46m�[0;36m�[1;46m������[40m[s
+[u[0;36m�������[1;30m������������������������ [36m�������������[30m�[s
+[u��������������[0;32m�[42m [1;30m����[18;1H[0;36m�����[1;46m[40m[s
+[u[46m������߲����[0;36m���[1;46m���[0;36m���[1;46m��[0;36m�������[s
+[u����������[1;30;46m�����������������������������������[19;1H[40m
+[20;1H[21;1H[1;37;40m
+ `%Chasm Falls
+@do readspecial `s01 yn
+@pauseon
+@show
+`r0`c
+ `%This one is the mountains below Krista's Tavern.
+
+ `$Nice place to live if you know the ropes.
+
+ An easy place to die if you don't!
+
+@do readspecial `s01 yn
+@pauseoff
+@show
+[?7h[40m[2J[0;1m�� [0;33m�[36m���������[1;46m����[0;36m���[33m�[s
+[u[36m����[1;46m������[0;36m�����������[1;37m��� [0;36m�������[s
+[u[1;46m����۲���[0;36m��� [1;37m����[47m���� ���[2;1H[40m���[s
+[u[0;33m���[36m���[1;46m������[0;32m��ܲ��[33m��[1;36;46m���[40m[s
+[u[0;36m��������� [1;37m����[47m۲�����[40m����� [0;36m�����[s
+[u[1;46m���[0;36m��� [1;30m��[47m [37m��[30;40m�[47m [40m۲[s
+[u[47m��[40m�[37;47m�[30m�[3;1H[37;40m�[0;32m���[33m�[32m������[s
+[u[36m��[1;46m�����[0;32m��[33m��[32m���[36m� [1;37m�������[s
+[u[47m��߲���[30;40m�[37;47m���߲��� ��[1C[0;36m����[1;46m�[40m[s
+[u[0;36m�� [1;30m���[47m�����[40m���[47m�[40m���[47m��[4;1H[40m[s
+[u[47m[37m۲�[0;33m���[32m�� [36m�����������[33m�[32m�[33m�[36m[s
+[u��[32m����[1;30;47m���[40m�[47m��� �[40m�[37;47m�[30m�[40m[s
+[u[47m[37m�[30;40m�[47m۲[37m�[30;40m�[37;47m�[30;40m�[47m[40m[s
+[u[47m [37m� ���[30;40m�� [0;36m�� [1;30m��[47m�۲�[40m�[s
+[u[47m�[40m���������[47m�[40m�[5;1H[0;32m���߲��߲����[36m��[32m[s
+[u�߱��[33m�[32m��[1;30m�������[47m�۲����[40m���[47m [37m��[40m[s
+[u[30;40m��[47m�[40m�[37;47m�[30;40m��[47m�[40m�[47m�[40m�[s
+[u[47m���[40m�� �����[47m��[40m�[47m�[40m���������[47m��[40m
+[6;1H[37;47m�� [0;33m�[32m�[33m�[47m [1;30m�[40m������ [0;36m���[s
+[u [1;30m�[0;33m���[32m��[1;30m��۲��[47m�[40m��[47m�[1C[40m[s
+[u[40m�� ��[47m�[40m��� [47m�[40m���[47m�[40m�����[47m�[40m[s
+[u[40m���� �� �� ���� ���[47m�[40m�[7;1H[0;32m����[33m�[32m��ܲ[s
+[u�����[1;30m� ��[0;32m��[33m�۱[32m߲���[1;30m���� ���� ��� ��[s
+[u�������� ������[8C� ������[8;1H��[0;32m��[33m��[1;30m۲���[s
+[u[47m�[40m��[47m�[40m��� �[0;33m���[1;30m����[0;32m���� [s
+[u[1;30m���[5C�� ������� � ������[6C�[5C���[9;1H[0;32m����[s
+[u[33m��[1;30m������������� [0;33m���[32m���[1;30m��� �[15C� ��[s
+[u � ��������[8C[32m���[10;1H[30ms��[0;33m��[32m��������[s
+[u[1;30m��[0;32m߲����[33m�� [32m�߲��� [1;30m�[19C���� �[11C�[s
+[u[32m���ܱ�� �[11;1H[30mc��[0;33m���[1;30m� ��������� �[0;33m��[s
+[u�[30C[1;30m� � [32m��[0;32m��[1m��߲[0;32m�[1m������߰[12;1H[s
+[u[0;32m����[33m�[32m�[1;30m� [0m������ [1;32m�� [0;33m��� [s
+[u[37m��[32m�[16C���[1m�[0;32m�ܱ����� [1m��[0;32m��[1m� [s
+[u[0;32m�[13;1H [33m��[32m߲��� [1m�[30m�[32m�� [0;33m���[s
+[u[1;32m���[0m�� [34m��������������[14C[32m����� [33mܲ���[1;30m[s
+[u�� [0;32m��� [33m��[14;1H ��� [1;30m�[6C[0;33mܱ���[10C[s
+[u[34m������[1;44m� � [0;34m����[1;44m�[0;34m�[44m [1m� [40m[s
+[u[0;34m�������� [1;30m�� [0;32m�� �۲�[15;1H[33m� ��� [s
+[u[1;30m�� [0m���� [33m� �� [1;30m��[0m�����[33m�[7C[37m�� [s
+[u[34m����������[44m [1m���[0;34m�������[1;30m�[0;33m�� [32mܲ��[s
+[u[33m�[32m���[16;1H [33m������� [1;30m�[0m��[1;30m�����[0m��[s
+[u[10C[33m����������[37m��� [34m��������[44m [1mܲ���[0;34m���� [s
+[u[1;30m��� [0;32m� ߲��� [33m�� [32m��[17;1H[33m�� ߲������ [s
+[u[1;30m�� [0;33m��[37m����[1;30m��� [0;34m�����������[s
+[u[1;37;44m��[34m��ܲ�������� [0;34m����� [1;30m��[0;33m��[5C[32m[s
+[u����[33m�[32m����[18;1H[1;30m��� [0;33m� [1;30m��� [0;34m�����[s
+[u���������������[44m [1;37m��[34m��[37m�[34m�۲�������� [40m[s
+[u[0;34m����� [1;30m�� [0;33m�ܲ�� [32m���� [33m� ��[19;1H[s
+[u[34m��������������������[44m [1;37m��[34m��[37m�[34m���[40m[s
+[u[44m�۲���������� �� [0;34m��������������������� [33m��[20;1H[s
+[u[34m���������������[44m [1;37m��[34m����[37m�[34m�������۲�[40m[s
+[u[44m���������� [0;34m���[1;44m�[0;34m����������������������[s
+[u��[21;1H[22;1H[1;37;40m
+ `%Jabber Mountains
+@do readspecial `s01 yn
+@pauseon
+@show
+`r0`c
+ `$That it, I'm closing now. Close the door on your way out!`l`x`l`x`l`x`l`x
+ @key nodisplay
+@drawmap
+@update
+@closescript
+
+;--------------------------------------------------------
+
+@#ClerkExit
+ ; Robbed, toss in jail?
+ ; Only if broke or if has Vorpal,
+ ; and not Flail.
+@busy
+@dataload jw-isle2.mil &playernum `p24
+@do `t70 is `p24
+@if bitcheck `t70 4 1 then do ;Vorpal
+@begin
+ @if bitcheck `t70 1 0 then do ;Flail
+ @begin
+ @do money is 0
+ @end
+@end
+
+@show
+`r0`c `0The Front Desk Clerk says,
+ "We trust that you have enjoyed your stay, that will be $50 please."`L
+`/
+`/
+`L
+@if money < 50 then do
+@begin
+ @show
+ `2Checking your wallet you find that it is chewed up and `%EMPTY!`L
+`L
+ `2"Can I owe you for this one 'til I get to the bank?", you ask.`L
+`/
+`/
+`L
+ `0"No way, I've heard that one before! I'm calling the town Guards!",`L
+ says the Desk Clerk and you hear running feet!`L
+`/
+`/
+ @key nodisplay
+ @show
+`% Bammmmm!`L.`L.`L.`L.
+`c`0 The lights go out and`L ... `Lyou wake up in a `#cell.
+ @key nodisplay
+ ;Set in jail flag.
+
+ @dataload jw-isle3.mil &playernum `p24
+ @do `t70 is `p24
+ @bitset `t70 4 1
+ @do `p24 is `t70
+ @datasave jw-isle3.mil &playernum `p24
+
+ @do map is 1236
+ @do x is 28
+ @do y is 12
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+@end
+
+@show
+`/
+`% You pay the Clerk and he ushers you to the lobby.
+@key nodisplay
+@do money - 50
+@do y + 2
+@drawmap
+@update
+
+@do quebar
+`$I'm sure glad to be out of that `%RAT HOLE!
+@closescript
+
+;------------------------------------------------
+
+@#DoctorFell
+@do moveback
+@busy
+@do `t71 is 0
+
+@label drloop
+
+@show
+`r0`c `$You are in a poorly lit shop, dusty and dark.
+`/
+ A (somewhat) competent looking elf greets you, `%"What do you want?"
+`/
+
+@dataload jw-isle3.mil &playernum `p24
+@do `t70 is `p24
+
+@DO `v01 is 1
+@CHOICE
+`$Leave.
+-`t71 0 -`t70 0 `2Who are you?
+-`t71 1 `2What are all these plants and herbs?
+-`t71 2 -`t70 1 `%Do you have any work for me to do?
+-`t71 3 +`t70 0 `2Who are you, `%again?
++`t70 6 `$What can you give me for this Mandrake?
+@IF RESPONSE IS 1 THEN DO
+@begin
+ @DRAWMAP
+ @UPDATE
+ @closescript
+@end
+@IF RESPONSE IS 2 THEN DO
+@begin
+ @bitset `t71 0 1
+ @Show
+`r0`c
+`2 Why ... I am `%Doctor Fell! `2Many know me well!
+`/
+`/
+`# Do you mean to say that you have never heard of me ?
+`/
+`2 I provide the ingredients for most potions used in the New World.
+ Perhaps, you might help me as I am often in need of more flora?
+`/
+`/
+ @key
+ @do goto drloop
+@end
+@IF RESPONSE IS 3 THEN DO
+@begin
+ @bitset `t71 1 1
+ @Show
+`c
+`/
+`/
+ There are many uses for plants. Some are used as they grow,
+ like cotton, Wolf's Bane and Hemlock ... deadly stuff that!
+ Others, like Mandrake are mixed up into healing, and killing,
+ potions and draughts. I'm getting low on `#Mandrake.
+`/
+`/
+ @key
+ @do goto drloop
+@end
+@IF RESPONSE IS 4 THEN DO
+@begin
+ @bitset `t71 2 1
+ @Show
+`c
+`0 Ah...I need Mandrake and will take anything else you find
+ such as Garlic or Hens Bane.
+`/
+ `0It may not be so easy to find, perhaps you should go and see
+ my old friend Menhir in his fields to the east.
+
+ He lives near a great stone circle, somewhere past `4Spider Woods.`0
+ Spiders...that reminds me, you will need something from the gift
+ shop to pass through `%that`0 region!
+`/
+`/
+ @key
+
+ @dataload jw-isle3.mil &playernum `p24
+ @do `t70 is `p24
+ @bitset `t70 0 1
+ @do `p24 is `t70
+ @datasave jw-isle3.mil &playernum `p24
+ @do goto drloop
+@end
+
+@IF RESPONSE IS 5 THEN DO
+@begin
+ @bitset `t71 3 1
+ @Show
+`r0`c
+`2 Why ... I am `%Doctor Fell! `2You should know me well!
+`/
+`/
+`# Do you mean to say that you have forgotten me ?
+`/
+`2 I provide the ingredients for most potions used in the New World.
+ Perhaps, you might help me as I am often in need of more flora?
+`/
+`/
+ @key
+ @do goto drloop
+@end
+
+@IF RESPONSE IS 6 THEN DO
+@begin
+ @dataload jw-isle3.mil &playernum `p24
+ @do `t70 is `p24
+ @bitset `t70 6 0
+ @do `p24 is `t70
+ @datasave jw-isle3.mil &playernum `p24
+
+
+ @Show
+`r0`c
+`% Thank you! `2I have needed these roots for some time!
+`/
+`/
+`0 They are a key ingredient of a nasty spell I am developing.
+ It just may save the island from the `4Demons`0 you have heard about!
+`/
+`/ I have little to repay you with ... oh ... `%Armour Polish,
+ `0Just what you will be needing. Reflect on this matter. `3Hahahahah!
+`/
+ @key
+
+ @dataload jw-isleg.mil &playernum `p24
+ @do `t70 is `p24
+ @if bitcheck `t70 5 0 then do
+ @begin
+ @bitset `t70 5 1
+ @do `p24 is `t70
+ @datasave jw-isleg.mil &playernum `p24
+ @do `p18 + 5
+ @end
+ @do goto drloop
+@end
+
+;------------------------------------------------
+@#Banker
+@do `p30 is 10
+@do moveback
+@busy
+@show
+`r0`c `$You have entered Rat Ville branch of the 1st Bank of Greentree
+`/
+ Welcome, please approach the counter.
+`/
+@key no display
+@run bankstart in green.ref
+
+;--------------------------------------------------
+
+@#Hotel
+@do quebar
+Ahhh....so this is the Rat Ville Hotel!
+@do map is 1236
+@do x + 25
+@do y is 17
+@loadmap &map
+@drawmap
+@update
+
+;---------------------------------------------------
+
+@#Jail
+@do quebar
+`%You entered a jail on purpose ???
+@do map is 1236
+@do x is 21
+@do y is 17
+@loadmap &map
+@drawmap
+@update
+
+;----------------------------------------------------
+
+@#FarmerHut
+@do moveback
+@busy
+@show
+`r0`c
+`0You enter a hovel at the seaward side of town and are greeted by
+a ragged looking farmer. A cheerfull fellow, he greets you warmly.
+`/
+`/
+`/
+@dataload jw-isle2.mil &playernum `p24
+@do `t70 is `p24
+@if bitcheck `t70 0 0 then do
+@begin
+ @show
+`/
+`$"Howdy stranger! I'd offer you some vittles but the rats
+eat everything I grow. The main nest is near here, if only
+someone could get the `%Piper`$ to come and lure them out of town!"
+`/
+`/
+@end
+@if bitcheck `t70 0 1 then do
+@begin
+ @show
+`/
+`$"Howdy stranger! You have gotten the rats out of town, most
+of them, anyways. I'll stuff you so full of food you will be
+the healthiest you have ever been!"
+`/`/`L`L`L
+`% You feel refreshed, and full!
+`/
+`/
+ @do `p02 is `p03
+@end
+
+@key nodisplay
+@drawmap
+@update
+@closescript
+
+;---------------------------------------------------------
+
+@#RatNest
+
+@do moveback
+@busy
+
+@dataload jw-isle2.mil &playernum `p24
+@do `t70 is `p24
+@if bitcheck `t70 0 1 then do
+@begin
+ @show
+`r0`c
+`% You see the old rat's nest, empty now, thanks to you!
+`/`0
+ It's a harder to pick up rat bounties now, but the town
+ is sure a lot nicer with the rodent menace gone.
+`/
+@end
+
+@if bitcheck `t70 0 0 then do
+@begin
+ @show
+`r0`c
+`# You face a tremendous swarm of rats. Far too many to risk killing any
+ lest the rest all turn on you at once.
+`/
+
+ @if bitcheck `t70 6 1 then do
+ @begin
+ @show
+`/
+`0 You take up your magic pipe and play the tune
+ that the `%Piper`0 taught you ....
+`/
+`/
+ `$Rat Patrol! `% `L `L
+`/
+`/
+`L
+`L
+`0 The rats perk up and begin to march through town and out the gates!
+`/`L`L
+ The townsmen go `4wild`0 ! You have completed a `%quest !
+
+ @do `p18 + 2
+ @bitset `t70 0 1
+ @do `p24 is `t70
+ @datasave jw-isle2.mil &playernum `p24
+ @end
+ @if bitcheck `t70 6 0 then do
+ @begin
+ @show
+`/
+`0 You better get out of here until you learn more about `%rats`0 and `%Pipers!
+`/
+ @end
+@end
+
+@key nodisplay
+@drawmap
+@update
+@closescript
+
+
+;---------------------------------------------------------
+@#RedCross
+@do moveback
+@busy
+@show
+`r0`c
+ `$Welcome to Rat Ville's Astounding Healing Hostel
+`/
+`/
+@run hospital
+
+ ; Jail, Hotel
+;-------------------------------------------------------
+@#CellDoor
+@dataload jw-isle2.mil &playernum `p24
+@do `t70 is `p24
+@if bitcheck `t70 2 0 then do
+@begin
+ @do moveback
+ @closescript
+@end
+ ; If no key, do moveback
+;--------------------------------------------------------
+
+@#Jailer
+@busy
+@do move 10 23
+@do write
+`r0`$Haven't I seen you somewhere before, like, on a `#wanted poster?
+@key nodisplay
+@clearblock 23 24
+
+;--------------------------------------------------------
+@#Prisoner
+@busy
+@do move 10 22
+@do write
+`r0`2I had a `0master`2 key for these doors, but I `0lost`2 it.
+@do move 6 23
+@do write
+`r0`%Hey`2, if you find it, will you take me with you when you `%escape?
+@key nodisplay
+@clearblock 22 24
+
+@dataload jw-isle3.mil &playernum `p24
+@do `t70 is `p24
+@bitset `t70 5 1
+@do `p24 is `t70
+@datasave jw-isle3.mil &playernum `p24
+@closescript
+;--------------------------------------------------------
+@#Shiv
+@do moveback
+@busy
+@show
+`r0`c
+`2 You see a prisoner, a wizened elf. He stares at you intently`L
+ apparently not sure whether to speak or to remain silent.`L
+`L
+ You wonder, could he be waiting for a `#Berry pie?`L
+`L
+@if bitcheck `t70 2 0 then do
+ ;Smackrod? Begone!
+@begin
+ @pauseoff
+ @Show
+`c`4 You cannot be here, my cell is still locked. Begone ... wall walker!
+`/
+`/
+ @do write
+`0 I guess this smackrod thing can backfire sometimes.
+ @do readspecial `s01 NY
+ @label madmage
+ @pauseoff
+ @show
+[?7h[40m[2J[16C[0;1m� � � [36m�[34m�[37m� �[20C� � � �
+[2;1H[15C� [36m�[34m� �� � [36m�[18C[37m� � �� �[3;1H[s
+[u[14C� [36m�[34m� � [31m� � [36m�[20C[37m� �� [36m�[34m� [s
+[u[36m� [37m�[4;1H[17C� [36m�[34m�[31m� �[24C[37m� [36m�[34m[s
+[u� ��� [36m�[37m�[5;1H[19C� � [31m���[9C[37m�[0m���[1m�[13C[s
+[u[31m�� [34m��[36m�[6;1H[26C[31m���[6C[0m�[1m�[0m�[1;31m���[s
+[u[0m�[1m�[0m�[1;47m�[40m� �[6C[31m���� [36m� [37m�[7;1H[27C[s
+[u[31m�[34m���� [0m��[1;31m�����[0m����[1;47m�[40m�� [34m���[s
+[u[6C[37m�[8;1H[24C[34m���� �[0;34m�[1m�[0;34m�� [37m��[1m��[0m[s
+[u��� [1;47m�[0m����[1m��[34m�[0;34m�[1m�[0;34m�[1m��[9;1H[22C��[s
+[u��[0;34m��[1m�[0;34m� ���� [1;37m��[0m� [34m��[37m���[34m�����[s
+[u���[1m��[10;1H[27C[0;34m����� ���������� ܱ� ������[1m��[0;34m�[s
+[u[1m�[11;1H[35C[0;34m������۱۲� ������ [1m�[12;1H[35C[0;34m���[s
+[u�۲�߱[8C���[13;1H[36C߲�����[14;1H[37C� �ܰ�[15;1H[36C��۱�۱ �
+[16;1H[39C�� ۱ �[17;1H[36C�۰���ܲ��[18;1H[36C�۰�۲۱ ��[19;1H[s
+[u[36C� ���۱��� �[20;1H[35C���۰۲��� ��[1;37;40m
+`/
+ @do write
+`% You are in trouble! You shouldn't mess with Shiv!
+ @key nodisplay
+ @pauseon
+ @show
+`c
+`% Zaaaaaaaaaaaaaaaaaaaap!
+ @run dockman
+ @closescript
+@end
+
+@if `i08 < 1 then do
+ ; No pie
+@begin
+ @show
+ `%Too bad you don't have one!
+`/
+ @key nodisplay
+ @drawmap
+ @update
+ @closescript
+@end
+
+@if `i08 > 0 then do
+ ; Has pie
+@begin
+ @do `i08 - 1
+ @show
+`2 Luckily, you have one and `0Shiv`2 snatches it and eats it in one bite!
+`L
+`L
+@end
+
+@dataload jw-isle2.mil &playernum `p24
+@do `t70 is `p24
+ ;No Vorpal blade, no message.
+@if bitcheck `t70 4 0 then do
+@begin
+ @Show
+`% "`N`0, you are not ready for the knowledge that I could impart."`L
+`/
+`L
+ "I know `%secrets`0 about this Isle that you will need,
+ but you don't need them `L... `L`%YET!"`/`L
+`/
+`0 "Come see me again, when you think you are more capable."
+ @key nodisplay
+ @drawmap
+ @update
+ @closescript
+@end
+
+@if bitcheck `t70 3 1 then do
+@begin
+ @show
+ `$"You came back? Whatever for?"
+`/
+`/
+ @if bitcheck `t70 1 1 then do
+ @begin
+ @show
+`% "Ah, I see you have the flail, I told you!"
+`/
+ @end
+ @if bitcheck `t70 1 0 then do
+ @begin
+ @show
+`% "The Flail is still in the swamp, you will need it!"
+`/
+`L
+`0 You lose ten hit points.
+ @do `p02 - 10
+ @if `p02 < 1 then do
+ @begin
+ @do `p02 is 1
+ @end
+ @end
+@end
+
+@if bitcheck `t70 3 0 then do
+@begin
+ @show
+`% At last he speaks...
+`/
+`L
+`0 "I am `%Shiv.`0
+ There is a `%Holy Flail`0 hidden in the swamp, many miles to the east,
+ you will need it to fight some unholy creatures. Try to find it but
+ be aware that swamp fever hits many who venture there!"
+`/
+`L .`L.`L.`L.`L.`L.`L.`L.`L.`L.
+`0 You had better scram, the guard may wake up any second!
+`/
+ @bitset `t70 3 1
+ @do `p24 is `t70
+ @datasave jw-isle2.mil &playernum `p24
+@end
+
+@key nodisplay
+@drawmap
+@update
+@closescript
+
+;--------------------------------------------------------
+@#JailExit
+@dataload jw-isle2.mil &playernum `p24
+@do `t70 is `p24
+@bitset `t70 2 0
+@do `p24 is `t70
+@datasave jw-isle2.mil &playernum `p24
+@do map is 1553
+@do x is 23
+@do y is 7
+@loadmap &map
+@drawmap
+@update
+;--------------------------------------------------------
+
+@#HotelExit
+@do map is 1553
+@do x - 25
+@do y is 7
+@loadmap &map
+@drawmap
+@update
+
+;--------------------------------------------------------
+
+@#ClerkEnter
+@do `v01 is 1
+@do moveback
+@offmap
+@show
+`r0`c `%`r1 The Rat Ville Hotel `r0
+
+ `2This place looks crude - the odd rat scurries about the halls.
+
+ A stinky clerk with bad breath smiles kindly at you.
+
+ You are holding `$$&money`2.
+
+@do write
+`x`x
+@choice
+Get a room (`$$50`%)
+Leave
+@if response is 1 then do
+@begin
+ @if money < 50 then do
+ @begin
+ @show
+`\`\`2 You are short on cash. Luckily, you can pay as you leave.
+`k
+ @do x - 1
+ @do y - 2
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if money > 49 then do
+ @begin
+ @show
+`\`\ `2 The clerk says "Welcome to our Hotel, you may pay as you leave."
+`\`k
+ @do x - 1
+ @do y - 2
+ @drawmap
+ @update
+ @closescript
+ @end
+@end
+@if response is 2 then do
+@begin
+ @show
+`\`\ `2 The clerk says "Well, perhaps another time?"
+`\`k
+
+ @drawmap
+ @update
+ @closescript
+@end
+;--------------------------------------------------------
+
+ ;NorthBeach
+
+;--------------------------------------------------------
+
+@#EntryShack
+@do moveback
+@busy
+@do move 10 23
+@do write
+`r0`$Would you like a ticket to Mimsic Isle ? They are free! `!
+@do readspecial `s01 YN
+@clearblock 23 24
+
+@do move 10 23
+@do write
+`%Here you are, just show it the the man on the wharf, bon voyage!
+@key nodisplay
+@clearblock 23 24
+
+@dataload jw-isle3.mil &playernum `p24
+@do `t70 is `p24
+@bitset `t70 3 1
+@do `p24 is `t70
+@datasave jw-isle3.mil &playernum `p24
+
+ ; TP
+;--------------------------------------------------------
+
+@#EntryWharf
+@do moveback
+@busy
+@dataload jw-isle3.mil &playernum `p24
+@do `t70 is `p24
+
+@if bitcheck `t70 3 0 then do
+@begin
+ @do move 10 23
+ @do write
+You can get a ticket to Mimsic Isle in that shack over there.
+ @key nodisplay
+ @clearblock 23 24
+@end
+
+@if bitcheck `t70 3 1 then do
+@begin
+ @do move 10 23
+ @do write
+Now boarding, bound for Mimsic Isle! Have a good trip!
+ @key nodisplay
+ @clearblock 23 24
+
+ @bitset `t70 3 0
+ @do `p24 is `t70
+ @datasave jw-isle3.mil &playernum `p24
+
+ @do map is 1554
+ @do x is 33
+ @do y is 17
+ @loadmap &map
+ @drawmap
+ @update
+@end
+
+
+;--------------------------------------------------------
+
+@#EntrySign
+@do moveback
+@do saybar
+Visit Mimsic Isle, tickets now on `$SALE!!
+
+ ;Spiders
+;--------------------------------------------------------
+
+@#SpiderSign
+@do moveback
+@do saybar
+`%<--- `$Rat Ville, One short hike.
+
+;--------------------------------------------------------
+@#SpiderBard
+@do moveback
+@busy
+@clearblock 21 24
+@do move 1 21
+@show
+`r0`0 Welcome to Mimsic Isle. Rat Ville, our only town, is north and west.
+ The dock to the south is the best way home, maybe you should take it?
+@key nodisplay
+@clearblock 21 24
+@do statbar
+ ; TP
+;--------------------------------------------------------
+@#DockMan
+
+@do move 10 23
+@do write
+`r0`0 Hope you enjoyed your visit ? Come again soon!
+@key nodisplay
+@clearblock 23 24
+
+@do map is 471
+@do x is 52
+@do y is 14
+@loadmap &map
+@drawmap
+@update
+
+;--------------------------------------------------------
+@#BigSpider
+
+@busy ;Met the critter Today?
+@datanewday jw-isle1.mil
+@dataload jw-isle1.mil &playernum `p24
+@do `t70 is `p24
+@if bitcheck `t70 0 1 then do
+@begin
+ @do quebar
+`0So the Spiders remember me ... `%today!
+ @closescript
+@end
+
+@dataload jw-isle2.mil &playernum `p24
+@do `t70 is `p24
+ ;Knows tarantula?
+@if bitcheck `t70 7 1 then do
+@begin
+ @do quebar
+`0So that's why you learned the tune "`%Tarantula"`0!
+ @closescript
+@end
+
+@busy
+@pauseoff
+@show
+[?7h[40m[2J[0m����� ��[6C��[5C��[9C��[15C����[2;1H ���[8C��� [s
+[u ������ ����������[5C����[3;1H ���� �������� ��� � �����[8C��[s
+[u���[4;1H�[10C��[6C�� � ��[9C���� ���[5;1H��[10C[31m����[1;30m�[s
+[u� ��� [0m���[1;30m���������[0m�[8C���[6;1H ��� [1;30m�[0;31m��[s
+[u���[1;30m�[0;31m�� [1;30m���ݲ�������� �� ������[8C[0m�[7;1H[5C[s
+[u[1;30m�߲[0;31m��[1;30m����[5C�� �� ��۱��ް���[0;31m�[1;30m� ���[s
+[u[6C[0m�[8;1H�� [1;30m�߲������[5C��� �ܰ�۱��ް�߰��������[5C[s
+[u[0m�[9;1H[1;30msc۲�����[7C���ݱ�� ܲ���ܲ������� [0m��[1;30m��[s
+[u[0m� �� � �[10;1H [1;30m۲����[6C�����������[0m� �[1;30m�� �� � [s
+[u � �[6C[0m�[11;1H[1;30m���� ����������� � [0m���[1;30m���[s
+[u[0m�[1;30m�� � �� �� [0m�[12;1H[1;30m��ܲ������������ �� �[s
+[u[0m�� � [1;30m��� ��[0m�[1;30m�� � �� [0m��[13;1H [1;30m����[s
+[u�� [0m�� [1;30m��[0m�[1;30m�� [0m�[1;30m����[0m� [1;30m��[s
+[u[0m�[1;30m�� � �� [0m�[14;1H[13C�� [1;30m�� [0m� �[1;30m�� [s
+[u [0m���[1;30m�� [0m���� �[1;30m��[15;1H[0m��[13C[1;30m��[0m��[s
+[u[5C[1;30m��[7C[0m�[1;30m�� [0m�����[1;30m��[16;1H [0m�������[s
+[u��� [1;30m��[0m��[5C[1;30m��[0m� �������� [1;30m��[0m��� � [s
+[u[1;30m��[0m��[17;1H[18;1H[19;1H[20;1H[21;1H[22;1H
+@do move 15 23
+@do write
+`r0`@Yikes!`0 Did you intend to bump into `@THAT ? `%(Yn)
+@do readspecial `s01 YN
+@pauseon
+
+@label Spiderfight
+ ;Spiders messing around
+ ;Send em back if no orb or fire.
+
+@dataload jw-isleG.mil &playernum `p24
+@do `t70 is `p24
+
+@if bitcheck `t70 0 0 then do
+@begin
+ @run madmage
+@end
+
+@if bitcheck `t70 1 0 then do
+@begin
+ @run madmage
+@end
+ ;Pick, then fight.
+@show
+`r0`c
+`0You see before you a huge spider guarding a large web, perhaps
+with an egg case within. `%What will you do?`/
+
+
+@do `v01 is 1
+@choice
+`$Retreat!
+`4Use the Campfire Starter to burn the webs!
+`#Offer the spider the SunStone to warm the nest egg.
+`0Ignore the webs and walk right through.
+ @show
+`\
+`\
+@if response is 1 then do
+@begin ;Do nearly nothing
+ @do moveback
+ @drawmap
+ @update
+ @closescript
+@end
+
+@if response is 2 then do
+@begin
+ @show
+`c
+ `4You light a torch and `$BURN`4 the webs as the spider retreats.`L.`L.`L.
+
+ `%Then returns!
+
+ `0Your alignment drops 3 points and ... `L`#you are in trouble!
+
+ @do `p07 - 3
+ @key nodisplay
+@end
+
+@if response is 3 then do
+@begin
+ @show
+`c
+ `2You offer your SunStone to the Arachnid and it seems to understand.`L.`L.`L.
+
+ `%Or not!
+
+ `0Your alignment rises 5 points and ... `L`#you are in trouble!
+
+ @do `p07 + 5
+ @key nodisplay
+@end
+
+@if response is 4 then do
+@begin
+ @show
+`c
+ `2You march ahead ignoring the scittering varmits.`L.`L.`L.
+
+ `%For a few steps!`L
+
+ `#You may be in trouble!
+
+ @key nodisplay
+@end
+
+@label spiderdo
+
+@fight
+;name
+Web Master
+;string said when you see him
+A form awaits in the web.
+;power move kill string
+You shiver as the leggey thing quivers on the ground.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+nips you|299
+claws you|325
+bites you|295
+NONE|NONE
+NONE|NONE
+;defense
+122
+;gold reward
+257
+;experience
+151
+;hit points
+544
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@drawmap
+@update
+@dataload jw-isle1.mil &playernum `p24
+@do `t70 is `p24
+@bitset `t70 0 1
+@do `p24 is `t70
+@datasave jw-isle1.mil &playernum `p24
+
+;--------------------------------------------------------
+@#SpiderWeb
+@busy
+ ;Met the critter Today?
+@datanewday jw-isle1.mil
+@dataload jw-isle1.mil &playernum `p24
+@do `t70 is `p24
+@if bitcheck `t70 0 1 then do
+@begin
+ @do quebar
+`0So the Spiders remember me ... `%today!
+ @closescript
+@end
+
+
+@dataload jw-isle2.mil &playernum `p24
+@do `t70 is `p24
+ ;Knows tarantula?
+@if bitcheck `t70 7 1 then do
+@begin
+ @drawmap
+ @update
+ @closescript
+@end
+
+@busy
+@pauseoff
+@show
+[?7h[40m[2J[4C[0m��[15C[1;30m���sc��� ��[5C���� ��� ��� [0m��[s
+[u[7C��[7C��[2;1H[6C��[1m�� [0m��[10C�[1;30m�� ��[6C������� [s
+[u�� [0m���[10C�� [1m����[3;1H[10C��[0m��[7C[1m�[0m���[1;30m�� [s
+[u ����� �������� ��[0m�� ���[6C[1m���� [0m��[4;1H[10C�� ��[s
+[u[1m�� � [30m�� [0m��� �[1;30m�[41m�[40m��� ���[41m�[40m� [0m[s
+[u��� �[1;30m��[7C[0m�����[1m�[9C[0m�[5;1H[8C��[7C���[1m�� [0m[s
+[u��� �� [1;30m��� ���[5C[0m�� �� �����[13C�[6;1H[1m��[0m�� [s
+[u ��[6C[1m��[5C[0m��[1m��[6C[0m�[1m� [0m�� [1m��[6C����[s
+[u[5C[0m��[12C[1m����[0m�[7;1H �[1m��[0m��[1m�� [0m�� ��[s
+[u [1m��[0m�� [1m�� [0m�� [1m�� ���� [0m�[1m�[7C[0m�� [s
+[u�[1m���[0m���[1m���[0m�[8;1H[5C�� [1m�� � ��[0m�[1m���[0m��[s
+[u�[5C���[1m� [0m���[1m��� ����[5C[0m����[1m��[0m��� ��[10C��
+[9;1H[5C�[8C�� �[5C���[1m��[0m��� [1m�[0m��[1m�[0m�[1m��[0m��[s
+[u� ����[1m��[0m����[8C��[11C�[10;1H[1m�����[0m���[1m���[0m����[s
+[u[1m�[0m������[1m����[0m�����[1m��[0m������[1m�[0m���[1m���[0m�[s
+[u��[1m���[0m��[1m�[0m�[1m����[0m�[1m����[0m�[1m�����[0m���[1m�[s
+[u�[0m����[11;1H ��[9C� ��[5C����[1m�[0m�[1m���[0m� �[1m��[s
+[u[0m� ��������[1m�� �[0m�[8C��[11C�[12;1H �[10C� �[1m������[s
+[u[0m� ���[1m� [0m�� [1m�� [0m�� [1m���� [0m��[1m��[0m��[s
+[u[1m� [0m��[11C�[13;1H ��[5C��[1m����[0m�� ��[1m����[5C��[s
+[u [0m�[1m� ��[5C���[0m�[5C[1m�[0m����[1m�[0m�[8C�[14;1H��[s
+[u[1m��[0m���[1m���[6C[0m�� ��[1m�� [0m��� [1m��[5C��[5C��[s
+[u[0m��� [1m���[0m� �� [1m��[0m�[1m��� [0m�[15;1H[5C��[9C[s
+[u[1m��[0m���[8C[1m�� [0m������[1m��[0m��[1m��[0m�� [1m��[9C���[s
+[u�[8C[0m� �[1m����[16;1H[6C[0m��� [1m����[5C[0m��� �[1m�[s
+[u[9C[0m�[1m�[9C[0m��[8C� [1m��[0m�� ��[7C[1m��[0m�[17;1H[s
+[u[8C[1m�[0m���[12C����[10C�[1m�[10C��� [0m�����[7C[1m��[0m��
+[18;1H ��[1m�� [0m����[8C�� �[1m�����[0m����[1m�[0m��������[s
+[u[1m��� [0m��[15C�[1m��[0m�[19;1H[20;1H[21;1H[22;1H
+@do move 15 23
+@do write
+`r0 `@Yikes!`0 This doesn't feel too safe!
+@key nodisplay
+@clearblock 23 24
+@pauseon
+@run Spiderfight
+
+;----------------------------------------------------------
+@#Hospital
+@do moveback
+@busy
+
+@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 `v01 is 1
+
+ @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."
+
+ @choice
+Well come on! How am I supposed to make money when I can barely walk?
+Buddy, how 'bout a little compassion for once in your life freak!
+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," `2Shaman informs you.
+
+`k
+ @end
+ @if response is 3 then do
+ @begin
+ @do `p02 = 1
+ @show
+ `0"Sure. Take like uh.. these." `2 he snickers.
+
+ `2You gulp down the weird green 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!" `2says Shaman.
+
+`k
+@drawmap
+@update
+
+
+;------------------------------------------------------------------
+ ;PiperField
+
+@#PiperBard
+@do Saybar
+`!The `%Piper`! marches and plays here every day. You will find him!
+;--------------------------------------------------------------------
+@#PiperSign
+@do moveback
+@do saybar
+`%Spiders south, `!Piper's practice fields north.
+;--------------------------------------------------------------------
+@#OldRoad
+@do saybar
+`%You lurch through potholes on this `2wretched`% road.
+;--------------------------------------------------------------------
+@#PiperStone
+@do saybar
+`7 A worthless rock, interesting `%diamond`7 shape though!
+@closescript
+
+;-------------------------------------------------------------
+
+@label killkeypress
+@do moveback
+@do move 15 23
+@do write
+`r0`@Ouch!`0 Did you intend to bump into `@THAT ? `%(YN)
+@do readspecial `s01 YN
+@clearblock 23 24
+
+@CLOSESCRIPT
+
+;-------------------------------------------------------------
+
+@#ranger
+@busy
+@dataload jw-isleG.mil &playernum `p24
+@do `t70 is `p24
+
+@if bitcheck `t70 0 0 then do
+@begin
+ @do moveback
+ @show
+`r0`c `0You are met by a Ranger who waves you back and says,
+
+
+ `$"Without a `%campfire starter `$no passage is permitted."
+
+ "Please, visit the Rat Ville Gift Shop."
+
+ @do readspecial `s01 yn
+ @drawmap
+ @update
+ @closescript
+@end
+
+@if bitcheck `t70 1 0 then do
+@begin
+ @do moveback
+ @show
+`r0`c `0You are met by a Ranger who waves you back and says,
+
+
+ `$"You must have a `%Sun Stone `$to pass through this region."
+
+ "Please, visit the Rat Ville Gift Shop, they pay my wages."
+
+ @do readspecial `s01 yn
+ @drawmap
+ @update
+ @closescript
+@end
+
+@CLOSESCRIPT
+
diff --git a/xtrn/lord2/cnw/jw-isle1.ref b/xtrn/lord2/cnw/jw-isle1.ref
new file mode 100644
index 0000000000000000000000000000000000000000..1a32678afdd29ede701cf5cb5c9b568c4e836abd
--- /dev/null
+++ b/xtrn/lord2/cnw/jw-isle1.ref
@@ -0,0 +1,1860 @@
+; Script file JW-ISLE1.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:27 2001
+
+@DECLARE start 000001926
+@DECLARE banshee 000002001
+@DECLARE jabber 000002799
+@DECLARE lava 000003162
+@DECLARE topmonsters 000004461
+@DECLARE cavewest 000005008
+@DECLARE eastcave 000005370
+@DECLARE moria 000005728
+@DECLARE intown 000006580
+@DECLARE spiders 000006884
+@DECLARE fieldfights 000007190
+@DECLARE marsh 000010163
+@DECLARE stonefights 000010941
+@DECLARE mandrake 000011245
+@DECLARE chasm 000011549
+@DECLARE deepwoods 000011844
+@DECLARE cavewest 000012416
+@DECLARE eastcave 000012556
+@DECLARE moria 000012693
+@DECLARE spiderdo 000012843
+@DECLARE rats 000013480
+@DECLARE ratpelt 000014051
+@DECLARE stonedo 000014923
+@DECLARE mandrakedo 000015522
+@DECLARE marshdo 000016141
+@DECLARE wolves 000016745
+@DECLARE vampires 000019239
+@DECLARE getorb 000019870
+@DECLARE monitor 000020038
+@DECLARE cavetroll 000020667
+@DECLARE harpy 000021305
+@DECLARE howler 000021916
+@DECLARE licht 000022558
+@DECLARE beholder 000023215
+@DECLARE chimera 000023850
+@DECLARE wyvern 000024477
+@DECLARE gorgon 000025119
+@DECLARE deathknight 000025755
+@DECLARE dracolicht 000026418
+@DECLARE wraith 000027082
+@DECLARE shadowdemon 000027727
+@DECLARE jujutree 000028384
+@DECLARE pitfiend 000029022
+@DECLARE leastdemon 000029754
+@DECLARE meddemon 000030484
+@DECLARE lesserdemon 000031228
+@DECLARE medusafight 000032023
+@DECLARE jubjubbird 000032696
+@DECLARE jabberwalk 000033379
+@DECLARE bander 000034038
+@DECLARE pitsister 000034703
+@DECLARE dem1 000035365
+@DECLARE dem2 000035597
+@DECLARE dem3 000035824
+@DECLARE dem0 000036057
+@DECLARE beatjub 000036336
+@DECLARE beatjab 000036557
+@DECLARE beatband 000036767
+@DECLARE beatmed 000036976
+@DECLARE beatsis 000037187
+@DECLARE fleesis 000037427
+@NOCHECK
+; End of .REF index
+
+; Ref file for Jim Wilson's, Lord 2 IGM ver. 1.01, Mimsic Isle.
+;
+
+@#Start
+
+;-----------------------------------------------------------
+@#Banshee
+
+@do `p24 random 2 1
+@if `p24 is 1 then do
+@begin
+ @dataload jw-isleg.mil &playernum `p25
+ @do `t70 is `p25
+ @if bitcheck `t70 6 0 then do
+ @begin
+ @do enemy is banshee
+ @show
+ `r0`c
+ `%The howling of the banshees is the last thing that you hear!
+
+`$ (Where are your earmuffs?)
+
+ @do readspecial `s01 yn
+ @show
+ `r01`c
+ @run die in gametxt.ref
+ @closescript
+ @end
+ @do saybar
+ `$Good thing you were wearing earmuffs, the banshees just screamed by.
+ @closescript
+@end
+
+@run topmonsters
+@closescript
+;-----------------------------------------------------------
+
+@#Jabber
+
+@do `p24 random 4 1
+
+@if `p24 is 1 then do
+@begin
+ @run wyvern
+@end
+@if `p24 is 2 then do
+@begin
+ @run dracolicht
+@end
+
+@if `p24 is 3 then do
+@begin
+ @run deathknight
+@end
+
+@if `p24 is 4 then do
+@begin
+ @run chimera
+@end
+
+
+@closescript
+
+;-----------------------------------------------------------
+
+@#Lava
+
+@do `p24 random 4 1
+
+@if `p24 is 1 then do
+@begin
+ @run deathknight
+@end
+@if `p24 is 2 then do
+@begin
+ @run shadowdemon
+@end
+
+@if `p24 is 3 then do
+@begin
+ @run wraith
+@end
+
+@if `p24 is 4 then do
+@begin
+ @dataload jw-isle3.mil &playernum `p24
+ @do `t70 is `p24
+ @if bitcheck `t70 7 0 then do
+ @begin
+ @show
+`r0`c
+ `$You are burned, burned `%deeply`$ by the hot ashes
+ that rain down upon the ground in this area.`l`x`l`x
+
+ Your `lhealth is `lfailing, you `lbetter leave!`l`x
+
+
+ `lThere are `lburn herbs, `lyou should `lfind some!`l`x`l`x`l`x
+
+ @key nodisplay
+ @do `p27 is `p03
+ @DO `P27 / 3
+ @do `p02 - `P27
+ @do statbar
+ @if `p02 < 1 then do
+ @begin
+ @do enemy is falling`xash
+ @run die in gametxt.ref
+ @end
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do saybar
+`%The `#burn herbs `%you got at the Krista's are saving `lyour hide!
+@end
+
+@closescript
+
+;-----------------------------------------------------------
+
+@#TopMonsters
+@do `p24 random 7 1
+
+@if `p24 is 1 then do
+@begin
+ @run licht
+@end
+@if `p24 is 2 then do
+@begin
+ @run beholder
+@end
+
+@if `p24 is 3 then do
+@begin
+ @run genran in genran.ref
+@end
+
+@if `p24 is 4 then do
+@begin
+ @run chimera
+@end
+
+@if `p24 is 5 then do
+@begin
+ @run wyvern
+@end
+
+@if `p24 is 6 then do
+@begin
+ @run gorgon
+@end
+@if `p24 is 7 then do
+@begin
+ @run wolves
+@end
+
+@closescript
+
+;-----------------------------------------------------------
+
+@#CaveWest
+
+@do `p24 random 4 1
+
+@if `p24 is 1 then do
+@begin
+ @run rats
+@end
+@if `p24 is 2 then do
+@begin
+ @run Harpy
+@end
+
+@if `p24 is 3 then do
+@begin
+ @run genran in genran.ref
+@end
+
+@if `p24 is 4 then do
+@begin
+ @run Wolves
+@end
+
+@closescript
+;-----------------------------------------------------------
+@#EastCave
+@do `p24 random 4 1
+
+@if `p24 is 1 then do
+@begin
+ @run rats
+@end
+@if `p24 is 2 then do
+@begin
+ @run Howler
+@end
+
+@if `p24 is 3 then do
+@begin
+ @run genran in genran.ref
+@end
+
+@if `p24 is 4 then do
+@begin
+ @run Wolves
+@end
+
+@closescript
+;-----------------------------------------------------------
+@#Moria
+
+@do `p24 random 4 1
+
+@if `p24 < 3 then do
+@begin
+ @run rats
+ @closescript
+@end
+@if `p24 is 3 then do
+@begin
+ @run cavetroll
+@end
+
+@if `p24 is 4 then do
+@begin
+ @if `i37 > 0 then do
+ @begin
+ @show
+`r0`c
+ `#Something small and fast just stole the `%`+37`# from your head!
+
+ @do `i37 - 1
+ @if `i37 > 0 then do
+ @begin
+ @show
+
+ `$Luckily, `lyou `lhave `lanother!`l.`l.`l.`l.`l.`l.
+
+ @key nodisplay
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+ `$That `lwas `lyour `lonly one!`l.`l.`l.`l.`l.`l.
+
+ @key nodisplay
+ @drawmap
+ @update
+ @end
+@end
+@closescript
+
+
+;-----------------------------------------------------------
+
+@#Intown
+@dataload jw-isle2.mil &playernum `p24
+@do `t70 is `p24
+@if bitcheck `t70 0 0 then do
+@begin
+ @run rats
+ @closescript
+@end
+@do saybar
+`%Nice to walk thorough town with no rats bothering me!
+@closescript
+
+;-----------------------------------------------------------
+
+@#Spiders
+@do `p24 random 3 1
+
+@if `p24 is 1 then do
+@begin
+ @run rats
+@end
+@if `p24 is 2 then do
+@begin
+ @run spiderdo
+@end
+
+@if `p24 is 3 then do
+@begin
+ @run genran in genran.ref
+@end
+
+@closescript
+;-----------------------------------------------------------
+@#FieldFights
+
+@do `p24 random 4 1
+
+@if `p24 is 1 then do
+@begin
+ @run genran in genran.ref
+@end
+
+@if `p24 is 2 then do
+@begin
+ @run rats
+@end
+
+@if `p24 is 3 then do
+@begin
+ @run spiderdo
+@end
+
+@if `p24 is 4 then do
+@begin
+ @do `p23 random 2 1
+ @datanewday jw-isle4.mil
+ @dataload jw-isle4.mil &playernum `p21
+ @do `t70 is `p21
+ @if bitcheck `t70 0 1 then do
+ @begin
+ @do `p23 is 2
+ @end
+ @if `p23 is 1 then do
+ @begin
+ @do moveback
+ @busy
+ @bitset `t70 0 1
+ @do `p21 is `t70
+ @datasave jw-isle4.mil &playernum `p21
+
+ @show
+`r0`c
+`0 Ah, the famed `%PIPER `0stands before you!
+`/
+`/
+ Perhaps, he may teach you how to use the magic pipe?
+`/
+ @dataload jw-isleg.mil &playernum `p20
+ @do `t70 is `p20
+ @if bitcheck `t70 2 0 then do
+ @begin
+ @show
+ `$If you had one! `l.`l.`l.`l.`l.`l.`l.`l.`l.
+ `/
+ @do readspecial `s01 yn
+ @drawmap
+ @update
+ @closescript
+ @end
+ ;Meet the piper and learn.
+ @dataload jw-isle2.mil &playernum `p20
+ @do `t70 is `p20
+ @do `v01 is 1
+ @choice
+`%Leave, there is nothing you can learn here!
+-`t70 6 `0Learn `%'Rat Patrol'
+-`t70 7 `0Learn `%'Tarantula'
+-`t70 5 `0Learn `%'oh...When the Saints'
+ @if response is 1 then do
+ @begin
+ @show
+ `c
+ `$The `%Piper`$ marches down the field, rats following his every step.
+ `/
+
+ `k
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+ `c
+ `$The `%Piper`$ teaches you to play `0"Rat Patrol" `$on your magic pipe.
+ `/
+ `$Maybe now the rats will follow you?
+
+ `k
+ @bitset `t70 6 1
+ @end
+
+ @if response is 3 then do
+ @begin
+ @show
+ `c
+ `$The `%Piper`$ teaches you to play `0"Tarantula" `$on your magic pipe.
+ `/
+ `$Maybe now the big spiders will leave you alone?
+
+ `k
+ @bitset `t70 7 1
+ @end
+
+ @if response is 4 then do
+ @begin
+ @show
+ `c
+ `$The `%Piper`$ teaches you to play `0"Saints" `$on your magic pipe.
+ `/
+ `$Will this help against `4DEMONS`$?
+
+ `k
+ @bitset `t70 5 1
+ @end
+
+ @do `p20 is `t70
+ @datasave jw-isle2.mil &playernum `p20
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do saybar
+`0You see the `%Piper`0 skipping across the field, too fast for you to catch!
+@end
+@closescript
+;-----------------------------------------------------------
+
+@#Marsh
+
+@do `p24 random 4 1
+
+@if `p24 is 1 then do
+@begin
+ @run genran in genran.ref
+@end
+
+@if `p24 is 2 then do
+@begin
+ @run rats
+@end
+
+@if `p24 is 3 then do
+@begin
+ @run marshdo
+@end
+
+@if `p24 is 4 then do
+@begin
+ @do `p27 random 2 1
+ @if `p27 is 1 then do
+ @begin
+ @datanewday jw-isle1.mil
+ @dataload jw-isle1.mil &playernum `p20
+ @do `t70 is `p20
+ @bitset `t70 5 1
+ @do `p20 is `t70
+ @datasave jw-isle1.mil &playernum `p20
+ @do quebar
+`% You are bitten by an insect and now have `#Swamp Fever!
+ @if `p02 > 5 then do
+ @begin
+ @do `p02 - 5
+ @end
+ @end
+@end
+
+@closescript
+
+;-----------------------------------------------------------
+@#StoneFights
+
+@do `p24 random 3 1
+
+@if `p24 is 1 then do
+@begin
+ @run rats
+@end
+@if `p24 is 2 then do
+@begin
+ @run stonedo
+@end
+
+@if `p24 is 3 then do
+@begin
+ @run genran in genran.ref
+@end
+
+@closescript
+;-----------------------------------------------------------
+@#Mandrake
+
+@do `p24 random 3 1
+
+@if `p24 is 1 then do
+@begin
+ @run rats
+@end
+@if `p24 is 2 then do
+@begin
+ @run mandrakedo
+@end
+
+@if `p24 is 3 then do
+@begin
+ @run genran in genran.ref
+@end
+
+@closescript
+;-----------------------------------------------------------
+@#Chasm
+
+@do `p27 random 3 1
+
+@if `p27 is 1 then do
+@begin
+ @run wolves
+@end
+
+@if `p27 is 2 then do
+@begin
+ @run Monitor
+@end
+
+@if `p27 is 3 then do
+@begin
+ @run rats
+@end
+
+@closescript
+
+;-----------------------------------------------------------
+@#DeepWoods
+
+@do `p27 random 3 1
+
+@if `p27 is 1 then do
+@begin
+ @run wolves
+@end
+
+@if `p27 is 2 then do
+@begin
+ @dataload jw-isleg.mil &playernum `p24
+ @do `t70 is `p24
+ @if bitcheck `t70 3 1 then do
+ @begin
+ @do saybar
+`%Your `$Shining Orb`% casts a bright light that keeps the vampire at bay!
+ @closescript
+ @end
+ @run vampires
+@end
+
+@if `p27 is 3 then do
+@begin
+ @run rats
+@end
+
+@closescript
+
+;-----------------------------------------------------------
+@#CaveWest
+@do quebar
+Running a CaveWest fight in isle2.ref.
+@closescript
+;-----------------------------------------------------------
+@#EastCave
+@do quebar
+Running a CaveEast fight in isle2.ref.
+@closescript
+;-----------------------------------------------------------
+@#Moria
+@do quebar
+Running a Moria fight in isle2.ref.
+
+@closescript
+
+
+
+
+;--------------------------Fights----------------------------
+
+@#spiderdo
+
+@fight
+;name
+Baby Spider
+;string said when you see him
+A form climbs your boot!
+;power move kill string
+You shiver as the leggey thing quivers on the ground.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+nips you|99
+claws you|125
+bites you|95
+NONE|NONE
+NONE|NONE
+;defense
+122
+;gold reward
+27
+;experience
+151
+;hit points
+175
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+;@drawmap
+;@update
+@closescript
+
+;-----------------------------------------------------------
+
+@#Rats
+@fight
+;name
+Scurrying Rat
+;string said when you see him
+Something creeps near your feet!
+;power move kill string
+You grin as the nasty thing splats on the ground.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+nips you|144
+claws you|125
+bites you|195
+NONE|NONE
+NONE|NONE
+;defense
+75
+;gold reward
+15
+;experience
+101
+;hit points
+264
+;if win: ref file|name or NONE
+jw-isle1.ref|ratpelt
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+@#ratpelt
+@do quebar
+`0You skin the beastie and gain one `$Rat Pelt.
+ ;Add 1 to pelts
+ ;If in jail, get key.
+
+@dataload jw-isleL.mil &playernum `p24
+@do `p24 + 1
+@datasave jw-isleL.mil &playernum `p24
+@dataload jw-isle3.mil &playernum `p24
+@do `t70 is `p24
+@if bitcheck `t70 4 1 then do
+@begin
+ @if bitcheck `t70 5 1 then do
+ @begin
+ @do quebar
+`%You found the master key!
+ @bitset `t70 4 0
+ @bitset `t70 5 0
+ @do `p24 is `t70
+ @datasave jw-isle3.mil &playernum `p24
+ @dataload jw-isle2.mil &playernum `p24
+ @do `t70 is `p24
+ @bitset `t70 2 1
+ @do `p24 is `t70
+ @datasave jw-isle2.mil &playernum `p24
+ @end
+@end
+@closescript
+
+;-----------------------------------------------------------
+
+@#stonedo
+
+@fight
+;name
+Rock Snake
+;string said when you see him
+A snake slithers slowly!
+;power move kill string
+You laugh as the broken thing dies.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+strikes|299
+bites you|295
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+222
+;gold reward
+299
+;experience
+351
+;hit points
+350
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@closescript
+
+;-----------------------------------------------------------
+
+@#mandrakedo
+
+@fight
+;name
+Swamp Boar
+;string said when you see him
+The tusker charges you from the swale.
+;power move kill string
+You immediately think about roast pork!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+nips you|240
+rakes you|270
+gores you|350
+NONE|NONE
+NONE|NONE
+;defense
+322
+;gold reward
+610
+;experience
+370
+;hit points
+577
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@closescript
+
+;-----------------------------------------------------------
+
+@#marshdo
+
+@fight
+;name
+Alligator
+;string said when you see him
+A shape lunges at your back!
+;power move kill string
+You tremble from the close call.
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+rips you|277
+claws you|325
+bites you|350
+NONE|NONE
+NONE|NONE
+;defense
+357
+;gold reward
+880
+;experience
+475
+;hit points
+601
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+
+;-----------------------------------------------------------
+
+@#wolves
+
+ ;Check for wolfsbane
+
+@datanewday jw-isle1.mil
+@dataload jw-isle1.mil &playernum `p24
+@do `t70 is `p24
+@if bitcheck `t70 7 1 then do
+@begin
+ @do saybar
+`$Lucky for you your `%Wolf's Bane `$is fresh. A wolfpack passes close by.
+ @closescript
+@end
+@do `p24 is `p03
+@do `p24 / 3
+@do `p02 - `p24
+@pauseoff
+@show
+[?7h[40m[2J[6C[0m� [1;30m��[30C�[0m� � [1;33m�������������������[s
+[u����������������[2;1H[6C[0m� �[1;30m���[24C���[0m� � [1;33m�[s
+[u�������������������� ������������[3;1H[6C[0m� � ��[1;30m�[0m�[s
+[u[1;30m� [0m� [1;30m��[0m� �� [1;30m�[0m�� [1;30m�[0m�[s
+[u[1;30m�[0m�� [1;30m� [0m�[1;30m� [33m���������� ��������� ���[s
+[u��������[4;1H[6C[30m�[0m�� [1;30m� [0m�[1;30m��[0m� �� �[s
+[u[1;30m����������[0m� � [1;30m���� [0m�[1;30m� [33m���������[s
+[u �������� ����������[5;1H[6C[30m��[0m� [1;30m��[5C����������[s
+[u��� ����� [0m��[1;30m�[6C[33m������ �������[6C���������[6;1H[s
+[u[7C[30m��[0m�[1;30m� ��� � �� �����[0m�� [1;30m� [0m� ��[s
+[u[1;30m��[9C[33m���� ������[7C��������[7;1H[5C[0m�� ��[1;30m[s
+[u��� [0m�[1;30m� [33m�[30m�� [0m��[1;30m�� [0m�� [1;30m�[33m�[s
+[u[0m� [1;30m� [0m� � � �[11C[1;33m� �����[8C��������[8;1H [s
+[u[0m�� ��� [1;30m�� [0m�� [1;30m��[0m���� [1;30m����� [0m� [s
+[u[1;30m��[0m�� [1;30m���� � [0m��[14C[1;33m���[9C��������[9;1H [s
+[u [0m� ���[1;30m�� ���[0m���[1;30m��� [0m�[1;30m� [0m��[s
+[u[1;30m���[0m���[1;30m��� ���[0m�[1;30m�� [0m�[27C[1;33m������
+[10;1H [0m���[1;30m���[0m� [1;30m�� ��� ������ ���[10C[0m�[s
+[u[1;30m��[0m�[11;1H [1;30m���� ��[9C�[6C�[14C[0m�[1;30m���[s
+[u�[12;1Hsc��� ���[11C�� ��[7C���[7C[0m��[1;30m���[13;1H � [s
+[u��[16C�[9C� ��� ��[14;1H[23C����[7C��� ��[15;1H[21C�� �� �[s
+[u�[8C��[16;1H[17;1H[18;1H[19;1H[20;1H[19C[0;33mNext time, have f[s
+[uresh [1;37mWolf's Bane![21;1H[22;1H[1;37;40m
+ `$The wolf pack leader rips a strip from your hide, spits it out and leaves!
+@pauseon
+@do readspecial `s01 yn
+
+@if `p02 < 1 then do
+@begin
+ @Show
+`r0`c
+ @do enemy is a`xWolf`xPack
+ @do `p02 is 0
+ @run die in gametxt.ref
+@end
+
+@drawmap
+@update
+
+@closescript
+
+;-----------------------------------------------------------
+
+@#vampires
+
+@fight
+;name
+Dark One
+;string said when you see him
+A shape lunges at your neck!
+;power move kill string
+You tremble from the close call.
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+hypnotizes you|614
+claws your face|444
+bites your neck|650
+NONE|NONE
+NONE|NONE
+;defense
+857
+;gold reward
+1107
+;experience
+775
+;hit points
+1209
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+jw-isle1.ref|getorb
+
+@closescript
+
+;-----------------------------------------------------------
+
+@#getorb
+@do quebar
+`$A `%Shining Orb`$ from the giftshop would keep vampires away!
+@closescript
+
+;-----------------------------------------------------------
+
+@#monitor
+
+@fight
+;name
+Monitor Lizard
+;string said when you see him
+This could be bad!
+;power move kill string
+You crush it's skull with no regrets.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+tail thumps you|414
+rakes your thigh|244
+bites your left arm|450
+NONE|NONE
+NONE|NONE
+;defense
+335
+;gold reward
+707
+;experience
+535
+;hit points
+567
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+;-----------------------------------------------------------
+
+@#CaveTroll
+
+@fight
+;name
+Balrog
+;string said when you see him
+This guy looks as hard as rock!
+;power move kill string
+You crack it's skull to gravel.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+clubs you with a stoney fist|514
+smites your leg|444
+claws your right arm|659
+NONE|NONE
+NONE|NONE
+;defense
+535
+;gold reward
+755
+;experience
+735
+;hit points
+1407
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+;-----------------------------------------------------------
+
+@#Harpy
+
+@fight
+;name
+Smelly Harpy
+;string said when you see him
+This thing can fly!
+;power move kill string
+You knock her from the sky.
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+swoops in for a swipe|478
+claws your right ear|644
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+465
+;gold reward
+775
+;experience
+840
+;hit points
+450
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+;-----------------------------------------------------------
+
+@#Howler
+
+@fight
+;name
+Howler
+;string said when you see him
+Something screams at you from your left.
+;power move kill string
+You end its noise forever.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+screams in your face|522
+deafens your senses|454
+ruptures your eardrums|577
+NONE|NONE
+NONE|NONE
+;defense
+335
+;gold reward
+810
+;experience
+777
+;hit points
+1107
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+
+;-----------------------------------------------------------
+
+@#Licht
+
+@fight
+;name
+Licht
+;string said when you see him
+A wizened, rotting corpse lurches into sight.
+;power move kill string
+You end mouldering festering un-life.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+casts a foul spell of rot|622
+hurls a ju ju|554
+rips at your lifeforce|612
+NONE|NONE
+NONE|NONE
+;defense
+635
+;gold reward
+710
+;experience
+877
+;hit points
+1280
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+
+;-----------------------------------------------------------
+@#Beholder
+
+@fight
+;name
+beholder
+;string said when you see him
+You feel a stoney stare.
+;power move kill string
+You dim its sight forever.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+stares you in the eye|722
+casts lightening at you|554
+uses a deathspell on you|635
+NONE|NONE
+NONE|NONE
+;defense
+621
+;gold reward
+933
+;experience
+887
+;hit points
+1307
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+
+;-----------------------------------------------------------
+@#Chimera
+
+@fight
+;name
+chimera
+;string said when you see him
+An awfull sight greats your weary eyes.
+;power move kill string
+The abomination is tattered.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+claws at your eyes|822
+rips at your viscera|654
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+735
+;gold reward
+1110
+;experience
+1200
+;hit points
+1510
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+
+;-----------------------------------------------------------
+@#Wyvern
+
+@fight
+;name
+wyvern
+;string said when you see him
+A flying shape that bodes you no good!
+;power move kill string
+You strike it from the sky!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+screams in your face|722
+swoops onto your back|754
+ruptures your eardrums|677
+NONE|NONE
+NONE|NONE
+;defense
+535
+;gold reward
+870
+;experience
+877
+;hit points
+1005
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+
+;-----------------------------------------------------------
+@#Gorgon
+
+@fight
+;name
+gorgon
+;string said when you see him
+An ugly visage forbidden to view.
+;power move kill string
+You close its eyes forever.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+glares at your helm|655
+ponds on your visor|534
+hisses in its fury|577
+NONE|NONE
+NONE|NONE
+;defense
+635
+;gold reward
+1210
+;experience
+1177
+;hit points
+900
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+
+;-----------------------------------------------------------
+@#deathknight
+
+@fight
+;name
+Death Knight
+;string said when you see him
+An armoured form charges your flank.
+;power move kill string
+You unhorse and slay the fiend.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+lances your side|922
+clubs your sword arm|1054
+wipes your nose with his battleaxe|977
+NONE|NONE
+NONE|NONE
+;defense
+935
+;gold reward
+2810
+;experience
+1777
+;hit points
+990
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+
+;-----------------------------------------------------------
+@#Dracolicht
+
+@fight
+;name
+dracolicht
+;string said when you see him
+An undead dragon? That's more than you need now!
+;power move kill string
+You survive, this time.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+smacks you with its tail|922
+bites at your head|854
+tears at your weakened form|1177
+NONE|NONE
+NONE|NONE
+;defense
+1035
+;gold reward
+1010
+;experience
+1650
+;hit points
+1550
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+
+;-----------------------------------------------------------
+
+@#wraith
+
+@fight
+;name
+wraith
+;string said when you see him
+A shadowy form materializes in front of you.
+;power move kill string
+You dispell its shape.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+wraps you in its form|1255
+freezes your will to survive|1354
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+935
+;gold reward
+1210
+;experience
+1377
+;hit points
+1300
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+
+;-----------------------------------------------------------
+
+@#ShadowDemon
+
+@fight
+;name
+shadowdemon
+;string said when you see him
+This could be it, you say a quick prayer.
+;power move kill string
+The unclean beast is no more!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hurls a sleep spell|1222
+shatters your will|1454
+rips out your liver|1377
+NONE|NONE
+NONE|NONE
+;defense
+1050
+;gold reward
+1810
+;experience
+1777
+;hit points
+1690
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+
+;-----------------------------------------------------------
+
+
+@#JuJuTree
+
+@fight
+;name
+Ju Ju Tree
+;string said when you see him
+This tree is thorned and moving FAST!
+;power move kill string
+You chop it to a stump.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+swipes mightily|1522
+uproots you|1654
+drops a huge limb on you|1877
+NONE|NONE
+NONE|NONE
+;defense
+1450
+;gold reward
+1810
+;experience
+1977
+;hit points
+1890
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+
+;-----------------------------------------------------------
+
+@#pitfiend
+
+@fight
+;name
+Pit Fiend
+;string said when you see him
+`#Oh oh .... this is `%BAD! �
+;power move kill string
+Incredible .... you managed to survive!!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+breathes on you|24000
+hurls lava at you|25000
+smites you with a stony fist|20000
+rips you open with a talon|30000
+casts a freeze spell|19000
+;defense
+`p27
+;gold reward
+100000
+;experience
+15000
+;hit points
+70000
+;if win: ref file|name or NONE
+jw-isle1|dem0
+;if lose: ref file|name or NONE
+jw-isle3.ref|notdead
+;if runs: ref file|name or NONE
+jw-isle3.ref|notrun
+
+;-----------------------------------------------------------
+
+@#leastdemon
+@fight
+;name
+Least Demon
+;string said when you see him
+`#Oh oh .... this is `%BAD! �
+;power move kill string
+Incredible .... you managed to survive!!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+breathes on you|2000
+hurls brimstone at you|3500
+smites you with an evil fist|3000
+rips you open with a scaled claw|4200
+casts a freeze spell|1800
+;defense
+`p27
+;gold reward
+25000
+;experience
+5000
+;hit points
+10000
+;if win: ref file|name or NONE
+jw-isle1|dem1
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+jw-isle3.ref|notrun1
+
+;-----------------------------------------------------------
+
+@#meddemon
+@fight
+;name
+Medium Demon
+;string said when you see him
+`#Oh oh .... this is `%NOT`# good! �
+;power move kill string
+Incredible .... you managed to survive!!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+breathes on you|4000
+hurls brimstone at you|6200
+smites you with a mailed fist|5500
+rips you open with a scaled claw|8000
+casts a chilling spell|5000
+;defense
+`p27
+;gold reward
+25000
+;experience
+3500
+;hit points
+15000
+;if win: ref file|name or NONE
+jw-isle1|dem2
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+jw-isle3.ref|notrun2
+
+;-----------------------------------------------------------
+
+@#lesserdemon
+
+@fight
+;name
+Lesser Demon
+;string said when you see him
+`#Oh oh .... this is `%BAD! �
+;power move kill string
+Incredible .... you managed to survive!!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+breathes on you|7000
+hurls brimstone at you|12000
+smites you with an evil fist|10000
+rips you open with a scaled claw|15000
+casts a freeze spell|9500
+;defense
+`p27
+;gold reward
+50000
+;experience
+7500
+;hit points
+30000
+;if win: ref file|name or NONE
+jw-isle1|dem3
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+jw-isle3.ref|notrun3
+ ;Must have won
+
+;-----------------------------------------------------------
+
+@#Medusafight
+@drawmap
+@update
+@fight
+;name
+medusa
+;string said when you see him
+You use the shield as a mirror.
+;power move kill string
+The unclean beast is no more!
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+swings blindly|830
+lashes out at your shield|754
+hurls a spear at your legs|677
+NONE|NONE
+NONE|NONE
+;defense
+650
+;gold reward
+1210
+;experience
+977
+;hit points
+750
+;if win: ref file|name or NONE
+jw-isle1.ref|beatmed
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+
+;-----------------------------------------------------------
+
+@#JubJubBird
+
+@fight
+;name
+Jub Jub Bird
+;string said when you see him
+a bulky mass of feathers greets you.
+;power move kill string
+The featherd foul is no more!
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+lashes out with a clawed foot|1530
+rips at you with its beak|1754
+buffets you with a wing|1967
+NONE|NONE
+NONE|NONE
+;defense
+1650
+;gold reward
+2210
+;experience
+1450
+;hit points
+2750
+;if win: ref file|name or NONE
+jw-isle1.ref|beatjub
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+;-----------------------------------------------------------
+
+@#Jabberwalk
+
+@fight
+;name
+jabberwock
+;string said when you see him
+jaws that bite and claws that catch!
+;power move kill string
+The unclean beast is no more!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+rakes you savagely|2100
+smashes you into the ground|2254
+evicerates you|2477
+NONE|NONE
+NONE|NONE
+;defense
+`p25
+;gold reward
+3210
+;experience
+2270
+;hit points
+3300
+;if win: ref file|name or NONE
+jw-isle1.ref|beatjab
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+;-----------------------------------------------------------
+
+@#Bander
+
+@fight
+;name
+bandersnatch
+;string said when you see him
+You should have shunned the frumious bandersnatch!
+;power move kill string
+The unclean beast is no more!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+screams and rips:1800
+rips and tears|1450
+claws and bites|2100
+NONE|NONE
+NONE|NONE
+;defense
+1690
+;gold reward
+3210
+;experience
+2294
+;hit points
+3150
+;if win: ref file|name or NONE
+jw-isle1.ref|beatband
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@closescript
+
+;-----------------------------------------------------------
+
+@#Pitsister
+
+@fight
+;name
+pit fiend's big sister
+;string said when you see him
+No way, Jose. You are toast now!
+;power move kill string
+Sure, that will work!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+slaps|32,000
+scratches and bites|31,000
+claws and bites|30,000
+NONE|NONE
+NONE|NONE
+;defense
+32,000
+;gold reward
+32100
+;experience
+22949
+;hit points
+20,000
+;if win: ref file|name or NONE
+jw-isle1.ref|beatsis
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+jw-isle1.ref|fleesis
+
+@closescript
+
+
+;-----------------------------------------------------------
+
+@#dem1
+ @do addlog
+ `$`N`0 killed the Least Demon. `%What a star!
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@closescript
+
+;-----------------------------------------------------------
+
+@#dem2
+ @do addlog
+ `$`N`0 slew the Medium Demon. `%What a hero!
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@closescript
+;-----------------------------------------------------------
+@#dem3
+ @do addlog
+ `$`N`0 clobbered the Least Demon. `%What a killer!
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@closescript
+;-----------------------------------------------------------
+@#dem0
+ @do addlog
+ `$`N`0 destroyed the Pit Fiend. `%Do not mess with this pigeon!
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @routine pitsister
+@closescript
+
+;-----------------------------------------------------------
+@#beatjub
+@dataload jw-isle4.mil &playernum `p29
+@do `t70 is `p29
+@bitset `t70 3 1
+@do `p29 is `t70
+@datasave jw-isle4.mil &playernum `p29
+@closescript
+;-----------------------------------------------------------
+@#beatjab
+@dataload jw-isle4.mil &playernum `p29
+@do `t70 is `p29
+@bitset `t70 4 1
+@do `p29 is `t70
+@datasave jw-isle4.mil &playernum `p29
+@closescript
+------------------------------------------------
+@#beatband
+@dataload jw-isle4.mil &playernum `p29
+@do `t70 is `p29
+@bitset `t70 2 1
+@do `p29 is `t70
+@datasave jw-isle4.mil &playernum `p29
+@closescript
+------------------------------------------------
+@#beatmed
+@dataload jw-isle4.mil &playernum `p29
+@do `t70 is `p29
+@bitset `t70 5 1
+@do `p29 is `t70
+@datasave jw-isle4.mil &playernum `p29
+@closescript
+------------------------------------------------
+
+@#beatsis
+ @do addlog
+ `$`N`0 killed the Pit Fiend's sis. `%What a bully!
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@closescript
+
+;-----------------------------------------------------------
+
+@#fleesis
+ @clearblock 22 24
+ @do saybar
+`%You can't run forever, `$CHICKEN!
+ @do addlog
+ `$`N`0 ran from the Pit Fiend's Sister. `%What a wuss!
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+
+@closescript
+
diff --git a/xtrn/lord2/cnw/jw-isle2.ref b/xtrn/lord2/cnw/jw-isle2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..f42ffe480bb8f026d894059dbfc4bbb3aa572433
--- /dev/null
+++ b/xtrn/lord2/cnw/jw-isle2.ref
@@ -0,0 +1,1308 @@
+; Script file JW-ISLE2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:27 2001
+
+@DECLARE start 000001542
+@DECLARE beach 000001711
+@DECLARE mandrakebard 000004218
+@DECLARE pickdrake 000004357
+@DECLARE pickbane 000004830
+@DECLARE mandrakesign 000005403
+@DECLARE forebode 000005539
+@DECLARE pylon1 000005750
+@DECLARE pylon2 000006140
+@DECLARE chasmhealer 000006544
+@DECLARE chasmbard 000006742
+@DECLARE farmgirl 000006906
+@DECLARE farmer 000007090
+@DECLARE nocash 000008293
+@DECLARE eastentrance 000008410
+@DECLARE hasorb 000008731
+@DECLARE caveebard 000009613
+@DECLARE heron 000009756
+@DECLARE westentrance 000010929
+@DECLARE cavewarden 000011268
+@DECLARE cavewbard 000011429
+@DECLARE darkbard 000011618
+@DECLARE darknbard 000023781
+@DECLARE darksbard 000024498
+@DECLARE mirrortable 000025190
+@DECLARE westtp 000025899
+@DECLARE easttp 000026098
+@DECLARE med2tp 000026294
+@DECLARE med1tp 000026446
+@DECLARE skull 000026600
+@DECLARE weststone 000027222
+@DECLARE eaststone 000027360
+@DECLARE northstone 000027499
+@DECLARE southstone 000027639
+@DECLARE menhirman 000027776
+@DECLARE menman 000027831
+@DECLARE healerhut 000029720
+@DECLARE fishbard 000032216
+@DECLARE fish 000032350
+@DECLARE swamprat 000032484
+@DECLARE swampprize 000035937
+@DECLARE talkedshiv 000037176
+@DECLARE safebridge 000037526
+@DECLARE swampfever 000037684
+@DECLARE witch 000037725
+@DECLARE killkeypress 000038591
+@NOCHECK
+; End of .REF index
+
+; Ref file for Jim Wilson's, Lord 2 IGM ver. 1.01, Mimsic Isle.
+
+
+@#Start
+
+
+ ;Events ....
+
+;--------------------------------------------------------------------
+
+ ;Mandrake
+
+@#Beach
+@busy
+@do moveback
+@pauseoff
+@show
+[?7h[40m[2J[8C[0;1;31m��������������������������[45m���������� [40m[s
+[u[45m [0;30;45m��������������[2;1H[5C[1;31;40m�������[s
+[u���������������������������[45m������� [40m[s
+[u[0;30;45m���������[3;1H[4C[1;31;40m���������������������������������[s
+[u�������[45m�������� [0;30;45m�������[4;1H[3C[40m[s
+[u[1;31;40m���������������������������������������������[45m������ [40m[s
+[u[45m [0;30;45m�����[5;1H[3C[1;31;40m����������������[s
+[u�������������������������������[45m�������� [40m[s
+[u[0;30;45m����[6;1H[3C[1;31;40m��������������������������������������[s
+[u������������[45m������� [0;30;45m��[7;1H[3C[40m[s
+[u[1;31;40m���������������������������������������������������[45m�[40m[s
+[u[45m������ [0;30;45m�[8;1H[3C[1;31;40m����������������[s
+[u���������������������������������������[45m������ [40m
+[9;1H ����������������������������������������������������������[s
+[u[45m������ [0;30;45m�[10;1H[3C[1;31;40m���������������������[s
+[u ����������������������������������������[45m������ [0;30;45m�[40m
+[11;1H [1;31m�������������������� ������������������������������������[s
+[u������[45m������[0;35m��[30;45m�[12;1H[3C[1;31;40m�������������� �[s
+[u���� ����������������������������������������������[45m��� [0;35m�[s
+[u[30;45m�[13;1H[3C[1;31;40m��������������� ���� ���������������������[s
+[u���������������������������[45m���[0;30;45m�[14;1H[3C[1;31;40m�����[s
+[u���������� ���� �����������������������������������������[45m����[40m[s
+[u[45m��۲��[15;1H[3C[33;40m�����������[31m���� ���� ���������������[s
+[u�������������[45m���������������������۱[16;1H[3C[33;40m������������[s
+[u�� [31m��� �����������������������������������������������[s
+[u[45m�۲[17;1H[15C[33;40m�� [31m�[7C�����������������������������[s
+[u[45m������������������[18;1H[42C[0;34m� [1;31m���[44m������[40m[s
+[u[44m��������������������[19;1H[32C[0;34m� ��������������������������[s
+[u�������������sc�[20;1H[1;37;40m
+
+ `!Beautifull Beach!`l`x`l`x
+@pauseon
+@key nodisplay
+@if `p02 < `p03 then do
+@begin
+ `p02 + 5
+@end
+@drawmap
+@update
+;--------------------------------------------------------------------
+@#MandrakeBard
+@do saybar
+`$You must learn what `0plants`$ to pick.
+;--------------------------------------------------------------------
+@#PickDrake
+@busy
+@dataload jw-isle3.mil &playernum `p24
+@do `t70 is `p24
+@if bitcheck `t70 1 1 then do
+ @bitset `t70 6 1
+ @do `p24 is `t70
+ @datasave jw-isle3.mil &playernum `p24
+ @do saybar
+ `0You pick some `%Mandrake. `0It shrieks as the roots pull loose!
+ @closescript
+end
+@do saybar
+You must learn plantlore lest you pluck the wrong weeds!
+
+;--------------------------------------------------------------------
+@#PickBane
+@busy
+@dataload jw-isle3.mil &playernum `p24
+@do `t70 is `p24
+
+@if bitcheck `t70 1 1 then do
+@begin
+ @datanewday jw-isle1.mil
+ @dataload jw-isle1.mil &playernum `p24
+ @do `t70 is `p24
+ @bitset `t70 7 1
+ @do `p24 is `t70
+ @datasave jw-isle1.mil &playernum `p24
+
+ @do saybar
+ `$You pick some `%Wolf's Bane.`$ It may come in handy!
+ @closescript
+@end
+
+@do saybar
+`$You pick some `#smelly`$ plants, what are they?
+
+;---------------------------------------------------------
+
+@#MandrakeSign
+@do moveback
+@do saybar
+`%Mandrake grows here, be aware!
+
+;---------------------------------------------------------
+
+@#ForeBode
+
+@do saybar
+`%You feel an uncanny sense of dread...you want to `$RUN!!
+
+;-----------------------------------------------------------
+ ; Chasm
+ ; TP
+@#Pylon1
+@do saybar
+Interesting, a tightrope! Dare I cross it?
+@do moveback
+@dataload jw-isleg.mil &playernum `p22
+@do `t70 is `p22
+
+@if bitcheck `t70 4 1 then do
+@begin
+ @do y is 7
+ @do x is 48
+ @update
+ @do saybar
+`0You carefully inch across using your `%pole `0for balance.
+@end
+;-----------------------------------------------------------
+
+@#Pylon2
+@do saybar
+`0Interesting, a `%tightrope! `0Dare I cross it?
+@do moveback
+@dataload jw-isleg.mil &playernum `p22
+@do `t70 is `p22
+
+@if bitcheck `t70 4 1 then do
+@begin
+ @do y is 11
+ @do x is 48
+ @update
+ @do saybar
+`0You carefully inch across using your `%pole `0for balance.
+@end
+
+;-----------------------------------------------------------
+
+@#ChasmHealer
+@do moveback
+@busy
+@show
+`r0`c
+ `%Chasm Field Hospital
+`/
+`/
+@run hospital in jw-isle.ref
+;-----------------------------------------------------------
+
+@#ChasmBard
+@do saybar
+`0Try buying the `%pole`0 in the giftshop. It will help you cross the chasm!
+;-----------------------------------------------------------
+@#Farmgirl
+@busy
+@do moveback
+@do saybar
+`$I hear that `#Krista `$is looking for hired help, north and west of here.
+
+;-----------------------------------------------------------
+@#Farmer
+@busy
+@do moveback
+@show
+`r0`c
+ `0You find a weathered old farmer standing in his field.
+
+ `2You see garlic, `%Wolf's Bane `2 and cloves growing profusely
+
+ `2You wonder if you should by some? (You have `$$&money`2 with you.)
+
+
+@if &money < 1000 then do
+@begin
+ @show
+
+
+ That's not enough jack, Jack!
+
+ @do goto nocash
+@end
+@DO `V01 IS 1
+@do write
+`x`x`x`x`x`x`x`x
+ @choice
+Leave
+`$Buy some herbs for $980
+@if response is 1 then do
+@begin
+ @show
+ `c
+ `0You'd rather not buy any, you have enough.
+@end
+
+@if response is 2 then do
+@begin
+ @do money - 1000
+ @datanewday jw-isle1.mil
+ @dataload jw-isle1.mil &playernum `p24
+ @do `t70 is `p24
+ @bitset `t70 7 1
+ @do `p24 is `t70
+ @datasave jw-isle1.mil &playernum `p24
+ @dataload jw-isleL.mil &playernum `p24
+ @do `p24 + 20
+ @datasave jw-isleL.mil &playernum `p24
+
+ @show
+ `c
+ `$You now have some cooking spices and some `%Wolf's Bane.
+
+
+ `$You pack it all away carefully, including your change of 20 rat pelts.
+
+
+@end
+@label nocash
+@key nodisplay
+@drawmap
+@update
+@closescript
+
+;-----------------------------------------------
+@#EastEntrance
+ ; EastCave
+ ; TP
+@busy
+@do moveback
+@do `p20 is 1
+@routine hasorb
+
+@if `p20 is 0 then do
+@begin
+ @closescript
+@end
+
+@do map is 1316
+@do x is 75
+@do y is 12
+@loadmap &map
+@drawmap
+@update
+
+;-----------------------------------------------
+@#HasOrb
+
+@if `i17 > 0 then do
+@begin
+ @do quebar
+`0You hold your `#glowworm `0high and march forward into the caves.
+ @closescript
+@end
+
+@dataload jw-isleg.mil &playernum `p24
+@do `t70 is `p24
+
+@if bitcheck `t70 3 1 then do
+@begin
+ @do quebar
+`0You hold your `$Shining Orb `0high and march forward into the caves.
+ @closescript
+@end
+
+@if bitcheck `t70 1 1 then do
+@begin
+ @do quebar
+`0You hold your `$Sunstone `0high and march forward into the caves.
+ @closescript
+@end
+
+@if bitcheck `t70 0 1 then do
+@begin
+ @do quebar
+`0You use your `$Campfire Starter `0to as a torch and go forward into the caves.
+ @closescript
+@end
+
+@do saybar
+`2With no way to create a light you back away from the caves.
+@do `p20 is 0
+@closescript
+
+;-----------------------------------------------------------
+@#CaveEBard
+@do saybar
+`$Some people wear a helmet when going into this cave.
+
+;-----------------------------------------------------------
+
+@#Heron
+@do moveback
+@busy
+@dataload jw-isle3.mil &playernum `p24
+@do `t70 is `p24
+
+@show
+`r0`c
+ `2You see the Greater Mimsic Herons fishing along the shore.
+
+ One of them has dropped a salmon at its feet.
+ Another stalks amongst the reeds.
+
+@do write
+`x`x`x`x`x`x
+@do `v01 is 1
+ @choice
+`$Leave ?
+`%Take the salmon the Heron dropped ?
+>`i29 0 `2Throw the hunting Heron a salmon ?
+@if response is 1 then do
+@begin
+ @show
+ `r0`c
+ `$You leave the beach to the Herons.
+@end
+
+@If response is 2 then do
+@begin
+ @if `i29 < 30 then do
+ @begin
+ @do `i29 + 1
+ @end
+ @bitset `t70 2 0
+ @show
+ `r0`c
+ `%You snatch the `#salmon `%and leave the beach. Yipee, a salmon!
+@end
+
+@If response is 3 then do
+@begin
+ @do `i29 - 1
+ @bitset `t70 2 1
+ @show
+ `r0`c
+ `$You throw the wading heron a fat `#salmon. `$It looks happy!
+
+@end
+
+@do `p24 is `t70
+@datasave jw-isle3.mil &playernum `p24
+
+@key nodisplay
+@drawmap
+@update
+
+;-----------------------------------------------------------
+
+@#WestEntrance
+ ; West Cave
+ ; TP
+@busy
+@do moveback
+@do `p20 is 1
+
+@routine hasorb
+
+@if `p20 is 0 then do
+@begin
+ @closescript
+@end
+
+@do map is 1316
+@do x is 4
+@do y is 11
+@loadmap &map
+@drawmap
+@update
+
+;-----------------------------------------------------------
+@#Cavewarden
+
+@do moveback
+@do saybar
+`$Most people wear a helmet when going into the caves.
+
+;-----------------------------------------------------------
+@#CaveWBard
+@do moveback
+@do saybar
+`%Medusa lives north of here. She's a stoner!
+
+;-----------------------------------------------------------
+ ; DeepWoods
+
+@#DarkBard
+@busy
+@do moveback
+
+@datanewday jw-isle4.mil
+@dataload jw-isle4.mil &playernum `p20
+@do `t70 is `p20
+@if bitcheck `t70 1 0 then do
+@begin
+ @bitset `t70 1 1
+ @do `p20 is `t70
+ @datasave jw-isle4.mil &playernum `p20
+ @pauseoff
+ @show
+[?7h[40m[2J[4C[0;33m�۲�� ��� �� ����[17C[34m�� [1;5;44m��[40m[s
+[u[3C[0;34m�[20C[1;5m�[2;1H [0;33m��� ܰ����[1;34;43m��[40m[s
+[u[0;33m� �[1;34;43m��[0;33m���������� �[10C[34m�� [1;5;44m�[40m[s
+[u[0;34m�[1;44m�[3C[0;34m�[20C[1m�[5C[0;5;34m�[3;1H [0;33m�[s
+[u߱������[1;5;34;43m�[0;1;34;43m��[0;33m���[14C�[6C[34m�[s
+[u[1;5;44m�[1C[0;1;34;44m��[5m�[0;1;34;44m�[1C[0;34m��[7C� [s
+[u[1;5m�[6C[0;34m�� [1;5m��[0;1;34m� [0;5;34m� �[4;1H[8C[0;33m[s
+[u߰���[1;34;43m��[0;33m�[16C�۲�[5C[1;34;44m�[2C[5m�[40m[s
+[u[0;1;34;44m��[5m�[1C[0;34m�[7C�[6C[1m� [0;34m�[1m����[5m� [s
+[u[0;5;34m� �[5;1H[10C[0;33m��[1;34;43m��[0;33m�[6C[37m� �[s
+[u[1;30m�[47m�[40m� [0;33m��۲��� [34m��[1;44m�[5m�[40m[s
+[u[0;34m� [1;44m���[1C[0;34m�[8C��� [1m� ��[0;5;34m� [0;1;34m�[s
+[u[5m�[0;1;34m��[0;5;34m��[6;1H [0;33m�ܱ�� �[43m [40m[s
+[u[43m[1;5;34m�[2C[0;33m������ �����[1;34;43m�[0;33m�۲��� [s
+[u[34m�[1;44m�[0;34m� [1;44m���[5m�[0;34m��[6C� ���� ��[1m�[s
+[u�[5m���[0;1;34m�[0;5;34m�[7;1H [0;33m������ ��[1;34;43m�[40m[s
+[u[43m[5m�[2C[0;33m����[1;34;43m��[0;33m���[43m [1;34m�[40m[s
+[u[43m[5m�[0;1;34;43m��[0;33m��۲����[34m�[1;44m�[5m�[1C[40m[s
+[u[0;34m�� [1;44m���[0;34m�[10C��� ���� [1m��� �� [0;34m��[8;1H[s
+[u [33m���� ���[1;34;43m�[0;33m� ��[1;34;43m�� [0;33m�[s
+[u[1;5;34;43m� [0;1;34;43m��[5m�[0;1;34;43m�[0;33m��۲�����[34m�[s
+[u[1;44m��[1C[0;34m� �[1;44m�[5m�[0;34m�[10C[1;5m�[0;34m��[1m[s
+[u�[5m�[0;34m��[1m�����[0;5;34m�[0;34m�[1m���� [0;34m��[9;1H[s
+[u[10C[33m��[43m [1;34m��[2C[0;33m���[1;34;43m��[0;33m۲��[s
+[u[1;34;43m�[0;33m��۲����� [34m�[1;44m�[5m�[1C[0;34m�� [s
+[u[1;5;44m�[0;1;34;44m�[2C[0;34m��[9C��[1m��[5m�[0;34m��[1m����[s
+[u�[0;5;34m�[0;34m�[1m�[0;5;34m�[0;34m�[1m�[5m�[0;5;34m�[10;1H[s
+[u[9C[0;33m���[43m [1;5;34m�[0;1;34;43m�[0;33m� ��[s
+[u[1;34;43m�[5m�[0;33m�۲�������� [1;34;44m�[0;34m���� [s
+[u[1;44m��[0;34m�� ��[8C[1;5m�[0;1;34m�[5m�[0;34m���[1m��[s
+[u[5;37m�[0;1;34m����[0;5;34m��[0;34m�[1m�[5m��[0;5;34m�[11;1H[s
+[u[6C[0;33m� ���[1;34;43m���[0;33m�[1;34;43m�[0;33m� � �[s
+[u[1;34;43m�[5m�[0;1;34;43m�[0;33m����ܱ�[7C[1;34;44m�[0;34m� [s
+[u[1;5;44m� [0;34m�� ��[5C�� [1m�[0;34m�����[1;37m��[34m�����[s
+[u[5m� �[0;5;34m�[0;34m��[12;1H[7C[33m�߱��[1;34;43m���[40m[s
+[u[0;33m��� ��[1;34;43m�[5m�[0;1;34;43m�[0;33m۲���[7C[s
+[u[1;34;44m�[0;34m� [1;5;44m�[0;1;34;44m� [1C[0;34m�� �[6C���[s
+[u�[1;5m�[0;1;34m��[0;34m�[5m�[1;37m�[0;1m�[34m��[5;37m�[34m���[s
+[u[0;34m���[5m�[13;1H[11C[0;33m��[5C���[1;5;34;43m�[40m[s
+[u[0;1;34;43m�[5m�[0;1;34;43m��[0;33m۲��[8C[1;34;44m�[5m�[40m[s
+[u[0;34m�� [1;44m� �[1C[0;34m��� ��[8C� [1m�[5m�[0;1;34m�[0;34m[s
+[u� [1;37m�����[5m�[34m�[0;1;34m�[0;34m�� [1;5m�[14;1H[15C[s
+[u[0;33m�����[1;34;43m��[0;33m��[1;34;43m��[0;33m۲[10C[34mܰ [s
+[u[1;44m�� [1C[0;34m�۰ �[7C[5m��[0;34m��[1m� [5;37m�[0;1m� [s
+[u[5m�[0;1m� �� [34m� [0;34m�[15;1H[8C[33m������������� ��[s
+[u[1;5;34;43m�[0;33m��[9C[34m�[1;44m�[4C[5m��[0;34m�� ۱ ��[7C�[s
+[u� [1;37m� [5m�[0;1m��[0;34m�[33m� [34m��[1m�[0;34m���[16;1H[s
+[u[20C[33m�� �[1;34;43m�[5m�[0;33m۱[9C[1;34;44m�[0;34m� [s
+[u[1;44m�[5m�[0;1;34;44m�[0;34m� [1;44m�[0;34m����[8C���[1;37m[s
+[u�[5m� [0;34m� [33m�� [34m��[17;1H[13C[33m����������[s
+[u[1;5;34;43m��[0;33m���[8C[1;5;34;44m�[0;34m�[5C[44m [1;5m[40m[s
+[u[44m�[0;1;34;44m��[3C�[0;34m���[12C[33m� �����[18;1H[15C�����[s
+[u[1;34;43m�[5m�[0;1;34;43m�[0;33m���[7C[34m�ܰ�[7C[44m [40m[s
+[u[44m[1;5m�[0;1;34;44m��[2C�[0;34mܰ�[13C[33m���۱�[19;1H[34m�[s
+[u[10C[33m߱�����[1;34;43m��[0;33m����[8C[34m���[6C[44m [40m[s
+[u[44m[1m�[5m�[0;1;34;44m��[2C�[0;34m�� ��[13C[33m��۱ �[20;1H[s
+[u[34m���[10C[33m�������[7C[34m���ܰ�[6C[44m [1m�[5m�[40m[s
+[u[0;1;34;44m���[0;34m���� ����[10C[33m��۲ �[21;1H[34ms����[s
+[u[19C�ܰ��[8C[44m [1m�[5m�[0;1;34;44m���[1C[0;34m��� �������[s
+[u[11C[33m�����[22;1H[34m�c �����[10C�ܰ���[17C��� ������ �
+[23;1H[1;37;40m
+@pauseon
+ @do readspecial `s01 yn
+ @show
+`r0`c`$
+ Hello fine traveller! I have visited all parts of this isle and
+ am alive to speak of it!
+
+ Is there anything I can tell you about ?
+
+ @do write
+`x`x`x`x`x`x`x`x
+ @do `v01 is 1
+ @choice
+`0The Bandersnatch
+`0The Banshees
+`0Hot Burning Ash
+`0Moria Caverns
+`0Mimsic Chasm
+`0Fresh Garlic
+`0The `%Holy Book
+`0The `%Holy Flail
+`0Mandrake root
+`0The Medusa
+`0Piper Tunes
+`0The Vampires
+`0The Vorpal Blade
+`0Wolf's Bane
+ @if response is 1 then do
+ @begin
+ @show
+ `c
+ `0The Bandersnatch?
+
+ `2This is a tough monster in a bad neighbourhood!
+ The `$Vorpal Blade `2sure helps when you have to fight it,
+ and you will likely see it on your way to fight
+ the `4Demons`2 at the volcano, just south of there.
+
+ @key nodisplay
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+ `c
+ `0The Banshees?
+
+ `2To hear them is to die. Not much more to tell you.
+
+ If you have earmuffs, as smart travellers do, you never
+ will hear them. Travel north of here and you may find them,
+ the `0Banshees`2 that is. A little travel humour there. Heh.
+
+
+ @key nodisplay
+ @end
+ @if response is 3 then do
+ @begin
+ @show
+ `c
+ `0Hot Burning Ash?
+
+ `2Stay out of it. Haw! It burns.
+
+ If you are having troubles with it near the volcano,
+ see if you can get some `%burn herb `2from the farmers.
+
+ They don't sell it much but you may find one willing
+ to trade for it. Mostly, they need help and you can't
+ get hired help around here. A youngster of either sex
+ would be what they might trade for, if you find one
+ in need.
+
+ Why, that reminds me, the farmer just north of here
+ was looking for some help just yesterday, I think it was!
+
+ Or was it last year and the other farmer...no matter,
+ just poke around and see for yourself.
+
+ @key nodisplay
+ @end
+ @if response is 4 then do
+ @begin
+ @show
+ `c
+ `0Moria Caverns?
+
+ `2Deep subject. Haw! I kill me!
+
+ The caves run through the mountains just north of here.
+ You need special equipment to pass safely.
+
+ Some kind of light, a glowworm or maybe a `%Shining Orb`2
+ would be good, and you need a helmet lest the rocks split
+ your head open!
+
+ No helmets for sale at the gift shop, try Port Town,
+ if you know where that is?
+
+ @key nodisplay
+ @end
+ @if response is 5 then do
+ @begin
+ @show
+ `c
+ `0Mimsic Chasm?
+
+ `2It's just a ditch. It does keep the `%Medusa `2from
+ wandering down to Ratville, and I bet the townspeople
+ are glad!
+
+ It keeps the rif-raf from getting eaten by the `#Trolls, `2too!
+
+ The `#Trolls `2stay north of the chasm, the smart folks stay
+ south, nice and safe, sorta`.
+
+ @key nodisplay
+ @end
+ @if response is 6 then do
+ @begin
+ @show
+ `c
+ `0Fresh Garlic?
+
+ `2Some people think it keeps `$vampires `2away.
+
+ It might, It can't hurt to buy some from the farmers
+
+ While you are at it, get Wolf's Bane and cloves, too.
+ You can cook with some, if nothing else!
+
+ @key nodisplay
+ @end
+ @if response is 7 then do
+ @begin
+ @show
+ `c
+ `0The `%Holy Book?
+
+ `2I have heard of that, the gift shop in town
+ sometimes has a copy. I hear that you need it
+ to use the `%Holy Flail.`2
+
+ 'Course, you hear a lot of things, some even true!
+
+ Haw haw!
+
+ @key nodisplay
+ @end
+ @if response is 8 then do
+ @begin
+ @show
+ `c
+ `0The `%Holy Flail?
+
+ `2Ah, good thinking `&lad!
+
+ You'll be needing that to take on the `4Pit Fiend`2
+ that lives inside the volcano. Lucky for us he never
+ ever comes out or there would be nobody left on this isle.
+
+ You aren't ready for that, nobody is.
+ Forget that I told you anything about the `%Flail!
+
+ @key nodisplay
+ @end
+ @if response is 9 then do
+ @begin
+ @show
+ `c
+ `0Mandrake root?
+
+ `2I love the way it squeals when picked fresh! Haw!
+
+ It is usefull in some medicines, Dr. Fell will
+ trade you for it.
+
+ What was it he offered me? Oh yes, `%armour polish.`2
+ Just the thing to make your shield like a mirror!
+
+ @key nodisplay
+ @end
+ @if response is 10 then do
+ @begin
+ @show
+ `c
+ `0The Medusa?
+
+ `2Whew, that one kills with a glance.
+
+ She has her own island and never leaves it.
+ The island is off the northwest corner of
+ Mimsic, you can avoid her, but it may involve
+ a long walk. Smart idea, actually.
+
+ You could face her using a mirror, or anything
+ like that, to stone her before she gets you!
+
+ @key nodisplay
+ @end
+ @if response is 11 then do
+ @begin
+ @show
+ `c
+ `0Piper Tunes?
+
+ `2The `0piper `2does teach a few people his tunes
+ and the gift shop sometimes sells pipes for playing.
+
+ I remember chasing around piper field to catch him
+ as he marched, it took some time to corner him
+ but it was worth it. I learned all I could from
+ him. Music can inspire, don't you think?
+
+ @key nodisplay
+ @end
+ @if response is 12 then do
+ @begin
+ @show
+ `c
+ `0The Vampires?
+
+ `2A bloody subject that!
+
+ They are deadly, though there are worse things around
+ and about. Best thing is to carry a `%Shining Orb`2
+
+ They hate the light and should stay away from it.
+
+
+ @key nodisplay
+ @end
+ @if response is 13 then do
+ @begin
+ @show
+ `c
+ `0The Vorpal Blade?
+
+ `2A good weapon against certain monsters, I heard it was
+ lost in the caverns. If you find it, keep it.
+
+ It is good against the `%Jabberwok`2 and the `%Bandersnatch.
+
+ @key nodisplay
+ @end
+ @if response is 14 then do
+ @begin
+ @show
+ `c
+ `0Wolf's Bane?
+
+ `2You can pick this herb yourself or buy it
+ from farmers in the field, remember, it must
+ be fresh to keep the wolves away!
+
+ @key nodisplay
+ @end
+
+ @drawmap
+ @update
+ @closescript
+@end
+@do saybar
+`$You have already asked for a hint today, come back another day.
+@closescript
+;-----------------------------------------------------------
+@#DarkNBard
+@busy
+@do moveback
+@show
+`r0`c
+`0 You see before you a Bard, he turns to you and says:
+
+
+`2 "This is a dismal place. Ashes from the volcano to the
+ west obscure the sun and all is permanent shadow here.
+ The trees grow slowly and animals are hungry. This is
+ not a great place to visit without a `$Shining Orb`2 to
+ light the way and hold back the night."
+
+ "North of here is nicer, in a light sort of way. The Dark Bard,
+ over a ways west of me in the forest, can give you lots of
+ hints, he has travelled far and wide!"
+
+
+@key nodisplay
+@drawmap
+@update
+
+;-----------------------------------------------------------
+@#DarkSBard
+@do moveback
+@busy
+@show
+`r0`c
+`0 You see before you a Bard, he turns to you and says:
+
+
+`2 "This is a dismal place. Ashes from the volcano to the
+ west obscure the sun and all is permanent shadow here.
+ The trees grow slowly and animals are hungry. This is
+ not a great place to visit without a `$Shining Orb`2 to
+ light the way and hold back the night."
+
+ "I'd suggest some fresh `%Wolf's Bane `2too, but you must
+ know about that, seasoned traveller that you are!"
+
+@key nodisplay
+@drawmap
+@update
+
+;-----------------------------------------------------------
+
+ ; Moria
+
+@#MirrorTable
+@do moveback
+@busy
+@dataload jw-isle2.mil &playernum `p24
+@do `t70 is `p24
+@if bitcheck `t70 4 1 then do
+@begin
+ @do saybar
+`%You see the empty table where you found the `$Vorpal Blade.
+ @closescript
+@end
+@bitset `t70 4 1
+@do `p24 is `t70
+@datasave jw-isle2.mil &playernum `p24
+@show
+`r0`c
+ `0You have found the lost `%Vorpal Blade!`0
+
+ It was lost years ago by Morlock the Greb.
+ It will be handy to have if you meet a `#Jabberwok.`0
+
+ It's not much good for other monsters though,
+ except maybe a `#Bandersnatch.
+
+@key nodisplay
+@drawmap
+@update
+@closescript
+;-----------------------------------------------------------
+@#WestTP
+
+@do saybar
+Shazaam! A moving performance!
+@do map is 1313
+@do x is 73
+@do y is 11
+@loadmap &map
+@drawmap
+@update
+
+;-----------------------------------------------------------
+@#EastTP
+@do saybar
+Shazaam! A moving performance!
+@do map is 1315
+@do x is 4
+@do y is 10
+@loadmap &map
+@drawmap
+@update
+
+;-----------------------------------------------------------
+@#Med2TP
+@do saybar
+Shazaam! A moving performance!
+@do x is 74
+@do y is 3
+@update
+;-----------------------------------------------------------
+@#Med1TP
+@do saybar
+Shazaam! A moving performance!
+@do x is 30
+@do y is 11
+@update
+
+;-----------------------------------------------------------
+@#Skull
+
+@if `i37 is 0 then do
+@begin
+ @do `p24 is `p03
+ @do `p24 / 3
+ @do `p02 - `p24
+ @do statbar
+ @do saybar
+`$Ouch, falling rocks are killer! I should get a `%helmet `$from somewhere!
+ @if `p02 < 1 then do
+ @begin
+ @do enemy is falling`xrocks
+ @run die in gametxt.ref
+ @end
+ @closescript
+@end
+
+@do saybar
+`$Lucky you are wearing your `%helmet, `$that rock bounced off of it!
+@closescript
+
+;------------------------------------------------------
+ ;Compass .. Stone Circle
+
+@#WestStone
+@do saybar
+You bump into the West Stone of the huge Compass.
+;-----------------------------------------------------------
+@#EastStone
+@do saybar
+You bump into the East Stone of the huge Compass.
+;-----------------------------------------------------------
+@#NorthStone
+@do saybar
+You bump into the North Stone of the huge Compass.
+;-----------------------------------------------------------
+@#SouthStone
+@do saybar
+You bump into the South Stone of the huge Compass.
+;---------------------------------------------------------
+@#MenhirMan
+
+@do moveback
+@BUSY
+@do `t71 is 0
+
+@label Menman
+
+@SHOW
+`r0
+`c
+`0`r1-=-You see a sunburned man sitting in the centre of a stone circle.`0-=-
+`/
+`/
+`r0`2 He looks up at you with his piercing gaze. `x`0"Yes...?"`2 he asks.
+`/
+`/
+
+@dataload jw-isle3.mil &playernum `p24
+@do `t70 is `p24
+
+@DO `v01 is 1
+@CHOICE
+`$Leave.
+-`t71 0 `2Who are you?
+-`t71 1 `2What are these Stones?
+-`t71 2 +`t70 0 `%Dr Fell sent me.
+@IF RESPONSE IS 1 THEN DO
+@begin
+ @DRAWMAP
+ @UPDATE
+ @closescript
+@end
+@IF RESPONSE IS 2 THEN DO
+@begin
+ @bitset `t71 0 1
+ @Show
+`c
+`2 Why ... I am `%Aragorn!
+`/
+`/
+`# Do you mean to say that you didn't recognize me ?
+`/
+`2 I have been gone from Greentree for far too long, I fear.
+ Perhaps, I should go back and visit old friends.
+`! Do you know Turgon? `2I must go and see him soon!
+`/
+`/
+ @key
+ @do goto menman
+@end
+@IF RESPONSE IS 3 THEN DO
+@begin
+ @bitset `t71 1 1
+ @Show
+`c
+`/
+`/
+ These stones are ancient. They were set up as a compass
+ by an ancient sea-faring race of spiders. Few of them remain.
+ Few of the stones, very few of the spiders. `%Have you met any?
+`/
+`/
+ @key
+ @do goto menman
+@end
+@IF RESPONSE IS 4 THEN DO
+@begin
+ @bitset `t71 2 1
+ @Show
+`c
+`0 Ah...Doctor Fell sent you to learn about mandrake and other plants.
+ Very well, I shall help you, he is an old friend.
+`/
+ `%Mandrake `0grows in a forest north and west of here, it is easy
+ to find and pick. There are farmers who grow `%garlic, cotton`0 and
+ `%wolfsbane.`0 These are of great value to wanderers of the wild
+ lands to the north. You better find or buy those that you can!
+`/
+`/
+ @key
+
+ @dataload jw-isle3.mil &playernum `p24
+ @do `t70 is `p24
+ @bitset `t70 1 1
+ @do `p24 is `t70
+ @datasave jw-isle3.mil &playernum `p24
+ @do goto menman
+@end
+
+;---------------------------------------------------------
+@#HealerHut
+@do moveback
+@busy
+
+@pauseoff
+@show
+[?7h[40m[2J[37C[0;1;30m� [0;31m�[1;33;41m�[0;31m�[12C[34m�[5C[s
+[u[1;30m� [0;33m���[6C��[1m�[2;1H[37C[30m� [0;31m�۳[10C[34m���[s
+[u�� [1;30m� [43m [7C[0;33m��[1m�[3;1H[37C[30m� [0;31m�۳[8C[s
+[u[34m��������� [1;30m� [0;31;43m�[40m��[5C[33m��[1m�[4;1H[37C[s
+[u[30m� [0;31m�[1;33;41m�[0;31m�[7C[34m�����������[1;30m� [0;33m�[s
+[u[43m [40m�[6C��[1m�[5;1H[37C[30m������������[0;34m���[33m�[s
+[u[1;37m�� �[44m�[40m�[0;34m��[1;30m������������������[6;1H[8C[s
+[u[37mYes ?[24C[30m�[11C[37m�[0;34m�[33m� ��� �[34m�[1;37m�[s
+[u[10C[0;30;42m�[32;47m�[30;42m�[7;1H[37C[1;40m�[10C[37m�� �[s
+[u[0;33m�������[1;37m� ��[9C[0;30;42m�[37m�[30m�[8;1H[37C[40m[s
+[u[1;40m�[9C[37m������������� ���[8C[0;30;42m�[1m�[0;30;42m�[40m
+[9;1H[37C[1m�[9C[37m� ��� ������ ����[8C[0;30;42m�[32;47m�[40m[s
+[u[30;42m�[10;1H[37C[1;40m�[8C[0;34m���[1;37m��[0;34m��� ���� [s
+[u[1;37m�[0;34m���[7C[30;42m�[32;47m�[30;42m�[11;1H[37C[40m[s
+[u[1;40m�[5C[0;34m����������� ����� ��� ��� [30;42m�[1m�[40m[s
+[u[0;30;42m�[12;1H[37C[1;40m����� [0;34m���� ������ ����� ����� �[s
+[u[1;30m�����������[13;1H[37C� [0;34m���� ����� ����� �����
+[14;1H[37C[1;30m� [0;34m����� ���� ��� ���� ����[5C[35m��[s
+[u[1;36;45m�[0;35m۳[15;1H[37C[1;30m� [0;34m� ���� [1;33m\ [s
+[u[0;34m�� �[1;33m|[0;34m����� [1;33m/[0;34m������ [35m��[s
+[u[1;36;45m�[0;35m۳[16;1H[37C[1;30m� [0;34m���[33m� � [34m� [s
+[u[1;33m\ [0;34m� [1;33m| [0;34m�� [1;33m/ [0;34m�� [33m� � [34m�[s
+[u� [35m��[1;36;45m�[0;35m۳[17;1H[37C[1;30m� [0;34m� [33m��� � [s
+[u[1m������� ������ [0;33m� ��� [34m� [35m��[45m [40m۳s[18;1H[s
+[u[37C[1;30m� [0;34m��� [33m�[1;43m�����[0;33m��� [1;43m���[40m[s
+[u[1C[0;33m���[1;43m����[0;33m�[7C[35m��[1;36;45m�[0;35m۳c[19;1H[s
+[u[27C[1;30m�����������������������������������������������������[20;1H[s
+[u[37m[1;37;40m
+`7 (Ansi by Sandy Chidester)
+@pauseon
+@key nodisplay
+
+@show
+`r0
+`c
+ `r1`%Merlin's Potion Shoppe`r0 `r0
+
+
+@buymanager
+ 2
+ 40
+ 55
+ 66
+
+@drawmap
+@update
+@closescript
+;---------------------------------------------------------
+@#FishBard
+@do moveback
+@do saybar
+`$It is a beautiful day for fishing!`0
+;---------------------------------------------------------
+@#Fish
+@routine fishdock in porttown.ref
+;---------------------------------------------------------
+
+
+ ;Marsh
+@#Swamprat
+@busy
+@pauseoff
+@show
+[?7h[40m[2J[16C[0;33m�[7C[37m� ����۲��� ��� ���۲���[5C�����۲��[s
+[u�� ����� [33m�[2;1H[8C[32m���[33m� [32m�� [33m� [32m��� [s
+[u[37m��[6C�۲���� ���߲���������� ������� ������[33m��[32m���
+[3;1H[7C��� [33m� �[8C[37m��[8C���� ۲���������������� � ������ �[s
+[u[32m�߲�� ��[4;1H �ܲ���[33m�� [32mܲ�����[6C[37m����[10C� [s
+[u[33m� [37m� �[7C� [33m� [37m��� �[32m� [33m�[32m����
+[5;1H�� [33m��� �� ��[32m����[5C[37m�������[5C���[33m��� �����[s
+[u���� ���[37m��� [32m������ [33m�[32m� [33m� [32m�[6;1H [s
+[u[33m�� ��� �[13C[37m�� ����[5C[33m� ��������������� � [37m� [s
+[u[32m��� � [33m�[32m�����[7;1H[1;30m� [0;33m�� ���[32m�� [s
+[u[33m� [32m�߱���[8C[37m�� ������ [33m� �� [37m� [33m��� [37m� [s
+[u[33m�� � ���[8C[32m� � [33m��[8;1H[1;30m��� [0;32m��� �߱���[s
+[u ���� [37m�[10C���� [33m� ������� ����� � �������� [32m�����[s
+[u[33m��[32m��[9;1H[1;30m������� [0;32m����� [33m� [32m� [37m��[s
+[u�����[7C�� �� [33m����������� �������������[6C[32m��[33m�
+[10;1H[1;30m���������[5C[0;33m��[32m�߲�� [37m�����[8C�� �� [s
+[u[33m� ��� �������� ���������� �� [32m��[11;1H[1;30m����������� [s
+[u[0;33m�[5C[32m� [37m�� ������[5C�[7C[33m� ����� ������ ��� ���[s
+[u����� [32m�߲�[12;1H [1;30m�������� �۲��[8C[0m���� ����� [s
+[u[33m���� ���� �������� ���� ������� ��[32m�[13;1H[1;30m�������[s
+[u�۲��[5C���[9C[0m���� ��� [33m������[9C�� �� �� ����� ������� [32m[s
+[u����[14;1H[1;30m�������������۲�� ���[8C[0m��[6C[33m�� �[10C���[s
+[u����� ����� ������� [32m���[15;1H[1;30m��������������۲��� ���[9C[s
+[u[0m�[20C[33m� � �������� ��������� [32m�[16;1H[1;30m������������[s
+[u����۲��� ���������������[17C[0;33m���������� ���������� [1;30m�
+[17;1H��۱�������������۲���[5C�����۰���۲�� ����������� [0;33m��������[s
+[u��������������� [1;30m��[18;1H�����۰�������������������� [0;34m����[s
+[u�������������������� [33m����� ������������ [1;30ms[19;1H������[s
+[u���۲������� [0;34m��������������������������[1;30m���ܰ������� [s
+[u[0;33m������� ��������� [1;30mc[20;1H���۲������������������� [s
+[u[0;34m����������� [1;30m�������� [0;33m� � �������������[1;30m��� [s
+[u[0;33m���� [1;30m�����[21;1H[22;1H[42m [0;30;42mY[40m[s
+[u[42mech! What in the world is [1;37mTHAT [0;30;42mthing? [40m[s
+[u[42m [23;1H[1;37;40m
+@key nodisplay
+
+@dataload jw-isle2.mil &playernum `p24
+@do `t70 is `p24
+@if bitcheck `t70 1 0 then do
+@begin
+@fight
+;name
+Slimey Kobold
+;string said when you see him
+`#Oh oh .... this is `%Gross! �
+;power move kill string
+A mighty swat!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hugs you|1000
+hurls swampwater at you|1200
+swipes at you with a dirty fist|800
+NONE|NONE
+NONE|NONE
+;defense
+1000
+;gold reward
+1500
+;experience
+750
+;hit points
+2000
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@end
+
+@drawmap
+@update
+@closescript
+
+;--------------------------------------------------------
+
+@#SwampPrize
+@do moveback
+@busy
+@dataload jw-isleg.mil &playernum `p24
+@do `t70 is `p24
+@if bitcheck `t70 7 0 then do
+@begin
+ @show
+`r0`c
+ `0You see a `%Holy Flail`0 inside a hollow tree. You dare not pick
+ it up without more knowledge. You wonder whether the `%Holy Book`0
+ that you saw in the town's gift shop might not tell you which is
+ the `#dangerous`0 end of the weapon, and where it should be used?
+`/
+`/
+ @key nodisplay
+ @drawmap
+ @update
+ @closescript
+@end
+
+@dataload jw-isle2.mil &playernum `p24
+@do `t70 is `p24
+@if bitcheck `t70 1 0 then do
+@begin
+ @if bitcheck `t70 3 1 then do
+ @begin
+ @bitset `t70 1 1
+ @do `p24 is `t70
+ @datasave jw-isle2.mil &playernum `p24
+
+ @do move 15 23
+ @do write
+`r0`@Wow!`0 You pick up a `%Holy Flail!
+ @key
+ @clearblock 23 24
+ @closescript
+ @end
+@end
+
+@if bitcheck `t70 3 0 then do
+@begin
+ @run madmage in jw-isle.ref
+@end
+
+@do move 5 23
+@do write
+`r0`0There is nothing here but a tree with the name "Shiv" carved in it.
+@key nodisplay
+@clearblock 23 24
+@closescript
+
+;-------------------------------------------------------
+@#TalkedShiv
+@dataload jw-isle2.mil &playernum `p24
+@do `t70 is `p24
+@if bitcheck `t70 3 0 then do
+@begin
+ @do moveback
+ ;If not seen shiv, else pass through.
+ @busy
+ @do saybar
+Have you spoken to Shiv in the town jail?
+ @routine killkeypress
+@end
+
+;--------------------------------------------------------
+
+@#SafeBridge
+@do quebar
+`%I'd hate to think about hero eating `#TROLLS`% under this bridge!
+
+
+;--------------------------------------------------------
+@#SwampFever
+
+@do moveback
+@offmap
+
+@label witch
+
+@show
+`r0`c `r1 Swamp Remedies & Cures `r0
+
+`2 The witch-doctor looks you over for wounds and fever.
+
+@dataload jw-isle1.mil &playernum `p24
+@do `t70 is `p24
+
+@if bitcheck `t70 5 1 then do
+@begin
+ @do `p02 is 1
+ @bitset `t70 5 0
+ @do `p24 is `t70
+ @datasave jw-isle1.mil &playernum `p24
+
+ @show
+`/
+`0The Shaman solemly announces:
+`% "You have swamp fever, it must be cured before your enter
+ this dwelling, lest you spread the disease."
+`/
+ "Whether you wish it or not, I must proceed."
+`/
+`/
+ `2The Shaman throws magic powder in your face and you lose
+ all but one hitpoint. He has cured your swamp fever. (Whew!)
+
+ @key nodisplay
+ @do goto witch
+@end
+
+@run hospital in jw-isle.ref
+
+@closescript
+;------------------------------------------------
+
+@label killkeypress
+@do moveback
+@do move 15 23
+@do write
+`r0`@Ouch!`0 Did you intend to bump into `@THAT ? `%(Yn)
+@do readspecial `s01 YN
+@clearblock 23 24
+
+@CloseScript
diff --git a/xtrn/lord2/cnw/jw-isle3.ref b/xtrn/lord2/cnw/jw-isle3.ref
new file mode 100644
index 0000000000000000000000000000000000000000..da8a7b5631de57797899fc935d2894c0c740206f
--- /dev/null
+++ b/xtrn/lord2/cnw/jw-isle3.ref
@@ -0,0 +1,1124 @@
+; Script file JW-ISLE3.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:27 2001
+
+@DECLARE start 000001317
+@DECLARE medusabeach 000001420
+@DECLARE medusae 000003929
+@DECLARE medusabard 000010248
+@DECLARE trollbridge 000010401
+@DECLARE mednorthbard 000011274
+@DECLARE healbard 000011422
+@DECLARE healerhut 000011565
+@DECLARE dobarscene 000014356
+@DECLARE southbard 000017331
+@DECLARE bansheebard 000017523
+@DECLARE bansheesign 000017672
+@DECLARE banfarmer 000017787
+@DECLARE bfarmhouse 000017903
+@DECLARE plants 000020688
+@DECLARE landsend 000020842
+@DECLARE killkeypress 000023339
+@DECLARE foreboding 000023609
+@DECLARE jabbertree 000023726
+@DECLARE jabberbard 000023869
+@DECLARE jubjub 000026725
+@DECLARE bandersnatch 000027185
+@DECLARE jabberwock 000027423
+@DECLARE stinks 000027848
+@DECLARE pitfiend 000027999
+@DECLARE guards 000031958
+@DECLARE warn1 000032582
+@DECLARE warn2 000032768
+@DECLARE warn3 000032947
+@DECLARE demon1 000033152
+@DECLARE demon2 000033770
+@DECLARE demon3 000034393
+@DECLARE notrun1 000035047
+@DECLARE notrun2 000035497
+@DECLARE notrun3 000035947
+@DECLARE notrun 000036394
+@DECLARE hasflail 000036851
+@DECLARE playsaints 000037077
+@DECLARE notdead 000037503
+@DECLARE potionshop 000037959
+@NOCHECK
+; End of .REF index
+
+; jw-Isle3.ref
+
+@#Start
+
+ ;Events ....
+
+ ;Medusa Isle
+
+@#MedusaBeach
+@do moveback
+@busy
+@pauseoff
+@show
+[?7h[40m[2J[8C[0;1;31m��������������������������[45m���������� [40m[s
+[u[45m [0;30;45m��������������[2;1H[5C[1;31;40m�������[s
+[u���������������������������[45m������� [40m[s
+[u[0;30;45m���������[3;1H[4C[1;31;40m���������������������������������[s
+[u�������[45m�������� [0;30;45m�������[4;1H[3C[40m[s
+[u[1;31;40m���������������������������������������������[45m������ [40m[s
+[u[45m [0;30;45m�����[5;1H[3C[1;31;40m����������������[s
+[u�������������������������������[45m�������� [40m[s
+[u[0;30;45m����[6;1H[3C[1;31;40m��������������������������������������[s
+[u������������[45m������� [0;30;45m��[7;1H[3C[40m[s
+[u[1;31;40m���������������������������������������������������[45m�[40m[s
+[u[45m������ [0;30;45m�[8;1H[3C[1;31;40m����������������[s
+[u���������������������������������������[45m������ [40m
+[9;1H ����������������������������������������������������������[s
+[u[45m������ [0;30;45m�[10;1H[3C[1;31;40m���������������������[s
+[u ����������������������������������������[45m������ [0;30;45m�[40m
+[11;1H [1;31m�������������������� ������������������������������������[s
+[u������[45m������[0;35m��[30;45m�[12;1H[3C[1;31;40m�������������� �[s
+[u���� ����������������������������������������������[45m��� [0;35m�[s
+[u[30;45m�[13;1H[3C[1;31;40m��������������� ���� ���������������������[s
+[u���������������������������[45m���[0;30;45m�[14;1H[3C[1;31;40m�����[s
+[u���������� ���� �����������������������������������������[45m����[40m[s
+[u[45m��۲��[15;1H[3C[33;40m�����������[31m���� ���� ���������������[s
+[u�������������[45m���������������������۱[16;1H[3C[33;40m������������[s
+[u�� [31m��� �����������������������������������������������[s
+[u[45m�۲[17;1H[15C[33;40m�� [31m�[7C�����������������������������[s
+[u[45m������������������[18;1H[42C[0;34m� [1;31m���[44m������[40m[s
+[u[44m��������������������[19;1H[32C[0;34m� ��������������������������[s
+[u�������������sc�[20;1H[1;37;40m
+
+ `%Nice Ocean! I wonder if it's safe to swim?
+@do readspecial `s01 yn
+@pauseon
+@if `p02 < `p03 then do
+@begin
+ `p02 + 2
+@end
+@drawmap
+@update
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#Medusae
+@busy
+@datanewday jw-isle4.mil
+@dataload jw-isle4.mil &playernum `p29
+@do `t70 is `p29
+
+@if bitcheck `t70 5 1 then do
+@begin
+ @closescript
+@end
+
+@dataload jw-isleg.mil &playernum `p24
+@do `t70 is `p24
+
+@if bitcheck `t70 5 1 then do
+@begin
+ @do quebar
+`%It helps that you have polished your shield like a mirror!
+
+ @run medusafight in jw-isle1.ref
+@End
+@pauseoff
+@show
+[?7h[40m[2J[0;1m�[36m���[37m�� [0m� [1m�[47m��[4C[40m��[5C���[s
+[u [47m ߰[40m����� ��[47m��[40m���� [36m��[37m�[36m�[37m[s
+[u�[36m�[37;47m���[40m� [47m��[1C[40m�[0m�� [1m�[47m�[40m
+[2;1H [0m�[1;36m�[37m���[0m� [1;47m��[5C[0m��[1;47m�[40m��[0m[s
+[u�� [1m����[47m ܰ��[40m��� �[47m��[40m�� [47m����[1C[40m[s
+[u[40m�[36m��[37m�[36m��[37m��[47m����[1C[0m�[1;47m��[40m�[0m[s
+[u� [1m�[47m�[36;40m�[3;1H [37m�[36m�[37m�[47m�[40m� [s
+[u[47m��[7C[0m��[1;47m�����[40m�[0m� [1m��[47m����[40m��[s
+[u[47m۲�[40m� ��[47mܲ�[40m�[47m۲�[0m��[1;36m�[37m�[47m[40m[s
+[u[47m�[40m�[36m� [37m��[47m����[0m��[1;47m�[40m�[0m� [1m�[s
+[u[47m�[36;40m�[4;1H[37m�[36m��[37m�[47m�[2C[40m�[47m�[40m[s
+[u[1C[30m�� [0m� � ����[1;47m��[0m� [1;47m�[40m�[47m�[40m[s
+[u[40m���[47m��[0m� �[1;47m���[0m�����[1m�[0m� [1;36m�[37m�[s
+[u[47m��[36;40m��[37m��[47m����[1C�۲[3C�[36;40m�[37m�[5;1H�[s
+[u[36m��[37;47m�[40m� �[47m�[40m�[30m��� [0m��� [1;30m��[0m�[s
+[u[1m� [36m�[37m�[0m� ��[47m [1m�[40m�[47m۰[0m������ [1m�� [s
+[u[36m�[0m��[1;30m�� [37;47m�[2C[36;40m��[37;47m��[40m���[s
+[u[47m�[40m�� [47m��۲[1C�[36;40m�[37m��[6;1H�[36m��[s
+[u[37;47m�[2C[40m���[30m��� [0m��� [1;30m�[0m�[1;47m�[40m[s
+[u[40m����[0m�[1;30m� [0m�[1m�[47m��۰[40m�[0m�[1m� [30m�[0m�[s
+[u[1m��[47m�[40m�[47m�[0m�[1;30m� [37m�[47m�[0m�� [1;36m�[s
+[u[37m�[47m���[36;40m�[37;47m�[40m�� �� [47m����[40m��[36m��
+[7;1H[47m [37;40m�[36m��[37;47m�[3C[40m���[0m�[1;30m� [0m�[s
+[u[47m [40m��������[1m�������[47m��۰�[40m������������[47m���[40m[s
+[u[47m�[0m� [1;36m��[37m��[47m��[40m�[36m�[37m� [47m� �[40m[s
+[u[1C[47m�[36;40m�[0m�[1;47m�[1C[36;40m�[37m�[8;1H �[47m [40m[s
+[u[40m�[36m�[37;47m��[3C[40m�[0m�[1;30m�� [0m�[1;47m� [40m[s
+[u[0m�[1;47m�����[40m������[47m���۱��[40m�����������[47m����[40m[s
+[u[1C[36m�[37m�[47m�[1C��[40m�[47m��[2C ��[40m� [47m��[40m[s
+[u[36;40m�[37;47m��[1C[40m�[9;1H[47m�[1C �[40m�[36m��[s
+[u[37;47m�[3C[40m���[30m� [0m��[47m [1m��������[40m�����[s
+[u[47m�[40m�[47m۱�����[40m������[47m�����[40m�[30m��[s
+[u[37;47m���۰�[36;40m��[37m�� [47m�[40m�[47m�[2C�[40m�[36m�[s
+[u[37m�[0m�[10;1H[1m�[47m�[2C��[40m�[36m�[37;47m�[40m�� [30m�[s
+[u�� [37;47m�[0m�[1;47m������[40m���������[47m�[40m��[47m���[40m[s
+[u[47m�[40m�[47m�[40m��[47m�۲����[30;40m���[47m�[37;40m��[s
+[u[47m۱��[40m��[36m�[37m�� [47m���[2C�[40m�[36m��[0m�[11;1H[s
+[u[1;36m��[37;47m�[2C[40m�[47m��[36;40m��[37;47m��[1C[40m[s
+[u[30;40m��� [47m [37m����[40m�����������������[47m���[40m�[s
+[u[47m��۲�����[30;40m��[47m��[37m����[2C[40m��[36m�[37m�� [36m[s
+[u�[37m� [0m�[1;47m��[36;40m�[0m�[12;1H[1;36m�[37m��[47m��[40m[s
+[u[40m� [47m��[40m�[36m�[37;47m�[36;40m� [30m�� [47m [37m�[40m[s
+[u[47m��[40m������������������������[47m��[40m�[47m�����[40m[s
+[u[30;40m�[47m���[37m� [2C[40m��[36m�[37m���[36m���[37;47m[40m[s
+[u[47m���[36;40m�[0m�[1m��[13;1H�[36m��[37m�[47m��[40m� [s
+[u[47m��[40m�[36m���[30m�[0m�[1;30m��[37;47m����[40m������������[s
+[u���������[47m��[40m����[47m���[1C[30;40m�[47m��[37;40m��[s
+[u[47m� [40m�[36m��[37m� [36m���[0m�[1m�[47m��[0m� [1m�[36m�
+[14;1H[37;47m��[40m�[36m�[37m� [47m�[40m� [47m���[40m�[36m�� [s
+[u[0m�[1;30m��[0m�[1;47m���[40m����� [30m����� ߲�� [37m��[s
+[u[47m���[40m�[47m���[1C[30;40m�[47m��[37m�[40m� [47m��[40m[s
+[u[36;40m�[37m� [36m���[0m�[1m��[0m� [1m��[36m���[15;1H [s
+[u[37;47m��[40m�[36m� [37;47m�[40m� [47m��[40m�[36m��� [30m� [s
+[u [37;47m���[40m����� [30m� [0m�[1;30;47m��[40m���[37m����[s
+[u[47m����[2C[30;40m�[47m��[37;40m� [47m �[40m�[36m��[37m� [s
+[u[36m�[0m�[1m���[0m�[1m��[36m�� [37m���[16;1H[47m��[40m[s
+[u[36;40m�[37m� [47m�[40m�[36m� �[37;47m�[40m�[36m�[37m�[36m�[s
+[u [0m�[1m�[0m�[1m�[0m�[1;47m�[40m����������������[47m��۲[40m[s
+[u[47m���[1C[30;40m���[47m�[37;40m� �[47m�ܲ[36;40m�[37m��� �[s
+[u[36m���[37m����[36m�� [37m���[17;1H[47m���[40m� [36m�[37m� [s
+[u[36m�[37;47m��[36;40m��� [0m�[1m���[0m� [1;47m�[1C[40m������[s
+[u��������[47m�����[40m� [30m��[47m߱[37;40m���[47m�[40m� ����[s
+[u� �[36m���� [37m��[36m�� [37m�[18;1H[47m��[40m��[36m�� �[s
+[u[37;47m��[36;40m�[37m��[36m� [0m�[1m���[0m� [1;47m�[40m�� �[s
+[u��[47m��[40m�[47m������[0m��� [1;30m��[47m�[37;40m��[s
+[u[47m��[5C[40m��� [36m�[37m��[36m���� [37m��[36m���[19;1H [s
+[u[37;47m�[36;40m��[37m�����[47m�[40m��� [0m��[1m��[0m��[1;33m�[s
+[u� [37;47m�[40m�� [0m�����[9C[1;33m�[30m�[47m�[37m�[40m[s
+[u[40m�[47m�[40m�� ����� [36m�� [37m������[36m��[20;1H[s
+[u[37;47m��[36;40m���[37m�� ���� ���[0m�� [1;33m�������[14C����[s
+[u� [30;47m��[37m�[40m�[47m��[40m�[36m���[37m� [36m�[37m� �����
+[21;1H[47m����[36;40m���[37m����[36m� [0m���sc [1m�[47m�[40m[s
+[u[40m�[33m������� �������� �������� [30;47m��[37m�[40m�[s
+[u[47m��[1C[40m� [36m���[37m� ��[22;1H[1;37;40m
+@pauseon
+@do readspecial `s01 yn
+@show
+`r0`c`0
+ You just bought a piece of Gibraltar,`l`x
+
+ rather, you are a piece of Gibraltar!`l`x`l`x
+
+ You have been stoned by `%Medusa.`l`x`l`x`l`x
+
+@key nodisplay
+@do `p02 is 0
+@do enemy is Medusa
+@run die in gametxt.ref
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#MedusaBard
+@do saybar
+`$There is a `%Medusa `$on the island north of here, `#be carefull!
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#TrollBridge
+@busy
+@show
+`r0`c`0
+ A gnarly `#Troll `0blocks your path. You know about these guys,
+ you try to sneak by them and they collapse the bridge under
+ you and dine on your `%bones!`l`x`l`x`l`x
+
+@key
+@do write
+`x`x`x`x`x`x`x`x
+@do `v01 is 1
+@choice
+`$Retreat!
+>`i29 0 `2Offer the `#Troll`2 a salmon?
+`2Try to trick the big lug?
+@if response is 1 then do
+@begin
+ @do moveback
+ @drawmap
+ @update
+ @closescript
+@end
+@if response is 2 then do
+@begin
+ @show
+ `r0`c
+ `0You toss the `#Troll`0 the fish and move on your way.`l`x`l`x
+ @key nodisplay
+ @do `i29 - 1
+ @drawmap
+ @update
+ @closescript
+@end
+
+@do enemy is Bridge`xTroll
+@run die in gametxt.ref
+
+@closescript
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#MedNorthBard
+@do saybar
+`$There is a `%Medusa `$on the island west of here, `#be carefull!
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#HealBard
+@do saybar
+`$The inn is looking for help, know anyone looking for work?
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#HealerHut
+@do moveback
+@offmap
+@pauseoff
+@show
+[?7h[40m[2J[1C[0;33m�������� �� � ������������������ ���� ���������[s
+[u�������������������������������[2;1H �[11C[1;36mKrista's Tavern[s
+[u[12C[0;33m� [35m� [33m�� [37m�� [33m��������[6C�[3;1H[s
+[u �[38C�[35m��[37;45m�[35;40m�� [33m�� [37m���� [33m�[1;31m�[s
+[u�[0;33m���[43m�[1C[40m��� �� [34m��[4;1H [33m� [1;37mHelp [s
+[uWanted:[6CApply at bar[6C[0;33m�[35m�[45m�[37m�[35;40m�� [33m[s
+[u�� [37m��[1;47m�[0m���[33m�[1;31m�[41m��[40m�� [0;33;43m�[40m[s
+[u[43m��[40m��� �� [34m�� [33m�[5;1H �[38C������� �� [37m��[s
+[u[1;47m�[0m���[33m� [1;31m���� [0;33m�[43m�� [40m�� �� [s
+[u[1;37;44m� [1C[0;33m�[6;1H �[38C�[7C�� [37m��[1;47m�[0m��� [s
+[u[33m�[1;31m�[41m��[40m� �[0;33m��[43m�[1C[40m�� �� [s
+[u[1;37;44m� [1C[0;33m�[7;1H � [1;37mToday's special: Lizard Surp[s
+[urise [0;33m�[7C�� ������ � [1;31m�[41m�[40m�� [0;33m�[s
+[u[43m�� [1C[40m�� �� [1;37;44m� [8;1H[40C[0;33m�[7C��[9C[s
+[u[43m�[40m� [1;31m� �[0;33m�[43m�[1C[40m��� �������[9;1H � [s
+[u[1;37m$5 in rat pelts, all you can eat [0;33m������� ��[7C� [s
+[u[43m�[1C[1;31;40m�[41m���[40m�[0;33m� �����[10;1H �[38C� [s
+[u[32m� [33m�� �� �[1;35m�[45m��[31;41m�[40m�[35;45m��[40m[s
+[u[0;33m�����[1;35;45m�[1C[40m�� [0;33m�[11;1H �[38C� [32m�[s
+[u [33m�� �� [1;35;45m��[40m��[45m�� [40m���� ���� [s
+[u[0;33m�[12;1H �[38C� [32m�[1;37;42m�[0;32m��� [33m�� �[s
+[u[1;37;43m�[0;33m�� �[1;35m�[45m�[40m��[45m [40m����[0;35m�� [s
+[u [1m���� [0;33m�[13;1H �[37C�� [32m�[1;37;42m�[0;32m��� [33m�[s
+[u� [1;31m�[0;33m�[1;37;43m�[0;33m��[1;35m���[0;35m� [1;37m� [s
+[u[36m�[31m�[0;35m� [1m�����[0;35m� [1m���� [0;33m�[14;1H ������[s
+[u������������������ �� �� ���������������� [1;31m��[0;33m�[s
+[u[1;37;43m�[0;33m��[1;35m��[0;35m�� [1;37m�[36m��[0;35m�[1;31m�[s
+[u�� [35m������� [0;33m���[15;1H ��������� ����� ��� ��߲ ��� �� � � [s
+[u[1;30m�������������������������������������������[16;1H [0;33m� ���[s
+[u� �� ���� � �� �� � �� �� � � ��� �� [1;30m��������� ��� ���������� [s
+[u ����� ��[17;1H [0;33m������ �� � �� � � � � � � � � � ���� �� [s
+[u[1;30m������������ ��� ���� ��� ����� ���[18;1H [0;33m��� � � �[s
+[u � �� � � � � � � �� [1;30m����������� ��� ����������������[s
+[usc�[19;1H[20;1H[8C[36mThere is a reasonable amount of clatter in t[s
+[uhis backwoods tavern.[21;1H[22;1H[12CSomething bubbles in a pot, by[s
+[u the hearth. Smells good![1;37;40m
+@pauseon
+@do readspecial `s01 yn
+
+@label dobarscene
+
+@dataload jw-isle3.mil &playernum `p24
+@do `t70 is `p24
+
+@show
+`r0`c
+ `0The lady behind the bar says:
+
+ `2Hi `%`N!`2 What can I do for you?
+
+@do `v01 is 1
+@do write
+`x`x`x`x`x`x`x`x
+@choice
+`$Nothing right now
+`0I'll try the Lizard Surprise
+-`t70 7 `0What's this about help wanted?
+`0Is there anywhere to spend the night around here?
+@if response is 1 then do
+@begin
+ @drawmap
+ @update
+ @closescript
+@end
+
+@if response is 2 then do
+@begin
+ @show
+ `r0`c
+ `2Krista brings you a hot bowl saying:
+
+ `0"We're short on help right now so I'll bring it myself.
+ I made it myself too, so I don't want any complaints!"`l`x`l`x
+
+ `2You slurp down the goo, `lit's not too bad.
+
+ @do readspecial `s01 yn
+ @show
+ `r0`c
+ `$Krista shouts from behind the bar:
+
+ `2"It's on the house, `%`N, `2don't say I never did
+ anything for you!"
+ @do readspecial `s01 yn
+ @do `p02 is `p03
+ @do goto dobarscene
+@end
+
+@if response is 3 then do
+@begin
+ @show
+ `r0`c
+ `2"We need kitchen help, someone young would do fine.
+
+ If you know of any youngsters orphaned or lost bring
+ 'em here! I won't pay cash but I have some `#burn herb
+ `2I will trade for a boy or girl.
+
+ If you head south from here you will sure want the herb!
+
+
+
+@do write
+`x`x`x`x`x`x`x`x
+ @do `v01 is 1
+ @choice
+`$I can't help you with that, I'm sorry.
+>`i11 0 `%I have a lost girl that needs a home!
+ @if response is 2 then do
+ @begin
+ @show
+ `r0`c
+ `2Thanks, `%`N, `2the girl can start right away.
+
+ We work hard here but pay well and it is safe,
+ compared to travelling with you!
+
+ @do `i11 - 1
+ @dataload jw-isle3.mil &playernum `p24
+ @do `t70 is `p24
+ @bitset `t70 7 1
+ @do `p24 is `t70
+ @datasave jw-isle3.mil &playernum `p24
+ @do readspecial `s01 yn
+ @show
+ `r0`c
+ `%You pack away the `#burn herb`% hoping that you never need it.
+
+ Better safe than sorry, as dad used to say!
+
+ @do readspecial `s01 yn
+ @end
+ @do goto dobarscene
+@end
+
+@if response is 4 then do
+@begin
+ @show
+ `r0`c
+
+ `%Krista replies:
+
+ `2"Sorry `0`N,`2 there is nowhere but the stables
+ and the local farms and, as I'm sure you know since
+ you are still alive, your `3Wolf's Bane`2 will become
+ stale and stop protecting you. I'd head back to town
+ or try staying near the farmer, it's up to you!"
+
+ @do readspecial `s01 yn
+ @do goto dobarscene
+@end
+
+@closescript
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#SouthBard
+@do saybar
+`%I'm guarding the inn from the `#Jabberwok, `%it lives south of here.
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+ ; Banshee
+
+@#BansheeBard
+@do saybar
+`0There is a `4Banshee`0 hereabouts, you had better be prepared!
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#BansheeSign
+@do saybar
+`%Please Don't Pick the Daisies!
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#BanFarmer
+@do saybar
+`#Nice flowers, don't you think?
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#BFarmHouse
+@do moveback
+@busy
+@pauseoff
+@show
+[?7h[40m[2J[0;1;30m����� ��������۲����������ܱ�������� ���۲�� ��[s
+[u��[0;33m�� �[5C������������ � ��[2;1H[1;30m����������������۰����[s
+[u�[7C�۲�������������� ��� [0;33m��������[12C�����[3;1H [1;30m���[s
+[u������ ��۱���� � ������������� � ����� �� �� [0;33m�[21C��
+[4;1H[1;30m��� �������۰۱���� � ������������� ��� ������� � [0;33m[s
+[u�[24C�[5;1H[1;30m�� ����������۲������� ����������۰��� ������� [s
+[u�� [0;33m��[22C��[6;1H[1;30m������������ް� [0;33m���������������[s
+[u�� [1;30m�۱�����������ܲ�� [0;33m�[5C[1;37mYe Olde[9C[0;33m��
+[7;1H[1;30m�[8C���ް�[0;33m����[30;43m�����[33;40m�۲��[43m [40m[s
+[u[40m����[1;30mݰ���� [33m��[5C[30m�� [0;33m�[22C�[8;1H[s
+[u[1;30m� [0;32m� [35m��� [1;30m���ް�[0;33m�[30;43m��[40m[s
+[u[33;40m��[43m [40m��������[30;43m�[33;40m۱��[1;30mݰ���� [33m[s
+[u����� [30m�� [0;33m�[23C��[9;1H[1;30m� [0;32m�� [35m� [s
+[u[1;30m���ް�[0;33m�[30;43m���[33;40m���[43m [1;37;40mOpen[0;33m[s
+[u���۲��[1;30mݰ ��� [31m� [33m��� [30m��[0;33m��[7C[1;37mFlo[s
+[uwer[10;1H[30m� [0;32m��� � [1;30m���ް�[0;33m�[30;43m��[40m[s
+[u[33;40m����[43m [40m������ݲ���[1;30mݰ���� [0;34m�[1;31m� [s
+[u[33m�� [30m�� [0;33m�[24C�[11;1H[1;30m� [0;33mް���� [1;30m�[s
+[u��ް�[0;33m�[30;43m���[33;40m�[30;43m����������[33;40m����[1;30m[s
+[uݰ ����������۲��� [0;33m��[22C��[12;1H[1;30m� �[43m����[40m[s
+[u[40m� ���ް�[0;33m۰�[43m [30m��[33;40m�۰[30;43m�[40m[s
+[u[33;40m�۱[1;30m��[0m�[33m�[1;30mݰ ��������ܲ�۰�� [0;33m��[6C[s
+[u[1;37mShoppe[13;1H[30m��������߲��ް�[0;33m���[30;43m� �[40m[s
+[u[33;40m�[30;43m�[33;40m�[30;43m�[33;40m�۲[30;43m�[1;47m�[40m[s
+[u[0;30;43m�[33;40m�[1;30mݰ��� ������������[0;33m�[23C�� s[14;1H[s
+[u[1;30m��������� ��ް�[0;33mޱ���[30;43m���[33;40m�[30;43m���[40m[s
+[u[33;40m�۲��[31;43m�[33;40m�[1;30mݰ����������� ۲ � [0;33m�[24C[s
+[u�c[15;1H[1;30m���� �������ް�[0;33mް���[30;43m�� [33;40m�[s
+[u[30;43m���[33;40m����۰�[1;30mݰ������ �����۱�� [0;33m��[22C��
+[16;1H [1;30m�������� ��ް�[0;33mް�۱[30;43m�� ��[33;40m�[s
+[u[30;43m����[33;40m��[1;30mݰ�� �������� � ��[0;33m��[8C�������[s
+[u[10C�[17;1H[1;30m��� ��������ް�[0;33mް�۱[30;43m�� [40m[s
+[u[33;40m��۲�[43m [30m��[33;40m��[1;30mݰ����� ��������[0;33m� [s
+[u���������[7C�� ��� ���[18;1H[19;1H[20;1H[1;37;40m
+ `$A FLOWER Shop? Yeah, right. `%NOT!
+@pauseon
+@do readspecial `s01 yn
+@drawmap
+@update
+@closescript
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#plants
+@do saybar
+`%You see rows and rows of what look like daisies, waving in the breeze.
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#LandsEnd
+@busy
+@pauseoff
+@show
+[?7h[40m[2J[0;31m����������������������������������������[6C��������[s
+[u��������������������������[2;1H��������������������������������������[s
+[u[9C���������������������������������[3;1H���������������������������[s
+[u�����������[10C��������������������������������[4;1H����������������[s
+[u����������������������[12C������������������������������[5;1H�������[s
+[u�������������������������������[14C����������������������������[6;1H[s
+[u[1;41m�������������������������������������[1C[0;30;41m�[13C�[40m[s
+[u[41m[1;31m���������������������������[7;1H[40m��������������������[s
+[u������������������[15C���������������������������[8;1H��������������[s
+[u������������������������[16C��������������������������[9;1H���������[s
+[u�����������������������������[16C��������������������������[10;1H���[s
+[u�����������������������������������[15C���������������������������
+[11;1H��������������������������������������� �[10C������������������[s
+[u���������[12;1H[33m�����������������������������������[19C���������[s
+[u�����������������[13;1H�[41m����������[40m�����[41m����������[40m[s
+[u[41m��[40m��[25C� �[7C��[43m�����������[14;1H������[40m��[s
+[u[31m�����������[33m�[43m������[40m�[44C���������[15;1H�����[31m[s
+[u����������������[33m���� ��[43m������[40m������[33C����[16;1H�[s
+[u��[31m�����������������[9C[33m�[43m������������[40m�[17;1H[s
+[u[0;36m����������������[14C[1;30;46m�[0;36m������[1;30;46m���[40m[s
+[u[46m�[0;30;46m�[18;1H[36m����������[1;30m������[0;36m�[s
+[u[1;30;46m����[0;36;46m����[30m�[2C�[1m��������[0;36;46m����[40m[s
+[u[46m�[30m�[1;40m�[19;1H[0;36m�����������[1;30;46m��[40m[s
+[u[0;36;46m����������[1m�[0;36;46m��[1;30m�[0;36;46m���[1;30m[40m[s
+[u[46m��[0;36;46m������[1;30m���[0;36;46m�����[1;30m��[40m[s
+[u[0;30;46m�[1;40m�[20;1H[0;36m���������[1;30;46m�������[36m�[40m[s
+[u[46m��[0;36;46m������[1;30m���������������������������[21;1H[40m[s
+[u[0;36;46m������[1;30m�����������������[0;36;46m�������[1;30m�[40m[s
+[u[46m���������������������[40m���sc[22;1H[1;37;40m
+ `%What a beautiful sight, I think I could retire here!
+@pauseon
+@do readspecial `s01 yn
+@if `p02 < `p03 then do
+@begin
+ `p02 is `p03
+@end
+@drawmap
+@update
+@closescript
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@label killkeypress
+@do move 15 23
+@do write
+`r0`@Ouch!`0 Did you intend to bump into `@THAT ? `%(Yn)
+@do readspecial `s01 YN
+@clearblock 23 24
+@do moveback
+
+@CloseScript
+
+ ;Jabber Wocky
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#foreboding
+@do saybar
+`$I'm scared! `%Time to head home.
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#JabberTree
+@do moveback
+@busy
+@routine killkeypress
+@run jujutree in jw-isle1.ref
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#JabberBard
+@do moveback
+@busy
+@pauseoff
+@show
+[?7h[40m[2J[0;1;30m�[0;34m��������������������[44m������[40m������[s
+[u����������������������������������������������[36;44m�[2;1H[40m[s
+[u[1;30;40ms��[0;34m�[1;30m�[0;34m���������������������[5C[s
+[u[1;30;44m�[0;34m�������������� ������������������[44m���������[40m[s
+[u[44m�����[36m�[3;1H[1;30;40mc [44m�[0;34;44m����[40m�������[s
+[u[44m�������[40m�[6C[1;30m�[0;34m������������ ��������������������[s
+[u����[44m����������[36m�[4;1H[5C[1;30m�[0;34;44m�[40m�����������[s
+[u������[8C�[1;30;44m�[0;34m������[44m [40m� ����������������������[s
+[u����������[44m���[36m�[40m�[5;1H[5C[1;30m�[0;34m���������������[s
+[u[13C[1;30m�[0;34m����� [30;44m�[34m�����[40m��������������������[s
+[u��������[44m���[36m�[6;1H[6C[1;30m�[0;34;44m�������������[40m[s
+[u[15C[1;30m�[0;34;44m�[40m� ����������������������������������[s
+[u[44m����[36m�[40m�[7;1H[6C[1;30m�[0;34m��[1;30;44m�[40m[s
+[u[0;34;44m����������[17C[40m�[44m����[40m�������������������������[s
+[u�[44m���������[36m�[8;1H[9C[1;30m�[0;34;44m����������[16C[40m[s
+[u[1;30;40m�[0;34m�������������������������������[44m��������[40m[s
+[u[44m[36m�[40m�[9;1H[9C[44m�[34m����������[16C[1;30;40m�[s
+[u[0;34;44m��������������������������������[40m�[44m������[36m�[40m
+[10;1H[10C[44m�[34;46m����������[15C[1;30;44m�[0;34;44m������[40m[s
+[u[44m�������������������������[40m�������[36;44m�[40m�[11;1H[10C[s
+[u[44m��[34;40m����������[13C[37m�[44m [34m������[40m������������[s
+[u����[44m���������[36m�[40m���[34m�[36m��[12;1H[11C[1;30m�[s
+[u[0;36;44m��[34m�����[40m� �[30;44m�[12C[37m� [34m������[40m[s
+[u[40m����������������[46m���������[36;40m�[13;1H[13C[1;30m�[s
+[u[0;36;44m�[34;40m��� [30;44m�[34m����[30m�[10C[37;40m�[s
+[u[44m [34m�����������������������������[36m�[40m��[14;1H[14C[s
+[u[1;30m�[0;36;44m��[1m��[0;34m��[44m����[10C[1;37m�[40m[s
+[u[0;34;44m���������������������������[36m��[40m�[15;1H[19C[1m�[s
+[u[44m�[0;34m���[10C[1;37;44m� [0;34;44m�����������������[36m[40m[s
+[u[44m������[40m����[16;1H[21C[1;44m��[13C[0;34m��[44m [40m[s
+[u[40m������[1;37;44m�[36m��[40m���[17;1H[41C[44m�[37m����[40m[s
+[u[40m��[18;1H[19;1H[20;1H[1;37;40m
+ `3Whew, `lit's just `lthe border `lguard!
+@pauseon
+@do readspecial `s01 yn
+@show
+`r0`c
+ `2The Ranger looks at you with pity and says:
+
+ `0This is harsh land, if you are going north,
+ I don't blame you, if south, well, I don't
+ think we'll meet again!
+
+@do readspecial `s01 yn
+@drawmap
+@update
+@closescript
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#Jubjub
+@busy
+@dataload jw-isle3.mil &playernum `p29
+@do `t70 is `p29
+@if bitcheck `t70 2 1 then do
+@begin
+ @do saybar
+`!Feeding the `%Heron`! has paid off, the JubJub bird salutes you!
+ @CloseScript
+@end
+@datanewday jw-isle4.mil
+@dataload jw-isle4.mil &playernum `p29
+@do `t70 is `p29
+@if bitcheck `t70 3 0 then do
+@begin
+ @run jubjubbird in jw-isle1.ref
+@end
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#Bandersnatch
+@datanewday jw-isle4.mil
+@dataload jw-isle4.mil &playernum `p29
+@do `t70 is `p29
+@if bitcheck `t70 2 0 then do
+@begin
+ @run bander in jw-isle1.ref
+@end
+
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#JabberWock
+
+@busy
+@dataload jw-isle2.mil &playernum `p29
+@do `t70 is `p29
+@do `p25 is 3300
+@if bitcheck `t70 4 1 then do
+@begin
+@do `p25 is 2300
+@end
+
+@datanewday jw-isle4.mil
+@dataload jw-isle4.mil &playernum `p29
+@do `t70 is `p29
+@if bitcheck `t70 4 0 then do
+@begin
+ @run jabberwalk in jw-isle1.ref
+@end
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+ ; Lava Flow
+
+@#Stinks
+@do quebar
+`0What an awful `$stink,`0 you look around for what could have made it!
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#PitFiend
+@do moveback
+@busy
+@datanewday jw-isle1.mil
+@dataload jw-isle1.mil &playernum `p29
+@do `t70 is `p29
+@if bitcheck `t70 4 1 then do
+@begin
+ @do saybar
+`%You have already met this guy today!
+ @closescript
+@end
+
+@pauseoff
+@show
+[?7h[40m[2J[0;31m��۲���[31C[1;30m�[47m��[37m�[40m�[6C[0;31m����[s
+[u��[14C�[6C��[2;1H���۱�[14C�[16C[1;30m�[47m� �[0m�[1;47m�[40m[s
+[u[40m� [0;31m���[18C�[5C������[3;1H ��۱�[7C�[6C�ݱ [1m�[9C[s
+[u[30m�[47m�[0m�[47m [1;30m� [0m�[1;47m�[40m�[0;31m���[11C[1m� [s
+[u [0;31m� ����[6C�۲��[4;1H �۲��[5C�[8C�۲�[1m�� [0;31m���� [s
+[u[1;30;47m�[0m��[47m [1;30m�[0m���[1;47m�[0;31m�۱[7C���[1m�� [s
+[u[0;31m���ܲ��[5C����۲�[5;1H �۲��[5C�����[7C���������� [s
+[u[1;30;47m�[0m��[47m [1;30m�[0m���[1;47m�[0;31m�۱[5C�����������[s
+[u[7C������۲�[6;1H ���۲��[5C���������[14C[1;30;47m�[0m��[47m[40m[s
+[u[47m [1;30m�[0m���[1;47m�[0;31m�۱�[19C�������۲���[7;1H���۲��[s
+[u[6C��������������� ��ܲ�� [1;30;47m�[0m��[47m [1;30m�[0m���[s
+[u[1;47m�[0;31m��۱�������������������������۲���[8;1H����۲��[7C�����[s
+[u��������������� [1;30;47m�[0m��[47m [1;30m�[0m���[1;47m�[40m[s
+[u[0;31m���� ��������������������۲����[9;1H ���۲��[7C�� �����������[s
+[u������ [1;30;47m�[0m��[47m [1;30m�[0m���[1;47m�[0;31m�۱� ������[s
+[u������������۲���۱��[10;1H ��۲��[12C�������������� [1;30;47m[40m[s
+[u[47m�[0m��[47m [1;30m�[0m���[1;47m�[0;31m�۲� � �������������۲�[s
+[u��۱���[11;1H ��۲��[9C����������������� [1;30;47m�[0m��[47m[40m[s
+[u[47m [1;30m�[0m���[1;47m�[0;31m��� �[5C���������۲�������
+[12;1H���۲��[13C������� � �� [1;30;47m�[0m��[47m [1;30m�[0m���[s
+[u[1;47m�[0;31m�������ܰ�� �������۲������[13;1H ���۲���[12C���� � [s
+[u� �[5C[1;30;47m�[0m��[47m [1;30m�[0m���[1;47m�[0;31m�۲�� � �[s
+[u���������۲����[14;1H�����۲���[14C�����[7C[1;30;47m�[0m��[s
+[u[47m [1;30m�[0m���[1;47m�[0;31m���[10C���������۲�[9C�[15;1H ���[s
+[u�۱��[18C��[7C[1;30;47m�[0m��[47m [1;30m�[0m���[1;47m�[1C[40m[s
+[u[0;31m���[10C�������۲�[10C�[16;1H ����߲[29C[1;30;47m�[0m��[s
+[u[47m [1;30m�[0m���[1;47m�[17C[0;31m����۲�[10C�[17;1H����۲[30C[s
+[u[1;30;47m�[0m��[47m [1;30m�[0m���[1;47m�[1C[0;31m����[1m���� [s
+[u[0;31m�[6C�����[11C��[18;1H ��۲��[29C[1;30;47m�[0m��[47m [40m[s
+[u[47m[1;30m�[0m���[1;47m�[1C[0;31m��[1m��[0;31m�[12C�[14C��
+[19;1H �۲��[30C[1;30;47m�[0m��[47m [1;30m�[0m���[1;47m�[33C[40m[s
+[u[0;31m��[20;1H ������[29C[1;30;47m�[0m��[47m [1;30m�[0m���[s
+[u[1;47m�[32C[0;31m���[21;1H��[30;41ms[31;40m���[30C[1;30;47m[40m[s
+[u[47m�[0m��[47m [1;30m�[0m���[1;47m�[1C[0;31m�� [1m�� �[25C[s
+[u[0;31m��[22;1H ��[30;41mc[31;40m������ ���[22C[1;30;47m�[0m��[s
+[u[47m [1;30m�[0m���[1;47m�[3C[0;31m�[24C� �����[23;1H[1;37;40m
+@pauseon
+@do readspecial `s01 yn
+@drawmap
+@update
+
+@dataload jw-isle1.mil &playernum `p29
+@do `t70 is `p29
+@bitset `t70 4 1
+@do `p29 is `t70
+@datasave jw-isle1.mil &playernum `p29
+
+@dataload jw-islex.mil &playernum `p29
+ ;Get mimsic experience into `p29
+@do `p27 is 15000
+@do `p27 - `p29
+@dataload jw-islex.mil &playernum `p29
+@do `p29 + 100
+@datasave jw-islex.mil &playernum `p29
+ ;got Holy Flail?
+ ;`p25 is 1 if true
+@routine HasFlail
+
+@if `p25 is 1 then do
+ @begin
+ @do `p27 - 1000
+ @end
+
+@routine PlaySaints
+
+@if `p25 is 1 then do
+ @begin
+ @do `p27 - 500
+ @end
+
+@if `p27 < 10002 then do
+ @begin
+ @do `p27 is 10001
+ @end
+
+
+@run pitfiend in jw-isle1.ref
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#Guards
+@busy
+@datanewday jw-isle1.mil
+@dataload jw-isle1.mil &playernum `p20
+@do `t70 is `p20
+
+@if bitcheck `t70 1 1 then do
+@begin
+ @if bitcheck `t70 2 1 then do
+ @begin
+ @if bitcheck `t70 3 1 then do
+ @begin
+ @do saybar
+`$ You may pass, gifted one!
+ @Closescript
+ @end
+ @end
+@end
+
+@do saybar
+`%You can't go in until you kill the three demons in one day.
+@do moveback ; Unless 3 are dead
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#Warn1
+@if &lastx is 17 then do
+@begin
+ @closescript
+@end
+@do saybar
+`$Are you sure you want a piece of what's coming?
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#Warn2
+@if &lastx is 73 then do
+@begin
+ @closescript
+@end
+@do saybar
+`$Are you nuts? You can't beat this Demon!
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#Warn3
+@if &lastx is 63 then do
+@begin
+ @closescript
+@end
+@do saybar
+`$Give it up, you are only half the hero required for this fight!
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#Demon1
+@busy
+@datanewday jw-isle1.mil
+@dataload jw-isle1.mil &playernum `p29
+@do `t70 is `p29
+@if bitcheck `t70 1 1 then do
+@begin
+ @do saybar
+You already fought this guy today!
+ @closescript
+@end
+
+@bitset `t70 1 1
+@do `p29 is `t70
+@datasave jw-isle1.mil &playernum `p29
+
+
+@do `p27 is 5000
+ ;got Holy Flail?
+ ;`p25 is 1 if true
+@routine HasFlail
+
+@if `p25 is 1 then do
+ @begin
+ @do `p27 - 1000
+ @end
+@run leastdemon in jw-isle1.ref
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#Demon2
+@busy
+@datanewday jw-isle1.mil
+@dataload jw-isle1.mil &playernum `p29
+@do `t70 is `p29
+@if bitcheck `t70 2 1 then do
+@begin
+ @do saybar
+`%You rumbled this Demon earlier today!
+ @closescript
+@end
+
+@bitset `t70 2 1
+@do `p29 is `t70
+@datasave jw-isle1.mil &playernum `p29
+
+@do `p27 is 6000
+ ;got Holy Flail?
+ ;`p25 is 1 if true
+@routine HasFlail
+
+@if `p25 is 1 then do
+ @begin
+ @do `p27 - 1500
+ @end
+
+@run meddemon in jw-isle1.ref
+
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#Demon3
+@busy
+@datanewday jw-isle1.mil
+@dataload jw-isle1.mil &playernum `p29
+@do `t70 is `p29
+@if bitcheck `t70 3 1 then do
+@begin
+ @do saybar
+`3You hassled this Demon already, today.
+ @closescript
+@end
+
+@bitset `t70 3 1
+@do `p29 is `t70
+@datasave jw-isle1.mil &playernum `p29
+
+
+@do `p27 is 10000
+ ;got Holy Flail?
+ ;`p25 is 1 if true
+@routine HasFlail
+
+@if `p25 is 1 then do
+ @begin
+ @do `p27 - 2000
+ @end
+
+@run lesserdemon in jw-isle1.ref
+
+
+@closescript
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@label notrun1
+ @clearblock 22 24
+ @do saybar
+`%You can't run forever, `$CHICKEN!
+ @do addlog
+ `$`N`0 ran from the Least Demon. `%What a wimp!
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+
+@dataload jw-isle1.mil &playernum `p29
+@do `t70 is `p29
+@bitset `t70 1 0
+@do `p29 is `t70
+@datasave jw-isle1.mil &playernum `p29
+@closescript
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@label notrun2
+ @clearblock 22 24
+ @do saybar
+`%You can't run forever, `$CHICKEN!
+ @do addlog
+ `$`N`0 ran from the Medium Demon. `%What a hoser!
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@dataload jw-isle1.mil &playernum `p29
+@do `t70 is `p29
+@bitset `t70 2 0
+@do `p29 is `t70
+@datasave jw-isle1.mil &playernum `p29
+@closescript
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@label notrun3
+ @clearblock 22 24
+ @do saybar
+`%You can't run forever, `$CHICKEN!
+ @do addlog
+ `$`N`0 ran from the Lesser Demon. `%Sheesh!
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+
+@dataload jw-isle1.mil &playernum `p29
+@do `t70 is `p29
+@bitset `t70 3 0
+@do `p29 is `t70
+@datasave jw-isle1.mil &playernum `p29
+@closescript
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@label notrun
+ @clearblock 22 24
+ @do saybar
+`%You can't run forever, `$CHICKEN!
+ @do addlog
+ `$`N`0 ran from the Pit Fiend. `%Like he's tough?
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@dataload jw-isle1.mil &playernum `p29
+@do `t70 is `p29
+@bitset `t70 4 0
+@do `p29 is `t70
+@datasave jw-isle1.mil &playernum `p29
+@closescript
+
+
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@label HasFlail
+@dataload jw-isle2.mil &playernum `p29
+@do `t70 is `p29
+@do `p25 is 0
+@if bitcheck `t70 1 1 then do
+@begin
+@do `p25 is 1
+@end
+@CloseScript
+
+
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@label PlaySaints
+@dataload jw-isle2.mil &playernum `p29
+@do `t70 is `p29
+@do `p25 is 0
+
+@if bitcheck `t70 5 0 then do
+@begin
+@do saybar
+`0Too bad you didn't learn `%"Saints Go Marchin' In"`0 from the piper!
+@end
+
+@if bitcheck `t70 5 1 then do
+@begin
+@do `p25 is 1
+@do saybar
+`0Playing `%"Saints Go Marchin' In"`0 will sure help here!
+@end
+@CloseScript
+
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@label notdead
+
+@show
+`r0`c
+`/
+`/
+`/
+`0
+ You are rolled up and spit out like the bad taste that you are!
+`/
+`/
+`/
+@do readspecial `s01 yn
+@show
+`r0`c
+@do addlog
+ `$`N`0 got whacked by the Pit Fiend. `%Maybe next time?
+@do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+@do dead is 0
+@do `p02 is 2
+@do map is 1554
+@loadmap &map
+@drawmap
+@update
+@CloseScript
+
+; -=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#potionshop
+@do moveback
+@offmap
+@pauseoff
+@show
+[?7h[40m[2J[1C[0m��� ��[18C����� � �[2;1H�� �[21C� � �� �[27C[s
+[u[1m�[36m�[33m��[0;36m�[1;35m�� [34m�[0;35m� �[31m�[1;35m�[s
+[u[36m�[37m�[3;1H [0m�ܲ[22C� �[28C[1mԸ[36m�[33m�[34m�[s
+[u[0;35m� [1;34m�[0;35m�[1;31m�[0;35m�[1;31m�[35m�[33m�[37mվ
+[4;1H[0m� ����[22C� � �� [32m�[26C[1;37m������������;[5;1H[0m�[s
+[u[32C[32m����[33m�������������������������������������������[6;1H[s
+[u[37m�[32C[32m�� �[33m� [1;36m�[0;33m���[1;36m� [0;33m� [s
+[u[1;30m�������������������������������[7;1H[0m�[10C[1mYe Olde Poti[s
+[uon[9C[0;32m� �[33m� [1;36m�� �� [0;33m� [1;30m�۲������������[s
+[u������ܲ�۲���[8;1H[0m�[32C[1;30m����[0;33m� [1;36m�[0;31m�[s
+[u[30;41m����[1;36;40m� [0;33m� [1;30m�۰������߰ ��[6C� ������
+[9;1H[14C[37mEmporium[13C[0;32m��[33m� [1;36m������� [0;33m� [s
+[u[1;30mݱ���� � [0;32m� [1m� � [30m��� ���[10;1H[0mܰ[33C[s
+[u[32m��[33m����������� [1;30m�۲��� ��[5C[32m� [0;32m�[1m� [s
+[u[30m�� ܲ��[11;1H [0m��[30C[35m�[32m�� [33m� [1;30m��Ŀ[s
+[u[0;36m��[1m� [0;33m� [1;30mݲ���� � [0;32m�� ���[5C[1;30m�[s
+[u��ܰ�[12;1H [0m��[29C[35m���[32m�[35m�� [32m����[36m��[1m�[s
+[u[0;36m�[33m� [1;30m������ [0m� [1;30m�� [0;32m��[1m�� [30m�[s
+[u� [0m� [1;30m�[41m�[1C[40m��[13;1H[0m���[30C[35m����[33m� [s
+[u[32m����[36m�[1m�[0;36m��[33m� [1;30m�� ���[0m���� [1;30mܲ��[s
+[u��߰[41m�[40m� [0m���[1;30;41m�[40mܲ��[14;1H [0m�[31C[35m��[s
+[u�[33m����������� [1;30mް �[41m�[2C[40m� ��[41m��[40m����[s
+[u[41m���[40m� � [41m��[40m���[15;1H[29C[0m� � [33m� [34m�[s
+[u[7C[33m� [1;30m�� ��[41m�[1C[40m�� �[41m��������[40m� � [s
+[u[41m��[1C[40m��[16;1H [0m�[27C� � � [33m�[34m�[1;31mx[s
+[u[0;34m� [37m�����[33m� [1;30m�߲ �[41m�[1C[40m�� [0;31m���[s
+[u[1m�� [33m� [31m�[0;31m�� [1;30m�� [41m�[40m����[17;1Hs [0m�[s
+[u[25C� ��� [33m�[34m���[37m�[32;47m�[1m��[0m� [33m� [1;30m�[s
+[u۲��[41m�[40m� � [0;33m���[1;31m�[0;33m�[1m�[0;33m�� [s
+[u[1;30m�� ���[18;1Hc[0m������� ��� �[10C� ��� [33m���������[s
+[u�� [1;30m�۲��۰������� ��� �����۰���[19;1H���[0m����[1m�[0m� [s
+[u[1m�[0m� ���[1;30m��������[0m��� ���[1m�[0m� �[1m��[0m� [s
+[u[1;30m���[0m��� [1;30m��� �����������[0m��[1m�[0m�[1;30m�[0m[s
+[u��[1m�[0m��[1;30m��[0m� [1m�[30m��[20;1H[21;1H[12C[33mA myst[s
+[uical olde alchemist asks for your attention.[22;1H[1;37;40m
+@pauseon
+@do readspecial `s01 yn
+@show
+`r0`c
+ `$Ye Olde Potion Shoppe
+
+
+
+@buymanager
+ 40
+ 55
+ 66
+@drawmap
+@update
+@closescript
+
diff --git a/xtrn/lord2/cnw/jw-islel.mil b/xtrn/lord2/cnw/jw-islel.mil
new file mode 100644
index 0000000000000000000000000000000000000000..68865850f85f68a3b41e3a27f5e8a297df890ef9
Binary files /dev/null and b/xtrn/lord2/cnw/jw-islel.mil differ
diff --git a/xtrn/lord2/cnw/king.clr b/xtrn/lord2/cnw/king.clr
new file mode 100644
index 0000000000000000000000000000000000000000..2d36d869bae7db776b752dc4b6b03e3a5f4b5aca
--- /dev/null
+++ b/xtrn/lord2/cnw/king.clr
@@ -0,0 +1,12 @@
+[?7h[255D[64C[0m� ��� ��� ��� �
+[64C���[41m�[40m���[41m�[40m���[41m�[40m���
+[65C�������������
+[65C[1;30m�[31;41m�[40m���������[41m�[30;40m�
+[65C�[31m�[37m�[0;36m�[1;37m�[31m���[37m�[0;36m�[1;37m�[31m�[30m�
+[65C�[31m�[41m���[40m���[41m���[40m�[30m�
+[67C[31m��[41m��[40m�[41m��[40m��
+[67C����[41m�[40m����
+[64C[0;35m��� [1;31m�[37m�����[31m� [0;35m���
+[62C��� � [1;31m������� [0;35m��
+[62C� �� �[6C���
+[63C� ��� ���� �� ��
diff --git a/xtrn/lord2/cnw/kiteria.ref b/xtrn/lord2/cnw/kiteria.ref
new file mode 100644
index 0000000000000000000000000000000000000000..99667261d2549b2e58f528c0eba35d75e900b56c
--- /dev/null
+++ b/xtrn/lord2/cnw/kiteria.ref
@@ -0,0 +1,1276 @@
+; Script file KITERIA.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:27 2001
+
+@DECLARE start 000000772
+@DECLARE book 000003520
+@DECLARE leaving 000031495
+@DECLARE opendoor 000031569
+@DECLARE enterbedroom 000031642
+@DECLARE bedalready 000031826
+@DECLARE enterkitchen 000031925
+@DECLARE enterlibrary 000031991
+@DECLARE enterthrone 000032056
+@DECLARE bedroom 000032121
+@DECLARE nobed 000035548
+@DECLARE soup 000035643
+@DECLARE passage 000036134
+@DECLARE cobweb 000036813
+@DECLARE pool 000036892
+@DECLARE inwater 000036975
+@DECLARE nodrown 000037449
+@DECLARE dive 000038296
+@DECLARE where 000039471
+@DECLARE getout 000039764
+@DECLARE swimnorth 000039838
+@DECLARE drown 000040331
+@DECLARE nomore 000041293
+@NOCHECK
+; End of .REF index
+
+@#START
+@do moveback
+@offmap
+@clear screen
+@show
+`2 You knock on the castle door.
+@key
+@show
+
+`2 After several moments, the door begins to open.
+@key
+@pauseoff
+@clear screen
+@show
+[0;1;34m[57C�[5C[42m�[0;32m�[1;34;42m�[0;32m�[1;34;42m�[40m
+[57C[0;32m�[5C[1;33m�[43m���[40m�
+[57C[0;32m� [1;33m�[43m�[0;34;43m�[31m�[34m�[1;33m�[40m�
+[57C[0;32m� [1;33m�[43m� [0;31;43mo [1;33m�[40m�
+[7C[0;32mYou are greeted by a remarkable woman. She is � [A
+[62C[1;33m��[0;35;43m���[1;33;40m��
+[0;32mlovely beyond description. As beautiful as a new � [35m[A
+[60C��[1;34;45m��� ���[0;35m��
+[32mspring morning, yet her eyes seem to hold an ancient [33m�[A
+[58C[35m���[1;33m�[34;45m�[40m��[0;35;43m�[1;34;40m��[45m�[40m[A
+[69C[33;40m�[0;35m�
+[32mwisdom, deeper than the very ocean. She smiles warmly � [A
+[61C[1;33m�[34;45m�[40m��[0;35;43m�[1;34;40m��[45m�[33;40m�[A
+[70C[0;35m��
+[32mas you stare into the beauty of her face.[16C� [1;33m��[0;35m�[A
+[64C[1;34;45m���[0;35m�[1;33m��[0;35m�
+[57C[32m� [1;33m��[0;35m�[1;34m���[0;35m�[1;33m��[0;33m�
+[57C[32m� [1;33m�[0;35m�[1;34m�����[0;35m�[1;33m�
+[7C[34m"I am Princess Kiteria and this is the Castle[5C[0;32m� [A
+[62C[35m�[1;34m�����[0;35m�
+[1;34mFair Play. Would you like to come in for a visit?"[6C[0;32m� [A
+[60C [35m�[1;34m�����[0;35m�
+[57C[32m� [35m�[1;34m�����[0;35m�
+[57C[32m� [35m�[1;34;45m�[40m�������[45m�[0;35m�
+[60C�����������
+@pauseon
+@do `v01 is 1
+@choice
+`%No, I am not worthy of your company.
+`%Yes, if you are sure that you would like me to.
+@if response is 1 then do
+@begin
+@do goto leaving
+@end
+@clear screen
+@show
+`# "I am so glad you have come," she says. "I do not get company often."
+@key
+@show
+
+`2 She motions you inside and closes the door.
+@key
+@show
+
+`# "Most adventurers are interested in self-advancement, and Fair Play is far
+from their minds," she continues. "I do so hope that you are not like those."
+
+@do `v01 is 1
+@choice
+`%My main interest is in victory.
+`%My main interest is in the sport.
+@if response is 1 then do
+@begin
+@clear screen
+@show
+`# "Then I am afraid I can do nothing for you."
+@key
+@do goto leaving
+@end
+@clear screen
+@show
+`# "You cannot know how glad I am to hear that. I have some business that I
+must attend to immediately, but feel free to make yourself at home."
+@key
+@show
+
+`2 The beautiful princess leaves you, and you find yourself standing in a great
+entrance hall lined with torches.
+@key
+@loadmap 1566
+@do map is 1566
+@do x is 40
+@do y is 12
+@drawmap
+@update
+@closescript
+
+@#BOOK
+@do moveback
+@clear screen
+@show
+
+`2 This is an ornate wooden table. On the table is a large book. The cover
+of the book is ancient leather, embossed with gold lettering.
+@key
+@clear screen
+@show
+
+
+
+[0;1;33m[21C[43m��������������������������ͻ[0;33m��
+[21C[1;43m� �[0;43m��[40m
+[21C[1;33;43m� �[0;43m��[40m
+[21C[1;33;43m� The �[0;43m��[40m
+[21C[1;33;43m� Book �[0;43m��[40m
+[21C[1;33;43m� Of �[0;43m��[40m
+[21C[1;33;43m� Fair �[0;43m��[40m
+[21C[1;33;43m� Play �[0;43m��[40m
+[21C[1;33;43m� �[0;43m��[40m
+[21C[1;33;43m� �[0;43m��[40m
+[21C[1;33;43m� �[0;43m��[40m
+[21C[1;33;43m� By, �[0;43m��[40m
+[21C[1;33;43m� Princess �[0;43m��[40m
+[21C[1;33;43m� Kiteria �[0;43m��[40m
+[21C[1;33;43m� �[0;43m��[40m
+[21C[1;33;43m��������������������������ͼ[0;43m��[40m
+
+@key
+@clear screen
+@show
+
+`2Do you open it?
+
+@do `v01 is 1
+@choice
+`%No
+`%Yes
+@if response is 1 the do
+@begin
+@show
+
+`2 Perhaps another time.
+@closescript
+@end
+@pauseoff
+@SHOW SCROLL
+
+
+
+`9
+Herein lies the complete and unabridged collection of the wisdoms of
+Princess Kiteria. For many years I had heard stories of adventurers
+who cheated the fates in their quest to destroy the Red Dragon. In
+the interest of Fair Play, I took it upon myself to learn the methods
+used by these unholy vagabonds. It was my intention to make their
+methods known to all in an attempt to bring Fair Play back into the
+realm. I soon discovered that their cheating was being enabled by a
+hideous force known as Igyembug. In this tome I have compiled the
+chants and prayers offered to Igyembug so that all may use them in
+their quest for the dragon.
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+`4----------------------------------------------------------------------------
+`4`bNOTE FROM MAMOOSOFT: `%There are some codes contained in here that cannot
+be shown correctly by the game, as it interprets them as programming code.
+Please remember that wherever you see an apostrophe (') in this file, the
+cheat code actually needs a reversed apostrophe, which can be typed by NOT
+holding shift when pressing the tilde (~) key. I hope this is not too
+confusing, but it was the only way to do this. Now back to the IGM!
+`4----------------------------------------------------------------------------
+
+
+
+
+
+
+
+
+
+`2**ACROSS THE TRACKS**
+
+`%In version 4 THE ORIGINAL, Find the bum, and give him
+some money. Type in -2,000,000,000 for your amount.
+You will be given 2 billion in hand. The author
+repaired this with version 5.0. The second version
+fixed the "old man" cheat but not the cheat that has
+to do with giving more money than you have to the two
+children in the Adoption Agency. With this one
+just make sure that you bet and/or give more money
+than you have, and that includes everything in the
+LORD bank as well as in hand. Exit the IGM, then
+exit the game, when you return you will have 2 billion
+gold in hand.
+
+`2**ARAGON'S TIMER 1.0**
+
+`%You'll need another player's cooperating with you.
+If you think that no-one else has played Aragon's
+Timer today, you should enter and exit the IGM alone
+without playing the game to make sure the data
+file is reset. Once you have done that, both of
+you should enter Aragon's Timer. You play the game;
+your partner doesn't. You exit back to LORD first,
+then your partner exits to LORD (Precise timing
+is a must, since you may not be able to talk to each
+other.) Now that you're both in LORD, it's time to go
+back to Aragon's Timer. Both of you enter Aragon's Timer.
+Your partner plays the game; you don't. Your partner
+exits Aragon's Timer first, then you exit Aragon's Timer
+second. The result: If you're both good at Aragon's
+Timer, both of you have increased your wealth by 50%.
+Here's the cool part: if you followed the above instructions,
+Aragon's Timer will have NO record of either of you playing
+the game! That's right...both of you can go back and
+play Aragon's Timer FOREVER!...or until you run out of
+time...or the SysOp catches you. :) This worked for
+me locally under Aragon's Timer 1.0. (I had two LORD games
+running under two different windows in win3.11.) I don't
+know of any updates to Aragon's Timer.
+
+`2**ALADDIN'S PALACE**
+`%**::UPDATE FROM STANLEY CHIU...the Gentleman Genius::**
+
+The 's code has never worked in ALADDIN'S PALACE not even in
+version 1.25 and older. (Mike Neale also told me this, I just
+did not click to what I was being told. SF) First of all, I'll
+elaborate on the weapon/armor situation. If you sell your weapon,
+you'll get the money, plus you keep the strength of that
+particular weapon. The same holds true for the armor. Another
+thing is how to get two billion gold as often as you want. Of
+course, Iago will only visit you once per day... but you can
+arrange it so that you can make him come at anytime. =) All you
+need to do is change your name, either in the IGM, or with the
+bartender - it doesn't matter. Upon re-entering the IGM, it will
+think it is your first time in, so it will give you all the
+random events again. Of course, then you can get the two billion
+gold as many times as you wish. NOTE: If you win the negative two
+billion bet with Iago, you don't go into negative, but rather, you
+get two hundred million and something gold. So it's still enough
+to buy a Blood Sword and a Golden Armor...which would do just fine,
+unless you're REALLY greedy.
+
+**SEE EXPLANATION OF NEGATIVE GOLD at end of file**
+Of course, when you change your name in Aladdin's Palace, you can
+also train again, so you can gain additional skill points for Thieving,
+Mystics and Death Knight. Also, with this, you can go OVER the regular
+40 maximum skill points that LORD allows. For example, I believe I
+have 55 Mystic use points, and 46 Thieving skill points. The formula
+for that is simply the number of points divided by five, so I start
+the day off with 9 Thieving uses. As the number of skill points
+increase, the uses do also. Lastly, you can change your name inside
+Aladdin's Palace to just color codes, i.e., '1'4'!'$, which will make
+attacking you by others IMPOSSIBLE. They will have absolutely no way
+of bringing your name up in the prompt.
+*********************************************************
+I can only assume at this writing, that he is speaking of 1.25.
+Careful when you attempt any of the cheats for Aladdin's, its many
+repair's has caused it to become a time bomb, almost everything you
+do and can do, depends on what version you have available to you.
+*********************************************************
+**::NEW INFORMATION Supplied by Mike Neale::**
+Every time you go into Aladdin's palace, try selling a fairy, even
+if you don't have one. It will buy your fairy every time you enter,
+even if it's more than once a day! Another thing that I learned from
+an earlier version regards buying and selling a weapon. Buy a Wan's
+Weapon from the regular shop and sell it in Aladdin's Palace. Then go
+back to the regular shop and do it all over again. As many times as
+you want. What happens is, you buy the weapon for 1m and it 'says'
+it offers you 500k when you sell it. It actually gives you 5m!
+PLUS keep an eye on your strength column! Every time you buy and
+sell the Wan's Weapon, your strength keeps going up accordingly.
+
+A FEW WORDS FROM DEVON BROOKS, AUTHOR OF ALADDIN'S PALACE:
+ *** All of these bugs mentioned are in =previous= ***
+ *** versions of Aladdin's Palace. FREQ "ALADDIN" ***
+ *** from 1:140/129, to *** receive Version 2.00 - ***
+ *** which fixes all of these bugs, and much more ***
+
+`2**CITY OF EROS**
+`%submitted by Noriko
+
+The current, yes CURRENT version of City of Eros! Go in
+and go to Jasmine's Spa (I think it's called). Make sure
+you have a little money. Keep pressing Massage or the more
+expensive sauna a million times -- you get experience points
+in 25 increments and 50 increments in the latter. Okay, you
+don't have to press it a million times, but the more you press
+the more experience you get and you can return to the IGM as
+many times as you like. Now when you exit, look at your stats
+and see a negative amount -- of course you've exceeded your
+cash on hand in the Spa, but who cares! Exit the game for a
+sec and when you reenter, bingo! You've got 2,000,000,000
+gold in hand! If you have patience, keep going back to the
+Spa!
+
+`2**FAIRY TOWN**
+`%SPECIAL FEATURE
+submitted by Loyd Bulmur
+
+The way to get past all three Giants is:
+
+ Prior to entering the IGM, have at least one gem in your
+possession. Try to have over-scale hit points (either through
+an IGM or JENNIE-HOTT).
+
+ The following sequence -* must *- be followed.
+
+ {T}alk to the Fairy
+ {F}ollow the Giant's Footsteps: defeat # 1
+ {F}ollow the Giant's Footsteps a second time: defeat # 2
+ {O}ffer the Fairy a gem. No matter how many potions you
+receive, drink only the {Y}ellow one. Your hit points, which
+will have been depleted through defeating the first two Giants,
+will be restored.
+ {F}ollow the Giant's Footsteps for the third time. Upon
+defeating it, you will receive the bonus, which is an appearance
+by the Trojan Warrior (for femmes) or the Amazon Warrior (for
+males). The bonus is a random thing, which usually includes
+some gems, some gold, and a goodly number of experience points.
+
+
+`2**JEWELER'S SHOPPE,THE**
+`%submitted by Nicole Willson
+
+Go into the Skills Training Center in the Jeweler's Shoppe.
+(I took the Mystical Skills training I'm not sure how this
+would work for the other two types of training.) You have to
+pay 1000 gp for each turn, so you should make sure that
+you only have about 1000 or 2000 gp in hand. The training
+for Mystical Skills is a number-guessing game. The first
+time, I guessed right and got about 30 gems. The second
+time, I guessed wrong, and ended up with negative gold in
+hand. Quit the game entirely and when you re-enter you'll
+have 2 billion gold in hand.
+
+`2**JUANCHO'S PARADISE**
+`%submitted by Ann Labuda
+
+When you enter Juancho's Paradise, go to the Forest and use
+all thirty of your fights. You NEVER lose a fight and each
+time you get x amount of strength and x amount of gems (x being a
+number between 1 and 99). After using up all of your forest fights
+there (you're given 30), leave the forest and talk to the man in the
+corner. He'll give you a riddle with the answer scrambled, and the
+letters contained in the answer will be given to you. EX: Snap!
+Better when wet! OLTEW ANS: TOWEL (Note: They're all that easy)
+He'll let you guess five riddles then tell you that you can't play
+any more today. Then, go to the Church and Pray to Juancho the Taco
+God (or God of Tacos, I forget exactly how it's worded). Each time
+you pray to Juancho, you'll get x amount of strength, defense, gems,
+or charm. (Here, x is a number between 0 and 99) There is NO LIMIT
+to how many times you can pray to him per day other than how much
+time your SysOp has allotted you to be on his/her board. If you exit
+Juancho's Paradise at any point and go back in, you'll have 30 more
+forest fights in there, and 5 more riddles to answer, plus of course
+the unlimited prayers.
+
+`2**JOURNEY TO THE CASTLE OF L.O.R.D.**
+
+`%In version 2.00 dated 8/24/95 You can sell negative gems.
+Sell -32000 gems, and you will be given 32000 of them.
+You can then take them back to the regular LORD and
+trade them to the bartender for strength, defense, and
+hit points. THIS HAS BEEN REPAIRED in version 2.10:
+Please do this author the courtesy of using only the most
+recent release of his works on your BBS.
+
+`2**KNIGHT'S OF THE GOLDEN HORSESHOE**
+
+`%In the original version KNIGHT55.ZIP, Go to the bank and
+deposit -2000000000 it will give it to you on hand.
+THIS HAS BEEN REPAIRED in version KNIGHT65.ZIP: Please
+do this author the courtesy of using only the most recent
+release of his works on your BBS. NOTE OF WARNING:
+Cheaters are SEVERELY punished in the newest version. {G}
+
+`2**LORD HUNTER**
+
+`%v1.01 enter amount in negative gold
+
+`2**LORD'S PIT, THE** v2.50
+
+`%If you exit and re-enter it, your Arena Fights go back up
+to 25.
+
+`2**LORD'S REALM**
+
+`%The original version WW-LRO11.ZIP version 11
+Enter the store and ask to buy anything. When it asks
+how much you want say 100,000. It will say that it will
+charge you -$xxxxxxx (A lot of cash). Agree and you will
+come out of the store with TONS of cash. For example if you
+had 800 strength and you bought 100,000 strength you would
+end up with -30,000 strength and about 100 mil. To make
+it go positive buy another 100,000. You will end up with
+2500 strength. But be careful though, because you can start
+ to go into negative cash. If that happens just buy or sell
+100,000 forest fights until positive again. This trick
+basically gives you anything you want! You can get HUGE
+amounts of charm, and using the change sex option, you
+can marry both Seth Able and Violet. Lord's Realm v0.12
+105 KB is listed, but I do not know if it repairs any of
+ the above.
+
+`2**LOVE SHACK, THE**
+
+`%LOVE110.ZIP Version 1.10, LOVE120.ZIP Version 1.20
+Go in Love Shack, and go to the Lounge or Bar. Order the
+most expensive drink. It SHOULD say that a thief comes
+and knocks you out, and steals all your money. You
+now exit the IGM, then exit the game. The next time you
+enter LORD, you will have 2 billion gold on hand. IF
+you go into the bank before you exit the game, you will
+cancel your negative gold in hand, and be given $100. gold.
+
+`2**MAIL CODES**
+`%
+'S - for skills
+'k - for kids
+'{ - for lays
+'} - for charm
+The above all that work for normal play. You must have access to
+any IGM that allows the name change of your weapon. Write in
+'Ssword name, NOTHING else!! Then every time you check your stats,
+your skills will go up, or what ever of the four you have selected.
+
+`2**MIRROR OF ILLUSION**
+
+`%In the original version, MOI18.ZIP version 18, IF the game
+is registered, then press "c" when the first "{MORE} prompt
+pops up. Enter noisullI fO rorriM" (Mirror Of Illusion
+backwards) and pick the 2429 Town. You will be able
+to bet on fights. Place a bet of "-2000000000" gold and
+hope you will lose the fight. If not, you will still
+get over 200 million gold...but not the 2 billion.
+If you are satisfied, then leave...if not, stay and
+continue to try and get your 2 billion gold.
+THIS HAS BEEN REPAIRED with version MOI20.ZIP
+please do this author the courtesy of using only the
+most recent release of his works.
+
+`2**NAPPING OCEAN'S ADVENTURE** NOAD20.ZIP
+
+`%Go to the IGM bank, and DEPOSIT -2000000000, return
+to the LORD bank, then exit. You now have 2 billion
+gold in the bank, and 200,000,000 in your hand. If
+you chose to not go for that much gold, you can place
+a with drawl of -2000000000, and this will give you
+the same amount in the positive. You can also go to
+the Dolphin Rest Inn, talk to the bartender, tip him
+-1000000000 and he'll give it back in the positive.
+
+`2**OASIS OF EL-SAYAN** OASIS-07.ZIP
+
+`%Go into the IGM with no money, go to the bazaar and
+buy slave children it will cost a negative amount,
+with that you GET the gold and the child.
+I believe this only works for Level 7 and above.
+THIS HAS BEEN REPAIRED, OASIS-09.ZIP, Please do this
+author the courtesy of using only the most recent
+ release of his works on your BBS.
+
+`2**RED DRAGON GAMBLING CASINO**
+
+`%Original version RDCAS16.ZIP, you could use the
+negative number betting.
+THIS HAS BEEN REPAIRED with version 1.7.
+Please do this author the courtesy of using only
+the most recent release of his works on your BBS.
+
+`2**SANDTIGER'S BAR** SBAR102.ZIP.
+
+`%A NOTE OF WARNING
+Sandtiger's Bar v2.00 65 KB (Unofficial) (and I'm sure
+there is 1 or 2 more) There are several different versions
+of this IGM, don't just automatically sell everything and
+jump in there thinking you are going to make billions
+in minutes.
+ORIGINAL VERSION: You can sell your armor and weapon in
+the LORD game and go into Sandtiger's and sell your "fists"
+and "nothing" for around 2.4 million each. Then you go
+back to the LORD game weapon and armor shop, sell the
+Sandtiger's weapon and armor, go back and do it again.
+It's very easy to make big money in this version.
+SECOND VERSION: Start this when you are LEVEL 1 and
+ready to sell your armor. Remember, check it out first,
+because of the different versions. Have only $1500 gold,
+"fist" for weapon, (this one doesn't work on armor.) Go to
+the shop and sell your weapon, IF the salesman doesn't ask
+you if you want to sell your "fist" for a quoted amount,
+then purchase it 19 more times, (that's 20 all together)
+Napalm does it for 40. Then exit the IGM, go into the bank,
+do nothing, exit the bank then return. You should have
+200,000,000. gold in the bank now. IF you have a negative
+amount in hand and nothing in the bank, exit the IGM and
+then go back in, that will give you 2,000,000,000. gold.
+Be sure that when you start this you only have $1500. in
+the bank do not have any more or any less or it will not
+work. With the gold you make from these two versions,
+you can purchase your stats, and skills and charm for
+very little gold.
+THIRD VERSION: This one has to be started at level 1,
+it will not give you big gold, but it will give you level 12
+ stats by the time you are at Level 7. Sell armor and weapon,
+go to Sandtiger's IGM and purchase "Sling Shot" and "Lead Pan".
+The purchase price is $500. go to LORD weapon and armor shop
+and sell each for $1500. With this version, you make a profit
+and your stats go up each time you purchase, and they do not
+drop when you sell. Stick with the first and second weapons
+and armors, otherwise you'll be spending more than your making.
+FOURTH VERSION: At level one, when you are ready to sell your
+armor, sell it in the LORD game, then go to Sandtiger's, armor
+dealer, and see if he will buy your "nothing" for a tidy sum.
+If so, have at least enough gold to purchase a "Sling Shot"
+based on what amount the old woman's exchange of 'bar coin's
+to gold coins' is. Sell your "nothing" to the armor dealer
+and go purchase a Sling Shot. Leave the IGM, go to the LORD
+weapon's dealer sell the Sling Shot. Return to Sandtiger's
+armor dealer, sell your "nothing" purchase a Sling shot again,
+go back to the LORD weapon's dealer again, sell the sling shot
+again...etc...etc. Got it? Your strength keeps going up and
+not dropping, plus you keep selling "nothing" for all that gold.
+
+`2**SUNSHINE'S FAIRYLAND**
+
+`%SFAIRY20.ZIP SFAIRY23.ZIP
+One or both of these allows purchasing with the use of
+the negative numbers.
+THIS HAS BEEN REPAIRED SFAIRY25.ZIP Please do this author
+the courtesy of using only the most recent release of his
+works on your BBS.
+
+`2**SKILL TRAINING CENTER** SKILL104.ZIP
+
+`%In the section for Mystical Skills, if you are allowed to
+start first, choosing 1, 2, 7, & 4 will win every time.
+If the old man starts first, 8, 9, 3, & 6 will win every
+time.
+
+`2**THOR'S BACK ALLEY BAR** BA401.ZIP
+
+`%(Napalm Runner's Version)
+Go to any of the little area's in there. When asked
+for your percentage of ingredients, type in any numbers
+that end up with a value of 100. For example, you would
+type in -32000 for the first one, and 32100 for the second
+one, and 0 for the rest. More then likely, you will be
+offered to buy it at a negative amount, and if you pick
+the right percentages, you will also get the special
+attribute also, like the strength, defense, hit points,
+experience, and/or charm. This works great in the
+"Bathroom", because after you've exhausted your number
+of buys, return to the previous menu then go back in,
+and start buying again.
+KITERIA'S VERSION: Go into the bathroom, select 99
+of Purple Pedals, and 0 to the rest, it will say it
+cost a negative amount, say yes and you will GET that
+money plus what you are purchasing. This works with
+every one of the "Bathroom" item's except Goober Grass.
+Every forth time, you must leave the bathroom, but you
+can go right back in.
+THIS HAS BEEN REPAIRED: BA506.ZIP v5.06 Please do
+this author the courtesy of using only the most
+recent release of his works on your BBS.
+
+Submitted by Carin M. Armlin
+Go into Thor's BackAlley Bar (take at least $100000 with you),
+and (F)ind A Stud. After you buy one, you should be left with
+a negative amount of gold on hand (it's happened to me every time
+at least). Exit the IGM, and Quit LORD w/out going to the bank.
+Re-enter the game, and you'll have $2 billion gold on hand. Oh,
+as far as I know, you have to be a female to do this, so if there is
+another IGM that allows you to change your sex, or for someone to
+change it for you, do that first.
+
+SPECIAL FUNCTION: Go to the Dark Cloaked Figure and
+type "dick", no quote marks. You will receive 100 charm.
+IF you have OVER 100 charm, you will be reduced to 100 charm,
+so don't do it if you don't need it.
+
+`2**TURGON'S HOUSE**THOUSE25.ZIP
+
+`%When you are given the option of either trading in
+your weapon or armor for another one, do not trade
+up for a better weapon/armor. If you do it will
+only make you weaker. You are given the weapon/armor,
+but not the strength and defense associated with it.
+Trade in for a weaker weapon or armor if possible.
+That way, when you sell your weapon/armor for a better
+one, you will not lose as much strength/defense. This
+will make more sense once you start doing it. You can
+rack up tons of strength and defense this way.
+There is a newer version, Turgon's House v2.80 I
+cannot say that it repairs this or not.
+
+SPECIAL FEATURE
+submitted by Mary Jane Frank
+
+I found out that when you are in Turgon's House you can break
+into his room if you are a thief (otherwise you get the message
+"You need a key"). Also, if you open the closet and the fairies
+come out, you try to grab one and it says "You will be humiliated
+for life" your sex changes! This can really screw up your love
+life! ;)
+
+
+`2**UNDERGROUND, THE**
+`% UNDERV1.ZIP version 1.01 and Underground v1.20
+
+Enter with at least 1 gold. Go to the gambling area,
+and wager a negative amount of gold. Depending on what
+level you are on, is important as to how much you should
+wager. When asked to pick a number between 1 and ten,
+pick "11". You'll lose. Continue for the rest of your
+turns. With the money you just earned, enter the Wizard's
+area. CAUTION: If you are at a low level, and you bet a
+very high amount, you should go and deposit the gold in
+the LORD bank, and other banks as well if available. If
+you don't, when you enter the Wizard's area, it will
+immediately throw you into the negative, forcing all your
+purchases to be NEGATIVE. This is not good. This IGM is
+so choked with easy cheating, that you can cheat yourself if
+you're not careful!!!! While here, you may also make your
+name blink or invisible. Pick for a name change, enter a
+"'b" before your name to make it blink red or "'y" for
+yellow or simply a color code to make it invisible but
+you will not be able to receive mail unless you write
+it first.
+
+`2**VILLAGE OF THE PHOENIX**
+`%VOTP-10D.ZIP VOTP-14.ZIP
+
+On older versions, there's a way to get an instant
+2 billion gold. Go to the innkeeper and give him a
+tip of (negative) -2000000000" or so. This cheat
+is 'high' or 'low' spirit reactive.
+THIS HAS BEEN REPAIRED in version v1.50a Please do
+this author the courtesy of using only the most recent
+release of his work. NOTE OF WARNING, Guido will kick
+your butt if you cheat in the new version and take
+everything you have.
+
+`2**WARRIOR'S GRAVEYARD** v1.10
+
+`%This really isn't that big of a deal...but if it's the
+only IGM in the realm, it's still an advantage. If you
+buy your lemonade, you will notice that you can't buy
+it again...but if you leave and come back, it will let
+you! If it says "You feel vigorous, I wonder what that
+means?", It means that you may flirt again, with Violet,
+Seth, or the grave digger but not another player. You can
+also completely change your name and re-enter as a new
+player and go through the entire IGM again.
+
+`2**WARRIOR'S VILLAGE**
+
+`%rename armor/weapon to 'k, 'S or '}
+
+`2**WEAPON'S OF WAR** v2.53b
+
+`%Before killing the dragon stash everything into this
+IGM, it will all be there waiting for you when you restart.
+You can get tons of gems in this IGM as well. Go to the
+bank, and pick the option to sell your gems. You have to
+have at least 1 gem on hand to make this work. ...i.e.,
+you can sell -32000 gems...and get 32,000 gems...of course,
+your money on hand will go into the negatives, but that
+can easily be fixed by either going into the LORD bank and
+leaving without making any transaction, or exiting
+the game, and then coming back in.
+
+`2**WISE ONE, THE**
+
+`%Transfer your gold to someone else, go in and ask for gold.
+Do it over and over. (This on may be fixed so that you
+can only go into it one time.)
+
+`2**XENON'S TOWN SQUARE** XENON-V1.ZIP
+
+`%You can get tons of free gold and gems in this IGM.
+Go to the bank and deposit a negative amount of gems and/or
+gold. This works great in version 3.50+, when you can cash them
+in all at one time. THIS HAS BEEN REPAIRED in Xenon's Town
+Square v2.00 Please do this author the courtesy of using only
+the most recent release of his work.
+
+`2**NEGATIVE GOLD**
+`%Contributed by Stanley Chiu
+
+If you go into negative gold in some way, DO NOT go in
+and out of the bank. The 100 gold compensation is a pretty
+shoddy one. What you SHOULD do is THIS: When you see you
+have negative gold, leave LORD. Upon re-entry, you'll see
+that you have two billion gold on hand. The reason is
+pretty simple...; LORD naturally assumes you obtained
+negative gold because you went OVER the 2,147,483,617 limit,
+so it gives you two billion back, because it doesn't want to
+"cheat" you.
+
+`2***WORDS OF WISDOM FROM THE "GREAT" NAPALM RUNNER***
+
+`%If you exceed the limited amount of gold, or experience
+which is right around 2.147 billion, it will revert you back
+to 2 billion gold, and the same amount of experience. Experience
+is not that big a deal. Your hit points, strength, and defense
+will go into the negative if you exceed 32,767. When this
+happens to your strength or defense or in some occasions both,
+sell the equipment, and it will drop you down. If it is hit points
+that has gone over the 32,767 limit, purchase gems and redeem them
+at the bartenders. Instead of going up, it will go down and take
+you out of the negative.
+
+`2For more hints, tips, and information about the game LORD,
+and the IGM's, read the FIDO LORD Door Game Discussion ECHO.
+
+`4THIS FILE AND ALL PRECEDING BY THIS AUTHOR
+ARE NOW PROTECTED UNDER THE COPYRIGHT LAWS
+OF THE UNITED STATES OF AMERICA. ANY
+REPRODUCTION OR OTHER UNAUTHORIZED USE OF
+THE MATERIAL HEREIN IS PROHIBITED WITHOUT
+THE EXPRESS WRITTEN PERMISSION OF:
+DOC & SY ENTERPRISE 1997
+@drawmap
+@update
+@pauseon
+@end
+
+@#leaving
+@clear screen
+@show
+`2You leave
+@drawmap
+@update
+@end
+
+@#OPENDOOR
+@do saybar
+`%You open the door and go through.
+@end
+
+@#ENTERBEDROOM
+@datanewday kittip.idf
+@dataload kittip.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do goto bedalready
+@end
+@do saybar
+`%You open the bedroom door.
+@end
+
+@#BEDALREADY
+@do moveback
+@do saybar
+`%You decide not to disturb the Princess again.
+@end
+
+@#ENTERKITCHEN
+@do saybar
+`%You open the kitchen door.
+@end
+
+@#ENTERLIBRARY
+@do saybar
+`%You open the library door.
+@end
+
+@#ENTERTHRONE
+@do saybar
+`%You open the throne room door.
+@end
+
+@#BEDROOM
+@do x is 47
+@clear screen
+@show
+`2 You see the Princess sitting at a desk, staring intently at some papers.
+
+@do write
+`2 Do you try and get her attention? Y/N:
+@do readspecial `s01 YN
+@if `s01 is N then do
+@begin
+@do goto nobed
+@end
+
+@datasave kittip.idf &playernum 1
+@show
+
+`2 She looks up and smiles.
+
+ `#"I'm sorry that I am so busy right now, but please feel free to wander
+the castle."
+@key
+@show
+
+`# "By the way, did you know that `L.`L.`L.`L
+
+@do `p20 random 14 1
+@if `p20 is 1 then do
+@begin
+@show
+
+`#... in Greentree, in the bottom-middle screen, there's a tree in the wall.
+You can walk into it and come out at the screen just below the city. Not
+much, but it's a shortcut. You can go in the same way."
+
+@key
+@end
+@if `p20 is 2 then do
+@begin
+@show
+
+`#... in Turgon's shack, there's a secret passage on the left wall."
+@key
+@end
+@if `p20 is 3 then do
+@begin
+@show
+
+`#... in the screen above the little hut there's a secret passage through the
+trees at the top and then on the left. It will lead you to a Red Potion."
+@key
+@end
+@if `p20 is 4 then do
+@begin
+@show
+
+`#... deep in the dark forest, there's a secret passage into a lair. Inside the
+lair there are teleport spots hidden all over. If you find your way through,
+you will fight a creature called Tash. If you defeat him, you'll get a
+Moonstone. If you run, you'll be transported to a very strange place."
+@key
+@end
+@if `p20 is 5 then do
+@begin
+@show
+
+`#... in the Stonepass Lodge there is an amulet under one of the beds."
+@key
+@end
+@if `p20 is 6 then do
+@begin
+@show
+
+`#... you can get an apple if you climb the big tree near the Stonepass Lodge."
+@key
+@end
+@if `p20 is 7 then do
+@begin
+@show
+
+`#... there is a little passage near Castle Coldrake. You must go through the
+castle to get there. At the end of the passage is a table with 2 Silver
+Potions."
+@key
+@end
+@if `p20 is 8 then do
+@begin
+@show
+
+`#... Along the shoreline from Castle Coldrake to Sosen Village, there is one
+part of the shoreline that extends to the south. Follow that to the tree and
+you will find a Red Potion."
+@key
+@end
+@if `p20 is 9 then do
+@begin
+@show
+
+`#... somewhere in Smallwood Field, north of Sosen Village, there's a large
+purple tree. Walk into the tree and you will be transported to a weird place.
+Once you are there, you can get a Moonstone from the table."
+@key
+@end
+@if `p20 is 10 then do
+@begin
+@show
+
+`#... in the Arrisville Inn, there is a ghost. If you find him, he may give you
+a quest."
+
+@key
+@end
+@if `p20 is 11 then do
+@begin
+@show
+
+`#... in one of the waterfalls, west of Portown, there's a secret passage that
+leads to a Moonstone."
+@key
+@end
+@if `p20 is 12 then do
+@begin
+@show
+
+`#... in one of the houses in Greentree, there is woman who does not want you
+to use her bathroom. Check the toilet, and you will find something useful."
+@key
+@end
+@if `p20 is 13 then do
+@begin
+@show
+
+`#... at the massive tree, near Stonebrook, there is a way to get inside.
+You will find money inside the tree."
+@key
+@end
+@if `p20 is 14 then do
+@begin
+@show
+
+`#... Mamoosoft's IGMs are the best out there. You should get your SysOp to
+install all of them!"
+@key
+@end
+@show
+
+`2 You thank her for the information and decide not to disturb her any further.
+@key
+@drawmap
+@update
+@closescript
+
+@#NOBED
+@show
+
+`2 You decide not to disturb her.
+@key
+@drawmap
+@update
+@closescript
+
+@#SOUP
+@do moveback
+@clear screen
+@show
+`2 There is a soup pot simmering on the stove. Dou you try some?
+
+@do `v01 is 1
+@choice
+`%Yes, it looks yummy.
+`%No, I'm not hungry.
+@if response is 1 the do
+@begin
+@show
+
+
+
+`2 The soup tastes wonderful. You have never tasted anything like it.
+@key
+@show
+
+ `2You are `@`bFULLY REFRESHED`2!
+@key
+@do `p02 is `p03
+@drawmap
+@update
+@end
+@if response is 2 then do
+@begin
+@drawmap
+@update
+@end
+
+@#PASSAGE
+@do moveback
+@clear screen
+@show
+`2 As you bump the torch, you hear a soft rumbling noise, and begin to
+stumble.
+@key
+@show
+
+`2 You regain your footing, and realize that the floor beneath you is moving.
+The floor panel slides away and reveals a secret passage and a stairway going
+down.
+@key
+@show
+
+`2 Do you enter?
+
+@do `v01 is 1
+@choice
+`%No
+`%Yes
+@if response is 1 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@if response is 2 then do
+@begin
+@clear screen
+@show
+`2 You take the torch in hand and slowly descend the dark staircase.
+@key
+@loadmap 1567
+@do map is 1567
+@do x is 75
+@do y is 9
+@drawmap
+@update
+@end
+
+@#COBWEB
+@do saybar
+`%This passage is very musty and full of cobwebs.
+@end
+
+@#POOL
+@do saybar
+`%Is that something sparkling under the water?`L`L
+@end
+
+@#INWATER
+@clear screen
+@show
+`2 As you step into the water to take a closer look, you are surprised by the
+strength of the current.
+@key
+@show
+
+`2 You try to keep your footing, but it is no use. You slip and begin to wash
+south, downstream.
+
+@do `v01 is 1
+@choice
+`%I relax and let the stream take me.
+`%I swim north as hard as I can!
+@if response is 1 then do
+@begin
+@do goto drown
+@end
+@if response is 2 then do
+@begin
+@do goto nodrown
+@end
+
+@#NODROWN
+@clear screen
+@show
+`2 You valiantly battle the force of the current.
+@key
+@show
+
+`2 Slowly you begin to make headway. Just an inch at first, but more and
+more as flail your arms with all your might.
+@key
+@show
+
+`2 As you make your way back to the center of the pool, the current decreases.
+There must be an underground spring bubbling up in the middle. You drop your
+feet and find that you are able to stand here.
+@key
+@show
+
+`2 Something glimmers slightly from the bottom of the pool.
+
+@do `v01 is 1
+@choice
+`%I dive down and check it out.
+`%I head for shore before I drown.
+`%I continue swimming north to see where I end up.
+@if response is 1 then do
+@begin
+@do goto dive
+@end
+@if response is 2 then do
+@begin
+@do goto getout
+@end
+@if response is 3 then do
+@begin
+@do goto swimnorth
+@end
+
+@#DIVE
+@clear screen
+@datanewday divedown.idf
+@dataload divedown.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@show
+`2 You are about to dive down again, then you decide that you have enough
+treasure. You decide not to risk drowning.
+@key
+@do goto where
+@end
+@show
+`2 You take a deep breath and dive to the bottom.
+@key
+@show
+
+`2 Wedged in the rocks at the bottom, you find the remains of an unfortunate
+adventurer who obviously was not the swimmer you are.
+@key
+@show
+
+`2 The glimmer is coming from an open pouch attached to his belt.
+@key
+@show
+
+`2 Do you take the pouch?
+
+@do `v01 is 1
+@choice
+Yes
+No
+@if response is 1 then do
+@begin
+@clear screen
+@show
+`2 You take the pouch and swim to the surface. Once there, you open the
+pouch and find...
+@key
+@show
+
+1000 gold pieces
+@key
+@do money + 1000
+@show
+
+7 gems
+@key
+@do `p10 + 7
+@show
+
+and a Green Potion.
+@key
+@do `i05 + 1
+@datasave divedown.idf &playernum 1
+;<--Added by CNW-->
+@do `p21 is `v05
+@do `p21 / 48 <-- half hour of swimming!
+@do `p11 - `p24
+;<-- -->
+@do goto where
+@end
+
+@if response is 2 then do
+@begin
+@do goto where
+@end
+
+@#WHERE
+@clear screen
+@show
+`2 What do you do now?
+
+@do `v01 is 1
+@choice
+`%I head for shore before I drown.
+`%I continue swimming north to see where I end up.
+@if response is 1 then do
+@begin
+@do goto getout
+@end
+@if response is 2 then do
+@begin
+@do goto swimnorth
+@end
+
+@#GETOUT
+@do x is 49
+@do y is 10
+@drawmap
+@update
+@closescript
+
+@#SWIMNORTH
+;<--Added by CNW-->
+@do `p21 is `v05
+@do `p21 / 96 <-- 15mins hour of swimming!
+@do `p11 - `p24
+;<-- -->
+@clear screen
+@show
+`2 You continue swimming north. The current seems to be behind you now.
+@key
+@show
+
+`2 After a few minutes, you can make out a light at the end of the tunnel.
+You swim towards the light and emerge `L.`L.`L.`L on the shore of the Forest River.
+@key
+@loadmap 1113
+@do map is 1113
+@do x is 15
+@do y is 8
+@drawmap
+@update
+@closescript
+
+@#DROWN
+@clear screen
+@show
+`2 You relax and let the water take you. You drift quickly for a few minutes,
+then suddenly your hear the crashing sound of a waterfall.
+@key
+@show
+
+`2 You turn and swim with all your might, but it is too late. The current has
+you firmly in it's grasp.
+@key
+@show
+
+`2 The water plunges 100 feet into a giant subterranean sea, and takes you
+with it!
+@key
+@show
+
+`2 As you feel gravity take hold, you close your eyes and think how much you
+will miss your mom.
+@key
+;<--Added by CNW-->
+@do `p21 is `v05
+@do `p21 / 48 <-- half hour
+@do `p11 - `p24
+;<-- -->
+@clear screen
+@show
+
+`L`L`L `2Then you slowly open your eyes.
+@key
+@show
+
+`2 You are beaten and battered, but not quite dead. You are lying on the
+ground outside of Kiteria's Castle. How on earth did you get here??
+@key
+@do `p02 is 1
+@loadmap 1113
+@do map is 1113
+@do x is 30
+@do y is 19
+@drawmap
+@update
+@closescript
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/knotwood.ref b/xtrn/lord2/cnw/knotwood.ref
new file mode 100644
index 0000000000000000000000000000000000000000..8ca3ddb7cf8ae5a00ad906d0358765144d564afb
--- /dev/null
+++ b/xtrn/lord2/cnw/knotwood.ref
@@ -0,0 +1,945 @@
+; Script file KNOTWOOD.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:20 2001
+
+@DECLARE aric 000000768
+@DECLARE sign 000001552
+@DECLARE oldman 000001620
+@DECLARE door1 000001702
+@DECLARE abstart 000001756
+@DECLARE door2 000002225
+@DECLARE door3 000003962
+@DECLARE westart 000004016
+@DECLARE cave 000004365
+@DECLARE water2 000006400
+@DECLARE water 000006447
+@DECLARE fishcast 000007088
+@DECLARE king 000008922
+@DECLARE redwizard 000009652
+@DECLARE bars 000010732
+@DECLARE -----=====fountain=====----- 000010867
+@DECLARE fountain 000010883
+@DECLARE mtop 000010972
+@DECLARE prize 000012090
+@DECLARE nowish 000018009
+@DECLARE buhbye 000018100
+@DECLARE nomore 000018151
+@NOCHECK
+; End of .REF index
+
+;ref file for Knotwood Village
+
+@#Aric
+@do moveback
+@do `p20 random 9 1
+@if `p20 is 1 then saybar
+`%Man: `0Welcome to Knotwood Village
+@if `p20 is 2 then saybar
+`%Man: `0I hear good old Ernie loves eggs...
+@if `p20 is 3 then saybar
+`%Man: `0I haven't seen `#Violet `0in ages...wonder how's she's doing?
+@if `p20 is 4 then saybar
+`%Man: `0The `4Dragon Tooth `0live on an island...wonder how to get there?
+@if `p20 is 5 then saybar
+`%Man: `0Have you talked to Ernie yet?
+@if `p20 is 6 then saybar
+`%Man: `0Check out http://rat.org/pub/furry/andsean/ It's some art I found
+@if `p20 is 7 then saybar
+`%Man: `0Sneakers, the Lone Fox was here
+@if `p20 is 8 then saybar
+`%Man: `0Check out the wizard in the castle...he's strange!
+@if `p20 is 9 then saybar
+`%Man: `0We are peaceful folks...welcome!
+
+
+@#sign
+@do moveback
+@do saybar
+`0To Knotwood Village <---
+
+
+@#oldman
+@do saybar
+`%Old Man: `0My dear son was killed by the `4Red Dragon
+
+
+@#door1
+@offmap
+@do moveback
+@do `v01 is 1
+@label abstart
+@show
+`r0`c `%Crazy Harry's Armour and Weapons
+
+`2 You see loads of armour and weapons all over the place
+
+@do write
+`x`x
+@choice
+Examine his Armour
+Examine his Weapons
+Go outside.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 12
+ 13
+ 14
+ 37
+ 59
+ @end
+
+@if responce is 2 then do begin
+ @begin
+@buymanager
+ 38
+ 35
+ 36
+ 49
+ 39
+ 58
+ @end
+
+@if responce not 3 then goto abstart
+@drawmap
+@update
+
+@#door2
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1 Knotwood Village Master Healing `r0
+
+`2 Master 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 come on! How am I supposed to make money when I can barely walk?
+Buddy, how 'bout a little compassion for once in your life freak!
+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," `2Master informs you.
+
+`k
+ @end
+@if response is 3 then do
+ @begin
+ @do `p02 = 1
+ @show
+ `0"Sure. Take like 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!" `2says Master.
+
+`k
+@drawmap
+@update
+
+@#door3
+@offmap
+@do moveback
+@do `v01 is 1
+@label westart
+@show
+`r0`c `%Sir Waldo's Weird and Wonderful stuff
+
+`2 You are amazed at all the stuff sold here!
+
+@do write
+`x`x
+@choice
+Examine the goods
+Go outside.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 5
+ 40
+ 55
+ 50
+ 20
+ 17
+ 51
+ @end
+
+@if responce not 2 then goto westart
+@drawmap
+@update
+
+@#cave
+;lets them warp to a view places
+@offmap
+@do moveback
+@show
+`r0`c `r1 Uncle Ernie's Cave `r0
+
+ `0"Welcome, welcome, welcome to my cave! If you had something I
+ desired...then I will help you on your travels."
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>`i43 0 Would you like to travel somewhere?
+Leave
+@if response is 2 then do
+ @begin
+ @loadmap &map
+ @drawmap
+ @update
+ @end
+
+@if response not 2 then do
+ @begin
+
+@clear screen
+@show
+
+`2Where to buddy?
+
+@choice
+`#Sosen Village
+`#Stonepass Lodge
+`#PortTown
+`#Greentree
+`#Arrisville
+`#Bonetown
+`#Stonebrook
+`#Flagcity
+`2I'll stay here, thanks
+@if response not 9 then do
+ @begin
+@show
+`\`\ `0"We shall leave at once!" he shouts importantly.
+
+`k `2A few bumps later you arrive - ah, traveling in style is so much fun!
+
+ `0"I bid you a goodday s&sir, please travel safely."
+
+ `2Looks like you are on your own.
+
+`k
+@if responce is 1 then do
+ @begin
+ ;Sosen village
+ @do x is 32
+ @do y is 8
+ @do map is 456
+ @do `i43 - 1
+ @end
+
+@if responce is 2 then do
+ @begin
+ ;Stonepass Lodge
+ @do x is 35
+ @do y is 12
+ @do map is 880
+ @do `i43 - 1
+ @end
+
+@if responce is 3 then do
+ @begin
+ ;Porttown
+ @do x is 38
+ @do y is 14
+ @do map is 956
+ @do `i43 - 1
+ @end
+
+@if responce is 4 then do
+ @begin
+ ;Greentree
+ @do x is 11
+ @do y is 15
+ @do map is 1356
+ @do `i43 - 1
+ @end
+
+@if responce is 5 then do
+ @begin
+ ;Arrisville
+ @do x is 26
+ @do y is 11
+ @do map is 523
+ @do `i43 - 1
+ @end
+
+@if responce is 6 then do
+ @begin
+ ;Bonetown
+ @do x is 39
+ @do y is 18
+ @do map is 1572
+ @do `i43 - 1
+ @end
+
+@if responce is 7 then do
+ @begin
+ ;Stonebrook
+ @do x is 36
+ @do y is 7
+ @do map is 1359
+ @do `i43 - 1
+ @end
+
+@if responce is 8 then do
+ @begin
+ ;Flagcity
+ @do x is 71
+ @do y is 17
+ @do map is 1092
+ @do `i43 - 1
+ @end
+
+
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+
+@#water2
+@do saybar
+Hehehehehe! It's cold!
+
+@#water
+;Fishing hole...
+@do moveback
+
+@if `i28 < 1 then do
+ @begin
+ ;person doesn't have fishing pole
+ @DO SAYBAR
+`2You doubt you would catch anything with your s&weapon...
+ @closescript
+ @end
+
+
+@if `t10 < 1 then do
+ @begin
+ @do saybar
+You have caught all the fish in the fountain. Maybe tomorrow.
+ @closescript
+ @end
+
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2Cool fountain..Wanna try your luck fishing in it? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is N then do
+ @begin
+ @do saybar
+Maybe later when the fish are biting.
+ @closescript
+ @end
+
+@label fishcast
+
+@do `p20 is `i29
+@do `p20 + `i30
+@do `s01 is `p20
+@if `s01 is 0 then `s01 is no
+
+@show
+`r0`c `r1 `%The foiuntain `r0
+
+ `2You sit yourself down at the edge of the fountain and relax a bit.
+
+ You have `s01 fish.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Cast deep
+Cast shallow
+Get up and leave
+@if responce is 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if response is 1 then do
+ @begin
+ @do `p20 random 80 20
+ @show
+`\`\ `2You add a weight and let your hook plops down and sink deeply
+ about `0`p20`2 feet down.
+
+@end
+
+@if response is 2 then do
+ @begin
+ @do `p20 random 20 1
+ @show
+`\`\ `2You gently done your line. Your hook makes a soft splash
+ about `0`p20 `2feet down.
+
+@end
+
+
+@do write
+ `2You wait.`l.`l.`l.`l.
+@if `t10 < 1 then do
+ @begin
+ @show
+`4No fish are biting.`2
+
+ It looks like the action is finished for today.
+
+`k
+ @do goto fishcast
+ @end
+@do `p20 random 2 1
+@if `p20 is 1 then do
+ @begin
+ @show
+`4Nothing happens.
+
+`2 You reel the line back in.
+
+`k
+ @do goto fishcast
+ @end
+@if `p20 is 2 then do
+ @begin
+ @show
+`%You have a bite!`2
+
+@do write
+`k
+@do `p20 random 4 1
+@IF `P20 IS 1 then do
+ @begin
+ ;catching a special fish
+ @show
+ The fish is suprisingly strong! But you reel it in slowly...
+
+@do write
+`k
+@do `p20 random 4 1
+@IF `P20 IS 1 then do
+ @begin
+ @show
+ `bTHE LINE BREAKS!
+
+ `2The mighty fish has escaped.
+
+`k
+ @do goto fishcast
+ @end
+ @show
+ `2You have just caught a `0Sparkling Green Salmon`2!
+`\`k
+ @do `i30 + 1
+ @do `t10 - 1
+ @do goto fishcast
+ @end
+
+ @show
+ You slowly reel the fish to shore.
+
+`k You have caught a Salmon.
+
+`k
+ @do `i29 + 1
+ @do `t10 - 1
+ @do goto fishcast
+ @end
+
+
+ @end
+
+
+
+@#king
+@do moveback
+@busy
+@offmap
+@show
+`r0`c `%`r1 The Royal Castle `r0
+
+ `2The castle of Knotwood is a lovely yet simple monument that sits
+ quietly in the wilderness.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Speak to the king
+Leave
+@if responce is 1 then do
+ @begin
+ @if `p07 < -50 then do
+ @begin
+ @show
+`\`\ `2The king is outraged and sends you to prison to rot for your crimes.
+`\`k
+ @do x is 72
+ @do y is 18
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do `v01 is 1
+ @show
+`\`\ `2The king welcomes you to his humble castle, and wishes you luck in
+ defeating the `4Dragon Tooth Clan`2.
+`\`k
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#redwizard
+@do moveback
+@busy
+@offmap
+@show
+`r0`c `%`r1 `4The Red Wizard`% `r0
+
+ `2Before you is the `4Red Wizard `2 He smiles up at you and says,`%"You are
+ worthy...I see great potential within your dark heart. I want you to
+ meet someone. Are you willing to go?"`2,as he waits for your answer.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Yes
+No
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2The `4Red Wizard`2 smiles and chants a few words, soon you start to feel
+ yourself starting to fade away to a distant place. You hear his voice
+ in your mind,`%"Look for Phineaus.."`2 You appear on the beach of a small
+ island.
+`\`k
+ @loadmap 705
+ @do map is 705
+ @do x is 30
+ @do y is 10
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do `v01 is 1
+ @show
+`\`\ `2The Red Wizard shrugs,`%"Suit yourself...you can sit and rot here then and
+ play shadow puppets with me."`2 ,as he grins at you with some hand gestures.
+`\`k
+ @loadmap &map
+ @end
+@drawmap
+@update
+@do moveback
+@busy
+@offmap
+@show
+
+@#bars
+@do saybar
+`0ZZZZZAAAAAPPP!! `@*OUCH!! `%These bars are magical and drained your hp!
+@do `p02 - 1
+
+@#-----=====fountain=====-----
+
+
+@#fountain
+; Getting a FREE wish
+ @offmap
+ @do moveback
+ @datanewday knotwood.idf
+ @label mtop
+ @dataload knotwood.idf &playernum `p20
+ @do `v01 is 1
+ @show
+`r0`c `%Knotwood's magic fountain
+
+`2 Before you is a beautiful fountain with crystal clear sparkling clean
+water. You see a plaque which reads:
+
+`% -=Take a drink, and get a wish=-
+
+@do write
+`x`x`x`x
+@choice
+Take a drink?
+Leave
+@if response is 1 then do
+ @begin
+ @if `p20 is 1 then do
+ @begin
+ @do goto nowish
+ @end
+ @show
+`c
+ `2 You kneel before the majestic fountain, the surface smooth to touch.
+ You place you hand deep into the water. You feel the cool water embrace
+ your skin, feeling ever so pleasent. You cup your hand and scoop up some
+ of the precious water and slowly drink it, enjoying the taste and purity
+ of the clean water. You smile and look up at the heavens, wishing for some
+ kind of help on your quest.
+
+ @do addlog
+ `r4 `r0 `0`n`2 makes a wish at the wishing fountain `r4 `r0
+ @do goto prize
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\
+`2 You decide you aren't that thirsty right now. Perhaps later.
+`\
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#prize
+@do `p29 random 12 1
+;
+; Random things that you can get
+;
+; 1 - Extra Gold
+; 2 - Extra Muscle
+; 3 - Extra Dodge
+; 4 - Extra Hitpoints Max
+; 5 - if Neg alignment (Eviler) If positive (nicer)
+; 6 - A healing potion (5 point one)
+; 7 - a red potion (5 hit points)
+; 8 - a silver potion (muscle)
+; 9 - a gold potion (dodge)
+; 10 - egg
+; 11 - quest point
+; 12 - gem
+
+@if `p29 is 1 then do
+ @begin
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p21 is `v09
+ @do `p21 - 1
+; Do the math, You'll get Gold = level * level * 10
+ @do `p21 * `p21
+ @do `p21 * 10
+ @show
+`% Cool! `9You feel your pocket bulge and find `$`p21`9 gold!
+`9 You look up and thank the heavens for their kindness.`\`\`k
+ @do money + `p21
+ @do addlog
+ `r4 `r0 `0`n`2 received `$`p21`2 gold! `r4 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave knotwood.idf &playernum 1
+@drawmap
+@update
+@closescript
+ @end
+
+@if `p29 is 2 then do
+ @begin
+ @show
+`2 Stronger! `9 You feel your strenth increase!
+`9 You look at yourself, grin and leave.`\`\`k
+ @do `p04 + 5
+ @do addlog
+ `r4 `r0 `0`n`2 received strength! `r4 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave knotwood.idf &playernum 1
+@drawmap
+@update
+@closescript
+ @end
+
+@if `p29 is 3 then do
+ @begin
+ @show
+`% Life! `9 You feel like you can take on the world!
+`9 You strike a pose and continue on your way.`\`\`k
+ @do `p03 + 5
+ @do addlog
+ `r4 `r0 `0`n`2 received some hitpoints! `r4 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave knotwood.idf &playernum 1
+@drawmap
+@update
+@closescript
+ @end
+
+@if `p29 is 4 then do
+ @begin
+ @show
+`% Quickness! `9 You feel alot more agile!
+`9 You jog around the fountain and enjoy your agility.`\`\`k
+ @do `p05 + 5
+ @do addlog
+ `r4 `r0 `0`n`2 received quickness `r4 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave knotwood.idf &playernum 1
+@drawmap
+@update
+@closescript
+ @end
+
+@if `p29 is 5 then do
+ @begin
+ @if `p07 less 0 then do
+ @begin
+ @show
+`9 You feel your dark soul grow even darker. You feel like doing some
+ heinus acts of cruelity.`\`k
+ @do `p07 - 10
+ @do addlog
+ `r4 `r0 `0`n`2's soul got darker! `r4 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave knotwood.idf &playernum 1
+@drawmap
+@update
+@closescript
+ @end
+
+ @if `p07 more 0 then do
+ @begin
+ @show
+`9 You feel totally blessed, feeling your soul purify, a sense of well
+ being and love embrace you, ready to rid the land of all evil.`\`k
+ @do `p07 + 10
+ @do addlog
+ `r4 `r0 `0`n`2's soul purified! `r4 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave knotwood.idf &playernum 1
+@drawmap
+@update
+@closescript
+ @end
+
+ @if `p07 equals 0 then do
+ @begin
+ @show
+`9 You feel totally blessed, feeling your soul purify, a sense of well
+ being and love embrace you, ready to rid the land of all evil.`\`k
+ @do `p07 + 10
+ @do addlog
+ `r4 `r0 `0`n`2's soul purified! `r4 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave knotwood.idf &playernum 1
+@drawmap
+@update
+@closescript
+ @end
+ @end
+
+@if `p29 is 6 then do
+ @begin
+ @show
+`% Wow! `9You feel blessed as a `0Green potion `9appears in your hands!`\`k
+ @do `i05 + 1
+ @do addlog
+ `r4 `r0 `0`n`2 received a `0Green potion! `r4 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave knotwood.idf &playernum 1
+@drawmap
+@update
+@closescript
+ @end
+
+@if `p29 is 7 then do
+ @begin
+ @show
+`% Wow! `9You feel blessed as a `4Red potion `9appears in your hands!`\`k
+ @do `i52 + 1
+ @do addlog
+ `r4 `r0 `0`n`2 received a `4Red potion! `r4 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave knotwood.idf &playernum 1
+@drawmap
+@update
+@closescript
+ @end
+
+@if `p29 is 8 then do
+ @begin
+ @show
+`% Wow! `9You feel blessed as a `$Gold potion `9appears in your hands!`\`k
+ @do `i53 + 1
+ @do addlog
+ `r4 `r0 `0`n`2 received a `$Gold potion! `r4 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave knotwood.idf &playernum 1
+@drawmap
+@update
+@closescript
+ @end
+
+@if `p29 is 9 then do
+ @begin
+ @show
+`% Wow! `9You feel blessed as a `7Silver potion `9appears in your hands!`\`k
+ @do `i54 + 1
+ @do addlog
+ `r4 `r0 `0`n`2 received a `7Silver potion! `r4 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave knotwood.idf &playernum 1
+@drawmap
+@update
+@closescript
+ @end
+
+@if `p29 is 10 then do
+ @begin
+ @show
+`% An Egg?! `9 Man...you can't help but feel jipped!`\`k
+ @do `i43 + 1
+ @do addlog
+ `r4 `r0 `0`n`2 received an egg!! `r4 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave knotwood.idf &playernum 1
+@drawmap
+@update
+@closescript
+ @end
+
+@if `p29 is 11 then do
+ @begin
+ @show
+`% Wow! `9 You get a quest point!`\`k
+ @do `p18 + 1
+ @do addlog
+ `r4 `r0 `0`n`2 received a `%Quest `2point! `r4 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave knotwood.idf &playernum 1
+@drawmap
+@update
+@closescript
+ @end
+
+@if `p29 is 12 then do begin
+ @begin
+ @show
+`9 You smile as the water droplets in your hand turn into gems!`\`k
+ @do `p19 + 5
+ @do addlog
+ `r4 `r0 `0`n`2 received some shiny gems! `r4 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave knotwood.idf &playernum 1
+@drawmap
+@update
+@closescript
+ @end
+
+
+@#nowish
+@show
+`2`\`\Sorry... You already made a wish today.
+`\`\`k
+@do goto buhbye
+
+@#buhbye
+@drawmap
+@update
+@closescript
+@end
+
+@#nomore
diff --git a/xtrn/lord2/cnw/knuckle.ref b/xtrn/lord2/cnw/knuckle.ref
new file mode 100644
index 0000000000000000000000000000000000000000..8fd2782e76ab651006ec463770cf38ddd8b89ef2
--- /dev/null
+++ b/xtrn/lord2/cnw/knuckle.ref
@@ -0,0 +1,531 @@
+; Script file KNUCKLE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:40 2001
+
+@DECLARE start 000000538
+@DECLARE knuckle 000000575
+@DECLARE rollem 000002208
+@DECLARE checkum 000002447
+@DECLARE knucklehelp 000003457
+@DECLARE othergames 000003802
+@DECLARE ogames 000003817
+@DECLARE noturnz 000004332
+@DECLARE game2 000004547
+@DECLARE g2 000004558
+@DECLARE roll2 000006159
+@DECLARE check2 000006396
+@DECLARE timehelp 000007373
+@DECLARE nogame 000008077
+@DECLARE nomore 000008332
+@NOCHECK
+; End of .REF index
+
+@#start
+@do moveback
+@busy
+@label knuckle
+@if `p33 is 0 then do
+ @begin
+ @do goto nogame
+ @end
+@do `v01 is 1
+@do `p28 is 0
+@do `p30 is money
+@show
+`r0`c `r1 `%A Game Of Knucklebones `r0
+
+ `0How much would you like to bet?
+ `2(you have `$$`p30 `2and `0`p33 `2gambles left)
+
+@do write
+`x`x
+@choice
+Bet $5
+Bet $10
+Bet $20
+Bet $50
+Bet $100
+Ask for help on Knucklebones
+Inquire about other games
+Leave
+@if responce is 8 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do `p33 - 1
+ @do `p28 is 5
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p24 is 0
+ @do `p25 is 0
+ @do `p26 is 0
+ @do goto rollem
+ @end
+
+@if responce is 2 then do
+ @begin
+ @do `p33 - 1
+ @do `p28 is 10
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p24 is 0
+ @do `p25 is 0
+ @do `p26 is 0
+ @do goto rollem
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do `p33 - 1
+ @do `p28 is 20
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p24 is 0
+ @do `p25 is 0
+ @do `p26 is 0
+ @do goto rollem
+ @end
+
+@if responce is 4 then do
+ @begin
+ @do `p33 - 1
+ @do `p28 is 50
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p24 is 0
+ @do `p25 is 0
+ @do `p26 is 0
+ @do goto rollem
+ @end
+
+@if responce is 5 then do
+ @begin
+ @do `p33 - 1
+ @do `p28 is 100
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p24 is 0
+ @do `p25 is 0
+ @do `p26 is 0
+ @do goto rollem
+ @end
+
+@if responce is 6 then do
+ @begin
+ @do goto knucklehelp
+ @end
+
+@if responce is 7 then do
+ @begin
+ @do goto othergames
+ @end
+
+@#rollem
+@if 1 is 1 then do
+ @begin
+ @do `p20 random 6 1
+ @do `p21 random 6 1
+ @do `p22 + `p20
+ @do `p22 + `p21
+ @do `p24 random 6 1
+ @do `p25 random 6 1
+ @do `p26 + `p24
+ @do `p26 + `p25
+ @do goto checkum
+ @end
+
+@#checkum
+@if `p22 > `p26 then do
+ @begin
+ @show
+`r0`c
+`\`\
+ `0You Roll:
+
+ `0Roll 1: `%`p20
+ `0Roll 2: `%`p21
+
+ `0Total : `%`p22
+`k
+ `0House Rolls:
+
+ `0Roll 1: `%`p24
+ `0Roll 2: `%`p25
+
+ `0Total : `%`p26
+
+`k
+ `0You Win!
+`k
+ @do money + `p28
+ @do goto start
+ @end
+
+@if `p22 < `p26 then do
+ @begin
+ @show
+`r0`c
+`\`\
+ `0You Roll:
+
+ `0Roll 1: `%`p20
+ `0Roll 2: `%`p21
+
+ `0Total : `%`p22
+`k
+ `0House Rolls:
+
+ `0Roll 1: `%`p24
+ `0Roll 2: `%`p25
+
+ `0Total : `%`p26
+
+`k
+ `0You Lose!
+`k
+ @do money - `p28
+ @do goto start
+ @end
+
+@if `p22 = `p26 then do
+ @begin
+ @show
+`r0`c
+`\`\
+ `0You Roll:
+
+ `0Roll 1: `%`p20
+ `0Roll 2: `%`p21
+
+ `0Total : `%`p22
+
+ `0House Rolls:
+
+ `0Roll 1: `%`p24
+ `0Roll 2: `%`p25
+
+ `0Total : `%`p26
+
+`k
+ `0It's A Tie! Try Again!
+`k
+ @do `p28 is 5
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p24 is 0
+ @do `p25 is 0
+ @do `p26 is 0
+ @do goto rollem
+ @end
+
+@#knucklehelp
+@show
+`r0`c `r1 `%Help on Knucklebones `r0
+
+ `0Knucklebones is a craps-type game. The object is to score the highest
+ total on two dice. If you get the higher number, you win your bet. If
+ the House gets the higher number, you lose your bet. If you tie, you get
+ to throw the dice again.
+
+`k
+@do goto knuckle
+
+
+@#othergames
+@label ogames
+@do `v01 is 1
+@show
+`r0`c `r1 Games Of Chance `r0
+
+ `0Which game would you like to play?
+
+@do write
+`x`x
+@choice
+3 Shells
+Knucklebones for Turns
+Nevermind
+Leave
+@if responce is 3 then do
+ @begin
+ @do goto knuckle
+ @end
+
+@if responce is 4 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 1 then do
+ @begin
+ @run game3 in shell.ref
+ @end
+
+@if responce is 2 then do
+ @begin
+ @if `v05 is 0 then goto noturnz
+ @do goto game2
+ @end
+
+@#noturnz
+@show
+`r0`c `r1 `%Our Apologies `r0
+
+ `0I'm sorry, but it looks like your sysop has set LORD 2 to
+ `%Unlimited turns`0. Therefore, this game will do you no good.
+
+ Sorry.
+
+`k
+@do goto ogames
+
+@#game2
+@label g2
+@do `v01 is 1
+@do `p28 is 0
+@do `p30 is money
+@show
+`r0`c `r1 `%Gambling for Turns `r0
+
+ `0How much would you like to bet?
+ `2(you have `$$`p30 `2and `0`p33 `2gambles left)
+
+@do write
+`x`x
+@choice
+Bet $5
+Bet $10
+Bet $20
+Bet $50
+Bet $100
+Ask for help on Knucklebones
+Return to the Other Games Menu
+Leave
+@if responce is 8 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 7 then goto othergames
+
+@if responce is 6 then goto timehelp
+
+@if responce is 1 then do
+ @begin
+ @do `p33 - 1
+ @do money - 5
+ @do `p28 is 10
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p24 is 0
+ @do `p25 is 0
+ @do `p26 is 0
+ @do goto roll2
+ @end
+
+@if responce is 2 then do
+ @begin
+ @do `p33 - 1
+ @do money - 10
+ @do `p28 is 30
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p24 is 0
+ @do `p25 is 0
+ @do `p26 is 0
+ @do goto roll2
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do `p33 - 1
+ @do money - 20
+ @do `p28 is 50
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p24 is 0
+ @do `p25 is 0
+ @do `p26 is 0
+ @do goto roll2
+ @end
+
+@if responce is 4 then do
+ @begin
+ @do `p33 - 1
+ @do money - 50
+ @do `p28 is 100
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p24 is 0
+ @do `p25 is 0
+ @do `p26 is 0
+ @do goto roll2
+ @end
+
+@if responce is 5 then do
+ @begin
+ @do `p33 - 1
+ @do money - 100
+ @do `p28 is 350
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p24 is 0
+ @do `p25 is 0
+ @do `p26 is 0
+ @do goto roll2
+ @end
+
+@#roll2
+@if 1 is 1 then do
+ @begin
+ @do `p20 random 6 1
+ @do `p21 random 6 1
+ @do `p22 + `p20
+ @do `p22 + `p21
+ @do `p24 random 6 1
+ @do `p25 random 6 1
+ @do `p26 + `p24
+ @do `p26 + `p25
+ @do goto check2
+ @end
+
+@#check2
+@if `p22 > `p26 then do
+ @begin
+ @show
+`r0`c
+`\`\
+ `0You Roll:
+
+ `0Roll 1: `%`p20
+ `0Roll 2: `%`p21
+
+ `0Total : `%`p22
+`k
+ `0House Rolls:
+
+ `0Roll 1: `%`p24
+ `0Roll 2: `%`p25
+
+ `0Total : `%`p26
+
+`k
+ `0You Win `%`p28 `0Turns!
+`k
+ @do `p11 + `p28
+ @do goto g2
+ @end
+
+@if `p22 < `p26 then do
+ @begin
+ @show
+`r0`c
+`\`\
+ `0You Roll:
+
+ `0Roll 1: `%`p20
+ `0Roll 2: `%`p21
+
+ `0Total : `%`p22
+`k
+ `0House Rolls:
+
+ `0Roll 1: `%`p24
+ `0Roll 2: `%`p25
+
+ `0Total : `%`p26
+
+`k
+ `0You Lose!
+`k
+ @do goto g2
+ @end
+
+@if `p22 = `p26 then do
+ @begin
+ @show
+`r0`c
+`\`\
+ `0You Roll:
+
+ `0Roll 1: `%`p20
+ `0Roll 2: `%`p21
+
+ `0Total : `%`p22
+
+ `0House Rolls:
+
+ `0Roll 1: `%`p24
+ `0Roll 2: `%`p25
+
+ `0Total : `%`p26
+
+`k
+ `0It's A Tie! Try Again!
+`k
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p24 is 0
+ @do `p25 is 0
+ @do `p26 is 0
+ @do goto roll2
+ @end
+
+@#timehelp
+@show
+`r0`c `r1 `%Help On Knucklebones For Time `r0
+
+ `0Knucklebones is a craps-type game. The object is to score the highest
+ total on two dice. If you get the higher number, you win your bet. If
+ the House gets the higher number, you lose your bet. If you tie, you get
+ to throw the dice again.
+
+`k
+
+ `0Here's the list of how many turns you can win:
+
+ `0Bet Turns Won
+ `0-`2=`0- `0-`2=`0-`2=`0-`2=`0-`2=`0-
+ `$$5 10
+ `$$10 30
+ `$$20 50
+ `$$50 100
+ `$$100 350
+
+`k
+
+@do goto g2
+
+@#nogame
+@show
+`r0`c `r1 `%Our Apologies `r0
+
+ `0"I'm sorry, but we can't allow you to gameble anymore today," `2a
+ casino employee tells you.
+
+ Looks like you're out of gambles. You'll have to come back tomorrow.
+
+`k
+@drawmap
+@update
+
+@#nomore
diff --git a/xtrn/lord2/cnw/koshi.ref b/xtrn/lord2/cnw/koshi.ref
new file mode 100644
index 0000000000000000000000000000000000000000..eee73ed9db15a4e157e091cf599e45d9a61a5467
--- /dev/null
+++ b/xtrn/lord2/cnw/koshi.ref
@@ -0,0 +1,405 @@
+; Script file KOSHI.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:16 2001
+
+@DECLARE m1 000000513
+@DECLARE m2 000000575
+@DECLARE m3 000000625
+@DECLARE m4 000000683
+@DECLARE m5 000000762
+@DECLARE m6 000000821
+@DECLARE m7 000000900
+@DECLARE m8 000000985
+@DECLARE dahma 000001059
+@DECLARE pure 000002151
+@DECLARE store 000005441
+@DECLARE man1 000005760
+@DECLARE chest1 000006726
+@DECLARE sign1 000006953
+@DECLARE angel 000007034
+@DECLARE done 000008197
+@NOCHECK
+; End of .REF index
+
+
+@#m1
+@do moveback
+@do saybar
+`0Dahma is a mighty ruler.
+
+@#m2
+@do moveback
+@do saybar
+`0Your eyes...
+
+@#m3
+@do moveback
+@do saybar
+`0Have you ever flown?
+
+@#m4
+@do moveback
+@do saybar
+`0Dahma has been our leader for many years.
+
+@#m5
+@do moveback
+@do saybar
+`0Hi, what's your name?
+
+@#m6
+@do moveback
+@do saybar
+`0Please, I need some breathing space here!
+
+@#m7
+@do moveback
+@do saybar
+`0I've been to Flagcity before.. ever been there?
+
+@#m8
+@do moveback
+@do saybar
+`0We are family. You are family.
+
+
+@#dahma
+@do moveback
+@if bitcheck `t17 7 1 then do
+ @begin
+ @if `p07 > 50 then do
+ @begin
+ @do saybar
+`0Dahma: `%You will always be a hero here!
+ @closescript
+
+ @end
+ @end
+
+@if bitcheck `t17 6 1 then do
+ @begin
+ @do `s01 is s&armour
+ @if `s01 is Disguise then do
+ @begin
+ @do saybar
+`0Dahma: `%Help!! A Dragon Tooth got into the building!
+ @closescript
+ @end
+ @end
+
+@if bitcheck `t18 2 1 then do
+ @begin
+@if `p07 < -50 then do
+ @begin
+ @if `i73 > 0 then do
+ @begin
+ @do saybar
+`0Dahma: `%I hate you not for doing this wicked thing. Remember this.
+ @closescript
+ @end
+
+ @show
+`r0`c `%`r1 The Throne Of Dahma `r0
+
+ `3You see the Smackrod being clutched tightly in Dahma's hand...
+
+`k `%YOU LEAP UP INTO THE AIR AND GRAB IT!
+
+`k `3YOU'D BETTER GET OUT OF HERE, AND FAST!
+
+`k
+ @do `i73 is 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if `p07 > 50 then goto pure
+
+ @do saybar
+`0Dahma: `%You should not be here! Your heart is not pure yet.
+@closescript
+ @end
+
+ @label pure
+
+ @if bitcheck `t17 6 1 then do
+ @begin
+ @show
+`r0`c `%`r1 The Throne Of Dahma `r0
+
+ `$"I HAVE RETURNED TRIUMPHANT!" `3you echo throughout the halls.
+
+`k `%"Do.. do you have it?" `3Dahma asks of you.
+
+ `$"What... THIS?" `3you ask as you wave the `%Gryphon Moon`3 under Dahma's
+ nose.
+
+`k `%THE CROWD ROARS ITS APPROVAL! YOU HAVE BECOME A HERO!
+
+`k `%YOU RECIEVE 500 QUEST POINTS AND 10,000 EXPERIENCE!
+
+`k`r0`c `%`r1 Winning? `r0
+
+ `3After much celebration you finally get a chance to sit down and talk.
+
+`k `$"So who do you want me to give the stone to?" `3you ask a slightly
+ buzzed Dhama.
+
+`k `%"No one. It is not safe here, you must carry it with you always. Can
+ you do this?"
+
+ `3You nod your head. Even though you've won this small victory, it doesn't
+ mean the fight is over... there is so much to be done, so many to help.
+
+ `3You donate your 'disguise' to a Koshi museum for all to gawk at.. so
+ that they may never forget the past.
+
+`k
+ @bitset `t17 7 1
+ @do `i67 is 0
+ @do `p18 + 500
+ @do `p01 + 10000
+@do addlog
+ `r1 `r0 `0`n`% has saved the Koshi people and become a hero! `r1 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if bitcheck `t17 4 1 then do
+ @begin
+ @do saybar
+`0Dahma: `%Return with the Gryphon Moon!
+ @closescript
+ @end
+
+@show
+`r0`c `%`r1 The Throne Of Dahma `r0
+
+ `3You approach a regal looking Koshi man.
+
+ `%"Welcome here, `n`%. How may we serve you?"
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+-`t17 1 Why am I here? I feel you led me here.
+-`t17 2 Tell me the truth - is the Dragon still alive?
++`t17 3 -`t17 4 I now know I am half Koshi. What now, butterbean?
+Leave
+@if responce is 3 then do
+ @begin
+ @show
+`\`\ `3To your surprise the crowd gasps in amazement.
+
+`k Dahma explains. `%"Butterbean - in our language this means 'I am the
+ sacred child of prophecy'! Truly, you are the chosen one!"
+
+`k `$"Chosen? What must I do?" `3you are starting to get confused.
+
+ `%"You must stop the Dragon Tooth clan from exterminating our..your
+ species. They have stolen something from us..something that could crack
+ the world in two."
+
+ `$"What thing might that be?"
+
+`k `%"The Gryphon Moon. You must retrieve it from the Dragon Tooth Castle."
+
+ `$"And just how to I get there? I don't even know where that is!"
+
+ `%"It is on a small island. Getting there is your problem. Bye."
+
+`k
+ @bitset `t17 4 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 2 then do
+ @begin
+ @bitset `t17 2 1
+ @show
+`\`\ `%"That is not important. What is true is that the Dragon Tooth clan is
+ using the peoples fear to control them. You must put a stop to this."
+
+`k
+ @do goto dahma
+ @end
+
+
+@if responce is 1 then do
+ @begin
+ @bitset `t17 1 1
+ @show
+`\`\ `%"You don't know? We are surprised to hear this. Your mother should
+ have told you long ago."
+
+ `$"Told me what?!"
+
+`k `%"It is not our place. You must ask her."
+
+`k
+ @do goto dahma
+ @end
+
+@drawmap
+@update
+
+
+@#store
+@do moveback
+@if `p07 < 90 then do
+ @begin
+ @do saybar
+It looks like some kind of store.. too dangerous to go in.
+ @closescript
+ @end
+
+@show
+`r0`c`\`\ `r1 `%The Koshi Marketplace `r0
+
+@buymanager
+66
+50
+62
+64
+63
+65
+@drawmap
+@update
+
+
+@#man1
+;koshi man
+@do moveback
+@if `p07 < -50 then do
+ @begin
+ @if bitcheck `t17 7 1 then do
+ @begin
+ @do saybar
+`%Old Koshi Man: `0Why `n`0, it is you! What has happened to you?!
+ @do quebar
+You shove the old man to the ground..that was the OLD you he knew!
+ @closescript
+ @end
+ @do saybar
+Hey...I've never see you around here before...?
+ @closescript
+ @end
+
+@do `p20 random 6 1
+@if `p20 is 1 then saybar
+`%Old Koshi Man: `0Welcome to our mountain village, human!
+@if `p20 is 2 then saybar
+`%Old Koshi Man: `0The air is so clear up here, don't you think?
+@if `p20 is 3 then saybar
+`%Old Koshi Man: `0Please, tell me of the outside world.
+@if `p20 is 4 then saybar
+`%Old Koshi Man: `0You must find the truth and take it to the others.
+@if `p20 is 5 then saybar
+`%Old Koshi Man: `0We have gift.. you may have it also.
+@if `p20 is 6 then saybar
+`%Old Koshi Man: `0To come this far you must have great courage.
+
+
+
+@#chest1
+;secret
+@do moveback
+@if bitcheck `t17 0 1 then do
+ @begin
+ @do saybar
+There is nothing on the table.
+ @closescript
+ @end
+@bitset `t17 0 1
+@do saybar
+`%You find a Moonstone on the table!
+@do `i57 + 1
+
+@#sign1
+@do moveback
+@do saybar
+Take it, questor - you have earned it.
+
+
+
+@#angel
+;koshi entrance
+@do moveback
+@busy
+@show
+`r0`c `r1 `%Judgement Day `r0
+
+ `3You kneel in front of a huge statue of a Koshi.
+
+`k `3 Suddenly the statue's eyes open.
+
+@if `p07 < -50 then do
+ @begin
+ @show
+ `%"GET OUT...GET OUT...GET OUT.." `3the things voice echoes in your head.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@show
+ `%"Greetings, `n`%. Do you have the key?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+>`i34 0 Show him your CloudSword
+Attack the statue
+Leave
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ `3You strike the statue with your s&weapon`3!
+
+`k Nothing happens.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 1 then do
+ @begin
+
+@if `p07 < 100 then do
+ @begin
+ @show
+`\`\ `%"Very good - but your heart is hard. You will not be permitted to
+ enter until your alignment is 100+" `3decrees the stone guardian.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+@show
+`\`\ `%"YOU MAY ENTER." `3the voice booms.
+
+`k
+ @do map is 195
+ @do x is 79
+ @do y is 9
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+@drawmap
+@update
+
+@#done
+
diff --git a/xtrn/lord2/cnw/kraken.ans b/xtrn/lord2/cnw/kraken.ans
new file mode 100644
index 0000000000000000000000000000000000000000..1ab9bda179507566cd7ece2d14bf13845a4c1e0a
--- /dev/null
+++ b/xtrn/lord2/cnw/kraken.ans
@@ -0,0 +1,21 @@
+[0;34;40m������������������������������[31;44m����������������[34;40m���������������������������������[40m
+[40m����������������������������[31;44m��������������������[34;40m�������������������������������[40m
+[40m���������������������������[31;44m����������������������[34;40m������������������������������[40m
+[40m���������������������������[31;44m�����������������������[34;40m�����������������������������[40m
+[40m��������������������������[31;44m��������������������������[34;40m���������������������������[40m
+[40m��������������������������[31;44m���������������������������[34;40m��������������������������[40m
+[40m���������������������������[31;44m��������������������������[34;40m��������������������������[40m
+[40m�����������������������������[31;44m�����[0;1;37;47m��[0;31;44m���������������[0;1;37;47m��[0;34;40m��������������������������[40m
+[40m��������������������������������[31;44m�[0;1;37;47m�[30;40m��[37;47m�[0;31;44m�������������[0;1;37;47m�[30;40m��[37;47m�[0;34;40m�����������[31;44m���������[0;1;30;47m�[0;31;44m����[40m
+[34;40m����������������������������������[0;1;37;47m��[0;31;44m���������������[0;1;37;47m��[0;34;40m�������[31;44m���������[0;1;30;47m�[0;31;44m����[34;40m�����[40m
+[40m����������������������������������[31;44m�����������������[34;40m�����[31;44m���������[0;1;30;47m�[0;31;44m��[34;40m�����������[40m
+[40m�����������[31;44m���������������[34;40m������[31;44m�������������������[34;40m�[31;44m������������[34;40m���������������[40m
+[40m�[31;44m�����������������������������������������������������������[0;1;30;47m�[0;34;40m������������������[40m
+[31;44m�������[0;1;30;47m�[0;31;44m��[34;40m������������[31;44m������������������������������������[34;40m���������������������[40m
+[40m�����������������[31;44m�������[0;1;30;47m��[0;31;44m�[34;40m�[31;44m������������������������[0;1;30;47m��[0;31;44m�������[34;40m������������������[40m
+[40m�[31;44m�[34;40m���������[31;44m��������[0;1;30;47m�[0;31;44m�[0;1;30;47m�[0;31;44m�[34;40m���[31;44m������[0;1;30;47m�[0;31;44m�[34;40m�[31;44m������[0;1;30;47m�[0;31;44m�[34;40m�[31;44m�[0;1;30;47m��[0;31;44m����[34;40m��[0;1;30;47m����[0;31;44m��������[34;40m��������������[40m
+[40m�[31;44m���[0;1;30;47m�[0;31;44m����[0;1;30;47m�[0;31;44m��[0;1;30;47m�[0;31;44m�[0;1;30;47m��[0;31;44m���[34;40m�����[31;44m�����[0;1;30;47m��[0;31;44m�[34;40m�[31;44m������[0;1;30;47m��[0;31;44m�[34;40m����[31;44m�[0;1;30;47m��[0;31;44m����[34;40m���[31;44m�[0;1;30;47m��[0;31;44m��������[34;40m������������[40m
+[40m���������������������[31;44m������[0;1;30;47m�[0;31;44m�[34;40m���[31;44m�����[0;1;30;47m�[0;31;44m�[34;40m���������[0;1;30;47m��[0;31;44m����[34;40m������[31;44m�[0;1;30;47m�[0;31;44m��������[34;40m���������[40m
+[40m����������������[31;44m������[0;1;30;47m�[0;31;44m�[0;1;30;47m�[0;31;44m�[0;1;30;47m�[0;34;40m����[31;44m����[0;1;30;47m�[0;31;44m�[34;40m����[0;1;33;40m�you[0;34;40m�����[31;44m��[0;1;30;47m�[0;31;44m�����[34;40m�������[31;44m�[0;1;30;47m�[0;31;44m��[0;1;30;47m�[0;31;44m�����[0;1;30;47m�[0;31;44m���[40m
+[34;40m�����[31;44m�����[0;1;30;47m�[0;31;44m����[0;1;30;47m�[0;31;44m��[0;1;30;47m�[0;31;44m��[34;40m��������[31;44m�����[34;40m�������[0;1;37;40m[0;34;40m�������������[31;44m��[0;1;30;47m�[0;31;44m�����[34;40m����������������[40m
+[0m
diff --git a/xtrn/lord2/cnw/l2tree.dat b/xtrn/lord2/cnw/l2tree.dat
new file mode 100644
index 0000000000000000000000000000000000000000..b995cd3fdb0f6b9d47c7d6f4aca0d8cb7cb414e8
--- /dev/null
+++ b/xtrn/lord2/cnw/l2tree.dat
@@ -0,0 +1 @@
+Goatboy sucks horses
diff --git a/xtrn/lord2/cnw/lenny.ref b/xtrn/lord2/cnw/lenny.ref
new file mode 100644
index 0000000000000000000000000000000000000000..ca247bfa5927b07730acfe731643af81965b8c4e
--- /dev/null
+++ b/xtrn/lord2/cnw/lenny.ref
@@ -0,0 +1,250 @@
+; Script file LENNY.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:43 2001
+
+@DECLARE lenny 000000277
+@DECLARE start 000000314
+@DECLARE done 000001378
+@DECLARE game 000001441
+@DECLARE ok 000001799
+@DECLARE tiegame 000002527
+@NOCHECK
+; End of .REF index
+
+@#lenny
+@datanewday lenny.idf
+@label start
+@clear screen
+@show
+`%Visiting with Uncle Lenny
+`2-=-=-=-=-=-=-=-=-=-=-=-=-
+
+`2Uncle Lenny begins to speak...
+"The Dragon Tooth clan is evil. Don't ever believe them!"
+"Don't be afraid...they don't bother ya here in Stonebrook."
+
+@do `v01 is 1
+@choice
+Talk to Uncle Lenny
+Play a game
+Leave
+@if response is 1 then do
+@begin
+@show
+`\`\`2"So how's life treating ya Uncle Lenny?"
+"I'm doing good, how is your mother getting along?" replies Uncle Lenny
+
+@do `v01 is 1
+@choice
+Mother is doing well
+Not so good
+@if response is 1 then do
+@begin
+@show
+`\`\`2Good! I am glad to here that she is getting better
+after your father's death.
+@end
+@if response is 2 then do
+@begin
+@show
+`\`\`2I'm sorry to hear that. I guess she still misses your
+father a great deal.
+@end
+@key
+@do goto start
+@end
+
+@if response is 2 then do
+@begin
+@do goto game
+@end
+
+@if response is 3 then do
+@begin
+@show
+`\`\`2"Leaving already? Remeber don't believe what the Dragon
+Tooth clan tells you `n"
+@key
+@do goto done
+@end
+
+@label done
+@drawmap
+@do moveback
+@update
+@closescript
+
+@label game
+@clear screen
+@show
+`%Playing a game with Uncle Lenny
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+`2Uncle Lenny says "So you want to play a game? How about
+Rock, Paper, Scissors?"
+
+@do `v01 is 1
+@choice
+Ok let's play
+No thanks
+@if response is 1 then do
+@begin
+@do goto ok
+@end
+@if response is 2 then do
+@begin
+@do goto start
+@end
+
+@label ok
+@clear screen
+@dataload lenny.idf &playernum `p25
+@if `p25 is 1 then do
+@begin
+@show
+`%Rock, Paper, Scissors
+`2-=-=-=-=-=-=-=-=-=-=-
+
+`2Sorry but I am too busy to play again today.
+@key
+@do goto start
+@end
+
+@show
+`%Rock, Paper, Scissors
+`2-=-=-=-=-=-=-=-=-=-=-
+
+`2"How much do you want to bet?" asks Uncle Lenny
+Place your bet (500 max)
+@do readnum 3
+
+@if `v40 is 0 then do
+@begin
+@show
+`\`2You have to bet at least $1!
+@do `v01 is 1
+@choice
+Try again
+Nevermind
+@if response is 1 then do
+@begin
+@do goto ok
+@end
+@if response is 2 then do
+@begin
+@do goto start
+@end
+@end
+
+@if `v40 > money then do
+@begin
+@show
+`\`2You don't have `v40!
+@key
+@do goto game
+@end
+
+@label tiegame
+@clear screen
+@show
+`%Rock, Paper, Scissors
+`2-=-=-=-=-=-=-=-=-=-=-
+
+`2Ok that sounds good let's begin!
+
+@do `v01 is 1
+@choice
+Rock
+Paper
+Scissors
+@if response is 1 then do
+@begin
+@do `p28 is 0
+@end
+@if response is 2 then do
+@begin
+@do `p28 is 1
+@end
+@if response is 3 then do
+@begin
+@do `p28 is 2
+@end
+
+@do `p27 random 3
+@if `p28 is 0 then do
+@begin
+@if `p27 is 0 then do
+@begin
+@show
+`\`\`2The game is a tie!
+@do goto tiegame
+@end
+
+@if `p27 is 1 then do
+@begin
+@show
+`\`\`2Paper beats rock! Uncle Lenny wins!
+You hand Uncle Lenny `v40 gold.
+@do money - `v40
+@end
+
+@if `p27 is 2 then do
+@begin
+@show
+`\`\`2Rock beats scissors! You win!
+Uncle Lenny hands you `v40 gold!
+@do money + `v40
+@end
+@end
+@if `p28 is 1 then do
+@begin
+@if `p27 is 0 then do
+@begin
+@show
+`\`\`2Paper beats rock! You win!
+Uncle Lenny hands you `v40 gold!
+@do money + `v40
+@end
+
+@if `p27 is 1 then do
+@begin
+@show
+`\`\`2The game is a tie!
+@do goto tiegame
+@end
+
+@if `p27 is 2 then do
+@begin
+@show
+`\`\`2Scissors beats paper! Uncle Lenny wins!
+You hand Uncle Lenny `v40 gold.
+@do money - `v40
+@end
+@end
+@if `p28 is 2 then do
+@begin
+@if `p27 is 0 then do
+@begin
+@show
+`\`\`2Rock beats scissors! Uncle Lenny wins!
+You hand Uncle Lenny `v40 gold.
+@do money - `v40
+@end
+
+@if `p27 is 1 then do
+@begin
+@show
+`\`\`2Scissors beats paper! You win!
+Uncle Lenny hands you `v40 gold!
+@do money + `v40
+@end
+
+@if `p27 is 2 then do
+@begin
+@show
+`\`2The game is a tie!
+@do goto tiegame
+@end
+@end
+@key
+//@datasave lenny.idf &playernum 1
+@do goto game
+
diff --git a/xtrn/lord2/cnw/locate.ref b/xtrn/lord2/cnw/locate.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c89ff218ebfdb72bcd0e4a52544c585450092596
--- /dev/null
+++ b/xtrn/lord2/cnw/locate.ref
@@ -0,0 +1,274 @@
+; Script file LOCATE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:41 2001
+
+@DECLARE locate 000000380
+@DECLARE nomore 000001328
+@DECLARE nomore 000009558
+@NOCHECK
+; End of .REF index
+
+; This REF is to find out where YOU and or the NPC is located on.
+; Its a good idea to add in this line when you want to define one to the player.
+; @do `t68 is ##
+;
+;
+@#LOCATE
+@if `t68 is 0 then `s10 is grass
+@if `t68 is 1 then `s10 is sand
+@if `t68 is 2 then `s10 is water
+@if `t68 is 3 then `s10 is tall`xgrass
+@if `t68 is 4 then `s10 is dirt
+@if `t68 is 5 then `s10 is mud
+@if `t68 is 6 then `s10 is tree
+@if `t68 is 7 then `s10 is hard`xbed
+@if `t68 is 8 then `s10 is soft`xbed
+@if `t68 is 9 then `s10 is large`xbed
+@if `t68 is 10 then `s10 is small`xbed
+@if `t68 is 11 then `s10 is queen`xbed
+@if `t68 is 12 then `s10 is table
+@if `t68 is 13 then `s10 is counter
+@if `t68 is 14 then `s10 is chair
+@if `t68 is 15 then `s10 is closet
+@if `t68 is 16 then `s10 is toilet
+@if `t68 is 17 then `s10 is stone`xfloor
+@if `t68 is 18 then `s10 is wood`xfloor
+@if `t68 is 19 then `s10 is dock
+@if `t68 is 20 then `s10 is floor
+@if `t68 is 21 then `s10 is bushes
+@if `t68 is 22 then `s10 is rock
+@if `t68 is 23 then `s10 is clouds
+@if `t68 is 24 then `s10 is snow
+@if `t68 is 25 then `s10 is ice
+@#NOMORE
+
+;need more
+@if `t68 is 26 then `s10 is grass
+@if `t68 is 27 then `s10 is grass
+@if `t68 is 28 then `s10 is grass
+@if `t68 is 29 then `s10 is grass
+@if `t68 is 30 then `s10 is grass
+@if `t68 is 31 then `s10 is grass
+@if `t68 is 32 then `s10 is grass
+@if `t68 is 33 then `s10 is grass
+@if `t68 is 34 then `s10 is grass
+@if `t68 is 35 then `s10 is grass
+@if `t68 is 36 then `s10 is grass
+@if `t68 is 37 then `s10 is grass
+@if `t68 is 38 then `s10 is grass
+@if `t68 is 39 then `s10 is grass
+@if `t68 is 40 then `s10 is grass
+@if `t68 is 41 then `s10 is grass
+@if `t68 is 42 then `s10 is grass
+@if `t68 is 43 then `s10 is grass
+@if `t68 is 44 then `s10 is grass
+@if `t68 is 45 then `s10 is grass
+@if `t68 is 46 then `s10 is grass
+@if `t68 is 47 then `s10 is grass
+@if `t68 is 48 then `s10 is grass
+@if `t68 is 49 then `s10 is grass
+@if `t68 is 50 then `s10 is grass
+@if `t68 is 51 then `s10 is grass
+@if `t68 is 52 then `s10 is grass
+@if `t68 is 53 then `s10 is grass
+@if `t68 is 54 then `s10 is grass
+@if `t68 is 55 then `s10 is grass
+@if `t68 is 56 then `s10 is grass
+@if `t68 is 57 then `s10 is grass
+@if `t68 is 58 then `s10 is grass
+@if `t68 is 59 then `s10 is grass
+@if `t68 is 60 then `s10 is grass
+@if `t68 is 61 then `s10 is grass
+@if `t68 is 62 then `s10 is grass
+@if `t68 is 63 then `s10 is grass
+@if `t68 is 64 then `s10 is grass
+@if `t68 is 65 then `s10 is grass
+@if `t68 is 66 then `s10 is grass
+@if `t68 is 67 then `s10 is grass
+@if `t68 is 68 then `s10 is grass
+@if `t68 is 69 then `s10 is grass
+@if `t68 is 70 then `s10 is grass
+@if `t68 is 71 then `s10 is grass
+@if `t68 is 72 then `s10 is grass
+@if `t68 is 73 then `s10 is grass
+@if `t68 is 74 then `s10 is grass
+@if `t68 is 75 then `s10 is grass
+@if `t68 is 76 then `s10 is grass
+@if `t68 is 77 then `s10 is grass
+@if `t68 is 78 then `s10 is grass
+@if `t68 is 79 then `s10 is grass
+@if `t68 is 80 then `s10 is grass
+@if `t68 is 81 then `s10 is grass
+@if `t68 is 82 then `s10 is grass
+@if `t68 is 83 then `s10 is grass
+@if `t68 is 84 then `s10 is grass
+@if `t68 is 85 then `s10 is grass
+@if `t68 is 86 then `s10 is grass
+@if `t68 is 87 then `s10 is grass
+@if `t68 is 88 then `s10 is grass
+@if `t68 is 89 then `s10 is grass
+@if `t68 is 90 then `s10 is grass
+@if `t68 is 91 then `s10 is grass
+@if `t68 is 92 then `s10 is grass
+@if `t68 is 93 then `s10 is grass
+@if `t68 is 94 then `s10 is grass
+@if `t68 is 95 then `s10 is grass
+@if `t68 is 96 then `s10 is grass
+@if `t68 is 97 then `s10 is grass
+@if `t68 is 98 then `s10 is grass
+@if `t68 is 99 then `s10 is grass
+@if `t68 is 100 then `s10 is grass
+@if `t68 is 101 then `s10 is grass
+@if `t68 is 102 then `s10 is grass
+@if `t68 is 103 then `s10 is grass
+@if `t68 is 104 then `s10 is grass
+@if `t68 is 105 then `s10 is grass
+@if `t68 is 106 then `s10 is grass
+@if `t68 is 107 then `s10 is grass
+@if `t68 is 108 then `s10 is grass
+@if `t68 is 109 then `s10 is grass
+@if `t68 is 110 then `s10 is grass
+@if `t68 is 111 then `s10 is grass
+@if `t68 is 112 then `s10 is grass
+@if `t68 is 113 then `s10 is grass
+@if `t68 is 114 then `s10 is grass
+@if `t68 is 115 then `s10 is grass
+@if `t68 is 116 then `s10 is grass
+@if `t68 is 117 then `s10 is grass
+@if `t68 is 118 then `s10 is grass
+@if `t68 is 119 then `s10 is grass
+@if `t68 is 120 then `s10 is grass
+@if `t68 is 121 then `s10 is grass
+@if `t68 is 122 then `s10 is grass
+@if `t68 is 123 then `s10 is grass
+@if `t68 is 124 then `s10 is grass
+@if `t68 is 125 then `s10 is grass
+@if `t68 is 126 then `s10 is grass
+@if `t68 is 127 then `s10 is grass
+@if `t68 is 128 then `s10 is grass
+@if `t68 is 129 then `s10 is grass
+@if `t68 is 130 then `s10 is grass
+@if `t68 is 131 then `s10 is grass
+@if `t68 is 132 then `s10 is grass
+@if `t68 is 133 then `s10 is grass
+@if `t68 is 134 then `s10 is grass
+@if `t68 is 135 then `s10 is grass
+@if `t68 is 136 then `s10 is grass
+@if `t68 is 137 then `s10 is grass
+@if `t68 is 138 then `s10 is grass
+@if `t68 is 139 then `s10 is grass
+@if `t68 is 140 then `s10 is grass
+@if `t68 is 141 then `s10 is grass
+@if `t68 is 142 then `s10 is grass
+@if `t68 is 143 then `s10 is grass
+@if `t68 is 144 then `s10 is grass
+@if `t68 is 145 then `s10 is grass
+@if `t68 is 146 then `s10 is grass
+@if `t68 is 147 then `s10 is grass
+@if `t68 is 148 then `s10 is grass
+@if `t68 is 149 then `s10 is grass
+@if `t68 is 150 then `s10 is grass
+@if `t68 is 151 then `s10 is grass
+@if `t68 is 152 then `s10 is grass
+@if `t68 is 153 then `s10 is grass
+@if `t68 is 154 then `s10 is grass
+@if `t68 is 155 then `s10 is grass
+@if `t68 is 156 then `s10 is grass
+@if `t68 is 157 then `s10 is grass
+@if `t68 is 158 then `s10 is grass
+@if `t68 is 159 then `s10 is grass
+@if `t68 is 160 then `s10 is grass
+@if `t68 is 161 then `s10 is grass
+@if `t68 is 162 then `s10 is grass
+@if `t68 is 163 then `s10 is grass
+@if `t68 is 164 then `s10 is grass
+@if `t68 is 165 then `s10 is grass
+@if `t68 is 166 then `s10 is grass
+@if `t68 is 167 then `s10 is grass
+@if `t68 is 168 then `s10 is grass
+@if `t68 is 169 then `s10 is grass
+@if `t68 is 170 then `s10 is grass
+@if `t68 is 171 then `s10 is grass
+@if `t68 is 172 then `s10 is grass
+@if `t68 is 173 then `s10 is grass
+@if `t68 is 174 then `s10 is grass
+@if `t68 is 175 then `s10 is grass
+@if `t68 is 176 then `s10 is grass
+@if `t68 is 177 then `s10 is grass
+@if `t68 is 178 then `s10 is grass
+@if `t68 is 179 then `s10 is grass
+@if `t68 is 180 then `s10 is grass
+@if `t68 is 181 then `s10 is grass
+@if `t68 is 182 then `s10 is grass
+@if `t68 is 183 then `s10 is grass
+@if `t68 is 184 then `s10 is grass
+@if `t68 is 185 then `s10 is grass
+@if `t68 is 186 then `s10 is grass
+@if `t68 is 187 then `s10 is grass
+@if `t68 is 188 then `s10 is grass
+@if `t68 is 189 then `s10 is grass
+@if `t68 is 190 then `s10 is grass
+@if `t68 is 191 then `s10 is grass
+@if `t68 is 192 then `s10 is grass
+@if `t68 is 193 then `s10 is grass
+@if `t68 is 194 then `s10 is grass
+@if `t68 is 195 then `s10 is grass
+@if `t68 is 196 then `s10 is grass
+@if `t68 is 197 then `s10 is grass
+@if `t68 is 198 then `s10 is grass
+@if `t68 is 199 then `s10 is grass
+@if `t68 is 200 then `s10 is grass
+@if `t68 is 201 then `s10 is grass
+@if `t68 is 202 then `s10 is grass
+@if `t68 is 203 then `s10 is grass
+@if `t68 is 204 then `s10 is grass
+@if `t68 is 205 then `s10 is grass
+@if `t68 is 206 then `s10 is grass
+@if `t68 is 207 then `s10 is grass
+@if `t68 is 208 then `s10 is grass
+@if `t68 is 209 then `s10 is grass
+@if `t68 is 210 then `s10 is grass
+@if `t68 is 211 then `s10 is grass
+@if `t68 is 212 then `s10 is grass
+@if `t68 is 213 then `s10 is grass
+@if `t68 is 214 then `s10 is grass
+@if `t68 is 215 then `s10 is grass
+@if `t68 is 216 then `s10 is grass
+@if `t68 is 217 then `s10 is grass
+@if `t68 is 218 then `s10 is grass
+@if `t68 is 219 then `s10 is grass
+@if `t68 is 220 then `s10 is grass
+@if `t68 is 221 then `s10 is grass
+@if `t68 is 222 then `s10 is grass
+@if `t68 is 223 then `s10 is grass
+@if `t68 is 224 then `s10 is grass
+@if `t68 is 225 then `s10 is grass
+@if `t68 is 226 then `s10 is grass
+@if `t68 is 227 then `s10 is grass
+@if `t68 is 228 then `s10 is grass
+@if `t68 is 229 then `s10 is grass
+@if `t68 is 230 then `s10 is grass
+@if `t68 is 231 then `s10 is grass
+@if `t68 is 232 then `s10 is grass
+@if `t68 is 233 then `s10 is grass
+@if `t68 is 234 then `s10 is grass
+@if `t68 is 235 then `s10 is grass
+@if `t68 is 236 then `s10 is grass
+@if `t68 is 237 then `s10 is grass
+@if `t68 is 238 then `s10 is grass
+@if `t68 is 239 then `s10 is grass
+@if `t68 is 240 then `s10 is grass
+@if `t68 is 241 then `s10 is grass
+@if `t68 is 242 then `s10 is grass
+@if `t68 is 243 then `s10 is grass
+@if `t68 is 244 then `s10 is grass
+@if `t68 is 245 then `s10 is grass
+@if `t68 is 246 then `s10 is grass
+@if `t68 is 247 then `s10 is grass
+@if `t68 is 248 then `s10 is grass
+@if `t68 is 249 then `s10 is grass
+@if `t68 is 250 then `s10 is grass
+@if `t68 is 251 then `s10 is grass
+@if `t68 is 252 then `s10 is grass
+@if `t68 is 253 then `s10 is grass
+@if `t68 is 254 then `s10 is grass
+@if `t68 is 255 then `s10 is grass
+@#NOMORE
diff --git a/xtrn/lord2/cnw/locate2.ref b/xtrn/lord2/cnw/locate2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..4ca8a06f6ff32a53a466013b39ff892326144329
--- /dev/null
+++ b/xtrn/lord2/cnw/locate2.ref
@@ -0,0 +1,912 @@
+; Script file LOCATE2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:42 2001
+
+@DECLARE location 000000158
+@NOCHECK
+; End of .REF index
+
+@#location
+@do `s02 is nobody`xknows
+@if `p21 is 26 then `s02 is Habib's`xTavern
+@if `p21 is 27 then `s02 is Habib's`xTavern:`xUpstairs
+@if `p21 is 28 then `s02 is Habib's`xTavern:`xTreasure`xCave
+@if `p21 is 29 then `s02 is Room`x&`xTreasury
+@if `p21 is 30 then `s02 is inside`xcastle`xwalls
+@if `p21 is 31 then `s02 is Evil`xBob's`xLockup
+@if `p21 is 32 then `s02 is Inside`xthe`xmall
+@if `p21 is 40 then `s02 is Arris`xGrasslands
+@if `p21 is 41 then `s02 is Black`xDragon`xCastle
+@if `p21 is 42 then `s02 is Arris`xGrasslands
+@if `p21 is 43 then `s02 is Kitely`xBeach
+@if `p21 is 44 then `s02 is Red`xDragon`xCastle
+@if `p21 is 46 then `s02 is inside`xalien`xcraft
+@if `p21 is 47 then `s02 is lower`xlevel`xalien`xcraft
+@if `p21 is 48 then `s02 is inside`xworking`xalien`xship
+@if `p21 is 49 then `s02 is Outside`xthe`xlodge
+@if `p21 is 50 then `s02 is Outside`xthe`xLodge
+@if `p21 is 51 then `s02 is The`xResort
+@if `p21 is 52 then `s02 is The`xResort`xLodge
+@if `p21 is 54 then `s02 is `%Coliseum`xBattle!
+@if `p21 is 55 then `s02 is West`xBeach`xEdge
+@if `p21 is 56 then `s02 is Northlands
+@if `p21 is 57 then `s02 is Northlands
+@if `p21 is 58 then `s02 is Northlands
+@if `p21 is 59 then `s02 is Revenge`xCastle
+@if `p21 is 60 then `s02 is First`xFloor
+@if `p21 is 61 then `s02 is Second`xFloor
+@if `p21 is 62 then `s02 is Second`xFloor
+@if `p21 is 63 then `s02 is Isle`xof`xthe`xPhreaks
+@if `p21 is 64 then `s02 is Inside`xPhreak's`xKeep
+@if `p21 is 65 then `s02 is Phreak's`xKeep`xGuest`xHouse
+@if `p21 is 66 then `s02 is Greentree`xChurch
+@if `p21 is 67 then `s02 is Inside`xGreentree
+@if `p21 is 68 then `s02 is Inside`xGreentree
+@if `p21 is 69 then `s02 is Inside`xGreentree
+@if `p21 is 70 then `s02 is Lodge`xrooms
+@if `p21 is 71 then `s02 is FlagCity`xDocks
+@if `p21 is 72 then `s02 is Neighbors`xHouse
+@if `p21 is 73 then `s02 is FlagCity`xInn
+@if `p21 is 74 then `s02 is The`xWedding`xChapel
+@if `p21 is 75 then `s02 is Barak's`xHouse
+@if `p21 is 76 then `s02 is Inside`xthe`xChapel
+@if `p21 is 77 then `s02 is Up`xin`xthe`xtreetops
+@if `p21 is 80 then `s02 is TeamHouse`x2
+@if `p21 is 81 then `s02 is Gypsy`xCamp`xMorning
+@if `p21 is 82 then `s02 is Gypsy`xCamp`xEvening
+@if `p21 is 83 then `s02 is Gypsy`xTent`xMorning
+@if `p21 is 84 then `s02 is Gypsy`xTent`xEvening
+@if `p21 is 85 then `s02 is Gypsy`xEncampment
+@if `p21 is 86 then `s02 is Gypsy`xTent
+@if `p21 is 101 then `s02 is Castle`xTower
+@if `p21 is 102 then `s02 is The`xPrivate`xRooms
+@if `p21 is 103 then `s02 is Gum-Lass`xCastle
+@if `p21 is 104 then `s02 is Gumtown`xTownhall
+@if `p21 is 105 then `s02 is The`xRight`xHouse
+@if `p21 is 106 then `s02 is The`xLeft`xHouse
+@if `p21 is 107 then `s02 is Gum`xTown
+@if `p21 is 110 then `s02 is The`xBasement
+@if `p21 is 111 then `s02 is Mythran's`xCottage
+@if `p21 is 112 then `s02 is Strange`xIsland
+@if `p21 is 114 then `s02 is Koshi`xCavern
+@if `p21 is 115 then `s02 is Koshi`xCavern
+@if `p21 is 116 then `s02 is Koshi`xJudgement
+@if `p21 is 120 then `s02 is Arris`xGrasslands
+@if `p21 is 121 then `s02 is Arris`xGrasslands
+@if `p21 is 122 then `s02 is Arris`xGrasslands
+@if `p21 is 123 then `s02 is Kitely`xBeach
+@if `p21 is 130 then `s02 is Inside`xthe`xCastle
+@if `p21 is 131 then `s02 is on`xthe`xrooftop
+@if `p21 is 132 then `s02 is Taking`xa`xswim
+@if `p21 is 133 then `s02 is Bridge`xof`xThieves
+@if `p21 is 135 then `s02 is Gargoyle's`xLanding
+@if `p21 is 136 then `s02 is BigWood`xForest
+@if `p21 is 137 then `s02 is BigWood`xForest
+@if `p21 is 138 then `s02 is BigWood`xForest
+@if `p21 is 139 then `s02 is Northlands
+@if `p21 is 140 then `s02 is Gorilla`xVilla/Overlook
+@if `p21 is 141 then `s02 is SoldaCar:`x1st`xFloor
+@if `p21 is 142 then `s02 is 3rd`xFloor
+@if `p21 is 146 then `s02 is Weird`xWorld
+@if `p21 is 147 then `s02 is Inside`xGreentree
+@if `p21 is 148 then `s02 is Inside`xGreentree
+@if `p21 is 149 then `s02 is Inside`xGreentree
+@if `p21 is 150 then `s02 is Commoner's`xhouse
+@if `p21 is 151 then `s02 is FlagCity
+@if `p21 is 152 then `s02 is PortTown
+@if `p21 is 153 then `s02 is Sea`xHag`xHotel
+@if `p21 is 154 then `s02 is Cloudy`xCity
+@if `p21 is 155 then `s02 is Mother's`xHouse
+@if `p21 is 156 then `s02 is Township`xof`xNew`xStonebrook
+@if `p21 is 157 then `s02 is Ma's`xBoarding`xHouse
+@if `p21 is 158 then `s02 is Ma's`xBoarding`xHouse
+@if `p21 is 159 then `s02 is Red`xDragon`xInn
+@if `p21 is 160 then `s02 is Uncle`xEdward`x&`xLaura's`xhouse
+@if `p21 is 167 then `s02 is Hidden`xunderground`xcave`x-`xWest
+@if `p21 is 168 then `s02 is Hidden`xunderground`xcave`x-`xeast
+@if `p21 is 169 then `s02 is Inside`xDoc`xFarrell's`xoffice
+@if `p21 is 170 then `s02 is Brutal`xWorld
+@if `p21 is 171 then `s02 is Shangri`xLa
+@if `p21 is 172 then `s02 is Matt's`xIsle
+@if `p21 is 173 then `s02 is Final`xShowdown
+@if `p21 is 179 then `s02 is The`xBunny`xTrail
+@if `p21 is 180 then `s02 is World`xWar`xII
+@if `p21 is 195 then `s02 is Koshi`xVillage
+@if `p21 is 196 then `s02 is Arris`xGrasslands
+@if `p21 is 197 then `s02 is West`xHighway
+@if `p21 is 198 then `s02 is West`xHighway
+@if `p21 is 199 then `s02 is West`xHighway
+@if `p21 is 200 then `s02 is West`xHighway
+@if `p21 is 201 then `s02 is West`xHighway
+@if `p21 is 202 then `s02 is West`xHighway`x&`xLoki's`xInn
+@if `p21 is 203 then `s02 is ArrisLand`xFerry
+@if `p21 is 204 then `s02 is Bridge`xof`xThieves
+@if `p21 is 205 then `s02 is Bridge`xof`xThieves
+@if `p21 is 206 then `s02 is Bridge`xof`xThieves
+@if `p21 is 207 then `s02 is Bridge`xof`xThieves
+@if `p21 is 208 then `s02 is Bridge`xof`xThieves
+@if `p21 is 209 then `s02 is Bridge`xof`xThieves
+@if `p21 is 210 then `s02 is Bridge`xof`xThieves
+@if `p21 is 211 then `s02 is Bridge`xof`xThieves
+@if `p21 is 212 then `s02 is Bridge`xof`xThieves
+@if `p21 is 213 then `s02 is Codax's`xCastle
+@if `p21 is 214 then `s02 is Bridge`xof`xThieves
+@if `p21 is 215 then `s02 is West`xBeach`xFerry
+@if `p21 is 216 then `s02 is BigWood`xForest
+@if `p21 is 217 then `s02 is BigWood`xForest
+@if `p21 is 218 then `s02 is BigWood`xForest
+@if `p21 is 219 then `s02 is DarkForest/ArticNight`xHQ
+@if `p21 is 220 then `s02 is Northlands
+@if `p21 is 221 then `s02 is Northlands
+@if `p21 is 222 then `s02 is Northlands
+@if `p21 is 223 then `s02 is Northlands
+@if `p21 is 224 then `s02 is `%Arris`xTraining`xGrounds
+@if `p21 is 229 then `s02 is Your`xLittle`xHomestead
+@if `p21 is 230 then `s02 is Jeb's`xHouse
+@if `p21 is 231 then `s02 is Inside`xPawn`xShop
+@if `p21 is 232 then `s02 is TreeHouse
+@if `p21 is 233 then `s02 is Neighbors`xHouse
+@if `p21 is 234 then `s02 is Neighbors`xHouse
+@if `p21 is 235 then `s02 is Neighbors`xHouse
+@if `p21 is 236 then `s02 is Uncle`xEdward`x&`xLaura's`xhouse
+@if `p21 is 237 then `s02 is RockHolm`xMountains
+@if `p21 is 238 then `s02 is RockHolm`xMountains
+@if `p21 is 239 then `s02 is RockHolm`xMountains
+@if `p21 is 240 then `s02 is Grizelda's`xHouse
+@if `p21 is 245 then `s02 is SpringFang's`xHouse`xof`xWonders
+@if `p21 is 246 then `s02 is Place`xof`xPurchases
+@if `p21 is 247 then `s02 is SpringFang's`xLair
+@if `p21 is 248 then `s02 is Warp`xZone
+@if `p21 is 249 then `s02 is Fightin'
+@if `p21 is 250 then `s02 is Strange`xRoom
+@if `p21 is 252 then `s02 is Inside`xCasino
+@if `p21 is 253 then `s02 is Innner`xDomain
+@if `p21 is 260 then `s02 is The`xEnd`xof`xTime
+@if `p21 is 261 then `s02 is Inside`xLoki's`xInn
+@if `p21 is 264 then `s02 is Thrown`xRoom
+@if `p21 is 280 then `s02 is Arris`xGrasslands
+@if `p21 is 281 then `s02 is Arris`xGrasslands
+@if `p21 is 282 then `s02 is Arris`xGrasslands
+@if `p21 is 283 then `s02 is Kitely`xBeach
+@if `p21 is 292 then `s02 is Shara's`xBurning`xPalace
+@if `p21 is 293 then `s02 is Main`xBattlefield
+@if `p21 is 294 then `s02 is Battlefield`xeast
+@if `p21 is 295 then `s02 is West`xBeach
+@if `p21 is 296 then `s02 is BigWood`xForest
+@if `p21 is 297 then `s02 is Camelot
+@if `p21 is 298 then `s02 is SmallWood`xField
+@if `p21 is 299 then `s02 is SmallWood`xField
+@if `p21 is 300 then `s02 is BigWood`xForest
+@if `p21 is 301 then `s02 is BigWood`xForest
+@if `p21 is 302 then `s02 is BigWood`xForest
+@if `p21 is 303 then `s02 is BigWood`xForest
+@if `p21 is 304 then `s02 is Northlands
+@if `p21 is 305 then `s02 is Black`xDeath's`xTavern
+@if `p21 is 316 then `s02 is SoldaCar`xHeadquarters
+@if `p21 is 317 then `s02 is RockHolm`xMountains
+@if `p21 is 318 then `s02 is RockHolm`xMountains
+@if `p21 is 319 then `s02 is RockHolm`xMountains`x&`xTemple
+@if `p21 is 320 then `s02 is TeamHouse`x2
+@if `p21 is 321 then `s02 is Divine`xComedy
+@if `p21 is 332 then `s02 is Matt's`xHouse
+@if `p21 is 333 then `s02 is Inside`xthe`xDomain
+@if `p21 is 341 then `s02 is Inside`xprivate`xrooms`x101`x-`x105
+@if `p21 is 342 then `s02 is Inside`xprivate`xrooms`x106`x-`x109
+@if `p21 is 343 then `s02 is Private`xRooms`x101`x-`x109
+@if `p21 is 344 then `s02 is Hallway`xto`xThrown`xRoom
+@if `p21 is 345 then `s02 is Zeed's`xLaboratory
+@if `p21 is 346 then `s02 is Inside`xprivate`xrooms`x113`x-`x115
+@if `p21 is 347 then `s02 is Inside`xprivate`xrooms`x110`x-`x112
+@if `p21 is 353 then `s02 is `4Strange`xUnderground`xCavern
+@if `p21 is 354 then `s02 is `4The`xGym
+@if `p21 is 355 then `s02 is `4The`xRed`xDragon's`xCavern
+@if `p21 is 360 then `s02 is Arris`xGrasslands
+@if `p21 is 361 then `s02 is Arris`xGrasslands
+@if `p21 is 362 then `s02 is Arris`xGrasslands
+@if `p21 is 363 then `s02 is Kitely`xBeach
+@if `p21 is 373 then `s02 is Power's`xHouse`xof`xEvil
+@if `p21 is 375 then `s02 is West`xBeach
+@if `p21 is 376 then `s02 is BigWood`xForest
+@if `p21 is 377 then `s02 is BigWood`xForest
+@if `p21 is 378 then `s02 is BigWood`xForest
+@if `p21 is 379 then `s02 is BigWood`xForest`x&`xTemple
+@if `p21 is 380 then `s02 is BigWood`xForest
+@if `p21 is 381 then `s02 is BigWood`xForest
+@if `p21 is 382 then `s02 is BigWood`xForest
+@if `p21 is 383 then `s02 is BigWood`xForest
+@if `p21 is 384 then `s02 is BigWood`xForest
+@if `p21 is 385 then `s02 is Northlands
+@if `p21 is 386 then `s02 is Hong`xKong`xStudio
+@if `p21 is 387 then `s02 is Northlands
+@if `p21 is 388 then `s02 is Northlands
+@if `p21 is 396 then `s02 is Old`xRed`xDragon's`xlair
+@if `p21 is 397 then `s02 is RockHolm`xMountains
+@if `p21 is 398 then `s02 is RockHolm`xMountains
+@if `p21 is 399 then `s02 is RockHolm`xMountains
+@if `p21 is 400 then `s02 is Northlands
+@if `p21 is 417 then `s02 is A`xFortress`xFear`xHouse
+@if `p21 is 418 then `s02 is House`xIn`xFortress`xFear
+@if `p21 is 419 then `s02 is A`xFortress`xFear`xHouse
+@if `p21 is 420 then `s02 is House`xIn`xFortress`xFear
+@if `p21 is 421 then `s02 is House`xIn`xFortress`xFear
+@if `p21 is 422 then `s02 is Private`xRooms`x110`x-`x118
+@if `p21 is 423 then `s02 is Figaro`xCastle's`xInn
+@if `p21 is 424 then `s02 is Figaro`xCastle
+@if `p21 is 425 then `s02 is Figaro's`xLibrary
+@if `p21 is 441 then `s02 is Crater`xin`xArris`xGrasslands
+@if `p21 is 442 then `s02 is Arris`xGrasslands
+@if `p21 is 443 then `s02 is Kitely`xBeach
+@if `p21 is 444 then `s02 is ArrisVille
+@if `p21 is 450 then `s02 is ArrisVille`xInn
+@if `p21 is 451 then `s02 is Ship
+@if `p21 is 455 then `s02 is North`xBeach
+@if `p21 is 456 then `s02 is Sosen`xVillage
+@if `p21 is 457 then `s02 is North`xBeach
+@if `p21 is 458 then `s02 is North`xBeach
+@if `p21 is 459 then `s02 is North`xBeach
+@if `p21 is 460 then `s02 is North`xBeach
+@if `p21 is 461 then `s02 is North`xBeach
+@if `p21 is 462 then `s02 is North`xBeach
+@if `p21 is 463 then `s02 is North`xBeach
+@if `p21 is 464 then `s02 is North`xBeach
+@if `p21 is 465 then `s02 is Gum`xTown
+@if `p21 is 466 then `s02 is North`xBeach
+@if `p21 is 467 then `s02 is North`xBeach
+@if `p21 is 468 then `s02 is North`xBeach
+@if `p21 is 469 then `s02 is North`xBeach
+@if `p21 is 470 then `s02 is North`xBeach
+@if `p21 is 471 then `s02 is North`xBeach`x&`xMimsic`xWharf
+@if `p21 is 472 then `s02 is North`xBeach
+@if `p21 is 473 then `s02 is North`xBeach
+@if `p21 is 474 then `s02 is North`xBeach
+@if `p21 is 475 then `s02 is North`xBeach
+@if `p21 is 476 then `s02 is North`xBeach
+@if `p21 is 477 then `s02 is North`xBeach
+@if `p21 is 478 then `s02 is Sandbar
+@if `p21 is 479 then `s02 is North`xBeach
+@if `p21 is 480 then `s02 is NorthLand`xGateWay
+@if `p21 is 484 then `s02 is Power's`xThrone`xRoom
+@if `p21 is 486 then `s02 is Codax's`xThrone`xRoom
+@if `p21 is 488 then `s02 is Shara's`xThrone`xRoom
+@if `p21 is 492 then `s02 is The`xBunny`xCave
+@if `p21 is 497 then `s02 is Top`xOf`xThe`xTower
+@if `p21 is 498 then `s02 is Fortress`xFear
+@if `p21 is 499 then `s02 is West`xSide`xOf`xThe`xCastle
+@if `p21 is 500 then `s02 is Middle`xOf`xThe`xCastle
+@if `p21 is 501 then `s02 is East`xSide`xOf`xThe`xCastle
+@if `p21 is 502 then `s02 is Inside`xprivate`xrooms`x116`x-`x118
+@if `p21 is 503 then `s02 is Castle`xMovibility`xArea
+@if `p21 is 504 then `s02 is Main`xHall
+@if `p21 is 505 then `s02 is Figaro's`xPrison`xCell`xArea
+@if `p21 is 506 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 507 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 508 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 509 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 510 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 511 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 512 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 522 then `s02 is UGA
+@if `p21 is 523 then `s02 is Kitely`xBeach
+@if `p21 is 524 then `s02 is South`xof`xArrisVille
+@if `p21 is 525 then `s02 is SouthEast`xof`xArrisVille
+@if `p21 is 526 then `s02 is SouthEast`xof`xArrisVille
+@if `p21 is 527 then `s02 is SouthEast`xof`xArrisVille
+@if `p21 is 528 then `s02 is SouthEast`xof`xArrisVille
+@if `p21 is 529 then `s02 is SouthEast`xof`xArrisVille
+@if `p21 is 530 then `s02 is SouthEast`xof`xArrisVille
+@if `p21 is 531 then `s02 is Southeast`xof`xArrisville
+@if `p21 is 532 then `s02 is Neighbor's`xHouse
+@if `p21 is 533 then `s02 is S.W.`xof`xSosen`xVillage
+@if `p21 is 534 then `s02 is Southwest`xof`xSosen`xVillage
+@if `p21 is 535 then `s02 is West`xof`xSosen`xVillage
+@if `p21 is 536 then `s02 is Sosen`xVillage
+@if `p21 is 537 then `s02 is Sosen`xVillage`xHouse
+@if `p21 is 555 then `s02 is South`xof`xTropical`xIsland
+@if `p21 is 556 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 557 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 558 then `s02 is Tropical`xIsland
+@if `p21 is 559 then `s02 is Trashmans`xHouse
+@if `p21 is 560 then `s02 is North`xBeach`xPass
+@if `p21 is 564 then `s02 is Power's`xCastle`xFoyer
+@if `p21 is 566 then `s02 is Codax's`xCastle`xFoyer
+@if `p21 is 568 then `s02 is Shara's`xBurning`xMonuments
+@if `p21 is 572 then `s02 is The`xWarrior's`xGraveyard
+@if `p21 is 573 then `s02 is The`xJanitor's`xRoom
+@if `p21 is 574 then `s02 is In`xthe`xTemple
+@if `p21 is 575 then `s02 is Felicity's`xGuest`xHouse
+@if `p21 is 577 then `s02 is Bottom`xOf`xThe`xTower
+@if `p21 is 578 then `s02 is Dock
+@if `p21 is 579 then `s02 is King's`xCasino
+@if `p21 is 580 then `s02 is The`xGreat`xHall
+@if `p21 is 586 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 589 then `s02 is Basement`xof`xthe`xTower
+@if `p21 is 590 then `s02 is The`xKrystal`xGolem's`xLair
+@if `p21 is 592 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 594 then `s02 is Cave`xNorthwest
+@if `p21 is 595 then `s02 is Treasure`xRoom
+@if `p21 is 596 then `s02 is Cave`xNortheast
+@if `p21 is 606 then `s02 is Pirate`xShip
+@if `p21 is 607 then `s02 is Cell`xBlock`xD
+@if `p21 is 608 then `s02 is SouthEast`xof`xArrisVille
+@if `p21 is 609 then `s02 is SouthEast`xof`xArrisVille
+@if `p21 is 610 then `s02 is Cell`xBlock`xA
+@if `p21 is 611 then `s02 is Southwest`xof`xSosen`xVillage
+@if `p21 is 612 then `s02 is Southwest`xof`xSosen`xVillage
+@if `p21 is 613 then `s02 is Southwest`xof`xSosen`xVillage
+@if `p21 is 615 then `s02 is Neighbors`xHouse
+@if `p21 is 616 then `s02 is Sosen`xInn
+@if `p21 is 617 then `s02 is Sosen`xInn
+@if `p21 is 620 then `s02 is Lost`xin`xthe`xvoid!`xLOSER!
+@if `p21 is 628 then `s02 is ????
+@if `p21 is 631 then `s02 is Under`xThe`xSea
+@if `p21 is 635 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 636 then `s02 is Safehouse
+@if `p21 is 637 then `s02 is The`xSea
+@if `p21 is 639 then `s02 is The`xSea
+@if `p21 is 640 then `s02 is Stone`xBeach`xBridge
+@if `p21 is 644 then `s02 is Power's`xCastle`xEntrance
+@if `p21 is 646 then `s02 is Courtyard
+@if `p21 is 648 then `s02 is Burnie`xCourtyard
+@if `p21 is 653 then `s02 is Felicity's`xTemple
+@if `p21 is 666 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 668 then `s02 is Basement`xof`xthe`xTower
+@if `p21 is 669 then `s02 is Basement`xof`xthe`xTower
+@if `p21 is 670 then `s02 is Basement`xof`xthe`xTower
+@if `p21 is 672 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 674 then `s02 is Great`xHealing`xLake
+@if `p21 is 675 then `s02 is Cave`xof`xDespare`xand`xHope
+@if `p21 is 676 then `s02 is Cave`xMaze
+@if `p21 is 686 then `s02 is Below`xDecks
+@if `p21 is 688 then `s02 is Prison`xRecreational`xArea
+@if `p21 is 689 then `s02 is Prison`xEntrance
+@if `p21 is 693 then `s02 is Southwest`xof`xSosen`xVillage
+@if `p21 is 694 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 695 then `s02 is Ocean
+@if `p21 is 696 then `s02 is Ocean
+@if `p21 is 705 then `s02 is DragonTooth`xIsland
+@if `p21 is 706 then `s02 is DragonTooth`xCastle
+@if `p21 is 707 then `s02 is Dragon`xTooth`xCastle
+@if `p21 is 708 then `s02 is Inner`xSanctum
+@if `p21 is 711 then `s02 is Inside`xHong`xKong`xStudio
+@if `p21 is 712 then `s02 is `4Chan's`x`0Underground
+@if `p21 is 713 then `s02 is Inside`xHong`xKong`xStudio
+@if `p21 is 715 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 716 then `s02 is SeaScape`xBar`xAnd`xGrille
+@if `p21 is 717 then `s02 is The`xSeaScape`xBar`x&`xGrille
+@if `p21 is 720 then `s02 is A`xcamp
+@if `p21 is 721 then `s02 is The`xSea`xSerpent's`xCabin
+@if `p21 is 735 then `s02 is Tension's`xHouse,`xMain`xFloor
+@if `p21 is 736 then `s02 is Tension`xHouse,`xSplit`xRoom
+@if `p21 is 737 then `s02 is Tension`xHouse,`xDragon`xSlaves
+@if `p21 is 738 then `s02 is The`xFace`xof`xthe`xThing
+@if `p21 is 739 then `s02 is Valley`xof`xthe`xRed`xDragons
+@if `p21 is 741 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 742 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 743 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 744 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 745 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 746 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 749 then `s02 is Basement`xof`xthe`xTower
+@if `p21 is 752 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 753 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 754 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 755 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 756 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 757 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 758 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 759 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 760 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 761 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 762 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 763 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 764 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 765 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 766 then `s02 is Prison`xCafe
+@if `p21 is 768 then `s02 is Prison`xCafe,`xHealers`xand`xTrack
+@if `p21 is 769 then `s02 is Warden`xand`xExacution`xArea
+@if `p21 is 770 then `s02 is SouthEast`xof`xArrisVille
+@if `p21 is 771 then `s02 is Marker`xBuoy
+@if `p21 is 772 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 773 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 775 then `s02 is SLAYER`xFight
+@if `p21 is 776 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 777 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 778 then `s02 is Typhoon
+@if `p21 is 779 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 780 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 781 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 782 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 783 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 784 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 785 then `s02 is Ocean
+@if `p21 is 786 then `s02 is S.`xof`xDragonTooth`xIsland
+@if `p21 is 787 then `s02 is S.E.`xof`xDragon`xTooth`xIsland
+@if `p21 is 789 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 790 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 791 then `s02 is Maelstrom
+@if `p21 is 792 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 793 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 794 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 795 then `s02 is Sea`xof`xthe`xEast
+@if `p21 is 796 then `s02 is Inside`xOdin's`xKeep
+@if `p21 is 797 then `s02 is The`xSea
+@if `p21 is 798 then `s02 is Eric's`xBar
+@if `p21 is 800 then `s02 is Stone`xBeach`xPass
+@if `p21 is 801 then `s02 is Sea`xSerpent
+@if `p21 is 804 then `s02 is Underground`xPassage
+@if `p21 is 805 then `s02 is Underground`xPassage
+@if `p21 is 815 then `s02 is House`xof`xthe`xTensions
+@if `p21 is 816 then `s02 is Tension`xHouse,`xLabaratory
+@if `p21 is 817 then `s02 is Tension`xHouse,`xIndoor`xIsland
+@if `p21 is 818 then `s02 is Dragon`xVillage
+@if `p21 is 819 then `s02 is Valley`xof`xthe`xRed`xDragons
+@if `p21 is 821 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 822 then `s02 is Glendale`xCastle
+@if `p21 is 823 then `s02 is Glendale`xCrossRoads
+@if `p21 is 824 then `s02 is Glendale
+@if `p21 is 825 then `s02 is Inside`xGlendale
+@if `p21 is 826 then `s02 is Inside`xGlendale`xCastle
+@if `p21 is 827 then `s02 is Glendale`xHotel
+@if `p21 is 828 then `s02 is Third`xFloor`xof`xthe`xTower
+@if `p21 is 829 then `s02 is Ground`xLevel`xof`xthe`xTower
+@if `p21 is 830 then `s02 is The`xTeleporter`xGems
+@if `p21 is 831 then `s02 is Second`xFloor`xof`xthe`xTower
+@if `p21 is 832 then `s02 is Q's`xStables
+@if `p21 is 833 then `s02 is Q's`xInn
+@if `p21 is 834 then `s02 is Main`xBuilding
+@if `p21 is 835 then `s02 is Inside`xQ's`xFortress
+@if `p21 is 836 then `s02 is Q's`xBar
+@if `p21 is 837 then `s02 is Q's`xSupplies
+@if `p21 is 838 then `s02 is Q's`xHealers
+@if `p21 is 845 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 847 then `s02 is Cell`xBlock`xC
+@if `p21 is 850 then `s02 is Cell`xBlock`xB
+@if `p21 is 851 then `s02 is Southern`xCoast
+@if `p21 is 855 then `s02 is SLAYER's`xDomain
+@if `p21 is 856 then `s02 is Danger`xZone
+@if `p21 is 860 then `s02 is Breanna's`xHut
+@if `p21 is 862 then `s02 is Devils`xIsland`xNorth`xSide
+@if `p21 is 863 then `s02 is Demon's`xInn
+@if `p21 is 864 then `s02 is `4HeLL
+@if `p21 is 865 then `s02 is Devils`xIsland`xbar
+@if `p21 is 866 then `s02 is Devils`xIsland`xBar`x(Bathroom)
+@if `p21 is 867 then `s02 is Offshore
+@if `p21 is 868 then `s02 is Offshore
+@if `p21 is 869 then `s02 is Offshore
+@if `p21 is 870 then `s02 is Shipwreck`xlower`xlevel
+@if `p21 is 871 then `s02 is Shipwreck`xupper`xlevel
+@if `p21 is 872 then `s02 is Secret`xTemple`xRoom
+@if `p21 is 873 then `s02 is Old`xDragon`xTooth`xTemple
+@if `p21 is 875 then `s02 is Screen`x875
+@if `p21 is 876 then `s02 is North`xof`xPortTown
+@if `p21 is 877 then `s02 is The`xSea
+@if `p21 is 879 then `s02 is Inside`xOdin's`xCastle
+@if `p21 is 880 then `s02 is StonePass`xLodge
+@if `p21 is 881 then `s02 is Locker`xHouse:`x2nd`xHall
+@if `p21 is 882 then `s02 is Locker`xHouse:`x3rd`xHall
+@if `p21 is 895 then `s02 is Tall`xTale`xMountain
+@if `p21 is 896 then `s02 is Tension's`xHouse,`xDungeon
+@if `p21 is 897 then `s02 is Tension`xHouse,`xOutdoor`xRoom
+@if `p21 is 898 then `s02 is Valley`xof`xthe`xRed`xDragons
+@if `p21 is 899 then `s02 is The`xMother`xof`xRed`xDragons
+@if `p21 is 901 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 909 then `s02 is Hell's`xTests
+@if `p21 is 911 then `s02 is Stair`xCase
+@if `p21 is 912 then `s02 is Undersea`xCave
+@if `p21 is 913 then `s02 is Q's`xForge
+@if `p21 is 914 then `s02 is Q's`xArmory
+@if `p21 is 920 then `s02 is Red`xDragon`xInn
+@if `p21 is 921 then `s02 is Inn
+@if `p21 is 925 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 926 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 927 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 928 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 929 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 931 then `s02 is Southern`xCoast
+@if `p21 is 934 then `s02 is The`xPier
+@if `p21 is 935 then `s02 is Path`xto`xSLAYER's`xDomain
+@if `p21 is 936 then `s02 is Jagged`xBeach
+@if `p21 is 937 then `s02 is Jagged`xBeach
+@if `p21 is 938 then `s02 is Jagged`xBeach
+@if `p21 is 939 then `s02 is Jagged`xBeach
+@if `p21 is 940 then `s02 is Breanna's`xCove
+@if `p21 is 941 then `s02 is Jagged`xBeach
+@if `p21 is 942 then `s02 is Devils`xIsland`xSouth`xSide
+@if `p21 is 943 then `s02 is Jagged`xBeach
+@if `p21 is 944 then `s02 is Jagged`xBeach
+@if `p21 is 945 then `s02 is Jagged`xBeach
+@if `p21 is 946 then `s02 is Jagged`xBeach
+@if `p21 is 947 then `s02 is Jagged`xBeach
+@if `p21 is 948 then `s02 is Jagged`xBeach
+@if `p21 is 949 then `s02 is Jagged`xBeach
+@if `p21 is 950 then `s02 is Shipwreck`xbeach
+@if `p21 is 951 then `s02 is Jagged`xBeach
+@if `p21 is 952 then `s02 is Jagged`xBeach
+@if `p21 is 953 then `s02 is Jagged`xBeach
+@if `p21 is 954 then `s02 is Jagged`xBeach
+@if `p21 is 955 then `s02 is Jagged`xBeach
+@if `p21 is 956 then `s02 is PortTown`xGate
+@if `p21 is 957 then `s02 is East`xPortTown`xBridge
+@if `p21 is 958 then `s02 is East`xBeach
+@if `p21 is 959 then `s02 is East`xBeach
+@if `p21 is 960 then `s02 is Edge`xof`xStonePass
+@if `p21 is 961 then `s02 is Locker`xHouse:`x1st`xHall
+@if `p21 is 962 then `s02 is Locker`xHouse:`xFront`xDesk
+@if `p21 is 963 then `s02 is Locker`xHouse:`x4th`xHall
+@if `p21 is 974 then `s02 is Concert`xHall`x-`xMoshpit
+@if `p21 is 975 then `s02 is Backstage`xParty`xw/`xGroupies
+@if `p21 is 976 then `s02 is your`xsubconscious
+@if `p21 is 977 then `s02 is The`xCity`xof`xAtlantis`x(NE)
+@if `p21 is 978 then `s02 is SandCity`xBar
+@if `p21 is 979 then `s02 is SandCity`xInn
+@if `p21 is 980 then `s02 is SandCity
+@if `p21 is 981 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 983 then `s02 is The`xSword`xCastle`xCaves
+@if `p21 is 984 then `s02 is The`xSword`xCastle`xCaves
+@if `p21 is 985 then `s02 is The`xSword`xCastle`xCaves
+@if `p21 is 986 then `s02 is The`xSword`xCastle`xCaves
+@if `p21 is 989 then `s02 is Hell
+@if `p21 is 998 then `s02 is Knotwood`xVillage
+@if `p21 is 999 then `s02 is Knotwood`xCastle
+@if `p21 is 1000 then `s02 is Red`xDragon`xTown
+@if `p21 is 1001 then `s02 is Legendary`xForest
+@if `p21 is 1002 then `s02 is Jasminita`xRoom2
+@if `p21 is 1003 then `s02 is Royal`xChambers
+@if `p21 is 1004 then `s02 is Esperanto`xChambers
+@if `p21 is 1006 then `s02 is Barren`xReef
+@if `p21 is 1007 then `s02 is Great`xWestern`xOcean
+@if `p21 is 1008 then `s02 is Great`xWestern`xOcean
+@if `p21 is 1009 then `s02 is Great`xWestern`xOcean
+@if `p21 is 1010 then `s02 is Great`xWestern`xOcean
+@if `p21 is 1011 then `s02 is Southern`xCoast
+@if `p21 is 1012 then `s02 is Sandy`xJagged`xBeach
+@if `p21 is 1013 then `s02 is Jagged`xBeach
+@if `p21 is 1014 then `s02 is Jagged`xBeach
+@if `p21 is 1015 then `s02 is West`xRoad
+@if `p21 is 1016 then `s02 is West`xRoad
+@if `p21 is 1017 then `s02 is Hill`x(tm)
+@if `p21 is 1018 then `s02 is West`xRoad
+@if `p21 is 1019 then `s02 is OutRock
+@if `p21 is 1020 then `s02 is Red`xDragon`xTown
+@if `p21 is 1021 then `s02 is West`xForest
+@if `p21 is 1022 then `s02 is Split`xRock
+@if `p21 is 1023 then `s02 is Split`xRock
+@if `p21 is 1024 then `s02 is Split`xRock
+@if `p21 is 1025 then `s02 is Split`xRock
+@if `p21 is 1026 then `s02 is Eastern`xDesert
+@if `p21 is 1027 then `s02 is Eastern`xDesert
+@if `p21 is 1028 then `s02 is Eastern`xDesert
+@if `p21 is 1029 then `s02 is Oasis
+@if `p21 is 1030 then `s02 is The`xPaladin`xOasis
+@if `p21 is 1031 then `s02 is Figaro,`xthe`xdesert`xcastle
+@if `p21 is 1032 then `s02 is Eastern`xDesert
+@if `p21 is 1033 then `s02 is Eastern`xDesert`xedge
+@if `p21 is 1034 then `s02 is Dark`xPassage
+@if `p21 is 1035 then `s02 is WaterFall
+@if `p21 is 1036 then `s02 is South`xof`xPortTown
+@if `p21 is 1037 then `s02 is East`xForest`xand`xOdin's`xCastle
+@if `p21 is 1038 then `s02 is East`xForest
+@if `p21 is 1039 then `s02 is East`xForest
+@if `p21 is 1040 then `s02 is Doc`xFarrell's`xOffice
+@if `p21 is 1045 then `s02 is Flagcity`xTemple
+@if `p21 is 1046 then `s02 is Sosen`xTemple
+@if `p21 is 1047 then `s02 is Rockholm`xMountains`xTemple
+@if `p21 is 1056 then `s02 is The`xCity`xof`xAtlantis`x(SW)
+@if `p21 is 1057 then `s02 is The`xCity`xof`xAtlantis`x(SE)
+@if `p21 is 1058 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 1059 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 1060 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 1061 then `s02 is Atlantis/Sosen`xPassage
+@if `p21 is 1062 then `s02 is Rudy's`xPentagram
+@if `p21 is 1063 then `s02 is The`xSword`xCastle`xCaves
+@if `p21 is 1064 then `s02 is The`xSword`xCastle`xCaves
+@if `p21 is 1065 then `s02 is The`xSword`xCastle`xCaves
+@if `p21 is 1066 then `s02 is The`xSword`xCastle`xCaves
+@if `p21 is 1069 then `s02 is The`xRoom`xwith`xno`xPaths
+@if `p21 is 1073 then `s02 is The`xHydra's`xCave
+@if `p21 is 1074 then `s02 is Dragon`xIsland
+@if `p21 is 1075 then `s02 is Dragon`xCliffs
+@if `p21 is 1082 then `s02 is Jasminita`xRoom1
+@if `p21 is 1083 then `s02 is Royal`xLobby
+@if `p21 is 1084 then `s02 is Esperanto`xLobby
+@if `p21 is 1088 then `s02 is Southern`xCoast
+@if `p21 is 1090 then `s02 is West`xof`xFlagCity
+@if `p21 is 1091 then `s02 is West`xof`xFlagCity
+@if `p21 is 1092 then `s02 is FlagCity`xGate
+@if `p21 is 1093 then `s02 is FlagCity`xBridge`x&`xTemple
+@if `p21 is 1094 then `s02 is The`xHouse`xof`xDreams
+@if `p21 is 1095 then `s02 is Forest`xRiver
+@if `p21 is 1096 then `s02 is Forest`xRiver
+@if `p21 is 1097 then `s02 is Forest`xRiver
+@if `p21 is 1098 then `s02 is Forest`xRiver
+@if `p21 is 1099 then `s02 is Forest`xRiver
+@if `p21 is 1100 then `s02 is Forest`xRiver
+@if `p21 is 1101 then `s02 is Forest`xRiver
+@if `p21 is 1102 then `s02 is Forest`xRiver
+@if `p21 is 1103 then `s02 is Forest`xRiver
+@if `p21 is 1104 then `s02 is Forest`xRiver
+@if `p21 is 1105 then `s02 is Forest`xRiver
+@if `p21 is 1106 then `s02 is Desert`xRiver
+@if `p21 is 1107 then `s02 is Desert`xRiver
+@if `p21 is 1108 then `s02 is Desert`xRiver
+@if `p21 is 1109 then `s02 is Desert`xRiver
+@if `p21 is 1110 then `s02 is Desert`xRiver
+@if `p21 is 1111 then `s02 is Desert`xGateway
+@if `p21 is 1112 then `s02 is Forest`xgateway
+@if `p21 is 1113 then `s02 is Kiteria's`xCastle
+@if `p21 is 1114 then `s02 is Woodland`xForest
+@if `p21 is 1115 then `s02 is Tiny`xLake
+@if `p21 is 1116 then `s02 is Fishing`xdock
+@if `p21 is 1117 then `s02 is Under`xthe`xFalls
+@if `p21 is 1119 then `s02 is Big`xBad`xBait`xShop
+@if `p21 is 1120 then `s02 is Glimmering`xPond
+@if `p21 is 1121 then `s02 is TeamHouse`x1
+@if `p21 is 1142 then `s02 is DEATHSHIFT'S`xVOID...
+@if `p21 is 1143 then `s02 is The`xSword`xCastle`xCaves
+@if `p21 is 1144 then `s02 is The`xSword`xCastle`xCaves
+@if `p21 is 1145 then `s02 is The`xSword`xCastle`xCaves
+@if `p21 is 1146 then `s02 is The`xSword`xCastle`xCaves
+@if `p21 is 1154 then `s02 is Dragon`xIsland
+@if `p21 is 1155 then `s02 is Dragon`xIsland
+@if `p21 is 1156 then `s02 is Sea`xof`xthe`xWest
+@if `p21 is 1157 then `s02 is Sea`xof`xthe`xWest
+@if `p21 is 1158 then `s02 is Sea`xof`xthe`xWest
+@if `p21 is 1159 then `s02 is Sea`xof`xthe`xWest
+@if `p21 is 1160 then `s02 is Sea`xof`xthe`xWest
+@if `p21 is 1161 then `s02 is Sea`xof`xthe`xWest
+@if `p21 is 1162 then `s02 is Sea`xof`xthe`xWest
+@if `p21 is 1163 then `s02 is Sea`xof`xthe`xWest
+@if `p21 is 1164 then `s02 is Sea`xof`xthe`xWest
+@if `p21 is 1165 then `s02 is Sea`xof`xthe`xWest
+@if `p21 is 1166 then `s02 is Sea`xof`xthe`xWest
+@if `p21 is 1167 then `s02 is Sea`xof`xthe`xWest
+@if `p21 is 1168 then `s02 is Southern`xCoast
+@if `p21 is 1169 then `s02 is ThE`xWaTeR`xCaVe`xMaZe
+@if `p21 is 1170 then `s02 is Old`xDragon`xTooth`xTemple
+@if `p21 is 1171 then `s02 is Passage`xto`xthe`xunknown
+@if `p21 is 1172 then `s02 is Entrance`xTo`xThe`xUnknown
+@if `p21 is 1173 then `s02 is West`xRoad
+@if `p21 is 1174 then `s02 is Forest`xRiver
+@if `p21 is 1175 then `s02 is TeamHouse`x3
+@if `p21 is 1176 then `s02 is Wizard`xTower
+@if `p21 is 1186 then `s02 is Blue`xDragon
+@if `p21 is 1187 then `s02 is Blue`xDragon
+@if `p21 is 1188 then `s02 is Forest`xRiver
+@if `p21 is 1189 then `s02 is Old`xman's`xrock
+@if `p21 is 1192 then `s02 is Scorpion's`xDen
+@if `p21 is 1193 then `s02 is The`xShrine
+@if `p21 is 1194 then `s02 is Path`xto`xthe`xShrine
+@if `p21 is 1195 then `s02 is Forest`xwith`xSmall`xMountain
+@if `p21 is 1196 then `s02 is North`xGreenTree
+@if `p21 is 1197 then `s02 is Shack
+@if `p21 is 1198 then `s02 is SYSOP`xunderground
+@if `p21 is 1200 then `s02 is `%SYSOP`xCastle
+@if `p21 is 1201 then `s02 is Tavern`xInn
+@if `p21 is 1202 then `s02 is Torin`xCastle
+@if `p21 is 1205 then `s02 is Inner`xCondemned`xCave
+@if `p21 is 1206 then `s02 is WoodLog`xInn
+@if `p21 is 1207 then `s02 is Inside`xPawn`xShop
+@if `p21 is 1208 then `s02 is A`xBoneTown`xHouse
+@if `p21 is 1209 then `s02 is A`xBoneTown`xHouse
+@if `p21 is 1210 then `s02 is BoneTown`xBar
+@if `p21 is 1212 then `s02 is Entrance`xto`xQuester
+@if `p21 is 1213 then `s02 is Spider`xForest
+@if `p21 is 1214 then `s02 is Darken`xStone
+@if `p21 is 1215 then `s02 is Revenge`xCastle:`xNorth`xRoom
+@if `p21 is 1216 then `s02 is Revenge`xCastle:Fighting`xGround
+@if `p21 is 1217 then `s02 is Revenge`xCastle:`xNorth`xRoom
+@if `p21 is 1225 then `s02 is The`xSword`xCastle`xCaves
+@if `p21 is 1233 then `s02 is Medusa`xIsle
+@if `p21 is 1234 then `s02 is Krista's`xTavern
+@if `p21 is 1235 then `s02 is Banshee's`xEnd
+@if `p21 is 1236 then `s02 is Ye`xTowne`xJail
+@if `p21 is 1237 then `s02 is Celebration`xHouse
+@if `p21 is 1238 then `s02 is Haunted`xHouse
+@if `p21 is 1248 then `s02 is Southern`xCoast
+@if `p21 is 1249 then `s02 is Gamble`xHouse
+@if `p21 is 1250 then `s02 is Myst`xInn
+@if `p21 is 1251 then `s02 is Pyramid's`xRooms
+@if `p21 is 1252 then `s02 is Sandy`xBeach
+@if `p21 is 1253 then `s02 is West`xRoad
+@if `p21 is 1254 then `s02 is Forest`xRiver
+@if `p21 is 1255 then `s02 is TeamHouse`x3
+@if `p21 is 1257 then `s02 is The`xHouse`xof`xDreams
+@if `p21 is 1268 then `s02 is Moat`xBridge
+@if `p21 is 1269 then `s02 is Moat`xIsland
+@if `p21 is 1271 then `s02 is Forest
+@if `p21 is 1272 then `s02 is IceLord`xKeep`xEstate
+@if `p21 is 1273 then `s02 is Forest
+@if `p21 is 1274 then `s02 is Broken`xpath`xforest
+@if `p21 is 1275 then `s02 is Forest
+@if `p21 is 1276 then `s02 is VooDoo`xCult`xArea
+@if `p21 is 1277 then `s02 is Blue`xFalls
+@if `p21 is 1278 then `s02 is Rocky`xRoad
+@if `p21 is 1279 then `s02 is Village`xForest
+@if `p21 is 1280 then `s02 is Northeast`xStonebrook`xVillage
+@if `p21 is 1281 then `s02 is Turgon's`xShack
+@if `p21 is 1282 then `s02 is The`xFunHouse
+@if `p21 is 1285 then `s02 is Condemned`xCave
+@if `p21 is 1286 then `s02 is West`xBoneTown
+@if `p21 is 1287 then `s02 is East`xBoneTown
+@if `p21 is 1288 then `s02 is Jester's`xCasino
+@if `p21 is 1289 then `s02 is Condemned`xCave
+@if `p21 is 1295 then `s02 is Revenge`xCastle:`xWest`xRoom
+@if `p21 is 1296 then `s02 is Revenge`xCastle:`xMain`xOffice
+@if `p21 is 1297 then `s02 is Revenge`xCastle:`xInn
+@if `p21 is 1313 then `s02 is West`xCaverns
+@if `p21 is 1314 then `s02 is JabberWock
+@if `p21 is 1315 then `s02 is East`xCaverns
+@if `p21 is 1316 then `s02 is Moria`xDeep
+@if `p21 is 1328 then `s02 is Southern`xCoast
+@if `p21 is 1330 then `s02 is Inside`xMyst`xVille
+@if `p21 is 1331 then `s02 is Myst`xVille`xregion
+@if `p21 is 1332 then `s02 is Sandy`xBeach
+@if `p21 is 1333 then `s02 is West`xForest
+@if `p21 is 1334 then `s02 is Monastery
+@if `p21 is 1340 then `s02 is TeamHouse`x5
+@if `p21 is 1341 then `s02 is Sharks'`xTooth`xIsland
+@if `p21 is 1342 then `s02 is TeamHouse`x4
+@if `p21 is 1346 then `s02 is Old`xMan`xMortal's
+@if `p21 is 1348 then `s02 is Moat`xIsland
+@if `p21 is 1349 then `s02 is Q's`xFortress
+@if `p21 is 1351 then `s02 is Greentree`xfields
+@if `p21 is 1352 then `s02 is Tower
+@if `p21 is 1353 then `s02 is Dark`xForest
+@if `p21 is 1354 then `s02 is Dark`xForest`xGate
+@if `p21 is 1355 then `s02 is East`xKnotwood
+@if `p21 is 1356 then `s02 is GreenTree
+@if `p21 is 1357 then `s02 is Ye`xOlde`xFarm
+@if `p21 is 1358 then `s02 is Neb's`xRoad
+@if `p21 is 1359 then `s02 is Stonebrook
+@if `p21 is 1360 then `s02 is East`xStonebrook`xVillage
+@if `p21 is 1361 then `s02 is IceLord`xKeep
+@if `p21 is 1362 then `s02 is Inside`xIceLord`xKeep`x(lower)
+@if `p21 is 1363 then `s02 is Inside`xIceLord`xKeep`x(upper)
+@if `p21 is 1364 then `s02 is Inside`xIceLord`xKeep`x(dungeon)
+@if `p21 is 1365 then `s02 is IceLord`xKeep`xTavern
+@if `p21 is 1366 then `s02 is IceLord`xKeep`x(tower)
+@if `p21 is 1367 then `s02 is IceLord`xKeep`x(tower)
+@if `p21 is 1368 then `s02 is Guild`xForest
+@if `p21 is 1369 then `s02 is Assassin's`xGuild
+@if `p21 is 1370 then `s02 is Magician's`xGuild
+@if `p21 is 1371 then `s02 is Knight's`xGuild
+@if `p21 is 1383 then `s02 is The`xSword`xCastle`xIsland
+@if `p21 is 1384 then `s02 is Forest`xof`xthe`xDead
+@if `p21 is 1385 then `s02 is Dark`xPassage`xMountain
+@if `p21 is 1386 then `s02 is Forbidden`xForest
+@if `p21 is 1393 then `s02 is Dark`xChasm
+@if `p21 is 1394 then `s02 is Lava`xFlow
+@if `p21 is 1395 then `s02 is Dark`xForest
+@if `p21 is 1396 then `s02 is Pyramid's`xPlace
+@if `p21 is 1397 then `s02 is Pyramid's`xPlace
+@if `p21 is 1398 then `s02 is Pyramid's`xRooms
+@if `p21 is 1399 then `s02 is The`xO'Bubba`xstudio
+@if `p21 is 1400 then `s02 is The`xSIT`xON`xIT`xstudio
+@if `p21 is 1401 then `s02 is Win`xHis`xMoney`xstudio
+@if `p21 is 1408 then `s02 is Southern`xCoast
+@if `p21 is 1411 then `s02 is Sosen`xInn
+@if `p21 is 1412 then `s02 is Sandy`xBeach
+@if `p21 is 1413 then `s02 is Mysterious`xCave
+@if `p21 is 1414 then `s02 is West`xRoad
+@if `p21 is 1415 then `s02 is West`xForest
+@if `p21 is 1416 then `s02 is West`xForest
+@if `p21 is 1418 then `s02 is The`xWampa's`xCave
+@if `p21 is 1419 then `s02 is Wizard's`xTower
+@if `p21 is 1422 then `s02 is Dragon's`xDen`xHousing
+@if `p21 is 1423 then `s02 is Upper`xEstates
+@if `p21 is 1425 then `s02 is Christopher`xRobbin's`xHouse
+@if `p21 is 1426 then `s02 is Pooh's`xHoney`xCave
+@if `p21 is 1427 then `s02 is Hundred`xAcre`xWoods
+@if `p21 is 1432 then `s02 is Flower`xBed
+@if `p21 is 1433 then `s02 is The`xDark`xForest
+@if `p21 is 1434 then `s02 is `%Dark`xForest
+@if `p21 is 1435 then `s02 is Torin`xCastle
+@if `p21 is 1436 then `s02 is South`xGreenTree`xfield
+@if `p21 is 1437 then `s02 is Screen`x1,437
+@if `p21 is 1438 then `s02 is South`xStonebrook
+@if `p21 is 1439 then `s02 is South`xStonebrook
+@if `p21 is 1440 then `s02 is Massive`xTree
+@if `p21 is 1441 then `s02 is Camelot`xPalace
+@if `p21 is 1442 then `s02 is Camelot
+@if `p21 is 1443 then `s02 is Camelot`xInn
+@if `p21 is 1450 then `s02 is Upstairs`xof`xJaime's`xInn
+@if `p21 is 1451 then `s02 is Downstairs`xof`xJaime's`xInn
+@if `p21 is 1452 then `s02 is Underground`xCity
+@if `p21 is 1453 then `s02 is Underground`xCity
+@if `p21 is 1454 then `s02 is Underground`xCity
+@if `p21 is 1455 then `s02 is Inside`xSome`xUnderground`xHouses
+@if `p21 is 1456 then `s02 is Inside`xsome`xUnderground`xHouses
+@if `p21 is 1458 then `s02 is Inside`xthe`xhouse
+@if `p21 is 1459 then `s02 is Black`xDeath's`xBar
+@if `p21 is 1460 then `s02 is Tavern`xInn
+@if `p21 is 1461 then `s02 is Tavern's`xBasement
+@if `p21 is 1463 then `s02 is The`xSword`xCastle`xIsland
+@if `p21 is 1464 then `s02 is The`xSword`xCastle
+@if `p21 is 1465 then `s02 is The`xSword`xCastle
+@if `p21 is 1466 then `s02 is The`xSword`xCastle`xHotel
+@if `p21 is 1467 then `s02 is Jamie's`xBar`x&`xGrill
+@if `p21 is 1468 then `s02 is The`xSword`xCastle`xTower
+@if `p21 is 1469 then `s02 is The`xSword`xCastle`xTower
+@if `p21 is 1470 then `s02 is The`xSword`xCastle`xTower
+@if `p21 is 1471 then `s02 is Barak's`xHouse
+@if `p21 is 1473 then `s02 is Mandrake`xForest
+@if `p21 is 1474 then `s02 is Piper's`xFields
+@if `p21 is 1475 then `s02 is Marshy`xFell
+@if `p21 is 1476 then `s02 is Pyramid's`xRooms
+@if `p21 is 1477 then `s02 is Pyramid's`xRooms
+@if `p21 is 1478 then `s02 is Pyramid's`xHouse
+@if `p21 is 1479 then `s02 is Pyramid's`xMarket
+@if `p21 is 1481 then `s02 is Hearth`xfor`xbroadcast`xscrying
+@if `p21 is 1488 then `s02 is Southern`xCoast
+@if `p21 is 1489 then `s02 is Southern`xCoast
+@if `p21 is 1490 then `s02 is Ocean
+@if `p21 is 1491 then `s02 is Southern`xCoast
+@if `p21 is 1492 then `s02 is Sandy`xBeach
+@if `p21 is 1493 then `s02 is West`xRoad
+@if `p21 is 1494 then `s02 is West`xRoad
+@if `p21 is 1495 then `s02 is West`xRoad
+@if `p21 is 1496 then `s02 is West`xroad
+@if `p21 is 1497 then `s02 is West`xSnowy`xentrance
+@if `p21 is 1498 then `s02 is West`xSnowy`xPass
+@if `p21 is 1499 then `s02 is Snowy`xPass
+@if `p21 is 1502 then `s02 is BLIZZARD!
+@if `p21 is 1504 then `s02 is BLIZZARD!
+@if `p21 is 1508 then `s02 is Snowy`xPass
+@if `p21 is 1509 then `s02 is Snowy`xPass
+@if `p21 is 1510 then `s02 is Snowy`xPass
+@if `p21 is 1512 then `s02 is PukeWorld
+@if `p21 is 1513 then `s02 is Tash's`xLair
+@if `p21 is 1514 then `s02 is Hidden`xdark`xforest
+@if `p21 is 1515 then `s02 is Greentree`xForest
+@if `p21 is 1516 then `s02 is South`xForest`xof`xGreentree
+@if `p21 is 1517 then `s02 is Sword`xin`xStone
+@if `p21 is 1518 then `s02 is Greba's`xField
+@if `p21 is 1519 then `s02 is Strange`xCabin
+@if `p21 is 1520 then `s02 is Faerie`xGlade
+@if `p21 is 1521 then `s02 is Wizard's`xCastle`xLobby
+@if `p21 is 1522 then `s02 is Wizard's`xCastle`xUpstairs`xMaze
+@if `p21 is 1523 then `s02 is Red`xDragon`xInn's`xBasement
+@if `p21 is 1525 then `s02 is Forest
+@if `p21 is 1526 then `s02 is Greentree
+@if `p21 is 1527 then `s02 is The`xRed`xDragon`xInn
+@if `p21 is 1549 then `s02 is Pharaoh's`xPlace
+@if `p21 is 1553 then `s02 is Rat`xVille
+@if `p21 is 1554 then `s02 is Spider`xForest
+@if `p21 is 1555 then `s02 is Stone`xCircle
+@if `p21 is 1556 then `s02 is Pyramid's`xRooms
+@if `p21 is 1557 then `s02 is Jasminita`xRoom2
+@if `p21 is 1560 then `s02 is Sword`xin`xStone
+@if `p21 is 1565 then `s02 is Andrew's`xHouse
+@if `p21 is 1566 then `s02 is Inside`xKiteria's`xCastle
+@if `p21 is 1567 then `s02 is Under`xKiteria's`xCastle
+@if `p21 is 1568 then `s02 is East`xStonebrook`xVillage
+@if `p21 is 1569 then `s02 is Photek's`xHouse
+@if `p21 is 1570 then `s02 is Bandit's`xprison
+@if `p21 is 1571 then `s02 is West`xof`xBone`xTown
+@if `p21 is 1572 then `s02 is Outside`xBone`xTown
+@if `p21 is 1573 then `s02 is Bandit's`xHideout
+@if `p21 is 1574 then `s02 is West`xForest
+@if `p21 is 1575 then `s02 is West`xForest
+@if `p21 is 1576 then `s02 is West`xForest
+@if `p21 is 1577 then `s02 is Classroom`xBuilding
+@if `p21 is 1578 then `s02 is Physics`xBuilding
+@if `p21 is 1579 then `s02 is Dormitory
+@if `p21 is 1580 then `s02 is Fast`xFreddy's`xGem`xEmporium
+@if `p21 is 1581 then `s02 is Underground`xLabrynth
+@if `p21 is 1582 then `s02 is Catina
+@if `p21 is 1583 then `s02 is `%Dark`xCloak`xRuins
+@if `p21 is 1584 then `s02 is `%Dark`xCloak`xFighting`xGROUNDS
+@if `p21 is 1586 then `s02 is Josiah's`xSoda`xStand
+@if `p21 is 1587 then `s02 is Dragon`xDen`xHousing`xHomes
+@if `p21 is 1588 then `s02 is Dragon`xDen`xHousing`xHutts
+@if `p21 is 1589 then `s02 is Jack's`xRestuarant
+@if `p21 is 1590 then `s02 is Snowy`xPass
+@if `p21 is 1591 then `s02 is Snowy`xPass`xoverlook
+@if `p21 is 1592 then `s02 is South`xDark`xForest
+@if `p21 is 1593 then `s02 is The`xGraveYard
+@if `p21 is 1594 then `s02 is The`xGraveYard
+@if `p21 is 1595 then `s02 is Cabin
+@if `p21 is 1596 then `s02 is Woodland`xUnderground
+@if `p21 is 1597 then `s02 is Underground`xBar
+@if `p21 is 1598 then `s02 is Underground`xBar`x(Upper)
+@if `p21 is 1599 then `s02 is Underground`xMuseum
+@if `p21 is 1600 then `s02 is Black`xDeath's`xBar
+@closescript
diff --git a/xtrn/lord2/cnw/location.ref b/xtrn/lord2/cnw/location.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c4b4cbc73f05baa9434cbcc48d42bf8f8b48c72a
--- /dev/null
+++ b/xtrn/lord2/cnw/location.ref
@@ -0,0 +1,912 @@
+; Script file LOCATION.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:38 2001
+
+@DECLARE getplace 000000159
+@NOCHECK
+; End of .REF index
+
+@#getplace
+@do `s02 is nobody`xknows
+@if map is 26 then `s02 is Habib's`xTavern
+@if map is 27 then `s02 is Habib's`xTavern:`xUpstairs
+@if map is 28 then `s02 is Habib's`xTavern:`xTreasure`xCave
+@if map is 29 then `s02 is Room`x&`xTreasury
+@if map is 30 then `s02 is inside`xcastle`xwalls
+@if map is 31 then `s02 is Evil`xBob's`xLockup
+@if map is 32 then `s02 is Inside`xthe`xmall
+@if map is 40 then `s02 is Arris`xGrasslands
+@if map is 41 then `s02 is Black`xDragon`xCastle
+@if map is 42 then `s02 is Arris`xGrasslands
+@if map is 43 then `s02 is Kitely`xBeach
+@if map is 44 then `s02 is Red`xDragon`xCastle
+@if map is 46 then `s02 is inside`xalien`xcraft
+@if map is 47 then `s02 is lower`xlevel`xalien`xcraft
+@if map is 48 then `s02 is inside`xworking`xalien`xship
+@if map is 49 then `s02 is Outside`xthe`xlodge
+@if map is 50 then `s02 is Outside`xthe`xLodge
+@if map is 51 then `s02 is The`xResort
+@if map is 52 then `s02 is The`xResort`xLodge
+@if map is 54 then `s02 is `%Coliseum`xBattle!
+@if map is 55 then `s02 is West`xBeach`xEdge
+@if map is 56 then `s02 is Northlands
+@if map is 57 then `s02 is Northlands
+@if map is 58 then `s02 is Northlands
+@if map is 59 then `s02 is Revenge`xCastle
+@if map is 60 then `s02 is First`xFloor
+@if map is 61 then `s02 is Second`xFloor
+@if map is 62 then `s02 is Second`xFloor
+@if map is 63 then `s02 is Isle`xof`xthe`xPhreaks
+@if map is 64 then `s02 is Inside`xPhreak's`xKeep
+@if map is 65 then `s02 is Phreak's`xKeep`xGuest`xHouse
+@if map is 66 then `s02 is Greentree`xChurch
+@if map is 67 then `s02 is Inside`xGreentree
+@if map is 68 then `s02 is Inside`xGreentree
+@if map is 69 then `s02 is Inside`xGreentree
+@if map is 70 then `s02 is Lodge`xrooms
+@if map is 71 then `s02 is FlagCity`xDocks
+@if map is 72 then `s02 is Neighbors`xHouse
+@if map is 73 then `s02 is FlagCity`xInn
+@if map is 74 then `s02 is The`xWedding`xChapel
+@if map is 75 then `s02 is Barak's`xHouse
+@if map is 76 then `s02 is Inside`xthe`xChapel
+@if map is 77 then `s02 is Up`xin`xthe`xtreetops
+@if map is 80 then `s02 is TeamHouse`x2
+@if map is 81 then `s02 is Gypsy`xCamp`xMorning
+@if map is 82 then `s02 is Gypsy`xCamp`xEvening
+@if map is 83 then `s02 is Gypsy`xTent`xMorning
+@if map is 84 then `s02 is Gypsy`xTent`xEvening
+@if map is 85 then `s02 is Gypsy`xEncampment
+@if map is 86 then `s02 is Gypsy`xTent
+@if map is 101 then `s02 is Castle`xTower
+@if map is 102 then `s02 is The`xPrivate`xRooms
+@if map is 103 then `s02 is Gum-Lass`xCastle
+@if map is 104 then `s02 is Gumtown`xTownhall
+@if map is 105 then `s02 is The`xRight`xHouse
+@if map is 106 then `s02 is The`xLeft`xHouse
+@if map is 107 then `s02 is Gum`xTown
+@if map is 110 then `s02 is The`xBasement
+@if map is 111 then `s02 is Mythran's`xCottage
+@if map is 112 then `s02 is Strange`xIsland
+@if map is 114 then `s02 is Koshi`xCavern
+@if map is 115 then `s02 is Koshi`xCavern
+@if map is 116 then `s02 is Koshi`xJudgement
+@if map is 120 then `s02 is Arris`xGrasslands
+@if map is 121 then `s02 is Arris`xGrasslands
+@if map is 122 then `s02 is Arris`xGrasslands
+@if map is 123 then `s02 is Kitely`xBeach
+@if map is 130 then `s02 is Inside`xthe`xCastle
+@if map is 131 then `s02 is on`xthe`xrooftop
+@if map is 132 then `s02 is Taking`xa`xswim
+@if map is 133 then `s02 is Bridge`xof`xThieves
+@if map is 135 then `s02 is Gargoyle's`xLanding
+@if map is 136 then `s02 is BigWood`xForest
+@if map is 137 then `s02 is BigWood`xForest
+@if map is 138 then `s02 is BigWood`xForest
+@if map is 139 then `s02 is Northlands
+@if map is 140 then `s02 is Gorilla`xVilla/Overlook
+@if map is 141 then `s02 is SoldaCar:`x1st`xFloor
+@if map is 142 then `s02 is 3rd`xFloor
+@if map is 146 then `s02 is Weird`xWorld
+@if map is 147 then `s02 is Inside`xGreentree
+@if map is 148 then `s02 is Inside`xGreentree
+@if map is 149 then `s02 is Inside`xGreentree
+@if map is 150 then `s02 is Commoner's`xhouse
+@if map is 151 then `s02 is FlagCity
+@if map is 152 then `s02 is PortTown
+@if map is 153 then `s02 is Sea`xHag`xHotel
+@if map is 154 then `s02 is Cloudy`xCity
+@if map is 155 then `s02 is Mother's`xHouse
+@if map is 156 then `s02 is Township`xof`xNew`xStonebrook
+@if map is 157 then `s02 is Ma's`xBoarding`xHouse
+@if map is 158 then `s02 is Ma's`xBoarding`xHouse
+@if map is 159 then `s02 is Red`xDragon`xInn
+@if map is 160 then `s02 is Uncle`xEdward`x&`xLaura's`xhouse
+@if map is 167 then `s02 is Hidden`xunderground`xcave`x-`xWest
+@if map is 168 then `s02 is Hidden`xunderground`xcave`x-`xeast
+@if map is 169 then `s02 is Inside`xDoc`xFarrell's`xoffice
+@if map is 170 then `s02 is Brutal`xWorld
+@if map is 171 then `s02 is Shangri`xLa
+@if map is 172 then `s02 is Matt's`xIsle
+@if map is 173 then `s02 is Final`xShowdown
+@if map is 179 then `s02 is The`xBunny`xTrail
+@if map is 180 then `s02 is World`xWar`xII
+@if map is 195 then `s02 is Koshi`xVillage
+@if map is 196 then `s02 is Arris`xGrasslands
+@if map is 197 then `s02 is West`xHighway
+@if map is 198 then `s02 is West`xHighway
+@if map is 199 then `s02 is West`xHighway
+@if map is 200 then `s02 is West`xHighway
+@if map is 201 then `s02 is West`xHighway
+@if map is 202 then `s02 is West`xHighway`x&`xLoki's`xInn
+@if map is 203 then `s02 is ArrisLand`xFerry
+@if map is 204 then `s02 is Bridge`xof`xThieves
+@if map is 205 then `s02 is Bridge`xof`xThieves
+@if map is 206 then `s02 is Bridge`xof`xThieves
+@if map is 207 then `s02 is Bridge`xof`xThieves
+@if map is 208 then `s02 is Bridge`xof`xThieves
+@if map is 209 then `s02 is Bridge`xof`xThieves
+@if map is 210 then `s02 is Bridge`xof`xThieves
+@if map is 211 then `s02 is Bridge`xof`xThieves
+@if map is 212 then `s02 is Bridge`xof`xThieves
+@if map is 213 then `s02 is Codax's`xCastle
+@if map is 214 then `s02 is Bridge`xof`xThieves
+@if map is 215 then `s02 is West`xBeach`xFerry
+@if map is 216 then `s02 is BigWood`xForest
+@if map is 217 then `s02 is BigWood`xForest
+@if map is 218 then `s02 is BigWood`xForest
+@if map is 219 then `s02 is DarkForest/ArticNight`xHQ
+@if map is 220 then `s02 is Northlands
+@if map is 221 then `s02 is Northlands
+@if map is 222 then `s02 is Northlands
+@if map is 223 then `s02 is Northlands
+@if map is 224 then `s02 is `%Arris`xTraining`xGrounds
+@if map is 229 then `s02 is Your`xLittle`xHomestead
+@if map is 230 then `s02 is Jeb's`xHouse
+@if map is 231 then `s02 is Inside`xPawn`xShop
+@if map is 232 then `s02 is TreeHouse
+@if map is 233 then `s02 is Neighbors`xHouse
+@if map is 234 then `s02 is Neighbors`xHouse
+@if map is 235 then `s02 is Neighbors`xHouse
+@if map is 236 then `s02 is Uncle`xEdward`x&`xLaura's`xhouse
+@if map is 237 then `s02 is RockHolm`xMountains
+@if map is 238 then `s02 is RockHolm`xMountains
+@if map is 239 then `s02 is RockHolm`xMountains
+@if map is 240 then `s02 is Grizelda's`xHouse
+@if map is 245 then `s02 is SpringFang's`xHouse`xof`xWonders
+@if map is 246 then `s02 is Place`xof`xPurchases
+@if map is 247 then `s02 is SpringFang's`xLair
+@if map is 248 then `s02 is Warp`xZone
+@if map is 249 then `s02 is Fightin'
+@if map is 250 then `s02 is Strange`xRoom
+@if map is 252 then `s02 is Inside`xCasino
+@if map is 253 then `s02 is Innner`xDomain
+@if map is 260 then `s02 is The`xEnd`xof`xTime
+@if map is 261 then `s02 is Inside`xLoki's`xInn
+@if map is 264 then `s02 is Thrown`xRoom
+@if map is 280 then `s02 is Arris`xGrasslands
+@if map is 281 then `s02 is Arris`xGrasslands
+@if map is 282 then `s02 is Arris`xGrasslands
+@if map is 283 then `s02 is Kitely`xBeach
+@if map is 292 then `s02 is Shara's`xBurning`xPalace
+@if map is 293 then `s02 is Main`xBattlefield
+@if map is 294 then `s02 is Battlefield`xeast
+@if map is 295 then `s02 is West`xBeach
+@if map is 296 then `s02 is BigWood`xForest
+@if map is 297 then `s02 is Camelot
+@if map is 298 then `s02 is SmallWood`xField
+@if map is 299 then `s02 is SmallWood`xField
+@if map is 300 then `s02 is BigWood`xForest
+@if map is 301 then `s02 is BigWood`xForest
+@if map is 302 then `s02 is BigWood`xForest
+@if map is 303 then `s02 is BigWood`xForest
+@if map is 304 then `s02 is Northlands
+@if map is 305 then `s02 is Black`xDeath's`xTavern
+@if map is 316 then `s02 is SoldaCar`xHeadquarters
+@if map is 317 then `s02 is RockHolm`xMountains
+@if map is 318 then `s02 is RockHolm`xMountains
+@if map is 319 then `s02 is RockHolm`xMountains`x&`xTemple
+@if map is 320 then `s02 is TeamHouse`x2
+@if map is 321 then `s02 is Divine`xComedy
+@if map is 332 then `s02 is Matt's`xHouse
+@if map is 333 then `s02 is Inside`xthe`xDomain
+@if map is 341 then `s02 is Inside`xprivate`xrooms`x101`x-`x105
+@if map is 342 then `s02 is Inside`xprivate`xrooms`x106`x-`x109
+@if map is 343 then `s02 is Private`xRooms`x101`x-`x109
+@if map is 344 then `s02 is Hallway`xto`xThrown`xRoom
+@if map is 345 then `s02 is Zeed's`xLaboratory
+@if map is 346 then `s02 is Inside`xprivate`xrooms`x113`x-`x115
+@if map is 347 then `s02 is Inside`xprivate`xrooms`x110`x-`x112
+@if map is 353 then `s02 is `4Strange`xUnderground`xCavern
+@if map is 354 then `s02 is `4The`xGym
+@if map is 355 then `s02 is `4The`xRed`xDragon's`xCavern
+@if map is 360 then `s02 is Arris`xGrasslands
+@if map is 361 then `s02 is Arris`xGrasslands
+@if map is 362 then `s02 is Arris`xGrasslands
+@if map is 363 then `s02 is Kitely`xBeach
+@if map is 373 then `s02 is Power's`xHouse`xof`xEvil
+@if map is 375 then `s02 is West`xBeach
+@if map is 376 then `s02 is BigWood`xForest
+@if map is 377 then `s02 is BigWood`xForest
+@if map is 378 then `s02 is BigWood`xForest
+@if map is 379 then `s02 is BigWood`xForest`x&`xTemple
+@if map is 380 then `s02 is BigWood`xForest
+@if map is 381 then `s02 is BigWood`xForest
+@if map is 382 then `s02 is BigWood`xForest
+@if map is 383 then `s02 is BigWood`xForest
+@if map is 384 then `s02 is BigWood`xForest
+@if map is 385 then `s02 is Northlands
+@if map is 386 then `s02 is Hong`xKong`xStudio
+@if map is 387 then `s02 is Northlands
+@if map is 388 then `s02 is Northlands
+@if map is 396 then `s02 is Old`xRed`xDragon's`xlair
+@if map is 397 then `s02 is RockHolm`xMountains
+@if map is 398 then `s02 is RockHolm`xMountains
+@if map is 399 then `s02 is RockHolm`xMountains
+@if map is 400 then `s02 is Northlands
+@if map is 417 then `s02 is A`xFortress`xFear`xHouse
+@if map is 418 then `s02 is House`xIn`xFortress`xFear
+@if map is 419 then `s02 is A`xFortress`xFear`xHouse
+@if map is 420 then `s02 is House`xIn`xFortress`xFear
+@if map is 421 then `s02 is House`xIn`xFortress`xFear
+@if map is 422 then `s02 is Private`xRooms`x110`x-`x118
+@if map is 423 then `s02 is Figaro`xCastle's`xInn
+@if map is 424 then `s02 is Figaro`xCastle
+@if map is 425 then `s02 is Figaro's`xLibrary
+@if map is 441 then `s02 is Crater`xin`xArris`xGrasslands
+@if map is 442 then `s02 is Arris`xGrasslands
+@if map is 443 then `s02 is Kitely`xBeach
+@if map is 444 then `s02 is ArrisVille
+@if map is 450 then `s02 is ArrisVille`xInn
+@if map is 451 then `s02 is Ship
+@if map is 455 then `s02 is North`xBeach
+@if map is 456 then `s02 is Sosen`xVillage
+@if map is 457 then `s02 is North`xBeach
+@if map is 458 then `s02 is North`xBeach
+@if map is 459 then `s02 is North`xBeach
+@if map is 460 then `s02 is North`xBeach
+@if map is 461 then `s02 is North`xBeach
+@if map is 462 then `s02 is North`xBeach
+@if map is 463 then `s02 is North`xBeach
+@if map is 464 then `s02 is North`xBeach
+@if map is 465 then `s02 is Gum`xTown
+@if map is 466 then `s02 is North`xBeach
+@if map is 467 then `s02 is North`xBeach
+@if map is 468 then `s02 is North`xBeach
+@if map is 469 then `s02 is North`xBeach
+@if map is 470 then `s02 is North`xBeach
+@if map is 471 then `s02 is North`xBeach`x&`xMimsic`xWharf
+@if map is 472 then `s02 is North`xBeach
+@if map is 473 then `s02 is North`xBeach
+@if map is 474 then `s02 is North`xBeach
+@if map is 475 then `s02 is North`xBeach
+@if map is 476 then `s02 is North`xBeach
+@if map is 477 then `s02 is North`xBeach
+@if map is 478 then `s02 is Sandbar
+@if map is 479 then `s02 is North`xBeach
+@if map is 480 then `s02 is NorthLand`xGateWay
+@if map is 484 then `s02 is Power's`xThrone`xRoom
+@if map is 486 then `s02 is Codax's`xThrone`xRoom
+@if map is 488 then `s02 is Shara's`xThrone`xRoom
+@if map is 492 then `s02 is The`xBunny`xCave
+@if map is 497 then `s02 is Top`xOf`xThe`xTower
+@if map is 498 then `s02 is Fortress`xFear
+@if map is 499 then `s02 is West`xSide`xOf`xThe`xCastle
+@if map is 500 then `s02 is Middle`xOf`xThe`xCastle
+@if map is 501 then `s02 is East`xSide`xOf`xThe`xCastle
+@if map is 502 then `s02 is Inside`xprivate`xrooms`x116`x-`x118
+@if map is 503 then `s02 is Castle`xMovibility`xArea
+@if map is 504 then `s02 is Main`xHall
+@if map is 505 then `s02 is Figaro's`xPrison`xCell`xArea
+@if map is 506 then `s02 is Atlantis/Sosen`xPassage
+@if map is 507 then `s02 is Atlantis/Sosen`xPassage
+@if map is 508 then `s02 is Atlantis/Sosen`xPassage
+@if map is 509 then `s02 is Atlantis/Sosen`xPassage
+@if map is 510 then `s02 is Atlantis/Sosen`xPassage
+@if map is 511 then `s02 is Atlantis/Sosen`xPassage
+@if map is 512 then `s02 is Atlantis/Sosen`xPassage
+@if map is 522 then `s02 is UGA
+@if map is 523 then `s02 is Kitely`xBeach
+@if map is 524 then `s02 is South`xof`xArrisVille
+@if map is 525 then `s02 is SouthEast`xof`xArrisVille
+@if map is 526 then `s02 is SouthEast`xof`xArrisVille
+@if map is 527 then `s02 is SouthEast`xof`xArrisVille
+@if map is 528 then `s02 is SouthEast`xof`xArrisVille
+@if map is 529 then `s02 is SouthEast`xof`xArrisVille
+@if map is 530 then `s02 is SouthEast`xof`xArrisVille
+@if map is 531 then `s02 is Southeast`xof`xArrisville
+@if map is 532 then `s02 is Neighbor's`xHouse
+@if map is 533 then `s02 is S.W.`xof`xSosen`xVillage
+@if map is 534 then `s02 is Southwest`xof`xSosen`xVillage
+@if map is 535 then `s02 is West`xof`xSosen`xVillage
+@if map is 536 then `s02 is Sosen`xVillage
+@if map is 537 then `s02 is Sosen`xVillage`xHouse
+@if map is 555 then `s02 is South`xof`xTropical`xIsland
+@if map is 556 then `s02 is Sea`xof`xthe`xEast
+@if map is 557 then `s02 is Sea`xof`xthe`xEast
+@if map is 558 then `s02 is Tropical`xIsland
+@if map is 559 then `s02 is Trashmans`xHouse
+@if map is 560 then `s02 is North`xBeach`xPass
+@if map is 564 then `s02 is Power's`xCastle`xFoyer
+@if map is 566 then `s02 is Codax's`xCastle`xFoyer
+@if map is 568 then `s02 is Shara's`xBurning`xMonuments
+@if map is 572 then `s02 is The`xWarrior's`xGraveyard
+@if map is 573 then `s02 is The`xJanitor's`xRoom
+@if map is 574 then `s02 is In`xthe`xTemple
+@if map is 575 then `s02 is Felicity's`xGuest`xHouse
+@if map is 577 then `s02 is Bottom`xOf`xThe`xTower
+@if map is 578 then `s02 is Dock
+@if map is 579 then `s02 is King's`xCasino
+@if map is 580 then `s02 is The`xGreat`xHall
+@if map is 586 then `s02 is Atlantis/Sosen`xPassage
+@if map is 589 then `s02 is Basement`xof`xthe`xTower
+@if map is 590 then `s02 is The`xKrystal`xGolem's`xLair
+@if map is 592 then `s02 is Atlantis/Sosen`xPassage
+@if map is 594 then `s02 is Cave`xNorthwest
+@if map is 595 then `s02 is Treasure`xRoom
+@if map is 596 then `s02 is Cave`xNortheast
+@if map is 606 then `s02 is Pirate`xShip
+@if map is 607 then `s02 is Cell`xBlock`xD
+@if map is 608 then `s02 is SouthEast`xof`xArrisVille
+@if map is 609 then `s02 is SouthEast`xof`xArrisVille
+@if map is 610 then `s02 is Cell`xBlock`xA
+@if map is 611 then `s02 is Southwest`xof`xSosen`xVillage
+@if map is 612 then `s02 is Southwest`xof`xSosen`xVillage
+@if map is 613 then `s02 is Southwest`xof`xSosen`xVillage
+@if map is 615 then `s02 is Neighbors`xHouse
+@if map is 616 then `s02 is Sosen`xInn
+@if map is 617 then `s02 is Sosen`xInn
+@if map is 620 then `s02 is Lost`xin`xthe`xvoid!`xLOSER!
+@if map is 628 then `s02 is ????
+@if map is 631 then `s02 is Under`xThe`xSea
+@if map is 635 then `s02 is Sea`xof`xthe`xEast
+@if map is 636 then `s02 is Safehouse
+@if map is 637 then `s02 is The`xSea
+@if map is 639 then `s02 is The`xSea
+@if map is 640 then `s02 is Stone`xBeach`xBridge
+@if map is 644 then `s02 is Power's`xCastle`xEntrance
+@if map is 646 then `s02 is Courtyard
+@if map is 648 then `s02 is Burnie`xCourtyard
+@if map is 653 then `s02 is Felicity's`xTemple
+@if map is 666 then `s02 is Atlantis/Sosen`xPassage
+@if map is 668 then `s02 is Basement`xof`xthe`xTower
+@if map is 669 then `s02 is Basement`xof`xthe`xTower
+@if map is 670 then `s02 is Basement`xof`xthe`xTower
+@if map is 672 then `s02 is Atlantis/Sosen`xPassage
+@if map is 674 then `s02 is Great`xHealing`xLake
+@if map is 675 then `s02 is Cave`xof`xDespare`xand`xHope
+@if map is 676 then `s02 is Cave`xMaze
+@if map is 686 then `s02 is Below`xDecks
+@if map is 688 then `s02 is Prison`xRecreational`xArea
+@if map is 689 then `s02 is Prison`xEntrance
+@if map is 693 then `s02 is Southwest`xof`xSosen`xVillage
+@if map is 694 then `s02 is Sea`xof`xthe`xEast
+@if map is 695 then `s02 is Ocean
+@if map is 696 then `s02 is Ocean
+@if map is 705 then `s02 is DragonTooth`xIsland
+@if map is 706 then `s02 is DragonTooth`xCastle
+@if map is 707 then `s02 is Dragon`xTooth`xCastle
+@if map is 708 then `s02 is Inner`xSanctum
+@if map is 711 then `s02 is Inside`xHong`xKong`xStudio
+@if map is 712 then `s02 is `4Chan's`x`0Underground
+@if map is 713 then `s02 is Inside`xHong`xKong`xStudio
+@if map is 715 then `s02 is Sea`xof`xthe`xEast
+@if map is 716 then `s02 is SeaScape`xBar`xAnd`xGrille
+@if map is 717 then `s02 is The`xSeaScape`xBar`x&`xGrille
+@if map is 720 then `s02 is A`xcamp
+@if map is 721 then `s02 is The`xSea`xSerpent's`xCabin
+@if map is 735 then `s02 is Tension's`xHouse,`xMain`xFloor
+@if map is 736 then `s02 is Tension`xHouse,`xSplit`xRoom
+@if map is 737 then `s02 is Tension`xHouse,`xDragon`xSlaves
+@if map is 738 then `s02 is The`xFace`xof`xthe`xThing
+@if map is 739 then `s02 is Valley`xof`xthe`xRed`xDragons
+@if map is 741 then `s02 is Atlantis/Sosen`xPassage
+@if map is 742 then `s02 is Atlantis/Sosen`xPassage
+@if map is 743 then `s02 is Atlantis/Sosen`xPassage
+@if map is 744 then `s02 is Atlantis/Sosen`xPassage
+@if map is 745 then `s02 is Atlantis/Sosen`xPassage
+@if map is 746 then `s02 is Atlantis/Sosen`xPassage
+@if map is 749 then `s02 is Basement`xof`xthe`xTower
+@if map is 752 then `s02 is Atlantis/Sosen`xPassage
+@if map is 753 then `s02 is Atlantis/Sosen`xPassage
+@if map is 754 then `s02 is Atlantis/Sosen`xPassage
+@if map is 755 then `s02 is Atlantis/Sosen`xPassage
+@if map is 756 then `s02 is Atlantis/Sosen`xPassage
+@if map is 757 then `s02 is Atlantis/Sosen`xPassage
+@if map is 758 then `s02 is Atlantis/Sosen`xPassage
+@if map is 759 then `s02 is Atlantis/Sosen`xPassage
+@if map is 760 then `s02 is Atlantis/Sosen`xPassage
+@if map is 761 then `s02 is Atlantis/Sosen`xPassage
+@if map is 762 then `s02 is Atlantis/Sosen`xPassage
+@if map is 763 then `s02 is Atlantis/Sosen`xPassage
+@if map is 764 then `s02 is Atlantis/Sosen`xPassage
+@if map is 765 then `s02 is Atlantis/Sosen`xPassage
+@if map is 766 then `s02 is Prison`xCafe
+@if map is 768 then `s02 is Prison`xCafe,`xHealers`xand`xTrack
+@if map is 769 then `s02 is Warden`xand`xExacution`xArea
+@if map is 770 then `s02 is SouthEast`xof`xArrisVille
+@if map is 771 then `s02 is Marker`xBuoy
+@if map is 772 then `s02 is Sea`xof`xthe`xEast
+@if map is 773 then `s02 is Sea`xof`xthe`xEast
+@if map is 775 then `s02 is SLAYER`xFight
+@if map is 776 then `s02 is Sea`xof`xthe`xEast
+@if map is 777 then `s02 is Sea`xof`xthe`xEast
+@if map is 778 then `s02 is Typhoon
+@if map is 779 then `s02 is Sea`xof`xthe`xEast
+@if map is 780 then `s02 is Sea`xof`xthe`xEast
+@if map is 781 then `s02 is Sea`xof`xthe`xEast
+@if map is 782 then `s02 is Sea`xof`xthe`xEast
+@if map is 783 then `s02 is Sea`xof`xthe`xEast
+@if map is 784 then `s02 is Sea`xof`xthe`xEast
+@if map is 785 then `s02 is Ocean
+@if map is 786 then `s02 is S.`xof`xDragonTooth`xIsland
+@if map is 787 then `s02 is S.E.`xof`xDragon`xTooth`xIsland
+@if map is 789 then `s02 is Sea`xof`xthe`xEast
+@if map is 790 then `s02 is Sea`xof`xthe`xEast
+@if map is 791 then `s02 is Maelstrom
+@if map is 792 then `s02 is Sea`xof`xthe`xEast
+@if map is 793 then `s02 is Sea`xof`xthe`xEast
+@if map is 794 then `s02 is Sea`xof`xthe`xEast
+@if map is 795 then `s02 is Sea`xof`xthe`xEast
+@if map is 796 then `s02 is Inside`xOdin's`xKeep
+@if map is 797 then `s02 is The`xSea
+@if map is 798 then `s02 is Eric's`xBar
+@if map is 800 then `s02 is Stone`xBeach`xPass
+@if map is 801 then `s02 is Sea`xSerpent
+@if map is 804 then `s02 is Underground`xPassage
+@if map is 805 then `s02 is Underground`xPassage
+@if map is 815 then `s02 is House`xof`xthe`xTensions
+@if map is 816 then `s02 is Tension`xHouse,`xLabaratory
+@if map is 817 then `s02 is Tension`xHouse,`xIndoor`xIsland
+@if map is 818 then `s02 is Dragon`xVillage
+@if map is 819 then `s02 is Valley`xof`xthe`xRed`xDragons
+@if map is 821 then `s02 is Atlantis/Sosen`xPassage
+@if map is 822 then `s02 is Glendale`xCastle
+@if map is 823 then `s02 is Glendale`xCrossRoads
+@if map is 824 then `s02 is Glendale
+@if map is 825 then `s02 is Inside`xGlendale
+@if map is 826 then `s02 is Inside`xGlendale`xCastle
+@if map is 827 then `s02 is Glendale`xHotel
+@if map is 828 then `s02 is Third`xFloor`xof`xthe`xTower
+@if map is 829 then `s02 is Ground`xLevel`xof`xthe`xTower
+@if map is 830 then `s02 is The`xTeleporter`xGems
+@if map is 831 then `s02 is Second`xFloor`xof`xthe`xTower
+@if map is 832 then `s02 is Q's`xStables
+@if map is 833 then `s02 is Q's`xInn
+@if map is 834 then `s02 is Main`xBuilding
+@if map is 835 then `s02 is Inside`xQ's`xFortress
+@if map is 836 then `s02 is Q's`xBar
+@if map is 837 then `s02 is Q's`xSupplies
+@if map is 838 then `s02 is Q's`xHealers
+@if map is 845 then `s02 is Atlantis/Sosen`xPassage
+@if map is 847 then `s02 is Cell`xBlock`xC
+@if map is 850 then `s02 is Cell`xBlock`xB
+@if map is 851 then `s02 is Southern`xCoast
+@if map is 855 then `s02 is SLAYER's`xDomain
+@if map is 856 then `s02 is Danger`xZone
+@if map is 860 then `s02 is Breanna's`xHut
+@if map is 862 then `s02 is Devils`xIsland`xNorth`xSide
+@if map is 863 then `s02 is Demon's`xInn
+@if map is 864 then `s02 is `4HeLL
+@if map is 865 then `s02 is Devils`xIsland`xbar
+@if map is 866 then `s02 is Devils`xIsland`xBar`x(Bathroom)
+@if map is 867 then `s02 is Offshore
+@if map is 868 then `s02 is Offshore
+@if map is 869 then `s02 is Offshore
+@if map is 870 then `s02 is Shipwreck`xlower`xlevel
+@if map is 871 then `s02 is Shipwreck`xupper`xlevel
+@if map is 872 then `s02 is Secret`xTemple`xRoom
+@if map is 873 then `s02 is Old`xDragon`xTooth`xTemple
+@if map is 875 then `s02 is Screen`x875
+@if map is 876 then `s02 is North`xof`xPortTown
+@if map is 877 then `s02 is The`xSea
+@if map is 879 then `s02 is Inside`xOdin's`xCastle
+@if map is 880 then `s02 is StonePass`xLodge
+@if map is 881 then `s02 is Locker`xHouse:`x2nd`xHall
+@if map is 882 then `s02 is Locker`xHouse:`x3rd`xHall
+@if map is 895 then `s02 is Tall`xTale`xMountain
+@if map is 896 then `s02 is Tension's`xHouse,`xDungeon
+@if map is 897 then `s02 is Tension`xHouse,`xOutdoor`xRoom
+@if map is 898 then `s02 is Valley`xof`xthe`xRed`xDragons
+@if map is 899 then `s02 is The`xMother`xof`xRed`xDragons
+@if map is 901 then `s02 is Atlantis/Sosen`xPassage
+@if map is 909 then `s02 is Hell's`xTests
+@if map is 911 then `s02 is Stair`xCase
+@if map is 912 then `s02 is Undersea`xCave
+@if map is 913 then `s02 is Q's`xForge
+@if map is 914 then `s02 is Q's`xArmory
+@if map is 920 then `s02 is Red`xDragon`xInn
+@if map is 921 then `s02 is Inn
+@if map is 925 then `s02 is Atlantis/Sosen`xPassage
+@if map is 926 then `s02 is Atlantis/Sosen`xPassage
+@if map is 927 then `s02 is Atlantis/Sosen`xPassage
+@if map is 928 then `s02 is Atlantis/Sosen`xPassage
+@if map is 929 then `s02 is Atlantis/Sosen`xPassage
+@if map is 931 then `s02 is Southern`xCoast
+@if map is 934 then `s02 is The`xPier
+@if map is 935 then `s02 is Path`xto`xSLAYER's`xDomain
+@if map is 936 then `s02 is Jagged`xBeach
+@if map is 937 then `s02 is Jagged`xBeach
+@if map is 938 then `s02 is Jagged`xBeach
+@if map is 939 then `s02 is Jagged`xBeach
+@if map is 940 then `s02 is Breanna's`xCove
+@if map is 941 then `s02 is Jagged`xBeach
+@if map is 942 then `s02 is Devils`xIsland`xSouth`xSide
+@if map is 943 then `s02 is Jagged`xBeach
+@if map is 944 then `s02 is Jagged`xBeach
+@if map is 945 then `s02 is Jagged`xBeach
+@if map is 946 then `s02 is Jagged`xBeach
+@if map is 947 then `s02 is Jagged`xBeach
+@if map is 948 then `s02 is Jagged`xBeach
+@if map is 949 then `s02 is Jagged`xBeach
+@if map is 950 then `s02 is Shipwreck`xbeach
+@if map is 951 then `s02 is Jagged`xBeach
+@if map is 952 then `s02 is Jagged`xBeach
+@if map is 953 then `s02 is Jagged`xBeach
+@if map is 954 then `s02 is Jagged`xBeach
+@if map is 955 then `s02 is Jagged`xBeach
+@if map is 956 then `s02 is PortTown`xGate
+@if map is 957 then `s02 is East`xPortTown`xBridge
+@if map is 958 then `s02 is East`xBeach
+@if map is 959 then `s02 is East`xBeach
+@if map is 960 then `s02 is Edge`xof`xStonePass
+@if map is 961 then `s02 is Locker`xHouse:`x1st`xHall
+@if map is 962 then `s02 is Locker`xHouse:`xFront`xDesk
+@if map is 963 then `s02 is Locker`xHouse:`x4th`xHall
+@if map is 974 then `s02 is Concert`xHall`x-`xMoshpit
+@if map is 975 then `s02 is Backstage`xParty`xw/`xGroupies
+@if map is 976 then `s02 is your`xsubconscious
+@if map is 977 then `s02 is The`xCity`xof`xAtlantis`x(NE)
+@if map is 978 then `s02 is SandCity`xBar
+@if map is 979 then `s02 is SandCity`xInn
+@if map is 980 then `s02 is SandCity
+@if map is 981 then `s02 is Atlantis/Sosen`xPassage
+@if map is 983 then `s02 is The`xSword`xCastle`xCaves
+@if map is 984 then `s02 is The`xSword`xCastle`xCaves
+@if map is 985 then `s02 is The`xSword`xCastle`xCaves
+@if map is 986 then `s02 is The`xSword`xCastle`xCaves
+@if map is 989 then `s02 is Hell
+@if map is 998 then `s02 is Knotwood`xVillage
+@if map is 999 then `s02 is Knotwood`xCastle
+@if map is 1000 then `s02 is Red`xDragon`xTown
+@if map is 1001 then `s02 is Legendary`xForest
+@if map is 1002 then `s02 is Jasminita`xRoom2
+@if map is 1003 then `s02 is Royal`xChambers
+@if map is 1004 then `s02 is Esperanto`xChambers
+@if map is 1006 then `s02 is Barren`xReef
+@if map is 1007 then `s02 is Great`xWestern`xOcean
+@if map is 1008 then `s02 is Great`xWestern`xOcean
+@if map is 1009 then `s02 is Great`xWestern`xOcean
+@if map is 1010 then `s02 is Great`xWestern`xOcean
+@if map is 1011 then `s02 is Southern`xCoast
+@if map is 1012 then `s02 is Sandy`xJagged`xBeach
+@if map is 1013 then `s02 is Jagged`xBeach
+@if map is 1014 then `s02 is Jagged`xBeach
+@if map is 1015 then `s02 is West`xRoad
+@if map is 1016 then `s02 is West`xRoad
+@if map is 1017 then `s02 is Hill`x(tm)
+@if map is 1018 then `s02 is West`xRoad
+@if map is 1019 then `s02 is OutRock
+@if map is 1020 then `s02 is Red`xDragon`xTown
+@if map is 1021 then `s02 is West`xForest
+@if map is 1022 then `s02 is Split`xRock
+@if map is 1023 then `s02 is Split`xRock
+@if map is 1024 then `s02 is Split`xRock
+@if map is 1025 then `s02 is Split`xRock
+@if map is 1026 then `s02 is Eastern`xDesert
+@if map is 1027 then `s02 is Eastern`xDesert
+@if map is 1028 then `s02 is Eastern`xDesert
+@if map is 1029 then `s02 is Oasis
+@if map is 1030 then `s02 is The`xPaladin`xOasis
+@if map is 1031 then `s02 is Figaro,`xthe`xdesert`xcastle
+@if map is 1032 then `s02 is Eastern`xDesert
+@if map is 1033 then `s02 is Eastern`xDesert`xedge
+@if map is 1034 then `s02 is Dark`xPassage
+@if map is 1035 then `s02 is WaterFall
+@if map is 1036 then `s02 is South`xof`xPortTown
+@if map is 1037 then `s02 is East`xForest`xand`xOdin's`xCastle
+@if map is 1038 then `s02 is East`xForest
+@if map is 1039 then `s02 is East`xForest
+@if map is 1040 then `s02 is Doc`xFarrell's`xOffice
+@if map is 1045 then `s02 is Flagcity`xTemple
+@if map is 1046 then `s02 is Sosen`xTemple
+@if map is 1047 then `s02 is Rockholm`xMountains`xTemple
+@if map is 1056 then `s02 is The`xCity`xof`xAtlantis`x(SW)
+@if map is 1057 then `s02 is The`xCity`xof`xAtlantis`x(SE)
+@if map is 1058 then `s02 is Atlantis/Sosen`xPassage
+@if map is 1059 then `s02 is Atlantis/Sosen`xPassage
+@if map is 1060 then `s02 is Atlantis/Sosen`xPassage
+@if map is 1061 then `s02 is Atlantis/Sosen`xPassage
+@if map is 1062 then `s02 is Rudy's`xPentagram
+@if map is 1063 then `s02 is The`xSword`xCastle`xCaves
+@if map is 1064 then `s02 is The`xSword`xCastle`xCaves
+@if map is 1065 then `s02 is The`xSword`xCastle`xCaves
+@if map is 1066 then `s02 is The`xSword`xCastle`xCaves
+@if map is 1069 then `s02 is The`xRoom`xwith`xno`xPaths
+@if map is 1073 then `s02 is The`xHydra's`xCave
+@if map is 1074 then `s02 is Dragon`xIsland
+@if map is 1075 then `s02 is Dragon`xCliffs
+@if map is 1082 then `s02 is Jasminita`xRoom1
+@if map is 1083 then `s02 is Royal`xLobby
+@if map is 1084 then `s02 is Esperanto`xLobby
+@if map is 1088 then `s02 is Southern`xCoast
+@if map is 1090 then `s02 is West`xof`xFlagCity
+@if map is 1091 then `s02 is West`xof`xFlagCity
+@if map is 1092 then `s02 is FlagCity`xGate
+@if map is 1093 then `s02 is FlagCity`xBridge`x&`xTemple
+@if map is 1094 then `s02 is The`xHouse`xof`xDreams
+@if map is 1095 then `s02 is Forest`xRiver
+@if map is 1096 then `s02 is Forest`xRiver
+@if map is 1097 then `s02 is Forest`xRiver
+@if map is 1098 then `s02 is Forest`xRiver
+@if map is 1099 then `s02 is Forest`xRiver
+@if map is 1100 then `s02 is Forest`xRiver
+@if map is 1101 then `s02 is Forest`xRiver
+@if map is 1102 then `s02 is Forest`xRiver
+@if map is 1103 then `s02 is Forest`xRiver
+@if map is 1104 then `s02 is Forest`xRiver
+@if map is 1105 then `s02 is Forest`xRiver
+@if map is 1106 then `s02 is Desert`xRiver
+@if map is 1107 then `s02 is Desert`xRiver
+@if map is 1108 then `s02 is Desert`xRiver
+@if map is 1109 then `s02 is Desert`xRiver
+@if map is 1110 then `s02 is Desert`xRiver
+@if map is 1111 then `s02 is Desert`xGateway
+@if map is 1112 then `s02 is Forest`xgateway
+@if map is 1113 then `s02 is Kiteria's`xCastle
+@if map is 1114 then `s02 is Woodland`xForest
+@if map is 1115 then `s02 is Tiny`xLake
+@if map is 1116 then `s02 is Fishing`xdock
+@if map is 1117 then `s02 is Under`xthe`xFalls
+@if map is 1119 then `s02 is Big`xBad`xBait`xShop
+@if map is 1120 then `s02 is Glimmering`xPond
+@if map is 1121 then `s02 is TeamHouse`x1
+@if map is 1142 then `s02 is DEATHSHIFT'S`xVOID...
+@if map is 1143 then `s02 is The`xSword`xCastle`xCaves
+@if map is 1144 then `s02 is The`xSword`xCastle`xCaves
+@if map is 1145 then `s02 is The`xSword`xCastle`xCaves
+@if map is 1146 then `s02 is The`xSword`xCastle`xCaves
+@if map is 1154 then `s02 is Dragon`xIsland
+@if map is 1155 then `s02 is Dragon`xIsland
+@if map is 1156 then `s02 is Sea`xof`xthe`xWest
+@if map is 1157 then `s02 is Sea`xof`xthe`xWest
+@if map is 1158 then `s02 is Sea`xof`xthe`xWest
+@if map is 1159 then `s02 is Sea`xof`xthe`xWest
+@if map is 1160 then `s02 is Sea`xof`xthe`xWest
+@if map is 1161 then `s02 is Sea`xof`xthe`xWest
+@if map is 1162 then `s02 is Sea`xof`xthe`xWest
+@if map is 1163 then `s02 is Sea`xof`xthe`xWest
+@if map is 1164 then `s02 is Sea`xof`xthe`xWest
+@if map is 1165 then `s02 is Sea`xof`xthe`xWest
+@if map is 1166 then `s02 is Sea`xof`xthe`xWest
+@if map is 1167 then `s02 is Sea`xof`xthe`xWest
+@if map is 1168 then `s02 is Southern`xCoast
+@if map is 1169 then `s02 is ThE`xWaTeR`xCaVe`xMaZe
+@if map is 1170 then `s02 is Old`xDragon`xTooth`xTemple
+@if map is 1171 then `s02 is Passage`xto`xthe`xunknown
+@if map is 1172 then `s02 is Entrance`xTo`xThe`xUnknown
+@if map is 1173 then `s02 is West`xRoad
+@if map is 1174 then `s02 is Forest`xRiver
+@if map is 1175 then `s02 is TeamHouse`x3
+@if map is 1176 then `s02 is Wizard`xTower
+@if map is 1186 then `s02 is Blue`xDragon
+@if map is 1187 then `s02 is Blue`xDragon
+@if map is 1188 then `s02 is Forest`xRiver
+@if map is 1189 then `s02 is Old`xman's`xrock
+@if map is 1192 then `s02 is Scorpion's`xDen
+@if map is 1193 then `s02 is The`xShrine
+@if map is 1194 then `s02 is Path`xto`xthe`xShrine
+@if map is 1195 then `s02 is Forest`xwith`xSmall`xMountain
+@if map is 1196 then `s02 is North`xGreenTree
+@if map is 1197 then `s02 is Shack
+@if map is 1198 then `s02 is SYSOP`xunderground
+@if map is 1200 then `s02 is `%SYSOP`xCastle
+@if map is 1201 then `s02 is Tavern`xInn
+@if map is 1202 then `s02 is Torin`xCastle
+@if map is 1205 then `s02 is Inner`xCondemned`xCave
+@if map is 1206 then `s02 is WoodLog`xInn
+@if map is 1207 then `s02 is Inside`xPawn`xShop
+@if map is 1208 then `s02 is A`xBoneTown`xHouse
+@if map is 1209 then `s02 is A`xBoneTown`xHouse
+@if map is 1210 then `s02 is BoneTown`xBar
+@if map is 1212 then `s02 is Entrance`xto`xQuester
+@if map is 1213 then `s02 is Spider`xForest
+@if map is 1214 then `s02 is Darken`xStone
+@if map is 1215 then `s02 is Revenge`xCastle:`xNorth`xRoom
+@if map is 1216 then `s02 is Revenge`xCastle:Fighting`xGround
+@if map is 1217 then `s02 is Revenge`xCastle:`xNorth`xRoom
+@if map is 1225 then `s02 is The`xSword`xCastle`xCaves
+@if map is 1233 then `s02 is Medusa`xIsle
+@if map is 1234 then `s02 is Krista's`xTavern
+@if map is 1235 then `s02 is Banshee's`xEnd
+@if map is 1236 then `s02 is Ye`xTowne`xJail
+@if map is 1237 then `s02 is Celebration`xHouse
+@if map is 1238 then `s02 is Haunted`xHouse
+@if map is 1248 then `s02 is Southern`xCoast
+@if map is 1249 then `s02 is Gamble`xHouse
+@if map is 1250 then `s02 is Myst`xInn
+@if map is 1251 then `s02 is Pyramid's`xRooms
+@if map is 1252 then `s02 is Sandy`xBeach
+@if map is 1253 then `s02 is West`xRoad
+@if map is 1254 then `s02 is Forest`xRiver
+@if map is 1255 then `s02 is TeamHouse`x3
+@if map is 1257 then `s02 is The`xHouse`xof`xDreams
+@if map is 1268 then `s02 is Moat`xBridge
+@if map is 1269 then `s02 is Moat`xIsland
+@if map is 1271 then `s02 is Forest
+@if map is 1272 then `s02 is IceLord`xKeep`xEstate
+@if map is 1273 then `s02 is Forest
+@if map is 1274 then `s02 is Broken`xpath`xforest
+@if map is 1275 then `s02 is Forest
+@if map is 1276 then `s02 is VooDoo`xCult`xArea
+@if map is 1277 then `s02 is Blue`xFalls
+@if map is 1278 then `s02 is Rocky`xRoad
+@if map is 1279 then `s02 is Village`xForest
+@if map is 1280 then `s02 is Northeast`xStonebrook`xVillage
+@if map is 1281 then `s02 is Turgon's`xShack
+@if map is 1282 then `s02 is The`xFunHouse
+@if map is 1285 then `s02 is Condemned`xCave
+@if map is 1286 then `s02 is West`xBoneTown
+@if map is 1287 then `s02 is East`xBoneTown
+@if map is 1288 then `s02 is Jester's`xCasino
+@if map is 1289 then `s02 is Condemned`xCave
+@if map is 1295 then `s02 is Revenge`xCastle:`xWest`xRoom
+@if map is 1296 then `s02 is Revenge`xCastle:`xMain`xOffice
+@if map is 1297 then `s02 is Revenge`xCastle:`xInn
+@if map is 1313 then `s02 is West`xCaverns
+@if map is 1314 then `s02 is JabberWock
+@if map is 1315 then `s02 is East`xCaverns
+@if map is 1316 then `s02 is Moria`xDeep
+@if map is 1328 then `s02 is Southern`xCoast
+@if map is 1330 then `s02 is Inside`xMyst`xVille
+@if map is 1331 then `s02 is Myst`xVille`xregion
+@if map is 1332 then `s02 is Sandy`xBeach
+@if map is 1333 then `s02 is West`xForest
+@if map is 1334 then `s02 is Monastery
+@if map is 1340 then `s02 is TeamHouse`x5
+@if map is 1341 then `s02 is Sharks'`xTooth`xIsland
+@if map is 1342 then `s02 is TeamHouse`x4
+@if map is 1346 then `s02 is Old`xMan`xMortal's
+@if map is 1348 then `s02 is Moat`xIsland
+@if map is 1349 then `s02 is Q's`xFortress
+@if map is 1351 then `s02 is Greentree`xfields
+@if map is 1352 then `s02 is Tower
+@if map is 1353 then `s02 is Dark`xForest
+@if map is 1354 then `s02 is Dark`xForest`xGate
+@if map is 1355 then `s02 is East`xKnotwood
+@if map is 1356 then `s02 is GreenTree
+@if map is 1357 then `s02 is Ye`xOlde`xFarm
+@if map is 1358 then `s02 is Neb's`xRoad
+@if map is 1359 then `s02 is Stonebrook
+@if map is 1360 then `s02 is East`xStonebrook`xVillage
+@if map is 1361 then `s02 is IceLord`xKeep
+@if map is 1362 then `s02 is Inside`xIceLord`xKeep`x(lower)
+@if map is 1363 then `s02 is Inside`xIceLord`xKeep`x(upper)
+@if map is 1364 then `s02 is Inside`xIceLord`xKeep`x(dungeon)
+@if map is 1365 then `s02 is IceLord`xKeep`xTavern
+@if map is 1366 then `s02 is IceLord`xKeep`x(tower)
+@if map is 1367 then `s02 is IceLord`xKeep`x(tower)
+@if map is 1368 then `s02 is Guild`xForest
+@if map is 1369 then `s02 is Assassin's`xGuild
+@if map is 1370 then `s02 is Magician's`xGuild
+@if map is 1371 then `s02 is Knight's`xGuild
+@if map is 1383 then `s02 is The`xSword`xCastle`xIsland
+@if map is 1384 then `s02 is Forest`xof`xthe`xDead
+@if map is 1385 then `s02 is Dark`xPassage`xMountain
+@if map is 1386 then `s02 is Forbidden`xForest
+@if map is 1393 then `s02 is Dark`xChasm
+@if map is 1394 then `s02 is Lava`xFlow
+@if map is 1395 then `s02 is Dark`xForest
+@if map is 1396 then `s02 is Pyramid's`xPlace
+@if map is 1397 then `s02 is Pyramid's`xPlace
+@if map is 1398 then `s02 is Pyramid's`xRooms
+@if map is 1399 then `s02 is The`xO'Bubba`xstudio
+@if map is 1400 then `s02 is The`xSIT`xON`xIT`xstudio
+@if map is 1401 then `s02 is Win`xHis`xMoney`xstudio
+@if map is 1408 then `s02 is Southern`xCoast
+@if map is 1411 then `s02 is Sosen`xInn
+@if map is 1412 then `s02 is Sandy`xBeach
+@if map is 1413 then `s02 is Mysterious`xCave
+@if map is 1414 then `s02 is West`xRoad
+@if map is 1415 then `s02 is West`xForest
+@if map is 1416 then `s02 is West`xForest
+@if map is 1418 then `s02 is The`xWampa's`xCave
+@if map is 1419 then `s02 is Wizard's`xTower
+@if map is 1422 then `s02 is Dragon's`xDen`xHousing
+@if map is 1423 then `s02 is Upper`xEstates
+@if map is 1425 then `s02 is Christopher`xRobbin's`xHouse
+@if map is 1426 then `s02 is Pooh's`xHoney`xCave
+@if map is 1427 then `s02 is Hundred`xAcre`xWoods
+@if map is 1432 then `s02 is Flower`xBed
+@if map is 1433 then `s02 is The`xDark`xForest
+@if map is 1434 then `s02 is `%Dark`xForest
+@if map is 1435 then `s02 is Torin`xCastle
+@if map is 1436 then `s02 is South`xGreenTree`xfield
+@if map is 1437 then `s02 is Screen`x1,437
+@if map is 1438 then `s02 is South`xStonebrook
+@if map is 1439 then `s02 is South`xStonebrook
+@if map is 1440 then `s02 is Massive`xTree
+@if map is 1441 then `s02 is Camelot`xPalace
+@if map is 1442 then `s02 is Camelot
+@if map is 1443 then `s02 is Camelot`xInn
+@if map is 1450 then `s02 is Upstairs`xof`xJaime's`xInn
+@if map is 1451 then `s02 is Downstairs`xof`xJaime's`xInn
+@if map is 1452 then `s02 is Underground`xCity
+@if map is 1453 then `s02 is Underground`xCity
+@if map is 1454 then `s02 is Underground`xCity
+@if map is 1455 then `s02 is Inside`xSome`xUnderground`xHouses
+@if map is 1456 then `s02 is Inside`xsome`xUnderground`xHouses
+@if map is 1458 then `s02 is Inside`xthe`xhouse
+@if map is 1459 then `s02 is Black`xDeath's`xBar
+@if map is 1460 then `s02 is Tavern`xInn
+@if map is 1461 then `s02 is Tavern's`xBasement
+@if map is 1463 then `s02 is The`xSword`xCastle`xIsland
+@if map is 1464 then `s02 is The`xSword`xCastle
+@if map is 1465 then `s02 is The`xSword`xCastle
+@if map is 1466 then `s02 is The`xSword`xCastle`xHotel
+@if map is 1467 then `s02 is Jamie's`xBar`x&`xGrill
+@if map is 1468 then `s02 is The`xSword`xCastle`xTower
+@if map is 1469 then `s02 is The`xSword`xCastle`xTower
+@if map is 1470 then `s02 is The`xSword`xCastle`xTower
+@if map is 1471 then `s02 is Barak's`xHouse
+@if map is 1473 then `s02 is Mandrake`xForest
+@if map is 1474 then `s02 is Piper's`xFields
+@if map is 1475 then `s02 is Marshy`xFell
+@if map is 1476 then `s02 is Pyramid's`xRooms
+@if map is 1477 then `s02 is Pyramid's`xRooms
+@if map is 1478 then `s02 is Pyramid's`xHouse
+@if map is 1479 then `s02 is Pyramid's`xMarket
+@if map is 1481 then `s02 is Hearth`xfor`xbroadcast`xscrying
+@if map is 1488 then `s02 is Southern`xCoast
+@if map is 1489 then `s02 is Southern`xCoast
+@if map is 1490 then `s02 is Ocean
+@if map is 1491 then `s02 is Southern`xCoast
+@if map is 1492 then `s02 is Sandy`xBeach
+@if map is 1493 then `s02 is West`xRoad
+@if map is 1494 then `s02 is West`xRoad
+@if map is 1495 then `s02 is West`xRoad
+@if map is 1496 then `s02 is West`xroad
+@if map is 1497 then `s02 is West`xSnowy`xentrance
+@if map is 1498 then `s02 is West`xSnowy`xPass
+@if map is 1499 then `s02 is Snowy`xPass
+@if map is 1502 then `s02 is BLIZZARD!
+@if map is 1504 then `s02 is BLIZZARD!
+@if map is 1508 then `s02 is Snowy`xPass
+@if map is 1509 then `s02 is Snowy`xPass
+@if map is 1510 then `s02 is Snowy`xPass
+@if map is 1512 then `s02 is PukeWorld
+@if map is 1513 then `s02 is Tash's`xLair
+@if map is 1514 then `s02 is Hidden`xdark`xforest
+@if map is 1515 then `s02 is Greentree`xForest
+@if map is 1516 then `s02 is South`xForest`xof`xGreentree
+@if map is 1517 then `s02 is Sword`xin`xStone
+@if map is 1518 then `s02 is Greba's`xField
+@if map is 1519 then `s02 is Strange`xCabin
+@if map is 1520 then `s02 is Faerie`xGlade
+@if map is 1521 then `s02 is Wizard's`xCastle`xLobby
+@if map is 1522 then `s02 is Wizard's`xCastle`xUpstairs`xMaze
+@if map is 1523 then `s02 is Red`xDragon`xInn's`xBasement
+@if map is 1525 then `s02 is Forest
+@if map is 1526 then `s02 is Greentree
+@if map is 1527 then `s02 is The`xRed`xDragon`xInn
+@if map is 1549 then `s02 is Pharaoh's`xPlace
+@if map is 1553 then `s02 is Rat`xVille
+@if map is 1554 then `s02 is Spider`xForest
+@if map is 1555 then `s02 is Stone`xCircle
+@if map is 1556 then `s02 is Pyramid's`xRooms
+@if map is 1557 then `s02 is Jasminita`xRoom2
+@if map is 1560 then `s02 is Sword`xin`xStone
+@if map is 1565 then `s02 is Andrew's`xHouse
+@if map is 1566 then `s02 is Inside`xKiteria's`xCastle
+@if map is 1567 then `s02 is Under`xKiteria's`xCastle
+@if map is 1568 then `s02 is East`xStonebrook`xVillage
+@if map is 1569 then `s02 is Photek's`xHouse
+@if map is 1570 then `s02 is Bandit's`xprison
+@if map is 1571 then `s02 is West`xof`xBone`xTown
+@if map is 1572 then `s02 is Outside`xBone`xTown
+@if map is 1573 then `s02 is Bandit's`xHideout
+@if map is 1574 then `s02 is West`xForest
+@if map is 1575 then `s02 is West`xForest
+@if map is 1576 then `s02 is West`xForest
+@if map is 1577 then `s02 is Classroom`xBuilding
+@if map is 1578 then `s02 is Physics`xBuilding
+@if map is 1579 then `s02 is Dormitory
+@if map is 1580 then `s02 is Fast`xFreddy's`xGem`xEmporium
+@if map is 1581 then `s02 is Underground`xLabrynth
+@if map is 1582 then `s02 is Catina
+@if map is 1583 then `s02 is `%Dark`xCloak`xRuins
+@if map is 1584 then `s02 is `%Dark`xCloak`xFighting`xGROUNDS
+@if map is 1586 then `s02 is Josiah's`xSoda`xStand
+@if map is 1587 then `s02 is Dragon`xDen`xHousing`xHomes
+@if map is 1588 then `s02 is Dragon`xDen`xHousing`xHutts
+@if map is 1589 then `s02 is Jack's`xRestuarant
+@if map is 1590 then `s02 is Snowy`xPass
+@if map is 1591 then `s02 is Snowy`xPass`xoverlook
+@if map is 1592 then `s02 is South`xDark`xForest
+@if map is 1593 then `s02 is The`xGraveYard
+@if map is 1594 then `s02 is The`xGraveYard
+@if map is 1595 then `s02 is Cabin
+@if map is 1596 then `s02 is Woodland`xUnderground
+@if map is 1597 then `s02 is Underground`xBar
+@if map is 1598 then `s02 is Underground`xBar`x(Upper)
+@if map is 1599 then `s02 is Underground`xMuseum
+@if map is 1600 then `s02 is Black`xDeath's`xBar
+@closescript
diff --git a/xtrn/lord2/cnw/lockers.ref b/xtrn/lord2/cnw/lockers.ref
new file mode 100644
index 0000000000000000000000000000000000000000..fd3027d179edfefc3fbe5d5da825eb647a7de549
--- /dev/null
+++ b/xtrn/lord2/cnw/lockers.ref
@@ -0,0 +1,1399 @@
+; Script file LOCKERS.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:17 2001
+
+@DECLARE teller 000001119
+@DECLARE account 000002125
+@DECLARE account3 000002330
+@DECLARE accountloop 000002867
+@DECLARE accountend 000003873
+@DECLARE account2 000004504
+@DECLARE payup 000008450
+@DECLARE rentitmore 000010715
+@DECLARE rent 000010959
+@DECLARE rentit 000013805
+@DECLARE checkloop 000014598
+@DECLARE doneloop 000016246
+@DECLARE rentit2 000016670
+@DECLARE buy 000017978
+@DECLARE info 000018110
+@DECLARE ownlocker 000022510
+@DECLARE letinroom 000024431
+@DECLARE changepw 000025467
+@DECLARE empty 000026159
+@DECLARE door1 000026979
+@DECLARE door2 000030153
+@DECLARE door3 000033544
+@DECLARE breakin 000033723
+@DECLARE bb 000034608
+@DECLARE nomore 000037292
+@NOCHECK
+; End of .REF index
+
+;
+; Locker House version 1.2 (REF FILE #1/6)
+; by: Joel Gathercole
+;
+; in aliance with Complete New World 136.3+
+;
+;
+; http://greenmachinebbs.com/lord2/
+; telnet://greenmachinebbs.com
+; greenie@darktech.org
+;
+;
+;
+; You must run MAINT in LOCKMANT.REF each day.
+;
+;
+@#teller
+@busy
+@do `p29 is 962
+@do moveback
+@do move 1 1
+@show
+`r0`c
+ `7�����������������������������������������������������������������������ı
+ `7�`6Welcome to the Locker House, the safest place to store your belongings.`7�
+ `7�����������������������������������������������������������������������ı
+
+ `0�`1��������������������`0�
+ `1� �
+ `1� �
+ `1� �
+ `1� �
+ `1� �
+ `0�`1��������������������`0�
+
+@do move 29 9
+@DO `V01 IS 1
+@choice
+`5Read documents
+`$Rent a locker room
+`$Buy a locker room
+=`t49 1 `$Your account
+`4Leave
+@if responce is 1 then goto info
+@if responce is 2 then goto rent
+@if responce is 3 then goto buy
+@if responce is 4 then goto account
+@do goto nomore
+@end
+@closescript
+
+@label account
+@do `s01 is NIL
+@do `s02 is NIL
+@do `s03 is NIL
+@do `s04 is a
+@do `p21 is 0
+@do `p22 is 0
+@do `p23 is 0
+@do `p24 is 0
+@do `p25 is 0
+@do `p28 is 0
+@do `p29 is 0
+@do `p30 is 0
+
+@label account3
+@if lockers`s04.idf exist true then do
+ @begin
+ @readfile lockers`s04.idf
+`p25
+`p27
+`p26
+`s05
+ @if `p25 is &playernum then do
+ @begin
+ @do `p23 is &time
+ @do `p23 - `p27
+ @do `p26 - `p23
+ @do `p22 is `p27
+ @do `p22 + `p26
+ @do goto account2
+ @end
+ @end
+;`p25=name
+;`p27-day start
+;`p26=total days of account
+;`s05=password
+@do goto accountloop
+
+@label accountloop
+@if `s04 is 6 then goto accountend
+@if `s04 is 5 then `s04 is 6
+@if `s04 is 4 then `s04 is 5
+@if `s04 is 3 then `s04 is 4
+@if `s04 is 2 then `s04 is 3
+@if `s04 is 1 then `s04 is 2
+@if `s04 is z then `s04 is 1
+@if `s04 is y then `s04 is z
+@if `s04 is x then `s04 is y
+@if `s04 is w then `s04 is x
+@if `s04 is v then `s04 is w
+@if `s04 is u then `s04 is v
+@if `s04 is t then `s04 is u
+@if `s04 is s then `s04 is t
+@if `s04 is r then `s04 is s
+@if `s04 is q then `s04 is r
+@if `s04 is p then `s04 is q
+@if `s04 is o then `s04 is p
+@if `s04 is n then `s04 is o
+@if `s04 is m then `s04 is n
+@if `s04 is l then `s04 is m
+@if `s04 is k then `s04 is l
+@if `s04 is j then `s04 is k
+@if `s04 is i then `s04 is j
+@if `s04 is h then `s04 is i
+@if `s04 is g then `s04 is h
+@if `s04 is f then `s04 is g
+@if `s04 is e then `s04 is f
+@if `s04 is d then `s04 is e
+@if `s04 is c then `s04 is d
+@if `s04 is b then `s04 is c
+@if `s04 is a then `s04 is b
+@do goto account3
+
+@label accountend
+@do move 1 1
+@show
+`r0`c
+ `0�`5�������������������������������������������������`0�
+ `5� `%No more lockers owned by you. `5�
+ `0�`5�������������������������������������������������`0�
+
+
+ `0�`1�����������������`0�
+ `1� �
+ `1� �
+ `0�`1�����������������`0�
+@do move 29 10
+@do `s04 is a
+@DO `V01 IS 1
+@choice
+Next Account
+Never mind
+@if responce is 2 then goto teller
+@if responce is 1 then goto accountloop
+@end
+
+@label account2
+@do move 1 1
+@show
+`r0`c
+ `0�`5������������������������������������������������ı
+ `5� `%Locker Room: `$`s04
+ `5� `%Pass Code : `$`s05
+ `5� `%Days rent expires : `$`p26 `%on `$DAY `p22
+ `5� `%Days Rented so far: `$`p23 `%since `$DAY `p27
+ `0�`5������������������������������������������������ı
+
+ `0�`1��������������������`0�
+ `1� �
+ `1� �
+ `1� �
+ `1� �
+ `0�`1��������������������`0�
+@do move 60 5
+@do write
+`5�`r0
+@do move 60 6
+@do write
+`5�`r0
+@do move 60 7
+@do write
+`5�`r0
+@do move 60 8
+@do write
+`5�`r0
+@do move 29 12
+@DO `V01 IS 1
+@choice
+Next Account
+Extend Rent
+<`p26 0 `$PAY OVER DUES
+Never mind
+@if responce is 3 then goto payup
+@if responce is 4 then goto teller
+@if responce is 1 then goto accountloop
+@if responce is 2 then do
+@begin
+@do move 1 1
+@show
+`r0`c
+ `7�����������������������������������������������������������������������ı
+ `7�`6How many more days do you wish to rent your Locker Room for? `7�
+ `7�����������������������������������������������������������������������ı
+ `6You have `$&money `%gold
+ `0�`1�����������������������`0�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `0�`1�����������������������`0�
+
+@do move 29 9
+@DO `V01 IS 1
+@choice
+>&money 99 `%1 day (`$100 `%gold)
+>&money 699 `%7 days (`$700 `%gold)
+>&money 999 `%10 days (`$1000 `%gold)
+>&money 1399 `%14 days (`$1400 `%gold)
+>&money 1999 `%20 days (`$2000 `%gold)
+>&money 4999 `%50 days (`$5000 `%gold)
+>&money 9999 `%100 days (`$10,000 `%gold)
+>&money 24999 `%250 days (`$25,000 `%gold)
+>&money 49999 `%500 days (`$50,000 `%gold)
+>&money 99999 `%1000 days (`$100,000 `%gold)
+`%Forget it.
+@if responce is 1 then do
+ @begin
+ @do `p20 is 100
+ @do `p26 is 1
+ @do goto rentitmore
+ @end
+@if responce is 2 then do
+ @begin
+ @do `p20 is 700
+ @do `p26 is 7
+ @do goto rentitmore
+ @end
+@if responce is 3 then do
+ @begin
+ @do `p20 is 1000
+ @do `p26 is 10
+ @do goto rentitmore
+ @end
+@if responce is 4 then do
+ @begin
+ @do `p20 is 1400
+ @do `p26 is 14
+ @do goto rentitmore
+ @end
+@if responce is 5 then do
+ @begin
+ @do `p20 is 2000
+ @do `p26 is 20
+ @do goto rentitmore
+ @end
+@if responce is 6 then do
+ @begin
+ @do `p20 is 5000
+ @do `p26 is 50
+ @do goto rentitmore
+ @end
+@if responce is 7 then do
+ @begin
+ @do `p20 is 10000
+ @do `p26 is 100
+ @do goto rentitmore
+ @end
+@if responce is 8 then do
+ @begin
+ @do `p20 is 25000
+ @do `p26 is 250
+ @do goto rentitmore
+ @end
+@if responce is 9 then do
+ @begin
+ @do `p20 is 50000
+ @do `p26 is 500
+ @do goto rentitmore
+ @end
+@if responce is 10 then do
+ @begin
+ @do `p20 is 100000
+ @do `p26 is 1000
+ @do goto rentitmore
+ @end
+@do goto teller
+@end
+@end
+
+@label payup
+@do move 1 1
+@show
+`r0`c
+ `7�����������������������������������������������������������������������ı
+ `7� `6You owe for `@`p26 `6days `7�
+ `7�����������������������������������������������������������������������ı
+ `6You have `$&money `%gold
+ `0�`1�����������������������`0�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `0�`1�����������������������`0�
+
+@do move 29 9
+@DO `V01 IS 1
+@choice
+>&money 99 `%1 day (`$100 `%gold)
+>&money 199 <`p26 -1 `%2 days (`$200 `%gold)
+>&money 299 <`p26 -2 `%3 days (`$300 `%gold)
+>&money 399 <`p26 -3 `%4 days (`$400 `%gold)
+>&money 499 <`p26 -4 `%5 days (`$500 `%gold)
+>&money 599 <`p26 -5 `%6 days (`$600 `%gold)
+>&money 699 <`p26 -6 `%7 days (`$700 `%gold)
+`%Forget it.
+@if responce is 1 then do
+ @begin
+ @do `p20 is 100
+ @do `p26 is 1
+ @do goto rentitmore
+ @end
+@if responce is 2 then do
+ @begin
+ @do `p20 is 200
+ @do `p26 is 2
+ @do goto rentitmore
+ @end
+@if responce is 3 then do
+ @begin
+ @do `p20 is 300
+ @do `p26 is 3
+ @do goto rentitmore
+ @end
+@if responce is 4 then do
+ @begin
+ @do `p20 is 400
+ @do `p26 is 4
+ @do goto rentitmore
+ @end
+@if responce is 5 then do
+ @begin
+ @do `p20 is 500
+ @do `p26 is 5
+ @do goto rentitmore
+ @end
+@if responce is 6 then do
+ @begin
+ @do `p20 is 600
+ @do `p26 is 6
+ @do goto rentitmore
+ @end
+@if responce is 7 then do
+ @begin
+ @do `p20 is 700
+ @do `p26 is 7
+ @do goto rentitmore
+ @end
+@if responce is 8 then goto teller
+@end
+
+@label rentitmore
+@do money - `p20
+@readfile lockers`s04.idf
+`p25
+`p27
+`p28
+`s05
+@do `p28 + `p26
+@do delete lockers`s04.idf
+@writefile lockers`s04.idf
+&playernum
+`p27
+`p28
+`s05
+@do `s04 is a
+@do goto accountloop
+@end
+@closescript
+
+@label rent
+@do move 1 1
+@show
+`r0`c
+ `7�����������������������������������������������������������������������ı
+ `7�`6So, you want to rent a room, it'll cost you `$700 `6gold for the first 7 `7�
+ `7�`6days. `$100 `6gold for every extra day after that. `7�
+ `7�`6You must pay in advance, please read our document concerning renting. `7�
+ `7�����������������������������������������������������������������������ı
+ `6You have `$&money `%gold
+ `0�`1�����������������������`0�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `0�`1�����������������������`0�
+
+@do move 29 11
+@DO `V01 IS 1
+@choice
+>&money 699 `%7 days (`$700 `%gold)
+>&money 999 `%10 days (`$1000 `%gold)
+>&money 1399 `%14 days (`$1400 `%gold)
+>&money 1999 `%20 days (`$2000 `%gold)
+>&money 4999 `%50 days (`$5000 `%gold)
+>&money 9999 `%100 days (`$10,000 `%gold)
+>&money 24999 `%250 days (`$25,000 `%gold)
+>&money 49999 `%500 days (`$50,000 `%gold)
+>&money 99999 `%1000 days (`$100,000 `%gold)
+`%Forget it.
+@if responce is 1 then do
+ @begin
+ @do `p20 is 700
+ @do `p28 is 7
+ @do goto rentit
+ @end
+@if responce is 2 then do
+ @begin
+ @do `p20 is 1000
+ @do `p28 is 10
+ @do goto rentit
+ @end
+@if responce is 3 then do
+ @begin
+ @do `p20 is 1400
+ @do `p28 is 14
+ @do goto rentit
+ @end
+@if responce is 4 then do
+ @begin
+ @do `p20 is 2000
+ @do `p28 is 20
+ @do goto rentit
+ @end
+@if responce is 5 then do
+ @begin
+ @do `p20 is 5000
+ @do `p28 is 50
+ @do goto rentit
+ @end
+@if responce is 6 then do
+ @begin
+ @do `p20 is 10000
+ @do `p28 is 100
+ @do goto rentit
+ @end
+@if responce is 7 then do
+ @begin
+ @do `p20 is 25000
+ @do `p28 is 250
+ @do goto rentit
+ @end
+@if responce is 8 then do
+ @begin
+ @do `p20 is 50000
+ @do `p28 is 500
+ @do goto rentit
+ @end
+@if responce is 9 then do
+ @begin
+ @do `p20 is 100000
+ @do `p28 is 1000
+ @do goto rentit
+ @end
+@do goto nomore
+@end
+
+@label rentit
+@do move 1 1
+@show
+`r0`c
+ `7�����������������������������������������������������������������������ı
+ `7� `6Please choose 1 of the available rooms. `7�
+ `7�����������������������������������������������������������������������ı
+
+ `0�`1����������������������`0�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `0�`1����������������������`0�
+
+@do `s01 is NIL
+@do `s02 is NIL
+@do `s05 is NIL
+@do `s03 is NIL
+@do `p21 is 0
+@do `p22 is 0
+@do `p23 is 0
+@do `p24 is 0
+@do `s04 is a
+@do goto checkloop
+
+@label checkloop
+@if `s04 is 7 then goto doneloop
+@if `s04 is NIL then `s04 is a
+@if lockers`s04.idf exist false then do
+ @begin
+ @do `p24 + 1
+ @if `p24 is 1 then do
+ @begin
+ @do `p21 is 1
+ @do `s01 is `s04
+ @end
+ @if `p24 is 2 then do
+ @begin
+ @do `p22 is 1
+ @do `s02 is `s04
+ @end
+ @if `p24 is 3 then do
+ @begin
+ @do `p23 is 1
+ @do `s03 is `s04
+ @end
+ @end
+@if `p24 is 4 then goto doneloop
+;@if `s04 is 6 then `p24 is 4
+@if `s04 is 6 then `s04 is 7
+@if `s04 is 5 then `s04 is 6
+@if `s04 is 4 then `s04 is 5
+@if `s04 is 3 then `s04 is 4
+@if `s04 is 2 then `s04 is 3
+@if `s04 is 1 then `s04 is 2
+@if `s04 is z then `s04 is 1
+@if `s04 is y then `s04 is z
+@if `s04 is x then `s04 is y
+@if `s04 is w then `s04 is x
+@if `s04 is v then `s04 is w
+@if `s04 is u then `s04 is v
+@if `s04 is t then `s04 is u
+@if `s04 is s then `s04 is t
+@if `s04 is r then `s04 is s
+@if `s04 is q then `s04 is r
+@if `s04 is p then `s04 is q
+@if `s04 is o then `s04 is p
+@if `s04 is n then `s04 is o
+@if `s04 is m then `s04 is n
+@if `s04 is l then `s04 is m
+@if `s04 is k then `s04 is l
+@if `s04 is j then `s04 is k
+@if `s04 is i then `s04 is j
+@if `s04 is h then `s04 is i
+@if `s04 is g then `s04 is h
+@if `s04 is f then `s04 is g
+@if `s04 is e then `s04 is f
+@if `s04 is d then `s04 is e
+@if `s04 is c then `s04 is d
+@if `s04 is b then `s04 is c
+@if `s04 is a then `s04 is b
+@do goto checkloop
+
+@label doneloop
+@do move 29 9
+@DO `V01 IS 1
+@choice
+`%Forget it
+=`p21 1 `%ROOM `s01
+=`p22 1 `%ROOM `s02
+=`p23 1 `%ROOM `s03
+@if responce is 1 then goto teller
+@if responce is 2 then do
+ @begin
+ @do `s04 is `s01
+ @do goto rentit2
+ @end
+@if responce is 3 then do
+ @begin
+ @do `s04 is `s02
+ @do goto rentit2
+ @end
+@if responce is 4 then do
+ @begin
+ @do `s04 is `s03
+ @do goto rentit2
+ @end
+
+@label rentit2
+@do move 1 1
+@show
+`r0`c
+ `7�����������������������������������������������������������������������ı
+ `7� `6You need a pass code to enter the room, please choose a `%6 `6digit code: `7�
+ `7� `7�
+ `7� `6Please `%REMEMBER `6this `%PASS CODE`6, It will cost you money to retreive it `7�
+ `7� `6later. `7�
+ `7�����������������������������������������������������������������������ı
+
+ `0�`1���������`0�
+ `1� `1�
+ `0�`1���������`0�
+
+@do move 27 12
+@do readstring 6 000000 `s05
+@do move 1 1
+@show
+`r0`c
+ `7�����������������������������������������������������������������������ı
+ `7� `6Congradualations on your new locker room. `7�
+ `7� `7�
+ `7� `6You now have Locker Room `%`s04 `6for `%`p28 `6days.
+ `7�����������������������������������������������������������������������ı
+
+@do move 74 7
+@do write
+`7�
+@do move 1 13
+@key
+@do `t49 is 1
+@bitset `t49 0 1
+@do money - `p20
+@writefile lockers`s04.idf
+&playernum
+&time
+`p28
+`s05
+@do goto teller
+@end
+
+@label buy
+@do move 1 1
+@show
+`r0`c
+
+
+ `2Sorry, we're not selling rooms at this moment.
+
+@key
+@do goto nomore
+@end
+
+@label info
+@do move 1 1
+@show scroll
+`r0`c
+ `7�����������������������������������������������������������������������ı
+ `7�`6-Welcome to the Locker House, the safest place to store your belongings`7�
+ `7� `7�
+ `7�`6-You can use these lockers to trade items with other people, or to `7�
+ `7�`6store your extra weapons, and to store your precious currency. `7�
+ `7� `7�
+ `7�`6-When you purchase or rent a locker room, you will be requested to use `7�
+ `7�`6a pass code, this pass code can be changed at the locker and only by `7�
+ `7�`6the owner. Anyone with the pass code can open the door, so 1 room can `7�
+ `7�`6be shared among other players. `7�
+ `7� `7�
+ `7�`6-If you leave anything in your room while renting, and your rent is due`7�
+ `7�`6you have 7 days to come and claim your belongings and to pay for those `7�
+ `7�`67 extra days, or I will pawn everything at the local pawn shop, and `7�
+ `7�`6then you can re-buy your stuff there. `7�
+ `7� [more] `7�
+ `7�����������������������������������������������������������������������ı
+
+
+
+
+
+ `7�����������������������������������������������������������������������ı
+ `7� `7�
+ `7�`6-If you own a room, you can RENT it out to other people, and earn extra`7�
+ `7�`6money. `7�
+ `7� `7�
+ `7�`6-Check the "(D)aily Happenings to see which DAY it is. `7�
+ `7� `7�
+ `7�`6-You are NOT permitted to sleep with your items, you may get arrested `7�
+ `7�`6and sent to prison, because you could mistakenly be taken as a theif `7�
+ `7�`6It is only for everyones protection. `7�
+ `7� `7�
+ `7�`6-Yes, we do accept certified COUPONS for renting and buying. These `7�
+ `7�`6coupons are available from some other certified merchants through-out `7�
+ `7�`6the lands. `7�
+ `7� `7�
+ `7� `7�
+ `7� [more] `7�
+ `7�����������������������������������������������������������������������ı
+
+
+
+
+ `7�����������������������������������������������������������������������ı
+ `7� `7�
+ `7�`6-We have very outstanding high security measures to insure that our `7�
+ `7�`6customers have the safest place to store their belongings. We have `7�
+ `7�`6many security officers posted through-out our building 24 hours a `7�
+ `7�`6day, every day. `7�
+ `7� `7�
+ `7�`6-Anyone that is caught trying to steal or illegally breaking into any `7�
+ `7�`6of the lockers rooms, the accused will be taken to the Greentree `7�
+ `7�`6Prison to finish their life. `7�
+ `7� `7�
+ `7� Thank-you, `7�
+ `7� `7�
+ `7� `5Prices: `7�
+ `7� `%To BUY a room: `$500,000 `%gold `7�
+ `7� `%To rent/day : `$100 `%gold (min 7 days) `7�
+ `7� `7�
+ `7�����������������������������������������������������������������������ı
+
+@key
+@do goto teller
+@end
+
+@label ownlocker
+@do move 1 1
+@show
+`r0`c
+
+ `r7`8�����Ŀ`r0
+ `r7`8� �`r0
+ `r7`8� `%�`8�`r0
+ `r7`8� �`r0
+ `r7`8�������`r0
+
+`2You aproach the locker door, and you decide to...
+
+ `r1`4���������������������İ`r0
+ `r1`4� �`r0
+ `r1`4� �`r0
+ `r1`4� �`r0
+ `r1`4���������������������İ`r0
+
+
+@DO `V01 IS 1
+@do move 11 14
+@choice
+`$Open the locker door
+`$Use the pass code key
+`$Leave it alone������
+@if response is 3 then goto nomore
+@if response is 1 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `4�`7�����������������������������������������������������������������������`4�
+ `7� `6The door doesn't budge. It is securely locked. The only way in is the `7�
+ `7�`6pass code. `7�
+ `4�`7�����������������������������������������������������������������������`4�
+
+ @key
+ @do quebar
+ `$oh damn, there must be another way in.
+ @do goto nomore
+ @end
+@if response is 2 then do
+ @begin
+
+ @readfile lockers`s01.idf
+`p25
+`p27
+`p26
+`s05
+@do move 1 1
+ @show
+`r0`c
+
+ `2Please enter the 6 digit pass code:
+
+
+
+ `7���������IJ
+ `7� �
+ `7���������IJ
+ @do move 25 10
+ @do `s02 is 000000
+ @DO READSTRING 6 000000 `s02
+@if `p25 NOT &playernum then do
+ @begin
+ @writefile mail\mail`p25.dat
+ `0Locker Room Security
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`% `n`2 has attempted to open your locker room using
+" `%`s02" `2as the pass code.
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ @end
+ @if `s02 is `s05 then goto letinroom
+ @if `s02 NOT `s05 then goto breakin
+ @end
+
+
+@label letinroom
+@do move 1 1
+@show
+`r0`c
+ `7��������������������������������������������������������ı
+ `7� `$Welcome to this LOCKER ROOM `7�
+ `7��������������������������������������������������������ı
+
+ `0�`4����������������������`0�
+ `4� �
+ `4� �
+ `4� �
+ `4� �
+ `4� �
+ `0�`4����������������������`0�
+
+
+@DO `V01 IS 1
+@do move 11 9
+@readfile lockers`s01.idf
+`p25
+`p27
+`p26
+`s05
+@choice
+`$Leave this Locker Room
+`$Bulletin Board
+`$Treasury
+`$Item Inventory
+=&playernum `p25 `$Change the Pass Code
+@if responce is 1 then goto nomore
+@if responce is 2 then goto bb
+@if responce is 3 then do
+ @begin
+ @run treasure in lockref3.ref
+ @end
+@if responce is 4 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+@if responce is 5 then goto changepw
+@do goto nomore
+@end
+
+@label changepw
+@readfile lockers`s01.idf
+`p25
+`p27
+`p26
+`s05
+@do move 1 1
+@show
+`r0`c
+ `7�����������������������������������������������������������������������ı
+ `7� `6The current pass code is `$`s05 `7�
+ `7� `6Please enter a new 6 digit pass code: `7�
+ `7�����������������������������������������������������������������������ı
+
+ `7���������IJ
+ `7� �
+ `7���������IJ
+
+ @do move 25 10
+ @DO READSTRING 6 000000 `s05
+@do delete lockers`s01.idf
+@writefile lockers`s01.idf
+&playernum
+`p27
+`p26
+`s05
+@do goto letinroom
+@end
+
+
+@#empty
+@do `v01 is 1
+@do move 1 1
+@show
+`r0`c
+
+ `r7`8�����Ŀ`r0
+ `r7`8� �`r0
+ `r7`8� `%�`8�`r0
+ `r7`8� �`r0
+ `r7`8�������`r0
+
+`2You aproach the locker door, and you decide to...
+
+ `r1`4���������������������İ`r0
+ `r1`4� �`r0
+ `r1`4� �`r0
+ `r1`4� �`r0
+ `r1`4���������������������İ`r0
+
+
+@do write
+`x`x
+@do move 11 14
+@choice
+`$Open the locker door
+`$Use the pass code key
+`$Leave it alone������
+@if response is 1 then do
+ @begin
+ @do goto door1
+ @end
+@if response is 2 then do 2
+ @begin
+ @do goto door2
+ @end
+@if response is 3 then do 3
+ @begin
+ @do goto door3
+ @end
+
+@label door1
+@DATALOAD lock`s01.idf &PLAYERNUM `p24
+@IF `p24 is 1 THEN DO
+ @begin
+@do move 1 1
+ @show
+`r0`c
+
+ `2You open the door with ease and find a `$few dust balls `2the previous
+ owner of this locker must have left.
+ @key
+ @do goto nomore
+ @end
+@IF `p24 NOT 1 THEN DO
+ @begin
+ @DATASAVE lock`s01.idf &PLAYERNUM 1
+ @do `p28 random 10 1
+
+ @if `p28 is 1 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+
+ `2You open the door with ease and find a `$few dust balls `2the previous
+ owner of this locker must have left.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 2 then do
+ @begin
+ @do `p27 random 25 10
+ @do money + `p27
+@do move 1 1
+ @show
+`r0`c
+
+ `2You open the door with ease and find `$`p27 gold coins `2in the corner,
+ the previous owner of this locker must have left them by mistake.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 3 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+
+ `2You open the door with ease and find a `$few dust balls `2the previous
+ owner of this locker must have left.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 4 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+
+ `2You open the door with ease and find a `$few dust balls `2the previous
+ owner of this locker must have left.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 5 then do
+ @begin
+ @do `i91 + 1
+@do move 1 1
+ @show
+`r0`c
+
+ `2You open the door with ease and find a `$`+91`2, the previous
+ owner of this locker must have left it by mistake.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 6 then do
+ @begin
+ @do `i94 + 1
+@do move 1 1
+ @show
+`r0`c
+
+ `2You open the door with ease and find a `$`+94`2, the previous
+ owner of this locker must have left it by mistake.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 7 then do
+ @begin
+ @do `i87 + 1
+@do move 1 1
+ @show
+`r0`c
+
+ `2You open the door with ease and find a `$`+87`2, the previous
+ owner of this locker must have left it by mistake.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 8 then do
+ @begin
+ @do `i82 + 1
+@do move 1 1
+ @show
+`r0`c
+
+ `2You open the door with ease and find a `$`+82`2, the previous
+ owner of this locker must have left it by mistake.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 9 then do
+ @begin
+ @do `i80 + 1
+@do move 1 1
+ @show
+`r0`c
+
+ `2You open the door with ease and find a `$`+80`2, the previous
+ owner of this locker must have left it by mistake.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 10 then do
+ @begin
+ @do `i77 + 1
+@do move 1 1
+ @show
+`r0`c
+
+ `2You open the door with ease and find a `$`+77`2, the previous
+ owner of this locker must have left it by mistake.
+ @key
+ @do goto nomore
+ @end
+@end
+
+@label door2
+@do move 1 1
+@show
+`r0`c
+
+ `2Please enter the 6 digit pass code:
+
+
+
+ `7���������IJ
+ `7� �
+ `7���������IJ
+@do move 25 10
+@DO READSTRING 6 000000 `s02
+@DATALOAD lock`s01.idf &PLAYERNUM `p24
+@IF `p24 is 1 THEN DO
+ @begin
+@do move 1 1
+ @show
+`r0`c
+
+ `2You open the door with ease and find a `$few dust balls `2the previous
+ owner of this locker must have left.
+ @key
+ @do goto nomore
+ @end
+
+@IF `p24 NOT 1 THEN DO
+@begin
+@DATASAVE lock`s01.idf &PLAYERNUM 1
+@do move 1 1
+@show
+`r0`c
+
+ `2IT OPENS! You open the door on your first try, great work.
+
+@key
+@do `p28 random 10 1
+
+ @if `p28 is 1 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+
+ `2You look around and find a `$few dust balls `2the previous
+ owner of this locker must have left.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 2 then do
+ @begin
+ @do `p27 random 25 10
+ @do money + `p27
+@do move 1 1
+ @show
+`r0`c
+
+ `2You look around and find `$`p27 gold coins `2in the corner,
+ the previous owner of this locker must have left them by mistake.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 3 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+
+ `2You look around and find a `$few dust balls `2the previous
+ owner of this locker must have left.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 4 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+
+ `2You look around and find a `$few dust balls `2the previous
+ owner of this locker must have left.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 5 then do
+ @begin
+ @do `i91 + 1
+@do move 1 1
+ @show
+`r0`c
+
+ `2You look around and find a `$`+91`2, the previous
+ owner of this locker must have left it by mistake.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 6 then do
+ @begin
+ @do `i94 + 1
+@do move 1 1
+ @show
+`r0`c
+
+ `2You look around and find a `$`+94`2, the previous
+ owner of this locker must have left it by mistake.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 7 then do
+ @begin
+ @do `i87 + 1
+@do move 1 1
+ @show
+`r0`c
+
+ `2You look around and find a `$`+87`2, the previous
+ owner of this locker must have left it by mistake.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 8 then do
+ @begin
+ @do `i82 + 1
+@do move 1 1
+ @show
+`r0`c
+
+ `2You look around and find a `$`+82`2, the previous
+ owner of this locker must have left it by mistake.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 9 then do
+ @begin
+ @do `i80 + 1
+@do move 1 1
+ @show
+`r0`c
+
+ `2You look around and find a `$`+80`2, the previous
+ owner of this locker must have left it by mistake.
+ @key
+ @do goto nomore
+ @end
+ @if `p28 is 10 then do
+ @begin
+ @do `i78 + 1
+@do move 1 1
+ @show
+`r0`c
+
+ `2You look around and find a `$`+77`2, the previous
+ owner of this locker must have left it by mistake.
+ @key
+ @do goto nomore
+ @end
+ @end
+
+@label door3
+ @do map is `p29
+ @loadmap `p29
+ @drawmap
+ @update
+ @do saybar
+`$You decide to leave it as is, and continue looking around.
+ @closescript
+ @end
+
+
+@label breakin
+@do `p20 random 3 1
+@if `p20 NOT 1 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+
+
+ [?7h[40m[2J[5C[0;1;5;31;41mڿ[7Cڿ[2;1H[5C��[7C��[0m
+
+
+ `@DRING! RING! DING! DRING! RING! DRING! DING! DRING!
+
+ `2Better watch out cuz next time you go to prison!!
+
+ @key
+ @do goto nomore
+ @end
+
+@do move 1 1
+@show
+
+
+ [?7h[40m[2J[5C[0;1;5;31;41mڿ[7Cڿ[2;1H[5C��[7C��[0m
+
+
+ `@DRING! RING! DING! DRING! RING! DRING! DING! DRING!
+
+`k
+
+ `$You have been CAUGHT!
+
+`k
+
+ `2The guard grabs you from behind and ties your wrists tightly
+ together with a really itchy rope. You are taken to the Green Tree
+ Prison and given to the warden to handle.
+
+`k
+
+
+ `3Welcome to `!Green Tree Prison`3, prisoner!
+
+
+@key
+@run enter in prison.ref
+@end
+
+@label bb
+@do move 1 1
+@show
+`r0`c
+ `5�`7��������������������������������������������������������`5�
+ `7� `$Your Notes `7�
+ `5�`7��������������������������������������������������������`5�
+
+ `0�`1�����������������������`0�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `1� `1�
+ `0�`1�����������������������`0�
+
+@do move 29 9
+@do `v01 is 1
+@choice
+Okay, thats enough.
+Read the Board
+Add a Note
+=&playernum `p25 Destroy the Notes
+@if responce is 1 then goto letinroom
+@if responce is 4 then do
+ @begin
+ @if lockbb`s01.txt exist false then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `5�`7��������������������������������������������������������`5�
+ `7� `6Bulletin Board cleared. `7�
+ `5�`7��������������������������������������������������������`5�
+ @key
+ @do goto bb
+ @end
+
+ @if lockbb`s01.txt exist true then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `5�`7��������������������������������������������������������`5�
+ `7� `6Bulletin Board cleared. `7�
+ `5�`7��������������������������������������������������������`5�
+ @key
+ @do delete lockbb`s01.txt
+ @do goto bb
+ @end
+ @end
+
+@if responce is 2 then do
+@begin
+@if lockbb`s01.txt exist false then do
+ @begin
+ @writefile lockbb`s01.txt
+ `1The Management`2: `0Welcome to room `s01.
+ @end
+
+@if lockbb`s01.txt exist true then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `5�`7������������������������`$Bulletin`7�`$Board`7��������������������������������������`5�
+ @displayfile lockbb`s01.txt
+ @key
+ @end
+@do goto bb
+@end
+
+@if responce is 3 then do
+@begin
+@do move 1 1
+ @show
+`r0`c
+ `5�`7������������������������`$Bulletin`7�`$Board`7��������������������������������������`5�
+ @displayfile lockbb`s01.txt
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter a note or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+@do goto bb
+ @end
+
+ @writefile lockbb`s01.txt
+ `%`n`2 : `0`s03
+ @do trim lockbb`s01.txt 17
+@do goto bb
+@end
+@end
+
+@#nomore
+@do map is `p29
+@loadmap `p29
+@drawmap
+@update
+@end
+@closescript
+
diff --git a/xtrn/lord2/cnw/lockmant.idf b/xtrn/lord2/cnw/lockmant.idf
new file mode 100644
index 0000000000000000000000000000000000000000..3bf2ba9388a65410f02e924534a18cfecbe42ec4
Binary files /dev/null and b/xtrn/lord2/cnw/lockmant.idf differ
diff --git a/xtrn/lord2/cnw/lockmant.ref b/xtrn/lord2/cnw/lockmant.ref
new file mode 100644
index 0000000000000000000000000000000000000000..da99bb8e21f3ae8ee46408f74e6dd4e0e8ee41a2
--- /dev/null
+++ b/xtrn/lord2/cnw/lockmant.ref
@@ -0,0 +1,201 @@
+; Script file LOCKMANT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:19 2001
+
+@DECLARE maint 000000240
+@DECLARE top 000000468
+@DECLARE accountloop 000005117
+@DECLARE accountend 000006118
+@NOCHECK
+; End of .REF index
+
+@#maint
+@datanewday lockmant.IDF
+@dataload lockmant.idf 1 `p24
+@if `p24 is 1 then goto accountend
+@datasave lockmant.idf 1 1
+@do `s04 is a
+@do write
+ `%Locker Room Rent maint in progress.`\
+@do goto top
+@end
+
+@label top
+@if lockers`s04.idf exist false then goto accountloop
+@if lockers`s04.idf exist true then do
+ @begin
+ @readfile lockers`s04.idf
+`p25
+`p27
+`p26
+`s05
+@do `p23 is &time
+@do `p23 - `p27
+@do `p26 - `p23
+@do `p22 is `p27
+@do `p22 + `p26
+@DO `s01 IS GETNAME `p25
+@do write
+ `$`s01 `%is renting `$locker room `s04`%. Updating rent.`\
+@if `p26 is 2 then do
+ @begin
+ @writefile mail\mail`p25.dat
+ `0Locker Room `%`s04 `0Reports
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+`0 You have 2 days left on your rent.
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ @do goto accountloop
+ @end
+
+@if `p26 is 1 then do
+ @begin
+ @writefile mail\mail`p25.dat
+ `0Locker Room `%`s04 `0Reports
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+`0 You have 1 day left on your rent.
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ @do goto accountloop
+ @end
+
+@if `p26 is 0 then do
+ @begin
+ @writefile mail\mail`p25.dat
+ `0Locker Room `%`s04 `0Reports
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+`0 This is your last day left on your account, you have 7
+`0 days to either pack-up and leave or continue your rent.
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ @do goto accountloop
+ @end
+
+@if `p26 is -1 then do
+ @begin
+ @writefile mail\mail`p25.dat
+ `0Locker Room `%`s04 `0Reports
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+`0 You are 1 day over due on your account.
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ @do goto accountloop
+ @end
+
+@if `p26 is -2 then do
+ @begin
+ @writefile mail\mail`p25.dat
+ `0Locker Room `%`s04 `0Reports
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+`0 You are 2 days over due on your account.
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ @do goto accountloop
+ @end
+
+@if `p26 is -3 then do
+ @begin
+ @writefile mail\mail`p25.dat
+ `0Locker Room `%`s04 `0Reports
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+`0 You are 3 days over due on your account.
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ @do goto accountloop
+ @end
+
+@if `p26 is -4 then do
+ @begin
+ @writefile mail\mail`p25.dat
+ `0Locker Room `%`s04 `0Reports
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+`0 You are 4 days over due on your account.
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ @do goto accountloop
+ @end
+
+@if `p26 is -5 then do
+ @begin
+ @writefile mail\mail`p25.dat
+ `0Locker Room `%`s04 `0Reports
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+`0 You are 5 days over due on your account.
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ @do goto accountloop
+ @end
+
+@if `p26 is -6 then do
+ @begin
+ @writefile mail\mail`p25.dat
+ `0Locker Room `%`s04 `0Reports
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+`0 You are 6 days over due on your account.
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ @do goto accountloop
+ @end
+
+@if `p26 is -7 then do
+ @begin
+ @writefile mail\mail`p25.dat
+ `0Locker Room `%`s04 `0Reports
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+`0 You are 7 days over due on your account. This is your
+`0 FINAL day to come and take your stuff and pay your
+`0 over due rent. Tommorow EVERYTHING will be pawned at
+`0 the pawn shop.
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ @do goto accountloop
+ @end
+
+@if `p26 < -7 then do
+ @begin
+ @writefile mail\mail`p25.dat
+ `0Locker Room `%`s04 `0Reports
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+`0 You have lost EVERYTHING in your locker room. You were
+`0 way past over due on your rent, so we pawned it all
+`0 at the pawn shop. `$GOOD-BYE
+`2+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ @do delete lockers`s04.idf
+ @do delete lockbb`s04.idf
+ @do delete lock`s04.idf
+ @do delete locki`s04.idf
+ @do delete lockt`s04.idf
+ @do goto accountloop
+ @end
+@do goto accountloop
+@end
+@do goto accountloop
+
+@label accountloop
+@if `s04 is 6 then goto accountend
+@if `s04 is 5 then `s04 is 6
+@if `s04 is 4 then `s04 is 5
+@if `s04 is 3 then `s04 is 4
+@if `s04 is 2 then `s04 is 3
+@if `s04 is 1 then `s04 is 2
+@if `s04 is z then `s04 is 1
+@if `s04 is y then `s04 is z
+@if `s04 is x then `s04 is y
+@if `s04 is w then `s04 is x
+@if `s04 is v then `s04 is w
+@if `s04 is u then `s04 is v
+@if `s04 is t then `s04 is u
+@if `s04 is s then `s04 is t
+@if `s04 is r then `s04 is s
+@if `s04 is q then `s04 is r
+@if `s04 is p then `s04 is q
+@if `s04 is o then `s04 is p
+@if `s04 is n then `s04 is o
+@if `s04 is m then `s04 is n
+@if `s04 is l then `s04 is m
+@if `s04 is k then `s04 is l
+@if `s04 is j then `s04 is k
+@if `s04 is i then `s04 is j
+@if `s04 is h then `s04 is i
+@if `s04 is g then `s04 is h
+@if `s04 is f then `s04 is g
+@if `s04 is e then `s04 is f
+@if `s04 is d then `s04 is e
+@if `s04 is c then `s04 is d
+@if `s04 is b then `s04 is c
+@if `s04 is a then `s04 is b
+@do goto top
+
+@label accountend
+@closescript
+@end
+
+
diff --git a/xtrn/lord2/cnw/lockref2.ref b/xtrn/lord2/cnw/lockref2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..b12ee53a473142f384da3f44520c555bebd348ca
--- /dev/null
+++ b/xtrn/lord2/cnw/lockref2.ref
@@ -0,0 +1,529 @@
+;
+; Locker House version 1.2 (REF FILE #2/6)
+; by: Joel Gathercole
+;
+; in aliance with Complete New World 136.3+
+;
+;
+; http://greenmachinebbs.com/lord2/
+; telnet://greenmachinebbs.com
+; greenie@darktech.org
+;
+@#fast
+@do saybar
+`$Not too fast buddy. Please slow down.
+@end
+@closescript
+
+@#a
+@busy
+@do `p29 is 961
+@do `s01 is a
+@do moveback
+@if lockers`s01.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@run nomore in lockers.ref
+@end
+
+@#b
+@busy
+@do `p29 is 961
+@do `s01 is b
+@do moveback
+@if lockers`s01.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#c
+@busy
+@do `p29 is 961
+@do `s01 is c
+@do moveback
+@if lockers`s01.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#d
+@busy
+@do `p29 is 961
+@do `s01 is d
+@do moveback
+@if lockersd.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#e
+@busy
+@do `p29 is 961
+@do `s01 is e
+@do moveback
+@if lockerse.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#f
+@busy
+@do `p29 is 961
+@do `s01 is f
+@do moveback
+@if lockersf.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#g
+@busy
+@do `p29 is 961
+@do `s01 is g
+@do moveback
+@if lockersg.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#h
+@busy
+@do `p29 is 961
+@do `s01 is h
+@do moveback
+@if lockersh.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#i
+@busy
+@do `p29 is 961
+@do `s01 is i
+@do moveback
+@if lockersi.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#j
+@busy
+@do `p29 is 881
+@do `s01 is j
+@do moveback
+@if lockersj.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#k
+@busy
+@do `p29 is 881
+@do `s01 is k
+@do moveback
+@if lockersk.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#l
+@busy
+@do `p29 is 881
+@do `s01 is l
+@do moveback
+@if lockersl.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#m
+@busy
+@do `p29 is 881
+@do `s01 is m
+@do moveback
+@if lockersm.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#n
+@busy
+@do `p29 is 881
+@do `s01 is n
+@do moveback
+@if lockersn.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#o
+@busy
+@do `p29 is 881
+@do `s01 is o
+@do moveback
+@if lockerso.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#p
+@busy
+@do `p29 is 882
+@do `s01 is p
+@do moveback
+@if lockers`s01.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#q
+@busy
+@do `p29 is 882
+@do `s01 is q
+@do moveback
+@if lockersq.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#r
+@busy
+@do `p29 is 882
+@do `s01 is r
+@do moveback
+@if lockersr.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#s
+@busy
+@do `p29 is 882
+@do `s01 is s
+@do moveback
+@if lockerss.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#t
+@busy
+@do `p29 is 882
+@do `s01 is t
+@do moveback
+@if lockerst.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#u
+@busy
+@do `p29 is 882
+@do `s01 is u
+@do moveback
+@if lockersu.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#v
+@busy
+@do `p29 is 882
+@do `s01 is v
+@do moveback
+@if lockersv.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#w
+@busy
+@do `p29 is 963
+@do `s01 is w
+@do moveback
+@if lockersw.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#x
+@busy
+@do `p29 is 963
+@do `s01 is x
+@do moveback
+@if lockersx.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#y
+@busy
+@do `p29 is 963
+@do `s01 is y
+@do moveback
+@if lockersy.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#z
+@busy
+@do `p29 is 963
+@do `s01 is z
+@do moveback
+@if lockersz.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#a1
+@busy
+@do `p29 is 963
+@do `s01 is 1
+@do moveback
+@if lockers1.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#a2
+@busy
+@do `p29 is 963
+@do `s01 is 2
+@do moveback
+@if lockers2.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#a3
+@busy
+@do `p29 is 963
+@do `s01 is 3
+@do moveback
+@if lockers3.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#a4
+@busy
+@do `p29 is 963
+@do `s01 is 4
+@do moveback
+@if lockers4.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#a5
+@busy
+@do `p29 is 963
+@do `s01 is 5
+@do moveback
+@if lockers5.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
+@#a6
+@busy
+@do `p29 is 881
+@do `s01 is 6
+@do moveback
+@if lockers6.idf exist false then do
+ @begin
+ @run empty in lockers.ref
+ @end
+@if lockers`s01.idf exist true then do
+ @begin
+ @run ownlocker in lockers.ref
+ @end
+@end
+@closescript
+
diff --git a/xtrn/lord2/cnw/lockref3.ref b/xtrn/lord2/cnw/lockref3.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e7feb855f1ed108a603c6f70bc389f84964d544b
--- /dev/null
+++ b/xtrn/lord2/cnw/lockref3.ref
@@ -0,0 +1,960 @@
+; Script file LOCKREF3.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:18 2001
+
+@DECLARE treasure 000000963
+@DECLARE gems 000002006
+@DECLARE gold 000009431
+@DECLARE items 000016847
+@DECLARE leaveitem 000017798
+@DECLARE showitem 000018312
+@DECLARE itemcom 000018430
+@DECLARE items2 000018723
+@DECLARE up 000019651
+@DECLARE down 000019982
+@DECLARE baditems 000020316
+@DECLARE baditems2 000020640
+@DECLARE baditems 000020963
+@DECLARE seeitems 000021286
+@DECLARE itemsloop 000021732
+@DECLARE itemsloop2 000022266
+@DECLARE displayitem 000022776
+@DECLARE itemcom2 000022954
+@DECLARE down2 000023225
+@DECLARE items3 000023370
+@DECLARE baditems3 000024299
+@NOCHECK
+; End of .REF index
+
+;
+; Locker House version 1.2 (REF FILE #3/6)
+; by: Joel Gathercole
+;
+; in aliance with Complete New World 136.3+
+;
+;
+; http://greenmachinebbs.com/lord2/
+; telnet://greenmachinebbs.com
+; greenie@darktech.org
+;
+@label treasure
+@do `p20 is 0
+@if lockt`s01.idf exist false then do
+ @begin
+ @writefile lockt`s01.idf
+0
+0
+ @end
+@if lockt`s01.idf exist true then do
+ @begin
+ @readfile lockt`s01.idf
+`p20
+`p25
+ @end
+@do move 1 1
+@show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `%(`$M`%)`2oney`2, `%(`@G`%)`2ems `2or `2(`0N`2)evermind
+ `7�������������������������������������������������������������ı
+@do move 65 5
+@do write
+`7�
+@do move 65 9
+@do write
+`7�
+@do readspecial `s02 MGQN
+@if `s02 is G then goto gems
+@if `s02 is M then goto gold
+@if `s02 is Q then do
+ @begin
+ @run letinroom in lockers.ref
+ @end
+@if `s02 is N then do
+ @begin
+ @run letinroom in lockers.ref
+ @end
+@run nomore in lockers.ref
+@end
+
+@label gems
+@do move 1 1
+@show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `@GEMS `2(`0T`2)ake, (`0L`2)eave or (`0N`2)evermind
+ `7�������������������������������������������������������������ı
+@do readspecial `s02 NTL
+ @if `s02 is N then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6You close the safe carefuly.
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 1 12
+ @key
+ @run letinroom in lockers.ref
+ @end
+
+@if `s02 is T then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6Amount? `0: `%
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 17 9
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p25 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6Not enough in safety box for that.
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 1 12
+ @key
+ @run letinroom in lockers.ref
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6You take nothing
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 1 12
+ @key
+ @run letinroom in lockers.ref
+ @end
+ @readfile lockt`s01.idf
+`p20
+`p25
+@if `p25 < `p21 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�����������������������������������������������������������������ı
+ `7�`6Oh no! Someone took the money while you were thinking about it!
+ `7�����������������������������������������������������������������ı
+ @do move 69 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 1 12
+ @key
+ @run letinroom in lockers.ref
+ @end
+ @do `p25 - `p21
+ @do `p19 + `p21
+ @do delete lockt`s01.idf
+ @writefile lockt`s01.idf
+`p20
+`p25
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6You take `@`p21 GEMS `6from the safety box.
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 1 12
+ @readfile lockers`s01.idf
+`p28
+`p27
+`p26
+`s05
+ @if `p28 not &playernum then do
+ @begin
+ @writefile mail\mail`p28.dat
+ `0Locker Room `s01 Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `@`p21 GEMS `2from the safety box.
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ @end
+ @key
+ @run letinroom in lockers.ref
+ @end
+
+@if `s02 is L then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6Amount? `0: `%
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 17 9
+ @do readnum 10 `p19
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p19 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6You are not carrying that much!
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 1 12
+ @key
+ @do goto treasure
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6You don't have that much!
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 1 12
+ @key
+ @do goto treasure
+ @end
+ @do `p19 - `p21
+ @readfile lockt`s01.idf
+`p20
+`p25
+ @do `p25 + `p21
+ @do delete lockt`s01.idf
+ @writefile lockt`s01.idf
+`p20
+`p25
+ @readfile lockers`s01.idf
+`p28
+`p27
+`p26
+`s05
+ @if `p28 not &playernum then do
+ @begin
+ @writefile mail\mail`p28.dat
+ `0Locker Room `s01 Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `@`p21 GEMS `2to the safety box.
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ @end
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6You leave `@`p21 GEMS `6in the safety box.
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 1 12
+ @key
+ @run letinroom in lockers.ref
+ @end
+ @run letinroom in lockers.ref
+@end
+ @run letinroom in lockers.ref
+@end
+
+
+@label gold
+@do move 1 1
+@show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `$GOLD `2(`0T`2)ake, (`0L`2)eave or (`0N`2)evermind
+ `7�������������������������������������������������������������ı
+@do readspecial `s02 NTL
+ @if `s02 is N then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6You close the safe carefuly.
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 1 12
+ @key
+ @run letinroom in lockers.ref
+ @end
+
+@if `s02 is T then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6Amount? `0: `%
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 17 9
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6Not enough in safety box for that.
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 1 12
+ @key
+ @do goto treasure
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6You take nothing
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 1 12
+ @key
+ @do goto treasure
+ @end
+ @readfile lockt`s01.idf
+`p20
+`p25
+ @if `p20 < `p21 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�����������������������������������������������������������������ı
+ `7�`6Oh no! Someone took the money while you were thinking about it!
+ `7�����������������������������������������������������������������ı
+ @do move 69 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 1 12
+ @key
+ @do goto treasure
+ @end
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete lockt`s01.idf
+ @writefile lockt`s01.idf
+`p20
+`p25
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6You take `$`p21 GOLD `6from the safety box.
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 1 12
+ @readfile lockers`s01.idf
+`p28
+`p27
+`p26
+`s05
+ @if `p28 not &playernum then do
+ @begin
+ @writefile mail\mail`p28.dat
+ `0Locker Room `s01 Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the safety box.
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ @end
+ @key
+ @run letinroom in lockers.ref
+ @end
+
+@if `s02 is L then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6Amount? `0: `%
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 17 9
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6You are not carrying that much!
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 1 12
+ @key
+ @run letinroom in lockers.ref
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6You don't have that much!
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 1 12
+ @key
+ @run letinroom in lockers.ref
+ @end
+ @do money - `p21
+ @readfile lockt`s01.idf
+`p20
+`p25
+ @do `p20 + `p21
+ @do delete lockt`s01.idf
+ @writefile lockt`s01.idf
+`p20
+`p25
+ @readfile lockers`s01.idf
+`p28
+`p27
+`p26
+`s05
+ @if `p28 not &playernum then do
+ @begin
+ @writefile mail\mail`p28.dat
+ `0Locker Room `s01 Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$`p21 GOLD `2to the safety box.
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ @end
+@do move 1 1
+ @show
+`r0`c
+ `7�������������������������������������������������������������ı
+ `7� `6Treasury is at `$`p20 GOLD `6and `@`p25 GEMS
+ `7�������������������������������������������������������������ı
+
+ `7�������������������������������������������������������������ı
+ `7� `6You leave `$`p21 GOLD `6in the safety box.
+ `7�������������������������������������������������������������ı
+ @do move 65 5
+ @do write
+`7�
+ @do move 65 9
+ @do write
+`7�
+ @do move 1 12
+ @key
+ @run letinroom in lockers.ref
+ @end
+ @run letinroom in lockers.ref
+@end
+ @run letinroom in lockers.ref
+@end
+
+
+@label items
+@do `p20 is 0
+@do `p21 is 0
+@do move 1 1
+@show
+`r0`c
+ `5�`7�����������������������������������������������������������������������`5�
+ `7� `6Your inventory of Items. `7�
+ `5�`7�����������������������������������������������������������������������`5�
+
+ `0�`1��������������������`0�
+ `1� �
+ `1� �
+ `1� �
+ `1� �
+ `0�`1��������������������`0�
+
+@do move 29 9
+@DO `V01 IS 1
+@choice
+`$Nah forget this
+`$Leave an item here
+`$See items
+@if responce is 1 then do
+ @begin
+ @run letinroom in lockers.ref
+ @end
+@if responce is 2 then goto leaveitem
+@if responce is 3 then goto seeitems
+@run letinroom in lockers.ref
+@end
+
+@label leaveitem
+@do `p20 is 1
+@do move 1 1
+@show
+`r0`c
+ `5�`7�����������������������������������������������������������������������`5�
+ `7� Which item would you like to leave here? `7�
+ `5�`7�����������������������������������������������������������������������`5�
+
+ `%up 8 `0�`1����������������������������`0�
+ `8� � � `1� �
+`%down 2 `0�`1����������������������������`0�
+
+@do goto showitem
+@end
+
+@label showitem
+@do move 24 9
+@do write
+���������������������������`1�
+@do move 24 9
+@run `p20 in lockref4.ref
+
+@label itemcom
+@do move 55 9
+@do readspecial `s03 e82udq
+@do move 55 9
+@do write
+�
+@if `s03 is E then goto items2
+@if `s03 is 8 then goto up
+@if `s03 is 2 then goto down
+@if `s03 is U then goto up
+@if `s03 is D then goto down
+@if `s03 is Q then goto items
+@do goto itemcom
+@end
+
+@label items2
+@do `v40 is 0
+@if `p20 is 99 then goto baditems2
+@if `p20 is 75 then goto baditems2
+@if `p20 is 7 then goto baditems2
+@if `p20 is 11 then goto baditems2
+@do move 1 1
+@show
+`r0`c
+ `5�`7�����������������������������������������������������������������������`5�
+ `7� `$You have: `%`p22
+ `5�`7�����������������������������������������������������������������������`5�
+@do move 74 5
+@do write
+`7�
+@do move 1 7
+@show
+
+ `5�`7�����������������������������������������������������������������������`5�
+ `7� `$How many to put in this Locker Room? : `7�
+ `5�`7�����������������������������������������������������������������������`5�
+@do move 43 9
+@do readnum 5 `p22
+@if `v40 is 0 then goto items
+@if `v40 > `p22 then goto baditems
+@datasave locki`s01.idf `p20 `v40
+@do `p22 - `v40
+@do `p30 is 2
+@run b`p20 in lockref5.ref
+@do goto items
+@end
+@end
+@closescript
+
+@label up
+@do `p20 - 1
+@do `p30 is 1
+@if `p20 < 1 then do
+ @begin
+ @do `p20 is 99
+ @do goto showitem
+ @end
+@if `p20 is 0 then do
+ @begin
+ @do `p20 is 99
+ @do goto showitem
+ @end
+@if `p20 > 99 then do
+ @begin
+ @do `p20 is 1
+ @do goto showitem
+ @end
+@do goto showitem
+@end
+
+@label down
+@do `p30 is 0
+@do `p20 + 1
+@if `p20 > 99 then do
+ @begin
+ @do `p20 is 1
+ @do goto showitem
+ @end
+@if `p20 is 0 then do
+ @begin
+ @do `p20 is 1
+ @do goto showitem
+ @end
+@if `p20 < 1 then do
+ @begin
+ @do `p20 is 99
+ @do goto showitem
+ @end
+@do goto showitem
+@end
+
+@label baditems
+@do move 1 1
+ @show
+`r0`c
+ `5�`7�����������������������������������������������������������������������`5�
+ `7� `6You do not have that many! `7�
+ `5�`7�����������������������������������������������������������������������`5�
+ @key
+@do goto items
+@end
+
+@label baditems2
+@do move 1 1
+ @show
+`r0`c
+ `5�`7�����������������������������������������������������������������������`5�
+ `7� `6You can't leave that here! `7�
+ `5�`7�����������������������������������������������������������������������`5�
+ @key
+@do goto items
+@end
+
+@label baditems
+@do move 1 1
+ @show
+`r0`c
+ `5�`7�����������������������������������������������������������������������`5�
+ `7� `6You do not have that many! `7�
+ `5�`7�����������������������������������������������������������������������`5�
+ @key
+@do goto items
+@end
+
+@label seeitems
+@do `p20 is 1
+@if locki`s01.idf exists false then do
+ @begin
+@do move 1 1
+ @show
+`r0`c
+ `5�`7�����������������������������������������������������������������������`5�
+ `7� `6No items in this Locker Room. `7�
+ `5�`7�����������������������������������������������������������������������`5�
+ @key
+ @end
+@if locki`s01.idf exists true then goto itemsloop
+@do goto items
+@end
+
+@label itemsloop
+@do `p28 is 0
+@do move 1 1
+@show
+`r0`c
+ `5�`7�����������������������������������������������������������������������`5�
+ `7� `2Your items in this room: `7�
+ `5�`7�����������������������������������������������������������������������`5�
+
+`%take =`$Enter `%/ `$E `%/ `$T `0�`1����������������������������`0�
+`%quit =`$Q `1� �
+`%down =`$2 `%or `$D `0�`1����������������������������`0�
+
+@do goto itemsloop2
+
+
+@label itemsloop2
+@dataload locki`s01.idf `p20 `p21
+@do `p28 + 1
+@if `p28 > 150 then do
+ @begin
+ @do delete locki`s01.idf
+ @do goto seeitems
+ @end
+@if `p20 > 98 then do
+ @begin
+ @do `p20 is 1
+ @do goto itemsloop2
+ @end
+@if `p21 is 0 then do
+ @begin
+ @do `p20 + 1
+ @do goto itemsloop2
+ @end
+@if `p21 > 0 then do
+ @begin
+ @run c`p20 in lockref5.ref
+ @end
+@do goto itemsloop2
+@end
+
+@label displayitem
+@do `p28 is 0
+@do move 24 9
+@do write
+���������������������������`1�
+@do move 24 9
+ @do write
+`s04 `$(`%`p21`$)
+@do move 24 9
+@do goto itemcom2
+@end
+
+@label itemcom2
+@do move 55 9
+@do readspecial `s03 e2dqt
+@do move 55 9
+@do write
+�
+@if `s03 is T then goto items3
+@if `s03 is E then goto items3
+@if `s03 is 2 then goto down2
+@if `s03 is D then goto down2
+@if `s03 is Q then goto items
+@do goto itemcom
+@end
+
+@label down2
+@do `p20 + 1
+@if `p20 > 98 then do
+ @begin
+ @do `p20 is 1
+ @do goto showitem
+ @end
+@do goto itemsloop2
+@end
+
+@label items3
+@end
+@do `v40 is 0
+@if `p20 is 99 then goto baditems2
+@if `p20 is 75 then goto baditems2
+@if `p20 is 7 then goto baditems2
+@if `p20 is 11 then goto baditems2
+@do move 1 1
+@show
+`r0`c
+ `5�`7�����������������������������������������������������������������������`5�
+ `7� `$Available here: `%`p21
+ `5�`7�����������������������������������������������������������������������`5�
+@do move 74 5
+@do write
+`7�
+@do move 1 7
+@show
+
+ `5�`7�����������������������������������������������������������������������`5�
+ `7� `$How many do you want to take? `7�
+ `5�`7�����������������������������������������������������������������������`5�
+@do move 40 9
+@do readnum 5 `p21
+@if `v40 is 0 then goto items
+@if `v40 > `p21 then goto baditems
+@do `p21 - `v40
+@datasave locki`s01.idf `p20 `p21
+@do `p22 is `v40
+@do `p30 is 2
+@run d`p20 in lockref6.ref
+@end
+
+@label baditems3
+@do move 1 1
+ @show
+`r0`c
+ `5�`7�����������������������������������������������������������������������`5�
+ `7� `6There isn't enough to take that many! `7�
+ `5�`7�����������������������������������������������������������������������`5�
+ @key
+@do goto items
+@end
diff --git a/xtrn/lord2/cnw/lockref4.ref b/xtrn/lord2/cnw/lockref4.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e75889355bc2eb977fd99267b4d095845a520a55
--- /dev/null
+++ b/xtrn/lord2/cnw/lockref4.ref
@@ -0,0 +1,1209 @@
+; Script file LOCKREF4.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:19 2001
+
+@DECLARE 1 000002635
+@DECLARE 2 000002810
+@DECLARE 3 000002986
+@DECLARE 4 000003162
+@DECLARE 5 000003338
+@DECLARE 6 000003514
+@DECLARE 7 000003690
+@DECLARE 8 000004000
+@DECLARE 9 000004176
+@DECLARE 10 000004352
+@DECLARE 11 000004531
+@DECLARE 12 000004711
+@DECLARE 13 000004891
+@DECLARE 14 000005071
+@DECLARE 15 000005251
+@DECLARE 16 000005431
+@DECLARE 17 000005611
+@DECLARE 18 000005791
+@DECLARE 19 000005971
+@DECLARE 20 000006151
+@DECLARE 21 000006331
+@DECLARE 22 000006519
+@DECLARE 23 000006699
+@DECLARE 24 000006879
+@DECLARE 25 000007059
+@DECLARE 26 000007239
+@DECLARE 27 000007419
+@DECLARE 28 000007599
+@DECLARE 29 000007779
+@DECLARE 30 000007959
+@DECLARE 31 000008139
+@DECLARE 32 000008319
+@DECLARE 33 000008499
+@DECLARE 34 000008679
+@DECLARE 35 000008859
+@DECLARE 36 000009039
+@DECLARE 37 000009220
+@DECLARE 38 000009400
+@DECLARE 39 000009580
+@DECLARE 40 000009760
+@DECLARE 41 000009940
+@DECLARE 42 000010120
+@DECLARE 43 000010300
+@DECLARE 44 000010480
+@DECLARE 45 000010660
+@DECLARE 46 000010840
+@DECLARE 47 000011021
+@DECLARE 48 000011201
+@DECLARE 49 000011381
+@DECLARE 50 000011561
+@DECLARE 51 000011741
+@DECLARE 52 000011929
+@DECLARE 53 000012132
+@DECLARE 54 000012312
+@DECLARE 55 000012492
+@DECLARE 56 000012672
+@DECLARE 57 000012852
+@DECLARE 58 000013032
+@DECLARE 59 000013212
+@DECLARE 60 000013392
+@DECLARE 61 000013572
+@DECLARE 62 000013752
+@DECLARE 63 000013932
+@DECLARE 64 000014120
+@DECLARE 65 000014300
+@DECLARE 66 000014480
+@DECLARE 67 000014660
+@DECLARE 68 000014840
+@DECLARE 69 000015020
+@DECLARE 70 000015200
+@DECLARE 71 000015380
+@DECLARE 72 000015560
+@DECLARE 73 000015740
+@DECLARE 74 000015920
+@DECLARE 75 000016100
+@DECLARE 76 000016280
+@DECLARE 77 000016460
+@DECLARE 78 000016640
+@DECLARE 79 000016820
+@DECLARE 80 000017000
+@DECLARE 81 000017180
+@DECLARE 82 000017360
+@DECLARE 83 000017540
+@DECLARE 84 000017720
+@DECLARE 85 000017902
+@DECLARE 86 000018082
+@DECLARE 87 000018262
+@DECLARE 88 000018442
+@DECLARE 89 000018622
+@DECLARE 90 000018802
+@DECLARE 91 000018982
+@DECLARE 92 000019162
+@DECLARE 93 000019342
+@DECLARE 94 000019522
+@DECLARE 95 000019702
+@DECLARE 96 000019882
+@DECLARE 97 000020062
+@DECLARE 98 000020242
+@DECLARE 99 000020422
+@NOCHECK
+; End of .REF index
+
+;
+; Locker House version 1.2 (REF FILE #4/6)
+; by: Joel Gathercole
+;
+; in aliance with Complete New World 136.3+
+;
+;
+; http://greenmachinebbs.com/lord2/
+; telnet://greenmachinebbs.com
+; greenie@darktech.org
+;
+@label 1
+ @do `p20 is 1
+@if `i01 > 0 then do
+ @begin
+ @do `p22 is `i01
+ @do write
+`+01 `$(`%`i01`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 99
+
+@label 2
+ @do `p20 is 2
+@if `i02 > 0 then do
+ @begin
+ @do `p22 is `i02
+ @do write
+`+02 `$(`%`i02`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 1
+
+@label 3
+ @do `p20 is 3
+@if `i03 > 0 then do
+ @begin
+ @do `p22 is `i03
+ @do write
+`+03 `$(`%`i03`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 2
+
+@label 4
+ @do `p20 is 4
+@if `i04 > 0 then do
+ @begin
+ @do `p22 is `i04
+ @do write
+`+04 `$(`%`i04`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 3
+
+@label 5
+ @do `p20 is 5
+@if `i05 > 0 then do
+ @begin
+ @do `p22 is `i05
+ @do write
+`+05 `$(`%`i05`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 4
+
+@label 6
+ @do `p20 is 6
+@if `i06 > 0 then do
+ @begin
+ @do `p22 is `i06
+ @do write
+`+06 `$(`%`i06`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 5
+
+@label 7
+; There is a weird bug here, do not know why!?!?! :(
+; This is all exatly the same as the rest, yet a bug exists.
+; @do `p20 is 7
+;@if `i07 > 0 then do
+; @begin
+; @do `p22 is `i07
+; @begin
+; @do write
+;`+07 `$(`%`i07`$)
+; @run itemcom in lockref3.ref
+; @end
+@if `p30 is 1 then goto 6
+
+@label 8
+ @do `p20 is 8
+@if `i08 > 0 then do
+ @begin
+ @do `p22 is `i08
+ @do write
+`+08 `$(`%`i08`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 7
+
+@label 9
+ @do `p20 is 9
+@if `i09 > 0 then do
+ @begin
+ @do `p22 is `i09
+ @do write
+`+09 `$(`%`i09`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 8
+
+@label 10
+ @do `p20 is 10
+@if `i10 > 0 then do
+ @begin
+ @do `p22 is `i10
+ @do write
+`+10 `$(`%`i10`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 9
+
+@label 11
+ @do `p20 is 11
+@if `i11 > 0 then do
+ @begin
+ @do `p22 is `i11
+ @do write
+`+11 `$(`%`i11`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 10
+
+@label 12
+ @do `p20 is 12
+@if `i12 > 0 then do
+ @begin
+ @do `p22 is `i12
+ @do write
+`+12 `$(`%`i12`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 11
+
+@label 13
+ @do `p20 is 13
+@if `i13 > 0 then do
+ @begin
+ @do `p22 is `i13
+ @do write
+`+13 `$(`%`i13`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 12
+
+@label 14
+ @do `p20 is 14
+@if `i14 > 0 then do
+ @begin
+ @do `p22 is `i14
+ @do write
+`+14 `$(`%`i14`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 13
+
+@label 15
+ @do `p20 is 15
+@if `i15 > 0 then do
+ @begin
+ @do `p22 is `i15
+ @do write
+`+15 `$(`%`i15`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 14
+
+@label 16
+ @do `p20 is 16
+@if `i16 > 0 then do
+ @begin
+ @do `p22 is `i16
+ @do write
+`+16 `$(`%`i16`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 15
+
+@label 17
+ @do `p20 is 17
+@if `i17 > 0 then do
+ @begin
+ @do `p22 is `i17
+ @do write
+`+17 `$(`%`i17`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 16
+
+@label 18
+ @do `p20 is 18
+@if `i18 > 0 then do
+ @begin
+ @do `p22 is `i18
+ @do write
+`+18 `$(`%`i18`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 17
+
+@label 19
+ @do `p20 is 19
+@if `i19 > 0 then do
+ @begin
+ @do `p22 is `i19
+ @do write
+`+19 `$(`%`i19`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 18
+
+@label 20
+ @do `p20 is 20
+@if `i20 > 0 then do
+ @begin
+ @do `p22 is `i20
+ @do write
+`+20 `$(`%`i20`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 19
+
+@label 21
+ @do `p20 is 21
+@if `i21 > 0 then do
+ @begin
+ @do `p22 is `i21
+ @do write
+`+21 `$(`%`i21`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 20
+
+@label 22
+ @do `p20 is 22
+@if `i22 > 0 then do
+ @begin
+ @do `p22 is `i22
+ @do write
+`+22 `$(`%`i22`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 21
+
+@label 23
+ @do `p20 is 23
+@if `i23 > 0 then do
+ @begin
+ @do `p22 is `i23
+ @do write
+`+23 `$(`%`i23`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 22
+
+@label 24
+ @do `p20 is 24
+@if `i24 > 0 then do
+ @begin
+ @do `p22 is `i24
+ @do write
+`+24 `$(`%`i24`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 23
+
+@label 25
+ @do `p20 is 25
+@if `i25 > 0 then do
+ @begin
+ @do `p22 is `i25
+ @do write
+`+25 `$(`%`i25`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 24
+
+@label 26
+ @do `p20 is 26
+@if `i26 > 0 then do
+ @begin
+ @do `p22 is `i26
+ @do write
+`+26 `$(`%`i26`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 25
+
+@label 27
+ @do `p20 is 27
+@if `i27 > 0 then do
+ @begin
+ @do `p22 is `i27
+ @do write
+`+27 `$(`%`i27`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 26
+
+@label 28
+ @do `p20 is 28
+@if `i28 > 0 then do
+ @begin
+ @do `p22 is `i28
+ @do write
+`+28 `$(`%`i28`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 27
+
+@label 29
+ @do `p20 is 29
+@if `i29 > 0 then do
+ @begin
+ @do `p22 is `i29
+ @do write
+`+29 `$(`%`i29`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 28
+
+@label 30
+ @do `p20 is 30
+@if `i20 > 0 then do
+ @begin
+ @do `p22 is `i30
+ @do write
+`+30 `$(`%`i30`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 29
+
+@label 31
+ @do `p20 is 31
+@if `i31 > 0 then do
+ @begin
+ @do `p22 is `i31
+ @do write
+`+31 `$(`%`i31`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 30
+
+@label 32
+ @do `p20 is 32
+@if `i32 > 0 then do
+ @begin
+ @do `p22 is `i32
+ @do write
+`+32 `$(`%`i32`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 31
+
+@label 33
+ @do `p20 is 33
+@if `i33 > 0 then do
+ @begin
+ @do `p22 is `i33
+ @do write
+`+33 `$(`%`i33`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 32
+
+@label 34
+ @do `p20 is 34
+@if `i34 > 0 then do
+ @begin
+ @do `p22 is `i34
+ @do write
+`+34 `$(`%`i34`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 33
+
+@label 35
+ @do `p20 is 35
+@if `i35 > 0 then do
+ @begin
+ @do `p22 is `i35
+ @do write
+`+35 `$(`%`i35`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 34
+
+@label 36
+ @do `p20 is 36
+@if `i36 > 0 then do
+ @begin
+ @do `p22 is `i36
+ @do write
+`+36 `$(`%`i36`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 35
+
+@label 37
+ @do `p20 is 37
+@if `i37 > 0 then do
+ @begin
+ @do `p22 is `i37
+ @do write
+`+37 `$(`%`i37`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 36
+
+@label 38
+ @do `p20 is 38
+@if `i38 > 0 then do
+ @begin
+ @do `p22 is `i38
+ @do write
+`+38 `$(`%`i38`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 37
+
+@label 39
+ @do `p20 is 39
+@if `i39 > 0 then do
+ @begin
+ @do `p22 is `i39
+ @do write
+`+39 `$(`%`i39`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 38
+
+@label 40
+ @do `p20 is 40
+@if `i40 > 0 then do
+ @begin
+ @do `p22 is `i40
+ @do write
+`+40 `$(`%`i40`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 39
+
+@label 41
+ @do `p20 is 41
+@if `i41 > 0 then do
+ @begin
+ @do `p22 is `i41
+ @do write
+`+41 `$(`%`i41`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 40
+
+@label 42
+ @do `p20 is 42
+@if `i42 > 0 then do
+ @begin
+ @do `p22 is `i42
+ @do write
+`+42 `$(`%`i42`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 41
+
+@label 43
+ @do `p20 is 43
+@if `i43 > 0 then do
+ @begin
+ @do `p22 is `i43
+ @do write
+`+43 `$(`%`i43`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 42
+
+@label 44
+ @do `p20 is 44
+@if `i44 > 0 then do
+ @begin
+ @do `p22 is `i44
+ @do write
+`+44 `$(`%`i44`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 43
+
+@label 45
+ @do `p20 is 45
+@if `i45 > 0 then do
+ @begin
+ @do `p22 is `i45
+ @do write
+`+45 `$(`%`i45`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 44
+
+@label 46
+ @do `p20 is 46
+@if `i46 > 0 then do
+ @begin
+ @do `p22 is `i46
+ @do write
+`+46 `$(`%`i46`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 45
+
+@label 47
+ @do `p20 is 47
+@if `i47 > 0 then do
+ @begin
+ @do `p22 is `i47
+ @do write
+`+47 `$(`%`i47`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 46
+
+@label 48
+ @do `p20 is 48
+@if `i48 > 0 then do
+ @begin
+ @do `p22 is `i48
+ @do write
+`+48 `$(`%`i48`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 47
+
+@label 49
+ @do `p20 is 49
+@if `i49 > 0 then do
+ @begin
+ @do `p22 is `i49
+ @do write
+`+49 `$(`%`i49`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 48
+
+@label 50
+ @do `p20 is 50
+@if `i50 > 0 then do
+ @begin
+ @do `p22 is `i50
+ @do write
+`+50 `$(`%`i50`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 49
+
+@label 51
+ @do `p20 is 51
+@if `i51 > 0 then do
+ @begin
+ @do `p22 is `i51
+ @do write
+`+51 `$(`%`i51`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 50
+
+@label 52
+ @do `p20 is 52
+@if `i52 > 0 then do
+ @begin
+ @do `p22 is `i52
+ @do write
+`+52 `$(`%`i52`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 51
+
+@label 53
+ @do `p20 is 53
+@if `i53 > 0 then do
+ @begin
+ @do `p22 is `i53
+ @do write
+`+53 `$(`%`i53`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 52
+
+@label 54
+ @do `p20 is 54
+@if `i54 > 0 then do
+ @begin
+ @do `p22 is `i54
+ @do write
+`+54 `$(`%`i54`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 53
+
+@label 55
+ @do `p20 is 55
+@if `i55 > 0 then do
+ @begin
+ @do `p22 is `i55
+ @do write
+`+55 `$(`%`i55`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 54
+
+@label 56
+ @do `p20 is 56
+@if `i56 > 0 then do
+ @begin
+ @do `p22 is `i56
+ @do write
+`+56 `$(`%`i56`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 55
+
+@label 57
+ @do `p20 is 57
+@if `i57 > 0 then do
+ @begin
+ @do `p22 is `i57
+ @do write
+`+57 `$(`%`i57`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 56
+
+@label 58
+ @do `p20 is 58
+@if `i58 > 0 then do
+ @begin
+ @do `p22 is `i58
+ @do write
+`+58 `$(`%`i58`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 57
+
+@label 59
+ @do `p20 is 59
+@if `i59 > 0 then do
+ @begin
+ @do `p22 is `i59
+ @do write
+`+59 `$(`%`i59`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 58
+
+@label 60
+ @do `p20 is 60
+@if `i60 > 0 then do
+ @begin
+ @do `p22 is `i60
+ @do write
+`+60 `$(`%`i60`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 59
+
+@label 61
+ @do `p20 is 61
+@if `i61 > 0 then do
+ @begin
+ @do `p22 is `i61
+ @do write
+`+61 `$(`%`i61`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 60
+
+@label 62
+ @do `p20 is 62
+@if `i62 > 0 then do
+ @begin
+ @do `p22 is `i62
+ @do write
+`+62 `$(`%`i62`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 61
+
+@label 63
+ @do `p20 is 63
+@if `i63 > 0 then do
+ @begin
+ @do `p22 is `i63
+ @do write
+`+63 `$(`%`i63`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 62
+
+@label 64
+ @do `p20 is 64
+@if `i64 > 0 then do
+ @begin
+ @do `p22 is `i64
+ @do write
+`+64 `$(`%`i64`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 63
+
+@label 65
+ @do `p20 is 65
+@if `i65 > 0 then do
+ @begin
+ @do `p22 is `i65
+ @do write
+`+65 `$(`%`i65`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 64
+
+@label 66
+ @do `p20 is 66
+@if `i66 > 0 then do
+ @begin
+ @do `p22 is `i66
+ @do write
+`+66 `$(`%`i66`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 65
+
+@label 67
+ @do `p20 is 67
+@if `i67 > 0 then do
+ @begin
+ @do `p22 is `i67
+ @do write
+`+67 `$(`%`i67`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 66
+
+@label 68
+ @do `p20 is 68
+@if `i68 > 0 then do
+ @begin
+ @do `p22 is `i68
+ @do write
+`+68 `$(`%`i68`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 67
+
+@label 69
+ @do `p20 is 69
+@if `i69 > 0 then do
+ @begin
+ @do `p22 is `i69
+ @do write
+`+69 `$(`%`i69`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 68
+
+@label 70
+ @do `p20 is 70
+@if `i70 > 0 then do
+ @begin
+ @do `p22 is `i70
+ @do write
+`+70 `$(`%`i70`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 69
+
+@label 71
+ @do `p20 is 71
+@if `i71 > 0 then do
+ @begin
+ @do `p22 is `i71
+ @do write
+`+71 `$(`%`i71`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 70
+
+@label 72
+ @do `p20 is 72
+@if `i72 > 0 then do
+ @begin
+ @do `p22 is `i72
+ @do write
+`+72 `$(`%`i72`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 71
+
+@label 73
+ @do `p20 is 73
+@if `i73 > 0 then do
+ @begin
+ @do `p22 is `i73
+ @do write
+`+73 `$(`%`i73`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 72
+
+@label 74
+ @do `p20 is 74
+@if `i74 > 0 then do
+ @begin
+ @do `p22 is `i74
+ @do write
+`+74 `$(`%`i74`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 73
+
+@label 75
+ @do `p20 is 75
+@if `i75 > 0 then do
+ @begin
+ @do `p22 is `i75
+ @do write
+`+75 `$(`%`i75`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 74
+
+@label 76
+ @do `p20 is 76
+@if `i76 > 0 then do
+ @begin
+ @do `p22 is `i76
+ @do write
+`+76 `$(`%`i76`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 75
+
+@label 77
+ @do `p20 is 77
+@if `i77 > 0 then do
+ @begin
+ @do `p22 is `i77
+ @do write
+`+77 `$(`%`i77`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 76
+
+@label 78
+ @do `p20 is 78
+@if `i78 > 0 then do
+ @begin
+ @do `p22 is `i78
+ @do write
+`+78 `$(`%`i78`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 77
+
+@label 79
+ @do `p20 is 79
+@if `i79 > 0 then do
+ @begin
+ @do `p22 is `i79
+ @do write
+`+79 `$(`%`i79`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 78
+
+@label 80
+ @do `p20 is 80
+@if `i80 > 0 then do
+ @begin
+ @do `p22 is `i80
+ @do write
+`+80 `$(`%`i80`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 79
+
+@label 81
+ @do `p20 is 81
+@if `i81 > 0 then do
+ @begin
+ @do `p22 is `i81
+ @do write
+`+81 `$(`%`i81`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 80
+
+@label 82
+ @do `p20 is 82
+@if `i82 > 0 then do
+ @begin
+ @do `p22 is `i82
+ @do write
+`+82 `$(`%`i82`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 81
+
+@label 83
+ @do `p20 is 83
+@if `i83 > 0 then do
+ @begin
+ @do `p22 is `i83
+ @do write
+`+83 `$(`%`i83`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 82
+
+@label 84
+ @do `p20 is 84
+@if `i84 > 0 then do
+ @begin
+ @do `p22 is `i84
+ @do write
+`+84 `$(`%`i84`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 83
+
+
+@label 85
+ @do `p20 is 85
+@if `i85 > 0 then do
+ @begin
+ @do `p22 is `i85
+ @do write
+`+85 `$(`%`i85`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 84
+
+@label 86
+ @do `p20 is 86
+@if `i86 > 0 then do
+ @begin
+ @do `p22 is `i86
+ @do write
+`+86 `$(`%`i86`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 85
+
+@label 87
+ @do `p20 is 87
+@if `i87 > 0 then do
+ @begin
+ @do `p22 is `i87
+ @do write
+`+87 `$(`%`i87`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 86
+
+@label 88
+ @do `p20 is 88
+@if `i88 > 0 then do
+ @begin
+ @do `p22 is `i88
+ @do write
+`+88 `$(`%`i88`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 87
+
+@label 89
+ @do `p20 is 89
+@if `i89 > 0 then do
+ @begin
+ @do `p22 is `i89
+ @do write
+`+89 `$(`%`i89`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 88
+
+@label 90
+ @do `p20 is 90
+@if `i90 > 0 then do
+ @begin
+ @do `p22 is `i90
+ @do write
+`+90 `$(`%`i90`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 89
+
+@label 91
+ @do `p20 is 91
+@if `i91 > 0 then do
+ @begin
+ @do `p22 is `i91
+ @do write
+`+91 `$(`%`i91`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 90
+
+@label 92
+@if `i92 > 0 then do
+ @begin
+ @do `p20 is 92
+ @do `p22 is `i92
+ @do write
+`+92 `$(`%`i92`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 91
+
+@label 93
+ @do `p20 is 93
+@if `i93 > 0 then do
+ @begin
+ @do `p22 is `i93
+ @do write
+`+93 `$(`%`i93`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 92
+
+@label 94
+ @do `p20 is 94
+@if `i94 > 0 then do
+ @begin
+ @do `p22 is `i94
+ @do write
+`+94 `$(`%`i94`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 93
+
+@label 95
+ @do `p20 is 95
+@if `i95 > 0 then do
+ @begin
+ @do `p22 is `i95
+ @do write
+`+95 `$(`%`i95`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 94
+
+@label 96
+ @do `p20 is 96
+@if `i96 > 0 then do
+ @begin
+ @do `p22 is `i96
+ @do write
+`+96 `$(`%`i96`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 95
+
+@label 97
+ @do `p20 is 97
+@if `i97 > 0 then do
+ @begin
+ @do `p22 is `i97
+ @do write
+`+97 `$(`%`i97`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 96
+
+@label 98
+ @do `p20 is 98
+@if `i98 > 0 then do
+ @begin
+ @do `p22 is `i98
+ @do write
+`+98 `$(`%`i98`$)
+ @run itemcom in lockref3.ref
+ @end
+@if `p30 is 1 then goto 97
+
+@label 99
+ @do `p20 is 99
+@if `i99 > 0 then do
+ @begin
+ @do `p22 is `i99
+ @do write
+`+99 `$(`%`i99`$)
+ @run itemcom in lockref3.ref
+ @end
+@do goto 1
+@end
+
diff --git a/xtrn/lord2/cnw/lockref5.ref b/xtrn/lord2/cnw/lockref5.ref
new file mode 100644
index 0000000000000000000000000000000000000000..3490cc09a66a665417805daca2fb500c5469f6d7
--- /dev/null
+++ b/xtrn/lord2/cnw/lockref5.ref
@@ -0,0 +1,1594 @@
+; Script file LOCKREF5.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:19 2001
+
+@DECLARE b1 000005054
+@DECLARE b2 000005202
+@DECLARE b3 000005350
+@DECLARE b4 000005498
+@DECLARE b5 000005646
+@DECLARE b6 000005794
+@DECLARE b7 000005942
+@DECLARE b8 000006090
+@DECLARE b9 000006238
+@DECLARE b10 000006387
+@DECLARE b11 000006536
+@DECLARE b12 000006685
+@DECLARE b13 000006834
+@DECLARE b14 000006983
+@DECLARE b15 000007132
+@DECLARE b16 000007281
+@DECLARE b17 000007430
+@DECLARE b18 000007579
+@DECLARE b19 000007728
+@DECLARE b20 000007877
+@DECLARE b21 000008026
+@DECLARE b22 000008183
+@DECLARE b23 000008332
+@DECLARE b24 000008481
+@DECLARE b25 000008630
+@DECLARE b26 000008779
+@DECLARE b27 000008928
+@DECLARE b28 000009077
+@DECLARE b29 000009226
+@DECLARE b30 000009375
+@DECLARE b31 000009524
+@DECLARE b32 000009673
+@DECLARE b33 000009822
+@DECLARE b34 000009971
+@DECLARE b35 000010120
+@DECLARE b36 000010269
+@DECLARE b37 000010418
+@DECLARE b38 000010567
+@DECLARE b39 000010716
+@DECLARE b40 000010865
+@DECLARE b41 000011014
+@DECLARE b42 000011163
+@DECLARE b43 000011312
+@DECLARE b44 000011461
+@DECLARE b45 000011610
+@DECLARE b46 000011759
+@DECLARE b47 000011908
+@DECLARE b48 000012057
+@DECLARE b49 000012206
+@DECLARE b50 000012355
+@DECLARE b51 000012504
+@DECLARE b52 000012661
+@DECLARE b53 000012810
+@DECLARE b54 000012959
+@DECLARE b55 000013108
+@DECLARE b56 000013257
+@DECLARE b57 000013406
+@DECLARE b58 000013555
+@DECLARE b59 000013704
+@DECLARE b60 000013853
+@DECLARE b61 000014002
+@DECLARE b62 000014151
+@DECLARE b63 000014300
+@DECLARE b64 000014457
+@DECLARE b65 000014606
+@DECLARE b66 000014755
+@DECLARE b67 000014904
+@DECLARE b68 000015053
+@DECLARE b69 000015202
+@DECLARE b70 000015351
+@DECLARE b71 000015500
+@DECLARE b72 000015649
+@DECLARE b73 000015798
+@DECLARE b74 000015947
+@DECLARE b75 000016096
+@DECLARE b76 000016245
+@DECLARE b77 000016394
+@DECLARE b78 000016543
+@DECLARE b79 000016692
+@DECLARE b80 000016841
+@DECLARE b81 000016996
+@DECLARE b82 000017145
+@DECLARE b83 000017294
+@DECLARE b84 000017443
+@DECLARE b85 000017593
+@DECLARE b86 000017743
+@DECLARE b87 000017892
+@DECLARE b88 000018041
+@DECLARE b89 000018190
+@DECLARE b90 000018346
+@DECLARE b91 000018495
+@DECLARE b92 000018644
+@DECLARE b93 000018793
+@DECLARE b94 000018942
+@DECLARE b95 000019091
+@DECLARE b96 000019240
+@DECLARE b97 000019389
+@DECLARE b98 000019538
+@DECLARE c1 000019797
+@DECLARE c2 000019872
+@DECLARE c3 000019947
+@DECLARE c4 000020022
+@DECLARE c5 000020097
+@DECLARE c6 000020172
+@DECLARE c7 000020247
+@DECLARE c8 000020322
+@DECLARE c9 000020397
+@DECLARE c10 000020473
+@DECLARE c11 000020549
+@DECLARE c12 000020625
+@DECLARE c13 000020701
+@DECLARE c14 000020777
+@DECLARE c15 000020853
+@DECLARE c16 000020929
+@DECLARE c17 000021005
+@DECLARE c18 000021081
+@DECLARE c19 000021157
+@DECLARE c20 000021233
+@DECLARE c21 000021309
+@DECLARE c22 000021393
+@DECLARE c23 000021469
+@DECLARE c24 000021545
+@DECLARE c25 000021621
+@DECLARE c26 000021697
+@DECLARE c27 000021773
+@DECLARE c28 000021849
+@DECLARE c29 000021925
+@DECLARE c30 000022001
+@DECLARE c31 000022077
+@DECLARE c32 000022153
+@DECLARE c33 000022229
+@DECLARE c34 000022305
+@DECLARE c35 000022381
+@DECLARE c36 000022457
+@DECLARE c37 000022533
+@DECLARE c38 000022609
+@DECLARE c39 000022685
+@DECLARE c40 000022761
+@DECLARE c41 000022837
+@DECLARE c42 000022913
+@DECLARE c43 000022989
+@DECLARE c44 000023065
+@DECLARE c45 000023141
+@DECLARE c46 000023217
+@DECLARE c47 000023293
+@DECLARE c48 000023381
+@DECLARE c49 000023457
+@DECLARE c50 000023533
+@DECLARE c51 000023609
+@DECLARE c52 000023693
+@DECLARE c53 000023769
+@DECLARE c54 000023845
+@DECLARE c55 000023921
+@DECLARE c56 000023997
+@DECLARE c57 000024073
+@DECLARE c58 000024149
+@DECLARE c59 000024225
+@DECLARE c60 000024301
+@DECLARE c61 000024377
+@DECLARE c62 000024453
+@DECLARE c63 000024529
+@DECLARE c64 000024613
+@DECLARE c65 000024689
+@DECLARE c66 000024765
+@DECLARE c67 000024841
+@DECLARE c68 000024917
+@DECLARE c69 000024993
+@DECLARE c70 000025069
+@DECLARE c71 000025145
+@DECLARE c72 000025221
+@DECLARE c73 000025297
+@DECLARE c74 000025373
+@DECLARE c75 000025449
+@DECLARE c76 000025525
+@DECLARE c77 000025601
+@DECLARE c78 000025677
+@DECLARE c79 000025753
+@DECLARE c80 000025829
+@DECLARE c81 000025905
+@DECLARE c82 000025981
+@DECLARE c83 000026057
+@DECLARE c84 000026133
+@DECLARE c85 000026210
+@DECLARE c86 000026287
+@DECLARE c87 000026363
+@DECLARE c88 000026439
+@DECLARE c89 000026515
+@DECLARE c90 000026591
+@DECLARE c91 000026667
+@DECLARE c92 000026743
+@DECLARE c93 000026819
+@DECLARE c94 000026895
+@DECLARE c95 000026971
+@DECLARE c96 000027047
+@DECLARE c97 000027123
+@DECLARE c98 000027199
+@NOCHECK
+; End of .REF index
+
+;
+; Locker House version 1.2 (REF FILE #5/6)
+; by: Joel Gathercole
+;
+; in aliance with Complete New World 136.3+
+;
+;
+; http://greenmachinebbs.com/lord2/
+; telnet://greenmachinebbs.com
+; greenie@darktech.org
+;
+@label b1
+ @do `i01 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b2
+ @do `i02 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b3
+ @do `i03 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b4
+ @do `i04 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b5
+ @do `i05 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b6
+ @do `i06 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b7
+ @do `i07 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b8
+ @do `i08 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b9
+ @do `i09 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b10
+ @do `i10 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b11
+ @do `i11 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b12
+ @do `i12 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b13
+ @do `i13 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b14
+ @do `i14 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b15
+ @do `i15 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b16
+ @do `i16 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b17
+ @do `i17 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b18
+ @do `i18 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b19
+ @do `i19 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b20
+ @do `i20 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b21
+ @do `i21 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b22
+ @do `i22 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b23
+ @do `i23 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b24
+ @do `i24 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b25
+ @do `i25 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b26
+ @do `i26 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b27
+ @do `i27 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b28
+ @do `i28 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b29
+ @do `i29 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b30
+ @do `i30 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b31
+ @do `i31 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b32
+ @do `i32 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b33
+ @do `i33 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b34
+ @do `i34 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b35
+ @do `i35 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b36
+ @do `i36 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b37
+ @do `i37 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b38
+ @do `i38 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b39
+ @do `i39 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b40
+ @do `i40 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b41
+ @do `i41 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b42
+ @do `i42 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b43
+ @do `i43 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b44
+ @do `i44 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b45
+ @do `i45 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b46
+ @do `i46 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b47
+ @do `i47 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b48
+ @do `i48 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b49
+ @do `i49 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b50
+ @do `i50 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b51
+ @do `i51 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b52
+ @do `i52 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b53
+ @do `i53 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b54
+ @do `i54 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b55
+ @do `i55 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b56
+ @do `i56 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b57
+ @do `i57 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b58
+ @do `i58 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b59
+ @do `i59 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b60
+ @do `i60 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b61
+ @do `i61 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b62
+ @do `i62 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b63
+ @do `i63 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b64
+ @do `i64 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b65
+ @do `i65 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b66
+ @do `i66 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b67
+ @do `i67 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b68
+ @do `i68 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b69
+ @do `i69 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b70
+ @do `i70 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b71
+ @do `i71 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b72
+ @do `i72 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b73
+ @do `i73 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b74
+ @do `i74 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b75
+ @do `i75 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b76
+ @do `i76 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b77
+ @do `i77 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b78
+ @do `i78 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b79
+ @do `i79 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b80
+ @do `i80 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b81
+ @do `i81 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b82
+ @do `i82 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b83
+ @do `i83 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b84
+ @do `i84 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b85
+ @do `i85 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b86
+ @do `i86 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b87
+ @do `i87 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b88
+ @do `i88 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b89
+ @do `i89 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b90
+ @do `i90 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b91
+ @do `i91 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b92
+ @do `i92 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b93
+ @do `i93 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b94
+ @do `i94 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b95
+ @do `i95 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b96
+ @do `i96 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b97
+ @do `i97 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+@label b98
+ @do `i98 is `p22
+ @if `p30 is 2 then do
+ @begin
+ @run items in lockref3.ref
+ @end
+ @run showitem in lockref3.ref
+ @end
+
+;@label b99
+; @do `i99 is `p22
+; @run showitem in lockref3.ref
+; @end
+@run items in lockref3.ref
+@end
+
+@label c1
+ @do `s04 is `+01
+ @run displayitem in lockref3.ref
+ @end
+
+@label c2
+ @do `s04 is `+02
+ @run displayitem in lockref3.ref
+ @end
+
+@label c3
+ @do `s04 is `+03
+ @run displayitem in lockref3.ref
+ @end
+
+@label c4
+ @do `s04 is `+04
+ @run displayitem in lockref3.ref
+ @end
+
+@label c5
+ @do `s04 is `+05
+ @run displayitem in lockref3.ref
+ @end
+
+@label c6
+ @do `s04 is `+06
+ @run displayitem in lockref3.ref
+ @end
+
+@label c7
+ @do `s04 is `+07
+ @run displayitem in lockref3.ref
+ @end
+
+@label c8
+ @do `s04 is `+08
+ @run displayitem in lockref3.ref
+ @end
+
+@label c9
+ @do `s04 is `+09
+ @run displayitem in lockref3.ref
+ @end
+
+@label c10
+ @do `s04 is `+10
+ @run displayitem in lockref3.ref
+ @end
+
+@label c11
+ @do `s04 is `+11
+ @run displayitem in lockref3.ref
+ @end
+
+@label c12
+ @do `s04 is `+12
+ @run displayitem in lockref3.ref
+ @end
+
+@label c13
+ @do `s04 is `+13
+ @run displayitem in lockref3.ref
+ @end
+
+@label c14
+ @do `s04 is `+14
+ @run displayitem in lockref3.ref
+ @end
+
+@label c15
+ @do `s04 is `+15
+ @run displayitem in lockref3.ref
+ @end
+
+@label c16
+ @do `s04 is `+16
+ @run displayitem in lockref3.ref
+ @end
+
+@label c17
+ @do `s04 is `+17
+ @run displayitem in lockref3.ref
+ @end
+
+@label c18
+ @do `s04 is `+18
+ @run displayitem in lockref3.ref
+ @end
+
+@label c19
+ @do `s04 is `+19
+ @run displayitem in lockref3.ref
+ @end
+
+@label c20
+ @do `s04 is `+20
+ @run displayitem in lockref3.ref
+ @end
+
+@label c21
+ @do `s04 is `+21
+ @run displayitem in lockref3.ref
+ @end
+
+@label c22
+ @do `s04 is `+22
+ @run displayitem in lockref3.ref
+ @end
+
+@label c23
+ @do `s04 is `+23
+ @run displayitem in lockref3.ref
+ @end
+
+@label c24
+ @do `s04 is `+24
+ @run displayitem in lockref3.ref
+ @end
+
+@label c25
+ @do `s04 is `+25
+ @run displayitem in lockref3.ref
+ @end
+
+@label c26
+ @do `s04 is `+26
+ @run displayitem in lockref3.ref
+ @end
+
+@label c27
+ @do `s04 is `+27
+ @run displayitem in lockref3.ref
+ @end
+
+@label c28
+ @do `s04 is `+27
+ @run displayitem in lockref3.ref
+ @end
+
+@label c29
+ @do `s04 is `+29
+ @run displayitem in lockref3.ref
+ @end
+
+@label c30
+ @do `s04 is `+30
+ @run displayitem in lockref3.ref
+ @end
+
+@label c31
+ @do `s04 is `+31
+ @run displayitem in lockref3.ref
+ @end
+
+@label c32
+ @do `s04 is `+32
+ @run displayitem in lockref3.ref
+ @end
+
+@label c33
+ @do `s04 is `+33
+ @run displayitem in lockref3.ref
+ @end
+
+@label c34
+ @do `s04 is `+34
+ @run displayitem in lockref3.ref
+ @end
+
+@label c35
+ @do `s04 is `+35
+ @run displayitem in lockref3.ref
+ @end
+
+@label c36
+ @do `s04 is `+36
+ @run displayitem in lockref3.ref
+ @end
+
+@label c37
+ @do `s04 is `+37
+ @run displayitem in lockref3.ref
+ @end
+
+@label c38
+ @do `s04 is `+38
+ @run displayitem in lockref3.ref
+ @end
+
+@label c39
+ @do `s04 is `+39
+ @run displayitem in lockref3.ref
+ @end
+
+@label c40
+ @do `s04 is `+40
+ @run displayitem in lockref3.ref
+ @end
+
+@label c41
+ @do `s04 is `+41
+ @run displayitem in lockref3.ref
+ @end
+
+@label c42
+ @do `s04 is `+42
+ @run displayitem in lockref3.ref
+ @end
+
+@label c43
+ @do `s04 is `+43
+ @run displayitem in lockref3.ref
+ @end
+
+@label c44
+ @do `s04 is `+44
+ @run displayitem in lockref3.ref
+ @end
+
+@label c45
+ @do `s04 is `+45
+ @run displayitem in lockref3.ref
+ @end
+
+@label c46
+ @do `s04 is `+46
+ @run displayitem in lockref3.ref
+ @end
+
+@label c47
+ @do `s04 is `+47
+ @run displayitem in lockref3.ref
+ @end
+
+@label c48
+ @do `s04 is `+48
+ @run displayitem in lockref3.ref
+ @end
+
+@label c49
+ @do `s04 is `+49
+ @run displayitem in lockref3.ref
+ @end
+
+@label c50
+ @do `s04 is `+50
+ @run displayitem in lockref3.ref
+ @end
+
+@label c51
+ @do `s04 is `+51
+ @run displayitem in lockref3.ref
+ @end
+
+@label c52
+ @do `s04 is `+52
+ @run displayitem in lockref3.ref
+ @end
+
+@label c53
+ @do `s04 is `+53
+ @run displayitem in lockref3.ref
+ @end
+
+@label c54
+ @do `s04 is `+54
+ @run displayitem in lockref3.ref
+ @end
+
+@label c55
+ @do `s04 is `+55
+ @run displayitem in lockref3.ref
+ @end
+
+@label c56
+ @do `s04 is `+56
+ @run displayitem in lockref3.ref
+ @end
+
+@label c57
+ @do `s04 is `+57
+ @run displayitem in lockref3.ref
+ @end
+
+@label c58
+ @do `s04 is `+58
+ @run displayitem in lockref3.ref
+ @end
+
+@label c59
+ @do `s04 is `+59
+ @run displayitem in lockref3.ref
+ @end
+
+@label c60
+ @do `s04 is `+60
+ @run displayitem in lockref3.ref
+ @end
+
+@label c61
+ @do `s04 is `+61
+ @run displayitem in lockref3.ref
+ @end
+
+@label c62
+ @do `s04 is `+62
+ @run displayitem in lockref3.ref
+ @end
+
+@label c63
+ @do `s04 is `+63
+ @run displayitem in lockref3.ref
+ @end
+
+@label c64
+ @do `s04 is `+64
+ @run displayitem in lockref3.ref
+ @end
+
+@label c65
+ @do `s04 is `+65
+ @run displayitem in lockref3.ref
+ @end
+
+@label c66
+ @do `s04 is `+66
+ @run displayitem in lockref3.ref
+ @end
+
+@label c67
+ @do `s04 is `+67
+ @run displayitem in lockref3.ref
+ @end
+
+@label c68
+ @do `s04 is `+68
+ @run displayitem in lockref3.ref
+ @end
+
+@label c69
+ @do `s04 is `+69
+ @run displayitem in lockref3.ref
+ @end
+
+@label c70
+ @do `s04 is `+70
+ @run displayitem in lockref3.ref
+ @end
+
+@label c71
+ @do `s04 is `+71
+ @run displayitem in lockref3.ref
+ @end
+
+@label c72
+ @do `s04 is `+72
+ @run displayitem in lockref3.ref
+ @end
+
+@label c73
+ @do `s04 is `+73
+ @run displayitem in lockref3.ref
+ @end
+
+@label c74
+ @do `s04 is `+74
+ @run displayitem in lockref3.ref
+ @end
+
+@label c75
+ @do `s04 is `+75
+ @run displayitem in lockref3.ref
+ @end
+
+@label c76
+ @do `s04 is `+76
+ @run displayitem in lockref3.ref
+ @end
+
+@label c77
+ @do `s04 is `+77
+ @run displayitem in lockref3.ref
+ @end
+
+@label c78
+ @do `s04 is `+78
+ @run displayitem in lockref3.ref
+ @end
+
+@label c79
+ @do `s04 is `+79
+ @run displayitem in lockref3.ref
+ @end
+
+@label c80
+ @do `s04 is `+80
+ @run displayitem in lockref3.ref
+ @end
+
+@label c81
+ @do `s04 is `+81
+ @run displayitem in lockref3.ref
+ @end
+
+@label c82
+ @do `s04 is `+82
+ @run displayitem in lockref3.ref
+ @end
+
+@label c83
+ @do `s04 is `+83
+ @run displayitem in lockref3.ref
+ @end
+
+@label c84
+ @do `s04 is `+84
+ @run displayitem in lockref3.ref
+ @end
+
+@label c85
+ @do `s04 is `+85
+ @run displayitem in lockref3.ref
+ @end
+
+@label c86
+ @do `s04 is `+86
+ @run displayitem in lockref3.ref
+ @end
+
+@label c87
+ @do `s04 is `+87
+ @run displayitem in lockref3.ref
+ @end
+
+@label c88
+ @do `s04 is `+88
+ @run displayitem in lockref3.ref
+ @end
+
+@label c89
+ @do `s04 is `+89
+ @run displayitem in lockref3.ref
+ @end
+
+@label c90
+ @do `s04 is `+90
+ @run displayitem in lockref3.ref
+ @end
+
+@label c91
+ @do `s04 is `+91
+ @run displayitem in lockref3.ref
+ @end
+
+@label c92
+ @do `s04 is `+92
+ @run displayitem in lockref3.ref
+ @end
+
+@label c93
+ @do `s04 is `+93
+ @run displayitem in lockref3.ref
+ @end
+
+@label c94
+ @do `s04 is `+94
+ @run displayitem in lockref3.ref
+ @end
+
+@label c95
+ @do `s04 is `+95
+ @run displayitem in lockref3.ref
+ @end
+
+@label c96
+ @do `s04 is `+96
+ @run displayitem in lockref3.ref
+ @end
+
+@label c97
+ @do `s04 is `+97
+ @run displayitem in lockref3.ref
+ @end
+
+@label c98
+ @do `s04 is `+98
+ @run displayitem in lockref3.ref
+ @end
+
+@run items in lockref3.ref
+@end
+
diff --git a/xtrn/lord2/cnw/lockref6.ref b/xtrn/lord2/cnw/lockref6.ref
new file mode 100644
index 0000000000000000000000000000000000000000..77b4a6dd40c0023153d27520bd8de43c6e3ee03b
--- /dev/null
+++ b/xtrn/lord2/cnw/lockref6.ref
@@ -0,0 +1,609 @@
+; Script file LOCKREF6.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:19 2001
+
+@DECLARE d1 000002711
+@DECLARE d2 000002793
+@DECLARE d3 000002869
+@DECLARE d4 000002945
+@DECLARE d5 000003021
+@DECLARE d6 000003097
+@DECLARE d7 000003173
+@DECLARE d8 000003365
+@DECLARE d9 000003441
+@DECLARE d10 000003518
+@DECLARE d11 000003597
+@DECLARE d12 000003676
+@DECLARE d13 000003755
+@DECLARE d14 000003834
+@DECLARE d15 000003913
+@DECLARE d16 000003992
+@DECLARE d17 000004071
+@DECLARE d18 000004150
+@DECLARE d19 000004229
+@DECLARE d20 000004308
+@DECLARE d21 000004387
+@DECLARE d22 000004481
+@DECLARE d23 000004560
+@DECLARE d24 000004639
+@DECLARE d25 000004718
+@DECLARE d26 000004797
+@DECLARE d27 000004876
+@DECLARE d28 000004955
+@DECLARE d29 000005033
+@DECLARE d30 000005112
+@DECLARE d31 000005191
+@DECLARE d32 000005270
+@DECLARE d33 000005349
+@DECLARE d34 000005428
+@DECLARE d35 000005507
+@DECLARE d36 000005586
+@DECLARE d37 000005665
+@DECLARE d38 000005744
+@DECLARE d39 000005823
+@DECLARE d40 000005902
+@DECLARE d41 000005981
+@DECLARE d42 000006060
+@DECLARE d43 000006139
+@DECLARE d44 000006218
+@DECLARE d45 000006297
+@DECLARE d46 000006376
+@DECLARE d47 000006455
+@DECLARE d48 000006534
+@DECLARE d49 000006613
+@DECLARE d50 000006692
+@DECLARE d51 000006771
+@DECLARE d52 000006858
+@DECLARE d53 000006937
+@DECLARE d54 000007016
+@DECLARE d55 000007095
+@DECLARE d56 000007173
+@DECLARE d57 000007252
+@DECLARE d58 000007331
+@DECLARE d59 000007410
+@DECLARE d60 000007489
+@DECLARE d61 000007568
+@DECLARE d62 000007647
+@DECLARE d63 000007726
+@DECLARE d64 000007813
+@DECLARE d65 000007892
+@DECLARE d66 000007971
+@DECLARE d67 000008050
+@DECLARE d68 000008129
+@DECLARE d69 000008208
+@DECLARE d70 000008287
+@DECLARE d71 000008366
+@DECLARE d72 000008445
+@DECLARE d73 000008524
+@DECLARE d74 000008603
+@DECLARE d75 000008682
+@DECLARE d76 000008761
+@DECLARE d77 000008840
+@DECLARE d78 000008919
+@DECLARE d79 000008998
+@DECLARE d80 000009077
+@DECLARE d81 000009156
+@DECLARE d82 000009235
+@DECLARE d83 000009314
+@DECLARE d84 000009393
+@DECLARE d85 000009472
+@DECLARE d86 000009551
+@DECLARE d87 000009630
+@DECLARE d88 000009709
+@DECLARE d89 000009788
+@DECLARE d90 000009866
+@DECLARE d91 000009945
+@DECLARE d92 000010024
+@DECLARE d93 000010103
+@DECLARE d94 000010182
+@DECLARE d95 000010261
+@DECLARE d96 000010340
+@DECLARE d97 000010419
+@DECLARE d98 000010498
+@NOCHECK
+; End of .REF index
+
+;
+; Locker House version 1.2 (REF FILE #6/6)
+; by: Joel Gathercole
+;
+; in aliance with Complete New World 136.3+
+;
+;
+; http://greenmachinebbs.com/lord2/
+; telnet://greenmachinebbs.com
+; greenie@darktech.org
+;
+@label d1
+ @do `p20 is 1
+ @do `i01 + `p22
+@run items in lockref3.ref
+ @end
+
+@label d2
+ @do `p20 is 2
+ @do `i02 + `p22
+ @run items in lockref3.ref
+
+@label d3
+ @do `p20 is 3
+ @do `i03 + `p22
+ @run items in lockref3.ref
+
+@label d4
+ @do `p20 is 4
+ @do `i04 + `p22
+ @run items in lockref3.ref
+
+@label d5
+ @do `p20 is 5
+ @do `i05 + `p22
+ @run items in lockref3.ref
+
+@label d6
+ @do `p20 is 6
+ @do `i06 + `p22
+ @run items in lockref3.ref
+
+@label d7
+; There is a weird bug here, do not know why?? :(
+; This is all exatly the same as the rest, yet a bug exists.
+; @do `p20 is 7
+; @do `i07 + `p22
+; @run items in lockref3.ref
+
+@label d8
+ @do `p20 is 8
+ @do `i08 + `p22
+ @run items in lockref3.ref
+
+@label d9
+ @do `p20 is 9
+ @do `i09 + `p22
+ @run items in lockref3.ref
+
+@label d10
+ @do `p20 is 10
+ @do `i10 + `p22
+ @run items in lockref3.ref
+
+@label d11
+ @do `p20 is 11
+ @do `i11 + `p22
+ @run items in lockref3.ref
+
+@label d12
+ @do `p20 is 12
+ @do `i12 + `p22
+ @run items in lockref3.ref
+
+@label d13
+ @do `i13 + `p22
+ @do `p20 is 13
+ @run items in lockref3.ref
+
+@label d14
+ @do `i14 + `p22
+ @do `p20 is 14
+ @run items in lockref3.ref
+
+@label d15
+ @do `i15 + `p22
+ @do `p20 is 15
+ @run items in lockref3.ref
+
+@label d16
+ @do `i16 + `p22
+ @do `p20 is 16
+ @run items in lockref3.ref
+
+@label d17
+ @do `i17 + `p22
+ @do `p20 is 17
+ @run items in lockref3.ref
+
+@label d18
+ @do `i18 + `p22
+ @do `p20 is 18
+ @run items in lockref3.ref
+
+@label d19
+ @do `i19 + `p22
+ @do `p20 is 19
+ @run items in lockref3.ref
+
+@label d20
+ @do `i20 + `p22
+ @do `p20 is 20
+ @run items in lockref3.ref
+
+@label d21
+ @do `i21 + `p22
+ @do `p20 is 21
+ @run items in lockref3.ref
+
+@label d22
+ @do `i22 + `p22
+ @do `p20 is 22
+ @run items in lockref3.ref
+
+@label d23
+ @do `i23 + `p22
+ @do `p20 is 23
+ @run items in lockref3.ref
+
+@label d24
+ @do `i24 + `p22
+ @do `p20 is 24
+ @run items in lockref3.ref
+
+@label d25
+ @do `i25 + `p22
+ @do `p20 is 25
+ @run items in lockref3.ref
+
+@label d26
+ @do `i26 + `p22
+ @do `p20 is 26
+ @run items in lockref3.ref
+
+@label d27
+ @do `i27 + `p22
+ @do `p20 is 27
+ @run items in lockref3.ref
+
+@label d28
+ @do `p20 is 28
+ @do `i28 + `p22
+ @run items in lockref3.ref
+
+@label d29
+ @do `p20 is 29
+ @do `i29 + `p22
+ @run items in lockref3.ref
+
+@label d30
+ @do `p20 is 30
+ @do `i30 + `p22
+ @run items in lockref3.ref
+
+@label d31
+ @do `p20 is 31
+ @do `i31 + `p22
+ @run items in lockref3.ref
+
+@label d32
+ @do `p20 is 32
+ @do `i32 + `p22
+ @run items in lockref3.ref
+
+@label d33
+ @do `i33 + `p22
+ @do `p20 is 33
+ @run items in lockref3.ref
+
+@label d34
+ @do `i34 + `p22
+ @do `p20 is 34
+ @run items in lockref3.ref
+
+@label d35
+ @do `i35 + `p22
+ @do `p20 is 35
+ @run items in lockref3.ref
+
+@label d36
+ @do `i36 + `p22
+ @do `p20 is 36
+ @run items in lockref3.ref
+
+@label d37
+ @do `i37 + `p22
+ @do `p20 is 37
+ @run items in lockref3.ref
+
+@label d38
+ @do `i38 + `p22
+ @do `p20 is 38
+ @run items in lockref3.ref
+
+@label d39
+ @do `i39 + `p22
+ @do `p20 is 39
+ @run items in lockref3.ref
+
+@label d40
+ @do `i40 + `p22
+ @do `p20 is 40
+ @run items in lockref3.ref
+
+@label d41
+ @do `i41 + `p22
+ @do `p20 is 41
+ @run items in lockref3.ref
+
+@label d42
+ @do `i42 + `p22
+ @do `p20 is 42
+ @run items in lockref3.ref
+
+@label d43
+ @do `i43 + `p22
+ @do `p20 is 43
+ @run items in lockref3.ref
+
+@label d44
+ @do `i44 + `p22
+ @do `p20 is 44
+ @run items in lockref3.ref
+
+@label d45
+ @do `i45 + `p22
+ @do `p20 is 45
+ @run items in lockref3.ref
+
+@label d46
+ @do `i46 + `p22
+ @do `p20 is 46
+ @run items in lockref3.ref
+
+@label d47
+ @do `i47 + `p22
+ @do `p20 is 47
+ @run items in lockref3.ref
+
+@label d48
+ @do `i48 + `p22
+ @do `p20 is 48
+ @run items in lockref3.ref
+
+@label d49
+ @do `i49 + `p22
+ @do `p20 is 49
+ @run items in lockref3.ref
+
+@label d50
+ @do `i50 + `p22
+ @do `p20 is 50
+ @run items in lockref3.ref
+
+@label d51
+ @do `i51 + `p22
+ @do `p20 is 51
+ @run items in lockref3.ref
+
+@label d52
+ @do `i52 + `p22
+ @do `p20 is 52
+ @run items in lockref3.ref
+
+@label d53
+ @do `i53 + `p22
+ @do `p20 is 53
+ @run items in lockref3.ref
+
+@label d54
+ @do `i54 + `p22
+ @do `p20 is 54
+ @run items in lockref3.ref
+
+@label d55
+ @do `p20 is 55
+ @do `i55 + `p22
+ @run items in lockref3.ref
+
+@label d56
+ @do `i56 + `p22
+ @do `p20 is 56
+ @run items in lockref3.ref
+
+@label d57
+ @do `i57 + `p22
+ @do `p20 is 57
+ @run items in lockref3.ref
+
+@label d58
+ @do `i58 + `p22
+ @do `p20 is 58
+ @run items in lockref3.ref
+
+@label d59
+ @do `i59 + `p22
+ @do `p20 is 59
+ @run items in lockref3.ref
+
+@label d60
+ @do `i60 + `p22
+ @do `p20 is 60
+ @run items in lockref3.ref
+
+@label d61
+ @do `i61 + `p22
+ @do `p20 is 61
+ @run items in lockref3.ref
+
+@label d62
+ @do `i62 + `p22
+ @do `p20 is 62
+ @run items in lockref3.ref
+
+@label d63
+ @do `i63 + `p22
+ @do `p20 is 63
+ @run items in lockref3.ref
+
+@label d64
+ @do `i64 + `p22
+ @do `p20 is 64
+ @run items in lockref3.ref
+
+@label d65
+ @do `i65 + `p22
+ @do `p20 is 65
+ @run items in lockref3.ref
+
+@label d66
+ @do `i66 + `p22
+ @do `p20 is 66
+ @run items in lockref3.ref
+
+@label d67
+ @do `i67 + `p22
+ @do `p20 is 67
+ @run items in lockref3.ref
+
+@label d68
+ @do `i68 + `p22
+ @do `p20 is 68
+ @run items in lockref3.ref
+
+@label d69
+ @do `i69 + `p22
+ @do `p20 is 69
+ @run items in lockref3.ref
+
+@label d70
+ @do `i70 + `p22
+ @do `p20 is 70
+ @run items in lockref3.ref
+
+@label d71
+ @do `i71 + `p22
+ @do `p20 is 71
+ @run items in lockref3.ref
+
+@label d72
+ @do `i72 + `p22
+ @do `p20 is 72
+ @run items in lockref3.ref
+
+@label d73
+ @do `i73 + `p22
+ @do `p20 is 73
+ @run items in lockref3.ref
+
+@label d74
+ @do `i74 + `p22
+ @do `p20 is 74
+ @run items in lockref3.ref
+
+@label d75
+ @do `i75 + `p22
+ @do `p20 is 75
+ @run items in lockref3.ref
+
+@label d76
+ @do `i76 + `p22
+ @do `p20 is 76
+ @run items in lockref3.ref
+
+@label d77
+ @do `i77 + `p22
+ @do `p20 is 77
+ @run items in lockref3.ref
+
+@label d78
+ @do `i78 + `p22
+ @do `p20 is 78
+ @run items in lockref3.ref
+
+@label d79
+ @do `i79 + `p22
+ @do `p20 is 79
+ @run items in lockref3.ref
+
+@label d80
+ @do `i80 + `p22
+ @do `p20 is 80
+ @run items in lockref3.ref
+
+@label d81
+ @do `i81 + `p22
+ @do `p20 is 81
+ @run items in lockref3.ref
+
+@label d82
+ @do `i82 + `p22
+ @do `p20 is 82
+ @run items in lockref3.ref
+
+@label d83
+ @do `i83 + `p22
+ @do `p20 is 83
+ @run items in lockref3.ref
+
+@label d84
+ @do `i84 + `p22
+ @do `p20 is 84
+ @run items in lockref3.ref
+
+@label d85
+ @do `i85 + `p22
+ @do `p20 is 85
+ @run items in lockref3.ref
+
+@label d86
+ @do `i86 + `p22
+ @do `p20 is 86
+ @run items in lockref3.ref
+
+@label d87
+ @do `i87 + `p22
+ @do `p20 is 87
+ @run items in lockref3.ref
+
+@label d88
+ @do `i88 + `p22
+ @do `p20 is 88
+ @run items in lockref3.ref
+
+@label d89
+ @do `i89 + `p22
+ @do `p20 is 89
+ @run items in lockref3.ref
+
+@label d90
+ @do `i90 + `p22
+ @do `p20 is 90
+ @run items in lockref3.ref
+
+@label d91
+ @do `i91 + `p22
+ @do `p20 is 91
+ @run items in lockref3.ref
+
+@label d92
+ @do `i92 + `p22
+ @do `p20 is 91
+ @run items in lockref3.ref
+
+@label d93
+ @do `i93 + `p22
+ @do `p20 is 93
+ @run items in lockref3.ref
+
+@label d94
+ @do `i94 + `p22
+ @do `p20 is 94
+ @run items in lockref3.ref
+
+@label d95
+ @do `i95 + `p22
+ @do `p20 is 95
+ @run items in lockref3.ref
+
+@label d96
+ @do `i96 + `p22
+ @do `p20 is 96
+ @run items in lockref3.ref
+
+@label d97
+ @do `i97 + `p22
+ @do `p20 is 97
+ @run items in lockref3.ref
+
+@label d98
+ @do `i98 + `p22
+ @do `p20 is 98
+ @run items in lockref3.ref
+
+@end
+
diff --git a/xtrn/lord2/cnw/logstuff.ref b/xtrn/lord2/cnw/logstuff.ref
new file mode 100644
index 0000000000000000000000000000000000000000..db63d479fe6c0b09c886a847c9221af5358b78b5
--- /dev/null
+++ b/xtrn/lord2/cnw/logstuff.ref
@@ -0,0 +1,54 @@
+;daily log functions are here
+
+@#readlog
+@pauseon
+@show
+`r0`c `%The Daily Happenings for day `v11 of year `v12
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`k
+@if lognow.txt exist false then do
+ @begin
+ @writefile lognow.txt
+
+ `2Young Nedrick comes home crying - he says he saw an old woman! Eww!
+ `2-`0=`2-`%=`2-`0=`2-
+@pauseoff
+@end
+
+@if lognow.txt exist true then do
+ @begin
+ @displayfile lognow.txt
+ @end
+
+
+
+@label logprompt
+
+@do write
+`\ `2(`0Y`2)esterday news (`0T`2)odays news again (`0C`2)ontinue [`0C`2] : `%
+@do readspecial `s01 CYT
+
+ @if `s01 is Y then do
+ @begin
+ @do `p20 is `v11
+ @do `p20 - 1
+ @do `p21 is `v12
+ @if `p20 < 0 then `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @if `p20 < 0 then `p20 is `v10
+ @pauseon
+ @show
+`r0`c `%The Daily Happenings for yesterday, day `p20 of year `p21
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ @if logold.txt exist true then do
+ @begin
+ @displayfile logold.txt
+ @end
+ @pauseoff
+
+ @do goto logprompt
+ @end
+
+@if `s01 is T then goto readlog
+
+@#alldone
diff --git a/xtrn/lord2/cnw/loki.ref b/xtrn/lord2/cnw/loki.ref
new file mode 100644
index 0000000000000000000000000000000000000000..5a0017a103e01b2bbd47ed657446f2826689e469
--- /dev/null
+++ b/xtrn/lord2/cnw/loki.ref
@@ -0,0 +1,1000 @@
+@#BANK
+@do `v01 is 1
+@offmap
+@do moveback
+@do `s09 is loki
+@routine DONEQUEST in VAULTS.REF
+@label bankstart
+@show
+`r0`c `r1 `%Loki's Inn Bank `r0
+
+`2 An older man looks you over carefully.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+@do `p30 is 16
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdrawal.
+=&bank 0 Apply for an account here.
+Leave
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The man asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last questions?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+
+
+@drawmap
+@update
+
+@#SALES
+@offmap
+@do moveback
+@label weapons
+@show
+`r0`c `r1 `%Loki's Weapons, Armor and General Goods `r0
+
+ `2A scruffy looking blacksmith approaches
+ `0"Waddaya need today?" `2he asks.
+
+
+@do `v01 is 1
+@do write
+`x
+@choice
+Examine his Weaponry
+Check out the Armory
+List other Goods
+Sell something
+Leave
+@show
+`\`c
+
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 60
+ 49
+ 39
+ 58
+ @end
+
+@if responce is 2 then do begin
+ @begin
+@buymanager
+ 37
+ 59
+ 62
+ 68
+ @end
+
+@if responce is 3 then do begin
+ @begin
+@buymanager
+ 3
+ 17
+ 20
+ 29
+ 5
+ 40
+ 50
+ 55
+ 61
+ @end
+
+@if responce is 4 then do begin
+ @begin
+ @clearblock 8 14
+ @do move 1 7
+ @sellmanager
+ @end
+
+@if responce not 5 then goto WEAPONS
+@drawmap
+@update
+@end
+
+@#WINK1
+@if `p08 < 5 then do
+@begin
+@show
+`c
+ `4oDiN `2doesn't seem interested in your fluttering eyelashes.
+`\`k
+ `%Perhaps if you had more charm ?
+`\`k
+@do goto fin
+@end
+@if `p08 > 4 then do
+@begin
+@do `p01 + 525
+@show
+`c
+ `4oDiN `2smiles and winks at you !
+`\`k
+`\
+ `%You gain 525 experience points !
+`\`k
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 + 2
+@datasave npc/npc-`p70.idf &playernum `p29
+@do goto fin
+@end
+
+@#WINK2
+@if `p08 < 5 then do
+@begin
+@show
+`c
+ `#Hilda `2doesn't seem interested in your winking.
+`\`k
+ `%You lack the charm it seems.
+`\`k
+@do goto fin
+@end
+@if `p08 > 4 then do
+@begin
+@do `p01 + 525
+@show
+`c
+ `#Hilda `2smiles and winks at you !
+`\`k
+`\
+ `%You gain 525 experience points !
+`\`k
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 + 2
+@datasave npc/npc-`p70.idf &playernum `p29
+@do goto fin
+@end
+
+@#DINNER1
+@if `p08 < 10 then do
+@begin
+@show
+`c
+ `4oDiN `2refuses your invitation to dinner.
+`\`k
+ `%You lack the charm it seems.
+`\`k
+@do goto fin
+@end
+@if `p08 > 9 then do
+@begin
+@do `p01 + 750
+@show
+`c
+ `4oDiN `2accepts your invitation to dinner !
+`\`k
+ `2You eat dinner together and stare deep into each others eyes.
+`\`k
+ `%You gain 750 experience points !
+`\`k
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 + 3
+@datasave npc/npc-`p70.idf &playernum `p29
+@do goto fin
+@end
+
+@#DINNER2
+@if `p08 < 10 then do
+@begin
+@show
+`c
+ `#Hilda `2refuses your invitation to dinner.
+`\`k
+ `%Perhaps if you had more charm ?
+`\`k
+@do goto fin
+@end
+@if `p08 > 9 then do
+@begin
+@do `p01 + 750
+@show
+`c
+ `#Hilda `2accepts your invitation to dinner.
+`\`k
+`\
+ `2You enjoy your dinner with `#Hilda`2, she asks you
+ to return tomorrow !
+`\`k
+`\
+ `%You gain 750 experience points !
+`\`k
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 + 3
+@datasave npc/npc-`p70.idf &playernum `p29
+@do goto fin
+@end
+
+@#WALK1
+@if `p08 < 15 then do
+@begin
+@show
+`c
+ `4oDin `2tells you that his leg is cramped.
+`\`k
+ `%If only you had more charm.
+`\`k
+@do goto fin
+@end
+@if `p08 > 14 then do
+@begin
+@do `p01 + 975
+@show
+`c
+ `4oDiN `2takes your hand in his and together you go out walking in the
+ moonlight. It is a beautiful night and you are overcome with desire
+ as he whispers sweet nothings in your ear.
+`\`k
+`\
+ `%You gain 975 experience points !
+`\`k
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 + 6
+@datasave npc/npc-`p70.idf &playernum `p29
+@do goto fin
+@end
+
+@#WALK2
+@if `p08 < 15 then do
+@begin
+@show
+`c
+ `#Hilda `2tells you her leg is cramped.
+`\`k
+ `%If only you had more charm.
+`\`k
+@do goto fin
+@end
+@if `p08 > 14 then do
+@begin
+@do `p01 + 975
+@show
+`c
+ `#Hilda `2accepts your invitation for a moonlit walk !
+`\`k
+ `2You walk around outside the Inn holding hands in the moonlight.
+ `#Hilda `2rests her head on your shoulder as you continue your
+ walk together.
+`\`k
+`\
+ `%You gain 975 experience points !
+`\`k
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 + 6
+@datasave npc/npc-`p70.idf &playernum `p29
+@do goto fin
+@end
+
+@#KISS1
+@if `p08 < 20 then do
+@begin
+@show
+`c
+ `4oDiN `2frowns and turns away as you try to embrace and kiss him.
+`\`k
+ `%You decide that you really do need more charm.
+`\`k
+ `4You lose 1 Hit Point
+`\`k
+@do goto fin
+@end
+@if `p08 > 19 then do
+@begin
+@do `p01 + 1129
+@show
+`c
+ `4oDiN `2returns your affections, you kiss and hug for what seems like
+ forever. He asks you to return tomorrow !
+`\`k
+`\
+ `%You gain 1129 experience points !
+`\`k
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 + 8
+@datasave npc/npc-`p70.idf &playernum `p29
+@do goto fin
+@end
+
+@#KISS2
+@if `p08 < 20 then do
+@begin
+@do `p03 - 1
+@show
+`c
+ `#Hilda `2pushes you away and `bslaps `2you silly !
+`\`k
+ `%You decide that you need more charm before you try that again.
+`\`k
+ `4You Lose 1 Hit Point
+`\`k
+@do goto fin
+@end
+@if `p08 > 19 then do
+@begin
+@do `p01 + 1129
+@show
+`c
+ `2You show `#Hilda `2the finer points of making out !
+ She invites you to return tomorrow for some more fun.
+`\`k
+`\
+ `%You gain 1129 experience points !
+`\`k
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 + 8
+@datasave npc/npc-`p70.idf &playernum `p29
+@do goto fin
+@end
+
+@#NOFLIRT
+@busy
+@do moveback
+@if sexmale is 1 then `s10 is `#Hilda
+@if sexmale is 0 then `s10 is `4oDiN
+@show
+`r0`c
+
+ `2You notice that `s10 `2is busy talking to the InnKeeper.
+`\`k
+@do goto fin
+
+@#FLIRT
+@datanewday loki3.idf
+@dataload loki3.idf &playernum `p25
+@if `p25 = 1 then do
+@begin
+@do goto NOFLIRT
+@end
+@datasave loki3.idf &playernum 1
+
+@if sexmale = 0 then do
+@begin
+@do goto odin
+@end
+
+@if sexmale = 1 then do
+@begin
+@do goto hilda
+@end
+
+@#Odin
+@do `p70 is 61
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@show
+`r0`c `r1 `%Flirting with `4oDiN `r0
+
+ `2You sit down on the stool next to the most handsome man you've
+ ever laid eyes on. He introduces himself as `4oDiN`2.
+
+ `0You decide to...
+`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Flutter your eyelashes at him
+Invite him to dinner
+Ask him to join you for a walk in the moonlight
+Embrace and Kiss him
+Get up and leave
+@if responce is 5 then do
+@begin
+@do goto fin
+@end
+@if responce is 1 then do
+@begin
+@do goto wink1
+@end
+@if responce is 2 then do
+@begin
+@do goto dinner1
+@end
+@if responce is 3 then do
+@begin
+@do goto walk1
+@end
+@if responce is 4 then do
+@begin
+@do goto kiss1
+@drawmap
+@update
+@end
+
+@#HILDA
+@do `p70 is 62
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@show
+`r0`c `r1 `%Flirting with `#Hilda `r0
+
+ `2You sit down on the stool next to the most beautiful woman you've
+ ever laid eyes on. She introduces herself as `#Hilda`2.
+
+ `0You decide to....
+`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Wink at her
+Invite her to dinner
+Ask her to join you for a walk in the moonlight
+Embrace and Kiss her
+Get up and leave
+@if responce is 5 then do
+@begin
+@do goto fin
+@end
+@if responce is 1 then do
+@begin
+@do goto wink2
+@end
+@if responce is 2 then do
+@begin
+@do goto dinner2
+@end
+@if responce is 3 then do
+@begin
+@do goto walk2
+@end
+@if responce is 4 then do
+@begin
+@do goto kiss2
+@drawmap
+@update
+@end
+
+@#SEXMONEY
+@show
+`r0`c `r1 Money before Sex Change `r0
+
+ `0"I'll change your sex for `$$50000 `0gold." `2the Innkeeper says
+`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 49999 Pay the InnKeeper
+<&money 50000 Leave because you can't afford it
+>&money 49999 I'm outta here
+@
+ @if responce is 1 then do
+@begin
+@do money - 50000
+@do goto sexchange
+@end
+
+@do goto koshi
+
+@#NAMEMONEY
+@show
+`r0`c `r1 Money before Name Change `r0
+
+ `0"I'll change your name for `$$250 `0gold." `2the Innkeeper says
+`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 249 Pay the InnKeeper
+<&money 250 Leave because you can't afford it
+>&money 249 No thanks
+@
+ @if responce is 1 then do
+@begin
+@do money - 250
+@do goto changename
+@end
+
+@do goto koshi
+
+@#SEXCHANGE
+@show
+`r0`c `r1 Sex Change `r0
+
+ `0"Normally I frown upon this sort of thing, but I do have a few
+ sharp knives and extra parts in the back room somewhere."
+
+ `0"So what sex do you want to be `%`n `0?"
+`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+I want to be a `!man
+Make me a `#woman
+I'll pass
+@if responce is 1 then sexmale is 1
+@if responce is 2 then sexmale is 0
+@if responce is 3 then do
+@begin
+@show
+`\
+ `0"You're a weird one, here is half of your money back !"
+
+ `2He hands you `$$250 `2gold.
+`\`k
+@do money + 250
+@do goto koshi
+@end
+@if sexmale is 1 then `s10 is `!Man
+@if sexmale is 0 then `s10 is `#Woman
+
+@show
+`r0`c `r1 `%Your new sex is `^? `r0
+
+ `2After hours of painful surgery you emerge a `l.`l.`l.`l.`l.`l.`l.
+ `l.`l.`l.`l.`l.`l.`l.`l. `s10 `2!
+`\`k
+ `0"There you go `%`n `0! Enjoy your new sex."
+`\`k
+@if sex is 1 then `s09 is she
+@if sex is 0 then `s09 is he
+@do goto Koshi
+
+@#CHANGENAME
+@label namechange
+@show
+`r0`c `r1 Name change `r0
+
+ `0"Ok `%`n`0, what do you want to change your name to?" `2the Innkeeper asks.
+
+
+@do `v01 is 1
+@show
+
+@do write
+ `2You decide upon
+ @do readstring 20 NIL
+ @do stripbad `s10
+ ; change dark blue to light blue in their name
+ @do replaceall `1 `! `s10
+ @do `p20 is length `s10
+ @if `p20 less 1 then do
+ @begin
+ @do move 20 y
+ @show
+`bNada `2.
+
+ `0"I thought you wanted to change your name, when you decide on a
+ name let me know."
+`\`k
+ `0"You're a strange one, here's half of your money back !"
+
+ `2The InnKeeper hands you `$$125 `2gold.
+`\`k
+ @do money + 125
+ @do goto koshi
+ @end
+
+
+
+ @if `p20 less 3 then do
+ @begin
+ @show
+
+
+ `0"The name you chose is too short, try again !"
+`\`k
+ @do goto namechange
+ @end
+
+ @if checkdupe `s10 true then do
+ @begin
+ @show
+
+
+ `0"I already know someone with that name, try again !"
+`\`k
+ @do goto namechange
+ @end
+
+ @end
+
+
+
+@show
+`\`\ `0"Are you sure you want to be known as `%`s10 `0?" `\
+@do write
+`x`x
+@choice
+Keep it
+Try again
+@if response is 2 then goto namechange
+@do copytoname
+@show
+`r0`c `r1 Your new name `r0
+
+ `0"You will now be known as `%`n`0 !" `2the Innkeeper exclaims.
+`\`k
+@do goto koshi
+
+@#NOALIGN
+@show
+`r0`c `r1 Chatting with InnKeeper `r0
+
+ `0"Come back tomorrow `%`n`0. I'm too busy to chat now."
+`\`k
+@do goto koshi
+
+@#KOSHI
+@do moveback
+@label keeper
+@show
+`r0`c `r1 `%Koshi InnKeeper `r0
+
+ `2As the InnKeeper approaches you notice his wings, knowing right
+ away that he belongs to the "`$Good`2" race, the Koshi.
+
+ `0"Hello `%`n`0, what can I do for you today?" `2he says smiling.
+`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Make conversation
+Ask about Loki's Inn
+Who is oDiN ?
+I want to change my name.
+Do you do Sex change operations?
+Conduct business
+Leave
+@if responce is 6 then do
+ @begin
+ @do `p20 is 11
+ @run getquest in quest.ref
+ @end
+@if responce is 7 then goto fin
+@if responce is 5 then goto sexmoney
+@if responce is 4 then goto namemoney
+@if responce is 3 then do
+@begin
+@show
+`r0`c `r1 Who is oDiN `r0
+
+ `0"You mean `4oDiN `0? Well he's some regular kind of guy with
+ way too much time on his hands. He built a place near Greentree
+ called "`$Quester`0" and another place near Porttown called "`$Odin's Keep`0."
+
+ "They say he's working on building a place called `$Valhalla`0,
+ I talked with him once, he kept mumbling something about webs or
+ we-bsi-te or something like that."
+
+ "Oh yea, he gave me his address it's kinda strange, didn't make much sense
+ to me. It is `$http://members.aol.com/odin706/title.html`0,strange huh?"
+
+ "His brother's name is `7Nemesis `0and has been seen starting to build
+ something around here." `2the Innkeeper informs.
+`\`k
+@do goto keeper
+@end
+
+@if responce is 2 then do
+@begin
+@show
+`r0`c `r1 About Loki's Inn `r0
+
+ `0"Well now `%`n`0, there was this gangster that came along, he called
+ himself "`$The Gangster of Love`0" he put up the money for the Inn and a
+ man named `4oDiN `0built it."
+
+ "All of the rooms here are owned by private people. There are guards in
+ each room and from what I understand they won't allow any harm to come to
+ the owner of the room."
+
+ "Rooms `3101 - 109 `0are kinda small but each room has a spare bedroom.
+ Rooms `!110 - 118 `0are really super nice and each comes with it's own
+ majik transporter stone."
+
+ "I hope I've answered any questions you may have had about the Inn."
+`\`k
+@do goto keeper
+@end
+
+@if responce is 1 then do
+@begin
+@datanewday loki1.idf
+@dataload loki1.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto NOALIGN
+@end
+
+@datasave loki1.idf &playernum 1
+
+ @show
+`r0`c `r1 Chit Chat `r0
+
+ `0"I took this job hoping to help others in need."
+
+ `0"Do you help others `%`n`0?" `2the Innkeeper asks.
+
+@do write
+`x`x
+@choice
+Yes as much as I can.
+I help others to an early Grave.
+@if responce is 1 then do
+@begin
+@do `p07 + 5
+@show
+`r0`c
+ `0"Maybe this gift will help you continue helping others" `2he says.
+`\`k
+`\`\
+ `%YOU GAIN `$5 `%ALIGNMENT
+`\`k
+@do goto keeper
+@end
+@if responce is 2 then do
+@begin
+@do `p07 - 5
+@show
+`r0`c
+ `0"You are beyond hope `%`n`0."
+`\`k
+`\`\
+ `4YOU LOSE `%5 `4ALIGNMENT
+`\`k
+@do goto keeper
+@end
+@end
+
+@#FIN
+@drawmap
+@update
+
+@#SIGN1
+@do moveback
+@busy
+@do saybar
+`%Welcome to Loki's Inn
+
+@#SIGN2
+@do moveback
+@busy
+@do saybar
+`%`^<---- `0Rooms 110 - 118 `$Rooms 101 - 109 `%`^---->
+
+
+@#SIGN3
+@do `p70 is 60
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+ @do `p20 random 10 1
+ @if `p20 is 1 then saybar
+`$Guard: `%oDiN is rumoured to visit this Inn often.
+ @if `p20 is 2 then saybar
+`$Guard: `%I'm taking a break from guarding a room here.
+ @if `p20 is 3 then saybar
+`$Guard: `%There is something behind this Inn.
+ @if `p20 is 4 then saybar
+`$Guard: `%I secretly hate this job.
+ @if `p20 is 5 then saybar
+`$Guard: `%Do you visit here often.
+ @if `p20 is 6 then saybar
+`$Guard: `%Have you visited Odin's Keep ?
+ @if `p20 is 7 then saybar
+`$Guard: `%I once worked as a spy for the Koshi.
+ @if `p20 is 8 then saybar
+`$Guard: `%Talk to the InnKeeper. He is very wise.
+ @if `p20 is 9 then saybar
+`$Guard: `%I completed a quest in Quester once..
+ @if `p20 is 10 then saybar
+`$Guard: `%I love to talk !
+@end
+@#NOMORE
+
diff --git a/xtrn/lord2/cnw/lokia.ref b/xtrn/lord2/cnw/lokia.ref
new file mode 100644
index 0000000000000000000000000000000000000000..3b8da5139484dd139e51a4b27a92e74edf9ee7c7
--- /dev/null
+++ b/xtrn/lord2/cnw/lokia.ref
@@ -0,0 +1,3346 @@
+; Script file LOKIA.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:29 2001
+
+@DECLARE room1 000000766
+@DECLARE star1 000006488
+@DECLARE done 000006530
+@DECLARE room2 000006633
+@DECLARE star2 000012325
+@DECLARE room3 000012439
+@DECLARE star3 000018144
+@DECLARE room4 000018260
+@DECLARE star4 000023963
+@DECLARE room5 000024075
+@DECLARE done 000029424
+@DECLARE star5 000029791
+@DECLARE done 000029831
+@DECLARE room6 000029914
+@DECLARE star6 000035617
+@DECLARE room7 000035732
+@DECLARE star7 000041435
+@DECLARE room8 000041553
+@DECLARE star8 000047256
+@DECLARE room9 000047371
+@DECLARE star9 000053059
+@DECLARE nomore 000053103
+@NOCHECK
+; End of .REF index
+
+;-----------------------------ROOM 1---------------------------------
+@#ROOM1
+@do `p25 is 0
+@do `s01 is nil
+
+@do moveback
+@offmap
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room1.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#101 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$15,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 14999 Buy the room.
+<&money 15000 You don't have enough money.
+>&money 14999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room1.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 15000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star1
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room1.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room1.dat
+ @do addlog
+ `%Private Room `$#101 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room1
+ @end
+
+@label star1
+@run roompass1 in lokiroom.ref
+
+@#DONE
+@drawmap
+@update
+;-------------------------------------ROOM 2 ----------------------------
+@#ROOM2
+@do moveback
+@offmap
+
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room2.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#102 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$15,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 14999 Buy the room.
+<&money 15000 You don't have enough money.
+>&money 14999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room2.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 15000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star2
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room2.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room2.dat
+ @do addlog
+ `%Private Room `$#102 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room2
+ @end
+
+
+@label star2
+@run roompass2 in lokiroom.ref
+;-----------------------------------ROOM 3-----------------------------
+@#ROOM3
+@do moveback
+@offmap
+
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room3.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#103 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$15,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 14999 Buy the room.
+<&money 15000 You don't have enough money.
+>&money 14999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room3.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 15000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star3
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room3.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room3.dat
+ @do addlog
+ `%Private Room `$#103 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room3
+ @end
+
+;let him in
+@label star3
+@run roompass3 in lokiroom.ref
+;---------------------------------ROOM 4---------------------------------
+@#ROOM4
+@do moveback
+@offmap
+
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room4.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#104 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$15,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 14999 Buy the room.
+<&money 15000 You don't have enough money.
+>&money 14999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room4.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 15000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star4
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room4.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room4.dat
+ @do addlog
+ `%Private Room `$#104 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room4
+ @end
+
+;let him in
+@label star4
+@run roompass4 in lokiroom.ref
+;-----------------------------------Room 5---------------------------
+@#ROOM5
+@do moveback
+@offmap
+
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room5.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#105 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$15,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 14999 Buy the room.
+<&money 15000 You don't have enough money.
+>&money 14999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room5.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 15000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star5
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room5.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room5.dat
+ @do addlog
+ `%Private Room `$#105 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room5
+ @end
+
+;let him in
+@label star5
+@run roompass5 in lokiroom.ref
+@#done
+;---------------------------------ROOM 6--------------------------------
+@#ROOM6
+@do moveback
+@offmap
+
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room6.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#106 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$15,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 14999 Buy the room.
+<&money 15000 You don't have enough money.
+>&money 14999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room6.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 15000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star6
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room6.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room6.dat
+ @do addlog
+ `%Private Room `$#106 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room6
+ @end
+
+;let him in
+@label star6
+@run roompass6 in lokiroom.ref
+;----------------------------------ROOM 7-------------------------------
+@#ROOM7
+@do moveback
+@offmap
+
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room7.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#107 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$15,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 14999 Buy the room.
+<&money 15000 You don't have enough money.
+>&money 14999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room7.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 15000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star7
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room7.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room7.dat
+ @do addlog
+ `%Private Room `$#107 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room7
+ @end
+
+;let him in
+@label star7
+@run roompass7 in lokiroom.ref
+;-----------------------------------ROOM 8---------------------------------
+@#ROOM8
+@do moveback
+@offmap
+
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room8.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#108 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$15,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 14999 Buy the room.
+<&money 15000 You don't have enough money.
+>&money 14999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room8.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 15000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star8
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room8.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room8.dat
+ @do addlog
+ `%Private Room `$#108 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room8
+ @end
+
+;let him in
+@label star8
+@run roompass8 in lokiroom.ref
+;------------------------------------ROOM 9-----------------------------
+@#ROOM9
+@do moveback
+@offmap
+
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room9.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#109 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$15,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 14999 Buy the room.
+<&money 15000 You don't have enough money.
+>&money 14999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room9.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 15000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star9
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room9.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room9.dat
+ @do addlog
+ `%Private Room `$#109 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room9
+ @end
+@label star9
+@run roompass9 in lokiroom.ref
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/lokib.ref b/xtrn/lord2/cnw/lokib.ref
new file mode 100644
index 0000000000000000000000000000000000000000..545b373d7a36e1623a0764eec0dd2983b335a8de
--- /dev/null
+++ b/xtrn/lord2/cnw/lokib.ref
@@ -0,0 +1,3351 @@
+; Script file LOKIB.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:29 2001
+
+@DECLARE room10 000000736
+@DECLARE star1b 000006497
+@DECLARE done 000006539
+@DECLARE room11 000006643
+@DECLARE star2b 000012374
+@DECLARE room12 000012489
+@DECLARE star3b 000018214
+@DECLARE room13 000018327
+@DECLARE star4b 000024052
+@DECLARE room14 000024165
+@DECLARE star5b 000029890
+@DECLARE room15 000030143
+@DECLARE star6b 000035868
+@DECLARE room16 000035981
+@DECLARE star7b 000041706
+@DECLARE room17 000041820
+@DECLARE star8b 000047545
+@DECLARE room18 000047658
+@DECLARE star9b 000053383
+@DECLARE nomore 000053427
+@NOCHECK
+; End of .REF index
+
+;-----------------------------ROOM 110--------------------------------
+@#ROOM10
+@do `p25 is 0
+@do `s01 is nil
+
+@do moveback
+@offmap
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room10.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#110 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$20,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+ `b* `%Majik Transport Stone
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Buy the room.
+<&money 20000 You don't have enough money.
+>&money 19999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room10.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 20000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star1b
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room10.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room10.dat
+ @do addlog
+ `%Private Room `$#110 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room10
+ @end
+
+@label star1b
+@run roompass1b in lokirmb.ref
+
+@#DONE
+@drawmap
+@update
+;-------------------------------------ROOM 111---------------------------
+@#ROOM11
+@do moveback
+@offmap
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+
+@if room11.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#111 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$20,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+ `b* `%Majik Transport Stone
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Buy the room.
+<&money 20000 You don't have enough money.
+>&money 19999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room11.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 20000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star2b
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room11.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room11.dat
+ @do addlog
+ `%Private Room `$#111 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room11
+ @end
+
+
+@label star2b
+@run roompass2b in lokirmb.ref
+;-----------------------------------ROOM 112---------------------------
+@#ROOM12
+@do moveback
+@offmap
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room12.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#112 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$20,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+ `b* `%Majik Transport Stone
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Buy the room.
+<&money 20000 You don't have enough money.
+>&money 19999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room12.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 20000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star3b
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room12.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room12.dat
+ @do addlog
+ `%Private Room `$#112 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room12
+ @end
+
+@label star3b
+@run roompass3b in lokirmb.ref
+;-----------------------------ROOM 113------------------------------
+@#ROOM13
+@do moveback
+@offmap
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room13.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#113 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$20,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+ `b* `%Majik Transport Stone
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Buy the room.
+<&money 20000 You don't have enough money.
+>&money 19999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room13.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 20000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star4b
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room13.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room13.dat
+ @do addlog
+ `%Private Room `$#113 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room13
+ @end
+
+@label star4b
+@run roompass4b in lokirmb.ref
+;-----------------------------ROOM 114------------------------------
+@#ROOM14
+@do moveback
+@offmap
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room14.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#114 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$20,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+ `b* `%Majik Transport Stone
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Buy the room.
+<&money 20000 You don't have enough money.
+>&money 19999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room14.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 20000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star5b
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room14.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room14.dat
+ @do addlog
+ `%Private Room `$#114 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room14
+ @end
+
+@label star5b
+@run roompass5b in lokirmb.ref
+;-----------------------------ROOM 115------------------------------
+;-------------------------------------------------------------------
+;-------------------------------------------------------------------
+@#ROOM15
+@do moveback
+@offmap
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room15.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#115 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$20,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+ `b* `%Majik Transport Stone
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Buy the room.
+<&money 20000 You don't have enough money.
+>&money 19999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room15.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 20000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star6b
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room15.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room15.dat
+ @do addlog
+ `%Private Room `$#115 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room15
+ @end
+
+@label star6b
+@run roompass6b in lokirmb.ref
+;-----------------------------ROOM 116------------------------------
+@#ROOM16
+@do moveback
+@offmap
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room16.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#116 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$20,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+ `b* `%Majik Transport Stone
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Buy the room.
+<&money 20000 You don't have enough money.
+>&money 19999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room16.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 20000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star7b
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room16.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room16.dat
+ @do addlog
+ `%Private Room `$#116 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room16
+ @end
+
+@label star7b
+@run roompass7b in lokirmb.ref
+;-----------------------------ROOM 117-------------------------------
+@#ROOM17
+@do moveback
+@offmap
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room18.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room17.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#117 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$20,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+ `b* `%Majik Transport Stone
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Buy the room.
+<&money 20000 You don't have enough money.
+>&money 19999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room17.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 20000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star8b
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room17.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room17.dat
+ @do addlog
+ `%Private Room `$#117 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room17
+ @end
+
+@label star8b
+@run roompass8b in lokirmb.ref
+;-----------------------------ROOM 118------------------------------
+@#ROOM18
+@do moveback
+@offmap
+@readfile room1.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room2.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room3.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room4.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room5.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room6.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room7.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room8.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room9.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room10.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room11.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room12.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room13.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room14.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room15.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room16.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@readfile room17.dat
+`p25
+`s01
+@
+
+@if `p25 is &playernum then do
+@begin
+@show
+`r0 `c `r1 `%One Private Room per person `r0
+
+ `2Sorry `%`n`2, you are only allowed to purchase `b1 `2private room.
+
+ `$Nice try though !
+`\`k
+@do goto done
+@end
+
+@if room18.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%Private Room `$#118 `%for Sale `r0
+
+ `0Our special Includes :
+
+ `b* `%Low price, only `$$20,000 `%!
+
+ `b* `%Your very own room guard
+
+ `b* `%Security in an insecure world
+
+ `b* `%Guest Bedroom
+
+ `b* `%Majik Transport Stone
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Buy the room.
+<&money 20000 You don't have enough money.
+>&money 19999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @writefile room18.dat
+&playernum
+NONE
+0
+0
+0
+ @do money - 20000
+ @do addlog
+ `0`n `2buys a `%Private Room `2in Loki's Inn!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Your new `4* `%PRIVATE `4* `%room `r0
+
+ `2Enjoy the feeling of not getting `4killed `2in your sleep !
+
+ `%HINT`8`^:
+ `!If you choose to have a password be careful who you give it to.
+ `\`k
+ @do goto star9b
+ @end
+
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile room18.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete room18.dat
+ @do addlog
+ `%Private Room `$#118 `2at Loki's Inn is back on the market.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto room18
+ @end
+
+@label star9b
+@run roompass9b in lokirmb.ref
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/lokigrdb.ref b/xtrn/lord2/cnw/lokigrdb.ref
new file mode 100644
index 0000000000000000000000000000000000000000..ae2dfdd5695f25a7711fd3b31f65483939a7a4f2
--- /dev/null
+++ b/xtrn/lord2/cnw/lokigrdb.ref
@@ -0,0 +1,896 @@
+; Script file LOKIGRDB.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:29 2001
+
+@DECLARE roomguard1b 000000725
+@DECLARE starta1 000001027
+@DECLARE roomguard2b 000002585
+@DECLARE startb1 000002887
+@DECLARE roomguard3b 000004447
+@DECLARE startc1 000004751
+@DECLARE roomguard4b 000006302
+@DECLARE startd1 000006606
+@DECLARE roomguard5b 000008165
+@DECLARE starte1 000008467
+@DECLARE roomguard6b 000010020
+@DECLARE startf1 000010322
+@DECLARE roomguard7b 000011872
+@DECLARE startg1 000012174
+@DECLARE roomguard8b 000013657
+@DECLARE starth1 000013959
+@DECLARE roomguard9b 000015445
+@DECLARE starti1 000015747
+@DECLARE done 000017231
+@DECLARE nomore 000017262
+@NOCHECK
+; End of .REF index
+
+@#Roomguard1b
+@do moveback
+@readfile room10.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+
+@label starta1
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$10,000`%.
+Leave
+@
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto starta1
+ @end
+
+ @do delete room10.dat
+ @do money + 10000
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#110 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 64
+ @do y is 9
+ @do map is 344
+ @loadmap &map
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto starta1
+ @end
+ @do delete room10.dat
+ @writefile room10.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto starta1
+ @end
+
+@drawmap
+@update
+;------------------------------ROOM 111-------------------------------
+@#Roomguard2b
+@do moveback
+@readfile room11.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+
+@label startb1
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$10,000`%.
+Leave
+@
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto startb1
+ @end
+
+ @do delete room11.dat
+ @do money + 10000
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#111 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 58
+ @do y is 9
+ @do map is 344
+ @loadmap &map
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto startb1
+ @end
+ @do delete room11.dat
+ @writefile room11.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto startb1
+ @end
+
+@drawmap
+@update
+--------------------------------ROOM 112--------------------------------
+@#Roomguard3b
+@do moveback
+@readfile room12.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+
+
+@label startc1
+@busy
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$10,000`%.
+Leave
+@
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto startc1
+ @end
+
+ @do delete room12.dat
+ @do money + 10000
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#112 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 52
+ @do y is 9
+ @do map is 344
+ @loadmap &map
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto startc1
+ @end
+ @do delete room12.dat
+ @writefile room12.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto startc1
+ @end
+
+@drawmap
+@update
+;---------------------------ROOM 113-----------------------------
+@#Roomguard4b
+@do moveback
+
+@readfile room13.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+
+@label startd1
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$10,000`%.
+Leave
+@
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto startd1
+ @end
+
+ @do delete room13.dat
+ @do money + 10000
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#113 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 46
+ @do y is 9
+ @do map is 344
+ @loadmap &map
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto startd
+ @end
+ @do delete room13.dat
+ @writefile room13.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto startd1
+ @end
+
+@drawmap
+@update
+;------------------------------ROOM 114---------------------------------
+@#Roomguard5b
+@do moveback
+
+@readfile room14.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+@label starte1
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$10,000`%.
+Leave
+@
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto starte1
+ @end
+
+ @do delete room14.dat
+ @do money + 10000
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#114 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 40
+ @do y is 9
+ @do map is 344
+ @loadmap &map
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto starte1
+ @end
+ @do delete room14.dat
+ @writefile room14.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto starte1
+ @end
+
+@drawmap
+@update
+;-----------------------------Room 115---------------------------
+@#Roomguard6b
+@do moveback
+
+@readfile room15.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+@label startf1
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$10000`%.
+Leave
+@
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto startf1
+ @end
+
+ @do delete room15.dat
+ @do money + 10000
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#115 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 34
+ @do y is 9
+ @do map is 344
+ @loadmap &map
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto startf1
+ @end
+ @do delete room15.dat
+ @writefile room15.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto startf1
+ @end
+
+@drawmap
+@update
+;--------------------------ROOM 116------------------------------
+@#Roomguard7b
+@do moveback
+
+@readfile room16.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+@label startg1
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$10,000`%.
+Leave
+@
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto startg1
+ @end
+
+ @do delete room16.dat
+ @do money + 10000
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#116 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 28
+ @do y is 9
+ @do map is 344
+ @loadmap &map
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto startg1
+ @end
+ @do delete room16.dat
+ @writefile room16.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto startg1
+ @end
+
+@drawmap
+@update
+
+@#Roomguard8b
+@do moveback
+
+@readfile room17.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+@label starth1
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$10000`%.
+Leave
+@
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto starth1
+ @end
+
+ @do delete room17.dat
+ @do money + 10000
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#117 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 22
+ @do y is 9
+ @do map is 344
+ @loadmap &map
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto starth1
+ @end
+ @do delete room17.dat
+ @writefile room17.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto starth1
+ @end
+
+@drawmap
+@update
+
+@#Roomguard9b
+@do moveback
+
+@readfile room18.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+@label starti1
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$10,000`%.
+Leave
+@
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto starti1
+ @end
+
+ @do delete room18.dat
+ @do money + 10000
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#118 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 16
+ @do y is 9
+ @do map is 344
+ @loadmap &map
+ @update
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto starti1
+ @end
+ @do delete room18.dat
+ @writefile room18.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto starti1
+ @end
+
+@drawmap
+@update
+
+@#DONE
+@drawmap
+@update
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/lokiguar.ref b/xtrn/lord2/cnw/lokiguar.ref
new file mode 100644
index 0000000000000000000000000000000000000000..b2c70ebd36e4b9654dbe4e46627c3d2673a9d5e1
--- /dev/null
+++ b/xtrn/lord2/cnw/lokiguar.ref
@@ -0,0 +1,896 @@
+; Script file LOKIGUAR.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:29 2001
+
+@DECLARE roomguard1 000000706
+@DECLARE starta 000001006
+@DECLARE roomguard2 000002484
+@DECLARE startb 000002784
+@DECLARE roomguard3 000004262
+@DECLARE startc 000004564
+@DECLARE roomguard4 000006040
+@DECLARE startd 000006342
+@DECLARE roomguard5 000007820
+@DECLARE starte 000008120
+@DECLARE roomguard6 000009598
+@DECLARE startf 000009898
+@DECLARE roomguard7 000011374
+@DECLARE startg 000011674
+@DECLARE roomguard8 000013147
+@DECLARE starth 000013447
+@DECLARE roomguard9 000014925
+@DECLARE starti 000015225
+@DECLARE done 000016700
+@DECLARE nomore 000016731
+@NOCHECK
+; End of .REF index
+
+@#Roomguard1
+@do moveback
+@readfile room1.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+
+@label starta
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$7500`%.
+Leave
+@
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto starta
+ @end
+
+ @do delete room1.dat
+ @do money + 7500
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#101 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 16
+ @do y is 9
+ @do map is 343
+ @loadmap &map
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto starta
+ @end
+ @do delete room1.dat
+ @writefile room1.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto starta
+ @end
+
+@drawmap
+@update
+
+@#Roomguard2
+@do moveback
+@readfile room2.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+
+@label startb
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$7500`%.
+Leave
+@
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto startb
+ @end
+
+ @do delete room2.dat
+ @do money + 7500
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#102 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 22
+ @do y is 9
+ @do map is 343
+ @loadmap &map
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto startb
+ @end
+ @do delete room2.dat
+ @writefile room2.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto startb
+ @end
+
+@drawmap
+@update
+
+@#Roomguard3
+@do moveback
+@readfile room3.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+
+
+@label startc
+@busy
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$7500`%.
+Leave
+@
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto startc
+ @end
+
+ @do delete room3.dat
+ @do money + 7500
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#103 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 28
+ @do y is 9
+ @do map is 343
+ @loadmap &map
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto startc
+ @end
+ @do delete room3.dat
+ @writefile room3.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto startc
+ @end
+
+@drawmap
+@update
+
+@#Roomguard4
+@do moveback
+
+@readfile room4.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+
+@label startd
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$7500`%.
+Leave
+@
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto startd
+ @end
+
+ @do delete room4.dat
+ @do money + 7500
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#104 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 34
+ @do y is 9
+ @do map is 343
+ @loadmap &map
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto startd
+ @end
+ @do delete room4.dat
+ @writefile room4.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto startd
+ @end
+
+@drawmap
+@update
+
+@#Roomguard5
+@do moveback
+
+@readfile room5.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+@label starte
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$7500`%.
+Leave
+@
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto starte
+ @end
+
+ @do delete room5.dat
+ @do money + 7500
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#105 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 40
+ @do y is 9
+ @do map is 343
+ @loadmap &map
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto starte
+ @end
+ @do delete room5.dat
+ @writefile room5.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto starte
+ @end
+
+@drawmap
+@update
+
+@#Roomguard6
+@do moveback
+
+@readfile room6.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+@label startf
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$7500`%.
+Leave
+@
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto startf
+ @end
+
+ @do delete room6.dat
+ @do money + 7500
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#106 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 46
+ @do y is 9
+ @do map is 343
+ @loadmap &map
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto startf
+ @end
+ @do delete room6.dat
+ @writefile room6.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto startf
+ @end
+
+@drawmap
+@update
+
+@#Roomguard7
+@do moveback
+
+@readfile room7.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+@label startg
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$7500`%.
+Leave
+@
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete room7.dat
+ @do money + 7500
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#107 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 52
+ @do y is 9
+ @do map is 343
+ @loadmap &map
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto startg
+ @end
+ @do delete room7.dat
+ @writefile room7.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#Roomguard8
+@do moveback
+
+@readfile room8.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+@label starth
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$7500`%.
+Leave
+@
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto starth
+ @end
+
+ @do delete room8.dat
+ @do money + 20000
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#108 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 58
+ @do y is 9
+ @do map is 262
+ @loadmap &map
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto starth
+ @end
+ @do delete room8.dat
+ @writefile room8.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto starth
+ @end
+
+@drawmap
+@update
+
+@#Roomguard9
+@do moveback
+
+@readfile room9.dat
+`p20
+`s01
+@
+
+;load owner and current password
+@do `s02 is getname `p20
+@if `p20 not &playernum then do
+ @begin
+@show
+`r0`c `r1 `%Owner Only `r0
+
+ `0"I only obey `%`s02's `0orders" `2 the guard explains.
+`\`k
+ @do goto done
+ @end
+@label starti
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 The Room Guard `r0
+
+ `2The Guard stops what he is doing and gives you his attention.
+
+@do write
+`x`x
+@choice
+Set password to your Private room. (currently is `0`s01`%)
+Sell your room to the bank for `$$7500`%.
+Leave
+@
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Room to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+No
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room.`\`\`k
+ @do goto starti
+ @end
+
+ @do delete room9.dat
+ @do money + 7500
+ @show
+`\`\`\ `%ROOM SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Private Room `$#109 `2at Loki's Inn, to the bank!
+ @routine seperate in gametxt.ref
+ @do x is 64
+ @do y is 9
+ @do map is 343
+ @loadmap &map
+ @update
+ @do goto done
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"What's the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep the current password.`\`\`k
+ @do goto starti
+ @end
+ @do delete room9.dat
+ @writefile room9.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"I will not forget it!" `2the Room Guard promises.`\`\`k
+ @do goto starti
+ @end
+
+@drawmap
+@update
+
+@#DONE
+@drawmap
+@update
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/lokirmb.ref b/xtrn/lord2/cnw/lokirmb.ref
new file mode 100644
index 0000000000000000000000000000000000000000..196c2800f1966ab1e9d2ae14818cdef06ddfb53a
--- /dev/null
+++ b/xtrn/lord2/cnw/lokirmb.ref
@@ -0,0 +1,869 @@
+; Script file LOKIRMB.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:29 2001
+
+@DECLARE stone 000000656
+@DECLARE roompass1b 000002008
+@DECLARE done 000003522
+@DECLARE roompass2b 000003620
+@DECLARE done 000005126
+@DECLARE roompass3b 000005231
+@DECLARE done 000006737
+@DECLARE roompass4b 000006839
+@DECLARE done 000008345
+@DECLARE roompass5b 000008445
+@DECLARE done 000009949
+@DECLARE roompass6b 000010049
+@DECLARE done 000011555
+@DECLARE roompass7b 000011653
+@DECLARE done 000013159
+@DECLARE roompass8b 000013258
+@DECLARE done 000014764
+@DECLARE roompass9b 000014865
+@DECLARE done 000016371
+@NOCHECK
+; End of .REF index
+
+@#STONE
+@offmap
+@do moveback
+@show
+`r0`c `r1 Majik Stone `r0
+
+ `2Before you is a smooth, purple stone. As you touch the stone
+ it comes alive and begins speaking to you.
+
+
+ `0"I'm a majik transport stone, just tell me where you would like to
+ go today and I'll send you there." `2it says.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Sosen Village
+Stonepass Lodge
+Bonetown
+Flagcity
+Greentree
+I'll stay here, thanks
+@if responce is 6 then do
+@begin
+@do goto done
+@end
+@show
+`c
+`\`\ `0"Very well s&sir, have a good trip." `2the stone says.
+`\`k
+ `2The stone begins to glow `9blue`2. It's aura engulfs you.
+`\`k
+@if responce is 1 then do
+ @begin
+ ;Sosen village
+ @do x is 38
+ @do y is 5
+ @do map is 456
+ @loadmap &map
+ @end
+
+@if responce is 2 then do
+ @begin
+ ;Stonepass Lodge
+ @do x is 40
+ @do y is 11
+ @do map is 880
+ @loadmap &map
+ @end
+
+@if responce is 3 then do
+ @begin
+ ;Bonetown
+ @do x is 53
+ @do y is 17
+ @do map is 1572
+ @loadmap &map
+ @end
+
+
+@if responce is 4 then do
+ @begin
+ ;Flagcity
+ @do x is 68
+ @do y is 18
+ @do map is 1092
+ @loadmap &map
+ @end
+
+@if responce is 5 then do
+ @begin
+ ;Greentree
+ @do x is 10
+ @do y is 15
+ @do map is 1356
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#roompass1b
+@if room10.dat exist false then do
+ @begin
+ @run ROOM10 in lokib.ref
+ @end
+@readfile room10.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 61
+ @do y is 8
+ @do map is 347
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 61
+ @do y is 8
+ @do map is 347
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+;-------------------------------ROOM 111-----------------------
+@#roompass2b
+@if room11.dat exist false then do
+ @begin
+ @run ROOM11 in lokib.ref
+ @end
+@readfile room11.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 40
+ @do y is 8
+ @do map is 347
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 40
+ @do y is 8
+ @do map is 347
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+;--------------------------------ROOM 112-----------------------------
+@#roompass3b
+@if room12.dat exist false then do
+ @begin
+ @run ROOM12 in lokib.ref
+ @end
+@readfile room12.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 19
+ @do y is 8
+ @do map is 347
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 19
+ @do y is 8
+ @do map is 347
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+;----------------------------------ROOM 113------------------------
+@#roompass4b
+@if room13.dat exist false then do
+ @begin
+ @run ROOM13 in lokib.ref
+ @end
+@readfile room13.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 61
+ @do y is 8
+ @do map is 346
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 61
+ @do y is 8
+ @do map is 346
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+;--------------------------------ROOM 114------------------------
+@#roompass5b
+@if room14.dat exist false then do
+ @begin
+ @run ROOM14 in lokib.ref
+ @end
+@readfile room14.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 40
+ @do y is 8
+ @do map is 346
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 40
+ @do y is 8
+ @do map is 346
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+;-------------------------------ROOM 115-------------------------
+@#roompass6b
+@if room15.dat exist false then do
+ @begin
+ @run ROOM15 in lokib.ref
+ @end
+@readfile room15.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 19
+ @do y is 8
+ @do map is 346
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 19
+ @do y is 8
+ @do map is 346
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+;---------------------------------ROOM 116---------------------
+@#roompass7b
+@if room16.dat exist false then do
+ @begin
+ @run ROOM16 in lokib.ref
+ @end
+@readfile room16.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 61
+ @do y is 8
+ @do map is 502
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 61
+ @do y is 8
+ @do map is 502
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+;--------------------------------ROOM 117-----------------------
+@#roompass8b
+@if room17.dat exist false then do
+ @begin
+ @run ROOM17 in lokib.ref
+ @end
+@readfile room17.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 40
+ @do y is 8
+ @do map is 502
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 40
+ @do y is 8
+ @do map is 502
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+;------------------------------ROOM 118---------------------------
+@#roompass9b
+@if room18.dat exist false then do
+ @begin
+ @run ROOM18 in lokib.ref
+ @end
+@readfile room18.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 19
+ @do y is 8
+ @do map is 502
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 19
+ @do y is 8
+ @do map is 502
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
diff --git a/xtrn/lord2/cnw/lokiroom.ref b/xtrn/lord2/cnw/lokiroom.ref
new file mode 100644
index 0000000000000000000000000000000000000000..dd5d7b4ea921443b444b11e262aa5f24c24d5b84
--- /dev/null
+++ b/xtrn/lord2/cnw/lokiroom.ref
@@ -0,0 +1,782 @@
+; Script file LOKIROOM.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:30 2001
+
+@DECLARE roompass1 000000653
+@DECLARE done 000002164
+@DECLARE roompass2 000002196
+@DECLARE done 000003699
+@DECLARE roompass3 000003731
+@DECLARE done 000005234
+@DECLARE roompass4 000005266
+@DECLARE done 000006769
+@DECLARE roompass5 000006801
+@DECLARE done 000008302
+@DECLARE roompass6 000008334
+@DECLARE done 000009837
+@DECLARE roompass7 000009869
+@DECLARE done 000011372
+@DECLARE roompass8 000011404
+@DECLARE done 000012907
+@DECLARE roompass9 000012939
+@DECLARE done 000014442
+@DECLARE nomore 000014473
+@NOCHECK
+; End of .REF index
+
+@#roompass1
+@if room1.dat exist false then do
+ @begin
+ @run ROOM1 in lokia.ref
+ @end
+@readfile room1.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 10
+ @do y is 8
+ @do map is 341
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 10
+ @do y is 8
+ @do map is 341
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+@#roompass2
+@if room2.dat exist false then do
+ @begin
+ @run ROOM2 in lokia.ref
+ @end
+@readfile room2.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 24
+ @do y is 8
+ @do map is 341
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 24
+ @do y is 8
+ @do map is 341
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+@#roompass3
+@if room3.dat exist false then do
+ @begin
+ @run ROOM3 in lokia.ref
+ @end
+@readfile room3.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 38
+ @do y is 8
+ @do map is 341
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 38
+ @do y is 8
+ @do map is 341
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+@#roompass4
+@if room4.dat exist false then do
+ @begin
+ @run ROOM4 in lokia.ref
+ @end
+@readfile room4.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 51
+ @do y is 8
+ @do map is 341
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 51
+ @do y is 8
+ @do map is 341
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+@#roompass5
+@if room5.dat exist false then do
+ @begin
+ @run ROOM5 in lokia.ref
+ @end
+@readfile room5.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 64
+ @do y is 8
+ @do map is 341
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 64
+ @do y is 8
+ @do map is 341
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+@#roompass6
+@if room6.dat exist false then do
+ @begin
+ @run ROOM6 in lokia.ref
+ @end
+@readfile room6.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 23
+ @do y is 8
+ @do map is 342
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 23
+ @do y is 8
+ @do map is 342
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+@#roompass7
+@if room7.dat exist false then do
+ @begin
+ @run ROOM7 in lokia.ref
+ @end
+@readfile room7.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 37
+ @do y is 8
+ @do map is 342
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 37
+ @do y is 8
+ @do map is 342
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+@#roompass8
+@if room8.dat exist false then do
+ @begin
+ @run ROOM8 in lokia.ref
+ @end
+@readfile room8.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 51
+ @do y is 8
+ @do map is 342
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 51
+ @do y is 8
+ @do map is 342
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+@#roompass9
+@if room9.dat exist false then do
+ @begin
+ @run ROOM9 in lokia.ref
+ @end
+@readfile room9.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 65
+ @do y is 8
+ @do map is 342
+ @loadmap &map
+ @do goto done
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @busy
+ @show
+`r0`c `r1 `%Get Lost `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"`%`s02 `0is `bNOT `0allowing visitors" `2the guard commands.
+`\`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Entrance to the Private Room `r0
+
+ `2A mean looking Guard opens the door.
+
+ `0"What's the password ?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tell him the password
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok `%`n`0, come on in then!"`\`\`k
+ @do x is 65
+ @do y is 8
+ @do map is 342
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Room Guard Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get into your private room by saying
+ `0"`s03"`2. `2they were `bNOT`2 allowed in.
+
+ @show
+`\`\ `0"That's not correct, punk ! Get out !"`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+@#done
+@drawmap
+@update
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/lord.ans b/xtrn/lord2/cnw/lord.ans
new file mode 100644
index 0000000000000000000000000000000000000000..ea0d1cd2b1f5423d20f96298a39cc8b033cdad5f
--- /dev/null
+++ b/xtrn/lord2/cnw/lord.ans
@@ -0,0 +1,17 @@
+[40m[2J[1C[0;31m�[0;31;41m�[0;31m���������[10C[0;1;31m�[0;1;31;41m�[0;31m������������� [0;1;31m�[0;1;31;41m�[0;31m��������������� [0;1;31m�[0;1;31;41m�[0;31m��������������
+ [0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m���[0;31m��[11C[0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m����������� [0;31m� [0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m�����������[0;31m�� [0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m���������� [0;31m�
+ [0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m�� [0;31m�[12C[0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m����[0;31m����[0m�[0;1;30m���[0;31m�� [0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m��[0;31m������[0;1;30m���[0;31m�� [0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m����[0;31m����[0;1;30;47m�[0;1;30m��[0;31m��
+ [0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m���[0;31m��[10C[0;1;31m�[0;31m�[0m�[0;1;30m����[0;31m�� �[0m�[0;1;30m���[0;31m�� [0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m��[0;31m������[0;1;30m�� [0;31m�[5C[0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m���[0;31m�� �[0m�[0;1;30m��[0;31m�
+ [0;1;31m�[0;31m�[0m�[0;1;30m���[0;31m��[10C[0;1;31m�[0;31m�[0m�[0;1;30m����[0;31m�� ��[0;1;30;47m�[0;1;30m��[0;31m�� [0;1;31m�[0;31m�[0m�[0;1;30m��������[0;31m���[6C[0;1;31m�[0;31m�[0m�[0;1;30m���[0;31m�� �[0m�[0;1;30m��[0;31m��
+ [0;1;31m�[0;31m�[0m�[0;1;30m��� [0;31m�[5C�����[0;1;31m�[0;31m�[0m�[0;1;30m���� [0;31m� ��[0;1;30;47m�[0;1;30m�� [0;31m� [0;1;31m�[0;31m�[0m�[0;1;30m���[0;31m�[0;1;30m���[0;31m��[8C[0;1;31m�[0;31m�[0m�[0;1;30m��� [0;31m� ��[0;1;30;47m�[0;1;30m�[0;31m��
+ [0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m����[0;31m������[0;1;30m�� [0;31m� [0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m����[0;31m����[0m�[0;1;30m��� [0;31m� [0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m��[0;31m����[0;1;30m���[0;31m��[6C[0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m����[0;31m����[0m�[0;1;30m��[0;31m�
+ [0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m������������[0;31m�� [0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m������������[0;31m�� [0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m��[0;31m�� ��[0;1;30m����[0;31m�� [0;1;31;41m�[0;31m�[0;1;30;47m�[0;1;30m����������[0;31m��
+ [0;1;31m�[0;31m�[0m�[0;1;30m������������� [0;31m� [0;1;31m�[0;1;31;41m�[0;41m�[0;1;30m�����������[0;31m�� [0;1;31m�[0;31m�[0m�[0;1;30m��� [0;31m� ��[0;1;30m��� [0;31m�� [0;1;31m�[0;31m�[0m�[0;1;30m���������� [0;31m�
+ [0;1;31m�[0;31m������������������� [0;1;31m�[0;31m����������� [0;1;31m�[0;31m��������� ������� [0;1;31m�[0;31m��������������
+[34CPart II
+[5C[0;1;36m�¿� ��Ŀ �� �Ŀڿڿ�Ŀ� �Ŀ�¿�Ŀ ڿ��Ŀ� � � ��Ŀ�Ŀ� �Ŀ
+[6C[0;1;34m� �Ĵ�� � � ���ٳ��ٳ �� � �� ����� �ڿ� �ڿ�� ���ٳ � �
+[6C[0;34m� � ���� ������� �� ����� � ��� ���������� ��������� ������ [0;1mv137.1
+[23C- Now with 125 NPC CHARACTERS! -
+[19C[0;1;30mhttp://www.greenmachinebbs.com/lord2/
+[0m[255D
diff --git a/xtrn/lord2/cnw/lordad.ans b/xtrn/lord2/cnw/lordad.ans
new file mode 100644
index 0000000000000000000000000000000000000000..f9b39d16cb77647ee818ab7b0007d05b70752fbe
--- /dev/null
+++ b/xtrn/lord2/cnw/lordad.ans
@@ -0,0 +1,23 @@
+[255D[C[0;31m�[41m�[40m���������[10C[1m�[41m�[0;31m������������� [1m�[41m�[0;31m��������������� [1m�[41m�[0;31m��������������
+ [1;41m�[0;31m�[1;30;47m�[40m���[0;31m��[11C[1;41m�[0;31m�[1;30;47m�[40m����������� [0;31m� [1;41m�[0;31m�[1;30;47m�[40m�����������[0;31m�� [1;41m�[0;31m�[1;30;47m�[40m���������� [0;31m�
+ [1;41m�[0;31m�[1;30;47m�[40m�� [0;31m�[12C[1;41m�[0;31m�[1;30;47m�[40m����[0;31m����[37m�[1;30m���[0;31m�� [1;41m�[0;31m�[1;30;47m�[40m��[0;31m������[1;30m���[0;31m�� [1;41m�[0;31m�[1;30;47m�[40m����[0;31m����[1;30;47m�[40m��[0;31m��
+ [1;41m�[0;31m�[1;30;47m�[40m���[0;31m��[10C[1m�[0;31m�[37m�[1;30m����[0;31m�� �[37m�[1;30m���[0;31m�� [1;41m�[0;31m�[1;30;47m�[40m��[0;31m������[1;30m�� [0;31m�[5C[1;41m�[0;31m�[1;30;47m�[40m���[0;31m�� �[37m�[1;30m��[0;31m�
+ [1m�[0;31m�[37m�[1;30m���[0;31m��[10C[1m�[0;31m�[37m�[1;30m����[0;31m�� ��[1;30;47m�[40m��[0;31m�� [1m�[0;31m�[37m�[1;30m��������[0;31m���[6C[1m�[0;31m�[37m�[1;30m���[0;31m�� �[37m�[1;30m��[0;31m��
+ [1m�[0;31m�[37m�[1;30m��� [0;31m�[5C�����[1m�[0;31m�[37m�[1;30m���� [0;31m� ��[1;30;47m�[40m�� [0;31m� [1m�[0;31m�[37m�[1;30m���[0;31m�[1;30m���[0;31m��[8C[1m�[0;31m�[37m�[1;30m��� [0;31m� ��[1;30;47m�[40m�[0;31m��
+ [1;41m�[0;31m�[1;30;47m�[40m����[0;31m������[1;30m�� [0;31m� [1;41m�[0;31m�[1;30;47m�[40m����[0;31m����[37m�[1;30m��� [0;31m� [1;41m�[0;31m�[1;30;47m�[40m��[0;31m����[1;30m���[0;31m��[6C[1;41m�[0;31m�[1;30;47m�[40m����[0;31m����[37m�[1;30m��[0;31m�
+ [1;41m�[0;31m�[1;30;47m�[40m������������[0;31m�� [1;41m�[0;31m�[1;30;47m�[40m������������[0;31m�� [1;41m�[0;31m�[1;30;47m�[40m��[0;31m�� ��[1;30m����[0;31m�� [1;41m�[0;31m�[1;30;47m�[40m����������[0;31m��
+ [1m�[0;31m�[37m�[1;30m������������� [0;31m� [1m�[41m�[0;41m�[1;30;40m�����������[0;31m�� [1m�[0;31m�[37m�[1;30m��� [0;31m� ��[1;30m��� [0;31m�� [1m�[0;31m�[37m�[1;30m���������� [0;31m�
+ [1m�[0;31m������������������� [1m�[0;31m����������� [1m�[0;31m��������� ������� [1m�[0;31m��������������
+[34CPart II
+[20C[1;37m�¿� ��Ŀ ڿ��Ŀ� � � ��Ŀ�Ŀ� �Ŀ
+[21C� �Ĵ�� ����� �ڿ� �ڿ�� ���ٳ � �
+[21C� � ���� ���������� ��������� ������
+
+[10C[0;31mA game of epic proportion has been installed on this system.
+
+ This system is an official beta tester for [1mLORD 2[0;31m: [1mNew World[0;31m. If you find
+ any problems or have comments on how to make this realtime multinode
+ adventure game better, email your sysop or email [1mSeth Able [0;31mdirectly at
+ [1msethable@rtsoft.com[0;31m.
+
+[0m
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/love1.ref b/xtrn/lord2/cnw/love1.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c25c4ded6d8258a53cb3f4a7a01f3f100ffcca1e
--- /dev/null
+++ b/xtrn/lord2/cnw/love1.ref
@@ -0,0 +1,212 @@
+; Script file LOVE1.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:36 2001
+
+@DECLARE date1sign 000000752
+@DECLARE date1 000000852
+@DECLARE date1c 000001212
+@DECLARE date1d 000001373
+@DECLARE takehome 000001615
+@DECLARE date1b 000001746
+@DECLARE hotspot 000002072
+@DECLARE grassspot 000002233
+@DECLARE beach 000002390
+@DECLARE encounter 000002553
+@DECLARE yesdoit 000004323
+@DECLARE nonotnow 000005338
+@DECLARE nomore 000006266
+@NOCHECK
+; End of .REF index
+
+; LOVERS
+;
+; This is a LoRD2: CNW production.
+; http://greenmachienbbs.com/lord2/
+;
+; LoRD2 Mailing list (join this to find new versions of CNW)
+; http://greenmachinebbs.com/lord2/maillist.htm
+;
+; NOTES:
+; NPC details in TALK.REF
+;
+;
+@#date1sign
+@busy
+@do saybar
+`$Makeout Viewpoint: Couples ONLY!
+@do moveback
+@end
+@closescript
+
+@#date1
+@busy
+@if `p71 > 0 then do
+ @begin
+ @if bitcheck `t51 7 1 then goto date1d
+ @if bitcheck `t50 7 1 then goto takehome
+ @if bitcheck `t50 1 1 then goto date1b
+ @do goto date1c
+ @end
+@do saybar
+`4Oh, I'm all alone, I can't bear it being up there without someone. :(
+@do moveback
+@closescript
+
+@label date1c
+@do `p26 is `p71
+@routine getname in npcname2.ref
+@do saybar
+`$`s01: `$Don't even think about it, thats not why I'm with you.
+@closescript
+
+@label date1d
+@do `p26 is `p71
+@routine getname in npcname2.ref
+@do saybar
+`$`s01: `$Didn't we already go out today? Thats enough for now dear.
+@do quebar
+`$`s01: `$Thanks for thinking about us, you're so kind to me.
+@closescript
+
+@label takehome
+@do `p26 is `p71
+@routine getname in npcname2.ref
+@do saybar
+`$`s01: `$Take me home already!!
+@closescript
+
+
+@label date1b
+@do `p26 is `p71
+@routine getname in npcname2.ref
+@do saybar
+`$`s01: `%This is so romantic of you. Thanks for taking me here.
+@bitset `t50 1 1
+@dataload npc/npc-`p70.idf &playernum `p20
+@do `p20 + 3
+@if `p20 > 200 then `p20 is 200
+@datasave npc/npc-`p70.idf &playernum `p20
+@do `p08 + 2
+@closescript
+
+
+@#hotspot
+@do `t68 is 4
+@if bitcheck `t50 7 1 then goto date1d
+@if bitcheck `t51 7 1 then goto date1d
+@routine locate in locate.ref
+@do goto encounter
+
+@#grassspot
+@do `t68 is 3
+@if bitcheck `t50 7 1 then goto date1d
+@if bitcheck `t51 7 1 then goto date1d
+@routine locate in locate.ref
+@do goto encounter
+
+@#beach
+@do `t68 is 1
+@if bitcheck `t50 7 1 then goto date1d
+@if bitcheck `t51 7 1 then goto date1d
+@routine locate in locate.ref
+@do goto encounter
+
+
+@#encounter
+@do `p26 is `p71
+@routine getname in npcname2.ref
+@dataload npc\npcreqc5.idf `p71 `p21 ;<-- check if can have a lay
+@dataload npc\npc-`p71.idf &playernum `p26 ;<--current charms with npc
+;@dataload npc\laynp`p71.idf &playernum `p22 ;<--lay history of NPC with which players
+;@dataload npc\laypn&playernum.idf `p71 `p23 ;<--lay history of players with which npcs
+;@dataload npc\npcgreed.idf `p71 `p25 ;<--greedy? how much 0-255, 0=not at all 255=very greedy
+;@dataload npc\npcslut.idf `p71 `p27 ;<--pay to sleep with me number (slut value) (this one is really mean) hehe
+
+@if `p26 > `p21 then do <--is good for a lay!
+ @begin
+ @do saybar
+`$Do a quicky (`%Q`$) or try a long passionate encounter (`%P`$)`x`%(N=None)`x`%[N/q/p]:
+ @DO READSPECIAL `s02 NQP
+ @if `s02 is N then do
+ @begin
+ @closescript
+ @end
+ @if `s02 is P then do
+ @begin
+ @run startsex in npc-sex.ref
+ @end
+ @if `s02 is Q then do
+ @begin
+ @do saybar
+`$`N: `%You try your quick moves to feel up `s01. `k
+ @do `p20 random 3 1
+ @if `p20 is 1 then do
+ @begin
+ @if bitcheck `t51 5 1 then do
+ @begin
+ @dataload npc\npcslut.idf `p71 `p27
+ @if `p27 > 100 then goto yesdoit
+ @do `p20 random 3 1
+ @if `p20 is 1 then goto yesdoit
+ @do goto nonotnow
+ @end
+ @label yesdoit
+ @do saybar
+`$`s01: `%oohh, baby, this is kinky in the `s10, lets get it on! `k
+ @do `p34 + 1
+ @do quebar
+`%After about 2 minutes you get off `s01 and return to your travels. `k
+ @bitset `t51 5 1
+ @do `p20 random 3 1
+ @if `p20 is 1 then do
+ @begin
+ @bitset `t50 7 1
+ @bitset `t51 7 1
+ @end
+ @routine VD in talk.ref
+ @dataload npc\npc-`p71.idf &playernum `p26
+ @do `p26 + `p20
+ @if `p26 > 200000 then `p26 is 200000
+ @datasave npc/npc-`p71.idf &playernum `p26
+ @do `p08 + 2
+ @closescript
+ @end
+ @label nonotnow
+ @do saybar
+`$`s01: `%oohh, baby, sorry, i'm not in that sort of mode right now.`k
+ @closescript
+ @end
+ @end
+@do `p20 random 4 1
+@if `p20 is 1 then do
+ @begin
+ @do saybar
+`$`s01: `%I'm not ready for you yet.
+ @end
+@if `p20 is 2 then do
+ @begin
+ @do saybar
+`$`s01: `%You're moving too quickly for me.
+ @end
+@if `p20 is 3 then do
+ @begin
+ @do saybar
+`$`s01: `%What you trying to do with me? NO!
+ @do quebar
+`$`s01: `%Please take me home now.
+ @bitset `t50 7 1
+ @bitset `t51 7 1
+ @end
+@if `p20 is 4 then do
+ @begin
+ @do saybar
+`$`s01: `%Get lost, this isn't what i expected from you.
+ @do quebar
+`$`s01: `%Please take me home now.
+ @bitset `t50 7 1
+ @bitset `t51 7 1
+ @end
+@closescript
+@end
+@closescript
+
+@#NOMORE
+@closescript
diff --git a/xtrn/lord2/cnw/maint.idf b/xtrn/lord2/cnw/maint.idf
new file mode 100644
index 0000000000000000000000000000000000000000..3bf2ba9388a65410f02e924534a18cfecbe42ec4
Binary files /dev/null and b/xtrn/lord2/cnw/maint.idf differ
diff --git a/xtrn/lord2/cnw/maint.ref b/xtrn/lord2/cnw/maint.ref
new file mode 100644
index 0000000000000000000000000000000000000000..d6ffbeadbe6d2d523b88664d33e8e3199488ba37
--- /dev/null
+++ b/xtrn/lord2/cnw/maint.ref
@@ -0,0 +1,379 @@
+; Script file MAINT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:16 2001
+
+@DECLARE seperate 000000454
+@DECLARE maint 000000562
+@DECLARE maint2 000007143
+@DECLARE npctaxess 000007707
+@DECLARE donemaint 000008034
+@DECLARE nothing 000008665
+@NOCHECK
+; End of .REF index
+
+;maint is in here, called from L2 when needed or /maint is applied
+;
+;
+; CNW now incorprates this useful tool to save users load time. :)
+;
+;
+;
+
+
+
+@#seperate
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@closescript
+
+
+
+@#MAINT
+@do `p20 random 500 1
+@if `p20 < 200 then do
+ @begin
+ @datasave npc/npcvd.idf `p20 1
+ @end
+@datanewday maint.idf
+@dataload maint.idf 1 `p20
+@if `p20 is 0 then do
+ @begin
+ @show
+`\ The nightly maintence is now being run....
+ @if lognow.txt exist true then do
+ @begin
+ @if logold.txt exist true then delete logold.txt
+ @do rename lognow.txt logold.txt
+ @end
+
+ @do `p20 random 5 1
+
+ @if `p20 is 1 then addlog
+ `2It is a beautiful day today.
+
+ @if `p20 is 2 then addlog
+ It is foggy today.
+
+ @if `p20 is 3 then addlog
+ It is raining today.
+
+ @if `p20 is 4 then addlog
+ It is overcast today.
+
+ @if `p20 is 5 then addlog
+ It is incredibly hot today.
+
+ @do `v02 is `p20 ;record weather
+
+ @if `v30 is 4 then addlog
+ `4The WAR will never end.
+
+ @if `v30 is 5 then addlog
+ `4The WAR will never end.
+
+ @if `v30 is 7 then addlog
+ `4The WAR will never end.
+
+ @routine seperate
+
+;now lets see what the 'shrine' is doing today, if anything
+@do `v04 random 20 1
+
+@if `v04 is 1 then do
+ @begin
+ @do addlog
+ `0The Shrine Of Babos observes the `%Gryphon Moon`0.
+ @routine seperate
+ @end
+
+@if `v04 is 2 then do
+ @begin
+ @do addlog
+ `0The Shrine Of Babos celebrates the `%Vitalis`0 holiday.
+ @routine seperate
+ @end
+
+@if `v04 is 3 then do
+ @begin
+ @do addlog
+ `0The Shrine Of Babos performs the rite of `%Belar`0.
+ @routine seperate
+ @end
+
+@if `v04 is 4 then do
+ @begin
+ @do addlog
+ `0The Shrine Of Babos sings the psalms of `%the rock`0.
+ @routine seperate
+ @end
+
+@saveglobals
+
+;Welcome to the daily log adds
+;Have a look ....
+
+@do `p20 random 20 1
+
+@if `p20 is 1 then do
+ @begin
+ @do addlog
+ `%A Dragon Tooth Cult Proclamation:
+ @do addlog
+`\ `2Hear ye, hear ye! The Dragon Tooth Cult is looking for new recruits,
+ @do addlog
+ `2if interested, contact a local garrison.
+ @routine seperate
+ @end
+
+@if `p20 is 2 then do
+ @begin
+ @do addlog
+ `2Dragon Tooth troops protect `%Sosen Village `2from attack.
+ @routine seperate
+ @end
+
+@if `p20 is 3 then do
+ @begin
+ @do addlog
+ `2Dragon Tooth troops protect `%PortTown `2from attack.
+ @routine seperate
+ @end
+
+@if `p20 is 4 then do
+ @begin
+ @do addlog
+ `2Dragon Tooth troops protect `%FlagCity `2from attack.
+ @routine seperate
+ @end
+
+@if `p20 is 5 then do
+ @begin
+ @do addlog
+ `2Dragon Tooth troops raid the unholy `%BoneTown`2.
+ @routine seperate
+ @end
+
+@if `p20 is 6 then do
+ @begin
+ @do addlog
+ `2A child was reported lost today in the `%Northlands`2.
+ @routine seperate
+ @end
+
+@if `p20 is 7 then do
+ @begin
+ @do addlog
+ `2Theft has been on the rise in the area surrounding `%BoneTown`2.
+ @routine seperate
+ @end
+
+@if `p20 is 8 then do
+ @begin
+ @do addlog
+ `2Dragon Tooth men report `4Red Dragon`2 sightings in the `%ArrisVille`2 area.
+ @routine seperate
+ @end
+
+@if `p20 is 9 then do
+ @begin
+ @do addlog
+ `3Koshi men `2report no `4Red Dragon`2 sightings whatsoever.
+ @routine seperate
+ @end
+
+@if `p20 is 10 then do
+ @begin
+ @do addlog
+ `%A Dragon Tooth Cult Announcement:
+ @do addlog
+`\ `2Hear ye! The Dragon Tooth Cult is calling for the monthly protection
+ @do addlog
+ `2fees. Contact your local garrison about payment.
+ @routine seperate
+ @end
+
+@if `p20 is 11 then do
+ @begin
+ @do addlog
+ `%A Dragon Tooth Cult Announcement:
+ @do addlog
+`\ `2Hear ye! The Dragon Tooth Cult will be using the Shrine Of Babos
+ @do addlog
+ `2today. Please refrain from attending the area.
+ @routine seperate
+ @end
+
+@if `p20 is 12 then do
+ @begin
+ @do addlog
+ `2Dragon Tooth men report the `4Red Dragon`2 may be in the `%Greentree`2 area.
+ @routine seperate
+ @end
+
+@if `p20 is 13 then do
+ @begin
+ @do addlog
+ `2Dragon Tooth men declare martial law upon `%BoneTown`2 for not paying
+ @do addlog
+ `2protection fees.
+ @routine seperate
+ @end
+
+@if `p20 is 14 then do
+ @begin
+ @do addlog
+ `2Dragon Tooth men investigate the `%ArrisVille`2 area.
+ @routine seperate
+ @end
+
+@if `p20 is 15 then do
+ @begin
+ @do addlog
+ `2Another child is lost to the dark forest today.
+ @routine seperate
+ @end
+
+@if `p20 is 16 then do
+ @begin
+ @do addlog
+ `2Prince Corin proclaims the `%ArrisVille`2 area void of the Red Dragon.
+ @routine seperate
+ @end
+
+@if `p20 is 17 then do
+ @begin
+ @do addlog
+ `3Koshi men `2report no `4Red Dragon`2 sightings on the sea.
+ @routine seperate
+ @end
+
+@if `p20 is 18 then do
+ @begin
+ @do addlog
+ `2Dragon Tooth men report thievery rising on the high seas.
+ @routine seperate
+ @end
+
+@if `p20 is 19 then do
+ @begin
+ @do addlog
+ `2The `3Koshi `2are offering a reward for return of their `%Gryphon Moon`2.
+ @routine seperate
+ @end
+
+@if `p20 is 20 then do
+ @begin
+ @do addlog
+ `2Dragon Tooth men put a stop to a anti-cult rally near Stonepass.
+ @routine seperate
+ @end
+
+
+
+ @do `s01 is NIL
+
+ @do `p20 random 9 1
+ @if `p20 is 1 then `s01 add Grizelda
+ @if `p20 is 2 then `s01 add `n
+ @if `p20 is 3 then `s01 add Turgon
+ @if `p20 is 4 then `s01 add Grimgroth
+ @if `p20 is 5 then `s01 add Abdul
+ @if `p20 is 6 then `s01 add Pap
+ @if `p20 is 7 then `s01 add Barak
+ @if `p20 is 8 then `s01 add Sandtiger
+ @if `p20 is 9 then `s01 add Goatboy
+
+ @do `s01 add `x
+
+ @do `p20 random 10 1
+ @if `p20 is 1 then `s01 add sucks
+ @if `p20 is 2 then `s01 add bites
+ @if `p20 is 3 then `s01 add worships
+ @if `p20 is 4 then `s01 add kills
+ @if `p20 is 5 then `s01 add loves
+ @if `p20 is 6 then `s01 add throws
+ @if `p20 is 7 then `s01 add eats
+ @if `p20 is 8 then `s01 add licks
+ @if `p20 is 9 then `s01 add rides
+ @if `p20 is 10 then `s01 add drinks
+
+ @do `s01 add `x
+
+ @do `p20 random 9 1
+ @if `p20 is 1 then `s01 add apples
+ @if `p20 is 2 then `s01 add snakes
+ @if `p20 is 3 then `s01 add Belar
+ @if `p20 is 4 then `s01 add salt
+ @if `p20 is 5 then `s01 add monsters
+ @if `p20 is 6 then `s01 add dragons
+ @if `p20 is 7 then `s01 add water
+ @if `p20 is 8 then `s01 add horses
+ @if `p20 is 9 then `s01 add children
+
+@if l2tree.dat exist true then delete l2tree.dat
+@writefile l2tree.dat
+`s01
+@
+
+;run all other maint stuff
+@IF extitems.idf EXISTS FALSE THEN do
+ @begin
+ @datasave extitems.idf 1 0 ;will create this needed file.
+ @end
+@label maint2
+@routine movemoney in taxes.ref
+@routine canoe in canoeday.ref
+@routine maint in lockmant.ref
+; skip npc maints if no npcs active
+
+@if `v30 < 9 then do
+ @begin
+ @routine creation in npcmake.ref
+ @routine creation in npcmake2.ref
+ @routine creation in npcmake3.ref
+ @routine creation in npcmake4.ref
+ @routine creation in npcmake5.ref
+ @routine weds in npcwed.ref
+ @routine start in npcmaint.ref
+ @routine movegold3 in vaults.ref
+ @do `p25 random 7 1
+
+ @label npctaxess
+ @if `p25 > 0 then do
+ @begin
+ @routine npctaxes in taxes.ref
+ @do `p25 - 1
+ @do goto npctaxess
+ @end
+ @do `s08 is donemaint
+ @do `s09 is maint.ref
+ @routine finding in npclost.ref
+ @end
+
+@label donemaint
+@datasave maint.idf 1 1
+@show
+ Maint completed sucessfully...
+
+@do `s02 is &realname
+@if `s02 not SYSOP then do ; <-- NOT SYSOP.. ohhh NOOO!
+ @begin
+ @show
+ You seem to be one of the players, not the SysOp!
+ please make sure you TELL your SysOp to set the nightly
+ maint for LoRD2, the SysOp should check the CNW.TXT file
+ for details.
+ @key
+ @key
+ @end
+@show
+ Thanks for running the nightly maint.
+
+@if `s02 is SYSOP then do ; <-- is SYSOP, must be night maint.
+ @begin
+ @HALT 0
+ @end
+@end
+@end
+@end
+@#NOTHING
+
+
diff --git a/xtrn/lord2/cnw/majic.ref b/xtrn/lord2/cnw/majic.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e2789288a70a1f435126a82dc054f0144ba5ef90
--- /dev/null
+++ b/xtrn/lord2/cnw/majic.ref
@@ -0,0 +1,203 @@
+; Script file MAJIC.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:32 2001
+
+@DECLARE magicfight 000000331
+@DECLARE monster1 000000918
+@DECLARE monster2 000001473
+@DECLARE monster3 000002004
+@DECLARE monster4 000002555
+@DECLARE monster5 000003074
+@DECLARE majic 000003621
+@NOCHECK
+; End of .REF index
+
+@#MAGICFIGHT
+@offmap
+@fight
+;name
+Wizard King
+;string said when you see him
+He's mumbling and chanting
+;power move kill string
+You take his spell book !
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+casts an icestorm|295
+throws a fireball|250
+puts you to sleep|286
+hits with his staff|265
+NONE|NONE
+;defense
+250
+;gold reward
+2562
+;experience
+1210
+;hit points
+589
+;if win: ref file|name or NONE
+QUESTER.REF|FINQUEST
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+QUESTER.REF|ENDQUEST
+
+@#monster1
+@fight
+;name
+Black Sorcerer
+;string said when you see him
+A hooded magic user appears before you
+;power move kill string
+You take his spell book !
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+casts an icestorm|195
+launches a fireball|150
+puts you to sleep|86
+NONE|NONE
+NONE|NONE
+;defense
+65
+;gold reward
+562
+;experience
+210
+;hit points
+125
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Witch
+;string said when you see him
+You see a hag on a broom
+;power move kill string
+You break her broom in half !
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+hits you with her broom|75
+summons the dead|61
+curses you|91
+NONE|NONE
+NONE|NONE
+;defense
+68
+;gold reward
+628
+;experience
+158
+;hit points
+145
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Wizard
+;string said when you see him
+Looks like a white bearded wizard
+;power move kill string
+You cut out his tongue
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+throw a fireball|145
+stabs you with his dagger|95
+summons a lightning bolt|154
+NONE|NONE
+NONE|NONE
+;defense
+82
+;gold reward
+925
+;experience
+171
+;hit points
+265
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Evil Cleric
+;string said when you see
+Here comes trouble
+;power move kill string
+You break his staff
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+cast a death spell|180
+hits you with his staff|95
+curses you|78
+NONE|NONE
+NONE|NONE
+;defense
+90
+;gold reward
+815
+;experience
+200
+;hit points
+351
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Evil Fairy
+;string said when you see him
+It's a twisted looking fairy
+;power move kill string
+You use her for a target
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+hits you with her wand|84
+gives you a bad wish|98
+zaps you with lightning|87
+NONE|NONE
+NONE|NONE
+;defense
+50
+;gold reward
+526
+;experience
+165
+;hit points
+542
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#MAjIC
+@busy
+@do `p20 random 5 1
+@do goto monster`p20
diff --git a/xtrn/lord2/cnw/map.dat b/xtrn/lord2/cnw/map.dat
new file mode 100644
index 0000000000000000000000000000000000000000..1070557e025c04526e480a376bae18d9fa24b796
Binary files /dev/null and b/xtrn/lord2/cnw/map.dat differ
diff --git a/xtrn/lord2/cnw/mdata.dat b/xtrn/lord2/cnw/mdata.dat
new file mode 100644
index 0000000000000000000000000000000000000000..74643626b9c88e62ded768d9ea774ff05645c644
Binary files /dev/null and b/xtrn/lord2/cnw/mdata.dat differ
diff --git a/xtrn/lord2/cnw/mine.ref b/xtrn/lord2/cnw/mine.ref
new file mode 100644
index 0000000000000000000000000000000000000000..5c32836ecb6e17670ef7354a0e155aebf1050ef1
--- /dev/null
+++ b/xtrn/lord2/cnw/mine.ref
@@ -0,0 +1,210 @@
+; Script file MINE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:21 2001
+
+@DECLARE start 000000358
+@DECLARE nope 000001826
+@DECLARE enter 000001983
+@DECLARE nothing 000003194
+@DECLARE something 000003419
+@DECLARE broke 000003794
+@DECLARE one 000003966
+@DECLARE two 000004132
+@DECLARE tired 000004301
+@NOCHECK
+; End of .REF index
+
+@#start
+@offmap
+@do moveback
+@routine dismounth in vehicle.ref
+@clear screen
+@show
+[?7h[255D[6C[0m������
+[5C��[43m�[33;40m��[37;43m�[40m��
+ ��[33m�[30;43m�[33;40m��[30;43m� [37;40m�� [1m�[12C[0;32m"Welcome to Dahlonega Dave's! It costs 50 gold
+ [37m��[33m��[30;43m��[33;40m��[37m�� [1m�[11C[0;32mpieces to enter the mine, but you get to keep any
+ [37m���������� [1m�[12C[0;32mgold or gems that you find."
+[5C[37m��[30;43m����[1;31;47m��[40m����
+[5C[0m��������
+ [1m��[34m�[0m������[1;34m�[37m��
+ ���[34m�[37m�[0m����[1m�[34m�[37m���[9C[0m���������
+ [1m��� [34m�[37m������[34m� [37m���[8C[0m� $50 �
+ [1m���[34m��������[37m���[8C[0m�����������
+ [1m��[34m��������[37m��[9C[0m�����������
+[5C[1;34m��������[11C[0m�����������
+[33m������������������������������������������������
+ ��������������������������������������������۲
+ ������������������[1;35;43mDahlonega Dave's[0;33m����������۲
+ ������������������[43m [1;35mDo-it-yourself [0;33m����������۲
+ ������������������[43m [1;35mMining [0;33m����������۲
+ ��������������������������������������������۲
+@do move 54 12
+@do write
+`0Would you care to enter?
+@do move 51 14
+@do `v01 is 1
+@choice
+Yes, I'd like to try my luck
+No, I don't think so `%
+@if responce is 1 then do
+ @begin
+ @do goto enter
+ @end
+@if responce is 2 then do
+ @begin
+ @do goto nope
+ @end
+@#nope
+ @do move 1 22
+ @do write
+ Well, it's your choice. Come back and see us when you feel luckier!
+@key bottom
+@drawmap
+@update
+@closescript
+@#enter
+@if `v05 > 0 then do
+ @begin
+ @do `p21 is `v05
+ @do `p21 / 24
+ @if `p11 < `p21 then do
+ @begin
+ @do goto tired
+ @closescript
+ @end
+ @end
+
+
+@clear screen
+@if money < 50 do goto broke
+@if `p02 < 10 do goto tired
+@show
+
+ You pay your admission and enter the mine.
+
+@key
+@do money - 50
+@show
+
+
+
+ The longer you spend mining, the more likely you are to find something.
+
+ How many turns will you spend in the mine?
+@do move 23 12
+@do write
+`8�����������������Ŀ
+@do move 23 13
+@do write
+`8� �
+@do move 23 14
+@do write
+`8� �
+@do move 23 15
+@do write
+`8� �
+@do move 23 16
+@do write
+`8�������������������
+@do move 24 13
+
+;<--Added by CNW-->
+@do `p21 is `v05
+@do `p21 / 24
+@do `p22 is `p21
+@do `p22 * 2
+
+@do `v01 is 1
+@choice
+<`p21 `p11 one hour
+<`p22 `p11 two hours
+Forget it
+@if response is 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 1 then do
+ @begin
+ @do goto one
+ @end
+@if response is 2 then do
+ @begin
+ @do goto two
+ @end
+@#nothing
+@do move 1 17
+@do write
+ You didn't find anything. Better luck next time.
+@key
+@show
+
+ You return to your adventure a little less cheery.
+@key bottom
+@drawmap
+@update
+@closescript
+
+@#something
+@do `p20 random 1000 50
+@do move 1 17
+@do write
+ You found `p20 gold pieces!
+@do money + `p20
+@key
+@do `p20 random 10 2
+@show
+
+ You also found `p20 gems!
+
+@do `p19 + `p20
+@key
+@show
+
+ You return to your adventures with your new found wealth and a big smile.
+@key bottom
+@drawmap
+@update
+@closescript
+@#broke
+@show
+
+
+
+ "You don't have that much," says Dave. "Remember, it takes money to make
+money!!!" He smiles as you leave.
+@key
+@drawmap
+@update
+@closescript
+@#one
+@do `p20 random 4 1
+@do `p02 - `p20
+@do `p11 - `p21
+@do `p20 random 100 1
+@if `p20 > 10 then do
+ @begin
+ @do goto nothing
+ @end
+@do goto something
+@#two
+@do `p20 random 10 1
+@do `p02 - `p20
+@do `p11 - `p22
+@do `p20 random 100 1
+@if `p20 > 25 then do
+ @begin
+ @do goto nothing
+ @end
+@do goto something
+@#tired
+@show
+
+
+
+ "You look too tired to work in the mine today," says Dave. Why don't you
+ come back tomorrow?" He smiles as you leave.
+@key
+@drawmap
+@update
+@closescript
diff --git a/xtrn/lord2/cnw/minn.ref b/xtrn/lord2/cnw/minn.ref
new file mode 100644
index 0000000000000000000000000000000000000000..29d0f8a9d1995d2c4d1f15db7e57424c4a18ec49
--- /dev/null
+++ b/xtrn/lord2/cnw/minn.ref
@@ -0,0 +1,805 @@
+; Script file MINN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:21 2001
+
+@DECLARE enter 000000448
+@DECLARE done 000001612
+@DECLARE letmein 000002018
+@DECLARE doorguard 000002182
+@DECLARE startg 000002211
+@DECLARE sign 000007398
+@DECLARE innkeeper 000007764
+@DECLARE pass2 000009287
+@DECLARE done 000010636
+@DECLARE pass1 000010742
+@DECLARE chatwall 000011073
+@DECLARE tresure 000012043
+@NOCHECK
+; End of .REF index
+
+@#enter
+@do moveback
+@offmap
+
+
+@if myst1.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2Myst Inn - money making opportunity. Buy it now, only asking
+ `$$50,000`2.
+
+ Buy now and recieve the following bonuses:
+
+ `0* `2Private area for you
+
+ `0* `2rooms are for visitors to enter and pay.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 49999 Purchase it.
+<&money 50000 Sigh wistfully and leave since you don't have enough.
+>&money 49999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if myst1.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile myst1.dat
+&playernum
+NONE
+0
+0
+0
+0
+ @do `p30 is 11
+ @do `v40 is 50000
+ @routine deposit in vaults.ref
+ @do money - 50000
+ @do addlog
+ `0`n `2buys `%Myst Inn`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this Inn!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile myst1.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete myst1.dat
+ @do addlog
+ `%Myst Inn`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+;let him in
+@label letmein
+@do x is 39
+@do y is 19
+@do map is 1250
+@loadmap &map
+@do goto done
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#doorguard
+@do moveback
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+
+@if myst1a.dat exist false then do
+ @begin
+ @writefile myst1a.dat
+200
+0
+ @end
+
+
+@if myst1.dat exist false then do
+ @begin
+ @do saybar
+`0"Get out please! The Inn has been sold!" `2the Innkeeper commands.
+ @closescript
+ @end
+
+@readfile myst1.dat
+`p20
+`s01
+@
+
+ @readfile myst1a.dat
+`p26
+`p27
+ @
+
+
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the Innkeeper.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The Innkeeper stops working for a moment.
+
+@do write
+`x`x
+@choice
+Set password to private bedroom. (currently is `0`s01`%)
+Ownership options
+Set inn fee (currently is at `$$`p26`%)
+Take money from register
+Leave
+@
+
+@if responce is 4 then do
+ @begin
+ @if `p27 < 1 then do
+ @begin
+@show
+`\`\ `0"Before you look in that register.. lemmie tell you business has
+ been a little slow." `2the Innkeeper tells you.
+
+`k `$"How slow?" `2you ask.
+
+`k `0"Ok, we have not had a single customer since you last checked, ARE
+ YOU HAPPY NOW!?" `2the Innkeeper cries as he bursts into tears.
+
+`k
+ @do goto doorguard
+ @end
+
+
+ @readfile myst1a.dat
+`p26
+`p27
+ @
+ @do money + `p27
+ @do delete myst1a.dat
+ @writefile myst1a.dat
+`p26
+0
+ @
+
+ @show
+`\`\ `2Sure, we've made `$$`p27`2, here ya go!
+
+`k
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do write
+`\`\`x`xNew fee? :`x
+ @do readnum 10 `p26
+ @if `v40 < 0 then do
+ @begin
+ @show
+`\`\ `2Price set to `$$`v40`2.
+
+`k `2You think you're pretty smart, don't you.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, yes I do. Now please give me 1,000,000 gold for free, I deserve it.
+No, you oh computer are the true master. We humans suck.
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `2GET OUT OF HERE BEFORE I `bDELETE`2 YOU! Next time I will.
+
+ @do goto doorguard
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ The computer playfully slaps your ass as it walks out.
+
+ @do goto doorguard
+
+ @end
+
+ @do goto doorguard
+ @end
+ @readfile myst1a.dat
+`p26
+`p27
+ @
+ @do `p26 is `v40
+ @do delete myst1a.dat
+ @writefile myst1a.dat
+`p26
+`p27
+ @
+ @do goto doorguard
+ @end
+
+
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$10000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your Inn to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete myst1.dat
+ @writefile myst1.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of Myst Inn to you.
+ Password to enter bedroom will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%Myst Inn`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your Inn back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do `p30 is 11
+ @do `v40 is 10000
+ @routine widthdraw in vaults.ref
+ @do delete myst1.dat
+ @do delete myst1a.dat
+ @do money + 10000
+ @show
+`\`\ `%INN SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Myst Inn`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete myst1.dat
+ @writefile myst1.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the Innkeeper promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#sign
+@do moveback
+
+ @if myst1.dat exist false then do
+ @begin
+ @do saybar
+Myst Inn - For Sale! Enquire inside.
+ @end
+
+@if myst1.dat exist true then do
+ @begin
+@readfile myst1.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#innkeeper
+@do moveback
+
+@if myst1.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@readfile myst1.dat
+`p20
+`s01
+@
+
+@if `p20 is &playernum then do
+ @begin
+ @do moveback
+ @do saybar
+`0Innkeeper: `2Greetings, s&sir!
+ @closescript
+ @end
+
+
+
+@if myst1a.dat exist false then do
+ @begin
+ @writefile myst1a.dat
+200
+0
+ @
+ @end
+
+ @readfile myst1a.dat
+`p26
+`p27
+ @
+
+
+@do `v01 is 1
+@show
+`r0`c `r1 `%Getting a room `r0
+
+`2 The Innkeeper looks at you. `0"Kin I getcha a room? Today it costs
+ only `$$`p26!`2"
+
+@do write
+`x`x
+@choice
+Yeah, what a great deal.
+Shyeah, right.
+@if responce is 3 then do
+ @begin
+ @do `p69 is 24
+ @do write
+`\ Myst Ville is now your home. `\`k
+ @do goto innkeeper
+ @end
+@if responce is 1 then do
+ @begin
+ @if money < `p26 then do
+ @begin
+ @show
+`\`\ `2You sort of lack the funds right now. Looks like you're sleeping
+ outside...
+
+`k
+ @do goto innkeeper
+ @end
+
+ @do money - `p26
+ @do `p27 + `p26
+ @do delete myst1a.dat
+ @writefile myst1a.dat
+`p26
+`p27
+ @
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has stayed at your Inn! Cha-CHING!
+
+ @do y - 2
+ @drawmap
+ @update
+ @do saybar
+`0Bartender: `2"Great! Enjoy your stay, and leave a compliment!"
+ @closescript
+ @end
+
+@drawmap
+@update
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#pass2
+@if myst1.dat exist false then do
+ @begin
+ @closescript
+ @end
+
+@if &lastx is 41 then do
+ @begin
+ @closescript
+ @end
+
+@readfile myst1.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @do saybar
+`0Innkeeper: `2No one is allowed over there.. it's private.
+
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 Entrance to the private area `r0
+
+`2 `2The Innkeeper looks over at you. `0"Hey! What business do you have
+ going in there?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok, go on in then!"`\`\`k
+ @do x + 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Inkeeper Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get to the private bedroom by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The Innkeeper isn't impressed.`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+
+
+ @#done
+ @drawmap
+ @update
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#pass1
+@readfile myst1.dat
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @closescript
+ @end
+
+@if &lasty is 16 then do
+ @begin
+ @do moveback
+ @do saybar
+`0Innkeeper: `2You need to pay me before you can go back there.
+ @end
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#CHATWALL
+@do moveback
+@busy
+@show
+`r0`c `r1 Write your Compliments `r0
+
+@if myst2.txt exist false then do
+ @begin
+ @writefile myst1.txt
+ `%Billy `2: `0I thought this place was Great!
+ @end
+
+@if myst2.txt exist true then do
+ @begin
+ @displayfile myst2.txt
+ @end
+
+@show
+
+@
+(Do tricky stuff with name to determine how much they can type)
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter a special message or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile myst2.txt
+ `%`n`2 : `0`s03
+ @do trim myst2.txt 17
+ @drawmap
+ @update
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#tresure
+;team treasury
+@do moveback
+@do `p20 is 0
+@if mtres.dat exist true then do
+ @begin
+ @readfile mtres.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile mtres.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete mtres.dat
+ @writefile mtres.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile myst1.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Sosen Inn Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile mtres.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete mtres.dat
+ @writefile mtres.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile myst1.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Sosen Inn Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+
diff --git a/xtrn/lord2/cnw/mold.ref b/xtrn/lord2/cnw/mold.ref
new file mode 100644
index 0000000000000000000000000000000000000000..d57425e0e779a20d420cfff866c62de3641517e2
--- /dev/null
+++ b/xtrn/lord2/cnw/mold.ref
@@ -0,0 +1,187 @@
+; Script file MOLD.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:35 2001
+
+@DECLARE heal 000000374
+@DECLARE dirtyman 000000529
+@DECLARE weapon 000001015
+@DECLARE storetop 000001070
+@DECLARE armor 000001450
+@DECLARE armortop 000001505
+@DECLARE barguy 000001831
+@DECLARE start 000001877
+@DECLARE piss 000002413
+@NOCHECK
+; End of .REF index
+
+;lala
+
+@#heal
+@offmap
+@do moveback
+@show
+
+`r0`c YOU ARE COMPLETLY HEALED `4MUTHA PHUCKA!
+
+`k
+@do `p02 is `p03
+@do `p03 + 1
+@drawmap
+@update
+
+
+
+@#dirtyman
+@do moveback
+@do `p20 random 7 1
+@if `p20 is 1 then saybar
+Im very dirty, touch me if you like ;)
+@if `p20 is 2 then saybar
+i havent had a bath in at least 2 years!
+@if `p20 is 3 then saybar
+I am dirty
+@if `p20 is 4 then do
+ @begin
+ @do `p03 + 2
+ @update
+@closescript
+@end
+@if `p20 is 5 then saybar
+You dont want to know how dirty i am, or do you?
+@if `p20 is 6 then saybar
+Wanna smell my feet?
+@if `p20 is 7 then saybar
+My toe's are brown and Icky.
+
+
+
+@#weapon
+@offmap
+@do moveback
+@do `v01 is 1
+@label storetop
+@show
+`r0`cYou are talking to Stealth smakilo, he yells 'what do you want!?`
+
+@do write
+`x`x
+ @do `v01 is 1
+ @choice
+Look at his Gawd damn Weapon's
+Leave this god forbidden place.
+@if responce is 1 then do begin
+ @begin
+ @buymanager
+6
+4
+9
+15
+16
+34
+35
+36
+38
+39
+49
+58
+60
+ @do goto storetop
+ @end
+
+ @drawmap
+ @update
+ @closescript
+@end
+
+
+
+@#armor
+@offmap
+@do moveback
+@do `v01 is 1
+@label armortop
+@show
+`r0`c Your talking to Storkus Malfunction
+
+
+`k
+@do write
+`x`x
+ @do `v01 is 1
+ @choice
+Look at his Damn armor
+Leave this ugly hell hole.
+@if response is 1 then do begin
+ @begin
+ @buymanager
+10
+12
+13
+14
+37
+59
+67
+68
+ @do goto armortop
+ @end
+
+ @drawmap
+ @update
+ @closescript
+@end
+
+
+@#barguy
+@do moveback
+@do `v01 is 1
+@label start ma
+@show
+`r0`c`% Talking to the INN Keeper.
+ Hi! Welcome to Stealth's INN,
+ he asks, AY What can i do for ya? `r0
+
+
+@do write
+`x`x
+ @do `v01 is 1
+ @choice
+>&money 50 Get a Room for 50 Bux
+Leave this place
+@if response is 1 then do begin
+ @begin
+ @do x is 35
+ @do y is 13
+ @do map is 324
+ @loadmap 324
+ @drawmap
+ @update
+ @do money - 50
+
+@end
+
+@if response is 2 then do begin
+ @begin
+ @do x is 39
+ @do y is 15
+ @do map is 324
+ @loadmap 324
+ @drawmap
+ @update
+@end
+
+
+@#piss
+@do moveback
+@do `p20 random 3 1
+@if `p20 is 1 then do begin
+ @begin
+ @do `p02 = `p03
+ @do saybar
+AHHhhhhhhhhh.... MUCH BETTER!!
+
+@if `p20 is 2 then saybar
+mmmmmmmm, you sigh releif as you take a load off..
+@if `p20 is 3 then saybar
+oh yeah, much better, i needed that.
+
+
+@end
+
diff --git a/xtrn/lord2/cnw/mon.ref b/xtrn/lord2/cnw/mon.ref
new file mode 100644
index 0000000000000000000000000000000000000000..f37ef5afaae9db54d54e24b2d22d6e5c4041e44d
--- /dev/null
+++ b/xtrn/lord2/cnw/mon.ref
@@ -0,0 +1,166 @@
+; Script file MON.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:31 2001
+
+@DECLARE welcomer 000000409
+@DECLARE firstsign 000000572
+@DECLARE secondsign 000000677
+@DECLARE thirdsign 000000760
+@DECLARE churcher 000003038
+@DECLARE priest 000003113
+@DECLARE monk1 000003202
+@DECLARE monk2 000003301
+@DECLARE itemshop 000003477
+@DECLARE nomore 000004175
+@NOCHECK
+; End of .REF index
+
+@#WELCOMER
+@DO SAYBAR
+`9Welcome Man: `7"Welcome to the Flagcity Monastry."
+@key
+@DO SAYBAR
+`9Welcome Man: `7"Please refrain from violence."
+@DO MOVEBACK
+
+@#FIRSTSIGN
+@DO SAYBAR
+`7Sign: These beds used by Saint Walksalot, in his Holy Quest
+@DO MOVEBACK
+
+@#SECONDSIGN
+@DO SAYBAR
+`7Sign: `%<-- `7Apothacary. Holy Items
+@DO MOVEBACK
+
+@#THIRDSIGN
+@DO MOVEBACK
+@datanewday MON.IDF
+@dataload MON.IDF 1 `p92
+@IF `p92 is 0 then do
+ @begin
+ @DO `p92 RANDOM 4 1
+ @end
+@datasave MON.IDF 1 `p92
+@IF `p92 is 1 then do
+ @begin
+@show
+`r0`c
+ `%PSALM 50:17-21 `!-`3- a warning to the rich!
+
+ `7Fear not when a man grows rich,
+ when the wealth of his house becomes great,
+ For when he dies, he shall take none of it;
+ his wealth shall not follow him down.
+ Though in his lifetime he counted himself blessed,
+ "They will praise you for doing well for yourself,"
+ He shall join the circle of his forebears
+ who shall never more see light.
+ Man, for all his splendor, if he have not prudence,
+ resembles the beasts that perish.
+@key
+ @drawmap
+ @closescript
+ @end
+@IF `p92 is 2 then do
+ @begin
+@show
+`r0`c
+ `%PSALM 54:6-9 `!-`3- you are never alone
+`7
+ Behold, God is my helper;
+ the Lord sustains my life.
+ Turn back the evil upon my foes;
+ in your faithfulness destroy them.
+ Freely will I offer you sacrifice:
+ I will praise your name, O Lord, for its goodness,
+ Because from all distress you have rescued me,
+ and my eyes look down upon my enemies.
+@key
+@drawmap
+ @closescript
+ @end
+@IF `p92 is 3 then do
+ @begin
+@DO SAYBAR
+`7Sign: We will be holding a midnight vigil for all lost souls.
+ @closescript
+ @end
+@IF `p92 is 4 then do
+ @begin
+@show
+`r0`c
+ `%PSALM 85: 9-14 `!-`3 peace
+`7
+ I will hear what God proclaims;
+ the Lord-for he proclaims peace.
+ To his people, and to his faithful ones,
+ and to those who put in him their hope.
+ Near indeed is his salvation to those who fear him,
+ glory dwelling in our land.
+ Kindness and truth shall meet;
+ justice and peace shall kiss.
+ Truth shall spring out of the earth,
+ and justice shall look down from heaven.
+ The Lord himself will give his benefits;
+ our land shall yield its increase.
+ Justice shall walk before him,
+ and salvation, along the way of his steps.
+@key
+@drawmap
+ @closescript
+ @end
+
+@#CHURCHER
+@DO SAYBAR
+`7Devout: "`%SHHH!!! BE QUIET!!!`7"
+@DO MOVEBACK
+
+@#PRIEST
+@DO SAYBAR
+`%Priest: `!"`0I say again, AMEN brotha', AMEN!`!"
+@DO MOVEBACK
+
+@#MONK1
+@DO SAYBAR
+`7Devout: "Do unto others as you would have done unto thee!"
+@DO MOVEBACK
+
+@#MONK2
+@DO SAYBAR
+`7Devout: I'm searching for the meaning of Life, the Universe, and Everything.
+@key
+@DO SAYBAR
+`7Devout: Why do I keep thinking 42?
+@DO MOVEBACK
+
+@#ITEMSHOP
+@DO MOVEBACK
+@offmap
+@busy
+@if `p07 > 50 then do
+ @begin
+@show
+`r0`c `%Piety, Ltd.
+`7 Although you're in a monastry, you can't help but worry about
+ the funny glances the shop keeper is giving you...
+
+
+@buymanager
+50
+66
+63
+@drawmap
+@update
+ @closescript
+ @end
+@show
+`r0`c `%Piety, Ltd.
+`7 Although you're in a monastry, you can't help but worry about
+ the funny glances the shop keeper is giving you...
+ You quickly steal a glance of some armour, but this fellow
+ makes no mention of selling any such thing...
+@buymanager
+50
+@drawmap
+@update
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/mortal.ref b/xtrn/lord2/cnw/mortal.ref
new file mode 100644
index 0000000000000000000000000000000000000000..3c48e30d44e449f8ba2ff0506c65a8f0c863cfcc
--- /dev/null
+++ b/xtrn/lord2/cnw/mortal.ref
@@ -0,0 +1,1016 @@
+; Script file MORTAL.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:18 2001
+
+@DECLARE start 000001673
+@DECLARE housesign 000001688
+@DECLARE leavehouse 000001805
+@DECLARE enterhouse 000002000
+@DECLARE mortalimage 000002376
+@DECLARE emptyurn 000002679
+@DECLARE urn1 000003928
+@DECLARE urn2 000004640
+@DECLARE urn3 000005078
+@DECLARE urn4 000005753
+@DECLARE urn5 000006410
+@DECLARE urn6 000007247
+@DECLARE urn7 000008168
+@DECLARE urn8 000010425
+@DECLARE virtualbank 000011685
+@DECLARE bankmenu 000011704
+@DECLARE carriedpenalty 000014164
+@DECLARE accountpenalty 000014377
+@DECLARE mysterylottery 000014583
+@DECLARE getanswer 000015352
+@DECLARE divineoffering 000019252
+@DECLARE offeringmenu 000019275
+@DECLARE penalizegold 000021183
+@DECLARE checkfornewday 000021499
+@DECLARE clearbar 000021513
+@DECLARE endofref 000021639
+@DECLARE realend 000021652
+@NOCHECK
+; End of .REF index
+
+
+; This IGM for Seth Able's "A New World" is the sole
+; work of Rob Cummings, A.K.A. |\/|ortal. This IGM
+; is not to be plagiarized. A $2.00 Registration fee
+; would be nice, but chances are you're all a bunch of
+; lamers and won't cough up the measly 2 bucks. Anyways
+; this IGM works at least with Beta 7 and it doesn't
+; require the Registered Version. Have fun.
+;
+; For those people that would be kind enough to register
+; Send the money to:
+;
+; Robert Cummings
+; 429 Sunnyside Ave.
+; Ottawa, Ontario
+; Canada
+; K1S 0S6
+;
+; The IGM makes use of the following in game variables
+; uses bit 5 of `t18 to mark daily use of IGM
+; uses `p97 to determine last day IGM was used
+;
+
+
+; REF file for old man |\/|ortal's house
+
+@#start
+
+@#houseSign
+
+ @routine clearBar
+ @do saybar
+`2Welcome to old man `4|\/|`6ortal's`2, enter at will...
+@end
+
+@#leaveHouse
+ @do X is 28
+ @do Y is 12
+ @do MAP is 1439
+ @loadmap map
+ @drawmap
+ @update
+ @routine clearBar
+ @do saybar
+`2Aaaah fresh air! Time to get something to eat.
+@end
+
+@#enterHouse
+ @do X is 39
+ @do Y is 14
+ @do MAP is 1346
+ @loadmap map
+ @drawmap
+ @update
+
+ @routine checkForNewDay
+ @routine clearBar
+
+ ; PLAYER HAS NOT CHECKED AN URN
+ @if bitcheck `t18 5 0 then do
+ @begin
+ @do saybar
+`2Welcome `N! `2Please come closer...
+ @do goto endOfRef
+ @end
+
+ @do saybar
+`2The air seems a little thick!
+@end
+
+@#mortalImage
+
+ @routine checkForNewDay
+ @routine clearBar
+
+ ; PLAYER HAS NOT CHECKED AN URN
+ @if bitcheck `t18 5 0 then do
+ @begin
+ @do saybar
+`6There are `48 `6urns `N`6... Choose wisely!
+ @do goto endOfRef
+ @end
+
+ @do saybar
+`$You get no answer... Try again tomorrow
+@end
+
+@#emptyUrn
+ @do `p20 random 14 1
+ @if `p20 equals 14 then do
+ @begin
+ @do saybar
+`2The urn is empty!!!
+ @end
+ @if `p20 equals 1 then do
+ @begin
+ @do saybar
+`3The urn is empty!!!
+ @end
+ @if `p20 equals 2 then do
+ @begin
+ @do saybar
+`4The urn is empty!!!
+ @end
+ @if `p20 equals 3 then do
+ @begin
+ @do saybar
+`5The urn is empty!!!
+ @end
+ @if `p20 equals 4 then do
+ @begin
+ @do saybar
+`6The urn is empty!!!
+ @end
+ @if `p20 equals 5 then do
+ @begin
+ @do saybar
+`7The urn is empty!!!
+ @end
+ @if `p20 equals 6 then do
+ @begin
+ @do saybar
+`8The urn is empty!!!
+ @end
+ @if `p20 equals 7 then do
+ @begin
+ @do saybar
+`9The urn is empty!!!
+ @end
+ @if `p20 equals 8 then do
+ @begin
+ @do saybar
+`0The urn is empty!!!
+ @end
+ @if `p20 equals 9 then do
+ @begin
+ @do saybar
+`!The urn is empty!!!
+ @end
+ @if `p20 equals 10 then do
+ @begin
+ @do saybar
+`@The urn is empty!!!
+ @end
+ @if `p20 equals 11 then do
+ @begin
+ @do saybar
+`#The urn is empty!!!
+ @end
+ @if `p20 equals 12 then do
+ @begin
+ @do saybar
+`$The urn is empty!!!
+ @end
+ @if `p20 equals 13 then do
+ @begin
+ @do saybar
+`%The urn is empty!!!
+ @end
+@end
+
+@#urn1
+ @routine checkForNewDay
+ @routine clearBar
+
+ ; PLAYER HAS NOT CHECKED AN URN
+ @if bitcheck `t18 5 0 then do
+ @begin
+ @bitset `t18 5 1
+ @do saybar
+`!You find...`L`L`L`L
+ @routine clearBar
+
+ @do `p20 random 2 1
+ @if `p20 equals 1 then do
+ @begin
+ @do saybar
+`%Nuttin' `7<sucker>
+ @do goto endOfRef
+ @end
+
+ @do `p20 random 2 1
+ @do `p19 + `p20
+ @if `p20 equals 1 then do
+ @begin
+ @do saybar
+`!a `%gem `!amongst the garbage!
+ @do goto endOfRef
+ @end
+ @if `p20 more 1 then do
+ @begin
+ @do saybar
+`%`p20 `!gems amongst the garbage!
+ @do goto endOfRef
+ @end
+ @end
+
+ @routine emptyUrn
+@end
+
+@#urn2
+ @routine checkForNewDay
+ @routine clearBar
+
+ ; PLAYER HAS NOT CHECKED AN URN
+ @if bitcheck `t18 5 0 then do
+ @begin
+ @bitset `t18 5 1
+ @do `p20 random 3 2
+ @do `p08 + `p20
+ @do saybar
+`2A little voice squeaks from the bottom...`L`L`L`L`L`L
+ @routine clearBar
+ @do saybar
+`2Just for looking for me I shall give you `0`p20 `2charm!
+ @do goto endOfRef
+ @end
+
+ @routine emptyUrn
+@end
+
+@#urn3
+ @routine checkForNewDay
+ @routine clearBar
+
+ ; PLAYER HAS NOT CHECKED AN URN
+ @if bitcheck `t18 5 0 then do
+ @begin
+ @bitset `t18 5 1
+ @do `p20 random 2 1
+ @if `p20 equals 1 then do
+ @begin
+ @do saybar
+`%You get...`L`L`L`L
+ @routine clearBar
+ @do saybar
+`%Nuttin' `7<sucker>
+ @do goto endOfRef
+ @end
+
+ @do `p20 random 3 1
+ @do `p04 + `p20
+ @do saybar
+`$You suddenly find yourself thinking of your father...`L`L`L`L`L`L
+ @routine clearBar
+ @do saybar
+`$The memory gives you new strength. `6`p20 `$new strength to be precise!
+ @do goto endOfRef
+ @end
+
+ @routine emptyUrn
+@end
+
+@#urn4
+ @routine checkForNewDay
+ @routine clearBar
+
+ ; PLAYER HAS NOT CHECKED AN URN
+ @if bitcheck `t18 5 0 then do
+ @begin
+ @bitset `t18 5 1
+ @do `p20 random 2 1
+ @if `p20 equals 1 then do
+ @begin
+ @do saybar
+`%You get...`L`L`L`L`L`L
+ @routine clearBar
+ @do saybar
+`%Nuttin' `7<sucker>
+ @do goto endOfRef
+ @end
+
+ @do `p20 random 3 1
+ @do `p05 + `p20
+ @do saybar
+`@You suddenly find yourself thinking of woodland animals...`L`L`L`L`L`L
+ @routine clearBar
+ @do saybar
+`@You sure feel more agile. (`4+`p20 dodge`@)!
+ @do goto endOfRef
+ @end
+
+ @routine emptyUrn
+@end
+
+@#urn5
+ @routine checkForNewDay
+ @routine clearBar
+
+ ; PLAYER HAS NOT CHECKED AN URN
+ @if bitcheck `t18 5 0 then do
+ @begin
+ @bitset `t18 5 1
+ @do `p20 random 4 1
+ @if `p20 less 4 then do
+ @begin
+ @do saybar
+`%You get...`L`L`L`L`L`L
+ @routine clearBar
+ @do saybar
+`%Nuttin' `7<sucker>
+ @do goto endOfRef
+ @end
+
+ @do saybar
+`$You suddenly find yourself thinking about old man `4|\/|`6ortal`$...`L`L`L`L`L`L
+ @routine clearBar
+ @do saybar
+`$You feel like a youth compared to old man `4|\/|`6ortal...
+
+ ; ADD 1 LEVEL IF UNLIMITED TURNS
+ @if `v05 equals 0 then do
+ @begin
+ @do `p09 + 1
+ @do goto endOfRef
+ @end
+
+ ; OTHERWISE GIVE THEM ALL MOVES BACK
+ @do `p11 is `v05
+ @do goto endOfRef
+ @end
+
+ @routine emptyUrn
+@end
+
+@#urn6
+ @routine checkForNewDay
+ @routine clearBar
+
+ ; PLAYER HAS NOT CHECKED AN URN
+ @if bitcheck `t18 5 0 then do
+ @begin
+ @bitset `t18 5 1
+ @do `p20 random 3 1
+ @if `p20 less 3 then do
+ @begin
+ @do saybar
+`%You get...`L`L`L`L`L`L
+ @routine clearBar
+ @do saybar
+`%Nuttin' `7<sucker>
+ @do goto endOfRef
+ @end
+
+ @do `p20 random 5 1
+ @do `p03 + `p20
+ @do `p02 is `p03
+ @if &sex equals 0 then do
+ @begin
+ @do saybar
+`@Your mind wanders to naughty little thoughts of Old Man `4|\/|`6ortal`@...`L`L`L`L`L`L
+ @end
+ @if &sex equals 1 then do
+ @begin
+ @do saybar
+`@Your mind wanders to naughty little thoughts of `5Barak's `5mother`@...`L`L`L`L`L`L
+ @end
+
+ @routine clearBar
+ @do saybar
+`@You feel like you could last for ever... (`$+`p20 hits`@)
+ @do goto endOfRef
+ @end
+
+ @routine emptyUrn
+@end
+
+@#urn7
+ @routine checkForNewDay
+ @routine clearBar
+
+ ; PLAYER HAS NOT CHECKED AN URN
+ @if bitcheck `t18 5 0 then do
+ @begin
+ @bitset `t18 5 1
+ @do `p20 random 2 1
+ @if `p20 equals 1 then do
+ @begin
+ @do saybar
+`%You get...`L`L`L`L`L`L
+ @routine clearBar
+ @do saybar
+`%Nuttin' `7<sucker>
+ @do goto endOfRef
+ @end
+
+ @do saybar
+`!The urn is full of garbage! You decide to rummage through...`L`L`L`L`L`L
+ @routine clearBar
+
+ @routine clearBar
+ @do saybar
+`!You find...`L`L`L`L`L`L
+
+ @do `p20 random 3 1
+ @routine clearBar
+ @if `p20 equals 1 then do
+ @begin
+ @do saybar
+`!Todays `3newspaper`!. The headline reads...`L`L`L`L`L`L
+ @routine clearBar
+ @do saybar
+`!Bank decides to `3pay `!customers and their accounts `320% `!interest...
+ @do `p20 is &money
+ @do `p20 / 5
+ @do money + `p20
+ @do `p20 is &bank
+ @do `p20 / 5
+ @do bank + `p20
+ @do goto endOfRef
+ @end
+
+ @if `p20 equals 2 then do
+ @begin
+ @do `s01 is men
+ @if &sex equals 0 then do
+ @begin
+ @do `s01 is women
+ @end
+ @do saybar
+`!A pair of `3Hainds `!underwear for `s01...`L`L`L`L`L`L
+ @routine clearBar
+ @do saybar
+`!Throwing caution to the wind, you decide to try them on...`L`L`L`L`L`L
+ @routine clearBar
+ @routine clearBar
+ @if &sex equals 0 then do
+ @begin
+ @do saybar
+`4My God! `!Is that a gun in your pocket or are you just happy to see me???
+ @do sexmale is 1
+ @do goto endOfRef
+ @end
+ @do saybar
+`4My God! `N `!What big breasts you have `0;)
+ @do sexmale is 0
+ @do goto endOfRef
+ @end
+
+ @if `p20 equals 3 then do
+ @begin
+ @do saybar
+ `!A `3CD-ROM`!. You decide to take it home and check it out...`L`L`L`L`L`L
+ @routine clearBar
+ @do saybar
+`!Its `9'The Adventurer's guide to the New World'`!, by `4|\/|`6ortal...`L`L`L`L`L`L
+
+ @do `p20 random 6 5
+ @do `p18 + `p20
+ @routine clearBar
+ @do saybar
+`!You read the compendium and gain `3`p20 `!quest points.
+ @do goto endOfRef
+ @end
+ @end
+
+ @routine emptyUrn
+@end
+
+@#urn8
+ @routine checkForNewDay
+ @routine clearBar
+
+ ; PLAYER HAS NOT CHECKED AN URN
+ @if bitcheck `t18 5 0 then do
+ @begin
+ @do moveback
+ @bitset `t18 5 1
+ @do saybar
+`0Hey! What's this??? This ain't no urn...`L`L`L`L`L`L
+
+ @routine clearBar
+ @do saybar
+`0It's a `2computer `0and it's linked to the `2W`0orld `2W`0ide `2M`0ire...`L`L`L`L`L`L
+
+ @clear screen
+ @do `v01 is 1
+ @do move 20 5
+ @show
+`$Choose One of the Following Options...
+ @do move 27 7
+ @choice
+`%Enter the Virtual Bank
+`%Try the Mystery Lottery
+`%Make a Divine Offering
+`%Quit The World Wide Mire
+ @if response equals 1 then do
+ @begin
+ @routine virtualBank
+ @drawmap
+ @update
+ @do goto endOfRef
+ @end
+
+ @if response equals 2 then do
+ @begin
+ @routine mysteryLottery
+ @drawMap
+ @update
+ @if `p02 less 1 then do
+ @begin
+ @routine die in gametxt.ref
+ @end
+
+ @do goto endOfRef
+ @end
+
+ @if response equals 3 then do
+ @begin
+ @routine divineOffering
+ @drawMap
+ @update
+ @do goto endOfRef
+ @end
+
+ @drawmap
+ @update
+ @do goto endOfRef
+ @end
+
+ @routine emptyUrn
+@end
+
+@#virtualBank
+ @label bankMenu
+ @clear screen
+ @do `v01 is 1
+ @do move 20 5
+ @show
+`$You have the following banking options...
+ @do move 20 12
+ @show
+`4Account Balance: `@&bank
+ @do move 20 13
+ @show
+`4Gold Carried: `@&money
+ @do move 24 7
+ @choice
+>&money 0 `%Deposit money from your pocket
+>&bank 0 `%Withdraw money from your account
+>`p19 0 `%Attempt to trick the cashier
+`%Get Back to Adventuring
+ @if response equals 1 then do
+ @begin
+ @do move 20 16
+ @do write
+`#Amount to Deposit:`X
+ @do readnum 10 &money
+ @if `v40 more &money then do
+ @begin
+ @do goto carriedPenalty
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @do goto carriedPenalty
+ @end
+ @if `v40 equals 1 then do
+ @begin
+ @do `v40 is &money
+ @end
+ @do `p20 is `v40
+ @do money - `v40
+ @do bank + `p20
+ @do goto bankMenu
+ @end
+
+ @if response equals 2 then do
+ @begin
+ @do move 20 16
+ @do write
+`#Amount to Withdraw:`X
+ @do readnum 10 &bank
+ @if `v40 more &bank then do
+ @begin
+ @do goto accountPenalty
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @do goto accountPenalty
+ @end
+ @if `v40 equals 1 then do
+ @begin
+ @do `v40 is &bank
+ @end
+ @do `p20 is `v40
+ @do bank - `v40
+ @do money + `p20
+ @do goto bankMenu
+ @end
+
+ @if response equals 3 then do
+ @begin
+ @do move 14 16
+ @do write
+`#This will cost you `51 `#Gem. Do you wish to continue `4(`@y`4/`@n`4)?
+ @do readspecial `s01 YN
+ @if `s01 is N then do
+ @begin
+ @do goto bankMenu
+ @end
+
+ @do move 14 16
+ @show
+`x `x
+ @do move 14 16
+ @show
+`1You point over the tellers shoulder and say...`L`L`L`L`L`L
+ @do move 14 17
+ @show
+`2OhMyGod! Whatsat???`L`L`L`L`L`L
+ @do move 14 18
+ @show
+`1While the tellers not looking you make for the money...`L`L`L`L`L`L
+ @do move 14 19
+ @do `p20 random 2 1
+ @if `p20 equals 1 then do
+ @begin
+ @show
+`4Oh no! The teller has caught on to your ploy... better Run!`L`L`L`L`L`L
+ @do move 33 21
+ @key
+ @do goto endOfRef
+ @end
+
+ @do `p20 random 9500 500
+ @do bank + `p20
+ @show
+`2You grab `0`p20 `2gold. Quickly you deposit it and leave...`L`L`L`L`L`L
+ @do move 33 21
+ @key
+ @do goto endOfRef
+ @end
+
+ @do goto endOfRef
+
+ @label carriedPenalty
+ @do `p20 is &money
+ @do `p20 / 10
+ @do money - `p20
+ @do move 14 18
+ @show
+`4Trying to cheat eh? `@10% `4carried gold penalty!`L`L`L`L`L`L
+ @do goto bankMenu
+
+ @label accountPenalty
+ @do `p20 is &bank
+ @do `p20 / 10
+ @do bank - `p20
+ @do move 14 18
+ @show
+`4Trying to cheat eh? `@10% `4account gold penalty!`L`L`L`L`L`L
+ @do goto bankMenu
+@end
+
+@#mysteryLottery
+ @clear screen
+ @if `v05 equals 0 then do
+ @begin
+ @if `v03 equals 1 then do
+ @begin
+ @do move 14 5
+ @show
+`4Sorry this feature isn't available to players
+ @do move 14 6
+ @show
+`4in games with unlimited lives `@AND `4unlimited moves.
+ @do move 33 18
+ @key
+ @do goto endOfRef
+ @end
+ @end
+ @do `v01 is 1
+ @do move 14 5
+ @show
+`9The Mystery Lottery has a potentially large Payoff
+ @do move 14 6
+ @if `v05 more 0 then do
+ @begin
+ @do `p20 is `v05
+ @do `p20 / 3
+ @do `p20 * 2
+ @show
+`9and thus to enter it will cost you `1`p20 `9moves.`L`L`L`L`L`L
+ @do goto getAnswer
+ @end
+ @show
+`6and thus to enter it will cost you your `1life `9today.`L`L`L`L`L`L
+
+ @label getAnswer
+ @if `v05 more 0 then do
+ @begin
+ @if `p11 less `p20 then do
+ @begin
+ @do move 14 8
+ @show
+`4Sorry but you do not have enough movement points...
+ @do move 33 18
+ @key
+ @do goto endOfRef
+ @end
+ @end
+
+ @do move 19 8
+ @do write
+`#Do you wish to make this payment `4(`@y`4/`@n`4)?
+ @do readspecial `s01 YN
+ @if `s01 is N then do
+ @begin
+ @do goto endOfRef
+ @end
+
+ @if `v05 more 0 then do
+ @begin
+ @do `p11 - `p20
+ @end
+ @if `v05 is 0 then do
+ @begin
+ @do `p02 is 0
+ @do `p02 - 1000
+ @end
+
+ @do move 14 8
+ @show
+`0`x `x
+ @do move 14 8
+ @show
+`#You click on the little lottery woman icon and say...`L`L`L`L`L`L
+ @do move 14 9
+ @do `p21 random 10 1
+ @if `p21 equals 6 then do
+ @begin
+ @show
+`4W`@indoze `4S`@ucks... `4I H`@ate `4S`@will `4G`@ates...`L`L`L`L`L`L
+ @end
+ @if `p21 not 6 then do
+ @begin
+ @show
+`5Gimme 1 big **cking mystery prize ticket...`L`L`L`L`L`L
+ @end
+ @do move 14 10
+ @show
+`#You grab your ticket and wait for the drawing...`L`L`L`L`L`L
+ @do move 14 11
+ @show
+`5The speaker steps up to the mic and says...`L`L`L`L`L`L
+ @do `p20 random 89 10
+ @do `p21 random 89 10
+ @do `p22 random 89 10
+ @do move 14 12
+ @show
+`#The winning numbers are...`L`L`L`L `@`p20 `4- `@`p21 `4- `@`p22.`L`L`L`L`L`L
+ @do `p20 random 10 1
+ @if `p20 not 6 then do
+ @begin
+ @do move 14 13
+ @show
+`5You look at your ticket and realize...`L`L`L`L `4You've lost.`L`L`L`L
+ @do move 33 18
+ @key
+ @do goto endOfRef
+ @end
+
+ @do move 14 13
+ @show
+`5You look at your ticket and realize...`L`L`L`L `^You've won.`L`L`L`L
+ @do move 14 15
+ @show
+`#You walk up to the speaker to receive your prize...`L`L`L`L`L`L
+ @do `p20 random 10 1
+ @if `p20 equals 1 then do
+ @begin
+ @do `i58 + 1
+ @do move 14 16
+ @show
+`5Your prize is...`L`L`L`L `^Twin-Swords. `5Congratulations.`L`L`L`L`L`L
+ @end
+
+ @if `p20 equals 2 then do
+ @begin
+ @do `i62 + 1
+ @do move 14 16
+ @show
+`5Your prize is...`L`L`L`L `^Blessed Armour. `5Congratulations.`L`L`L`L`L`L
+ @end
+
+ @if `p20 equals 3 then do
+ @begin
+ @do `v09 is 1
+ @do move 14 16
+ @show
+`5Your prize is...`L`L`L`L `5To be able to attack anyone, anywhere.`L`L`L`L`L`L
+ @end
+
+ @if `p20 equals 4 then do
+ @begin
+ @do `p21 random 5000 5000
+ @do `p21 * 100
+ @do `p02 + `p21
+ @do move 14 16
+ @show
+`5Your prize is...`L`L`L`L `^`p21 hitpoints. `5Congratulations.`L`L`L`L`L`L
+ @end
+
+ @if `p20 equals 5 then do
+ @begin
+ @do `p21 random 5 5
+ @do `p04 + `p21
+ @do move 14 16
+ @show
+`5Your prize is...`L`L`L`L `^`p21 muscle. `5Congratulations.`L`L`L`L`L`L
+ @end
+
+ @if `p20 equals 6 then do
+ @begin
+ @do `p21 random 5 5
+ @do `p05 + `p21
+ @do move 14 16
+ @show
+`5Your prize is...`L`L`L`L `^`p21 dodge. `5Congratulations.`L`L`L`L`L`L
+ @end
+
+ @if `p20 equals 7 then do
+ @begin
+ @do `p21 random 10 10
+ @do `p03 + `p21
+ @do move 14 16
+ @show
+`5Your prize is...`L`L`L`L `^+`p21 max hitpoints. `5Congratulations.`L`L`L`L`L`L
+ @end
+
+ @if `p20 equals 8 then do
+ @begin
+ @do `p21 random 25 25
+ @do `p08 + `p21
+ @do move 14 16
+ @show
+`5Your prize is...`L`L`L`L `^`p21 charm. `5Congratulations.`L`L`L`L`L`L
+ @end
+
+ @if `p20 equals 9 then do
+ @begin
+ @do `p21 random 7000 3000
+ @do `p21 * 10
+ @do money + `p21
+ @do move 14 16
+ @show
+`5Your prize is...`L`L`L`L `^`p21 Gold. `5Congratulations.`L`L`L`L`L`L
+ @end
+
+ @if `p20 equals 10 then do
+ @begin
+ @do `p21 random 7 3
+ @do `p19 + 6
+ @do move 14 16
+ @show
+`5Your prize is...`L`L`L`L `^`p21 gems. `5Congratulations.`L`L`L`L`L`L
+ @end
+
+ @do move 33 18
+ @key
+ @do goto endOfRef
+@end
+
+@#divineOffering
+ @label offeringMenu
+ @clear screen
+ @do `v01 is 1
+ @do move 20 5
+ @show
+`4You have the following divine options...
+ @do move 20 11
+ @show
+`4Your current Alignment is `@`p07
+ @do `p20 is &money
+ @do `p20 + &bank
+ @do move 20 12
+ @show
+`4Your total accumulated gold is `@`p20
+ @do move 20 7
+ @choice
+>`p20 0 `8Give offering to His Majesty Lucifer
+>`p20 0 `%Make offering to The One True God
+`7Leave this place of irrational thought
+ @if response equals 1 then do
+ @begin
+ @do move 20 14
+ @do write
+`8How much to offer Lucifer?`x
+ @do readnum 10 0
+ @if `v40 less 0 then do
+ @begin
+ @do goto penalizeGold
+ @end
+ @if `v40 more `p20 then do
+ @begin
+ @do goto penalizeGold
+ @end
+ @do `p20 is `v40
+ @if `v40 more &money then do
+ @begin
+ @do `p20 - &money
+ @do money is 0
+ @do bank - `p20
+ @do `p20 is `v40
+ @do `p20 / 1000
+ @do `p07 - `p20
+ @do move 20 16
+ @show
+`4Your alignment goes down by `@`p20 `4points`L`L`L`L
+ @do move 33 18
+ @key
+ @do goto offeringMenu
+ @end
+ @end
+
+ @if response equals 2 then do
+ @begin
+ @do move 20 14
+ @do write
+`%How much to offer The One True God?`x
+ @do readnum 10 0
+ @if `v40 less 0 then do
+ @begin
+ @do goto penalizeGold
+ @end
+ @if `v40 more `p20 then do
+ @begin
+ @do goto penalizeGold
+ @end
+ @do `p20 is `v40
+ @if `v40 more &money then do
+ @begin
+ @do `p20 - &money
+ @do money is 0
+ @do bank - `p20
+ @do `p20 is `v40
+ @do `p20 / 1000
+ @do `p07 + `p20
+ @do move 20 16
+ @show
+`4Your alignment goes up by `@`p20 points`L`L`L`L
+ @do move 33 18
+ @key
+ @do goto offeringMenu
+ @end
+ @end
+
+ @if response equals 3 then do
+ @begin
+ @do goto endOfRef
+ @end
+
+ @label penalizeGold
+ @do `p20 is &money
+ @do `p20 / 10
+ @do money - `p20
+ @do `p20 is &bank
+ @do `p20 / 10
+ @do bank - `p20
+ @do move 20 16
+ @show
+`4Trying to cheat the Gods eh??
+ @do move 20 17
+ @show
+`4You lose `@10% `4of your gold.
+ @do move 33 20
+ @key
+ @do goto offeringMenu
+@end
+
+
+@#checkForNewDay
+
+@#clearBar
+ @do saybar
+ `0 `0
+@end
+
+
+
+@#endOfRef
+
+@#realEnd
+
diff --git a/xtrn/lord2/cnw/mosh.ref b/xtrn/lord2/cnw/mosh.ref
new file mode 100644
index 0000000000000000000000000000000000000000..fde11672daf4fd701120e2ac6c44b133fb9d87a5
--- /dev/null
+++ b/xtrn/lord2/cnw/mosh.ref
@@ -0,0 +1,1020 @@
+; Script file MOSH.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:18 2001
+
+@DECLARE pay 000001776
+@DECLARE locked 000002383
+@DECLARE todd 000005097
+@DECLARE seth 000005178
+@DECLARE mike 000005270
+@DECLARE joe 000005353
+@DECLARE dive 000005464
+@DECLARE onstage 000006243
+@DECLARE backstage 000006385
+@DECLARE guy 000006602
+@DECLARE event 000007763
+@DECLARE pitfight 000008360
+@DECLARE stagefight 000008978
+@DECLARE lose 000009561
+@DECLARE tv 000009745
+@DECLARE backtodd 000009822
+@DECLARE backseth 000009910
+@DECLARE backjoe 000009996
+@DECLARE backmike 000010257
+@DECLARE hooker 000010345
+@DECLARE nasty 000011431
+@DECLARE seat 000011905
+@DECLARE stereo 000012176
+@DECLARE exitdream 000012268
+@DECLARE drugdeal 000012424
+@DECLARE prejudice 000014522
+@DECLARE prejudicewin 000015195
+@DECLARE confusion 000015239
+@DECLARE confusionwin 000015943
+@DECLARE indifference 000015990
+@DECLARE indifferencewin 000016640
+@DECLARE greed 000016680
+@DECLARE greedwin 000017372
+@DECLARE revenge 000017414
+@DECLARE revengewin 000018079
+@DECLARE anger 000018119
+@DECLARE angerwin 000019341
+@DECLARE angerlose 000019823
+@DECLARE angerrun 000019948
+@NOCHECK
+; End of .REF index
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; ;;
+;; ::[[ BoneTown Moshpit IGM by Curious Yellow v1.00 ]]:: ;;
+;; ;;
+;; http://home.earthlink.net/~csyellow ;;
+;; ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+@#PAY
+; Reset all `p variables that are used for this IGM..
+@if bitcheck `t50 7 1 then goto locked
+@if bitcheck `t51 7 1 then goto locked
+@if bitcheck `t51 1 1 then goto locked
+
+@do `p22 is 0
+@do `p23 is 0
+@do `p51 is 0
+@do `p52 is 0
+@do `p53 is 0
+@do `p54 is 0
+@do `p55 is 0
+@do `p56 is 0
+@do `p57 is 0
+@do `p58 is 0
+@do `p61 is 0
+@do `p62 is 0
+@do `p63 is 0
+@do `p64 is 0
+@do `p65 is 0
+@do `p66 is 0
+; makes player "off the map" until they return or enter the concert hall
+@offmap
+@datanewday MOSH.IDF
+@dataload MOSH.IDF &playernum `p21
+@if `p21 not 0 then do
+ @begin
+@label locked
+ @do moveback
+ @do saybar
+ `0The concert hall is empty. Better come back tomorrow.
+ @closescript
+ @end
+
+@SHOW
+`^`r0
+`c `r1`% Not So Fast.. `r0
+`0
+ "Hold it there.. you've gotta pay `$$100 `0to get in here."
+
+ `%"Why would I want to, eh?"
+
+ `0"Cuz `$RESIDUE`0 is playing. That should be reason enough."
+
+@do `v01 is 2
+@choice
+>&money 99 Okay, I can spare the cash.
+<&money 100 Hey.. those are nice shoes, dude!
+Who the heck is RESIDUE?
+Screw this, man!
+@if responce is 1 then do
+ @begin
+ @do `p21 is 1
+ @datasave MOSH.IDF &playernum `p21
+ @show
+`c `%"Trust me.. you won't be disappointed."`\`k
+ @loadmap 974
+ @do map is 974
+ @do x is 39
+ @do y is 17
+ @DRAWMAP
+ @update
+ @DO SAYBAR
+ `%This is the biggest moshpit you have ever SEEN!
+ @if `p71 > 0 then do
+ @begin
+ @do `p26 is `p71
+ @routine getname in npcname2.ref
+ @do quebar
+`$`s01: `%Thanks for bring me here! this could be fun.
+ @bitset `t50 6 1
+ @bitset `t51 1 1
+ @do `p20 random 3 1
+ @if `p20 is 1 then do
+ @begin
+ @bitset `t51 7 1
+ @end
+ @dataload npc/npc-`p71.idf &playernum `p26
+ @do `p26 + 1
+ @do `p26 + `p20
+ @if `p26 > 200000 then `p26 is 200000
+ @datasave npc/npc-`p71.idf &playernum `p26
+ @do `p08 + 1
+ @do `p02 / 2
+ @do `p01 + 250
+ @do `p11 - 100
+ @End
+ @UPDATE
+ @do money - 100
+ @CLOSESCRIPT
+ @end
+@if responce is 2 then do
+ @begin
+ @do `p20 random 10 1
+ @if `p20 is 8 then do
+ @begin
+ @do `p21 is 1
+ @datasave MOSH.IDF &playernum `p21
+ @show
+`c `%"You sound like a nice kid.. I'll let you in for free."`\`k
+ @loadmap 974
+ @do map is 974
+ @do x is 39
+ @do y is 17
+ @DRAWMAP
+ @update
+ @DO SAYBAR
+ `%This is the biggest moshpit you have ever SEEN!
+ @UPDATE
+ @CLOSESCRIPT
+ @end
+ @if `p20 not 8 then do
+ @begin
+ @show
+`c`r0 `r1`% Nice Try. `r0
+
+ `0Well, nice try, but the guard just got mad
+ and beat the crap out of you.. *sigh*
+`k
+ @do `p02 is 5
+ @do moveback
+ @drawmap
+ @update
+ @do saybar
+ `%"Punk! Get lost!"
+ @closescript
+ @end
+ @end
+@if responce is 3 then do
+ @begin
+ @show
+`r0`c `0"Only the coolest band in the world! Where have you been?!"
+
+ `%"Avenging the death of my father."
+
+ `0"Whatever, s&boy.."
+`k
+ @do goto PAY
+ @end
+@if responce is 4 then do
+ @begin
+ @do moveback
+ @drawmap
+ @update
+ @do saybar
+ `%"Well then.. Your loss, I guess."
+ @closescript
+ @end
+
+@#TODD
+@do saybar
+`0Todd: `%"It's SUPPOSED to be a drumset.."
+@closescript
+
+@#SETH
+@do saybar
+`0Seth is flying through an extremely difficult riff..
+@closescript
+
+@#Mike
+@do saybar
+`0Mike: `%"How the heck did you get up here?!"
+@closescript
+
+@#JOE
+@do saybar
+`%"The Lester Colony rules! YEAH!" `0.. You wonder of Joe is 'all there'.
+@closescript
+
+@#DIVE
+@if `p54 < 6 then do
+ @begin
+ @do move x y
+ @show
+ `W
+ @do y + 1
+ @update
+ @do move x y
+ @show
+ `W
+ @do y + 1
+ @update
+ @do move x y
+ @show
+ `W
+ @do y + 1
+ @update
+ @do move x y
+ @show
+ `W
+ @do y + 1
+ @update
+ @do `p54 + 1
+ @do `p53 random 10 1
+ @if `p53 < 6 then do
+ @begin
+ @do `p02 - 5
+ @do saybar
+ `0Oh, cripes! No one caught you! `$-5 HP!
+ @if `p02 < 1 then do
+ @begin
+ @run DIE in GAMETXT.REF
+ @closescript
+ @end
+ @closescript
+ @end
+ @if `p53 > 5 then do
+ @begin
+ @do `p55 random 20 5
+ @do saybar
+ `0Whoo! What a rush! `$+`p55 experience!
+ @closescript
+ @end
+ @end
+@do saybar
+`0Your headache won't permit you to jump..
+@closescript
+
+@#ONSTAGE
+@if &lasty not 4 then do
+ @begin
+ @do saybar
+ `0Cool! You found a way to get on stage! ROCK ON!
+ @closescript
+ @end
+
+@#BACKSTAGE
+@if `p23 is 1 then do
+ @begin
+ @loadmap 975
+ @do map is 975
+ @do x is 40
+ @do y is 10
+ @do `p23 is 0
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@do saybar
+`%Backstage? Haw!
+@closescript
+
+@#GUY
+@if `p23 is 1 then do
+ @begin
+ @do saybar
+ `0Shadowy Figure: `%"How 'bout that `$backstage pass`%! Cool, eh?"
+ @closescript
+ @end
+@show
+`c`r0 `r1`% Shady Figure `r0
+
+ `0"I might be able to hook you up with a `$backstage pass`0.."
+
+ `%"Oh? How much will it cost me, you bum?"
+
+ `0"It WOULD HAVE cost you `$$1`0, but I'll make it
+ `$$175`0 now for that 'bum' remark.. haw haw haw!"
+
+@do `v01 is 2
+@choice
+>&money 174 Okay, I'll take it!
+<&money 175 You wanker! I don't have the cash!
+Bah. I don't trust you.
+@if responce is 1 then do
+ @begin
+ @do money - 175
+ @do `p23 is 1
+ @show
+`r0`c `0"Trust me, my s&boy.. it's worth every penny."
+
+ `2YOU NOW HAVE BACKSTAGE ACCESS!
+`k
+ @do moveback
+ @drawmap
+ @update
+ @do saybar
+ `%"You won't regret it!"
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+ `r0`c `0"Then get out of my face, loser.."
+`k
+ @do moveback
+ @drawmap
+ @update
+ @do saybar
+ `0Geez. What a jerk.
+ @closescript
+ @end
+@if responce is 3 then do
+ @begin
+ @do moveback
+ @drawmap
+ @update
+ @do saybar
+ `0"Fine then. Be that way."
+ @closescript
+ @end
+
+@#EVENT
+@do `p22 random 15 1
+@if `p22 < 11 then do
+ @begin
+ @if y > 8 then do
+ @begin
+ @do goto pitfight
+ @closescript
+ @end
+ @do goto stagefight
+ @closescript
+ @end
+@if `p22 is 11 then do
+ @begin
+ @do saybar
+ `%Dang! This band sounds AWESOME!
+ @closescript
+ @end
+@if `p22 is 12 then do
+ @begin
+ @do saybar
+ `%You slip in a puddle of vomit.
+ @closescript
+ @end
+@if `p22 > 12 then do
+ @begin
+ @do saybar
+ `%You found a nacho on the floor! YUM!
+ @if `p02 < `p03 then do
+ @begin
+ @do `p02 + 1
+ @end
+ @closescript
+ @end
+
+@#PITFIGHT
+@fight
+;name
+Mosher
+;string said when you see him
+`0The maniac is foaming at the mouth, smashing into everything around him..
+;power move kill string
+A smack to the face brings him to his senses.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+elbows you|46
+stomps on your feet|56
+jumps at you headfirst|31
+NONE|NONE
+NONE|NONE
+;defense
+19
+;gold reward
+100
+;experience
+20
+;hit points
+80
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+MOSH.REF|LOSE
+;if runs: ref file|name or NONE
+NONE|NONE
+@end
+@closescript
+
+@#STAGEFIGHT
+@fight
+;name
+Stage Diver
+;string said when you see him
+`0He looks ready to jump.. LOOK OUT!
+;power move kill string
+You step out of the way, and he falls flat on his face.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+lands on you|46
+flings himself at you|56
+spits on you|31
+NONE|NONE
+NONE|NONE
+;defense
+25
+;gold reward
+121
+;experience
+25
+;hit points
+100
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+MOSH.REF|LOSE
+;if runs: ref file|name or NONE
+NONE|NONE
+@end
+@closescript
+
+@#LOSE
+@do `p02 is 5
+@loadmap 1287
+@do map is 1287
+@do x is 58
+@do y is 5
+@drawmap
+@update
+@do saybar
+`0You're not dead, but you were thrown out for fighting..
+@closescript
+
+@#TV
+@do saybar
+`0An older model TV, but it works..
+@closescript
+
+@#BACKTODD
+@do saybar
+`0Todd: `%"Yo! Glad you could join the party!"
+@closescript
+
+@#BACKSETH
+@do saybar
+`0Seth: `%"Hey. Do you think we're any good?"
+@closescript
+
+@#BACKJOE
+@if `p52 is 0 then do
+ @begin
+ @do saybar
+ `0Joe: `%"GoatS&Boy .. Is that you?! Here! Take these `#gems`%!"
+ @do `p19 + 10
+ @do `p52 is 1
+ @closescript
+ @end
+@do saybar
+`0Joe: `%"You know, you look kinda familiar.."
+@closescript
+
+@#BACKMike
+@do saybar
+`0Mike is hitting on a groupie. Leave him alone.
+@closescript
+
+@#HOOKER
+@if &sexmale not 0 then do
+ @begin
+ @do saybar
+ `0Delilah: `%"Sorry, babe.. I ain't like that!"
+ @closescript
+ @end
+
+@if `p56 is 1 then do
+ @begin
+ @do saybar
+ `0Delilah: `%"You were amazing! Come back later, hon.."
+ @closescript
+ @end
+
+@show
+`c`r0 `r1 `%Delilah `r0
+
+ `0"Hey, baby.. I'll give you a ride for `$$200`0, VD-Free!"
+
+ `%You look the girl over, and decide she's pretty damn hot.
+
+ `0"Well, handsome, what'll it be?"
+
+@do `v01 is 2
+@choice
+>&money 199 Let me show you my bony maccaroni..
+<&money 200 How 'bout a freebie?
+No thanks, babe.. I'm pretty tired.
+@if responce is 1 then do
+ @begin
+ @do money - 200
+ @do goto NASTY
+ @end
+@if responce is 2 then do
+ @begin
+ @do `p57 random 10 1
+ @if `p57 is 8 then do
+ @begin
+ @show
+`\`0"Okay, baby.. but bring some green next time!"
+@do goto NASTY
+ @drawmap
+ @update
+ @closescript
+ @end
+ @end
+@if responce is 3 then do
+ @begin
+ @do moveback
+ @drawmap
+ @update
+ @do saybar
+ `0"Oh.. shy, aren't you?"
+ @closescript
+ @end
+
+@#NASTY
+ @do `p56 is 1
+ @do `p34 + 1
+ @show
+`c`r0 `r1 `%Doin' The Nasty `r0
+
+ `%She leads you by the hand to a quiet backroom and slowly pulls off
+ her clothes, and beckons for you to do the same. You undress, and
+ join her on a plush, circular bed. You "protect" yourself, and start
+ the action`L.`L.`L.`L.`L. *whew!* What a ride!
+
+ `%You leave Delilah, asleep, and head back to the party.
+
+`k
+ @do moveback
+ @drawmap
+ @update
+ @closescript
+
+@#SEAT
+@if `p51 is 0 then do
+ @begin
+ @do saybar
+ `0You sit next to Todd and he hands you a soda. HP MAXED OUT!
+ @do `p02 is `p03
+ @do `p51 is 1
+ @closescript
+ @end
+@do saybar
+`0You kick back and relax next to Todd, 'n watch some TV..
+@closescript
+
+@#STEREO
+@do saybar
+`0Woman: `%"Isn't that the biggest stereo EVER?!"
+@closescript
+
+@#EXITDREAM
+@show
+`c `%YOU DID NOT HEED THE MAN'S WARNING!
+
+ Your dream has killed you, when you tried to escape it.
+
+`k
+@run DIE in GAMETXT.REF
+
+@#DRUGDEAL
+@if `p58 is 2 then do
+ @begin
+ @do moveback
+ @do saybar
+`0You've had enough.
+ @closescript
+ @end
+@show
+`c`r0 `r1`% Shadier Figure `r0
+
+ You come across a man in a dark green trenchcoat. Scruffy-looking, unkempt
+ hair, and several holes in his jeans spread an inquisitive look across your
+ face. He begins to speak...
+
+ `0"Doses?"
+
+ `$"What?!"
+
+ `%You figure out what he's talking about when he pulls several sheets of
+ "paper" from his trenchcoat. Decision-making time, eh?
+
+@do `v01 is 1
+@choice
+>&money 99 Buy a tab
+>&money 199 Buy a sheet
+Run away
+@if response is 1 then do
+ @begin
+ @do money - 100
+ @do `p58 is 1
+ @if `p53 < 5 then do
+ @begin
+ @do `p53 is 1
+ @end
+ @if `p53 < 5 then do
+ @begin
+ @do `p53 - 5
+ @end
+ @drawmap
+ @update
+ @do saybar
+`$(You are weakened.) `0The walls begin to breathe.. good high.
+ @closescript
+ @end
+@if response is 2 then do
+ @begin
+ @dataload MOSHDRUG.IDF &playernum `p66
+ @if `p66 is 1 then do
+ @begin
+ @do moveback
+ @drawmap
+ @update
+ @do saybar
+`0Maybe you'd better not, eh?
+ @closescript
+ @end
+ @do money - 200
+ @do `p58 is 2
+ @if `p02 < 10 then do
+ @begin
+ @do `p02 is 0
+ @drawmap
+ @update
+ @do saybar
+`0You were not strong enough to take it.
+ @show
+`L`L`L`L
+ @run DIE in GAMETXT.REF
+ @closescript
+ @end
+ @if `p02 > 10 then do
+ @begin
+ @do `p02 - 10
+ @datasave MOSHDRUG.IDF &playernum 1
+ @show
+`\`\ You can feel the high begin to take over your body`L.`L.`L.`L and your `@mind.
+
+`k
+ `0"A warning, boy." `%His words beginning to blur..
+
+ `0"If you do not defeat your dream, it will kill you."
+
+ `$"What?!" `%Too late. You are out of tune with the conscious world..
+
+`k
+ @do map is 976
+ @loadmap 976
+ @do x is 2
+ @do y is 10
+ @drawmap
+ @update
+ @closescript
+ @end
+ @end
+@if response is 3 then do
+ @begin
+ @do moveback
+ @drawmap
+ @update
+ @do saybar
+`0Man: `%"Farewell, weenie."
+ @closescript
+ @end
+
+@#PREJUDICE
+@do moveback
+@if `p61 is 1 then do
+ @begin
+ @do saybar
+`0Your Prejudice is dead.
+ @closescript
+ @end
+@fight
+;name
+Prejudice
+;string said when you see him
+Blind hate.
+;power move kill string
+The beast is destroyed.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+attempts to lynch you|33
+yells racial slurs at you|40
+firebombs your house|42
+NONE|NONE
+NONE|NONE
+;defense
+18
+;gold reward
+100
+;experience
+40
+;hit points
+150
+;if win: ref file|name or NONE
+MOSH.REF|PREJUDICEWIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@closescript
+
+@#PREJUDICEWIN
+@do `p61 is 1
+@closescript
+
+@#CONFUSION
+@do moveback
+@if `p62 is 1 then do
+ @begin
+ @do saybar
+`0Your Confusion is dead.
+ @closescript
+ @end
+@fight
+;name
+Confusion
+;string said when you see him
+All is lost.
+;power move kill string
+Your thoughts are properly rearranged..
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+points you in the wrong direction|38
+spins you around|45
+speaks backwards|47
+messes with your mind|53
+NONE|NONE
+;defense
+22
+;gold reward
+120
+;experience
+52
+;hit points
+160
+;if win: ref file|name or NONE
+MOSH.REF|CONFUSIONWIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@closescript
+
+@#CONFUSIONWIN
+@do `p62 is 1
+@closescript
+
+@#INDIFFERENCE
+@do moveback
+@if `p63 is 1 then do
+ @begin
+ @do saybar
+`0Your Indifference is dead.
+ @closescript
+ @end
+@fight
+;name
+Indifference
+;string said when you see him
+Nobody cares.
+;power move kill string
+I'll bet he cares now.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+yawns on you|48
+doesn't care|55
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+25
+;gold reward
+127
+;experience
+57
+;hit points
+170
+;if win: ref file|name or NONE
+MOSH.REF|INDIFFERENCEWIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@closescript
+
+@#INDIFFERENCEWIN
+@do `p63 is 1
+@closescript
+
+@#GREED
+@do moveback
+@if `p64 is 1 then do
+ @begin
+ @do saybar
+`0Your Greed is dead.
+ @closescript
+ @end
+@fight
+;name
+Greed
+;string said when you see him
+It's all mine! MINE!
+;power move kill string
+There IS enough of a good thing. A bad thing, too. Heh heh..
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+steals from you|52
+wants what you have|56
+is filled with desire|57
+NONE|NONE
+NONE|NONE
+;defense
+25
+;gold reward
+127
+;experience
+57
+;hit points
+170
+;if win: ref file|name or NONE
+MOSH.REF|GREEDWIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@closescript
+
+@#GREEDWIN
+@do `p64 is 1
+@closescript
+
+@#REVENGE
+@do moveback
+@if `p65 is 1 then do
+ @begin
+ @do saybar
+`0Your Revenge is dead.
+ @closescript
+ @end
+@fight
+;name
+Revenge
+;string said when you see him
+I'll get you back for that.
+;power move kill string
+Killing Revenge is bittersweet.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+stabs you in the back|60
+gets you back|62
+obsesses|67
+NONE|NONE
+NONE|NONE
+;defense
+30
+;gold reward
+140
+;experience
+62
+;hit points
+190
+;if win: ref file|name or NONE
+MOSH.REF|REVENGEWIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@closescript
+
+@#REVENGEWIN
+@do `p65 is 1
+@closescript
+
+@#ANGER
+@do moveback
+@if `p61 not 1 then do
+ @begin
+ @do saybar
+`0You must first defeat your other emotions.
+ @closescript
+ @end
+@if `p62 not 1 then do
+ @begin
+ @do saybar
+`0You must first defeat your other emotions.
+ @closescript
+ @end
+@if `p63 not 1 then do
+ @begin
+ @do saybar
+`0You must first defeat your other emotions.
+ @closescript
+ @end
+@if `p64 not 1 then do
+ @begin
+ @do saybar
+`0You must first defeat your other emotions.
+ @closescript
+ @end
+@if `p65 not 1 then do
+ @begin
+ @do saybar
+`0You must first defeat your other emotions.
+ @closescript
+ @end
+
+@fight
+;name
+Anger
+;string said when you see him
+It is your anger. Kill or be killed.
+;power move kill string
+Have you truly won?
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+yells obsenitites at you|70
+lashes into you|75
+throws you to the ground|80
+strikes you with unreckoned force|87
+NONE|NONE
+;defense
+30
+;gold reward
+400
+;experience
+170
+;hit points
+220
+;if win: ref file|name or NONE
+MOSH.REF|ANGERWIN
+;if lose: ref file|name or NONE
+MOSH.REF|ANGERLOSE
+;if runs: ref file|name or NONE
+MOSH.REF|ANGERRUN
+@closescript
+@end
+
+@#ANGERWIN
+@show
+`c `$A voice speaks into your very thoughts..
+
+ `%You just don't get it. There is no way to destroy your anger. At least..
+ no violent means to do so. You cannot destroy it. You must convert it. Anger
+ to care. Anger to concern. Anger to curiosity. Anger is a part of you. It
+ never TRULY goes away.. just gets bigger or smaller.
+
+ `@Spread the love.
+
+`k
+@do map is 974
+@loadmap 974
+@do x is 39
+@do y is 11
+@drawmap
+@update
+@closescript
+
+@#ANGERLOSE
+@do saybar
+`0You have lost to your emotions. 'Tis only human.`L`L`L`L
+@run DIE in GAMETXT.REF
+@closescript
+
+@#ANGERRUN
+@do saybar
+`0Fool! You cannot escape your emotions!`L`L`L`L
+@run DIE in GAMETXT.REF
+@closescript
diff --git a/xtrn/lord2/cnw/movegold.idf b/xtrn/lord2/cnw/movegold.idf
new file mode 100644
index 0000000000000000000000000000000000000000..68865850f85f68a3b41e3a27f5e8a297df890ef9
Binary files /dev/null and b/xtrn/lord2/cnw/movegold.idf differ
diff --git a/xtrn/lord2/cnw/mrgtroid.clr b/xtrn/lord2/cnw/mrgtroid.clr
new file mode 100644
index 0000000000000000000000000000000000000000..319f7922477a100be6d1ba5f247a6eb8efa255f1
--- /dev/null
+++ b/xtrn/lord2/cnw/mrgtroid.clr
@@ -0,0 +1,13 @@
+[?7h[255D[65C[0mܲ�۱�۲�
+[63C������۱���۲
+[62C��۲[1;31m�������[0m����
+[62C���[1m�[0;32m�[1;37m�[31m���[37m�[0;32m�[1;37m�[0m�۲
+[61C�۱�[1;31;41m���[40m�[41m�����[0m�۱��
+[60C���۲[1;31m�[41m�[40m�[41m�[40m�[41m�[40m�[41m�[40m�[0m�۱۲
+[60C߲���[1;31;41m�[40m�[41m�[40m�[41m�[40m���[41m�[0m۱۲�
+[60Cܲ۱� [1;31m�[41m�[37;40m���[31;41m��[1C[0m��۲�
+[60C������ [1;31m����� [0m����۲
+[61C���۲ [36m� �� [37m�۱�
+[60C[36m� [37m���[36m��� �[37m�۱� [36m�
+[59C� ��[37m�� [36m� � �� �[37m�� [36m��
+[67C�� ���
diff --git a/xtrn/lord2/cnw/myhome.ref b/xtrn/lord2/cnw/myhome.ref
new file mode 100644
index 0000000000000000000000000000000000000000..b8c938dd8468458051118d4fb4403815f028c753
--- /dev/null
+++ b/xtrn/lord2/cnw/myhome.ref
@@ -0,0 +1,175 @@
+; Script file MYHOME.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:13 2001
+
+@DECLARE getplace 000001052
+@DECLARE getplace2 000002803
+@DECLARE nomore 000004552
+@NOCHECK
+; End of .REF index
+
+;
+;
+;Used:
+; -listed in player listing
+; -"v"iew details in the stats
+; -paying taxes, looking up player records :)
+; soon, making home in specific buildings will be taxable.
+;
+; examples to use to put in REF to make a place a home.
+;
+;EXAMPLE1 - CHOICE
+;@choice
+;`%Make `#<home> `%your home
+;Leave
+;@if responce is 1 then do
+; @begin
+; @do `p69 is 21
+; @show
+;`r0`c
+;
+; `#<home> `%is now your home sweet home.
+;
+; @key
+; @end
+;
+;EXAMPLE2 - SAYBAR
+;@#myhome
+;@do moveback
+;@Do saybar
+;`%Make `#Q-Fortress `%your home? `8<`7y/N`8> :
+;@do readspecial `s02 NY
+;@if `s02 is Y then do
+; @begin
+; @do `p69 is 24
+; @do saybar
+; `#Q-Fortress `%is now your registered home.
+; @end
+;@closescript
+
+;
+; Need to add: Loki's Inn
+;
+;
+
+
+@#getplace
+@if `p69 is 0 then `s01 is East`xStoneBrook
+@if `p69 is 1 then `s01 is StoneBrook
+@if `p69 is 2 then `s01 is South`xStoneBrook
+@if `p69 is 3 then `s01 is GreenTree
+@if `p69 is 4 then `s01 is PortTown
+@if `p69 is 5 then `s01 is Knotwood
+@if `p69 is 6 then `s01 is Sosin
+@if `p69 is 7 then `s01 is FlagCity
+@if `p69 is 8 then `s01 is Arrisville
+@if `p69 is 9 then `s01 is BoneTown
+@if `p69 is 10 then `s01 is GumTown
+@if `p69 is 11 then do
+ @begin
+ ;TeamHouse1
+ @readfile tltname1.dat
+`s01
+ @end
+@if `p69 is 12 then do
+ @begin
+ ;TeamHouse2
+ @readfile tltname2.dat
+`s01
+ @end
+@if `p69 is 13 then do
+ @begin
+ ;TeamHouse3
+ @readfile tltname3.dat
+`s01
+ @end
+@if `p69 is 14 then do
+ @begin
+ ;TeamHouse4
+ @readfile tltname4.dat
+`s01
+ @end
+@if `p69 is 15 then do
+ @begin
+ ;TeamHouse5
+ @readfile tltname5.dat
+`s01
+ @end
+@if `p69 is 16 then `s01 is BeachSide`xCottage
+@if `p69 is 17 then `s01 is IceLord's`xKeep
+@if `p69 is 18 then `s01 is Castle`xColdrake
+@if `p69 is 19 then `s01 is Wizard's`xTower
+@if `p69 is 20 then `s01 is Northlands`xColiseum
+@if `p69 is 21 then `s01 is Sword`xCastle
+@if `p69 is 22 then `s01 is <opps>
+@if `p69 is 23 then `s01 is Myst`xVille
+@if `p69 is 24 then `s01 is Q-Fortress
+@if `p69 is 25 then `s01 is Torin`xCastle
+@if `p69 is 26 then `s01 is Felicity
+@if `p69 is 27 then `s01 is Odin's`xKeep
+@if `p69 is 28 then `s01 is WoodLand`xUnderground
+@if `p69 is 29 then `s01 is Dragon's`xDen
+@if `p69 is 30 then `s01 is Fortress`xFear
+@if `p69 is 31 then `s01 is Black`xDragon`xCastle
+@if `p69 > 31 then `s01 is No`xHome
+
+
+@#getplace2
+@if `p20 is 0 then `s01 is East`xStoneBrook
+@if `p20 is 1 then `s01 is StoneBrook
+@if `p20 is 2 then `s01 is South`xStoneBrook
+@if `p20 is 3 then `s01 is GreenTree
+@if `p20 is 4 then `s01 is PortTown
+@if `p20 is 5 then `s01 is Knotwood
+@if `p20 is 6 then `s01 is Sosin
+@if `p20 is 7 then `s01 is FlagCity
+@if `p20 is 8 then `s01 is Arrisville
+@if `p20 is 9 then `s01 is BoneTown
+@if `p20 is 10 then `s01 is GumTown
+@if `p20 is 11 then do
+ @begin
+ ;TeamHouse1
+ @readfile tltname1.dat
+`s01
+ @end
+@if `p20 is 12 then do
+ @begin
+ ;TeamHouse2
+ @readfile tltname2.dat
+`s01
+ @end
+@if `p20 is 13 then do
+ @begin
+ ;TeamHouse3
+ @readfile tltname3.dat
+`s01
+ @end
+@if `p20 is 14 then do
+ @begin
+ ;TeamHouse4
+ @readfile tltname4.dat
+`s01
+ @end
+@if `p20 is 15 then do
+ @begin
+ ;TeamHouse5
+ @readfile tltname5.dat
+`s01
+ @end
+@if `p20 is 16 then `s01 is BeachSide`xCottage
+@if `p20 is 17 then `s01 is IceLord's`xKeep
+@if `p20 is 18 then `s01 is Castle`xColdrake
+@if `p20 is 19 then `s01 is Wizard's`xTower
+@if `p20 is 20 then `s01 is Northlands`xColiseum
+@if `p20 is 21 then `s01 is Sword`xCastle
+@if `p20 is 22 then `s01 is GreenTree
+@if `p20 is 23 then `s01 is Myst`xVille
+@if `p20 is 24 then `s01 is Q-Fortress
+@if `p20 is 25 then `s01 is Torin`xCastle
+@if `p20 is 26 then `s01 is Felicity
+@if `p20 is 27 then `s01 is Odin's`xKeep
+@if `p20 is 28 then `s01 is WoodLand`xUnderground
+@if `p20 is 29 then `s01 is Dragon's`xDen
+@if `p20 is 30 then `s01 is Fortress`xFear
+@if `p20 is 31 then `s01 is Black`xDragon`xCastle
+@if `p20 > 31 then `s01 is No`xHome
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/myst.ref b/xtrn/lord2/cnw/myst.ref
new file mode 100644
index 0000000000000000000000000000000000000000..73de46c8640f9b53be595ab9bee8c0ac7ed6783c
--- /dev/null
+++ b/xtrn/lord2/cnw/myst.ref
@@ -0,0 +1,1893 @@
+; Script file MYST.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:21 2001
+
+@DECLARE mystville 000000913
+@DECLARE healer 000001005
+@DECLARE guy 000002710
+@DECLARE bank 000003383
+@DECLARE bankstart 000003507
+@DECLARE bankagain 000004598
+@DECLARE deposit 000006051
+@DECLARE withdraw 000006601
+@DECLARE trip 000007542
+@DECLARE weapon 000009030
+@DECLARE arstart 000009084
+@DECLARE wish 000009651
+@DECLARE mtop 000009713
+@DECLARE fishing 000014000
+@DECLARE fishcast 000014618
+@DECLARE slotstart 000016505
+@DECLARE slots 000017568
+@DECLARE ending 000027208
+@DECLARE crapstart 000027332
+@DECLARE craps 000027376
+@DECLARE begin1 000028471
+@DECLARE nextroll 000029505
+@DECLARE hit 000029963
+@DECLARE win 000030014
+@DECLARE crapout 000030373
+@DECLARE lose 000030417
+@DECLARE bottom 000030759
+@DECLARE nomoney 000030804
+@DECLARE done 000030909
+@NOCHECK
+; End of .REF index
+
+@#mystville
+@bitset `t92 6 1
+@do map is 1330
+@do x is 41
+@do y is 18
+@drawmap
+@update
+
+@#healer
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%The Healers
+
+`2 Nathan 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," `2Nathan 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," `2Nathan laughs.
+
+`k
+@drawmap
+@update
+
+@#Guy
+;Gaurds the house
+
+@BUSY
+@DO `v01 is 1
+@SHOW
+`r0`c `r1 You approach the hulking gaurd `r0
+
+ `2Halt, how goes there, no one can enter unless they pay the fee of
+ $10,000, otherwise scram.
+@DO WRITE
+`x`x
+@CHOICE
+
+>&money 9999 Give him 10000 dollars
+You don't have enought money to enter
+@IF RESPONSE IS 1 THEN DO
+@Begin
+@Show
+`\`\ `$"Here you go,"`2 you say as you pay the gaurd.
+`\`k
+@do money - 10000
+@DRAWMAP
+@UPDATE
+@DO SAYBAR
+`2You entered the building.
+@CLOSESCRIPT
+@End
+@IF RESPONSE IS 2 THEN DO
+@Begin
+@Show
+`\`\ `2You wish you had the money to go in...
+`\`k
+@DO MOVEBACK
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+
+@#bank
+@do `v01 is 1
+@do `p30 is 11
+@offmap
+@do moveback
+@do `s09 is myst
+@routine DONEQUEST in VAULTS.REF
+@label bankstart
+@show
+`r0`c `r1 `%The Bank `r0
+
+`2 A young clerk eyes you nervously.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdraw.
+=&bank 0 Apply for an account here.
+Leave
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last question?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookkeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+
+
+@drawmap
+@update
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#Trip
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2Would you like to get a ride? (`$$500`2) [`0Y`2\`0N`2]: `x
+@do readspecial `s01 YN
+@if `s01 is Y then do
+ @begin
+ @if money < 500 then do
+ @begin
+ @show
+ `\`\ You don't have enough money for a ride!"
+ `k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do money - 500
+ @show
+`\`\ `r0`c `r1 Stables! `r0
+
+ `2Where would you like to go? The only place we don't give rides
+ to is Arrisville, cause it would cost too much for us.
+`\`k
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Green Tree
+Porttown
+Flag City
+Bone Town
+Sosen Village
+Stonepass Lodge
+Leave
+@if response is 1 then do
+ @begin
+ ;Green Tree
+ @do x is 54
+ @do y is 12
+ @do map is 1356
+ @end
+
+@if response is 2 then do
+ @begin
+ ;Porttown
+ @do x is 43
+ @do y is 16
+ @do map is 956
+ @end
+
+@if responce is 3 then do
+ @begin
+ ;Flag City
+ @do x is 71
+ @do y is 18
+ @do map is 1092
+ @end
+
+@if responce is 4 then do
+ @begin
+ ;Bone Town
+ @do x is 39
+ @do y is 18
+ @do map is 1572
+ @end
+
+@if responce is 5 then do
+ @begin
+ ;sosen village
+ @do x is 32
+ @do y is 8
+ @do map is 456
+ @end
+
+@if responce is 6 then do
+ @begin
+ ;Stone village
+ @do x is 35
+ @do y is 12
+ @do map is 880
+ @end
+
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#WEAPON
+@offmap
+@do moveback
+@do `v01 is 1
+@label arstart
+@show
+`r0`c `%Myst's Weapons & Potions
+
+`2 You see lots of choices of weapons that can be bought in
+ in the store.
+
+@do write
+`x`x
+@choice
+Examine his weaponry
+Examine his potions
+Go outside.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 6
+ 4
+ 9
+ 15
+ 16
+ 38
+ 36
+ 49
+ 39
+ 58
+ @end
+
+@if responce is 2 then do begin
+ @begin
+@buymanager
+ 5
+ 40
+ 55
+ @end
+
+@if responce not 3 then goto arstart
+@drawmap
+@update
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#wish
+; Getting a FREE wish
+ @offmap
+ @do moveback
+ @label mtop
+ @do `v01 is 1
+ @show
+`r0`c `%Myst's Wishing Store
+
+`2 As you enter the building you see a mysterious women, and a crystal
+ball infront of her. She tells you to come closer for a FREE wish.
+
+@do write
+`x`x`x`x
+@choice
+Talk to the woman
+Leave the place
+@show
+@if response is 1 then do
+ @begin
+
+; Checking if Data file exists... if not write fake one (don't want this
+; program to crash out)
+
+@if myst&playernum.txt exists false then do begin
+@begin
+@writefile myst&playernum.txt
+01/01/1988
+`s02
+@end
+
+; Read the players data file compare it to todays date. If it equals
+; todays date then exit out with message, else do the routine
+
+@readfile myst&playernum.txt
+`s01
+`s02
+@do `s05 is &date
+@if `s01 not `s05 then do
+ @begin
+ @show
+`c
+ `2 You decided to go to the strange woman to see what she had to say
+ to you. You come closer, and she says that you are to have a FREE wish.
+ You recieve`l. `l. `l. `l. `\
+
+@do `p20 random 11 1
+;
+; Random things that you can get
+;
+; 1 - Extra Gold
+; 2 - Extra Muscle
+; 3 - Extra Dodge
+; 4 - if Neg alignment (Eviler) If positive (nicer)
+; 5 - A healing potion (5 point one)
+; 6 - a red potion (5 hit points)
+; 7 - a silver potion (muscle)
+; 8 - a gold potion (dodge)
+; 9 - pie
+; 10 - quest point
+; 11 - gem
+
+@if `p20 is 1 then do
+@begin
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p21 is `v09
+ @do `p21 - 1
+; Do the math, You'll get Gold = level * level * 10
+ @do `p21 * `p21
+ @do `p21 * 10
+ @show
+`% Richer! `2 In your hand appears `$`p21`2 gold!`\
+`2 You look at the gold, then leave happly.`\`\`k
+ @do money + `p21
+@end
+
+@if `p20 is 2 then do begin
+@begin
+ @show
+`% Stronger! `2 You feel stronger! (1 muscle point)`\
+`2 You look at your self and leave.`\`\`k
+ @do `p04 + 1
+@end
+
+@if `p20 is 3 then do begin
+@begin
+ @show
+`% Tougher! `2 You get 1 point toughness!`\
+`2 You feel tougher, and you then leave.`\`\`k
+ @do `p05 + 1
+@end
+
+@if `p20 is 4 then do begin
+@begin
+ @if `p07 less 0 then do begin
+ @begin
+ @show
+`2 You truely are `% EVIL`2. I can see it in you. I will help you with
+the way you choose to be. You lose 1 alignment.`\`\`k
+ @do `p07 - 1
+ @end
+
+ @if `p07 more 0 then do begin
+ @begin
+ @show
+`2 You truely are `%GOOD`2. I can see it in you. I will help you with
+the way you choose to be. You gain 1 alignment.`\`\`k
+ @do `p07 + 1
+ @end
+
+ @if `p07 equals 0 then do begin
+ @begin
+ @show
+`2 You truely are `%GOOD`2. I can see it in you. I will help you with
+the way you choose to be. You gain 1 alignment.`\`\`k
+ @do `p07 + 1
+ @end
+@end
+
+@if `p20 is 5 then do begin
+@begin
+ @show
+`2A Green Potion! This potion will heal 10 hitpoints if you drink it!`\`\`k
+ @do `i05 + 1
+@end
+
+@if `p20 is 6 then do begin
+@begin
+ @show
+`2A Red Potion! This potion will give you 5 hipoints if you drink it!`\`\`k
+ @do `i52 + 1
+@end
+
+@if `p20 is 7 then do begin
+@begin
+ @show
+`2A Gold Potion! This potion will give you extra muscles if you drink it!`\`\`k
+ @do `i53 + 1
+@end
+
+@if `p20 is 8 then do begin
+@begin
+ @show
+`2A Silver Potion! This potion will give you extra dodges if you drink it!`\`\`k
+ @do `i54 + 1
+@end
+
+@if `p20 is 9 then do begin
+@begin
+ @show
+`% A Pie! `2 You get an extra pie!`\`\`k
+ @do `i08 + 1
+@end
+
+@if `p20 is 10 then do begin
+@begin
+ @show
+`% Quest! `2 You get an extra quest point!`\`\`k
+ @do `p18 + 1
+@end
+
+@if `p20 is 11 then do begin
+@begin
+ @show
+`% A Gem! `2 You get an extra gem!`\`\`k
+ @do `p19 + 1
+@end
+
+
+
+@if myst&playernum.txt exists true then delete myst&playernum.txt
+@writefile myst&playernum.txt
+&date
+`s02
+@do goto mtop
+@end
+
+@if `s01 is `s05 then do
+ @begin
+ @show
+`2`\`\You already wished to day. Try again tomorrow!
+`\`\`k
+ @do goto mtop
+ @end
+
+ @drawmap
+ @update
+ @closescript
+@end
+
+@if response is 2 then do
+@begin
+ @show
+`\`\
+`2 You decide not to make a wish right now.
+`\
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+
+@show
+`\`\
+`2 This is under construction!
+`\`\`k
+@do goto mtop
+
+@drawmap
+@update
+@closescript
+@end
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#FISHING
+;Fishing dock...
+@do moveback
+
+@if `i28 < 1 then do
+ @begin
+ ;person doesn't have fishing pole
+ @DO SAYBAR
+`2You doubt you would catch anything with your s&weapon...
+ @closescript
+ @end
+
+
+@if `t10 < 1 then do
+ @begin
+ @do saybar
+You have caught all the fish in the stream. Maybe tomorrow.
+ @closescript
+ @end
+
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2Wanna try your luck fishing? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is N then do
+ @begin
+ @do saybar
+Maybe later when the fish are biting.
+ @closescript
+ @end
+
+@label fishcast
+
+@do `p20 is `i29
+@do `p20 + `i30
+@do `s01 is `p20
+@if `s01 is 0 then `s01 is no
+
+@show
+`r0`c `r1 `%The Fishing Dock `r0
+
+ `2You sit yourself down on the dock and relax a bit.
+
+ You have `s01 fish.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Cast far
+Cast short
+Get up and leave
+@if responce is 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if response is 1 then do
+ @begin
+ @do `p20 random 80 20
+ @show
+`\`\ `2You whip your rod fast and watch as your hook plops down
+ about `0`p20`2 feet away.
+
+@end
+
+@if response is 2 then do
+ @begin
+ @do `p20 random 20 1
+ @show
+`\`\ `2You gently cast the pole. Your hook makes a soft splash
+ about `0`p20 `2feet away.
+
+@end
+
+
+@do write
+ `2You wait.`l.`l.`l.`l.
+@if `t10 < 1 then do
+ @begin
+ @show
+`4No fish are biting.`2
+
+ It looks like the action is finished for today.
+
+`k
+ @do goto fishcast
+ @end
+@do `p20 random 2 1
+@if `p20 is 1 then do
+ @begin
+ @show
+`4Nothing happens.
+
+`2 You reel the line back in.
+
+`k
+ @do goto fishcast
+ @end
+@if `p20 is 2 then do
+ @begin
+ @show
+`%You have a bite!`2
+
+@do write
+`k
+@do `p20 random 4 1
+@IF `P20 IS 1 then do
+ @begin
+ ;catching a special fish
+ @show
+ The fish is suprisingly strong! But you reel it in slowly...
+
+@do write
+`k
+@do `p20 random 4 1
+@IF `P20 IS 1 then do
+ @begin
+ @show
+ `bTHE LINE BREAKS!
+
+ `2The mighty fish has escaped.
+
+`k
+ @do goto fishcast
+ @end
+ @show
+ `2You have just caught a `0Sparkling Green Salmon`2!
+`\`k
+ @do `i30 + 1
+ @do `t10 - 1
+ @do goto fishcast
+ @end
+
+ @show
+ You slowly reel the fish to shore.
+
+`k You have caught a Salmon.
+
+`k
+ @do `i29 + 1
+ @do `t10 - 1
+ @do goto fishcast
+ @end
+
+
+ @end
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#slotstart
+@show
+`r0`c `r1 Welcome to the slot machines! `r0
+
+ `0Payoffs are:`2
+
+ `03 Bars`2....................................................`0100 `2to `01
+ 3 Bells`2....................................................`080`2 to `01
+ 3 Lemons`2...................................................`050 `2to `01
+ 3 Plums`2....................................................`030 `2to `01
+ 3 Peaches`2..................................................`025 `2to `01
+ 3 Oranges`2..................................................`010 `2to `01
+ 2 Bars & 1 Bell`2............................................`010 `2to `01
+ 2 Bells & 1 Lemon`2...........................................`09 `2to `01
+ 2 Lemons & 1 Plum`2...........................................`08 `2to `01
+ 2 Plums & 1 Peach`2...........................................`07 `2to `01
+ 2 Peaches & 1 Orange`2........................................`05 `2to `01
+ 2 Oranges & Anything`2........................................`02 `2to `01
+
+`k
+@do `v01 is 1
+@do goto slots
+
+@#slots
+@busy
+@do moveback
+@do `p20 is 0
+@do `p21 is 0
+@do `p22 is 0
+@do `p23 is 0
+@do `p24 is 0
+@do `p25 is 0
+@show
+`r0`c `% `r1 Pulling your lever `r0
+
+`2 You now have: `$$&money`2. Put how much in the machine? `2(`0`p33`2 gambles left)
+
+@do write
+`x`x
+@choice
+$1
+$2
+$5
+$10
+$20
+Show payoffs
+Leave
+@if response is 6 then goto slotstart
+
+@if responce = 1 then do
+ @begin
+ @do `p21 is 1
+ @end
+@if responce = 2 then do
+ @begin
+ @do `p21 is 2
+ @end
+@if responce = 3 then do
+ @begin
+ @do `p21 is 5
+ @end
+@if responce = 4 then do
+ @begin
+ @do `p21 is 10
+ @end
+@if responce = 5 then do
+ @begin
+ @do `p21 is 20
+ @end
+@if responce = 7 then do
+ @begin
+ @do goto ending
+ @end
+@if money < `p21 then do
+ @begin
+ @show
+
+ `4You don't have that much money!
+ @key
+ @do goto slots
+ @end
+
+@if `p33 < 1 then do
+ @begin
+ @show
+`r0`c `r1 `%You grab the level firmly `r0
+
+`2 `4A hand catches yours before you can pull.
+`\`k `0"You've gambled enough for today we think, kid. Come back
+ tomorrow," `2 a greasy looking fellow explains.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+@do `p33 - 1
+
+@show
+`\`\ `2You pull the lever as hard as you can.`\
+@do `p22 random 6 1
+@if `p22 = 1 then do
+ @begin
+ @show
+ `%Bar
+ @do `p23 + 300000
+ @end
+@if `p22 = 2 then do
+ @begin
+ @show
+ `7Bell
+ @do `p23 + 20000
+ @end
+@if `p22 = 3 then do
+ @begin
+ @show
+ `$Lemon
+ @do `p23 + 3000
+ @end
+@if `p22 = 4 then do
+ @begin
+ @show
+ `5Plum
+ @do `p23 + 100
+ @end
+@if `p22 = 5 then do
+ @begin
+ @show
+ `6Peach
+ @do `p23 + 20
+ @end
+@if `p22 = 6 then do
+ @begin
+ @show
+ `6Orange
+ @do `p23 + 3
+ @end
+@do `p22 random 6 1
+@if `p22 = 1 then do
+ @begin
+ @show
+ `%Bar
+ @do `p23 + 300000
+ @end
+@if `p22 = 2 then do
+ @begin
+ @show
+ `7Bell
+ @do `p23 + 20000
+ @end
+@if `p22 = 3 then do
+ @begin
+ @show
+ `$Lemon
+ @do `p23 + 3000
+ @end
+@if `p22 = 4 then do
+ @begin
+ @show
+ `5Plum
+ @do `p23 + 100
+ @end
+@if `p22 = 5 then do
+ @begin
+ @show
+ `6Peach
+ @do `p23 + 20
+ @end
+@if `p22 = 6 then do
+ @begin
+ @show
+ `6Orange
+ @do `p23 + 3
+ @end
+@do `p22 random 6 1
+@if `p22 = 1 then do
+ @begin
+ @show
+ `%Bar
+ @do `p23 + 300000
+ @end
+@if `p22 = 2 then do
+ @begin
+ @show
+ `7Bell
+ @do `p23 + 20000
+ @end
+@if `p22 = 3 then do
+ @begin
+ @show
+ `$Lemon
+ @do `p23 + 3000
+ @end
+@if `p22 = 4 then do
+ @begin
+ @show
+ `5Plum
+ @do `p23 + 100
+ @end
+@if `p22 = 5 then do
+ @begin
+ @show
+ `6Peach
+ @do `p23 + 20
+ @end
+@if `p22 = 6 then do
+ @begin
+ @show
+ `6Orange
+ @do `p23 + 3
+ @end
+@do `p24 is `p21
+@if `p23 = 900000 then do
+ @begin
+ @show
+
+ `%Jackpot!!! `0100 `2to `01`2 payoffs!!
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 200
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 500
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 1000
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 2000
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 60000 then do
+ @begin
+ @show
+
+ `2You win at `080`2 to `01`2 payoffs!
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 80
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 160
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 400
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 800
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 1600
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 9000 then do
+ @begin
+ @show
+
+ `2You win at `050`2 to `01`2 payoffs!
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 250
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 500
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 1000
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 300 then do
+ @begin
+ @show
+
+ `2You win at `030`2 to `01`2 payoffs!
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 30
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 60
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 150
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 300
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 600
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 60 then do
+ @begin
+ @show
+
+ `2You win at `025`2 to `01`2 payoffs!
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 25
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 125
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 250
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 500
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 9 then do
+ @begin
+ @show
+
+ `2You win at `010`2 to`0 1`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 200
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 620000 then do
+ @begin
+ @show
+
+ `2You win at `010`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 200
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 43000 then do
+ @begin
+ @show
+
+ `2You win at `09`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 9
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 18
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 45
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 90
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 180
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 6100 then do
+ @begin
+ @show
+
+ `2You win at `08`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 8
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 16
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 40
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 80
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 160
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 220 then do
+ @begin
+ @show
+
+ `2You win at `07`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 7
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 14
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 35
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 70
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 140
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 43 then do
+ @begin
+ @show
+
+ `2You win at `05`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 5
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 25
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 100
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 300006 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 2
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 4
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 40
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 20006 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 2
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 4
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 40
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 3006 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 2
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 4
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 40
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 106 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 2
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 4
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 40
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 26 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 1 then do
+ @begin
+ @do money + 2
+ @end
+ @if `p21 = 2 then do
+ @begin
+ @do money + 4
+ @end
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 20 then do
+ @begin
+ @do money + 40
+ @end
+ @key
+ @do goto slots
+ @end
+@show
+
+ `2I'm sorry, but you `4lose`2 your bet of: `$$`p21
+
+@if `p21 = 1 then do
+ @begin
+ @do money - 1
+ @end
+@if `p21 = 2 then do
+ @begin
+ @do money - 2
+ @end
+@if `p21 = 5 then do
+ @begin
+ @do money - 5
+ @end
+@if `p21 = 10 then do
+ @begin
+ @do money - 10
+ @end
+@if `p21 = 20 then do
+ @begin
+ @do money - 20
+ @end
+@key
+@do goto slots
+
+@#ending
+@drawmap
+@update
+@closescript
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#crapstart
+
+@do `v01 is 1
+@do goto craps
+
+@#craps
+@do moveback
+@busy
+@do `p24 is 0
+@do `p21 is money
+@show
+`r0`c `r1 Playing some Craps `r0
+
+ `2You have `$$`p21`2. How much do you want to wager? `2(`0`p33 `2gambles left`2)
+
+@do write
+`x`x
+@choice
+$5
+$10
+$20
+$50
+$100
+Help on craps
+Leave
+@if response is 6 then do
+ @begin
+ @do goto help
+ @end
+
+
+@if responce = 1 then do
+ @begin
+ @if `p21 < 5 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 5
+ @do goto begin1
+ @end
+@if responce = 2 then do
+ @begin
+ @if `p21 < 10 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 10
+ @do goto begin1
+ @end
+@if responce = 3 then do
+ @begin
+ @if `p21 < 20 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 20
+ @do goto begin1
+ @end
+@if responce = 4 then do
+ @begin
+ @if `p21 < 50 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 50
+ @do goto begin1
+ @end
+@if responce = 5 then do
+ @begin
+ @if `p21 < 100 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 100
+ @do goto begin1
+ @end
+@if response = 7 then do
+ @begin
+ @do goto ending
+ @end
+@label begin1
+@if `p33 < 1 then do
+ @begin
+ @show
+`r0`c `r1 `%You carefully spit on the dice for good luck. `r0
+
+`2 `4A hand catches yours before you can roll.
+`\`k `0"You've gambled enough for today we think, kid. Come back
+ tomorrow," `2 a greasy looking fellow explains.
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@do `p33 - 1
+@show
+`r0`c `r1 `%You carefully spit on the dice for good luck. `r0
+
+@do `p22 random 5 1
+@do `p23 random 5 1
+@do `p24 + `p22
+@do `p24 + `p23
+@show
+ `0First Roll....
+
+@show
+ `2Die #1`0: `p22
+ `2Die #2:`0 `p23
+
+ `2Total: `0`p24
+
+@if `p24 = 2 then do
+ @begin
+ @show
+
+ `4Snake Eyes!
+ @do goto lose
+ @end
+@if `p24 = 3 then do
+ @begin
+ @show
+ `4Cock Eyes!
+ @do goto lose
+ @end
+@if `p24 = 12 then do
+ @begin
+ @show
+ `4Boxcars!
+ @do goto lose
+ @end
+@if `p24 = 7 then do
+ @begin
+ @show
+ `%A Natural!
+ @do goto win
+ @end
+@if `p24 = 11 then do
+ @begin
+ @show
+ `%A Natural!
+ @do goto win
+ @end
+@show
+ `0`p24`2 is your point.
+@label nextroll
+@do `p25 is 0
+@show
+
+ Press a key to roll again.
+@do `p22 random 5 1
+@do `p23 random 5 1
+@do `p25 + `p22
+@do `p25 + `p23
+@show
+`\`k `2Die #1: `0`p22
+ `2Die #2: `0`p23
+
+ `2Total: `0`p25
+@if `p25 = `p24 then do
+ @begin
+ @do goto hit
+ @end
+@if `p25 = 7 then do
+ @begin
+ @do goto crapout
+ @end
+@if `p25 = 11 then do
+ @begin
+ @do goto crapout
+ @end
+@show
+
+ `2Not your point, keep rolling the bones!
+@do goto nextroll
+@label hit
+@show
+
+ `0Yes! You hit your point.
+@label win
+@show
+
+ `2You win your bet of: `$$`p20`2!
+@if `p20 = 5 then do
+ @begin
+ @do money + 5
+ @end
+@if `p20 = 10 then do
+ @begin
+ @do money + 10
+ @end
+@if `p20 = 20 then do
+ @begin
+ @do money + 20
+ @end
+@if `p20 = 50 then do
+ @begin
+ @do money + 50
+ @end
+@if `p20 = 100 then do
+ @begin
+ @do money + 100
+ @end
+@do goto bottom
+@label crapout
+@show
+
+ `4You crapped out!
+@label lose
+@show
+
+ `2You lose your bet of: `$$`p20`2.
+@if `p20 = 5 then do
+ @begin
+ @do money - 5
+ @end
+@if `p20 = 10 then do
+ @begin
+ @do money - 10
+ @end
+@if `p20 = 20 then do
+ @begin
+ @do money - 20
+ @end
+@if `p20 = 50 then do
+ @begin
+ @do money - 50
+ @end
+@if `p20 = 100 then do
+ @begin
+ @do money - 100
+ @end
+@label bottom
+@show
+`\`k
+@do goto craps
+@label nomoney
+@show
+`\`\ `4I'm sorry, but you don't have enough money for that bet.
+
+`k
+@do goto craps
+
+@#done
diff --git a/xtrn/lord2/cnw/mythran.ref b/xtrn/lord2/cnw/mythran.ref
new file mode 100644
index 0000000000000000000000000000000000000000..4c5ff9e6f3f5426cb49f5690f99bcb48c4d2c940
--- /dev/null
+++ b/xtrn/lord2/cnw/mythran.ref
@@ -0,0 +1,1064 @@
+; Script file MYTHRAN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:25 2001
+
+@DECLARE sign 000001005
+@DECLARE rebecca 000001087
+@DECLARE startrebecca 000001323
+@DECLARE endrebecca 000005688
+@DECLARE mythran 000005778
+@DECLARE startmythran 000005820
+@DECLARE talkmythran 000006274
+@DECLARE buymythran 000008255
+@DECLARE fire 000012502
+@DECLARE moneytree 000012605
+@DECLARE herbs 000012975
+@DECLARE moneytree 000013074
+@DECLARE bed1 000013100
+@DECLARE bed2 000013169
+@DECLARE coatrack 000013286
+@DECLARE monster 000013351
+@DECLARE monster1 000013728
+@DECLARE monster2 000014262
+@DECLARE monster3 000014795
+@DECLARE monster4 000015329
+@DECLARE monster5 000015853
+@DECLARE monster6 000016429
+@DECLARE isfight 000017037
+@DECLARE monster11 000017424
+@DECLARE monster12 000017945
+@DECLARE monster13 000018539
+@DECLARE monster14 000019093
+@DECLARE monster15 000019642
+@DECLARE nomore 000020203
+@NOCHECK
+; End of .REF index
+
+; okay guys, dont rip off too much. :)
+
+@#sign
+@do moveback
+@do saybar
+`%Mythrans Cottage v1.12 - by Heath Axton
+
+@#rebecca
+@do moveback
+@datanewday mythran2.idf
+@dataload mythran2.idf &playernum `p20
+@if `p20 not 1 then goto startrebecca
+
+@do saybar
+`#Rebecca `%is too busy to speak with you. Maybe tommorow.
+@closescript
+@end
+
+@label startrebecca
+@busy
+@do `v01 is 1
+@show
+`r0`c `#`r1 CHATTING UP REBECCA `r0
+
+`2 you take a seat and casually start up a conversation with the GORGEOUS
+`2 rebecca ...
+
+@do write
+`x
+@choice
+`#compliment her cooking.
+=`v06 0 `#smile at her seductively.
+=`v06 0 `#kiss her.
+=`v06 0 `#grab her backside.
+=`v06 0 `#touch her chest.
+=`v06 0 `#ask her to join you in her room.
+@if responce is 1 then do begin
+@begin
+@show
+`\`\
+ `$"Hey, that salad your making there looks terrific! So you going to put
+ that collection of rat guts in now or later?"
+ `k
+ `0"Why thankyou `n!`0" She then`l.`l.`l.`l.
+
+ `%LEANS OVER AND KISSES YOU ON THE CHEEK!
+
+ `0"That is very sweet of you."
+
+ `%1 CHARM AND ALIGNMENT WAS GAINED.
+
+`k
+@do `p08 + 1
+@do `p07 + 1
+@do `v01 is 7
+@do goto endrebecca
+@end
+
+@if responce is 2 then do begin
+@begin
+@show
+`\`\
+ `2 You smile at her seductively.`l.`l.`l.`l.
+@if `p08 > 1 then do begin
+@begin
+@show
+
+ `%SHE SMILES WARMLY AND ASKS IF YOU WOULD LIKE SOME COFFEE!
+
+ `%1 CHARM AND 200 EXPERIENCE WAS GAINED.
+
+`k
+
+@do `p08 + 1
+@do `p01 + 200
+@do `v01 is 7
+@do goto endrebecca
+@end
+@if `p08 < 2 then do begin
+@show
+
+ `4SHE FROWNS AND SAYS SHE IS BUSY!
+
+ `4YOU LOSE 1 CHARM.
+
+`k
+@do `p08 - 1
+@do `v01 is 7
+@do goto endrebecca
+@end
+
+@if responce is 3 then do begin
+@begin
+@show
+`\`\
+ `2 As she turns around, you lean over and kiss her.
+ `k
+ `2 She looks astonished! She`l.`l.`l.`l.
+@if `p08 > 5 then do begin
+@begin
+@show
+
+ `%PULLS YOU TOWARDS HER AND KISSES YOU HARD!
+
+ `%WAY TO GO! :)
+
+ `%4 CHARM AND 400 EXPERIENCE WAS GAINED.
+
+`k
+
+@do `p08 + 4
+@do `p01 + 400
+@do `v01 is 7
+@do goto endrebecca
+@end
+@if `p08 < 5 then do begin
+@show
+
+ `4SPITS THEN SLAPS YOU ACROSS THE FACE.
+
+ `4YOU LOSE 2 CHARM
+
+`k
+@do `p08 - 2
+@do `v01 is 7
+@do goto endrebecca
+@end
+
+@if responce is 4 then do begin
+@begin
+@show
+`\`\
+ `2You drop your s&weapon on the kitchen floor.
+
+ `0"Damn! could you please get that for me?"
+
+ `$"sure."
+ `k
+ `2As she bends over you run your hands over her well shaped backside`l.`l.`l.`l.
+
+@if `p08 > 15 then do begin
+@begin
+@show
+
+ `%SHE SEEMS TO BE TAKING A VERY LONG TIME TO PICK UP YOUR S&WEAPON!
+
+ `%4 CHARM AND 600 EXPERIENCE WAS GAINED.
+
+`k
+
+@do `p08 + 4
+@do `p01 + 600
+@do `v01 is 7
+@do goto endrebecca
+@end
+@if `p08 < 15 then do begin
+@show
+
+ `4SHE TURNS AROUND AND KICKS YOU IN THE GROIN!
+
+ `4YOU LOSE 3 CHARM AND YOUR HITPOINTS GO DOWN. WAAAY DOWN.
+
+`k
+@do `p08 - 3
+@do `p02 = 1
+@do `v01 is 7
+@do goto endrebecca
+@end
+
+@if responce is 5 then do begin
+@begin
+@show
+`\`\
+ `2You grab Rebecca and put her on the table. You take a seat and run your
+ `2hands all over her chest`l.`l.`l.`l.
+
+@if `p08 > 15 then do begin
+@begin
+@show
+
+ `%SHE HELPS YOU BY UNBUTTONING HER SHIRT!
+
+ `%Yeah Yeah!
+
+ `%5 CHARM AND 800 EXPERIENCE WAS GAINED.
+
+`k
+
+@do `p08 + 5
+@do `p01 + 800
+@do `v01 is 7
+@do goto endrebecca
+@end
+@if `p08 < 15 then do begin
+@do `p02 / 2
+@show
+
+ `4SHE GRABS A KITCHEN KNIFE AND STABS YOU IN THE FACE!
+
+ `$"My face! my face! My beautiful face!" `2You scream as blood fills your eyes.
+
+ `4YOU LOSE 8 CHARM AND `p02 HITPOINTS!
+
+`k
+@do `p08 - 8
+@do `v01 is 7
+@do goto endrebecca
+@end
+
+@if responce is 6 then do begin
+@begin
+@show
+`\`\
+ `$"Hey Rebecca.. umm, I was wondering if you wanted to show me your room?"
+ `k
+ `2She leads you into her room. just as she closes the door you grab her and
+ `2throw her onto the bed, tearing her clothes off`l.`l.`l.`l.`l.`l.
+
+@if `p08 > 30 then do begin
+@begin
+@do `p21 = `p04 * 3
+@show
+
+ `%`p21 MINUTES LATER YOU COME OUT COMPLETELY SATISFIED!
+
+ `%REBECCA TELLS YOU TO COME BACK ANY TIME!
+
+ `%5 CHARM, 1000 EXPERIENCE AND 2 MUSCLE WAS GAINED.
+
+`k
+
+@do `p04 + 2
+@do `p08 + 5
+@do `p01 + 1000
+@do `p34 + 1
+@do `v01 is 7
+@do goto endrebecca
+@end
+@if `p08 < 30 then do begin
+@do `p02 / 2
+@show
+
+ `4SHE JUMPS UP, PUNCHES YOU IN THE HEAD, AND RUNS DOWN THE HALL.
+
+ `0"MYTHRAN! `n `0JUST TRIED TO `4RAPE `0ME!"
+
+ `4YOU LOSE 10 CHARM AND YOUR HITPOINTS GO DOWN. WAAAY DOWN.
+
+`k
+@do `p08 - 8
+@do `p02 = 1
+@do `v01 is 7
+@do goto endrebecca
+@end
+
+@if responce is 7 then do
+@label endrebecca
+@datasave mythran2.idf &playernum 1
+;@closescript
+@end
+@drawmap
+@update
+
+@#mythran
+@do moveback
+@busy
+@label startmythran
+@do `v01 is 1
+@show
+`r0`c `%`r1 HAMMERING THE HERMIT `r0
+
+`2 Mythran is a strange old man, in his eyes you can see great wisdom.
+ Although the town people call him a hermit, he does prefer company, and
+ greets you warmly.
+
+`0 "Please `n`0, take a seat."
+
+@do write
+`x`x
+@choice
+talk to mythran
+I hear you sell crap..
+ask for free stuff
+leave him alone.
+@show
+
+@if responce is 1 then do
+@begin
+@do `v01 is 1
+@label talkmythran
+@show
+`r0`c `%`r1 TALKING TO MYTHRAN `r0
+
+`2 You may talk to Mythran about any one of the following things.
+
+@do write
+`x`x
+@choice
+why the hell do you live on an island?
+who is this `#rebecca `%chick you live with?
+you seem like a man of wisdom, give me some advice.
+stop talking with Mythran.
+@if responce is 1 then do begin
+@begin
+@show
+`\`\
+ `0"Ah, the island.. this place is my refruge. People do not understand
+ `0 me `n`0, Besides, this is the only place that allows me to do my research."
+
+ `$"what do you research you crazy old fool?" `2you ask politely.
+
+ `0"I am researching the effects of combining plant cells with animal cells.
+ `0 just picture it `n`0! your dog not only provides a good pet, but bears
+ `0 a nice crop of tomatoes!"
+
+ `$"What complete crap!" `2you start to burst out laughing.
+
+ `0"Aye, thats what everyone tells me." `2he replies sadly.
+
+`k
+@do `v01 is 1
+@do goto talkmythran
+@end
+
+@if responce is 2 then do begin
+@begin
+@show
+`\`\
+ `0"`#Rebecca `0is my apprentice - although she still has much to learn in the
+ `0 ways of making a good meal, she knows how to make some excellent healing
+ `0 potions, and has even been known to show me a thing or two."
+
+ `$"Cool! so what are my chances of getting her in the sack, old fart?" `2you ask.
+
+ `0"`#REBECCA `0IS MY APPRENTICE! THERE WILL BE NOTHING OF THE SORT!"
+
+ `$"Yeah whatever. Sheez, you don't have to get all worked up about it."
+
+`k
+@do `v01 is 2
+@do goto talkmythran
+@end
+
+@if responce is 3 then do begin
+@begin
+@show
+`\`\
+ `0"Advice eh? well .. I hear that `#Rebecca `0loves the good guys. Her
+ `0 brother was killed by `4Dragon Tooth `0men, so if you have negative
+ `0 alignment.. keep away from her."
+
+`k
+
+@do `v01 is 3
+@do goto talkmythran
+@end
+
+@if responce is 4 then do begin
+ @begin
+ @do goto startmythran
+ @end
+@end
+
+@if responce is 2 then do
+@begin
+@do `v01 is 1
+@label buymythran
+@show
+`r0`c `%`r1 BUYING ITEMS `r0
+
+`0 "Hmmm.. okay, I have a large amount of things I have accumulated
+`0 over the years.. take your pick."
+
+@do write
+`x`x
+@choice
+armor? you got armor?
+I want to buy a weapon.
+what about `#rebeccas `%potions?
+leave
+@if responce is 2 then do begin
+ @begin
+ @show
+ `r0`c `%`r1 BUYING WEAPONS OFF MYTHRAN `r0
+
+ `0"Here is a list of weapons I have found in my travels. They are of no
+ use to me anymore, so you may purchase any of them."
+
+ @buymanager
+9
+15
+38
+35
+39
+@do `v01 is 2
+@do goto buymythran
+ @end
+
+@if responce is 1 then do begin
+ @begin
+ @show
+ `r0`c `%`r1 BUYING ARMOR OFF MYTHRAN `r0
+
+ `0"A while ago a young man came to me for my services, and to repay me
+ he left me all this junk. And seeing as I dont need any of this, you
+ may purchase any of them.
+
+ @buymanager
+12
+13
+37
+59
+ @do `v01 is 1
+ @do goto buymythran
+ @end
+
+@if responce is 3 then do begin
+ @begin
+ @show
+ `r0`c `%`r1 BUYING HEALING POTIONS `r0
+
+ `0"These are the few potions that `#Rebecca `0actually allows me to sell -
+ all money from these potions go directly back to her."
+
+ @buymanager
+5
+40
+55
+ @do `v01 is 3
+ @do goto buymythran
+ @end
+
+@if responce is 4 then do begin
+@begin
+@do goto startmythran
+@end
+@end
+
+@if response is 3 then do
+ @begin
+
+; Checking if Data file exists... if not write fake one (don't want this
+; program to crash out)
+
+@if myth&playernum.idf exists false then do begin
+@begin
+@writefile myth&playernum.idf
+1990
+`s02
+@end
+
+; Read the players data file compare it to todays date. If it equals
+; todays date then exit out with message, else do the routine
+
+@readfile myth&playernum.idf
+`s01
+`s02
+@do `s05 is &date
+@if `s01 not `s05 then do
+ @begin
+ @show
+`c
+ `r0`c `%`r1 ASK, AND THOU SHALT RECEIVE `r0
+
+`0 "Hey Mythran, all the other guys keep on picking on me.. can you help me out?"
+
+`2 After thinking about this new concept for a few minutes, Mythran produces
+`2 a small red box.
+
+`$ "Here my friend, I have something for you."
+`k
+`2 You open the box and find`l.`l.`l.`l.
+
+@do `p20 random 8 1
+;
+; Random Goodies and stuff level dependant
+;
+; 1. Extra Gold
+; 2. Extra Muscle
+; 3. Extra Dodge
+; 4. if Neg alignment (Eviler) If positive (nicer)
+; 5. A healing potion (5 point one)
+
+@if `p20 is 1 then do
+@begin
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p21 is `v09
+ @do `p21 - 1
+; Do the math, You'll get Gold = level * level * 10
+ @do `p21 * `p21
+ @do `p21 * 10
+ @show
+`% A bag of coins! you are now `$`p21`% gold richer!`\`\`\`k
+ @do money + `p21
+@end
+
+@if `p20 is 2 then do begin
+@begin
+ @show
+`% A Blue Potion!
+
+`k
+
+ @do `i40 + 1
+@end
+
+@if `p20 is 3 then do begin
+@begin
+ @if `p07 less 0 then do begin
+ @begin
+ @show
+`0 A small black pill. After swallowing it, you feel a more Evil!
+
+`4 You lose 5 alignment!
+
+`k
+ @do `p07 - 5
+ @end
+
+ @if `p07 more 0 then do begin
+ @begin
+ @show
+`0 A small white pill. After swallowing it, you feel a lot Nicer!
+
+`% You gain 5 alignment!
+
+`k
+ @do `p07 + 5
+ @end
+
+ @if `p07 equals 0 then do begin
+ @begin
+ @show
+`0 A small white pill. After swallowing it, you feel a lot Nicer!
+
+`% You gain 5 alignment!
+
+`k
+ @do `p07 + 5
+ @end
+@end
+
+@if `p20 is 4 then do begin
+@begin
+ @show
+`% A `0Green Potion. `%Oh well, cant win them all.`\`\`k
+ @do `i05 + 1
+@end
+
+@if `p20 is 5 then do begin
+@begin
+ @show
+`% A `0Gold Potion!
+
+`k
+ @do `i53 + 1
+@end
+
+@if `p20 is 6 then do begin
+@begin
+ @show
+`% A `0Silver Potion!
+
+`k
+ @do `i54 + 1
+@end
+
+@if `p20 is 7 then do begin
+@begin
+ @show
+`% A `0White Potion!
+
+`k
+ @do `i55 + 1
+@end
+
+@if `p20 is 8 then do begin
+@begin
+ @show
+`% A `0Fishing Pole `%??
+
+`k
+ @do `i28 + 1
+@end
+
+@if myth&playernum.idf exists true then delete myth&playernum.idf
+@writefile myth&playernum.idf
+&date
+`s02
+@do goto startmythran
+@end
+
+@if `s01 is `s05 then do
+ @begin
+ @show
+`2`\`\ Mythran does is too busy help you right now - try again tommorow
+`\`\`k
+ @do goto startmythran
+ @end
+
+ @drawmap
+ @update
+ @closescript
+@end
+
+
+
+@if responce is 4 then do
+@end
+@drawmap
+@update
+
+@#fire
+@do moveback
+@do saybar
+`%that girl sure does know how to get a good fire going ..
+
+
+@#moneytree
+@do moveback
+@datanewday mythran.idf
+@dataload mythran.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+@do `p20 random 100 1
+@do money + `p20
+@do saybar
+`%You find `$$`p20`%! - and who said money doesnt grow on trees.
+
+@datasave mythran.idf &playernum 1
+@closescript
+@end
+
+@do saybar
+`2you have stripped the tree bare - come back tommorow
+
+@#herbs
+@do moveback
+@do saybar
+`%Mythran: `0hey! get the hell away from my herb garden!
+
+@#moneytree
+@do moveback
+
+
+@#bed1
+@do moveback
+@do saybar
+`%this bed is messy and unkept.
+
+@#bed2
+@do moveback
+@do saybar
+`%looks like `#Rebeccas `%bed. hmmm, might come in handy one of these days.
+
+@#coatrack
+@do moveback
+@do saybar
+`%looks like a coat rack
+
+@#monster
+@do `p20 random 6 1
+@if `p20 is 1 then goto monster1
+@if `p20 is 2 then goto monster2
+@if `p20 is 3 then goto monster3
+@if `p20 is 4 then goto monster4
+@if `p20 is 5 then goto monster5
+@if `p20 is 6 then goto monster6
+@if `p20 is 7 then goto monster7
+@if `p20 is 8 then goto monster8
+@if `p20 is 9 then goto monster9
+@if `p20 is 10 then goto monster10
+
+@#monster1
+@fight
+;name
+mutant bat
+;string said when you see him
+something flaps in your face!
+;power move kill string
+you smile as you crush the fallen thing into the ground.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+claws you|3
+bites you|2
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+3
+;gold reward
+14
+;experience
+7
+;hit points
+7
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+huge spider
+;string said when you see him
+you feel something crawling up your leg
+;power move kill string
+you rip each of its legs off one by one.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|4
+poisons you|7
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+1
+;gold reward
+19
+;experience
+10
+;hit points
+12
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+huge rat
+;string said when you see him
+a huge rat drops from the ceiling onto your head!
+;power move kill string
+you crush the dead rat into the ground
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+claws you|3
+bites you|2
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+3
+;gold reward
+12
+;experience
+7
+;hit points
+7
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+acid snail
+;string said when you see him
+you feel something burning into your leg
+;power move kill string
+you decide not to eat this carcass
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+burns you|5
+slimes you|6
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+4
+;gold reward
+18
+;experience
+7
+;hit points
+9
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+large fungus
+;string said when you see him
+you foolishly stood on a yellow patch of ground.
+;power move kill string
+die fungus! you laugh evily. hey cool, there's $3 just lying here.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+spits acid at you|1
+poisons you|2
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+3
+;gold reward
+3
+;experience
+12
+;hit points
+20
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster6
+@fight
+;name
+Joshua Goh
+;string said when you see him
+you stare in terror as an evil asian guy leaps at you with a pencil.
+;power move kill string
+Goh Josh! Goh!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+throws boxes of x-wing vs tie-fighter at you|5
+says a few sentances sarcasticly|6
+makes a fool of himself|10
+NONE|NONE
+NONE|NONE
+;defense
+3
+;gold reward
+400
+;experience
+20
+;hit points
+50
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#isfight
+@do `p20 random 5 1
+@if `p20 is 1 then goto monster11
+@if `p20 is 2 then goto monster12
+@if `p20 is 3 then goto monster13
+@if `p20 is 4 then goto monster14
+@if `p20 is 5 then goto monster15
+@if `p20 is 6 then goto monster16
+@if `p20 is 7 then goto monster17
+@if `p20 is 8 then goto monster18
+@if `p20 is 9 then goto monster19
+@if `p20 is 10 then goto monster20
+
+@#monster11
+@fight
+;name
+pack of wolves
+;string said when you see him
+a tribe of wolves appear from nowhere
+;power move kill string
+you leave the bodies to rot.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+maul you|1
+attack you|1
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+3
+;gold reward
+45
+;experience
+34
+;hit points
+80
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster12
+@fight
+;name
+Ross
+;string said when you see him
+"LORD 2 SUCKS!" you hear from behind.
+;power move kill string
+you carve his body up into little peices and decorate surrounding trees.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+pretends he can program|1
+invades your cupboard|1
+throws rolls of fat|1
+NONE|NONE
+NONE|NONE
+;defense
+3
+;gold reward
+300
+;experience
+4
+;hit points
+100
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster13
+@fight
+;name
+evil fairy
+;string said when you see him
+you hear a tiny voice scream "screw the f***ing flowers!"
+;power move kill string
+you leave the tiny body to stain the ground
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+daks you|1
+pulls your hair|1
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+2
+;gold reward
+4
+;experience
+4
+;hit points
+5
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster14
+@fight
+;name
+rattle snake
+;string said when you see him
+you hear a distinct rattling sound to your left
+;power move kill string
+you leave the tiny body to stain the ground
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|14
+strangles you|12
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+1
+;gold reward
+20
+;experience
+21
+;hit points
+4
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster15
+@fight
+;name
+giant echidna
+;string said when you see him
+that strange rock you just stood on begins to move
+;power move kill string
+you pull out a few of its spikes and stick them in its eyes
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|3
+pricks you|8
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+5
+;gold reward
+21
+;experience
+14
+;hit points
+3
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#NOMORE
+
diff --git a/xtrn/lord2/cnw/npc-sex.ref b/xtrn/lord2/cnw/npc-sex.ref
new file mode 100644
index 0000000000000000000000000000000000000000..b1c7aa38884df5e145fa20eb1ff2b8ae265c9fd3
--- /dev/null
+++ b/xtrn/lord2/cnw/npc-sex.ref
@@ -0,0 +1,885 @@
+; Script file NPC-SEX.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:40 2001
+
+@DECLARE clraction 000002504
+@DECLARE clraction2 000002538
+@DECLARE getgender 000002690
+@DECLARE lines 000003725
+@DECLARE leave 000004656
+@DECLARE stats 000005176
+@DECLARE stats1 000005338
+@DECLARE stats2 000005723
+@DECLARE refresh 000005993
+@DECLARE startsex 000008696
+@DECLARE step2 000010146
+@DECLARE front1 000010935
+@DECLARE kiss 000011726
+@DECLARE kiss1 000011798
+@DECLARE back1 000012523
+@DECLARE step3 000013214
+@DECLARE shirtoff1 000013629
+@DECLARE shirtoff2 000015940
+@DECLARE massage1 000018687
+@DECLARE position 000018967
+@DECLARE selitem 000019305
+@DECLARE itemloop 000019679
+@DECLARE itemend 000019792
+@DECLARE itemuse 000019821
+@DECLARE listen 000022809
+@DECLARE nomore 000023177
+@NOCHECK
+; End of .REF index
+
+; NPC-SEX.REF
+; Requires LoRD2: CNW
+; -called from NPCFLIRT.REF
+; vars used in here.
+; `s01 = npc name
+; `s02 = multi use
+; `s03 = her/his <recalled on LINES so can be used other places>
+; `s04 = she/he <recalled on LINES>
+; `s05 = girl/boy <recalled on LINES>
+; `s06 = dialog line0
+; `s07 = dialog line1
+; `s08 = dialog line2
+; `s09 = dialog line3
+; `s10 = NEW dialog line
+; `p20 = temp var for the current routine
+; `p21 = <not used>
+; `p22 = <not used>
+; `p23 = <not used>
+; `p24 = <not used>
+; `p25 = current npc hp
+; `p26 = the times you flirt-type1
+; `p27 = the times you flirt-type2
+; `p28 = the times you flirt-type3
+; `p29 = sex points for this session
+; `t69: 0:NPC shirt on/off (0=on 1=off) (step1)
+; `t69: 1:NPC pants on/off (step2)
+; `t69: 2:NPC jock/bra on/off (step3)
+; `t69: 3:NPC underwear/panties on/off (sometimes its already off!) (step3)
+; `t69: 4:NPC has hits all flags to start getting nude if 1
+; `t69: 5:NPC has hits all flags for last step of nude if 1
+; `t69: 6:NPC has hits all flags for intercourse if 1
+; `t69: 7:NPC has did cum yet at least 1 time?
+; `t70: 0:PLAYER shirt on/off (0=on 1=off) (step1)
+; `t70: 1:PLAYER pants on/off (step2)
+; `t70: 2:PLAYER jock/bra on/off (step3)
+; `t70: 3:PLAYER underwear/panties on/off (sometimes its already off!) (step3)
+; `t70: 4:PLAYER hits all flags for NPC to feel you can start getting nude if 1
+; `t70: 5:PLAYER hits all flags for NPC to feel last step of nude if 1
+; `t70: 6:PLAYER lost control of situation if 1
+; `t70: 7:PLAYER has did cum yet at least 1 time?
+
+; @routine VD in talk.ref <-- do VD checks and pass it on!
+
+@#CLRACTION
+@do `p20 is 4
+@label CLRACTION2
+@do `p20 + 1
+@do move 50 `p20
+@do write
+`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+@if `p20 < 14 then goto CLRACTION2
+
+@#getgender
+@dataload npc/npcgendr.idf `p70 `p20
+@if `p20 is 0 then do ;straight girl
+ @begin
+ @do `s03 is her
+ @do `s04 is she
+ @do `s05 is girl
+ @end
+@if `p20 is 1 then do ;straight boy
+ @begin
+ @do `s03 is his
+ @do `s04 is he
+ @do `s05 is boy
+ @end
+@if `p20 is 2 then do ;lesbian girl
+ @begin
+ @do `s03 is her
+ @do `s04 is she
+ @do `s05 is girl
+ @end
+@if `p20 is 3 then do ;gay boy
+ @begin
+ @do `s03 is his
+ @do `s04 is he
+ @do `s05 is boy
+ @end
+@if `p20 is 4 then do ;bisexual girl
+ @begin
+ @do `s03 is her
+ @do `s04 is she
+ @do `s05 is girl
+ @end
+@if `p20 is 5 then do ;bisexual boy
+ @begin
+ @do `s03 is his
+ @do `s04 is he
+ @do `s05 is boy
+ @end
+@if `p20 > 5 then do ;OTHER?!?!
+ @begin
+ @do `s03 is it's
+ @do `s04 is it
+ @do `s05 is it
+ @end
+
+@#LINES
+@do `s06 is `s07
+@do `s07 is `s08
+@do `s08 is `s09
+@do `s09 is `s10
+@do move 3 20
+@do write
+`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+@do move 3 20
+@do write
+`s09
+@do move 3 21
+@do write
+`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+@do move 3 21
+@do write
+`s08
+@do move 3 22
+@do write
+`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+@do move 3 22
+@do write
+`s07
+@do move 3 23
+@do write
+`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+@do move 3 23
+@do write
+`s06
+
+@#LEAVE
+@do `s10 is `%You`xget`xa`xlay.
+@routine lines
+@if `p29 < 1 then `s10 is scary
+@if `p29 > 0 then `s10 is bad
+@if `p29 > 9 then `s10 is boring
+@if `p29 > 20 then `s10 is experimental
+@if `p29 > 30 then `s10 is repetitive
+@if `p29 > 50 then `s10 is sexciting
+@if `p29 > 70 then `s10 is the`xtime`xof`xyour`xlife
+@if `p29 > 100 then `s10 is EXCELENT
+@do `p34 + 1
+@do `s10 is `%Your`xpreformance`xwas`x`$`s10`x`x`x`%(`$`p29`%).
+@routine lines
+@do move 30 24
+@key
+@drawmap
+@update
+@closescript
+
+
+@#stats
+@dataload npc/npc-hp.idf `p70 `p20
+@do `s10 is `$`N
+@DO PAD `s10 17
+@do move 5 4
+@do write
+`s10
+@do `s10 is `%`p02
+@DO `p21 IS LENGTH `s10
+@label stats1
+@if `p21 < 5 then do
+ @begin
+ @do `p21 + 1
+ @do `s10 is `x`s10
+ @if `p21 < 5 then goto stats1
+ @end
+@do PAD `s10 5
+@do move 23 4
+@do write
+`s10
+@do `s10 is `%`p03
+@DO PAD `s10 5
+@do move 29 4
+@do write
+`s10
+@do `s10 is `$`s01
+@DO PAD `s10 17
+@do move 5 5
+@do write
+`s10
+@do `s10 is `%`p25
+@DO `p21 IS LENGTH `s10
+@label stats2
+@if `p21 < 5 then do
+ @begin
+ @do `p21 + 1
+ @do `s10 is `x`s10
+ @if `p21 < 5 then goto stats2
+ @end
+@DO PAD `s10 5
+@do move 23 5
+@do write
+`s10
+@do `s10 is `%`p20
+@DO PAD `s10 5
+@do move 29 5
+@do write
+`s10
+
+@#REFRESH
+;layout the screen frames
+@do move 1 1
+@clear screen
+@do move 4 3
+@do write
+`4�����������[ `8stats `4]����������Ŀ
+@do move 4 4
+@do write
+`4� [ / ]�
+@do move 4 5
+@do write
+`4� [ / ]�
+@do move 4 6
+@do write
+`4��������������������������������
+@do move 16 2
+@show
+`3- `#A`5n `#E`5nchanting `#E`5ncounter `#w`5ith `s01 `3-
+@do move 49 4
+@do write
+`4���������[ `8actions `4]��������Ŀ
+@do move 49 5
+@do write
+`4� �
+@do move 49 6
+@do write
+`4� �
+@do move 49 7
+@do write
+`4� �
+@do move 49 8
+@do write
+`4� �
+@do move 49 9
+@do write
+`4� �
+@do move 49 10
+@do write
+`4� �
+@do move 49 11
+@do write
+`4� �
+@do move 49 12
+@do write
+`4� �
+@do move 49 13
+@do write
+`4� �
+@do move 49 14
+@do write
+`4� �
+@do move 49 15
+@do write
+`4������������������������������
+@do move 2 7
+@do write
+`4�����������������[ `8viewer `4]�����������������Ŀ
+@do move 2 8
+@do write
+`4� �
+@do move 2 9
+@do write
+`4� to be used at a later time �
+@do move 2 10
+@do write
+`4� for viewing the actions �
+@do move 2 11
+@do write
+`4� :D �
+@do move 2 12
+@do write
+`4� �
+@do move 2 13
+@do write
+`4� �
+@do move 2 14
+@do write
+`4� �
+@do move 2 15
+@do write
+`4� �
+@do move 2 16
+@do write
+`4� `8These routines are not completed. �
+@do move 2 17
+@do write
+`4� `8Lots of work is needed. �
+@do move 2 18
+@do write
+`4����������������������������������������������
+
+@do move 2 19
+@do write
+`4�������������������������������[ `8dialog `4]�����������������������������������Ŀ
+@do move 1 20
+@do write
+`$>`4� �
+@do move 2 21
+@do write
+`4� �
+@do move 2 22
+@do write
+`4� �
+@do move 2 23
+@do write
+`4� �
+@do move 2 24
+@do write
+`4������������������������������������������������������������������������������
+
+@#STARTSEX
+@do moveback
+@routineabort
+@dataload npc/npc-hp.idf `p70 `p20
+@do `p25 is `p20
+@routine getname in npcname.ref
+@routine getgender
+
+
+;clear needed vars
+@do `s06 is NIL
+@do `s07 is NIL
+@do `s08 is NIL
+@do `s09 is NIL
+@do `s10 is NIL
+@do `p26 is 0
+@do `p27 is 0
+@do `p28 is 0
+@do `p29 is 0
+@do `p29 is 0
+@bitset `t69 0 0
+@bitset `t69 1 0
+@bitset `t69 2 0
+@bitset `t69 3 0
+@bitset `t69 4 0
+@bitset `t69 5 0
+@bitset `t69 6 0
+@bitset `t69 7 0
+@bitset `t70 0 0
+@bitset `t70 1 0
+@bitset `t70 2 0
+@bitset `t70 3 0
+@bitset `t70 4 0
+@bitset `t70 5 0
+@bitset `t70 6 0
+@bitset `t70 7 0
+@routine refresh
+@routine stats
+
+;@do `s10 is `@For`xnow`xthis`xmakes`xNO`xeffect`xon`x`s01`xnor`xyou.
+;@routine LINES
+;@do `s10 is Currently`xtesting.
+;@routine LINES
+
+@do `s10 is `%You're`xanxiously`xstanding`xin`xfront`xof`x`$`s01.
+@routine LINES
+@routine CLRACTION
+@DO `V01 IS 1
+@do move 50 5
+@choice
+`#Rush towards `s03
+`#Aproach `s01 slowly
+`3Use an item
+`4Cowardly walk away
+@if responce is 1 then do
+ @begin
+ @do `s10 is `%You`xquickly`xaproach`x`s01.
+ @routine LINES
+ @do `p29 - 1
+ @do goto STEP2
+ @end
+@if responce is 2 then do
+ @begin
+ @do `s10 is `%You`xsuavely`xaproach`x`s01.
+ @routine LINES
+ @do `p29 + 1
+ @do goto STEP2
+ @end
+@if responce is 3 then goto SELITEM
+@if responce is 4 then goto LEAVE
+
+@#STEP2
+@routine CLRACTION
+@DO `V01 IS 1
+@do move 50 5
+@choice
+`#Peck `s01's right cheek
+`#Go behind `s01
+`3Use something
+`4You're not for me
+`9Change position
+@if responce is 1 then do
+ @begin
+ @do `p26 + 1
+ @do `s10 is `%You`xgive`x`s01`xa`xlight`xpeck`xon`xthe`xright`xcheek.
+ @routine LINES
+ @if `p26 > 10 then do
+ @begin
+ @do `s10 is `$`s01`%: Enough with the pecking already! `@:`1)
+ @routine LINES
+ @end
+ @do goto FRONT1
+ @end
+@if responce is 2 then do
+ @begin
+ @do goto BACK1
+ @end
+@if responce is 3 then goto SELITEM
+@if responce is 4 then goto LEAVE
+@if responce is 5 then goto POSITION
+ @end
+@DO GOTO STEP2
+
+@#FRONT1
+@routine CLRACTION
+@DO `V01 IS 1
+@do move 50 5
+@choice
+`#Peck `s03 left cheek
+`#Go for `s01's lips
+`#Remove some clothing
+`4You're not for me
+`9Change position
+@if responce is 1 then do
+ @begin
+ @do `s10 is `%You`xgive`x`s01`xanother`xpeck`xon`xthe`xleft`xcheek.
+ @routine LINES
+ @if `p26 > 10 then do
+ @begin
+ @do `s10 is `$`s01`%: Enough with the pecking already! `@:`1)
+ @routine LINES
+ @end
+ @do goto FRONT1
+ @end
+@if responce is 2 then do
+ @begin
+ @do `p29 + 1
+ @do goto KISS
+ @end
+@if responce is 3 then goto STEP3
+@if responce is 4 then goto LEAVE
+@if responce is 5 then goto POSITION
+ @end
+@DO GOTO FRONT1
+
+@#KISS
+@do `s02 is Start`xwith`xa
+@do `s03 is Start`xwith`xthe
+@label KISS1
+@routine CLRACTION
+@DO `V01 IS 1
+@do move 50 5
+@choice
+`#`s02 soft kiss
+`#`s03 tongue
+`#Change position
+`4Ewwh, you're leaving
+@if responce is 1 then do
+ @begin
+ @do `s02 is Continue
+ @do `s03 is Now`xtry`xthe
+ @routine getgender
+ @do `s10 is You`xgently`xpress`xlips`xand`xkiss`x`s01.
+ @routine lines
+ @do goto KISS1
+ @end
+@if responce is 2 then do
+ @begin
+ @do `s03 is Continue
+ @do `s02 is Try`xa
+ @do `s10 is You`xlips`xmeet,`xthen`xyour`xtongue`xmeet.
+ @routine lines
+ @do goto KISS1
+ @end
+@if responce is 3 then goto position
+@if responce is 4 then goto LEAVE
+@do goto KISS1
+
+@#BACK1
+@routine CLRACTION
+@DO `V01 IS 1
+@do move 50 5
+@choice
+`#Rub `s01's shoulders
+`#Start to massage `s03 back
+`#Remove some clothing
+`4Ewwh, you're leaving
+`9Change position
+@if responce is 1 then do
+ @begin
+ @do `s10 is You`xrub`xboth`xof`x`s03`xshoulders.
+ @routine lines
+ @do goto BACK1
+ @end
+@if responce is 2 then do
+ @begin
+ @do `s10 is `s04`xlies`xdown`xslowly`xfacing`xdown.`xYou`xprepare`xyour`xfingers.
+ @routine lines
+ @do goto MASSAGE1
+ @end
+@if responce is 3 then goto STEP3
+@if responce is 4 then goto LEAVE
+@if responce is 5 then goto POSITION
+ @end
+@DO GOTO BACK1
+
+@#STEP3
+@routine CLRACTION
+@DO `V01 IS 1
+@do move 50 5
+@routine getgender
+@choice
+-`t69 0 `#Take off `s04 shirt
+-`t70 0 `#Take off `$YOUR `#shirt
+`#Start the massage!
+`4Get up, and walk away
+`9Change position
+@if responce is 1 then goto SHIRTOFF1
+@if responce is 2 then goto SHIRTOFF2
+@if responce is 3 then goto MASSAGE1
+@if responce is 4 then goto LEAVE
+@if responce is 5 then goto POSITION
+
+@#SHIRTOFF1
+ @if bitcheck `t69 4 1 then do
+ @begin
+ @bitset `t69 0 1
+ @do `p20 random 5 1
+ @if `p20 is 1 then do
+ @begin
+ @do `s10 is `$`s01`%:`xI'll`xhelp`xyou`xthat`xhindorence`xof`xmine.
+ @bitset `t70 4 1
+ @do `p29 + 2
+ @end
+ @if `p20 is 2 then do
+ @begin
+ @do `s10 is `$`s01`%:`xThanks`x...`xI`xneeded`xthat`xremoved.
+ @bitset `t70 4 1
+ @do `p29 + 1
+ @end
+ @if `p20 is 3 then do
+ @begin
+ @do `s10 is `$`s01`%:`xYah,`xits`xgetting`xhot`xin`xhere.
+ @bitset `t70 4 1
+ @do `p29 + 4
+ @end
+ @if `p20 is 4 then do
+ @begin
+ @do `s10 is `$`s01`%:`xOkay,`xI'll`xneed`xhelp`xto`xremove`xit.
+ @do `p29 + 3
+ @end
+ @if `p20 is 5 then do
+ @begin
+ @do `s10 is `$`s01`%:`xSlow`xdown`xs&boy!`x`xNot yet.
+ @end
+ @end
+ @do `p20 random 5 1
+ @if `p20 is 1 then do
+ @begin
+ @do `s10 is `$`s01`%:`xSlow`xdown`xs&boy!`x`xNot yet.
+ @do `p29 - 1
+ @end
+ @if `p20 is 2 then do
+ @begin
+ @do `s10 is `$`s01`%:`xYou're`xmoving`xtoo`xfast!
+ @do `p29 - 1
+ @end
+ @if `p20 is 3 then do
+ @begin
+ @do `s10 is `$`s01`%:`xHold`xoff`xfor`xa`xbit`xs&boy.
+ @do `p29 - 1
+ @end
+ @if `p20 is 4 then do
+ @begin
+ @do `s10 is `$`s01`%:`xDon't`xeven`xtry`xit.
+ @do `p29 - 4
+ @end
+ @if `p20 is 5 then do
+ @begin
+ @do `s10 is `$`s01`%:`xSlow`xdown`xs&boy!
+ @do `p29 - 1
+ @end
+@routine lines
+@do goto STEP3
+
+@#SHIRTOFF2
+ @if bitcheck `t70 4 1 then do
+ @begin
+ @bitset `t70 0 1
+ @do `p20 random 5 1
+ @if `p20 is 1 then do
+ @begin
+ @do `s10 is `$`s01`%:`xI'll`xhelp`xyou`xyou`xthat`xdear.
+ @do `p29 + 2
+ @end
+ @if `p20 is 2 then do
+ @begin
+ @do `s10 is `$`s01`%:`xThanks`x...`xI`xneeded`xthat`xremoved.
+ @do `p29 + 1
+ @end
+ @if `p20 is 3 then do
+ @begin
+ @do `s10 is `$`s01`%:`xYah,`xits`xgetting`xhot`xin`xhere,`xI`xshould`xdo`xthe`xsame.
+ @bitset `t69 4 1
+ @do `p29 + 4
+ @end
+ @if `p20 is 4 then do
+ @begin
+ @do `s10 is `$`s01`%:`xOkay,`xI'll`xneed`xhelp`xto`xremove`xit.
+ @do `p29 + 3
+ @end
+ @if `p20 is 5 then do
+ @begin
+ @do `s10 is `$`s01`%:`xSlow`xdown`xs&boy!`x`xNot yet.
+ @end
+ @end
+ @do `p20 random 5 1
+ @if `p20 is 1 then do
+ @begin
+ @do `s10 is `$`s01`%:`xSlow`xdown`xs&boy!`x`xNot yet.
+ @routine lines
+ @routine CLRACTION
+ @routine LISTEN
+ @do `p29 - 1
+ @end
+ @if `p20 is 2 then do
+ @begin
+ @do `s10 is `$`s01`%:`xYou're`xmoving`xtoo`xfast!
+ @routine lines
+ @routine CLRACTION
+ @routine LISTEN
+ @do `p29 - 1
+ @end
+ @if `p20 is 3 then do
+ @begin
+ @do `s10 is `$`s01`%:`xHold`xoff`xfor`xa`xbit`xs&boy.
+ @routine lines
+ @routine CLRACTION
+ @routine LISTEN
+ @do `p29 - 1
+ @end
+ @if `p20 is 4 then do
+ @begin
+ @do `s10 is `$`s01`%:`xDon't`xeven`xtry`xit.
+ @routine lines
+ @routine CLRACTION
+ @routine LISTEN
+ @do `p29 - 4
+ @end
+ @if `p20 is 5 then do
+ @begin
+ @do `s10 is `$`s01`%:`xSlow`xdown`xs&boy!
+ @routine lines
+ @routine CLRACTION
+ @routine LISTEN
+ @do `p29 - 1
+ @end
+@routine lines
+@do goto STEP3
+
+@#MASSAGE1
+@routine CLRACTION
+@DO `V01 IS 1
+@do move 50 5
+@choice
++`t69 0 `#Take off `s03's shirt
++`t70 0 `#Take off `$YOUR `#shirt
+`#Start from top to midsection
++`t69 1 `#Start from midsection up
+`4Get up, and walk away
+`9Change position
+@if responce is 1 then do
+
+@#POSITION
+@routine CLRACTION
+@DO `V01 IS 1
+@do move 50 5
+@choice
+`#Front view
+`#Go behind `s03
+`#Try some lips
+`#Get on top
+`#Get on the bottom
+`9Leave the encounter
+@if responce is 1 then goto front1
+@if responce is 2 then goto back1
+@if responce is 3 then goto kiss
+@if responce is 6 then goto LEAVE
+@do goto POSITION
+
+@#SELITEM
+;why list some items individualy, why not let player figure out what
+;items can be used. Some you'd never even expect can be *toys*. :-)
+@do `p20 is 1
+@routine CLRACTION
+@do move 53 8
+@do write
+ `%U`7p `%8 `7
+@do move 53 9
+@do write
+ `7� � �
+@do move 53 10
+@do write
+`%D`7own `%2 `7
+@do move 55 5
+@do write
+`8[`7select an item`8]
+
+@label ITEMLOOP
+@do `s03 is npc-sex.ref
+@do `p23 is 50
+@do `p24 is 5
+@do `p20 is 0
+@run itemsel in itemsel.ref
+
+@#ITEMEND
+@do goto LEAVE
+
+@#ITEMUSE
+@do `s10 is `%You`xcan't`xthink`xof`xa`xway`xto`xuse`xthat.`xIf`xyou`xdo,`xyou're`xsick!
+@if `p20 is 0 then do
+ @begin
+ @do `s10 is `%Press`x`$U`x`%or`x`$D`x`%or`x`$2`x`%or`x`$8`x`%to`xselect`xitem.
+ @end
+
+@if `p20 is 1 then do
+ @begin
+ @do `s10 is `%Use`x`4wild`xberries
+ @end
+@if `p20 is 2 then do
+ @begin
+ @do `s10 is `%Use`x`4poison`xberry
+ @end
+@if `p20 is 3 then do
+ @begin
+ @do `s10 is `%Use`x`%milk.
+ @end
+@if `p20 is 7 then do
+ @begin
+ @do `s10 is `%Use`x`6ancient`xflute ;<-- (romantic play)
+ @end
+@if `p20 is 8 then do
+ @begin
+ @do `s10 is `%Use`x`4berry`x`%pie
+ @end
+@if `p20 is 11 then do
+ @begin
+ @do `s10 is `%invite`xthe`x`#little`xgirl ;<--- (bad move)
+ @end
+@if `p20 is 29 then do
+ @begin
+ @do `s10 is`%Use `7salmon
+ @end
+@if `p20 is 30 then do
+ @begin
+ @do `s10 is `%Use`x`!sparking`xsalmon
+ @end
+@if `p20 is 43 then do
+ @begin
+ @do `s10 is `%Use`x`%chicken`xegg
+ @end
+@if `p20 is 51 then do
+ @begin
+ @do `s10 is `%Use`x`5Small`xFuzzy`xAnimal
+ @end
+@if `p20 is 57 then do
+ @begin
+ @do `s10 is `%Use`x`7moon`xstone
+ @end
+@if `p20 is 72 then do
+ @begin
+ @do `s10 is `%Use`x`1gryphon`xmoon
+ @end
+@if `p20 is 73 then do
+ @begin
+ @do `s10 is `%Use`xthe`x`4smackrod
+ @end
+@if `p20 is 78 then do
+ @begin
+ @do `s10 is `%Propose`xwith`x`$wedding`xrings
+ @end
+@if `p20 is 80 then do
+ @begin
+ @do `s10 is `%Show`xyour`x`7mouse`xtail
+ @end
+@if `p20 is 86 then do
+ @begin
+ @do `s10 is `%Use`xyour`xbottle`xof`x`#P`5INK`x`#p`5otion
+ @end
+@if `p20 is 87 then do
+ @begin
+ @do `s10 is `%Use`x`7clean`xrag ;<-- (for tieing up) :)
+ @end
+@if `p20 is 88 then do
+ @begin
+ @do `s10 is `%Use`xpot`xof`x`$honey
+ @end
+@if `p20 is 89 then do
+ @begin
+ @do `s10 is `%Use`xjar`xof`x`$honey
+ @end
+@if `p20 is 91 then do
+ @begin
+ @do `s10 is `%Use`x`7black`xpotion ;<-- (rub oil)
+ @end
+@if `p20 is 92 then do
+ @begin
+ @do `s10 is `%Use`x`7white`xflower ;<-- (to give)
+ @end
+@if `p20 is 93 then do
+ @begin
+ @do `s10 is `%Use`x`7purple`xpotion ;<-- (rub oil)
+ @end
+@if `p20 is 94 then do
+ @begin
+ @do `s10 is `%Use`x`7yellow`xpotion ;<--(rub oil)
+ @end
+@if `p20 is 95 then do
+ @begin
+ @do `s10 is `%Use`x`7Myphon moon (warp away/leave)
+ @end
+@do move 1 1
+@show
+`p22
+@routine lines
+@do `s10 is `8not`xused`xyet,`xjust`xtesting
+@routine lines
+@do goto SELITEM
+@end
+
+
+
+@#LISTEN
+@DO `V01 IS 1
+@do move 40 5
+@choice
+Listen to `s03
+Ignore `s01's plea
+@if responce is 1 then do
+ @begin
+ @do `s10 is `$`N`%:`xOkay, I'll wait.
+ @do `p29 + `p20
+ @end
+@if responce is 2 then do
+ @begin
+ @do `s10 is `$`N`%:`xFUCK YOU BITCH!
+ @bitset `t70 0 1
+ @do `p29 - `p20
+ @end
+@#NOMORE
+--to-do-next--
+USE HP! or something for stamina
+add force remove NPC shirt
+make same routines for paints + panties
+
+
diff --git a/xtrn/lord2/cnw/npc/npc-79.idf b/xtrn/lord2/cnw/npc/npc-79.idf
new file mode 100644
index 0000000000000000000000000000000000000000..17e4390d24a8cd40b85118a7734f631801c83181
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npc-79.idf differ
diff --git a/xtrn/lord2/cnw/npc/npc-bday.idf b/xtrn/lord2/cnw/npc/npc-bday.idf
new file mode 100644
index 0000000000000000000000000000000000000000..db93fe05a0671a501c085d8d7669f58e223b1132
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npc-bday.idf differ
diff --git a/xtrn/lord2/cnw/npc/npc-df.idf b/xtrn/lord2/cnw/npc/npc-df.idf
new file mode 100644
index 0000000000000000000000000000000000000000..4056d68a2bb2ea8c346dbdc73a2fc07692b4d1fd
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npc-df.idf differ
diff --git a/xtrn/lord2/cnw/npc/npc-hp.idf b/xtrn/lord2/cnw/npc/npc-hp.idf
new file mode 100644
index 0000000000000000000000000000000000000000..9092463dd4c639ffd0e4bba6d46a27e17eb4fbf0
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npc-hp.idf differ
diff --git a/xtrn/lord2/cnw/npc/npc-hp2.idf b/xtrn/lord2/cnw/npc/npc-hp2.idf
new file mode 100644
index 0000000000000000000000000000000000000000..fc2044774d935e405e79ae46b7cc880ecededa15
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npc-hp2.idf differ
diff --git a/xtrn/lord2/cnw/npc/npc-st.idf b/xtrn/lord2/cnw/npc/npc-st.idf
new file mode 100644
index 0000000000000000000000000000000000000000..bdfadcdabfdeea2b81a76d7a2a90ff47622e5d7a
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npc-st.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcage.idf b/xtrn/lord2/cnw/npc/npcage.idf
new file mode 100644
index 0000000000000000000000000000000000000000..8d035d4ef7674bec4dcd72c1e37a61cf369f0a3a
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcage.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcagep.idf b/xtrn/lord2/cnw/npc/npcagep.idf
new file mode 100644
index 0000000000000000000000000000000000000000..6f144669876cdeb15035ddcea2f50c13d62f912c
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcagep.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcbday.tmp b/xtrn/lord2/cnw/npc/npcbday.tmp
new file mode 100644
index 0000000000000000000000000000000000000000..3bf2ba9388a65410f02e924534a18cfecbe42ec4
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcbday.tmp differ
diff --git a/xtrn/lord2/cnw/npc/npcchange.tmp b/xtrn/lord2/cnw/npc/npcchange.tmp
new file mode 100644
index 0000000000000000000000000000000000000000..3bf2ba9388a65410f02e924534a18cfecbe42ec4
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcchange.tmp differ
diff --git a/xtrn/lord2/cnw/npc/npcgems.idf b/xtrn/lord2/cnw/npc/npcgems.idf
new file mode 100644
index 0000000000000000000000000000000000000000..88acdbc0a0b461cbaeff15fc5e143dd740088e6f
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcgems.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcgendr.idf b/xtrn/lord2/cnw/npc/npcgendr.idf
new file mode 100644
index 0000000000000000000000000000000000000000..10112fcf4fe8660eda5496f596cd323ef51e1c8f
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcgendr.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcgold.idf b/xtrn/lord2/cnw/npc/npcgold.idf
new file mode 100644
index 0000000000000000000000000000000000000000..9f5155e8b0dd2a9b27642f62a154e6378a534577
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcgold.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcgreed.idf b/xtrn/lord2/cnw/npc/npcgreed.idf
new file mode 100644
index 0000000000000000000000000000000000000000..66fda629043ad825311d645a7bf03ec0c3bc2d6e
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcgreed.idf differ
diff --git a/xtrn/lord2/cnw/npc/npchange.idf b/xtrn/lord2/cnw/npc/npchange.idf
new file mode 100644
index 0000000000000000000000000000000000000000..31b1280867cc9acbdf70264ebeaad5061ae48931
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npchange.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcjob.idf b/xtrn/lord2/cnw/npc/npcjob.idf
new file mode 100644
index 0000000000000000000000000000000000000000..765fe018d18533da9233908686d8091d96bd27ed
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcjob.idf differ
diff --git a/xtrn/lord2/cnw/npc/npclbs.idf b/xtrn/lord2/cnw/npc/npclbs.idf
new file mode 100644
index 0000000000000000000000000000000000000000..59945e2d5ed8688064416d4db7a3d90e84f8d2a7
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npclbs.idf differ
diff --git a/xtrn/lord2/cnw/npc/npclost.idf b/xtrn/lord2/cnw/npc/npclost.idf
new file mode 100644
index 0000000000000000000000000000000000000000..68865850f85f68a3b41e3a27f5e8a297df890ef9
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npclost.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcloyal.idf b/xtrn/lord2/cnw/npc/npcloyal.idf
new file mode 100644
index 0000000000000000000000000000000000000000..2383b28f42e087153276f1ddfac3d5b208db9749
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcloyal.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcreqc1.idf b/xtrn/lord2/cnw/npc/npcreqc1.idf
new file mode 100644
index 0000000000000000000000000000000000000000..528fb11078bee7a736235f3c1d3b3fe793238b0c
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcreqc1.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcreqc2.idf b/xtrn/lord2/cnw/npc/npcreqc2.idf
new file mode 100644
index 0000000000000000000000000000000000000000..c1d30e8595fc8bcd2f81a624142afd1453b07985
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcreqc2.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcreqc3.idf b/xtrn/lord2/cnw/npc/npcreqc3.idf
new file mode 100644
index 0000000000000000000000000000000000000000..8f15ec9065b356a74a46d89b9fc9f0a550ed2e1f
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcreqc3.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcreqc4.idf b/xtrn/lord2/cnw/npc/npcreqc4.idf
new file mode 100644
index 0000000000000000000000000000000000000000..4620fa8dc96d922dfd3f533e2f14ef22399cbe5b
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcreqc4.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcreqc5.idf b/xtrn/lord2/cnw/npc/npcreqc5.idf
new file mode 100644
index 0000000000000000000000000000000000000000..dc966fc9eb384aacc04899bf89de83a41b6df78b
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcreqc5.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcreqc6.idf b/xtrn/lord2/cnw/npc/npcreqc6.idf
new file mode 100644
index 0000000000000000000000000000000000000000..a377615d5ca6fb89755de0f9a9a8b1ed0354a4aa
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcreqc6.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcreqc7.idf b/xtrn/lord2/cnw/npc/npcreqc7.idf
new file mode 100644
index 0000000000000000000000000000000000000000..a86f1a3a092d337747c3e3d6690376a6af995684
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcreqc7.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcreqc8.idf b/xtrn/lord2/cnw/npc/npcreqc8.idf
new file mode 100644
index 0000000000000000000000000000000000000000..a090ca0e73f21dc6127a9cb12f3285f8b132b5e4
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcreqc8.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcreql.idf b/xtrn/lord2/cnw/npc/npcreql.idf
new file mode 100644
index 0000000000000000000000000000000000000000..19386bca43690b4547d43540b42df782a58039e1
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcreql.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcslut.idf b/xtrn/lord2/cnw/npc/npcslut.idf
new file mode 100644
index 0000000000000000000000000000000000000000..e1963e3051966458f319fd2d5b443372c809cf0d
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcslut.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcstat.idf b/xtrn/lord2/cnw/npc/npcstat.idf
new file mode 100644
index 0000000000000000000000000000000000000000..6e9df4703f3f4c8f4037b30f33e1a73c9284c6ed
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcstat.idf differ
diff --git a/xtrn/lord2/cnw/npc/npctaxes.idf b/xtrn/lord2/cnw/npc/npctaxes.idf
new file mode 100644
index 0000000000000000000000000000000000000000..4c94b0e929077a393c4ae80afeb2c32db5edd6d6
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npctaxes.idf differ
diff --git a/xtrn/lord2/cnw/npc/npctimes.idf b/xtrn/lord2/cnw/npc/npctimes.idf
new file mode 100644
index 0000000000000000000000000000000000000000..926b95da6fd5ca1fc75a5bdbe81637a7aa68f66b
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npctimes.idf differ
diff --git a/xtrn/lord2/cnw/npc/npctouch.idf b/xtrn/lord2/cnw/npc/npctouch.idf
new file mode 100644
index 0000000000000000000000000000000000000000..5530586802c537db3d42d357a612676b9db95b72
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npctouch.idf differ
diff --git a/xtrn/lord2/cnw/npc/npcvd.idf b/xtrn/lord2/cnw/npc/npcvd.idf
new file mode 100644
index 0000000000000000000000000000000000000000..26fe3f92afb0d386f5cfa32be0cceee92b7145a6
Binary files /dev/null and b/xtrn/lord2/cnw/npc/npcvd.idf differ
diff --git a/xtrn/lord2/cnw/npc/taxyear.idf b/xtrn/lord2/cnw/npc/taxyear.idf
new file mode 100644
index 0000000000000000000000000000000000000000..68865850f85f68a3b41e3a27f5e8a297df890ef9
Binary files /dev/null and b/xtrn/lord2/cnw/npc/taxyear.idf differ
diff --git a/xtrn/lord2/cnw/npc/wedchk.tmp b/xtrn/lord2/cnw/npc/wedchk.tmp
new file mode 100644
index 0000000000000000000000000000000000000000..3bf2ba9388a65410f02e924534a18cfecbe42ec4
Binary files /dev/null and b/xtrn/lord2/cnw/npc/wedchk.tmp differ
diff --git a/xtrn/lord2/cnw/npcfight.ref b/xtrn/lord2/cnw/npcfight.ref
new file mode 100644
index 0000000000000000000000000000000000000000..9a6e5e3e687fed0bb7709e4e15674d756e006cc9
--- /dev/null
+++ b/xtrn/lord2/cnw/npcfight.ref
@@ -0,0 +1,429 @@
+; Script file NPCFIGHT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:37 2001
+
+@DECLARE startfight 000000438
+@DECLARE npcdie 000001908
+@DECLARE fight2 000002858
+@DECLARE die2 000003581
+@DECLARE groupruns 000003641
+@DECLARE groupdie 000004482
+@DECLARE die 000005229
+@DECLARE seperate 000011015
+@DECLARE runs 000011118
+@DECLARE nofight 000011224
+@DECLARE endfight 000011328
+@NOCHECK
+; End of .REF index
+
+
+@#startfight
+@if bitcheck `t11 6 1 then do
+ @begin
+ @if `p70 is `t82 then do
+ @begin
+ @do saybar
+`$`N `2: `%It's YOU!`l`l You'll pay for Elle's demise.`l`k
+ @end
+ @end
+@dataload npc/npc-hp.idf `p70 `p21
+@dataload npc/npc-st.idf `p70 `p23
+@dataload npc/npc-df.idf `p70 `p24
+@dataload npc/npc-gold.idf `p70 `p25
+@dataload npc/npcgendr.idf `p70 `p26
+@if `p26 is 0 then `p26 is 2
+@if `p26 is 1 then `p26 is 1
+@if `p26 is 2 then `p26 is 2
+@if `p26 is 3 then `p26 is 1
+@if `p26 is 4 then `p26 is 2
+@if `p26 is 5 then `p26 is 1
+@if `p26 is 6 then `p26 is 3
+@do `p27 is `p23 + 5
+@do `p28 is `p23 + 10
+@do `p29 is `p23 + 15
+@do `p20 is `p23 + 20
+;figure out exp for this npc
+@do `p40 is `p23
+@do `p41 is `p24
+@do `p40 * 2
+@do `p41 * 2
+@do `p40 + `p41
+@if `p41 < 1 then `p41 is 1
+@do `p40 / `p41
+
+@fight
+;name
+`s01
+;string said when you see him
+You prepare for battle.
+;power move kill string
+You laugh horridly as you see your apponent falls to the ground.
+;sex - 1 is male, 2 is female, 3 is it
+`p26
+;weapon and strength for the weapon, up to 5
+slaps you hard|`p23
+bites you|`p27
+wacks you hard|`p28
+punches you|`p29
+kicks wildly|`p20
+;defense
+`p24
+;gold reward
+`p25
+;experience
+`p40
+;hit points
+`p21
+;if win: ref file|name or NONE
+npcFIGHT.REF|npcdie
+;if lose: ref file|name or NONE
+npcfight.REF|DIE
+;if runs: ref file|name or NONE
+npcFIGHT.REF|runs
+
+@#npcdie
+@do `p41 is &time
+@do `p41 + `v14
+@do `p20 random 4 1
+@do `p07 - `p20
+@datasave npc/npcdead.idf `p70 `p41
+@datasave npc/npc-gold.idf `p70 0
+@if bitcheck `t11 6 1 then do
+ @begin
+ @if `p70 is `t82 then do
+ @begin
+ @do quebar
+`2You've done what Ma asked for, you should bring the evidence to prove it.`k
+ @do `p71 is `p70
+ @bitset `t11 6 0
+ @bitset `t11 7 1
+ @update
+ @closescript
+ @end
+ @end
+@do quebar
+`2For those actions, you've lost `@`p20 `2alignment.`k
+@do addlog
+`$`N `2just knocked out `$`s01 `2for no aparent reason.
+@do `p29 random 3 1
+@if `p29 is 2 then do
+ @begin
+@do saybar
+you hear lots of foots steps headed your way...`k
+@do `p21 is `p03 * 2
+@do `p23 is `p04
+@do `p27 is `p04 * 2
+@do `p28 is `p04 * 3
+@do `p29 is `p04 * 5
+@do `p24 is `p05
+@label fight2
+@fight
+;name
+Guards
+;string said when you see him
+yikes.. I got caught!!!!
+;power move kill string
+You laugh horridly as the last soldier falls to the ground.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+punches hard|`p23
+a sword hits your arm|`p27
+hit your legs with something strong|`p28
+slices across your chest|`p29
+surrounds you with their swords at hand (you go blank for a sec)|`p20
+;defense
+`p24
+;gold reward
+1
+;experience
+450
+;hit points
+`p21
+;if win: ref file|name or NONE
+npcFIGHT.REF|groupdie
+;if lose: ref file|name or NONE
+npcfight.REF|DIE2
+;if runs: ref file|name or NONE
+npcFIGHT.REF|groupruns
+ @end
+@do goto endfight
+
+@#DIE2
+@do `p19 is 0
+@do money is 0
+@do goto die
+
+@#groupruns
+@do `p20 random 6 1
+@id `p20 is 1 then do
+ @begin
+ @do saybar
+`%You can not run from this group!`k
+ @end
+@id `p20 is 2 then do
+ @begin
+ @do saybar
+`%yikes... they're all around you!`k
+ @do `p20 random 2 1
+ @if `p20 is 1 then goto die
+ @end
+@id `p20 is 3 then do
+ @begin
+ @do saybar
+`%There is just too many to get away!`k
+ @end
+@id `p20 is 4 then do
+ @begin
+ @do saybar
+`%trip... damn it..!`k
+ @end
+@id `p20 is 5 then do
+ @begin
+ @do saybar
+`%They're faster than me.....!`k
+ @end
+@id `p20 is 6 then do
+ @begin
+ @do saybar
+`%faster.. faster.. you'd better run boy!!!`k
+ @drawmap
+ @update
+ @closescript
+ @end
+@do goto fight2
+@end
+
+@#groupdie
+@do saybar
+`%Congrat! you killed the entire group.`k
+@do saybar
+`%You hope nobody will ever know what happened.
+@do `p20 random 2 1
+@if `p20 is 2 then do
+ @begin
+ @do saybar
+`kYou just heard small footsteps running away.. ahhh oohhh.....`k
+ @do `p24 random 10000 2500
+ @do `p23 is `p70
+ @do `p23 + 200
+ @if bounty.&playernum exist true then do
+ @begin
+ @readfile bounty.&playernum
+`p
+@do
+ @writefile bounty.&playernum
+`p23
+`p24
+ @end
+ @if bounty.&playernum exist false then do
+ @begin
+ @writefile bounty.&playernum
+`p23
+`p24
+ @end
+@drawmap
+@update
+@closescript
+
+@#die
+@do move 3 24
+@do write
+`r0 `x
+ ;give npc some stregnth and stuff. :-)
+ @dataload npc/npc-gold.idf `p70 `p25
+ @do `p25 + money
+ @datasave npc/npc-gold.idf `p70 `p25
+
+ @dataload npc/npc-gems.idf `p70 `p25
+ @do `p25 + `p19
+ @do `p19 is 0
+ @datasave npc/npc-gems.idf `p70 `p25
+
+ @dataload npc/npc-hp.idf `p70 `p21
+ @do `p21 + `p03
+ @datasave npc/npc-hp.idf `p70 `p21
+
+ @dataload npc/npc-st.idf `p70 `p23
+ @do `p21 is `p04
+ @do `p21 / 4
+ @do `p23 + `p21
+ @datasave npc/npc-st.idf `p70 `p23
+
+ @dataload npc/npc-df.idf `p70 `p24
+ @do `p21 is `p05
+ @do `p21 / 4
+ @do `p23 + `p21
+ @datasave npc/npc-df.idf `p70 `p24
+
+ @do X is 27
+ @do Y is 7
+ @do money is 0
+ @do `p02 is `p03 (give 'em max hit points)
+ @do `p20 is `p01
+ @do `p20 / 5
+ @do `p01 - `p20
+ @do MAP is 155
+ @do dead is 1
+ @update_update
+
+ @do talk `4Newsflash:`0`x`n`x`2was`xdefeated`xby`x`0`e`2! all
+ @do `p20 random 8 1
+ @if `p20 is 1 then addlog
+ `0`n`2 was whipped up on by `0`e`2!
+ @if `p20 is 2 then addlog
+ `0`e`2 has decapitated `0`n`2!
+ @if `p20 is 3 then addlog
+ `0`e`2 has eaten `0`n`2 for breakfast!
+ @if `p20 is 4 then addlog
+ `0`n`2 got s&his ass slaughtered by `0`e`2!
+ @if `p20 is 5 then addlog
+ `0`n`2 has died a pitiful death at the hands of `0`e`2!
+ @if `p20 is 6 then addlog
+ `0`e`2 was last seen hauling `0`n`2's body to their lair!
+ @if `p20 is 7 then addlog
+ `0`e`2 totally humiliates `0`n`2 in front of s&his lover!
+ @if `p20 is 8 then addlog
+ `0`n`2 curses the day `0`e`2 was born!
+ @routine seperate
+@do move 3 24
+@do write
+`4You've been killed. `k
+
+@pauseoff
+@show
+`r0`c
+[34C[0m���������������
+[29C���[1;30;47m����[0;47m�[1;30m�[0;47m�����������[40m�
+[28C�[1;30;47m����[0;47m������������������[40m�
+[27C�[1;30;47m����[0;47m��������[1;30m��[0;47m���������[40m�
+[19C��[5C�[1;30;47m����[0;47m����������[1;30m����[0;47m�����[40m
+[A[50C[47m[1;30m�[0m��
+[18C���� [1;30;47m�����[0;47m�����[1;30m� �[0;47m�[1;30m���[40m
+[A[43C[0;47m�����[1;30m�ܲ[0m�[47m�[1C[40m�[1;47m��[40m�
+[17C[30m�[47m�[0;47m��[1m�[0m� [1;30;47m���� [0;47m��[1;30m�[40m
+[A[34C[0;47m�[1;30m�����߰�[0;47m�[1;30m�[0;47m����[1;30m߲�[40m
+[A[52C[47m[0m�[1;30m�[47m�[0;47m�[1m�[40m�
+[17C[30;47m���[0;47m��[1m��[0m� [1;30m�[0m��� [1;30m�߲[47m[40m
+[A[37C[47m����[40m���[5C[0m��[1;30;47m�[40m�[47m��[0m� �
+[18C[1;30m���[47m��[0;47m� [1;30m�[1C[0m� [31m� [1;30m��
+[A[38C[47m���[40m� [0;31m� [37m��[1;30;47m�[40m�
+[23C[0m�[1;30;47m��[40m�[0m���� ��[1;30;47m�[0m��[1;30m�
+[A[41C[47m�[0m�� ��[1;47m�[0m�[1;30m�
+[25C[47m�[40m�[0m�[1;30;47m� [0;47m��[1;30m�����[0m� [1;30m� [0m�
+[A[42C[1;30;47m����[0;47m����[1m��[0m�
+[26C�[1;30;47m�[0;47m����[1;30mܲ��[0;47m�[2C[1;30;40m�� [47m��[40m
+[A[44C[47m�[0;47m�����[40m��
+[27C���[1;30;47m��[40m���[47m�[0m��[1;30;47m�����[40m��[0m� ����
+[29C[1;30m�� �� [0m��[1;30m�� �[0m�[1;30m� �� [47m��[0m�
+[27C�[1;30;47m���[40m� � [47m�[0m�[1;47m��[40m��[0m��[1;30;47m[40m
+[A[43C[47m�[40m� � [47m��[0;47m�[40m�
+[22C[1m� [47m��[30m��[40m� [0m� [1;30m� [0m� �[1m� �[0m� �
+[A[45C[1;30m��[47m�[1C[0m�[47m [1m�[40m���
+[19C�[47m�����[30m�[0m�� ���[1;30;47m�[0;47m�[40m�� ����� ��
+[A[45C[1;30;47m��[0;47m��[40m� �[1;30;47m�[37m��[40m�[47m�[40m
+[19C[0;31m� [37m���[1;30;47m�[40m�[0;33mܲ�� [37m�[1;47m��[30m[40m
+[A[34C[47m�[0;47m���[1;30m��[0;47m���� [1m��[0m� [33m���[1;30m�
+[A[53C[47m�[0m��[31m�
+[17C�����[37m�[1;30m�[0;31m���[33;41m����[40m� [37m�[1;47m�[40m
+[A[35C[0;47m��[1;30mܱ[40m�[47m��[40m�[47m�[37m�[0m� [31m�
+[A[48C[33;41m���[31;40m��[1;30m�[0;31m��۲��
+
+ `%You have made an error, s&boy.
+
+`k
+ @if `v03 is 0 then do
+ @begin
+ ;rules.ref file says unlimited deaths not allowed, so we will boot them
+ ;till tomorrow
+
+ ;take them off the map
+ @do map is 1
+ @halt
+ @end
+
+ @pauseon
+
+ @do dead is 0
+
+ @if `p07 less 0 then do
+ @begin
+ @show
+`r0`c`% `r1IT FEELS KINDA WARM IN HERE?`r0
+
+ `4You open your eyes.
+
+`k `4There are naked screaming people all around you. A little boy with
+ a ghastly face begins to gnaw on your leg.
+
+`k `6"Din, leave the newcomer alone. S&he isn't staying." `4a slow voice that
+ can only be described as an abomination dolefully states.
+
+`k `2You feel yourself floating away... faster and faster.
+ @end
+
+ @if `p07 more -1 then do
+ @begin
+ @show
+`r0`c`% `r1APPARENTLY DEATH ISN'T THE END.`r0
+
+ `2You open your eyes.
+
+`k `2You are lying on a table of solid rock in a marble room. Hundreds of
+ soft voices are murmuring all around you, but you see no one.
+
+`k `%"Send s&him back." `2a voice whispers, this one louder than the others.
+
+`k `2You feel yourself floating away... faster and faster.
+
+`k
+ @end
+
+
+@show
+`c `r1`%AWAKENING.`r0
+
+ `0"Can you hear me, `n?" `2a stressed voice shouts.
+
+ `$"Yeah. Christ mom, lemmie up, I'm fine." `2you assure your mother.
+
+ `0"You're alive!! The elders brought your body here yesterday, you must
+ have fainted out there." `2your mother shouts, tears of joy streaming down
+ her wrinkled face.
+
+ `$"Ok, ok - nice little happy reunion and all that, but I gotta hit the
+ road now. Buhbye." `2you tell her. Afterall, you need to make the most of
+ this new lease on life.
+
+ `2You lose `4half`2 the gold you were carrying and `4`p20`2 experience.
+
+`k
+ @do `p20 is 1
+ @loadmap map
+ @drawmap
+ @update
+
+@#seperate
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@closescript
+
+@#runs
+@do `p20 is 1
+@do addlog
+`N cowardly runs from `s01.
+@do moveback
+@update
+@closescript
+
+@#nofight
+@do `p20 is 1
+@do moveback
+@update
+@do saybar
+`%You can not fight `s01
+@closescript
+
+@#endfight
+@do `p20 is 1
+@do moveback
+@update
+@closescript
diff --git a/xtrn/lord2/cnw/npcflirt.ref b/xtrn/lord2/cnw/npcflirt.ref
new file mode 100644
index 0000000000000000000000000000000000000000..431f05ec8fcc4a1bd192ae092fb55923efd15fae
--- /dev/null
+++ b/xtrn/lord2/cnw/npcflirt.ref
@@ -0,0 +1,1282 @@
+; Script file NPCFLIRT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:36 2001
+
+@DECLARE flirt 000001155
+@DECLARE 1-no 000013303
+@DECLARE 1-yes 000013612
+@DECLARE 2-yes 000013917
+@DECLARE 2-no 000014260
+@DECLARE 3-yes 000014370
+@DECLARE 3-no 000016665
+@DECLARE 4-yes 000017167
+@DECLARE 4-no 000017576
+@DECLARE 5-yes 000018741
+@DECLARE 5-no 000019498
+@DECLARE 6-yes 000019585
+@DECLARE 6-no 000020234
+@DECLARE 7-yes 000020321
+@DECLARE 7-no 000021146
+@DECLARE 8-no 000021232
+@DECLARE 8-yes 000021319
+@DECLARE 9-no 000022175
+@DECLARE 9-yes 000022264
+@DECLARE nodate 000025426
+@DECLARE godate2 000027494
+@DECLARE godate 000027743
+@DECLARE 10-no 000032792
+@DECLARE 10-yes 000032869
+@DECLARE 10-yes2 000035047
+@DECLARE 11-no 000039328
+@DECLARE 11-yes 000039414
+@DECLARE doublecheck 000040500
+@DECLARE 12-yes 000041451
+@DECLARE 12-no 000041639
+@DECLARE 13-yes 000041714
+@DECLARE 13-no 000041764
+@DECLARE 14-yes 000041829
+@DECLARE 14-no 000042494
+@DECLARE leave 000042585
+@DECLARE leave2 000042666
+@DECLARE leave3 000042805
+@DECLARE leave4 000043100
+@DECLARE nomore 000043227
+@NOCHECK
+; End of .REF index
+
+
+@#flirt
+@dataload npc\npcfl`p70.idf &playernum `p23
+@do `p23 + 1
+@datasave npc\npcfl`p70.idf &playernum `p23
+@do `p23 random 3 1
+@do `p24 random 5 1
+@dataload npc/npcgendr.idf `p70 `p20
+
+@if `p20 is 0 then do ;straight girl
+ @begin
+ @do `s03 is her
+ @do `s04 is she
+ @do `s05 is girl
+ @end
+@if `p20 is 1 then do ;straight boy
+ @begin
+ @do `s03 is his
+ @do `s04 is he
+ @do `s05 is boy
+ @end
+@if `p20 is 2 then do ;lesbian girl
+ @begin
+ @do `s03 is her
+ @do `s04 is she
+ @do `s05 is girl
+ @end
+@if `p20 is 3 then do ;gay boy
+ @begin
+ @do `s03 is his
+ @do `s04 is he
+ @do `s05 is boy
+ @end
+@if `p20 is 4 then do ;bisexual girl
+ @begin
+ @do `s03 is her
+ @do `s04 is she
+ @do `s05 is girl
+ @end
+@if `p20 is 5 then do ;bisexual boy
+ @begin
+ @do `s03 is his
+ @do `s04 is he
+ @do `s05 is boy
+ @end
+@if `p20 > 5 then do ;OTHER?!?!
+ @begin
+ @do `s03 is it's
+ @do `s04 is it
+ @do `s05 is it
+ @end
+
+@if response is 1 then do
+ @begin
+ @if &sex is 0 then do
+ @begin
+ @if `p20 is 0 then goto 1-no
+ @if `p20 is 1 then goto 1-yes
+ @if `p20 is 2 then goto 1-yes
+ @if `p20 is 3 then goto 1-no
+ @if `p20 is 4 then goto 1-yes
+ @if `p20 is 5 then goto 1-yes
+ @end
+ @if &sex is 1 then do
+ @begin
+ @if `p20 is 0 then goto 1-yes
+ @if `p20 is 1 then goto 1-no
+ @if `p20 is 2 then goto 1-no
+ @if `p20 is 3 then goto 1-yes
+ @if `p20 is 4 then goto 1-yes
+ @if `p20 is 5 then goto 1-yes
+ @end
+ @end
+@if response is 2 then do
+ @begin
+ @if &sex is 0 then do
+ @begin
+ @if `p20 is 0 then goto 2-no
+ @if `p20 is 1 then goto 2-yes
+ @if `p20 is 2 then goto 2-yes
+ @if `p20 is 3 then goto 2-no
+ @if `p20 is 4 then goto 2-yes
+ @if `p20 is 5 then goto 2-yes
+ @end
+ @if &sex is 1 then do
+ @begin
+ @if `p20 is 0 then goto 2-yes
+ @if `p20 is 1 then goto 2-no
+ @if `p20 is 2 then goto 2-no
+ @if `p20 is 3 then goto 2-yes
+ @if `p20 is 4 then goto 2-yes
+ @if `p20 is 5 then goto 2-yes
+ @end
+ @end
+
+@if response is 3 then do
+ @begin
+ @if &sex is 0 then do
+ @begin
+ @if `p20 is 0 then goto 3-no
+ @if `p20 is 1 then goto 3-yes
+ @if `p20 is 2 then goto 3-yes
+ @if `p20 is 3 then goto 3-no
+ @if `p20 is 4 then goto 3-yes
+ @if `p20 is 5 then goto 3-yes
+ @end
+ @if &sex is 1 then do
+ @begin
+ @if `p20 is 0 then goto 3-yes
+ @if `p20 is 1 then goto 3-no
+ @if `p20 is 2 then goto 3-no
+ @if `p20 is 3 then goto 3-yes
+ @if `p20 is 4 then goto 3-yes
+ @if `p20 is 5 then goto 3-yes
+ @end
+ @end
+@if response is 4 then do
+ @begin
+ @if &sex is 0 then do
+ @begin
+ @if `p20 is 0 then goto 4-no
+ @if `p20 is 1 then goto 4-yes
+ @if `p20 is 2 then goto 4-yes
+ @if `p20 is 3 then goto 4-no
+ @if `p20 is 4 then goto 4-yes
+ @if `p20 is 5 then goto 4-yes
+ @end
+ @if &sex is 1 then do
+ @begin
+ @if `p20 is 0 then goto 4-yes
+ @if `p20 is 1 then goto 4-no
+ @if `p20 is 2 then goto 4-no
+ @if `p20 is 3 then goto 4-yes
+ @if `p20 is 4 then goto 4-yes
+ @if `p20 is 5 then goto 4-yes
+ @end
+ @end
+@if response is 5 then do
+ @begin
+ @if &sex is 0 then do
+ @begin
+ @if `p20 is 0 then goto 5-no
+ @if `p20 is 1 then goto 5-yes
+ @if `p20 is 2 then goto 5-yes
+ @if `p20 is 3 then goto 5-no
+ @if `p20 is 4 then goto 5-yes
+ @if `p20 is 5 then goto 5-yes
+ @end
+ @if &sex is 1 then do
+ @begin
+ @if `p20 is 0 then goto 5-yes
+ @if `p20 is 1 then goto 5-no
+ @if `p20 is 2 then goto 5-no
+ @if `p20 is 3 then goto 5-yes
+ @if `p20 is 4 then goto 5-yes
+ @if `p20 is 5 then goto 5-yes
+ @end
+ @end
+@if response is 6 then do
+ @begin
+ @if &sex is 0 then do
+ @begin
+ @if `p20 is 0 then goto 6-no
+ @if `p20 is 1 then goto 6-yes
+ @if `p20 is 2 then goto 6-yes
+ @if `p20 is 3 then goto 6-no
+ @if `p20 is 4 then goto 6-yes
+ @if `p20 is 5 then goto 6-yes
+ @end
+ @if &sex is 1 then do
+ @begin
+ @if `p20 is 0 then goto 6-yes
+ @if `p20 is 1 then goto 6-no
+ @if `p20 is 2 then goto 6-no
+ @if `p20 is 3 then goto 6-yes
+ @if `p20 is 4 then goto 6-yes
+ @if `p20 is 5 then goto 6-yes
+ @end
+ @end
+@if response is 7 then do
+ @begin
+ @if &sex is 0 then do
+ @begin
+ @if `p20 is 0 then goto 7-no
+ @if `p20 is 1 then goto 7-yes
+ @if `p20 is 2 then goto 7-yes
+ @if `p20 is 3 then goto 7-no
+ @if `p20 is 4 then goto 7-yes
+ @if `p20 is 5 then goto 7-yes
+ @end
+ @if &sex is 1 then do
+ @begin
+ @if `p20 is 0 then goto 7-yes
+ @if `p20 is 1 then goto 7-no
+ @if `p20 is 2 then goto 7-no
+ @if `p20 is 3 then goto 7-yes
+ @if `p20 is 4 then goto 7-yes
+ @if `p20 is 5 then goto 7-yes
+ @end
+ @end
+@if response is 8 then do
+ @begin
+ @if &sex is 0 then do
+ @begin
+ @if `p20 is 0 then goto 8-no
+ @if `p20 is 1 then goto 8-yes
+ @if `p20 is 2 then goto 8-yes
+ @if `p20 is 3 then goto 8-no
+ @if `p20 is 4 then goto 8-yes
+ @if `p20 is 5 then goto 8-yes
+ @end
+ @if &sex is 1 then do
+ @begin
+ @if `p20 is 0 then goto 8-yes
+ @if `p20 is 1 then goto 8-no
+ @if `p20 is 2 then goto 8-no
+ @if `p20 is 3 then goto 8-yes
+ @if `p20 is 4 then goto 8-yes
+ @if `p20 is 5 then goto 8-yes
+ @end
+ @end
+@if response is 9 then do
+ @begin
+ @if &sex is 0 then do
+ @begin
+ @if `p20 is 0 then goto 9-no
+ @if `p20 is 1 then goto 9-yes
+ @if `p20 is 2 then goto 9-yes
+ @if `p20 is 3 then goto 9-no
+ @if `p20 is 4 then goto 9-yes
+ @if `p20 is 5 then goto 9-yes
+ @end
+ @if &sex is 1 then do
+ @begin
+ @if `p20 is 0 then goto 9-yes
+ @if `p20 is 1 then goto 9-no
+ @if `p20 is 2 then goto 9-no
+ @if `p20 is 3 then goto 9-yes
+ @if `p20 is 4 then goto 9-yes
+ @if `p20 is 5 then goto 9-yes
+ @end
+ @end
+@if response is 10 then do
+ @begin
+ @if &sex is 0 then do
+ @begin
+ @if `p20 is 0 then goto 10-no
+ @if `p20 is 1 then goto 10-yes
+ @if `p20 is 2 then goto 10-yes
+ @if `p20 is 3 then goto 10-no
+ @if `p20 is 4 then goto 10-yes
+ @if `p20 is 5 then goto 10-yes
+ @end
+ @if &sex is 1 then do
+ @begin
+ @if `p20 is 0 then goto 10-yes
+ @if `p20 is 1 then goto 10-no
+ @if `p20 is 2 then goto 10-no
+ @if `p20 is 3 then goto 10-yes
+ @if `p20 is 4 then goto 10-yes
+ @if `p20 is 5 then goto 10-yes
+ @end
+ @end
+@if response is 11 then do
+ @begin
+ @if &sex is 0 then do
+ @begin
+ @if `p20 is 0 then goto 11-no
+ @if `p20 is 1 then goto 11-yes
+ @if `p20 is 2 then goto 11-yes
+ @if `p20 is 3 then goto 11-no
+ @if `p20 is 4 then goto 11-yes
+ @if `p20 is 5 then goto 11-yes
+ @end
+ @if &sex is 1 then do
+ @begin
+ @if `p20 is 0 then goto 11-yes
+ @if `p20 is 1 then goto 11-no
+ @if `p20 is 2 then goto 11-no
+ @if `p20 is 3 then goto 11-yes
+ @if `p20 is 4 then goto 11-yes
+ @if `p20 is 5 then goto 11-yes
+ @end
+ @end
+@if response is 12 then do
+ @begin
+ @if &sex is 0 then do
+ @begin
+ @if `p20 is 0 then goto 12-no
+ @if `p20 is 1 then goto 12-yes
+ @if `p20 is 2 then goto 12-yes
+ @if `p20 is 3 then goto 12-no
+ @if `p20 is 4 then goto 12-yes
+ @if `p20 is 5 then goto 12-yes
+ @end
+ @if &sex is 1 then do
+ @begin
+ @if `p20 is 0 then goto 12-yes
+ @if `p20 is 1 then goto 12-no
+ @if `p20 is 2 then goto 12-no
+ @if `p20 is 3 then goto 12-yes
+ @if `p20 is 4 then goto 12-yes
+ @if `p20 is 5 then goto 12-yes
+ @end
+ @end
+@if response is 13 then do
+ @begin
+ @if &sex is 0 then do
+ @begin
+ @if `p20 is 0 then goto 13-no
+ @if `p20 is 1 then goto 13-yes
+ @if `p20 is 2 then goto 13-yes
+ @if `p20 is 3 then goto 13-no
+ @if `p20 is 4 then goto 13-yes
+ @if `p20 is 5 then goto 13-yes
+ @end
+ @if &sex is 1 then do
+ @begin
+ @if `p20 is 0 then goto 13-yes
+ @if `p20 is 1 then goto 13-no
+ @if `p20 is 2 then goto 13-no
+ @if `p20 is 3 then goto 13-yes
+ @if `p20 is 4 then goto 13-yes
+ @if `p20 is 5 then goto 13-yes
+ @end
+ @end
+@if response is 14 then do
+ @begin
+ @if &sex is 0 then do
+ @begin
+ @if `p20 is 0 then goto 14-no
+ @if `p20 is 1 then goto 14-yes
+ @if `p20 is 2 then goto 14-yes
+ @if `p20 is 3 then goto 14-no
+ @if `p20 is 4 then goto 14-yes
+ @if `p20 is 5 then goto 14-yes
+ @end
+ @if &sex is 1 then do
+ @begin
+ @if `p20 is 0 then goto 14-yes
+ @if `p20 is 1 then goto 14-no
+ @if `p20 is 2 then goto 14-no
+ @if `p20 is 3 then goto 14-yes
+ @if `p20 is 4 then goto 14-yes
+ @if `p20 is 5 then goto 14-yes
+ @end
+ @end
+@do saybar
+THERE IS A BUG HERE, CONTACT GREENIE@DARKTECH.ORG. MENTION NPC NAME.
+@do goto leave
+
+@label 1-no
+@do saybar
+`$`s04 doesn't even notice, maybe `s04's not my type.
+@if `p08 > 50 then do
+ @begin
+ @do `p29 random 5 1
+ @if `p29 is 2 then do
+ @begin
+ @datasave npc/npcgendr.ref `p70 4
+ @end
+ @end
+@do goto leave
+
+@label 1-yes
+@if `p08 > 0 then do
+ @begin
+ @do saybar
+`%`s04 smiles back at you. `!:`4)
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 1
+ @end
+@do goto leave
+
+@label 2-yes
+@if `p08 > 1 then do
+ @begin
+ @do saybar
+`%`s04 also gives you a little wink. `!;`4)
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 1
+ @end
+@if `p08 < 2 then goto 2-no
+@do goto leave
+
+@label 2-no
+@do saybar
+`%`s04 doesn't even notice your wink. Maybe `s04 is not my type.
+@do goto leave
+
+@label 3-yes
+@do saybar
+`N: So, hows the weather been treating you? `k
+@if `p08 > 4 then do
+ @begin
+ @do `p22 random 13 1
+ @if `p22 is 1 then `s02 is HOT
+ @if `p22 is 2 then `s02 is very`xHOT
+ @if `p22 is 2 then `p08 + 1
+ @if `p22 is 3 then `s02 is cloudy
+ @if `p22 is 4 then `s02 is warm`xout
+ @if `p22 is 5 then `s02 is rainy
+ @if `p22 is 6 then `s02 is wet
+ @if `p22 is 7 then `s02 is cold
+ @if `p22 is 8 then `s02 is rather`xunpleasant
+ @if `p22 is 9 then `s02 is cool
+ @if `p22 is 10 then `s02 is beautiful
+ @if `p22 is 10 then `p08 + 1
+ @if `p22 is 11 then `s02 is beautiful
+ @if `p22 is 11 then `p08 + 1
+ @if `p22 is 12 then `s02 is beautiful
+ @if `p22 is 12 then `p08 + 1
+ @if `p22 is 13 then `s02 is sunny
+ @do `p22 random 4 1
+ @if `p22 is 1 then do
+ @begin
+ @do saybar
+`s01: It's been `s02 lately.
+ @end
+ @if `p22 is 2 then do
+ @begin
+ @do saybar
+`s01: It's been rather `s02 lately.
+ @end
+ @if `p22 is 3 then do
+ @begin
+ @do saybar
+`s01: It's `s02 today.
+ @end
+ @if `p22 is 4 then do
+ @begin
+ @if `s02 is very`xHOT then do
+ @begin
+ @do `p08 + 1
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + 5
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @end
+ @do saybar
+`s01: It's going to be `s02 later.
+ @end
+
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 1
+ @end
+@if `p08 < 5 then do
+ @begin
+ @do saybar
+ `$`s01: `%Please go away, I don't want to talk to you right now.
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 - `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 - 1
+ @end
+@do goto leave
+
+@label 3-no
+@do `p23 random 4 1
+@if `p23 is 1 then do
+ @begin
+ @do saybar
+`$`s01: `%Yikes, are you trying to flirt with me?
+ @end
+@if `p23 is 2 then do
+ @begin
+ @do saybar
+`$`s01: `%Yikes, are you flirting with me?
+ @end
+@if `p23 is 3 then do
+ @begin
+ @do saybar
+`$`s01: `%humm, ok whatever.
+ @end
+@dataload npc/npc-`p70.idf &playernum `p22
+@do `p22 - `p23
+@datasave npc/npc-`p70.idf &playernum `p22
+@do goto leave
+
+@label 4-yes
+@if `p08 > 9 then do
+ @begin
+ @do saybar
+`%`s04 blushes and looks down.
+ @do quebar
+`%As you leave, `s01 looks back up and blows YOU a kiss.
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 2
+ @end
+@if `p08 < 10 then goto 4-no
+@do goto leave
+
+@label 4-no
+@do `p22 random 7 1
+@if `p22 is 1 then do
+ @begin
+ @do saybar
+`$`s01: `%HA HA HA!, you're so funny.
+ @end
+@if `p22 is 2 then do
+ @begin
+ @do saybar
+`$`s01: `%HA HA HA!, you're such a joke.
+ @end
+@if `p22 is 3 then do
+ @begin
+ @do saybar
+`$`s01: `%Someone needs a friend, and it ain't me.
+ @end
+@if `p22 is 4 then do
+ @begin
+ @do saybar
+`$`s01: `%Get lost loser.
+ @end
+@if `p22 is 5 then do
+ @begin
+ @do move 1 1
+ @displayfile finger.ans
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 - 5
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @show
+ `$OUCH!!
+ @key
+ @end
+@if `p22 is 6 then do
+ @begin
+ @do saybar
+`$You're ignored.
+ @end
+@if `p22 is 7 then do
+ @begin
+ @do saybar
+`$`s01 doesn't even seem notice.
+ @end
+@dataload npc/npc-`p70.idf &playernum `p22
+@do `p22 - `p23
+@datasave npc/npc-`p70.idf &playernum `p22
+@if `p24 is 3 then `p08 - 1
+@if `p24 is 4 then `p08 - 2
+@do goto leave
+
+@label 5-yes
+@if `p08 > 14 then do
+ @begin
+ @do saybar
+`$You take `s03 hand and press your lips on the back of `s03 hand. `k
+ @do saybar
+`$`s04 looks up at you and says, you're so romantic.
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 2
+ @end
+@if `p08 < 15 then do
+ @begin
+ @do saybar
+`$`s01: `%Hummm, please don't, you're not that cute.`L.`L.`Lyet.
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 - `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 - 1
+ @if `p24 is 4 then `p08 - 2
+ @end
+@do goto leave
+
+@label 5-no
+@do saybar
+`$`s01: `4Sorry s&boy, I'm not that type.
+@do goto leave
+
+@label 6-yes
+@if `p08 > 19 then do
+ @begin
+ @do saybar
+`$`s01: `%Hmmm, that feels so good, thanks.
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 1
+ @end
+@if `p08 < 20 then do
+ @begin
+ @do saybar
+`$`s01: `%Hummm, please don't, you're not that good yet.
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 - `p23
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 - 1
+ @if `p24 is 4 then `p08 - 2
+ @end
+@do goto leave
+
+@label 6-no
+@do saybar
+`$`s01: `4Sorry s&boy, I'm not that type.
+@do goto leave
+
+@label 7-yes
+@if `p08 > 29 then do
+ @begin
+ @do saybar
+`%`s04 returns the favour and touches your privates.
+ @do quebar
+`%As you leave, `s01 looks up at you and blows YOU a kiss.
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @if `p24 is 2 then `p22 + 3
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 2
+ @end
+@if `p08 < 30 then do
+ @begin
+ @do saybar
+`$`s01: `%What the?!?! you think?!?! NO WAY, you're too quick for me.
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 - `p23
+ @if `p24 is 2 then `p22 - 3
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 - 1
+ @if `p24 is 4 then `p08 - 2
+ @end
+@do goto leave
+
+@label 7-no
+@do saybar
+`$`s01: `4Sorry s&boy, I'm not that type.
+@do goto leave
+
+@label 8-no
+@do saybar
+`$`s01: `4Sorry s&boy, I'm not that type.
+@do goto leave
+
+@label 8-yes
+@if `p08 > 39 then do
+ @begin
+ @do saybar
+`%`s04 returns the favour and presses a deap long kiss on yours.
+ @do quebar
+`%As you leave, `s01 calls out "`N, WAIT!" and blows YOU another kiss.
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @if `p24 is 2 then `p22 + 3
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 2
+ @end
+@if `p08 < 40 then do
+ @begin
+ @do saybar
+`$`s01: `%What the?!?! you think?!?! NO WAY, you're just too quick for me.
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 - `p23
+ @if `p24 is 2 then `p22 - 3
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 - 1
+ @if `p24 is 4 then `p08 - 2
+ @end
+@do goto leave
+
+
+@label 9-no
+@do saybar
+`$`s01: `4Sorry s&boy, I'm not that type.
+@do goto leave
+
+
+@label 9-yes
+@if `p08 < 50 then do
+ @begin
+ @do saybar
+`$`s01: `%What the?!?! you think?!?! NO WAY, you're just too quick for me.
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 - `p23
+ @if `p24 is 1 then `p22 - 5
+ @if `p24 is 2 then `p22 - 9
+ @if `p24 is 3 then `p22 - 10
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 2 then `p08 - 1
+ @if `p24 is 3 then `p08 - 4
+ @if `p24 is 4 then `p08 - 8
+ @do goto leave
+ @end
+@if `p08 > 49 then do
+ @begin
+ @do saybar
+`$`N: `%"Humm, how should I put this, `k
+ @do saybar
+`$`N: `%humm, do you want to go out with me,`k
+ @do saybar
+ humm, on a date with me?`k
+ @dataload npc\npcstat.idf `p70 `p29
+ @if `p29 < 4 then do
+ @begin
+ @dataload npc\npcstat2.idf `p70 `p29
+ @if `p29 > 0 then do
+ @begin
+ @if `p29 is &playernum then do
+ @begin
+ @do saybar
+`$`s01: `%Ok great, I've been waiting for you honey. `!:`4)`l
+ @do goto ondate
+ @end
+ @if `p29 NOT &playernum then do
+ @begin
+ @dataload npc\npcslut.idf `p70 `p29
+ @do `p22 random `p29 1
+ @if `p22 < 10 then goto nodate
+ @if `p22 is 15 then goto nodate
+ @if `p22 is 19 then goto nodate
+ @if `p22 is 22 then goto nodate
+ @if `p22 is 26 then goto nodate
+ @if `p22 is 33 then goto nodate
+ @if `p22 is 44 then goto nodate
+ @if `p22 is 50 then goto nodate
+ @if `p22 is 55 then goto nodate
+ @if `p22 is 58 then goto nodate
+ @if `p22 is 60 then goto nodate
+ @if `p22 is 70 then goto nodate
+ @if `p22 is 80 then goto nodate
+ @if `p22 is 90 then goto nodate
+ @if `p22 is 100 then goto nodate
+ @if `p22 is 120 then goto nodate
+ @if `p22 is 199 then goto nodate
+ @dataload npc\npcloyal.idf `p70 `p29
+ @do `p22 random `p29 1
+ @if `p22 > 50 then goto nodate
+ @if `p22 < 51 then do
+ @begin
+ @do `p22 random `p29 1
+ @if `p22 > 25 then goto nodate
+ @end
+ @do goto godate2
+ @label nodate
+ ; now lets see if old romance is still alive!
+@dataload npc\npcdy`p70.idf &playernum `p22
+@dataload npc\npctouch.idf `p70 `p29
+@do `p23 is &time
+@do `p23 - `p22
+@if `p23 > `p29 then do
+ @begin
+ @dataload npc\npcstat2.idf `p70 `p29
+ @writefile mail\mail`p29.dat
+ `0`s01 wrote this letter to you:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ `7Where have you been, I have not heard from you in about
+ `7`p23 days. I'm just writing to you to let you know our
+ `7relationship has come to an end.
+
+ `7I've found someone else who is treating me well.
+ `7~`s01
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`k
+ @do goto godate2
+ @end
+ @do saybar
+`$`s01: `%sorry `N, I'm not interested, I'm already seeing someone.`l
+ @dataload npc\npcloyal.idf `p70 `p29
+ @do `p29 + 2
+ @datasave npc\npcloyal.idf `p70 `p29
+ @dataload npc\npcslut.idf `p70 `p29
+ @do `p29 - 2
+ @if `p29 < 1 then `p29 is 0
+ @datasave npc\npcslut.idf `p70 `p29
+ @dataload npc\npcstat2.idf `p70 `p29
+ @writefile mail\mail`p29.dat
+ `0`s01 wrote this letter to you:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ `7Hello my dear, I miss you, will you come to see me today?
+ `7I've been having problems with `N. S&man keeps asking me
+ `7out for romantic get togethers. I'm just fed up with it.
+ `7
+ `7I turned s&him away.
+ `7~`s01
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`k
+ @do goto leave
+ @end
+ @end
+ @label godate2
+ @do `p22 random 3 1
+ @if `p22 is 1 then do
+ @begin
+ @do saybar
+`$`s01: `%Yah sure, why not, you've charmed me thus far. `!:`4)`l
+ @label godate
+ @bitset `t50 1 1
+ @do `p71 is `p70
+ @datasave npc/npchere.idf `p70 &playernum
+ @if `p29 is 0 then do
+ @begin
+ @datasave npc\npcstat.idf `p70 1
+ @do quebar
+`%`s01 is following you now.
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @if `p24 is 2 then `p22 + 2
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 2
+ @do goto leave
+ @end
+ @end
+ @if `p22 > 1 then do
+ @begin
+ @do saybar
+`$`s01: `%Sorry, not today, I am busy today.`k
+ @do saybar
+`$`s01: `%Thanks for the offer though.`k
+ @do quebar
+`%Ask `03 again another day.
+ @end
+ @end
+;procedure to check if npc will "cheat" with another player.
+ @if `p29 > 1 then do
+ @begin
+ @dataload /npc/npcloyal.idf `p70 `p40
+ @do `p29 random `p40 1
+ @if `p29 < 10 then do
+ @begin
+ @do saybar
+`$`s01: `%Yah sure, why not, you've charmed me this far. `!:`4)
+ @bitset `t50 1 1
+ @datasave npc\npcstat.idf `p70 1
+ @do quebar
+`%`s01 is following you now.
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @if `p24 is 2 then `p22 + 3
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 2
+ @do goto leave
+ @end
+ @if `p22 is 0 then do
+ @begin
+ @if `p29 < 150 then do
+ @begin
+ @if `p29 > 10 then do
+ @begin
+ @do `p28 random 3 1
+ @if `p28 is 1 then do
+ @begin
+ @do saybar
+`$`s01: `%Yah sure, why not, you've charmed me thus far. `!:`4)
+ @bitset `t50 1 1
+ @datasave npc\npcstat.idf `p70 1
+ @do quebar
+`%`s01 is following you now.
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @if `p24 is 2 then `p22 + 3
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 2
+ @do `p22 is 1
+ @do goto leave
+ @end
+ @end
+ @end
+ @end
+ @if `p22 is 0 then do
+ @begin
+ @if `p29 < 200 then do
+ @begin
+ @if `p29 > 149 then do
+ @begin
+ @do `p28 random 8 1
+ @if `p28 is 1 then do
+ @begin
+ @do saybar
+`$`s01: `%Yah sure, why not, you've charmed me this far. `!:`4)
+ @bitset `t50 1 1
+ @datasave npc\npcstat.idf `p70 1
+ @do quebar
+`%`s01 is following you now.
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + `p23
+ @if `p24 is 2 then `p22 + 3
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 2
+ @do goto leave
+ @end
+ @end
+ @end
+ @end
+ @end
+ @end
+
+@label 10-no
+@do saybar
+`%`s01: `%I am not interested.
+@do goto leave
+
+@label 10-yes
+;fuck 'em! :)
+ @dataload npc/npc-`p70.idf &playernum `p40
+ @dataload npc/npcreqc5.idf `p70 `p41
+ @if `p41 > `p40 then goto 10-yes2 ;<--- check if NPC is a SLUT!
+ @do saybar
+`$`s01: Okay sure, why not, this could be fun. `!;`@)`k
+ @routineabort
+ @run STARTSEX in npc-sex.ref
+ @closescript
+
+;
+;
+; going to remove this part, new/better/cooler routines is in npc-sex.ref now.
+;
+;
+
+ @do `p22 random 3 1
+ @if `p22 is 1 then do
+ @begin
+ @do saybar
+`$`s01: `%come over here baby. `k
+ @do saybar
+`$`s01: `%CLOSER!! `k
+ @do saybar
+`k`k`k`k
+ @do saybar
+`$`s01: `%That was SOOOO good, you're the best. `k
+ @do saybar
+`%After a while you get off of `s03 and continue your quests.
+ @do `p34 + 1
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p24 random 3 1
+ @do `p22 + `p24
+ @if `p24 is 2 then `p22 + 3
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 + 5
+ @do goto leave
+ @end
+
+ @if `p22 is 2 then do
+ @begin
+ @do saybar
+`$`s01: Sorry, not today, maybe next time.
+ @do goto leave
+ @end
+ @if `p22 is 3 then do
+ @begin
+ @do saybar
+`$`s01: I am not in the mood.
+ @do goto leave
+ @end
+; @end
+ @do `p22 random 3 1
+ @if `p22 is 1 then do
+ @begin
+ @do saybar
+`$`s01: I'm not that type of person.
+ @do goto leave
+ @end
+ @if `p22 is 2 then do
+ @begin
+ @do saybar
+`$`s01: Sorry, not today, maybe next time.
+ @do goto leave
+ @end
+ @if `p22 is 3 then do
+ @begin
+ @do saybar
+`$`s01: I'm not that type of person.
+ @do goto leave
+ @end
+@do goto leave
+
+@label 10-yes2
+@if `p08 < 1 then do
+ @begin
+ @dataload npc/npcslut.idf `p70 `p22
+ @dataload npc/npcgreed.idf `p70 `p27
+ @if `p22 > 25 then do
+ @begin
+ @do `p29 random `p22 1
+ @if `p29 > 50 then do
+ @begin
+ @do `p28 random 5 1
+ @do `p22 / `p28
+ @do `p28 random `p27 1
+ @do `p22 * `p28
+ @do `p22 * `p09
+ @do saybar
+`$`s01: `%It'll cost you, are you willing to pay `$`p22 gold`%? `0[y/N]
+ @DO GETCHAR `s10
+ @if `s10 is N then goto leave4
+ @if `s10 is Y then do
+ @begin
+ @if money < `p22 then goto leave3
+ @do money - `p22
+ @dataload npc/npcgold.idf `p70 `p29
+ @do `p29 + `p22
+ @datasave npc/npcgold.idf `p70 `p29
+ @if `p27 > 150 then do
+ @begin
+ @if money < `p27 then do
+ @begin
+ @do `p27 is money
+ @do money is 0
+ @end
+ @dataload npc/npcgold.idf `p70 `p29
+ @do `p29 + `p27
+ @datasave npc/npcgold.idf `p70 `p29
+ @end
+ @if `p27 > 197 then do
+ @begin
+ @do `p27 is money
+ @dataload npc/npcgold.idf `p70 `p29
+ @do `p29 + `p27
+ @datasave npc/npcgold.idf `p70 `p29
+ @do money is 0
+ @end
+ @do saybar
+`$`s01: `%Okay, lets get it on then, `k
+ @do saybar
+`$`s01: `%come over here baby. `k
+ @do saybar
+`$`s01: `%CLOSER!! `k
+ @do saybar
+`k`k`k`k
+ @do saybar
+`$`s01: `%That was SOOOO good, you're the best. `k
+ @do saybar
+`%After a while you get off of `s03 and continue your quests.
+ @do addlog
+`@`N has slept with the whore, `s01!
+ @dataload npc\npcvd.idf `p70 `p28
+ @if `p28 > 0 then do
+ @begin
+ @do `p12 is 1
+ @end
+ @if `p12 > 0 then do
+ @begin
+ @datasave npc\npcvd.idf `p70 1
+ @end
+ @do `p34 + 1
+ @dataload npc\npclays.idf `p70 `p28
+ @do `p28 + 1
+ @datasave npc\npclays.idf `p70 `p28
+ @dataload npc\laynp`p70.idf &playernum `p28
+ @do `p28 + 1
+ @datasave npc\laynp`p70.idf &playernum `p28
+ @do goto leave
+ @end
+ @end
+ @end
+ @end
+ @do saybar
+`$`s01: `%HA HA, you're not experienced enough for me!
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 - `p23
+ @if `p24 is 2 then `p22 - 3
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @if `p24 is 3 then `p08 - 1
+ @if `p24 is 4 then `p08 - 2
+ @do goto leave
+ @end
+@do goto leave
+
+@label 11-no
+@do saybar
+`$`s01: `4That's illegal in this realm.
+@do goto leave
+
+@label 11-yes
+@do saybar
+`$`N: `%Will you marry me? `k
+@do `p22 is 0
+@dataload npc/npcage.idf `p70 `p29
+@if `p29 < 18 then do
+ @begin
+ @do saybar
+`$`s01: `%I am way to young to be thinking about marriage.
+ @do `p22 is 1
+ @do goto leave
+ @end
+@if `p39 < 18 then do
+ @begin
+ @do saybar
+`$`s01: `%You are way to young to be thinking about marriage.
+ @do `p22 is 1
+ @do goto leave
+ @end
+@if `p08 < 150 then do
+ @begin
+ @do saybar
+`$`s01: `%You're thinking about marriage already?`k
+ @do saybar
+`$`s01: `%We just not ready for this yet.
+ @end
+@if `p08 > 149 then do
+ @begin
+ @do `p49 random 3 1
+ @if `p49 is 2 then do
+ @begin
+;YES, the wedding will happen
+ @do saybar
+`$`s01: `%I dekko my feelings for you, `k
+ @do saybar
+`$`s01: `%YES, I WILL.
+;find date of wedding
+ @do `p27 random 7 1
+ @do `p27 + 12
+ @do `p27 + &time
+ @label doublecheck
+ @if npc/wed`p27.day exists true then do
+ @begin
+ @do `p27 + 1
+ @if npc/wed`p27.day exists true then goto doublecheck
+ @end
+ @writefile npc/wed`p27.day
+&playernum
+`p70
+ @do quebar
+`%CONGRATS!, your wedding will take place on day `p27.
+ @do quebar
+Don't be late! `!:`4)
+ @do addlog
+`@CONGRATS, `$`N `%has proposed to `$`s01 `%for marriage.
+ @do addlog
+`%The wedding will take place on day `p27, everyone is invited to the
+ @do addlog
+`%to the ceromonies at the wedding chapel.
+ @do goto leave
+ @end
+
+ @do saybar
+`$`s01: `%I am sorry to disapoint you, `k
+ @do saybar
+`$`s01: `%I do not want to wed yet so soon.
+ @end
+@do goto leave
+@closescript
+
+
+;go get married
+@#12-yes
+;marriage not available yet
+@do saybar
+`$`s01: `%Lets wait a bit longer. `8[Feature not availabe yet]
+@do goto leave
+
+@writefile wedfin`p25.txt
+&playernum
+`n
+&sex
+
+
+
+@#12-no
+@do saybar
+`$`s01: `%Lets wait a bit longer.
+@do goto leave
+
+@#13-yes
+;kids not available yet
+@do goto leave
+@#13-no
+;kids not available yet
+@do goto leave
+
+;Go steady
+@#14-yes
+@dataload npc/npcstat.idf `p70 `p29
+@if `p29 < 2 then do
+ @begin
+ @do saybar
+`$`s01: `%Sure babe! I love you.
+ @datasave npc/npcstat.idf `p70 2
+ @datasave npc/npcstat2.idf `p70 &playernum
+ @do goto leave
+ @end
+@if `p29 > 1 then do
+ @begin
+ @dataload npc/npcstat2.idf `p70 `p29
+ @if `p29 is &playernum then do
+ @begin
+ @do saybar
+`$`s01: `%Are you an idiot?? I'm already all yours! :)
+ @do goto leave
+ @end
+ @do saybar
+`$`s01: `%I'm already seeing someone right now.
+ @do goto leave
+ @end
+
+@#14-no
+@do saybar
+`$`s01: `%Yah right, whatever, you're a funny one.
+@do goto leave
+
+@#leave
+@do `p20 is 1
+@do moveback
+;@drawmap
+;@update
+@closescript
+
+@label leave2
+@do `p20 is 1
+;@drawmap
+@do saybar
+`$Your CONSCIENCE: `%Don't over due it buddy.
+@do moveback
+@update
+@closescript
+
+@label leave3
+@do `p20 is 1
+@dataload npc/npc-`p70.idf &playernum `p21
+@do `p22 random 10 1
+@do `p21 - `p22
+@datasave npc/npc-`p70.idf &playernum `p21
+;@drawmap
+@do saybar
+`$`s01: `%HAHAHA!`k
+@do saybar
+`$`s01: `%YOU DON'T HAVE ENOUGH, GET OUT!
+@do moveback
+@update
+@closescript
+
+@label leave4
+@do `p20 is 1
+;@drawmap
+@do saybar
+`$`N: `%No thanks, maybe another time.
+@do moveback
+@update
+@closescript
+
+@#NOMORE
+
diff --git a/xtrn/lord2/cnw/npcflrt2.ref b/xtrn/lord2/cnw/npcflrt2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..086026bba8b2ccde9edb9c3fb925077471172ba6
--- /dev/null
+++ b/xtrn/lord2/cnw/npcflrt2.ref
@@ -0,0 +1,384 @@
+; Script file NPCFLRT2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:40 2001
+
+@DECLARE flirt 000000402
+@DECLARE flirtno 000003711
+@DECLARE flirt2old 000007181
+@DECLARE flirt2yng 000007304
+@DECLARE flirtyes 000007429
+@DECLARE steady 000008188
+@DECLARE leave2 000008858
+@DECLARE leave 000009515
+@NOCHECK
+; End of .REF index
+
+;
+; Will only work with LoRD2: CNW package.
+;
+;
+@#flirt
+;check for max flirt times.
+@dataload npc\npctimes.idf `p70 `p25
+;check current flirts today
+@datanewday npc\npcfl`p70.idf
+@dataload npc\npcfl`p70.idf &playernum `p26
+;add a max flirt
+@do `p25 + 1
+;check if can flirt again.
+@if `p25 < `p26 then goto leave2
+;
+;loading all flirting data requirements
+;
+@dataload npc/npcgendr.idf `p70 `p20 ;male or female and sexuality?
+@dataload npc/npc-`p70.idf &playernum `p22 ;your relationship with (charm)
+@dataload npc\npcreqc1.idf `p70 `p41 ;charm requirements on npc for 1st date
+@dataload npc\npcreqc2.idf `p70 `p42 ;for grab ass
+@dataload npc\npcreqc3.idf `p70 `p43 ;for 1st kiss
+@dataload npc\npcreqc4.idf `p70 `p44 ;for official boyfriend/girlfriend (going steady)
+@dataload npc\npcreqc5.idf `p70 `p45 ;for a lay
+@dataload npc\npcreqc6.idf `p70 `p46 ;for engagement
+@dataload npc\npcreqc7.idf `p70 `p47 ;for marriage
+@dataload npc\npcreqc8.idf `p70 `p48 ;for planned kids
+@dataload npc\npclays.idf `p70 `p29
+
+@do move 63 2
+@do write
+`r4`$����������������Ŀ
+@do move 68 2
+@do write
+`r4`%`s01
+@do move 63 3
+@do write
+`r4`$�`r0 `r4�
+@do move 63 4
+@do write
+`r4`$�`r0 `r4�
+@do move 63 5
+@do write
+`r4`$�`r0 `r4�
+@do move 63 6
+@do write
+`r4`$�`r0 `r4�
+@do move 63 7
+@do write
+`r4`$�`r0 `r4�
+@do move 63 8
+@do write
+`r4`$�`r0 `r4�
+@do move 63 9
+@do write
+`r4`$�`r0 `r4�
+@do move 63 10
+@do write
+`r4`$�`r0 `r4�
+@do move 63 11
+@do write
+`r4`$�`r0 `r4�
+@do move 63 12
+@do write
+`r4`$�`r0 `r4�
+@do move 63 13
+@do write
+`r4`$�`r0 `r4�
+@do move 63 14
+@do write
+`r4`$�`r0 `r4�
+@do move 63 15
+@do write
+`r4`$�`r0 `r4�
+@do move 63 16
+@do write
+`r4`$�`r0 `r4�
+@do move 63 17
+@do write
+`r4`$������������������
+@do `p21 random 25 1
+@do `p22 + `p21
+;check if engaged or married, if so increase "GO STEADY","MARIAGE","MAKE KIDS"
+@dataload npc/npcstat.idf `p70 `p49
+@if `p49 > 3 then do
+ @begin
+ @do `p44 + 200
+ @do `p46 + 200
+ @do `p47 + 200
+ @do `p48 + 200
+ @end
+; --------------------------------------------
+; "make kids" not an option yet in this version yet.
+@do `p48 is 60000
+; --------------------------------------------
+@do move 64 3
+@DO `V01 IS 1
+@choice
+Smile
+Wink
+Gossip
+Blow kiss
+Kiss hand
+Massage Neck
+>`p22 `p42 Grab ass
+>`p22 `p43 Kiss Lips
+>`p22 `p41 Ask out
+>`p22 `p45 Make love
+>`p22 `p46 Ask for hand
+>`p22 `p47 Get married
+>`p22 `p48 Make kids ; <--not available yet
+>`p22 `p44 GO STEADY?
+Forget it
+@drawmap
+@if response is 15 then goto leave
+@if response is 14 then goto steady
+@do `p21 random 15 1
+@do `p11 - `p21
+@dataload npc\npcstat.idf `p70 `p25
+@if `p25 > 1 then do
+ @begin
+ @dataload npc\npcloyal.idf `p70 `p25
+ @do `p29 random `p25 1
+ @if `p29 < 25 then goto flirtyes
+ @if `p29 is 50 then goto flirtyes
+ @if `p29 is 100 then goto flirtyes
+ @if `p29 is 150 then goto flirtyes
+ @if `p29 is 199 then goto flirtyes
+ @do goto flirtno
+ @end
+@do goto flirtyes
+@closescript
+
+@label flirtno
+;@drawmap
+@do `p21 random 22 1
+@if `p21 is 1 then do
+ @begin
+ @do saybar
+`$`s01: `%Sorry, I am not interested.
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do saybar
+`$`s01: `%Sorry, I am not interested.
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do saybar
+`$`s01: `%Sorry, I am not interested in you.
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do saybar
+`@SLAP! `k
+ @do saybar
+`$you've just been slapped across the face
+ @do `p08 - 1
+ @do `p02 / 3
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 - 1
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @end
+@if `p21 is 5 then do
+ @begin
+ @do saybar
+`$`s01 stops, turns around, `k
+ @do saybar
+`$and walks over to the counter,`k
+ @do saybar
+`$picks up something, returns back to you`k
+ @do saybar
+`$and pours a small bucket of cold water over your HEAD!`k
+ @do `p08 - 2
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 - 2
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @end
+@if `p21 is 6 then do
+ @begin
+ @do saybar
+`$`s01: `%YUK!, you're so disgusting, stay away from me!
+ @end
+@if `p21 is 7 then do
+ @begin
+ @do saybar
+`$`s01: `%You still here?? (`s01 is ignoring you)
+ @end
+@if `p21 is 8 then do
+ @begin
+ @do saybar
+`$`s01: `%You still here?? (`s01 is ignoring you)
+ @end
+@if `p21 is 9 then do
+ @begin
+ @do saybar
+`$`s01: `%Get lost loser!
+ @end
+@if `p21 is 10 then do
+ @begin
+ @do saybar
+`$`s01: `%Get AWAY from me!
+ @end
+@if `p21 is 11 then do
+ @begin
+ @do saybar
+`$`s01: `%I smell something odd, i think its you.
+ @end
+@if `p21 is 12 then do
+ @begin
+ @do saybar
+`$`s01: `%What stinks? ahhh..IT's `N!
+ @end
+@if `p21 is 13 then do
+ @begin
+ @do saybar
+`$`s01: `%yikes, sorry i'm not interested.
+ @end
+@if `p21 is 14 then do
+ @begin
+ @do saybar
+`$`s01: `%I'm not into that sort of thing.
+ @end
+@if `p21 is 15 then do
+ @begin
+ @do saybar
+`$`s01: `%Did you try that last week, I'm still not interested.
+ @end
+@if `p21 is 16 then do
+ @begin
+ @do saybar
+`$`s01: `%Did you try that last week, I'm still not interested.
+ @end
+@if `p21 is 17 then do
+ @begin
+ @do saybar
+`$`s01: `%hummm, I don't think so!
+ @end
+@if `p21 is 18 then do
+ @begin
+ @do saybar
+`$`s01: `%hummf... Talk to the hand.
+ @end
+@if `p21 is 19 then do
+ @begin
+ @do saybar
+`$`s01: `%hummf... Talk to the hand.
+ @end
+@if `p21 is 20 then do
+ @begin
+ @do saybar
+`$`s01: `%hummf... Talk to the hand.
+ @end
+@if `p21 is 21 then do
+ @begin
+ @do saybar
+`$( You made `s01 shed a little tear, from fear.
+ @end
+@if `p21 is 22 then do
+ @begin
+ @do saybar
+`$`s01: `%Only if my dad was here to take you down for that!
+ @end
+
+@do `p20 is 1
+@update
+@closescript
+
+@label flirt2old
+@do `p20 is 1
+@do saybar
+`$`s01: `%Yuk!! you're too old for me. You old bag!
+@update
+@closescript
+
+@label flirt2yng
+@do `p20 is 1
+@do saybar
+`$`s01: `%HaHA! who do you think I am? You little kid.
+@update
+@closescript
+
+@label flirtyes
+@dataload npc\npcslut.idf `p70 `p25
+ @do `p29 random `p25 1
+ @if `p29 < 25 then goto flirtno
+ @if `p29 is 50 then `p08 - 1
+ @if `p29 is 50 then goto flirtno
+ @if `p29 is 100 then `p08 - 1
+ @if `p29 is 100 then goto flirtno
+ @if `p29 is 150 then `p08 - 1
+ @if `p29 is 150 then goto flirtno
+ @if `p29 is 199 then `p08 - 1
+ @if `p29 is 199 then goto flirtno
+@dataload npc\npcage.idf `p70 `p23
+@dataload npc\npcagep.idf `p70 `p24
+@do `p25 is `p23
+@do `p25 + `p24
+
+@do `p26 is `p23
+@do `p26 - `p24
+
+@if `p39 > `p25 then goto flirt2old
+@if `p39 < `p26 then goto flirt2yng
+
+@dataload npc/npcgendr.idf `p70 `p20
+@routine flirt in npcflirt.ref
+@closescript
+
+@#steady
+@do `p27 random 3 1
+@if `p27 is 1 then do
+ @begin
+ @do saybar
+`$`s01: `%Yah sure, lets go steady.`k
+ @datasave npc/npcstat.idf `p70 2
+ @bitset `t50 1 1
+ @do addlog
+`s01 is now going steady with `N.
+ @end
+@if `p27 > 1 then do
+ @begin
+ @do saybar
+`$`s01: `%No, not yet, I'm not ready for you.
+ @datasave npc/npcstat.idf `p70 2
+ @do addlog
+`s01 put down `N, `N asked to go steady.
+ @end
+@end
+@do `p20 is 1
+;@drawmap
+@do moveback
+@update
+@closescript
+
+@label leave2
+@do `p20 is 1
+@do `p21 random 5 1
+@if `p21 is 1 then do
+ @begin
+ @do saybar
+`$Your CONSCIENCE: `%Don't over due it buddy.
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do saybar
+`$`s01: `%Thats enough for today sweaty.
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do saybar
+`$`s01: `%Don't push it lover s&boy.
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do saybar
+`$It could be bad to continue this now.
+ @end
+@if `p21 is 5 then do
+ @begin
+ @do saybar
+`$You decide to leave as is for now.
+ @end
+
+@do moveback
+@update
+@closescript
+
+@#LEAVE
+@closescript
+
diff --git a/xtrn/lord2/cnw/npcgosip.ref b/xtrn/lord2/cnw/npcgosip.ref
new file mode 100644
index 0000000000000000000000000000000000000000..5b9750927dab55d8f6f554f62a133ddb1c2e8cf3
--- /dev/null
+++ b/xtrn/lord2/cnw/npcgosip.ref
@@ -0,0 +1,82 @@
+; Script file NPCGOSIP.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:41 2001
+
+@DECLARE gossip 000000184
+@DECLARE notalk 000002622
+@NOCHECK
+; End of .REF index
+
+
+@#Gossip
+@dataload npc/npcvd.idf `p70 `p21
+@if `p21 > 0 then do
+ @begin
+;Don't ALWAYS have to tell the player this. ;-) let them get VD, mohahaha!
+ @if `p71 > 0 then do ;can't take 2 npcs so forget telling.
+ @begin
+ @do goto notalk
+ @end
+ @Do `p21 random 6 1
+ @if `p21 is 1 then do
+ @begin
+ @do saybar
+`$`s01: `%I have `@VD`% `!:`@( `k
+ @do saybar
+`$`s01: `%Can you please bring me to a healer that can help me? [Y/n]
+ @DO READSPECIAL `s03 YN
+ @if `s03 is Y then do
+ @begin
+ @do saybar
+`$`s01: `%Thank-you very much, take me there now please.`k
+ @datasave npc/npchere.idf `p70 &playernum
+ @bitset `t50 2 1
+ @do `p71 is `p70
+ @end
+ @do `p20 is 1
+ @drawmap
+ @do moveback
+ @update
+ @closescript
+ @end
+ @end
+@dataload npc/npctaxes.idf `p70 `p21
+@if `p21 > 0 then do
+ @begin
+ @if `p71 > 0 then do ;can't take 2 npcs so forget telling.
+ @begin
+ @do goto notalk
+ @end
+ @dataload npc/npc-`p71.idf &playernum `p27
+ @if `p27 < 4 then do ;will not got with strangers. :)
+ @begin
+ @do goto notalk
+ @end
+ @Do `p21 random 6 1
+ @if `p21 is 1 then do
+ @begin
+ @do saybar
+`$`s01: `%I haven't paid my taxes yet, i need help getting there.`!:`@( `k
+ @do saybar
+`$`s01: `%Would you please bring me to the place to pay taxes? [Y/n]
+ @DO READSPECIAL `s03 YN
+ @if `s03 is Y then do
+ @begin
+ @do saybar
+`$`s01: `%Thank-you very much, take me there now please.
+ @datasave npc/npchere.idf `p70 &playernum
+ @bitset `t50 3 1
+ @do `p71 is `p70
+ @end
+ @do `p20 is 1
+ @drawmap
+ @do moveback
+ @update
+ @closescript
+ @end
+ @end
+
+@label notalk
+@do `p20 is 0
+@drawmap
+@do moveback
+@update
+@closescript
diff --git a/xtrn/lord2/cnw/npclost.ref b/xtrn/lord2/cnw/npclost.ref
new file mode 100644
index 0000000000000000000000000000000000000000..0aa087dd6df717ef8b1fde67a060e531ad92e765
--- /dev/null
+++ b/xtrn/lord2/cnw/npclost.ref
@@ -0,0 +1,275 @@
+; Script file NPCLOST.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:16 2001
+
+@DECLARE end 000000394
+@DECLARE finding 000000421
+@DECLARE top 000000478
+@DECLARE foundnpc 000000906
+@DECLARE stilllost 000000939
+@NOCHECK
+; End of .REF index
+
+; Maint to find any lost NPCs.
+;
+;
+; You can now call up the 'location' routine from any REF to get screen
+; map names.
+;
+;
+
+@#end
+@closescript
+
+@#finding
+@do `p24 is 0
+@do `p20 is 0
+@do `p21 is 0
+@label top
+@do `p20 + 1
+@if `p20 > 200 then goto end
+@dataload npc/npclost.idf `p20 `p21
+@if `p21 > 0 then do
+ @begin
+ @do `p22 random 15 1
+ @if `p22 is 6 then do
+ @begin
+ @do goto foundnpc
+ @end
+ @if `p22 > 6 then do
+ @begin
+ @do goto stilllost
+ @end
+ @end
+@do goto top
+
+@#foundnpc
+@do `p24 is 1
+@label stilllost
+@if `p20 is 1 then `s01 is Violet
+@if `p20 is 2 then `s01 is Seth`xAble
+;East StoneBrook
+@if `p20 is 3 then `s01 is Wryn
+@if `p20 is 4 then `s01 is Kess
+@if `p20 is 5 then `s01 is Sherra
+@if `p20 is 6 then `s01 is Hattie
+@if `p20 is 7 then `s01 is Ninna
+@if `p20 is 8 then `s01 is Georgie
+@if `p20 is 9 then `s01 is Nicki
+@if `p20 is 10 then `s01 is Gei
+@if `p20 is 11 then `s01 is Sally
+@if `p20 is 12 then `s01 is Yowli
+@if `p20 is 13 then `s01 is Chip
+@if `p20 is 14 then `s01 is Mrs`xJenkins
+;GreenTree
+@if `p20 is 15 then `s01 is Laura
+@if `p20 is 16 then `s01 is Sheep`xMan
+@if `p20 is 17 then `s01 is Elle
+@if `p20 is 18 then `s01 is Ma
+@if `p20 is 19 then `s01 is Estella
+@if `p20 is 20 then `s01 is Lango
+;porttown
+@if `p20 is 21 then `s01 is Guy
+;Voodoo Temple
+@if `p20 is 22 then `s01 is Mickey
+@if `p20 is 23 then `s01 is Aerith
+@if `p20 is 24 then `s01 is Invisible`xMan
+@if `p20 is 25 then `s01 is Rudy
+@if `p20 is 26 then `s01 is Julia
+@if `p20 is 27 then `s01 is Kita
+@if `p20 is 28 then `s01 is Elay
+;Gypsy Camp
+@if `p20 is 29 then `s01 is Lilliana
+@if `p20 is 30 then `s01 is Chandler
+@if `p20 is 31 then `s01 is Lela
+@if `p20 is 32 then `s01 is Mirella
+@if `p20 is 33 then `s01 is Sherif
+@if `p20 is 34 then `s01 is Viollica
+@if `p20 is 35 then `s01 is Gimi
+;South of FlagCity
+@if `p20 is 36 then `s01 is Spence
+@if `p20 is 37 then `s01 is Lost`xMan
+@if `p20 is 38 then `s01 is Chance
+@if `p20 is 39 then `s01 is Johnny
+@if `p20 is 40 then `s01 is Old`xWarrior
+;Sosin Village
+@if `p20 is 41 then `s01 is Matt`xLongsword
+@if `p20 is 42 then `s01 is Wiscard
+@if `p20 is 43 then `s01 is Basil
+@if `p20 is 44 then `s01 is Somebody
+@if `p20 is 45 then `s01 is Somebody
+@if `p20 is 46 then `s01 is Somebody
+@if `p20 is 47 then `s01 is Somebody
+;PawnShop
+@if `p20 is 48 then `s01 is Somebody
+@if `p20 is 49 then `s01 is Nick
+;Far North
+@if `p20 is 50 then `s01 is Prince`xCorin
+@if `p20 is 51 then `s01 is Somebody
+@if `p20 is 52 then `s01 is Somebody
+@if `p20 is 53 then `s01 is Somebody
+@if `p20 is 54 then `s01 is Somebody
+@if `p20 is 55 then `s01 is Somebody
+@if `p20 is 56 then `s01 is Somebody
+@if `p20 is 57 then `s01 is Somebody
+@if `p20 is 58 then `s01 is Somebody
+@if `p20 is 59 then `s01 is Somebody
+; Loki Inn
+@if `p20 is 60 then `s01 is Loki`xGuard
+@if `p20 is 61 then `s01 is oDiN
+@if `p20 is 62 then `s01 is Hilda
+@if `p20 is 63 then `s01 is Somebody
+@if `p20 is 64 then `s01 is Somebody
+@if `p20 is 65 then `s01 is Somebody
+@if `p20 is 66 then `s01 is Somebody
+@if `p20 is 67 then `s01 is Somebody
+@if `p20 is 68 then `s01 is Somebody
+@if `p20 is 69 then `s01 is Somebody
+@if `p20 is 70 then `s01 is Somebody
+@if `p20 is 71 then `s01 is Somebody
+@if `p20 is 72 then `s01 is Somebody
+@if `p20 is 73 then `s01 is Somebody
+@if `p20 is 74 then `s01 is Somebody
+@if `p20 is 75 then `s01 is Gorilla`xGirl
+; GreenTree (again)
+@if `p20 is 76 then `s01 is Minister
+@if `p20 is 77 then `s01 is Somebody
+@if `p20 is 78 then `s01 is Somebody
+@if `p20 is 79 then `s01 is Somebody
+;Scorpian's Den
+@if `p20 is 80 then `s01 is Old`xMan`xScorp
+@if `p20 is 81 then `s01 is Famous`xDrunk
+@if `p20 is 82 then `s01 is Scorpian`xLady
+@if `p20 is 83 then `s01 is Drunk`xLady
+@if `p20 is 84 then `s01 is Scorpian`xMaid
+@if `p20 is 85 then `s01 is Somebody
+@if `p20 is 86 then `s01 is Somebody
+@if `p20 is 87 then `s01 is Somebody
+@if `p20 is 88 then `s01 is Somebody
+@if `p20 is 89 then `s01 is Somebody
+;desert figaro's castle
+@if `p20 is 90 then `s01 is Chancellor
+@if `p20 is 91 then `s01 is Edgar
+@if `p20 is 92 then `s01 is Edgars`xGuard
+@if `p20 is 93 then `s01 is Edgars`xGuard
+@if `p20 is 94 then `s01 is Forga
+@if `p20 is 95 then `s01 is Fatiguel
+@if `p20 is 96 then `s01 is Somebody
+@if `p20 is 97 then `s01 is Somebody
+@if `p20 is 98 then `s01 is Somebody
+;Sandcity
+@if `p20 is 99 then `s01 is Maverick
+;KnotWood
+@if `p20 is 100 then `s01 is Andrew
+@if `p20 is 101 then `s01 is Mr.`xAndrew
+@if `p20 is 102 then `s01 is Mrs.`xAndrew
+;Wizards Castle (near StoneBrook)
+@if `p20 is 103 then `s01 is Violetta
+@if `p20 is 104 then `s01 is Sand`xTiger
+@if `p20 is 105 then `s01 is Direct
+;path from stonebrook to greentree and around greentree
+@if `p20 is 106 then `s01 is Begger
+@if `p20 is 107 then `s01 is Sherie
+@if `p20 is 108 then `s01 is Grizelda
+@if `p20 is 109 then `s01 is Edward
+;Sword Castle
+@if `p20 is 110 then `s01 is Thug
+@if `p20 is 111 then `s01 is Mann
+@if `p20 is 112 then `s01 is Mordin
+@if `p20 is 113 then `s01 is Aqua
+@if `p20 is 114 then `s01 is Somebody
+@if `p20 is 115 then `s01 is Somebody
+;BoneTown
+@if `p20 is 116 then `s01 is Dad
+@if `p20 is 117 then `s01 is Rich`xWoman
+@if `p20 is 118 then `s01 is Jesse
+@if `p20 is 119 then `s01 is Boy
+@if `p20 is 120 then `s01 is John
+@if `p20 is 121 then `s01 is Big`xMa
+@if `p20 is 122 then `s01 is Kelley ;a whore
+@if `p20 is 123 then `s01 is Selena
+@if `p20 is 124 then `s01 is Drunk`xMan
+@if `p20 is 125 then `s01 is Bouncer
+@if `p20 is 126 then `s01 is D.J.
+@if `p20 is 127 then `s01 is Somebody
+@if `p20 is 128 then `s01 is Somebody
+@if `p20 is 129 then `s01 is Somebody
+;PortTown - Odin's Keep area
+@if `p20 is 130 then `s01 is Grey`xMan
+@if `p20 is 131 then `s01 is Jennie
+@if `p20 is 132 then `s01 is Rosie
+@if `p20 is 133 then `s01 is Somebody
+;Resort + Glendale near StoneBrook
+@if `p20 is 134 then `s01 is Happy`xPappy
+@if `p20 is 135 then `s01 is Dan
+@if `p20 is 136 then `s01 is Don
+@if `p20 is 137 then `s01 is Lone
+@if `p20 is 138 then `s01 is Dance
+@if `p20 is 139 then `s01 is Somebody
+@if `p20 is 140 then `s01 is Somebody
+@if `p20 is 141 then `s01 is Somebody
+@if `p20 is 142 then `s01 is Somebody
+@if `p20 is 143 then `s01 is Somebody
+@if `p20 is 144 then `s01 is Somebody
+@if `p20 > 144 then `s01 is Somebody
+;--All the Whores!--
+; Female
+@if `p20 is 170 then `s01 is Kelli
+@if `p20 is 171 then `s01 is Karen
+@if `p20 is 172 then `s01 is Mundin
+@if `p20 is 173 then `s01 is Mulan
+@if `p20 is 174 then `s01 is Pocahontas
+@if `p20 is 175 then `s01 is Samira
+@if `p20 is 176 then `s01 is Linda
+@if `p20 is 177 then `s01 is White
+@if `p20 is 178 then `s01 is Red
+@if `p20 is 179 then `s01 is Jasmine
+@if `p20 is 180 then `s01 is Marilyn
+@if `p20 is 181 then `s01 is Yewanda
+@if `p20 is 182 then `s01 is Karlita
+@if `p20 is 183 then `s01 is Kelly
+@if `p20 is 184 then `s01 is Sheila
+@if `p20 is 185 then `s01 is Bibianna
+@if `p20 is 186 then `s01 is Yuko
+@if `p20 is 187 then `s01 is Lisa
+@if `p20 is 188 then `s01 is Kina
+@if `p20 is 189 then `s01 is Kiko
+@if `p20 is 190 then `s01 is Kimbery
+@if `p20 is 191 then `s01 is Cindy
+@if `p20 is 192 then `s01 is Yurri
+@if `p20 is 193 then `s01 is Tina
+@if `p20 is 194 then `s01 is Tanya
+@if `p20 is 195 then `s01 is Saby
+@if `p20 is 196 then `s01 is Asada
+;@if `p20 is 197 then `s01 is Nobody
+@if `p20 is 198 then `s01 is Fast`xFreddy
+@if `p20 is 199 then `s01 is SysOp
+
+@if `p24 is 1 then do
+ @begin
+ @writefile lognow.txt
+ `$`s01 `%came home safely today.
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave npc/npclost.idf `p20 0
+ @datasave npc/npclost2.idf `p20 0
+ @if `p20 < 200 then goto top
+ @closescript
+ @end
+
+@datanewday npc/npclost3.idf
+@dataload npc/npclost3.idf &playernum `p29
+@if `p20 is 0 then do
+ @begin
+ @writefile lognow.txt
+ `$`s01 `%is `4is still missing.
+ `2-`0=`2-`%=`2-`0=`2-
+@dataload npc/npclost.idf `p20 `p21
+@routineabort
+@routine location in locate2.ref
+@writefile lognow.txt
+ `%`s01 was last seen near `5`s02`4.
+ `2-`0=`2-`%=`2-`0=`2-
+ @end
+@if `p20 < 200 then goto top
+@run `s08 in `s09
+@closescript
+
+
diff --git a/xtrn/lord2/cnw/npcmaint.ref b/xtrn/lord2/cnw/npcmaint.ref
new file mode 100644
index 0000000000000000000000000000000000000000..a14f3a7f435808c6a7093d97163a4549d3daf3cf
--- /dev/null
+++ b/xtrn/lord2/cnw/npcmaint.ref
@@ -0,0 +1,308 @@
+; Script file NPCMAINT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:36 2001
+
+@DECLARE start 000000750
+@DECLARE top 000000968
+@DECLARE start2 000001414
+@DECLARE top2 000001639
+@DECLARE 1 000001992
+@DECLARE 2 000002299
+@DECLARE 3 000002606
+@DECLARE 4 000002913
+@DECLARE 5 000003220
+@DECLARE 6 000003527
+@DECLARE 7 000003834
+@DECLARE 8 000004141
+@DECLARE 9 000004448
+@DECLARE 10 000004576
+@DECLARE 11 000004884
+@DECLARE 12 000005192
+@DECLARE 13 000005498
+@DECLARE 14 000005806
+@DECLARE 15 000006110
+@DECLARE 16 000006418
+@DECLARE 17 000006695
+@DECLARE 18 000006972
+@DECLARE 19 000007251
+@DECLARE 20 000007262
+@DECLARE 21 000007273
+@DECLARE 22 000007284
+@DECLARE end 000007600
+@NOCHECK
+; End of .REF index
+
+@#start
+@do `p22 is 0
+@datanewday npc/npcbday.tmp
+@dataload npc/npcbday.tmp 1 `p20
+@if `p20 > 0 then goto start2
+@do `p20 + 1
+@datasave npc/npcbday.tmp 1 `p20
+@do write
+`\ `%Checking for NPC Birthdays.`\
+
+@label top
+@do `p22 + 1
+@if `p22 > 200 then goto start2
+@dataload npc\npc-bday.idf `p22 `p23
+@if `p23 is `v11 then do
+ @begin
+ @do `p70 is `p22
+ @routine getname in npcname.ref
+ @dataload npc\npcage.idf `p22 `p25
+ @do `p25 + 1
+ @do addlog
+`2It's `s01 birthday today. `s02 turned `p25 years old.
+ @datasave npc\npcage.idf `p22 `p25
+ @do goto top
+ @end
+@do goto start2
+
+@#start2
+@datanewday npc/npcchange.tmp
+@dataload npc/npcchange.tmp 1 `p20
+@if `p20 > 3 then goto end
+@do `p20 + 1
+@datasave npc/npcchange.tmp 1 `p20
+@do write
+`\ `%Minor changes to NPC Profiles.`\
+@do `p29 is 0
+
+@label top2
+@do `p29 + 1
+@if `p29 > 5 then goto end
+@do `p20 random 22 1
+@do `p22 random 200 1
+@dataload npc\npchange.idf `p22 `p23
+@do `p24 random `p23 1
+@if `p24 > 98 then goto `p20
+@if `p24 is 75 then goto `p20
+@if `p24 is 50 then goto `p20
+@if `p24 is 25 then goto `p20
+@if `p24 is 1 then goto `p20
+@if `p23 < 1 then `p23 is 1
+@do goto top2
+
+@#1
+@dataload npc\npcreqc1.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 5
+@if `p25 is 6 then `p23 - 5
+@if `p23 < 1 then `p23 is 1
+@datasave npc\npcreqc1.idf `p22 `p23
+
+@#2
+@dataload npc\npcreqc2.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 5
+@if `p25 is 6 then `p23 - 5
+@if `p23 < 1 then `p23 is 1
+@datasave npc\npcreqc2.idf `p22 `p23
+
+@#3
+@dataload npc\npcreqc3.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 5
+@if `p25 is 6 then `p23 - 5
+@if `p23 < 1 then `p23 is 1
+@datasave npc\npcreqc3.idf `p22 `p23
+
+@#4
+@dataload npc\npcreqc4.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 5
+@if `p25 is 6 then `p23 - 5
+@if `p23 < 1 then `p23 is 1
+@datasave npc\npcreqc4.idf `p22 `p23
+
+@#5
+@dataload npc\npcreqc5.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 5
+@if `p25 is 6 then `p23 - 5
+@if `p23 < 1 then `p23 is 1
+@datasave npc\npcreqc5.idf `p22 `p23
+
+@#6
+@dataload npc\npcreqc6.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 5
+@if `p25 is 6 then `p23 - 5
+@if `p23 < 1 then `p23 is 1
+@datasave npc\npcreqc6.idf `p22 `p23
+
+@#7
+@dataload npc\npcreqc7.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 5
+@if `p25 is 6 then `p23 - 5
+@if `p23 < 1 then `p23 is 1
+@datasave npc\npcreqc7.idf `p22 `p23
+
+@#8
+@dataload npc\npcreqc8.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 5
+@if `p25 is 6 then `p23 - 5
+@if `p23 < 1 then `p23 is 1
+@datasave npc\npcreqc8.idf `p22 `p23
+
+@#9
+@dataload npc\npcvd.idf `p22 `p23
+@do `p25 random 3 1
+@if `p25 is 1 then `p23 + 1
+@datasave npc\npcvd.idf `p22 `p23
+
+@#10
+@dataload npc\npcgreed.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 5
+@if `p25 is 6 then `p23 - 5
+@if `p23 < 1 then `p23 is 1
+@datasave npc\npcgreed.idf `p22 `p23
+
+@#11
+@dataload npc\npctouch.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 5
+@if `p25 is 6 then `p23 - 5
+@if `p23 < 1 then `p23 is 1
+@datasave npc\npctouch.idf `p22 `p23
+
+@#12
+@dataload npc\npcslut.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 5
+@if `p25 is 6 then `p23 - 5
+@if `p23 < 1 then `p23 is 1
+@datasave npc\npcslut.idf `p22 `p23
+
+@#13
+@dataload npc\npcloyal.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 5
+@if `p25 is 6 then `p23 - 5
+@if `p23 < 1 then `p23 is 1
+@datasave npc\npcloyal.idf `p22 `p23
+
+@#14
+@dataload npc\npclbs.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 3
+@if `p25 is 6 then `p23 - 3
+@if `p23 < 1 then `p23 is 1
+@datasave npc\npclbs.idf `p22 `p23
+
+@#15
+@dataload npc\npchange.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 5
+@if `p25 is 6 then `p23 - 5
+@if `p23 < 1 then `p23 is 1
+@datasave npc\npchange.idf `p22 `p23
+
+@#16
+@dataload npc\npcstat.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 5
+@if `p25 is 6 then `p23 - 5
+@datasave npc\npcstat.idf `p22 `p23
+
+@#17
+@dataload npc\npcagep.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 5
+@if `p25 is 6 then `p23 - 5
+@datasave npc\npcagep.idf `p22 `p23
+
+@#18
+@dataload npc\npctimes.idf `p22 `p23
+@do `p25 random 6 1
+@if `p25 is 1 then `p23 + 1
+@if `p25 is 2 then `p23 - 1
+@if `p25 is 3 then `p23 + 2
+@if `p25 is 4 then `p23 - 2
+@if `p25 is 5 then `p23 + 5
+@if `p25 is 6 then `p23 - 5
+@datasave npc\npctimes.idf `p22 `p23
+
+@#19
+@label 20
+@label 21
+@label 22
+@do `p23 random &totalaccounts 1
+@dataload npc\npc-`p22.idf `p23 `p24
+@do `p25 random 6 1
+@if `p25 is 1 then `p24 + 1
+@if `p25 is 2 then `p24 - 1
+@if `p25 is 3 then `p24 + 2
+@if `p25 is 4 then `p24 - 2
+@if `p25 is 5 then `p24 + 5
+@if `p25 is 6 then `p24 - 5
+@datasave npc\npc-`p22.idf `p23 `p24
+
+
+@#end
diff --git a/xtrn/lord2/cnw/npcmake.ref b/xtrn/lord2/cnw/npcmake.ref
new file mode 100644
index 0000000000000000000000000000000000000000..dfd78ff8a27d77620478a016a8ee73a3626cfe68
--- /dev/null
+++ b/xtrn/lord2/cnw/npcmake.ref
@@ -0,0 +1,866 @@
+; Script file NPCMAKE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:20 2001
+
+@DECLARE creation 000001281
+@DECLARE c2 000001344
+@DECLARE c3 000001409
+@DECLARE c4 000001475
+@DECLARE c5 000001539
+@DECLARE creation1 000001573
+@DECLARE creation2 000007744
+@DECLARE creation3 000014514
+@DECLARE creation4 000021654
+@DECLARE nomore 000028343
+@NOCHECK
+; End of .REF index
+
+;
+; npc\npc names and stats
+;
+;
+;npc\npcvd.idf -VD yes or no
+;npc\npcreql.idf -lay requirements for npc\npc, 0=virgin or 1+=non virgin (virgin y/n)
+;npc\npcgreed.idf -greedy? how much 0-255, 0=not at all 255=very greedy
+; (more greedy=likes more money and gifts, less=wants an occasional flower)
+;npc\npctouch.idf -keep in touch requriments 0-255, 255=nothing 0=every day 1=1 day pass
+; (visit npc\npc, send flowers, send letter, send cash, send gift)
+;npc\npcage.idf -age of npc\npc
+;npc\npcslut.idf -pay to sleep with me number (slut value) (this one is really mean) hehe
+; (0=not a slut, 255=total cheap slut) eg255 wants 10g for a lay.
+;npc\npcloyal.idf -npc\npc loyalty level towards lovers. 0=not loyal, 255=very loyal
+;
+; If slutty is high, most likely loyalty will be very low number.
+;npc\npctimes.idf
+;
+;Must create NPC IDF files.
+;
+@#creation
+@if npc\npcvd.idf exists false then goto creation1
+@label c2
+@if npc\npcreql.idf exists false then goto creation2
+@label c3
+@if npc\npcgreed.idf exists false then goto creation3
+@label c4
+@if npc\npcage.idf exists false then goto creation4
+@label c5
+@closescript
+
+@label creation1
+@show
+`\ �`%Creating NPC data file #1.`\
+@datasave npc\npcvd.idf 1 0
+@datasave npc\npcvd.idf 2 0
+@datasave npc\npcvd.idf 3 0
+@datasave npc\npcvd.idf 4 0
+@datasave npc\npcvd.idf 5 0
+@datasave npc\npcvd.idf 6 0
+@datasave npc\npcvd.idf 7 0
+@datasave npc\npcvd.idf 8 0
+@datasave npc\npcvd.idf 9 0
+@datasave npc\npcvd.idf 10 0
+@datasave npc\npcvd.idf 11 0
+@datasave npc\npcvd.idf 12 0
+@datasave npc\npcvd.idf 13 0
+@datasave npc\npcvd.idf 14 0
+@datasave npc\npcvd.idf 15 0
+@datasave npc\npcvd.idf 16 0
+@datasave npc\npcvd.idf 17 0
+@datasave npc\npcvd.idf 18 0
+@datasave npc\npcvd.idf 19 0
+@datasave npc\npcvd.idf 20 0
+@datasave npc\npcvd.idf 21 0
+@datasave npc\npcvd.idf 22 0
+@datasave npc\npcvd.idf 23 0
+@datasave npc\npcvd.idf 24 0
+@datasave npc\npcvd.idf 25 0
+@datasave npc\npcvd.idf 26 0
+@datasave npc\npcvd.idf 27 0
+@datasave npc\npcvd.idf 28 1
+@datasave npc\npcvd.idf 29 0
+@datasave npc\npcvd.idf 30 0
+@datasave npc\npcvd.idf 31 0
+@datasave npc\npcvd.idf 32 1
+@datasave npc\npcvd.idf 33 0
+@datasave npc\npcvd.idf 34 0
+@datasave npc\npcvd.idf 35 0
+@datasave npc\npcvd.idf 36 0
+@datasave npc\npcvd.idf 37 0
+@datasave npc\npcvd.idf 38 0
+@datasave npc\npcvd.idf 39 0
+@datasave npc\npcvd.idf 40 1
+@datasave npc\npcvd.idf 41 0
+@datasave npc\npcvd.idf 42 0
+@datasave npc\npcvd.idf 43 0
+@datasave npc\npcvd.idf 44 0
+@datasave npc\npcvd.idf 45 0
+@datasave npc\npcvd.idf 46 0
+@datasave npc\npcvd.idf 47 0
+@datasave npc\npcvd.idf 48 0
+@datasave npc\npcvd.idf 49 0
+@datasave npc\npcvd.idf 50 0
+@datasave npc\npcvd.idf 51 0
+@datasave npc\npcvd.idf 52 0
+@datasave npc\npcvd.idf 53 0
+@datasave npc\npcvd.idf 54 0
+@datasave npc\npcvd.idf 55 0
+@datasave npc\npcvd.idf 56 0
+@datasave npc\npcvd.idf 57 0
+@datasave npc\npcvd.idf 58 0
+@datasave npc\npcvd.idf 59 0
+@datasave npc\npcvd.idf 60 0
+@datasave npc\npcvd.idf 61 0
+@datasave npc\npcvd.idf 62 0
+@datasave npc\npcvd.idf 63 0
+@datasave npc\npcvd.idf 64 0
+@datasave npc\npcvd.idf 65 0
+@datasave npc\npcvd.idf 66 0
+@datasave npc\npcvd.idf 67 0
+@datasave npc\npcvd.idf 68 0
+@datasave npc\npcvd.idf 69 0
+@datasave npc\npcvd.idf 70 0
+@datasave npc\npcvd.idf 71 0
+@datasave npc\npcvd.idf 72 0
+@datasave npc\npcvd.idf 73 0
+@datasave npc\npcvd.idf 74 0
+@datasave npc\npcvd.idf 75 0
+@datasave npc\npcvd.idf 76 0
+@datasave npc\npcvd.idf 77 0
+@datasave npc\npcvd.idf 78 0
+@datasave npc\npcvd.idf 79 0
+@datasave npc\npcvd.idf 80 0
+@datasave npc\npcvd.idf 81 1
+@datasave npc\npcvd.idf 82 1
+@datasave npc\npcvd.idf 83 1
+@datasave npc\npcvd.idf 84 0
+@datasave npc\npcvd.idf 85 0
+@datasave npc\npcvd.idf 86 0
+@datasave npc\npcvd.idf 87 0
+@datasave npc\npcvd.idf 88 0
+@datasave npc\npcvd.idf 89 0
+@datasave npc\npcvd.idf 90 0
+@datasave npc\npcvd.idf 91 0
+@datasave npc\npcvd.idf 92 0
+@datasave npc\npcvd.idf 93 0
+@datasave npc\npcvd.idf 94 0
+@datasave npc\npcvd.idf 95 0
+@datasave npc\npcvd.idf 96 0
+@datasave npc\npcvd.idf 97 0
+@datasave npc\npcvd.idf 98 0
+@datasave npc\npcvd.idf 99 0
+@datasave npc\npcvd.idf 100 0
+@datasave npc\npcvd.idf 101 0
+@datasave npc\npcvd.idf 102 0
+@datasave npc\npcvd.idf 103 0
+@datasave npc\npcvd.idf 104 0
+@datasave npc\npcvd.idf 105 0
+@datasave npc\npcvd.idf 106 1
+@datasave npc\npcvd.idf 107 0
+@datasave npc\npcvd.idf 108 1
+@datasave npc\npcvd.idf 109 0
+@datasave npc\npcvd.idf 110 0
+@datasave npc\npcvd.idf 111 0
+@datasave npc\npcvd.idf 112 0
+@datasave npc\npcvd.idf 113 0
+@datasave npc\npcvd.idf 114 0
+@datasave npc\npcvd.idf 115 0
+@datasave npc\npcvd.idf 116 0
+@datasave npc\npcvd.idf 117 0
+@datasave npc\npcvd.idf 118 0
+@datasave npc\npcvd.idf 119 0
+@datasave npc\npcvd.idf 120 0
+@datasave npc\npcvd.idf 121 0
+@datasave npc\npcvd.idf 122 0
+@datasave npc\npcvd.idf 123 0
+@datasave npc\npcvd.idf 124 0
+@datasave npc\npcvd.idf 125 0
+@datasave npc\npcvd.idf 126 0
+@datasave npc\npcvd.idf 127 0
+@datasave npc\npcvd.idf 128 0
+@datasave npc\npcvd.idf 129 0
+@datasave npc\npcvd.idf 130 0
+@datasave npc\npcvd.idf 131 0
+@datasave npc\npcvd.idf 132 0
+@datasave npc\npcvd.idf 133 0
+@datasave npc\npcvd.idf 134 0
+@datasave npc\npcvd.idf 135 0
+@datasave npc\npcvd.idf 136 0
+@datasave npc\npcvd.idf 137 0
+@datasave npc\npcvd.idf 138 0
+@datasave npc\npcvd.idf 139 0
+@datasave npc\npcvd.idf 140 0
+@datasave npc\npcvd.idf 141 0
+@datasave npc\npcvd.idf 142 0
+@datasave npc\npcvd.idf 143 0
+@datasave npc\npcvd.idf 144 0
+@datasave npc\npcvd.idf 145 0
+@datasave npc\npcvd.idf 146 0
+@datasave npc\npcvd.idf 147 0
+@datasave npc\npcvd.idf 148 0
+@datasave npc\npcvd.idf 149 0
+@datasave npc\npcvd.idf 150 0
+@datasave npc\npcvd.idf 151 0
+@datasave npc\npcvd.idf 152 0
+@datasave npc\npcvd.idf 153 0
+@datasave npc\npcvd.idf 154 0
+@datasave npc\npcvd.idf 155 0
+@datasave npc\npcvd.idf 156 0
+@datasave npc\npcvd.idf 157 0
+@datasave npc\npcvd.idf 158 0
+@datasave npc\npcvd.idf 159 0
+@datasave npc\npcvd.idf 160 0
+@datasave npc\npcvd.idf 161 0
+@datasave npc\npcvd.idf 162 0
+@datasave npc\npcvd.idf 163 0
+@datasave npc\npcvd.idf 164 0
+@datasave npc\npcvd.idf 165 0
+@datasave npc\npcvd.idf 166 0
+@datasave npc\npcvd.idf 167 0
+@datasave npc\npcvd.idf 168 0
+@datasave npc\npcvd.idf 169 0
+@datasave npc\npcvd.idf 170 0
+@datasave npc\npcvd.idf 171 0
+@datasave npc\npcvd.idf 172 0
+@datasave npc\npcvd.idf 173 0
+@datasave npc\npcvd.idf 174 0
+@datasave npc\npcvd.idf 175 0
+@datasave npc\npcvd.idf 176 0
+@datasave npc\npcvd.idf 177 0
+@datasave npc\npcvd.idf 178 0
+@datasave npc\npcvd.idf 179 0
+@datasave npc\npcvd.idf 180 0
+@datasave npc\npcvd.idf 181 0
+@datasave npc\npcvd.idf 182 0
+@datasave npc\npcvd.idf 183 0
+@datasave npc\npcvd.idf 184 0
+@datasave npc\npcvd.idf 185 0
+@datasave npc\npcvd.idf 186 0
+@datasave npc\npcvd.idf 187 0
+@datasave npc\npcvd.idf 188 0
+@datasave npc\npcvd.idf 189 0
+@datasave npc\npcvd.idf 190 0
+@datasave npc\npcvd.idf 191 0
+@datasave npc\npcvd.idf 192 0
+@datasave npc\npcvd.idf 193 0
+@datasave npc\npcvd.idf 194 0
+@datasave npc\npcvd.idf 195 0
+@datasave npc\npcvd.idf 196 0
+@datasave npc\npcvd.idf 197 0
+@datasave npc\npcvd.idf 198 0
+@datasave npc\npcvd.idf 199 0
+@datasave npc\npcvd.idf 200 0
+@do goto c2
+;
+@label creation2
+@show
+`\ �`%Creating NPC data file #2.`\
+@datasave npc\npcreql.idf 1 300
+@datasave npc\npcreql.idf 2 300
+@datasave npc\npcreql.idf 3 5
+@datasave npc\npcreql.idf 4 5
+@datasave npc\npcreql.idf 5 5
+@datasave npc\npcreql.idf 6 5
+@datasave npc\npcreql.idf 7 5
+@datasave npc\npcreql.idf 8 5
+@datasave npc\npcreql.idf 9 5
+@datasave npc\npcreql.idf 10 5
+@datasave npc\npcreql.idf 11 5
+@datasave npc\npcreql.idf 12 5
+@datasave npc\npcreql.idf 13 5
+@datasave npc\npcreql.idf 14 1
+@datasave npc\npcreql.idf 15 1
+@datasave npc\npcreql.idf 16 1
+@datasave npc\npcreql.idf 17 0
+@datasave npc\npcreql.idf 18 1
+@datasave npc\npcreql.idf 19 1
+@datasave npc\npcreql.idf 20 1
+@datasave npc\npcreql.idf 21 30
+@datasave npc\npcreql.idf 22 30
+@datasave npc\npcreql.idf 23 30
+@datasave npc\npcreql.idf 24 30
+@datasave npc\npcreql.idf 25 30
+@datasave npc\npcreql.idf 26 30
+@datasave npc\npcreql.idf 27 30
+@datasave npc\npcreql.idf 28 30
+@datasave npc\npcreql.idf 29 30
+@datasave npc\npcreql.idf 30 30
+@datasave npc\npcreql.idf 31 30
+@datasave npc\npcreql.idf 32 30
+@datasave npc\npcreql.idf 33 30
+@datasave npc\npcreql.idf 34 30
+@datasave npc\npcreql.idf 35 30
+@datasave npc\npcreql.idf 36 30
+@datasave npc\npcreql.idf 37 30
+@datasave npc\npcreql.idf 38 30
+@datasave npc\npcreql.idf 39 30
+@datasave npc\npcreql.idf 40 30
+@datasave npc\npcreql.idf 41 30
+@datasave npc\npcreql.idf 42 30
+@datasave npc\npcreql.idf 43 30
+@datasave npc\npcreql.idf 44 30
+@datasave npc\npcreql.idf 45 30
+@datasave npc\npcreql.idf 46 30
+@datasave npc\npcreql.idf 47 30
+@datasave npc\npcreql.idf 48 30
+@datasave npc\npcreql.idf 49 30
+@datasave npc\npcreql.idf 50 30
+@datasave npc\npcreql.idf 51 30
+@datasave npc\npcreql.idf 52 30
+@datasave npc\npcreql.idf 53 30
+@datasave npc\npcreql.idf 54 30
+@datasave npc\npcreql.idf 55 30
+@datasave npc\npcreql.idf 56 30
+@datasave npc\npcreql.idf 57 30
+@datasave npc\npcreql.idf 58 30
+@datasave npc\npcreql.idf 59 30
+@datasave npc\npcreql.idf 60 30
+@datasave npc\npcreql.idf 61 30
+@datasave npc\npcreql.idf 62 30
+@datasave npc\npcreql.idf 63 30
+@datasave npc\npcreql.idf 64 30
+@datasave npc\npcreql.idf 65 30
+@datasave npc\npcreql.idf 66 30
+@datasave npc\npcreql.idf 67 30
+@datasave npc\npcreql.idf 68 30
+@datasave npc\npcreql.idf 69 30
+@datasave npc\npcreql.idf 70 30
+@datasave npc\npcreql.idf 71 30
+@datasave npc\npcreql.idf 72 30
+@datasave npc\npcreql.idf 73 30
+@datasave npc\npcreql.idf 74 30
+@datasave npc\npcreql.idf 75 30
+@datasave npc\npcreql.idf 76 30
+@datasave npc\npcreql.idf 77 30
+@datasave npc\npcreql.idf 78 30
+@datasave npc\npcreql.idf 79 30
+@datasave npc\npcreql.idf 80 30
+@datasave npc\npcreql.idf 81 30
+@datasave npc\npcreql.idf 82 30
+@datasave npc\npcreql.idf 83 100
+@datasave npc\npcreql.idf 84 30
+@datasave npc\npcreql.idf 85 30
+@datasave npc\npcreql.idf 86 30
+@datasave npc\npcreql.idf 87 30
+@datasave npc\npcreql.idf 88 30
+@datasave npc\npcreql.idf 89 30
+@datasave npc\npcreql.idf 90 30
+@datasave npc\npcreql.idf 91 30
+@datasave npc\npcreql.idf 92 30
+@datasave npc\npcreql.idf 93 30
+@datasave npc\npcreql.idf 94 30
+@datasave npc\npcreql.idf 95 30
+@datasave npc\npcreql.idf 96 30
+@datasave npc\npcreql.idf 97 30
+@datasave npc\npcreql.idf 98 30
+@datasave npc\npcreql.idf 99 30
+@datasave npc\npcreql.idf 100 30
+@datasave npc\npcreql.idf 101 30
+@datasave npc\npcreql.idf 102 30
+@datasave npc\npcreql.idf 103 30
+@datasave npc\npcreql.idf 104 30
+@datasave npc\npcreql.idf 105 30
+@datasave npc\npcreql.idf 106 1
+@datasave npc\npcreql.idf 107 99
+@datasave npc\npcreql.idf 108 3
+@datasave npc\npcreql.idf 109 30
+@datasave npc\npcreql.idf 110 30
+@datasave npc\npcreql.idf 111 30
+@datasave npc\npcreql.idf 112 30
+@datasave npc\npcreql.idf 113 30
+@datasave npc\npcreql.idf 114 30
+@datasave npc\npcreql.idf 115 30
+@datasave npc\npcreql.idf 116 30
+@datasave npc\npcreql.idf 117 5
+@datasave npc\npcreql.idf 118 30
+@datasave npc\npcreql.idf 119 30
+@datasave npc\npcreql.idf 120 30
+@datasave npc\npcreql.idf 121 5
+@datasave npc\npcreql.idf 122 30
+@datasave npc\npcreql.idf 123 12
+@datasave npc\npcreql.idf 124 30
+@datasave npc\npcreql.idf 125 30
+@datasave npc\npcreql.idf 126 30
+@datasave npc\npcreql.idf 127 30
+@datasave npc\npcreql.idf 128 30
+@datasave npc\npcreql.idf 129 30
+@datasave npc\npcreql.idf 130 30
+@datasave npc\npcreql.idf 131 30
+@datasave npc\npcreql.idf 132 30
+@datasave npc\npcreql.idf 133 30
+@datasave npc\npcreql.idf 134 30
+@datasave npc\npcreql.idf 135 30
+@datasave npc\npcreql.idf 136 30
+@datasave npc\npcreql.idf 137 30
+@datasave npc\npcreql.idf 138 30
+@datasave npc\npcreql.idf 139 30
+@datasave npc\npcreql.idf 140 30
+@datasave npc\npcreql.idf 141 30
+@datasave npc\npcreql.idf 142 30
+@datasave npc\npcreql.idf 143 30
+@datasave npc\npcreql.idf 144 30
+@datasave npc\npcreql.idf 145 30
+@datasave npc\npcreql.idf 146 30
+@datasave npc\npcreql.idf 147 30
+@datasave npc\npcreql.idf 148 30
+@datasave npc\npcreql.idf 149 30
+@datasave npc\npcreql.idf 150 30
+@datasave npc\npcreql.idf 151 30
+@datasave npc\npcreql.idf 152 30
+@datasave npc\npcreql.idf 153 30
+@datasave npc\npcreql.idf 154 30
+@datasave npc\npcreql.idf 155 30
+@datasave npc\npcreql.idf 156 30
+@datasave npc\npcreql.idf 157 30
+@datasave npc\npcreql.idf 158 30
+@datasave npc\npcreql.idf 159 30
+@datasave npc\npcreql.idf 160 30
+@datasave npc\npcreql.idf 161 30
+@datasave npc\npcreql.idf 162 30
+@datasave npc\npcreql.idf 163 30
+@datasave npc\npcreql.idf 164 30
+@datasave npc\npcreql.idf 165 30
+@datasave npc\npcreql.idf 166 30
+@datasave npc\npcreql.idf 167 30
+@datasave npc\npcreql.idf 168 30
+@datasave npc\npcreql.idf 169 30
+@datasave npc\npcreql.idf 170 30
+@datasave npc\npcreql.idf 171 30
+@datasave npc\npcreql.idf 172 30
+@datasave npc\npcreql.idf 173 30
+@datasave npc\npcreql.idf 174 30
+@datasave npc\npcreql.idf 175 30
+@datasave npc\npcreql.idf 176 30
+@datasave npc\npcreql.idf 177 30
+@datasave npc\npcreql.idf 178 30
+@datasave npc\npcreql.idf 179 30
+@datasave npc\npcreql.idf 180 30
+@datasave npc\npcreql.idf 181 30
+@datasave npc\npcreql.idf 182 30
+@datasave npc\npcreql.idf 183 30
+@datasave npc\npcreql.idf 184 30
+@datasave npc\npcreql.idf 185 30
+@datasave npc\npcreql.idf 186 30
+@datasave npc\npcreql.idf 187 30
+@datasave npc\npcreql.idf 188 30
+@datasave npc\npcreql.idf 189 30
+@datasave npc\npcreql.idf 190 30
+@datasave npc\npcreql.idf 191 30
+@datasave npc\npcreql.idf 192 30
+@datasave npc\npcreql.idf 193 30
+@datasave npc\npcreql.idf 194 30
+@datasave npc\npcreql.idf 195 30
+@datasave npc\npcreql.idf 196 30
+@datasave npc\npcreql.idf 197 30
+@datasave npc\npcreql.idf 198 30
+@datasave npc\npcreql.idf 199 30
+@datasave npc\npcreql.idf 200 30
+@do goto c3
+
+@label creation3
+@show
+`\ �`%Creating NPC data file #3.`\
+@datasave npc\npcgreed.idf 1 255
+@datasave npc\npcgreed.idf 2 255
+@datasave npc\npcgreed.idf 3 100
+@datasave npc\npcgreed.idf 4 100
+@datasave npc\npcgreed.idf 5 100
+@datasave npc\npcgreed.idf 6 100
+@datasave npc\npcgreed.idf 7 100
+@datasave npc\npcgreed.idf 8 100
+@datasave npc\npcgreed.idf 9 100
+@datasave npc\npcgreed.idf 10 10
+@datasave npc\npcgreed.idf 11 200
+@datasave npc\npcgreed.idf 12 10
+@datasave npc\npcgreed.idf 13 10
+@datasave npc\npcgreed.idf 14 10
+@datasave npc\npcgreed.idf 15 10
+@datasave npc\npcgreed.idf 16 10
+@datasave npc\npcgreed.idf 17 90
+@datasave npc\npcgreed.idf 18 10
+@datasave npc\npcgreed.idf 19 10
+@datasave npc\npcgreed.idf 20 10
+@datasave npc\npcgreed.idf 21 10
+@datasave npc\npcgreed.idf 22 10
+@datasave npc\npcgreed.idf 23 10
+@datasave npc\npcgreed.idf 24 10
+@datasave npc\npcgreed.idf 25 10
+@datasave npc\npcgreed.idf 26 10
+@datasave npc\npcgreed.idf 27 10
+@datasave npc\npcgreed.idf 28 10
+@datasave npc\npcgreed.idf 29 10
+@datasave npc\npcgreed.idf 30 10
+@datasave npc\npcgreed.idf 31 10
+@datasave npc\npcgreed.idf 32 10
+@datasave npc\npcgreed.idf 33 10
+@datasave npc\npcgreed.idf 34 10
+@datasave npc\npcgreed.idf 35 150
+@datasave npc\npcgreed.idf 36 100
+@datasave npc\npcgreed.idf 37 170
+@datasave npc\npcgreed.idf 38 100
+@datasave npc\npcgreed.idf 39 100
+@datasave npc\npcgreed.idf 40 10
+@datasave npc\npcgreed.idf 41 200
+@datasave npc\npcgreed.idf 42 100
+@datasave npc\npcgreed.idf 43 100
+@datasave npc\npcgreed.idf 44 100
+@datasave npc\npcgreed.idf 45 100
+@datasave npc\npcgreed.idf 46 100
+@datasave npc\npcgreed.idf 47 100
+@datasave npc\npcgreed.idf 48 100
+@datasave npc\npcgreed.idf 49 100
+@datasave npc\npcgreed.idf 50 0
+@datasave npc\npcgreed.idf 51 100
+@datasave npc\npcgreed.idf 52 100
+@datasave npc\npcgreed.idf 53 100
+@datasave npc\npcgreed.idf 54 100
+@datasave npc\npcgreed.idf 55 100
+@datasave npc\npcgreed.idf 56 100
+@datasave npc\npcgreed.idf 57 100
+@datasave npc\npcgreed.idf 58 100
+@datasave npc\npcgreed.idf 59 100
+@datasave npc\npcgreed.idf 60 100
+@datasave npc\npcgreed.idf 61 100
+@datasave npc\npcgreed.idf 62 100
+@datasave npc\npcgreed.idf 63 100
+@datasave npc\npcgreed.idf 64 100
+@datasave npc\npcgreed.idf 65 100
+@datasave npc\npcgreed.idf 66 100
+@datasave npc\npcgreed.idf 67 100
+@datasave npc\npcgreed.idf 68 100
+@datasave npc\npcgreed.idf 69 100
+@datasave npc\npcgreed.idf 70 100
+@datasave npc\npcgreed.idf 71 100
+@datasave npc\npcgreed.idf 72 100
+@datasave npc\npcgreed.idf 73 100
+@datasave npc\npcgreed.idf 74 100
+@datasave npc\npcgreed.idf 75 100
+@datasave npc\npcgreed.idf 76 100
+@datasave npc\npcgreed.idf 77 100
+@datasave npc\npcgreed.idf 78 100
+@datasave npc\npcgreed.idf 79 100
+@datasave npc\npcgreed.idf 80 250
+@datasave npc\npcgreed.idf 81 250
+@datasave npc\npcgreed.idf 82 300
+@datasave npc\npcgreed.idf 83 100
+@datasave npc\npcgreed.idf 84 100
+@datasave npc\npcgreed.idf 85 100
+@datasave npc\npcgreed.idf 86 100
+@datasave npc\npcgreed.idf 87 100
+@datasave npc\npcgreed.idf 88 100
+@datasave npc\npcgreed.idf 89 100
+@datasave npc\npcgreed.idf 90 100
+@datasave npc\npcgreed.idf 91 100
+@datasave npc\npcgreed.idf 92 100
+@datasave npc\npcgreed.idf 93 100
+@datasave npc\npcgreed.idf 94 100
+@datasave npc\npcgreed.idf 95 100
+@datasave npc\npcgreed.idf 96 100
+@datasave npc\npcgreed.idf 97 100
+@datasave npc\npcgreed.idf 98 100
+@datasave npc\npcgreed.idf 99 100
+@datasave npc\npcgreed.idf 100 100
+@datasave npc\npcgreed.idf 101 100
+@datasave npc\npcgreed.idf 102 100
+@datasave npc\npcgreed.idf 103 100
+@datasave npc\npcgreed.idf 104 100
+@datasave npc\npcgreed.idf 105 100
+@datasave npc\npcgreed.idf 106 222
+@datasave npc\npcgreed.idf 107 20
+@datasave npc\npcgreed.idf 108 140
+@datasave npc\npcgreed.idf 109 100
+@datasave npc\npcgreed.idf 110 100
+@datasave npc\npcgreed.idf 111 100
+@datasave npc\npcgreed.idf 112 100
+@datasave npc\npcgreed.idf 113 100
+@datasave npc\npcgreed.idf 114 100
+@datasave npc\npcgreed.idf 115 100
+@datasave npc\npcgreed.idf 116 100
+@datasave npc\npcgreed.idf 117 200
+@datasave npc\npcgreed.idf 118 100
+@datasave npc\npcgreed.idf 119 110
+@datasave npc\npcgreed.idf 120 30
+@datasave npc\npcgreed.idf 121 140
+@datasave npc\npcgreed.idf 122 222
+@datasave npc\npcgreed.idf 123 50
+@datasave npc\npcgreed.idf 124 220
+@datasave npc\npcgreed.idf 125 210
+@datasave npc\npcgreed.idf 126 130
+@datasave npc\npcgreed.idf 127 100
+@datasave npc\npcgreed.idf 128 100
+@datasave npc\npcgreed.idf 129 100
+@datasave npc\npcgreed.idf 130 100
+@datasave npc\npcgreed.idf 131 100
+@datasave npc\npcgreed.idf 132 100
+@datasave npc\npcgreed.idf 133 100
+@datasave npc\npcgreed.idf 134 100
+@datasave npc\npcgreed.idf 135 100
+@datasave npc\npcgreed.idf 136 100
+@datasave npc\npcgreed.idf 137 100
+@datasave npc\npcgreed.idf 138 100
+@datasave npc\npcgreed.idf 139 100
+@datasave npc\npcgreed.idf 140 100
+@datasave npc\npcgreed.idf 141 100
+@datasave npc\npcgreed.idf 142 100
+@datasave npc\npcgreed.idf 143 100
+@datasave npc\npcgreed.idf 144 100
+@datasave npc\npcgreed.idf 145 100
+@datasave npc\npcgreed.idf 146 100
+@datasave npc\npcgreed.idf 147 100
+@datasave npc\npcgreed.idf 148 100
+@datasave npc\npcgreed.idf 149 100
+@datasave npc\npcgreed.idf 150 100
+@datasave npc\npcgreed.idf 151 100
+@datasave npc\npcgreed.idf 152 100
+@datasave npc\npcgreed.idf 153 100
+@datasave npc\npcgreed.idf 154 100
+@datasave npc\npcgreed.idf 155 100
+@datasave npc\npcgreed.idf 156 100
+@datasave npc\npcgreed.idf 157 100
+@datasave npc\npcgreed.idf 158 100
+@datasave npc\npcgreed.idf 159 100
+@datasave npc\npcgreed.idf 160 100
+@datasave npc\npcgreed.idf 161 100
+@datasave npc\npcgreed.idf 162 100
+@datasave npc\npcgreed.idf 163 100
+@datasave npc\npcgreed.idf 164 100
+@datasave npc\npcgreed.idf 165 100
+@datasave npc\npcgreed.idf 166 100
+@datasave npc\npcgreed.idf 167 100
+@datasave npc\npcgreed.idf 168 100
+@datasave npc\npcgreed.idf 169 100
+@datasave npc\npcgreed.idf 170 100
+@datasave npc\npcgreed.idf 171 100
+@datasave npc\npcgreed.idf 172 100
+@datasave npc\npcgreed.idf 173 100
+@datasave npc\npcgreed.idf 174 100
+@datasave npc\npcgreed.idf 175 100
+@datasave npc\npcgreed.idf 176 100
+@datasave npc\npcgreed.idf 177 100
+@datasave npc\npcgreed.idf 178 100
+@datasave npc\npcgreed.idf 179 100
+@datasave npc\npcgreed.idf 180 100
+@datasave npc\npcgreed.idf 181 100
+@datasave npc\npcgreed.idf 182 100
+@datasave npc\npcgreed.idf 183 100
+@datasave npc\npcgreed.idf 184 100
+@datasave npc\npcgreed.idf 185 100
+@datasave npc\npcgreed.idf 186 100
+@datasave npc\npcgreed.idf 187 100
+@datasave npc\npcgreed.idf 188 100
+@datasave npc\npcgreed.idf 189 100
+@datasave npc\npcgreed.idf 190 100
+@datasave npc\npcgreed.idf 191 100
+@datasave npc\npcgreed.idf 192 100
+@datasave npc\npcgreed.idf 193 100
+@datasave npc\npcgreed.idf 194 100
+@datasave npc\npcgreed.idf 195 100
+@datasave npc\npcgreed.idf 196 100
+@datasave npc\npcgreed.idf 197 100
+@datasave npc\npcgreed.idf 198 100
+@datasave npc\npcgreed.idf 199 100
+@datasave npc\npcgreed.idf 200 100
+@do goto c4
+
+@label creation4
+@show
+`\ �`%Creating NPC data file #4.`\
+@datasave npc\npcage.idf 1 35
+@datasave npc\npcage.idf 2 35
+@datasave npc\npcage.idf 3 27
+@datasave npc\npcage.idf 4 29
+@datasave npc\npcage.idf 5 7
+@datasave npc\npcage.idf 6 9
+@datasave npc\npcage.idf 7 11
+@datasave npc\npcage.idf 8 13
+@datasave npc\npcage.idf 9 15
+@datasave npc\npcage.idf 10 30
+@datasave npc\npcage.idf 11 80
+@datasave npc\npcage.idf 12 24
+@datasave npc\npcage.idf 13 24
+@datasave npc\npcage.idf 14 19
+@datasave npc\npcage.idf 15 20
+@datasave npc\npcage.idf 16 24
+@datasave npc\npcage.idf 17 16
+@datasave npc\npcage.idf 18 44
+@datasave npc\npcage.idf 19 19
+@datasave npc\npcage.idf 20 27
+@datasave npc\npcage.idf 21 29
+@datasave npc\npcage.idf 22 35
+@datasave npc\npcage.idf 23 19
+@datasave npc\npcage.idf 24 128
+@datasave npc\npcage.idf 25 24
+@datasave npc\npcage.idf 26 24
+@datasave npc\npcage.idf 27 24
+@datasave npc\npcage.idf 28 24
+@datasave npc\npcage.idf 29 31
+@datasave npc\npcage.idf 30 22
+@datasave npc\npcage.idf 31 24
+@datasave npc\npcage.idf 32 30
+@datasave npc\npcage.idf 33 24
+@datasave npc\npcage.idf 34 24
+@datasave npc\npcage.idf 35 9
+@datasave npc\npcage.idf 36 28
+@datasave npc\npcage.idf 37 66
+@datasave npc\npcage.idf 38 20
+@datasave npc\npcage.idf 39 21
+@datasave npc\npcage.idf 40 103
+@datasave npc\npcage.idf 41 31
+@datasave npc\npcage.idf 42 34
+@datasave npc\npcage.idf 43 43
+@datasave npc\npcage.idf 44 100
+@datasave npc\npcage.idf 45 100
+@datasave npc\npcage.idf 46 100
+@datasave npc\npcage.idf 47 100
+@datasave npc\npcage.idf 48 100
+@datasave npc\npcage.idf 49 100
+@datasave npc\npcage.idf 50 30
+@datasave npc\npcage.idf 51 100
+@datasave npc\npcage.idf 52 100
+@datasave npc\npcage.idf 53 100
+@datasave npc\npcage.idf 54 100
+@datasave npc\npcage.idf 55 100
+@datasave npc\npcage.idf 56 100
+@datasave npc\npcage.idf 57 100
+@datasave npc\npcage.idf 58 100
+@datasave npc\npcage.idf 59 100
+@datasave npc\npcage.idf 60 100
+@datasave npc\npcage.idf 61 100
+@datasave npc\npcage.idf 62 100
+@datasave npc\npcage.idf 63 100
+@datasave npc\npcage.idf 64 100
+@datasave npc\npcage.idf 65 100
+@datasave npc\npcage.idf 66 100
+@datasave npc\npcage.idf 67 100
+@datasave npc\npcage.idf 68 100
+@datasave npc\npcage.idf 69 100
+@datasave npc\npcage.idf 70 100
+@datasave npc\npcage.idf 71 100
+@datasave npc\npcage.idf 72 100
+@datasave npc\npcage.idf 73 100
+@datasave npc\npcage.idf 74 100
+@datasave npc\npcage.idf 75 100
+@datasave npc\npcage.idf 76 100
+@datasave npc\npcage.idf 77 100
+@datasave npc\npcage.idf 78 100
+@datasave npc\npcage.idf 79 100
+@datasave npc\npcage.idf 80 90
+@datasave npc\npcage.idf 81 27
+@datasave npc\npcage.idf 82 23
+@datasave npc\npcage.idf 83 100
+@datasave npc\npcage.idf 84 100
+@datasave npc\npcage.idf 85 100
+@datasave npc\npcage.idf 86 100
+@datasave npc\npcage.idf 87 100
+@datasave npc\npcage.idf 88 100
+@datasave npc\npcage.idf 89 100
+@datasave npc\npcage.idf 90 55
+@datasave npc\npcage.idf 91 34
+@datasave npc\npcage.idf 92 45
+@datasave npc\npcage.idf 93 31
+@datasave npc\npcage.idf 94 30
+@datasave npc\npcage.idf 95 27
+@datasave npc\npcage.idf 96 100
+@datasave npc\npcage.idf 97 100
+@datasave npc\npcage.idf 98 100
+@datasave npc\npcage.idf 99 100
+@datasave npc\npcage.idf 100 18
+@datasave npc\npcage.idf 101 38
+@datasave npc\npcage.idf 102 36
+@datasave npc\npcage.idf 103 100
+@datasave npc\npcage.idf 104 100
+@datasave npc\npcage.idf 105 100
+@datasave npc\npcage.idf 106 45
+@datasave npc\npcage.idf 107 20
+@datasave npc\npcage.idf 108 38
+@datasave npc\npcage.idf 109 100
+@datasave npc\npcage.idf 110 100
+@datasave npc\npcage.idf 111 100
+@datasave npc\npcage.idf 112 100
+@datasave npc\npcage.idf 113 100
+@datasave npc\npcage.idf 114 100
+@datasave npc\npcage.idf 115 100
+@datasave npc\npcage.idf 116 44
+@datasave npc\npcage.idf 117 37
+@datasave npc\npcage.idf 118 17
+@datasave npc\npcage.idf 119 14
+@datasave npc\npcage.idf 120 25
+@datasave npc\npcage.idf 121 51
+@datasave npc\npcage.idf 122 29
+@datasave npc\npcage.idf 123 23
+@datasave npc\npcage.idf 124 41
+@datasave npc\npcage.idf 125 30
+@datasave npc\npcage.idf 126 29
+@datasave npc\npcage.idf 127 100
+@datasave npc\npcage.idf 128 100
+@datasave npc\npcage.idf 129 100
+@datasave npc\npcage.idf 130 100
+@datasave npc\npcage.idf 131 100
+@datasave npc\npcage.idf 132 100
+@datasave npc\npcage.idf 133 100
+@datasave npc\npcage.idf 134 100
+@datasave npc\npcage.idf 135 100
+@datasave npc\npcage.idf 136 100
+@datasave npc\npcage.idf 137 100
+@datasave npc\npcage.idf 138 100
+@datasave npc\npcage.idf 139 100
+@datasave npc\npcage.idf 140 100
+@datasave npc\npcage.idf 141 100
+@datasave npc\npcage.idf 142 100
+@datasave npc\npcage.idf 143 100
+@datasave npc\npcage.idf 144 100
+@datasave npc\npcage.idf 145 100
+@datasave npc\npcage.idf 146 100
+@datasave npc\npcage.idf 147 100
+@datasave npc\npcage.idf 148 100
+@datasave npc\npcage.idf 149 100
+@datasave npc\npcage.idf 150 100
+@datasave npc\npcage.idf 151 100
+@datasave npc\npcage.idf 152 100
+@datasave npc\npcage.idf 153 100
+@datasave npc\npcage.idf 154 100
+@datasave npc\npcage.idf 155 100
+@datasave npc\npcage.idf 156 100
+@datasave npc\npcage.idf 157 100
+@datasave npc\npcage.idf 158 100
+@datasave npc\npcage.idf 159 100
+@datasave npc\npcage.idf 160 100
+@datasave npc\npcage.idf 161 100
+@datasave npc\npcage.idf 162 100
+@datasave npc\npcage.idf 163 100
+@datasave npc\npcage.idf 164 100
+@datasave npc\npcage.idf 165 100
+@datasave npc\npcage.idf 166 100
+@datasave npc\npcage.idf 167 100
+@datasave npc\npcage.idf 168 100
+@datasave npc\npcage.idf 169 100
+@datasave npc\npcage.idf 170 100
+@datasave npc\npcage.idf 171 100
+@datasave npc\npcage.idf 172 100
+@datasave npc\npcage.idf 173 100
+@datasave npc\npcage.idf 174 100
+@datasave npc\npcage.idf 175 100
+@datasave npc\npcage.idf 176 100
+@datasave npc\npcage.idf 177 100
+@datasave npc\npcage.idf 178 100
+@datasave npc\npcage.idf 179 100
+@datasave npc\npcage.idf 180 100
+@datasave npc\npcage.idf 181 100
+@datasave npc\npcage.idf 182 100
+@datasave npc\npcage.idf 183 100
+@datasave npc\npcage.idf 184 100
+@datasave npc\npcage.idf 185 100
+@datasave npc\npcage.idf 186 100
+@datasave npc\npcage.idf 187 100
+@datasave npc\npcage.idf 188 100
+@datasave npc\npcage.idf 189 100
+@datasave npc\npcage.idf 190 100
+@datasave npc\npcage.idf 191 100
+@datasave npc\npcage.idf 192 100
+@datasave npc\npcage.idf 193 100
+@datasave npc\npcage.idf 194 100
+@datasave npc\npcage.idf 195 100
+@datasave npc\npcage.idf 196 100
+@datasave npc\npcage.idf 197 100
+@datasave npc\npcage.idf 198 100
+@datasave npc\npcage.idf 199 100
+@datasave npc\npcage.idf 200 100
+@do goto c5
+@#NOMORE
diff --git a/xtrn/lord2/cnw/npcmake2.ref b/xtrn/lord2/cnw/npcmake2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..5f7e2dcc16a12aa9b0d2563545aa22b22d56d645
--- /dev/null
+++ b/xtrn/lord2/cnw/npcmake2.ref
@@ -0,0 +1,1262 @@
+; Script file NPCMAKE2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:37 2001
+
+@DECLARE creation 000000487
+@DECLARE c8 000000553
+@DECLARE c9 000000618
+@DECLARE c10 000000685
+@DECLARE c11 000000753
+@DECLARE c12 000000820
+@DECLARE creation7 000000909
+@DECLARE creation8 000008047
+@DECLARE creation9 000014485
+@DECLARE creation10 000021347
+@DECLARE creation11 000028120
+@DECLARE creation12 000034693
+@DECLARE nomore 000041448
+@NOCHECK
+; End of .REF index
+
+@#creation
+@if npc/npcloyal.idf exists false then goto creation7
+@label c8
+@if npc/npclbs.idf exists false then goto creation8
+@label c9
+@if npc/npchange.idf exists false then goto creation9
+@label c10
+@if npc/npcgendr.idf exists false then goto creation10
+@label c11
+@if npc/npcstat.idf exists false then goto creation11
+@label c12
+@if npc/npcagep.idf exists false then goto creation12
+@closescript
+
+@label creation7
+@show
+`\ �`%Creating NPC data file #8.`\
+@datasave npc/npcloyal.idf 1 250
+@datasave npc/npcloyal.idf 2 250
+@datasave npc/npcloyal.idf 3 120
+@datasave npc/npcloyal.idf 4 120
+@datasave npc/npcloyal.idf 5 200
+@datasave npc/npcloyal.idf 6 60
+@datasave npc/npcloyal.idf 7 60
+@datasave npc/npcloyal.idf 8 200
+@datasave npc/npcloyal.idf 9 200
+@datasave npc/npcloyal.idf 10 200
+@datasave npc/npcloyal.idf 11 100
+@datasave npc/npcloyal.idf 12 200
+@datasave npc/npcloyal.idf 13 32
+@datasave npc/npcloyal.idf 14 200
+@datasave npc/npcloyal.idf 15 30
+@datasave npc/npcloyal.idf 16 40
+@datasave npc/npcloyal.idf 17 10
+@datasave npc/npcloyal.idf 18 160
+@datasave npc/npcloyal.idf 19 70
+@datasave npc/npcloyal.idf 20 10
+@datasave npc/npcloyal.idf 21 50
+@datasave npc/npcloyal.idf 22 10
+@datasave npc/npcloyal.idf 23 30
+@datasave npc/npcloyal.idf 24 50
+@datasave npc/npcloyal.idf 25 140
+@datasave npc/npcloyal.idf 26 20
+@datasave npc/npcloyal.idf 27 70
+@datasave npc/npcloyal.idf 28 90
+@datasave npc/npcloyal.idf 29 1
+@datasave npc/npcloyal.idf 30 110
+@datasave npc/npcloyal.idf 31 110
+@datasave npc/npcloyal.idf 32 10
+@datasave npc/npcloyal.idf 33 110
+@datasave npc/npcloyal.idf 34 110
+@datasave npc/npcloyal.idf 35 100
+@datasave npc/npcloyal.idf 36 100
+@datasave npc/npcloyal.idf 37 100
+@datasave npc/npcloyal.idf 38 100
+@datasave npc/npcloyal.idf 39 100
+@datasave npc/npcloyal.idf 40 90
+@datasave npc/npcloyal.idf 41 100
+@datasave npc/npcloyal.idf 42 100
+@datasave npc/npcloyal.idf 43 100
+@datasave npc/npcloyal.idf 44 100
+@datasave npc/npcloyal.idf 45 100
+@datasave npc/npcloyal.idf 46 100
+@datasave npc/npcloyal.idf 47 100
+@datasave npc/npcloyal.idf 48 100
+@datasave npc/npcloyal.idf 49 100
+@datasave npc/npcloyal.idf 50 40
+@datasave npc/npcloyal.idf 51 100
+@datasave npc/npcloyal.idf 52 100
+@datasave npc/npcloyal.idf 53 100
+@datasave npc/npcloyal.idf 54 100
+@datasave npc/npcloyal.idf 55 100
+@datasave npc/npcloyal.idf 56 100
+@datasave npc/npcloyal.idf 57 100
+@datasave npc/npcloyal.idf 58 100
+@datasave npc/npcloyal.idf 59 100
+@datasave npc/npcloyal.idf 60 100
+@datasave npc/npcloyal.idf 61 100
+@datasave npc/npcloyal.idf 62 100
+@datasave npc/npcloyal.idf 63 100
+@datasave npc/npcloyal.idf 64 100
+@datasave npc/npcloyal.idf 65 100
+@datasave npc/npcloyal.idf 66 100
+@datasave npc/npcloyal.idf 67 100
+@datasave npc/npcloyal.idf 68 100
+@datasave npc/npcloyal.idf 69 100
+@datasave npc/npcloyal.idf 70 100
+@datasave npc/npcloyal.idf 71 100
+@datasave npc/npcloyal.idf 72 100
+@datasave npc/npcloyal.idf 73 100
+@datasave npc/npcloyal.idf 74 100
+@datasave npc/npcloyal.idf 75 100
+@datasave npc/npcloyal.idf 76 100
+@datasave npc/npcloyal.idf 77 100
+@datasave npc/npcloyal.idf 78 100
+@datasave npc/npcloyal.idf 79 100
+@datasave npc/npcloyal.idf 80 20
+@datasave npc/npcloyal.idf 81 25
+@datasave npc/npcloyal.idf 82 10
+@datasave npc/npcloyal.idf 83 2
+@datasave npc/npcloyal.idf 84 100
+@datasave npc/npcloyal.idf 85 100
+@datasave npc/npcloyal.idf 86 100
+@datasave npc/npcloyal.idf 87 100
+@datasave npc/npcloyal.idf 88 100
+@datasave npc/npcloyal.idf 89 100
+@datasave npc/npcloyal.idf 90 100
+@datasave npc/npcloyal.idf 91 100
+@datasave npc/npcloyal.idf 92 100
+@datasave npc/npcloyal.idf 93 100
+@datasave npc/npcloyal.idf 94 100
+@datasave npc/npcloyal.idf 95 100
+@datasave npc/npcloyal.idf 96 100
+@datasave npc/npcloyal.idf 97 100
+@datasave npc/npcloyal.idf 98 100
+@datasave npc/npcloyal.idf 99 100
+@datasave npc/npcloyal.idf 100 100
+@datasave npc/npcloyal.idf 101 40
+@datasave npc/npcloyal.idf 102 40
+@datasave npc/npcloyal.idf 103 100
+@datasave npc/npcloyal.idf 104 100
+@datasave npc/npcloyal.idf 105 100
+@datasave npc/npcloyal.idf 106 10
+@datasave npc/npcloyal.idf 107 180
+@datasave npc/npcloyal.idf 108 10
+@datasave npc/npcloyal.idf 109 100
+@datasave npc/npcloyal.idf 110 100
+@datasave npc/npcloyal.idf 111 100
+@datasave npc/npcloyal.idf 112 100
+@datasave npc/npcloyal.idf 113 100
+@datasave npc/npcloyal.idf 114 100
+@datasave npc/npcloyal.idf 115 100
+@datasave npc/npcloyal.idf 116 200
+@datasave npc/npcloyal.idf 117 150
+@datasave npc/npcloyal.idf 118 77
+@datasave npc/npcloyal.idf 119 100
+@datasave npc/npcloyal.idf 120 100
+@datasave npc/npcloyal.idf 121 200
+@datasave npc/npcloyal.idf 122 75
+@datasave npc/npcloyal.idf 123 230
+@datasave npc/npcloyal.idf 124 50
+@datasave npc/npcloyal.idf 125 100
+@datasave npc/npcloyal.idf 126 150
+@datasave npc/npcloyal.idf 127 100
+@datasave npc/npcloyal.idf 128 100
+@datasave npc/npcloyal.idf 129 100
+@datasave npc/npcloyal.idf 130 100
+@datasave npc/npcloyal.idf 131 100
+@datasave npc/npcloyal.idf 132 100
+@datasave npc/npcloyal.idf 133 100
+@datasave npc/npcloyal.idf 134 100
+@datasave npc/npcloyal.idf 135 100
+@datasave npc/npcloyal.idf 136 100
+@datasave npc/npcloyal.idf 137 100
+@datasave npc/npcloyal.idf 138 100
+@datasave npc/npcloyal.idf 139 100
+@datasave npc/npcloyal.idf 140 100
+@datasave npc/npcloyal.idf 141 100
+@datasave npc/npcloyal.idf 142 100
+@datasave npc/npcloyal.idf 143 100
+@datasave npc/npcloyal.idf 144 100
+@datasave npc/npcloyal.idf 145 100
+@datasave npc/npcloyal.idf 146 100
+@datasave npc/npcloyal.idf 147 100
+@datasave npc/npcloyal.idf 148 100
+@datasave npc/npcloyal.idf 149 100
+@datasave npc/npcloyal.idf 150 100
+@datasave npc/npcloyal.idf 151 100
+@datasave npc/npcloyal.idf 152 100
+@datasave npc/npcloyal.idf 153 100
+@datasave npc/npcloyal.idf 154 100
+@datasave npc/npcloyal.idf 155 100
+@datasave npc/npcloyal.idf 156 100
+@datasave npc/npcloyal.idf 157 100
+@datasave npc/npcloyal.idf 158 100
+@datasave npc/npcloyal.idf 159 100
+@datasave npc/npcloyal.idf 160 100
+@datasave npc/npcloyal.idf 161 100
+@datasave npc/npcloyal.idf 162 100
+@datasave npc/npcloyal.idf 163 100
+@datasave npc/npcloyal.idf 164 100
+@datasave npc/npcloyal.idf 165 100
+@datasave npc/npcloyal.idf 166 100
+@datasave npc/npcloyal.idf 167 100
+@datasave npc/npcloyal.idf 168 100
+@datasave npc/npcloyal.idf 169 100
+@datasave npc/npcloyal.idf 170 100
+@datasave npc/npcloyal.idf 171 100
+@datasave npc/npcloyal.idf 172 100
+@datasave npc/npcloyal.idf 173 100
+@datasave npc/npcloyal.idf 174 100
+@datasave npc/npcloyal.idf 175 100
+@datasave npc/npcloyal.idf 176 100
+@datasave npc/npcloyal.idf 177 100
+@datasave npc/npcloyal.idf 178 100
+@datasave npc/npcloyal.idf 179 100
+@datasave npc/npcloyal.idf 180 100
+@datasave npc/npcloyal.idf 181 100
+@datasave npc/npcloyal.idf 182 100
+@datasave npc/npcloyal.idf 183 100
+@datasave npc/npcloyal.idf 184 100
+@datasave npc/npcloyal.idf 185 100
+@datasave npc/npcloyal.idf 186 100
+@datasave npc/npcloyal.idf 187 100
+@datasave npc/npcloyal.idf 188 100
+@datasave npc/npcloyal.idf 189 100
+@datasave npc/npcloyal.idf 190 100
+@datasave npc/npcloyal.idf 191 100
+@datasave npc/npcloyal.idf 192 100
+@datasave npc/npcloyal.idf 193 100
+@datasave npc/npcloyal.idf 194 100
+@datasave npc/npcloyal.idf 195 100
+@datasave npc/npcloyal.idf 196 100
+@datasave npc/npcloyal.idf 197 100
+@datasave npc/npcloyal.idf 198 100
+@datasave npc/npcloyal.idf 199 100
+@datasave npc/npcloyal.idf 200 100
+@do goto c8
+
+@label creation8
+@show
+`\ �`%Creating NPC data file #9.`\
+@datasave npc/npclbs.idf 1 30
+@datasave npc/npclbs.idf 2 100
+@datasave npc/npclbs.idf 3 70
+@datasave npc/npclbs.idf 4 1
+@datasave npc/npclbs.idf 5 0
+@datasave npc/npclbs.idf 6 0
+@datasave npc/npclbs.idf 7 0
+@datasave npc/npclbs.idf 8 0
+@datasave npc/npclbs.idf 9 0
+@datasave npc/npclbs.idf 10 0
+@datasave npc/npclbs.idf 11 24
+@datasave npc/npclbs.idf 12 40
+@datasave npc/npclbs.idf 13 32
+@datasave npc/npclbs.idf 14 90
+@datasave npc/npclbs.idf 15 10
+@datasave npc/npclbs.idf 16 60
+@datasave npc/npclbs.idf 17 5
+@datasave npc/npclbs.idf 18 90
+@datasave npc/npclbs.idf 19 3
+@datasave npc/npclbs.idf 20 120
+@datasave npc/npclbs.idf 21 40
+@datasave npc/npclbs.idf 22 70
+@datasave npc/npclbs.idf 23 30
+@datasave npc/npclbs.idf 24 -100
+@datasave npc/npclbs.idf 25 0
+@datasave npc/npclbs.idf 26 0
+@datasave npc/npclbs.idf 27 0
+@datasave npc/npclbs.idf 28 100
+@datasave npc/npclbs.idf 29 5
+@datasave npc/npclbs.idf 30 20
+@datasave npc/npclbs.idf 31 14
+@datasave npc/npclbs.idf 32 7
+@datasave npc/npclbs.idf 33 30
+@datasave npc/npclbs.idf 34 40
+@datasave npc/npclbs.idf 35 0
+@datasave npc/npclbs.idf 36 10
+@datasave npc/npclbs.idf 37 40
+@datasave npc/npclbs.idf 38 50
+@datasave npc/npclbs.idf 39 80
+@datasave npc/npclbs.idf 40 130
+@datasave npc/npclbs.idf 41 110
+@datasave npc/npclbs.idf 42 160
+@datasave npc/npclbs.idf 43 120
+@datasave npc/npclbs.idf 44 0
+@datasave npc/npclbs.idf 45 0
+@datasave npc/npclbs.idf 46 0
+@datasave npc/npclbs.idf 47 0
+@datasave npc/npclbs.idf 48 0
+@datasave npc/npclbs.idf 49 0
+@datasave npc/npclbs.idf 50 100
+@datasave npc/npclbs.idf 51 0
+@datasave npc/npclbs.idf 52 0
+@datasave npc/npclbs.idf 53 0
+@datasave npc/npclbs.idf 54 0
+@datasave npc/npclbs.idf 55 0
+@datasave npc/npclbs.idf 56 0
+@datasave npc/npclbs.idf 57 0
+@datasave npc/npclbs.idf 58 0
+@datasave npc/npclbs.idf 59 0
+@datasave npc/npclbs.idf 60 0
+@datasave npc/npclbs.idf 61 0
+@datasave npc/npclbs.idf 62 0
+@datasave npc/npclbs.idf 63 0
+@datasave npc/npclbs.idf 64 0
+@datasave npc/npclbs.idf 65 0
+@datasave npc/npclbs.idf 66 0
+@datasave npc/npclbs.idf 67 0
+@datasave npc/npclbs.idf 68 0
+@datasave npc/npclbs.idf 69 0
+@datasave npc/npclbs.idf 70 0
+@datasave npc/npclbs.idf 71 0
+@datasave npc/npclbs.idf 72 0
+@datasave npc/npclbs.idf 73 0
+@datasave npc/npclbs.idf 74 0
+@datasave npc/npclbs.idf 75 0
+@datasave npc/npclbs.idf 76 0
+@datasave npc/npclbs.idf 77 0
+@datasave npc/npclbs.idf 78 0
+@datasave npc/npclbs.idf 79 0
+@datasave npc/npclbs.idf 80 40
+@datasave npc/npclbs.idf 81 120
+@datasave npc/npclbs.idf 82 2
+@datasave npc/npclbs.idf 83 40
+@datasave npc/npclbs.idf 84 0
+@datasave npc/npclbs.idf 85 0
+@datasave npc/npclbs.idf 86 0
+@datasave npc/npclbs.idf 87 0
+@datasave npc/npclbs.idf 88 0
+@datasave npc/npclbs.idf 89 0
+@datasave npc/npclbs.idf 90 0
+@datasave npc/npclbs.idf 91 0
+@datasave npc/npclbs.idf 92 0
+@datasave npc/npclbs.idf 93 0
+@datasave npc/npclbs.idf 94 0
+@datasave npc/npclbs.idf 95 0
+@datasave npc/npclbs.idf 96 0
+@datasave npc/npclbs.idf 97 0
+@datasave npc/npclbs.idf 98 0
+@datasave npc/npclbs.idf 99 0
+@datasave npc/npclbs.idf 100 20
+@datasave npc/npclbs.idf 101 90
+@datasave npc/npclbs.idf 102 50
+@datasave npc/npclbs.idf 103 0
+@datasave npc/npclbs.idf 104 0
+@datasave npc/npclbs.idf 105 0
+@datasave npc/npclbs.idf 106 0
+@datasave npc/npclbs.idf 107 4
+@datasave npc/npclbs.idf 108 78
+@datasave npc/npclbs.idf 109 0
+@datasave npc/npclbs.idf 110 0
+@datasave npc/npclbs.idf 111 0
+@datasave npc/npclbs.idf 112 0
+@datasave npc/npclbs.idf 113 0
+@datasave npc/npclbs.idf 114 0
+@datasave npc/npclbs.idf 115 0
+@datasave npc/npclbs.idf 116 200
+@datasave npc/npclbs.idf 117 140
+@datasave npc/npclbs.idf 118 130
+@datasave npc/npclbs.idf 119 90
+@datasave npc/npclbs.idf 120 130
+@datasave npc/npclbs.idf 121 240
+@datasave npc/npclbs.idf 122 115
+@datasave npc/npclbs.idf 123 110
+@datasave npc/npclbs.idf 124 196
+@datasave npc/npclbs.idf 125 220
+@datasave npc/npclbs.idf 126 190
+@datasave npc/npclbs.idf 127 0
+@datasave npc/npclbs.idf 128 0
+@datasave npc/npclbs.idf 129 0
+@datasave npc/npclbs.idf 130 0
+@datasave npc/npclbs.idf 131 0
+@datasave npc/npclbs.idf 132 0
+@datasave npc/npclbs.idf 133 0
+@datasave npc/npclbs.idf 134 0
+@datasave npc/npclbs.idf 135 0
+@datasave npc/npclbs.idf 136 0
+@datasave npc/npclbs.idf 137 0
+@datasave npc/npclbs.idf 138 0
+@datasave npc/npclbs.idf 139 0
+@datasave npc/npclbs.idf 140 0
+@datasave npc/npclbs.idf 141 0
+@datasave npc/npclbs.idf 142 0
+@datasave npc/npclbs.idf 143 0
+@datasave npc/npclbs.idf 144 0
+@datasave npc/npclbs.idf 145 0
+@datasave npc/npclbs.idf 146 0
+@datasave npc/npclbs.idf 147 0
+@datasave npc/npclbs.idf 148 0
+@datasave npc/npclbs.idf 149 0
+@datasave npc/npclbs.idf 150 0
+@datasave npc/npclbs.idf 151 0
+@datasave npc/npclbs.idf 152 0
+@datasave npc/npclbs.idf 153 0
+@datasave npc/npclbs.idf 154 0
+@datasave npc/npclbs.idf 155 0
+@datasave npc/npclbs.idf 156 0
+@datasave npc/npclbs.idf 157 0
+@datasave npc/npclbs.idf 158 0
+@datasave npc/npclbs.idf 159 0
+@datasave npc/npclbs.idf 160 0
+@datasave npc/npclbs.idf 161 0
+@datasave npc/npclbs.idf 162 0
+@datasave npc/npclbs.idf 163 0
+@datasave npc/npclbs.idf 164 0
+@datasave npc/npclbs.idf 165 0
+@datasave npc/npclbs.idf 166 0
+@datasave npc/npclbs.idf 167 0
+@datasave npc/npclbs.idf 168 0
+@datasave npc/npclbs.idf 169 0
+@datasave npc/npclbs.idf 170 0
+@datasave npc/npclbs.idf 171 0
+@datasave npc/npclbs.idf 172 0
+@datasave npc/npclbs.idf 173 0
+@datasave npc/npclbs.idf 174 0
+@datasave npc/npclbs.idf 175 0
+@datasave npc/npclbs.idf 176 0
+@datasave npc/npclbs.idf 177 0
+@datasave npc/npclbs.idf 178 0
+@datasave npc/npclbs.idf 179 0
+@datasave npc/npclbs.idf 180 0
+@datasave npc/npclbs.idf 181 0
+@datasave npc/npclbs.idf 182 0
+@datasave npc/npclbs.idf 183 0
+@datasave npc/npclbs.idf 184 0
+@datasave npc/npclbs.idf 185 0
+@datasave npc/npclbs.idf 186 0
+@datasave npc/npclbs.idf 187 0
+@datasave npc/npclbs.idf 188 0
+@datasave npc/npclbs.idf 189 0
+@datasave npc/npclbs.idf 190 0
+@datasave npc/npclbs.idf 191 0
+@datasave npc/npclbs.idf 192 0
+@datasave npc/npclbs.idf 193 0
+@datasave npc/npclbs.idf 194 0
+@datasave npc/npclbs.idf 195 0
+@datasave npc/npclbs.idf 196 0
+@datasave npc/npclbs.idf 197 0
+@datasave npc/npclbs.idf 198 0
+@datasave npc/npclbs.idf 199 0
+@datasave npc/npclbs.idf 200 0
+@do goto c9
+
+@label creation9
+@show
+`\ �`%Creating NPC data file #10.`\
+@datasave npc/npchange.idf 1 221
+@datasave npc/npchange.idf 2 221
+@datasave npc/npchange.idf 3 20
+@datasave npc/npchange.idf 4 20
+@datasave npc/npchange.idf 5 120
+@datasave npc/npchange.idf 6 120
+@datasave npc/npchange.idf 7 120
+@datasave npc/npchange.idf 8 130
+@datasave npc/npchange.idf 9 120
+@datasave npc/npchange.idf 10 20
+@datasave npc/npchange.idf 11 40
+@datasave npc/npchange.idf 12 50
+@datasave npc/npchange.idf 13 18
+@datasave npc/npchange.idf 14 172
+@datasave npc/npchange.idf 15 30
+@datasave npc/npchange.idf 16 10
+@datasave npc/npchange.idf 17 199
+@datasave npc/npchange.idf 18 1
+@datasave npc/npchange.idf 19 6
+@datasave npc/npchange.idf 20 150
+@datasave npc/npchange.idf 21 10
+@datasave npc/npchange.idf 22 10
+@datasave npc/npchange.idf 23 10
+@datasave npc/npchange.idf 24 10
+@datasave npc/npchange.idf 25 10
+@datasave npc/npchange.idf 26 10
+@datasave npc/npchange.idf 27 10
+@datasave npc/npchange.idf 28 150
+@datasave npc/npchange.idf 29 200
+@datasave npc/npchange.idf 30 20
+@datasave npc/npchange.idf 31 10
+@datasave npc/npchange.idf 32 190
+@datasave npc/npchange.idf 33 10
+@datasave npc/npchange.idf 34 10
+@datasave npc/npchange.idf 35 20
+@datasave npc/npchange.idf 36 10
+@datasave npc/npchange.idf 37 20
+@datasave npc/npchange.idf 38 10
+@datasave npc/npchange.idf 39 10
+@datasave npc/npchange.idf 40 150
+@datasave npc/npchange.idf 41 30
+@datasave npc/npchange.idf 42 30
+@datasave npc/npchange.idf 43 30
+@datasave npc/npchange.idf 44 30
+@datasave npc/npchange.idf 45 30
+@datasave npc/npchange.idf 46 30
+@datasave npc/npchange.idf 47 30
+@datasave npc/npchange.idf 48 0
+@datasave npc/npchange.idf 49 0
+@datasave npc/npchange.idf 50 1
+@datasave npc/npchange.idf 51 0
+@datasave npc/npchange.idf 52 0
+@datasave npc/npchange.idf 53 0
+@datasave npc/npchange.idf 54 0
+@datasave npc/npchange.idf 55 0
+@datasave npc/npchange.idf 56 0
+@datasave npc/npchange.idf 57 0
+@datasave npc/npchange.idf 58 0
+@datasave npc/npchange.idf 59 0
+@datasave npc/npchange.idf 60 0
+@datasave npc/npchange.idf 61 0
+@datasave npc/npchange.idf 62 0
+@datasave npc/npchange.idf 63 0
+@datasave npc/npchange.idf 64 0
+@datasave npc/npchange.idf 65 0
+@datasave npc/npchange.idf 66 0
+@datasave npc/npchange.idf 67 0
+@datasave npc/npchange.idf 68 0
+@datasave npc/npchange.idf 69 0
+@datasave npc/npchange.idf 70 0
+@datasave npc/npchange.idf 71 0
+@datasave npc/npchange.idf 72 0
+@datasave npc/npchange.idf 73 0
+@datasave npc/npchange.idf 74 0
+@datasave npc/npchange.idf 75 0
+@datasave npc/npchange.idf 76 0
+@datasave npc/npchange.idf 77 0
+@datasave npc/npchange.idf 78 0
+@datasave npc/npchange.idf 79 0
+@datasave npc/npchange.idf 80 100
+@datasave npc/npchange.idf 81 200
+@datasave npc/npchange.idf 82 30
+@datasave npc/npchange.idf 83 220
+@datasave npc/npchange.idf 84 0
+@datasave npc/npchange.idf 85 0
+@datasave npc/npchange.idf 86 0
+@datasave npc/npchange.idf 87 0
+@datasave npc/npchange.idf 88 0
+@datasave npc/npchange.idf 89 0
+@datasave npc/npchange.idf 90 0
+@datasave npc/npchange.idf 91 0
+@datasave npc/npchange.idf 92 0
+@datasave npc/npchange.idf 93 0
+@datasave npc/npchange.idf 94 0
+@datasave npc/npchange.idf 95 0
+@datasave npc/npchange.idf 96 0
+@datasave npc/npchange.idf 97 0
+@datasave npc/npchange.idf 98 0
+@datasave npc/npchange.idf 99 0
+@datasave npc/npchange.idf 100 40
+@datasave npc/npchange.idf 101 50
+@datasave npc/npchange.idf 102 50
+@datasave npc/npchange.idf 103 0
+@datasave npc/npchange.idf 104 0
+@datasave npc/npchange.idf 105 0
+@datasave npc/npchange.idf 106 255
+@datasave npc/npchange.idf 107 40
+@datasave npc/npchange.idf 108 20
+@datasave npc/npchange.idf 109 0
+@datasave npc/npchange.idf 110 0
+@datasave npc/npchange.idf 111 0
+@datasave npc/npchange.idf 112 0
+@datasave npc/npchange.idf 113 0
+@datasave npc/npchange.idf 114 0
+@datasave npc/npchange.idf 115 0
+@datasave npc/npchange.idf 116 3
+@datasave npc/npchange.idf 117 20
+@datasave npc/npchange.idf 118 10
+@datasave npc/npchange.idf 119 10
+@datasave npc/npchange.idf 120 100
+@datasave npc/npchange.idf 121 100
+@datasave npc/npchange.idf 122 200
+@datasave npc/npchange.idf 123 20
+@datasave npc/npchange.idf 124 210
+@datasave npc/npchange.idf 125 140
+@datasave npc/npchange.idf 126 140
+@datasave npc/npchange.idf 127 0
+@datasave npc/npchange.idf 128 0
+@datasave npc/npchange.idf 129 0
+@datasave npc/npchange.idf 130 0
+@datasave npc/npchange.idf 131 0
+@datasave npc/npchange.idf 132 0
+@datasave npc/npchange.idf 133 0
+@datasave npc/npchange.idf 134 0
+@datasave npc/npchange.idf 135 0
+@datasave npc/npchange.idf 136 0
+@datasave npc/npchange.idf 137 0
+@datasave npc/npchange.idf 138 0
+@datasave npc/npchange.idf 139 0
+@datasave npc/npchange.idf 140 0
+@datasave npc/npchange.idf 141 0
+@datasave npc/npchange.idf 142 0
+@datasave npc/npchange.idf 143 0
+@datasave npc/npchange.idf 144 0
+@datasave npc/npchange.idf 145 0
+@datasave npc/npchange.idf 146 0
+@datasave npc/npchange.idf 147 0
+@datasave npc/npchange.idf 148 0
+@datasave npc/npchange.idf 149 0
+@datasave npc/npchange.idf 150 0
+@datasave npc/npchange.idf 151 0
+@datasave npc/npchange.idf 152 0
+@datasave npc/npchange.idf 153 0
+@datasave npc/npchange.idf 154 0
+@datasave npc/npchange.idf 155 0
+@datasave npc/npchange.idf 156 0
+@datasave npc/npchange.idf 157 0
+@datasave npc/npchange.idf 158 0
+@datasave npc/npchange.idf 159 0
+@datasave npc/npchange.idf 160 0
+@datasave npc/npchange.idf 161 0
+@datasave npc/npchange.idf 162 0
+@datasave npc/npchange.idf 163 0
+@datasave npc/npchange.idf 164 0
+@datasave npc/npchange.idf 165 0
+@datasave npc/npchange.idf 166 0
+@datasave npc/npchange.idf 167 0
+@datasave npc/npchange.idf 168 0
+@datasave npc/npchange.idf 169 0
+@datasave npc/npchange.idf 170 0
+@datasave npc/npchange.idf 171 0
+@datasave npc/npchange.idf 172 0
+@datasave npc/npchange.idf 173 0
+@datasave npc/npchange.idf 174 0
+@datasave npc/npchange.idf 175 0
+@datasave npc/npchange.idf 176 0
+@datasave npc/npchange.idf 177 0
+@datasave npc/npchange.idf 178 0
+@datasave npc/npchange.idf 179 0
+@datasave npc/npchange.idf 180 0
+@datasave npc/npchange.idf 181 0
+@datasave npc/npchange.idf 182 0
+@datasave npc/npchange.idf 183 0
+@datasave npc/npchange.idf 184 0
+@datasave npc/npchange.idf 185 0
+@datasave npc/npchange.idf 186 0
+@datasave npc/npchange.idf 187 0
+@datasave npc/npchange.idf 188 0
+@datasave npc/npchange.idf 189 0
+@datasave npc/npchange.idf 190 0
+@datasave npc/npchange.idf 191 0
+@datasave npc/npchange.idf 192 0
+@datasave npc/npchange.idf 193 0
+@datasave npc/npchange.idf 194 0
+@datasave npc/npchange.idf 195 0
+@datasave npc/npchange.idf 196 0
+@datasave npc/npchange.idf 197 0
+@datasave npc/npchange.idf 198 0
+@datasave npc/npchange.idf 199 0
+@datasave npc/npchange.idf 200 0
+@do goto c10
+
+@label creation10
+@show
+`\ �`%Creating NPC data file #11.`\
+@datasave npc/npcgendr.idf 1 0
+@datasave npc/npcgendr.idf 2 1
+@datasave npc/npcgendr.idf 3 1
+@datasave npc/npcgendr.idf 4 0
+@datasave npc/npcgendr.idf 5 0
+@datasave npc/npcgendr.idf 6 0
+@datasave npc/npcgendr.idf 7 0
+@datasave npc/npcgendr.idf 8 1
+@datasave npc/npcgendr.idf 9 0
+@datasave npc/npcgendr.idf 10 0
+@datasave npc/npcgendr.idf 11 4
+@datasave npc/npcgendr.idf 12 1
+@datasave npc/npcgendr.idf 13 1
+@datasave npc/npcgendr.idf 14 0
+@datasave npc/npcgendr.idf 15 0
+@datasave npc/npcgendr.idf 16 5
+@datasave npc/npcgendr.idf 17 0
+@datasave npc/npcgendr.idf 18 4
+@datasave npc/npcgendr.idf 19 2
+@datasave npc/npcgendr.idf 20 1
+@datasave npc/npcgendr.idf 21 5
+@datasave npc/npcgendr.idf 22 1
+@datasave npc/npcgendr.idf 23 0
+@datasave npc/npcgendr.idf 24 1
+@datasave npc/npcgendr.idf 25 0
+@datasave npc/npcgendr.idf 26 2
+@datasave npc/npcgendr.idf 27 4
+@datasave npc/npcgendr.idf 28 3
+@datasave npc/npcgendr.idf 29 4
+@datasave npc/npcgendr.idf 30 1
+@datasave npc/npcgendr.idf 31 0
+@datasave npc/npcgendr.idf 32 4
+@datasave npc/npcgendr.idf 33 0
+@datasave npc/npcgendr.idf 34 0
+@datasave npc/npcgendr.idf 35 1
+@datasave npc/npcgendr.idf 36 1
+@datasave npc/npcgendr.idf 37 1
+@datasave npc/npcgendr.idf 38 1
+@datasave npc/npcgendr.idf 39 1
+@datasave npc/npcgendr.idf 40 5
+@datasave npc/npcgendr.idf 41 1
+@datasave npc/npcgendr.idf 42 1
+@datasave npc/npcgendr.idf 43 3
+@datasave npc/npcgendr.idf 44 0
+@datasave npc/npcgendr.idf 45 0
+@datasave npc/npcgendr.idf 46 0
+@datasave npc/npcgendr.idf 47 0
+@datasave npc/npcgendr.idf 48 0
+@datasave npc/npcgendr.idf 49 0
+@datasave npc/npcgendr.idf 50 0
+@datasave npc/npcgendr.idf 51 1
+@datasave npc/npcgendr.idf 52 0
+@datasave npc/npcgendr.idf 53 0
+@datasave npc/npcgendr.idf 54 0
+@datasave npc/npcgendr.idf 55 0
+@datasave npc/npcgendr.idf 56 0
+@datasave npc/npcgendr.idf 57 0
+@datasave npc/npcgendr.idf 58 0
+@datasave npc/npcgendr.idf 59 0
+@datasave npc/npcgendr.idf 60 3
+@datasave npc/npcgendr.idf 61 1
+@datasave npc/npcgendr.idf 62 0
+@datasave npc/npcgendr.idf 63 0
+@datasave npc/npcgendr.idf 64 0
+@datasave npc/npcgendr.idf 65 0
+@datasave npc/npcgendr.idf 66 0
+@datasave npc/npcgendr.idf 67 0
+@datasave npc/npcgendr.idf 68 0
+@datasave npc/npcgendr.idf 69 0
+@datasave npc/npcgendr.idf 70 0
+@datasave npc/npcgendr.idf 71 0
+@datasave npc/npcgendr.idf 72 0
+@datasave npc/npcgendr.idf 73 0
+@datasave npc/npcgendr.idf 74 0
+@datasave npc/npcgendr.idf 75 4
+@datasave npc/npcgendr.idf 76 5
+@datasave npc/npcgendr.idf 77 0
+@datasave npc/npcgendr.idf 78 0
+@datasave npc/npcgendr.idf 79 0
+@datasave npc/npcgendr.idf 80 1
+@datasave npc/npcgendr.idf 81 5
+@datasave npc/npcgendr.idf 82 0
+@datasave npc/npcgendr.idf 83 4
+@datasave npc/npcgendr.idf 84 0
+@datasave npc/npcgendr.idf 85 0
+@datasave npc/npcgendr.idf 86 0
+@datasave npc/npcgendr.idf 87 0
+@datasave npc/npcgendr.idf 88 0
+@datasave npc/npcgendr.idf 89 0
+@datasave npc/npcgendr.idf 90 0
+@datasave npc/npcgendr.idf 91 1
+@datasave npc/npcgendr.idf 92 1
+@datasave npc/npcgendr.idf 93 1
+@datasave npc/npcgendr.idf 94 6
+@datasave npc/npcgendr.idf 95 0
+@datasave npc/npcgendr.idf 96 0
+@datasave npc/npcgendr.idf 97 0
+@datasave npc/npcgendr.idf 98 1
+@datasave npc/npcgendr.idf 99 1
+@datasave npc/npcgendr.idf 100 1
+@datasave npc/npcgendr.idf 101 1
+@datasave npc/npcgendr.idf 102 0
+@datasave npc/npcgendr.idf 103 0
+@datasave npc/npcgendr.idf 104 0
+@datasave npc/npcgendr.idf 105 0
+@datasave npc/npcgendr.idf 106 5
+@datasave npc/npcgendr.idf 107 4
+@datasave npc/npcgendr.idf 108 4
+@datasave npc/npcgendr.idf 109 0
+@datasave npc/npcgendr.idf 110 0
+@datasave npc/npcgendr.idf 111 1
+@datasave npc/npcgendr.idf 112 3
+@datasave npc/npcgendr.idf 113 3
+@datasave npc/npcgendr.idf 114 0
+@datasave npc/npcgendr.idf 115 0
+@datasave npc/npcgendr.idf 116 1
+@datasave npc/npcgendr.idf 117 0
+@datasave npc/npcgendr.idf 118 1
+@datasave npc/npcgendr.idf 119 1
+@datasave npc/npcgendr.idf 120 1
+@datasave npc/npcgendr.idf 121 2
+@datasave npc/npcgendr.idf 122 4
+@datasave npc/npcgendr.idf 123 4
+@datasave npc/npcgendr.idf 124 5
+@datasave npc/npcgendr.idf 125 3
+@datasave npc/npcgendr.idf 126 1
+@datasave npc/npcgendr.idf 127 0
+@datasave npc/npcgendr.idf 128 0
+@datasave npc/npcgendr.idf 129 0
+@datasave npc/npcgendr.idf 130 1
+@datasave npc/npcgendr.idf 131 0
+@datasave npc/npcgendr.idf 132 2
+@datasave npc/npcgendr.idf 133 0
+@datasave npc/npcgendr.idf 134 1
+@datasave npc/npcgendr.idf 135 1
+@datasave npc/npcgendr.idf 136 0
+@datasave npc/npcgendr.idf 137 0
+@datasave npc/npcgendr.idf 138 3
+@datasave npc/npcgendr.idf 139 0
+@datasave npc/npcgendr.idf 140 0
+@datasave npc/npcgendr.idf 141 0
+@datasave npc/npcgendr.idf 142 0
+@datasave npc/npcgendr.idf 143 0
+@datasave npc/npcgendr.idf 144 0
+@datasave npc/npcgendr.idf 145 0
+@datasave npc/npcgendr.idf 146 0
+@datasave npc/npcgendr.idf 147 0
+@datasave npc/npcgendr.idf 148 0
+@datasave npc/npcgendr.idf 149 0
+@datasave npc/npcgendr.idf 150 0
+@datasave npc/npcgendr.idf 151 0
+@datasave npc/npcgendr.idf 152 0
+@datasave npc/npcgendr.idf 153 0
+@datasave npc/npcgendr.idf 154 0
+@datasave npc/npcgendr.idf 155 0
+@datasave npc/npcgendr.idf 156 0
+@datasave npc/npcgendr.idf 157 0
+@datasave npc/npcgendr.idf 158 0
+@datasave npc/npcgendr.idf 159 0
+@datasave npc/npcgendr.idf 160 0
+@datasave npc/npcgendr.idf 161 0
+@datasave npc/npcgendr.idf 162 0
+@datasave npc/npcgendr.idf 163 0
+@datasave npc/npcgendr.idf 164 0
+@datasave npc/npcgendr.idf 165 0
+@datasave npc/npcgendr.idf 166 0
+@datasave npc/npcgendr.idf 167 0
+@datasave npc/npcgendr.idf 168 0
+@datasave npc/npcgendr.idf 169 0
+@datasave npc/npcgendr.idf 170 0
+@datasave npc/npcgendr.idf 171 0
+@datasave npc/npcgendr.idf 172 0
+@datasave npc/npcgendr.idf 173 0
+@datasave npc/npcgendr.idf 174 0
+@datasave npc/npcgendr.idf 175 0
+@datasave npc/npcgendr.idf 176 0
+@datasave npc/npcgendr.idf 177 0
+@datasave npc/npcgendr.idf 178 0
+@datasave npc/npcgendr.idf 179 0
+@datasave npc/npcgendr.idf 180 0
+@datasave npc/npcgendr.idf 181 0
+@datasave npc/npcgendr.idf 182 0
+@datasave npc/npcgendr.idf 183 0
+@datasave npc/npcgendr.idf 184 0
+@datasave npc/npcgendr.idf 185 0
+@datasave npc/npcgendr.idf 186 0
+@datasave npc/npcgendr.idf 187 0
+@datasave npc/npcgendr.idf 188 0
+@datasave npc/npcgendr.idf 189 0
+@datasave npc/npcgendr.idf 190 0
+@datasave npc/npcgendr.idf 191 0
+@datasave npc/npcgendr.idf 192 0
+@datasave npc/npcgendr.idf 193 0
+@datasave npc/npcgendr.idf 194 0
+@datasave npc/npcgendr.idf 195 0
+@datasave npc/npcgendr.idf 196 0
+@datasave npc/npcgendr.idf 197 0
+@datasave npc/npcgendr.idf 198 0
+@datasave npc/npcgendr.idf 199 0
+@datasave npc/npcgendr.idf 200 0
+@do goto c11
+
+@label creation11
+@show
+`\ �`%Creating NPC data file #12.`\
+@datasave npc/npcstat.idf 1 0
+@datasave npc/npcstat.idf 2 0
+@datasave npc/npcstat.idf 3 6
+@datasave npc/npcstat.idf 4 6
+@datasave npc/npcstat.idf 5 0
+@datasave npc/npcstat.idf 6 0
+@datasave npc/npcstat.idf 7 0
+@datasave npc/npcstat.idf 8 0
+@datasave npc/npcstat.idf 9 0
+@datasave npc/npcstat.idf 10 6
+@datasave npc/npcstat.idf 11 0
+@datasave npc/npcstat.idf 12 0
+@datasave npc/npcstat.idf 13 0
+@datasave npc/npcstat.idf 14 6
+@datasave npc/npcstat.idf 15 0
+@datasave npc/npcstat.idf 16 0
+@datasave npc/npcstat.idf 17 0
+@datasave npc/npcstat.idf 18 0
+@datasave npc/npcstat.idf 19 0
+@datasave npc/npcstat.idf 20 0
+@datasave npc/npcstat.idf 21 0
+@datasave npc/npcstat.idf 22 0
+@datasave npc/npcstat.idf 23 0
+@datasave npc/npcstat.idf 24 0
+@datasave npc/npcstat.idf 25 0
+@datasave npc/npcstat.idf 26 0
+@datasave npc/npcstat.idf 27 0
+@datasave npc/npcstat.idf 28 0
+@datasave npc/npcstat.idf 29 0
+@datasave npc/npcstat.idf 30 0
+@datasave npc/npcstat.idf 31 0
+@datasave npc/npcstat.idf 32 0
+@datasave npc/npcstat.idf 33 0
+@datasave npc/npcstat.idf 34 0
+@datasave npc/npcstat.idf 35 0
+@datasave npc/npcstat.idf 36 0
+@datasave npc/npcstat.idf 37 0
+@datasave npc/npcstat.idf 38 0
+@datasave npc/npcstat.idf 39 0
+@datasave npc/npcstat.idf 40 0
+@datasave npc/npcstat.idf 41 0
+@datasave npc/npcstat.idf 42 0
+@datasave npc/npcstat.idf 43 0
+@datasave npc/npcstat.idf 44 0
+@datasave npc/npcstat.idf 45 0
+@datasave npc/npcstat.idf 46 0
+@datasave npc/npcstat.idf 47 0
+@datasave npc/npcstat.idf 48 0
+@datasave npc/npcstat.idf 49 0
+@datasave npc/npcstat.idf 50 0
+@datasave npc/npcstat.idf 51 0
+@datasave npc/npcstat.idf 52 0
+@datasave npc/npcstat.idf 53 0
+@datasave npc/npcstat.idf 54 0
+@datasave npc/npcstat.idf 55 0
+@datasave npc/npcstat.idf 56 0
+@datasave npc/npcstat.idf 57 0
+@datasave npc/npcstat.idf 58 0
+@datasave npc/npcstat.idf 59 0
+@datasave npc/npcstat.idf 60 0
+@datasave npc/npcstat.idf 61 0
+@datasave npc/npcstat.idf 62 0
+@datasave npc/npcstat.idf 63 0
+@datasave npc/npcstat.idf 64 0
+@datasave npc/npcstat.idf 65 0
+@datasave npc/npcstat.idf 66 0
+@datasave npc/npcstat.idf 67 0
+@datasave npc/npcstat.idf 68 0
+@datasave npc/npcstat.idf 69 0
+@datasave npc/npcstat.idf 70 0
+@datasave npc/npcstat.idf 71 0
+@datasave npc/npcstat.idf 72 0
+@datasave npc/npcstat.idf 73 0
+@datasave npc/npcstat.idf 74 0
+@datasave npc/npcstat.idf 75 0
+@datasave npc/npcstat.idf 76 0
+@datasave npc/npcstat.idf 77 0
+@datasave npc/npcstat.idf 78 0
+@datasave npc/npcstat.idf 79 0
+@datasave npc/npcstat.idf 80 0
+@datasave npc/npcstat.idf 81 0
+@datasave npc/npcstat.idf 82 0
+@datasave npc/npcstat.idf 83 0
+@datasave npc/npcstat.idf 84 0
+@datasave npc/npcstat.idf 85 0
+@datasave npc/npcstat.idf 86 0
+@datasave npc/npcstat.idf 87 0
+@datasave npc/npcstat.idf 88 0
+@datasave npc/npcstat.idf 89 0
+@datasave npc/npcstat.idf 90 0
+@datasave npc/npcstat.idf 91 0
+@datasave npc/npcstat.idf 92 0
+@datasave npc/npcstat.idf 93 0
+@datasave npc/npcstat.idf 94 0
+@datasave npc/npcstat.idf 95 0
+@datasave npc/npcstat.idf 96 0
+@datasave npc/npcstat.idf 97 0
+@datasave npc/npcstat.idf 98 0
+@datasave npc/npcstat.idf 99 0
+@datasave npc/npcstat.idf 100 0
+@datasave npc/npcstat.idf 101 6
+@datasave npc/npcstat.idf 102 6
+@datasave npc/npcstat.idf 103 0
+@datasave npc/npcstat.idf 104 0
+@datasave npc/npcstat.idf 105 0
+@datasave npc/npcstat.idf 106 0
+@datasave npc/npcstat.idf 107 0
+@datasave npc/npcstat.idf 108 0
+@datasave npc/npcstat.idf 109 0
+@datasave npc/npcstat.idf 110 0
+@datasave npc/npcstat.idf 111 0
+@datasave npc/npcstat.idf 112 0
+@datasave npc/npcstat.idf 113 0
+@datasave npc/npcstat.idf 114 0
+@datasave npc/npcstat.idf 115 0
+@datasave npc/npcstat.idf 116 0
+@datasave npc/npcstat.idf 117 0
+@datasave npc/npcstat.idf 118 0
+@datasave npc/npcstat.idf 119 0
+@datasave npc/npcstat.idf 120 0
+@datasave npc/npcstat.idf 121 0
+@datasave npc/npcstat.idf 122 0
+@datasave npc/npcstat.idf 123 0
+@datasave npc/npcstat.idf 124 0
+@datasave npc/npcstat.idf 125 0
+@datasave npc/npcstat.idf 126 0
+@datasave npc/npcstat.idf 127 0
+@datasave npc/npcstat.idf 128 0
+@datasave npc/npcstat.idf 129 0
+@datasave npc/npcstat.idf 130 0
+@datasave npc/npcstat.idf 131 0
+@datasave npc/npcstat.idf 132 0
+@datasave npc/npcstat.idf 133 0
+@datasave npc/npcstat.idf 134 0
+@datasave npc/npcstat.idf 135 0
+@datasave npc/npcstat.idf 136 0
+@datasave npc/npcstat.idf 137 0
+@datasave npc/npcstat.idf 138 0
+@datasave npc/npcstat.idf 139 0
+@datasave npc/npcstat.idf 140 0
+@datasave npc/npcstat.idf 141 0
+@datasave npc/npcstat.idf 142 0
+@datasave npc/npcstat.idf 143 0
+@datasave npc/npcstat.idf 144 0
+@datasave npc/npcstat.idf 145 0
+@datasave npc/npcstat.idf 146 0
+@datasave npc/npcstat.idf 147 0
+@datasave npc/npcstat.idf 148 0
+@datasave npc/npcstat.idf 149 0
+@datasave npc/npcstat.idf 150 0
+@datasave npc/npcstat.idf 151 0
+@datasave npc/npcstat.idf 152 0
+@datasave npc/npcstat.idf 153 0
+@datasave npc/npcstat.idf 154 0
+@datasave npc/npcstat.idf 155 0
+@datasave npc/npcstat.idf 156 0
+@datasave npc/npcstat.idf 157 0
+@datasave npc/npcstat.idf 158 0
+@datasave npc/npcstat.idf 159 0
+@datasave npc/npcstat.idf 160 0
+@datasave npc/npcstat.idf 161 0
+@datasave npc/npcstat.idf 162 0
+@datasave npc/npcstat.idf 163 0
+@datasave npc/npcstat.idf 164 0
+@datasave npc/npcstat.idf 165 0
+@datasave npc/npcstat.idf 166 0
+@datasave npc/npcstat.idf 167 0
+@datasave npc/npcstat.idf 168 0
+@datasave npc/npcstat.idf 169 0
+@datasave npc/npcstat.idf 170 0
+@datasave npc/npcstat.idf 171 0
+@datasave npc/npcstat.idf 172 0
+@datasave npc/npcstat.idf 173 0
+@datasave npc/npcstat.idf 174 0
+@datasave npc/npcstat.idf 175 0
+@datasave npc/npcstat.idf 176 0
+@datasave npc/npcstat.idf 177 0
+@datasave npc/npcstat.idf 178 0
+@datasave npc/npcstat.idf 179 0
+@datasave npc/npcstat.idf 180 0
+@datasave npc/npcstat.idf 181 0
+@datasave npc/npcstat.idf 182 0
+@datasave npc/npcstat.idf 183 0
+@datasave npc/npcstat.idf 184 0
+@datasave npc/npcstat.idf 185 0
+@datasave npc/npcstat.idf 186 0
+@datasave npc/npcstat.idf 187 0
+@datasave npc/npcstat.idf 188 0
+@datasave npc/npcstat.idf 189 0
+@datasave npc/npcstat.idf 190 0
+@datasave npc/npcstat.idf 191 0
+@datasave npc/npcstat.idf 192 0
+@datasave npc/npcstat.idf 193 0
+@datasave npc/npcstat.idf 194 0
+@datasave npc/npcstat.idf 195 0
+@datasave npc/npcstat.idf 196 0
+@datasave npc/npcstat.idf 197 0
+@datasave npc/npcstat.idf 198 0
+@datasave npc/npcstat.idf 199 0
+@datasave npc/npcstat.idf 200 0
+@do goto c12
+
+@label creation12
+@show
+`\ �`%Creating NPC data file #13.`\
+@datasave npc/npcagep.idf 1 15
+@datasave npc/npcagep.idf 2 15
+@datasave npc/npcagep.idf 3 15
+@datasave npc/npcagep.idf 4 16
+@datasave npc/npcagep.idf 5 3
+@datasave npc/npcagep.idf 6 3
+@datasave npc/npcagep.idf 7 3
+@datasave npc/npcagep.idf 8 3
+@datasave npc/npcagep.idf 9 3
+@datasave npc/npcagep.idf 10 20
+@datasave npc/npcagep.idf 11 70
+@datasave npc/npcagep.idf 12 15
+@datasave npc/npcagep.idf 13 10
+@datasave npc/npcagep.idf 14 16
+@datasave npc/npcagep.idf 15 10
+@datasave npc/npcagep.idf 16 10
+@datasave npc/npcagep.idf 17 20
+@datasave npc/npcagep.idf 18 10
+@datasave npc/npcagep.idf 19 10
+@datasave npc/npcagep.idf 20 6
+@datasave npc/npcagep.idf 21 10
+@datasave npc/npcagep.idf 22 10
+@datasave npc/npcagep.idf 23 10
+@datasave npc/npcagep.idf 24 150
+@datasave npc/npcagep.idf 25 10
+@datasave npc/npcagep.idf 26 10
+@datasave npc/npcagep.idf 27 10
+@datasave npc/npcagep.idf 28 10
+@datasave npc/npcagep.idf 29 100
+@datasave npc/npcagep.idf 30 10
+@datasave npc/npcagep.idf 31 10
+@datasave npc/npcagep.idf 32 100
+@datasave npc/npcagep.idf 33 5
+@datasave npc/npcagep.idf 34 10
+@datasave npc/npcagep.idf 35 10
+@datasave npc/npcagep.idf 36 10
+@datasave npc/npcagep.idf 37 10
+@datasave npc/npcagep.idf 38 10
+@datasave npc/npcagep.idf 39 10
+@datasave npc/npcagep.idf 40 190
+@datasave npc/npcagep.idf 41 10
+@datasave npc/npcagep.idf 42 10
+@datasave npc/npcagep.idf 43 10
+@datasave npc/npcagep.idf 44 10
+@datasave npc/npcagep.idf 45 10
+@datasave npc/npcagep.idf 46 10
+@datasave npc/npcagep.idf 47 10
+@datasave npc/npcagep.idf 48 10
+@datasave npc/npcagep.idf 49 10
+@datasave npc/npcagep.idf 50 8
+@datasave npc/npcagep.idf 51 10
+@datasave npc/npcagep.idf 52 10
+@datasave npc/npcagep.idf 53 10
+@datasave npc/npcagep.idf 54 10
+@datasave npc/npcagep.idf 55 10
+@datasave npc/npcagep.idf 56 10
+@datasave npc/npcagep.idf 57 10
+@datasave npc/npcagep.idf 58 10
+@datasave npc/npcagep.idf 59 10
+@datasave npc/npcagep.idf 60 10
+@datasave npc/npcagep.idf 61 10
+@datasave npc/npcagep.idf 62 10
+@datasave npc/npcagep.idf 63 10
+@datasave npc/npcagep.idf 64 10
+@datasave npc/npcagep.idf 65 10
+@datasave npc/npcagep.idf 66 10
+@datasave npc/npcagep.idf 67 10
+@datasave npc/npcagep.idf 68 10
+@datasave npc/npcagep.idf 69 10
+@datasave npc/npcagep.idf 70 10
+@datasave npc/npcagep.idf 71 10
+@datasave npc/npcagep.idf 72 10
+@datasave npc/npcagep.idf 73 10
+@datasave npc/npcagep.idf 74 10
+@datasave npc/npcagep.idf 75 10
+@datasave npc/npcagep.idf 76 10
+@datasave npc/npcagep.idf 77 10
+@datasave npc/npcagep.idf 78 10
+@datasave npc/npcagep.idf 79 10
+@datasave npc/npcagep.idf 80 70
+@datasave npc/npcagep.idf 81 13
+@datasave npc/npcagep.idf 82 7
+@datasave npc/npcagep.idf 83 100
+@datasave npc/npcagep.idf 84 10
+@datasave npc/npcagep.idf 85 10
+@datasave npc/npcagep.idf 86 10
+@datasave npc/npcagep.idf 87 10
+@datasave npc/npcagep.idf 88 10
+@datasave npc/npcagep.idf 89 10
+@datasave npc/npcagep.idf 90 10
+@datasave npc/npcagep.idf 91 10
+@datasave npc/npcagep.idf 92 10
+@datasave npc/npcagep.idf 93 10
+@datasave npc/npcagep.idf 94 10
+@datasave npc/npcagep.idf 95 10
+@datasave npc/npcagep.idf 96 10
+@datasave npc/npcagep.idf 97 10
+@datasave npc/npcagep.idf 98 10
+@datasave npc/npcagep.idf 99 10
+@datasave npc/npcagep.idf 100 10
+@datasave npc/npcagep.idf 101 10
+@datasave npc/npcagep.idf 102 10
+@datasave npc/npcagep.idf 103 10
+@datasave npc/npcagep.idf 104 10
+@datasave npc/npcagep.idf 105 10
+@datasave npc/npcagep.idf 106 60
+@datasave npc/npcagep.idf 107 4
+@datasave npc/npcagep.idf 108 20
+@datasave npc/npcagep.idf 109 10
+@datasave npc/npcagep.idf 110 10
+@datasave npc/npcagep.idf 111 10
+@datasave npc/npcagep.idf 112 10
+@datasave npc/npcagep.idf 113 10
+@datasave npc/npcagep.idf 114 10
+@datasave npc/npcagep.idf 115 10
+@datasave npc/npcagep.idf 116 10
+@datasave npc/npcagep.idf 117 10
+@datasave npc/npcagep.idf 118 10
+@datasave npc/npcagep.idf 119 8
+@datasave npc/npcagep.idf 120 10
+@datasave npc/npcagep.idf 121 30
+@datasave npc/npcagep.idf 122 40
+@datasave npc/npcagep.idf 123 3
+@datasave npc/npcagep.idf 124 50
+@datasave npc/npcagep.idf 125 10
+@datasave npc/npcagep.idf 126 10
+@datasave npc/npcagep.idf 127 10
+@datasave npc/npcagep.idf 128 10
+@datasave npc/npcagep.idf 129 10
+@datasave npc/npcagep.idf 130 10
+@datasave npc/npcagep.idf 131 10
+@datasave npc/npcagep.idf 132 10
+@datasave npc/npcagep.idf 133 10
+@datasave npc/npcagep.idf 134 10
+@datasave npc/npcagep.idf 135 10
+@datasave npc/npcagep.idf 136 10
+@datasave npc/npcagep.idf 137 10
+@datasave npc/npcagep.idf 138 10
+@datasave npc/npcagep.idf 139 10
+@datasave npc/npcagep.idf 140 10
+@datasave npc/npcagep.idf 141 10
+@datasave npc/npcagep.idf 142 10
+@datasave npc/npcagep.idf 143 10
+@datasave npc/npcagep.idf 144 10
+@datasave npc/npcagep.idf 145 10
+@datasave npc/npcagep.idf 146 10
+@datasave npc/npcagep.idf 147 10
+@datasave npc/npcagep.idf 148 10
+@datasave npc/npcagep.idf 149 10
+@datasave npc/npcagep.idf 150 10
+@datasave npc/npcagep.idf 151 10
+@datasave npc/npcagep.idf 152 10
+@datasave npc/npcagep.idf 153 10
+@datasave npc/npcagep.idf 154 10
+@datasave npc/npcagep.idf 155 10
+@datasave npc/npcagep.idf 156 10
+@datasave npc/npcagep.idf 157 10
+@datasave npc/npcagep.idf 158 10
+@datasave npc/npcagep.idf 159 10
+@datasave npc/npcagep.idf 160 10
+@datasave npc/npcagep.idf 161 10
+@datasave npc/npcagep.idf 162 10
+@datasave npc/npcagep.idf 163 10
+@datasave npc/npcagep.idf 164 10
+@datasave npc/npcagep.idf 165 10
+@datasave npc/npcagep.idf 166 10
+@datasave npc/npcagep.idf 167 10
+@datasave npc/npcagep.idf 168 10
+@datasave npc/npcagep.idf 169 10
+@datasave npc/npcagep.idf 170 10
+@datasave npc/npcagep.idf 171 10
+@datasave npc/npcagep.idf 172 10
+@datasave npc/npcagep.idf 173 10
+@datasave npc/npcagep.idf 174 10
+@datasave npc/npcagep.idf 175 10
+@datasave npc/npcagep.idf 176 10
+@datasave npc/npcagep.idf 177 10
+@datasave npc/npcagep.idf 178 10
+@datasave npc/npcagep.idf 179 10
+@datasave npc/npcagep.idf 180 10
+@datasave npc/npcagep.idf 181 10
+@datasave npc/npcagep.idf 182 10
+@datasave npc/npcagep.idf 183 10
+@datasave npc/npcagep.idf 184 10
+@datasave npc/npcagep.idf 185 10
+@datasave npc/npcagep.idf 186 10
+@datasave npc/npcagep.idf 187 10
+@datasave npc/npcagep.idf 188 10
+@datasave npc/npcagep.idf 189 10
+@datasave npc/npcagep.idf 190 10
+@datasave npc/npcagep.idf 191 10
+@datasave npc/npcagep.idf 192 10
+@datasave npc/npcagep.idf 193 10
+@datasave npc/npcagep.idf 194 10
+@datasave npc/npcagep.idf 195 10
+@datasave npc/npcagep.idf 196 10
+@datasave npc/npcagep.idf 197 10
+@datasave npc/npcagep.idf 198 10
+@datasave npc/npcagep.idf 199 10
+@datasave npc/npcagep.idf 200 10
+@closescript
+@#NOMORE
diff --git a/xtrn/lord2/cnw/npcmake3.ref b/xtrn/lord2/cnw/npcmake3.ref
new file mode 100644
index 0000000000000000000000000000000000000000..3b58b1f67f4be06a8d3a4609b0f3984f74c12ff8
--- /dev/null
+++ b/xtrn/lord2/cnw/npcmake3.ref
@@ -0,0 +1,851 @@
+; Script file NPCMAKE3.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:37 2001
+
+@DECLARE creation 000000406
+@DECLARE c13 000000534
+@DECLARE c14 000000636
+@DECLARE c15 000000738
+@DECLARE c16 000000844
+@DECLARE creation12 000000879
+@DECLARE creation13 000007839
+@DECLARE creation14 000014628
+@DECLARE creation15 000021602
+@DECLARE nomore 000028557
+@NOCHECK
+; End of .REF index
+
+@#creation
+;npc\npcreqc1.idf -charm requirements on npc for 1st date
+@if npc/npcreqc1.idf exists false then goto creation12
+@label c13
+;npc\npcreqc2.idf -for 2nd date
+@if npc/npcreqc2.idf exists false then goto creation13
+@label c14
+;npc\npcreqc3.idf -for 1st kiss
+@if npc/npcreqc3.idf exists false then goto creation14
+@label c15
+;npc\npcreqc4.idf -for going steady
+@if npc/npcreqc4.idf exists false then goto creation15
+@label c16
+@closescript
+
+@label creation12
+@show
+`\ �`%Creating NPC data file #14.`\
+@datasave npc/npcreqc1.idf 1 50
+@datasave npc/npcreqc1.idf 2 50
+@datasave npc/npcreqc1.idf 3 8
+@datasave npc/npcreqc1.idf 4 8
+@datasave npc/npcreqc1.idf 5 2
+@datasave npc/npcreqc1.idf 6 2
+@datasave npc/npcreqc1.idf 7 2
+@datasave npc/npcreqc1.idf 8 2
+@datasave npc/npcreqc1.idf 9 2
+@datasave npc/npcreqc1.idf 10 5
+@datasave npc/npcreqc1.idf 11 5
+@datasave npc/npcreqc1.idf 12 5
+@datasave npc/npcreqc1.idf 13 2
+@datasave npc/npcreqc1.idf 14 10
+@datasave npc/npcreqc1.idf 15 10
+@datasave npc/npcreqc1.idf 16 10
+@datasave npc/npcreqc1.idf 17 12
+@datasave npc/npcreqc1.idf 18 13
+@datasave npc/npcreqc1.idf 19 10
+@datasave npc/npcreqc1.idf 20 15
+@datasave npc/npcreqc1.idf 21 10
+@datasave npc/npcreqc1.idf 22 14
+@datasave npc/npcreqc1.idf 23 10
+@datasave npc/npcreqc1.idf 24 15
+@datasave npc/npcreqc1.idf 25 10
+@datasave npc/npcreqc1.idf 26 13
+@datasave npc/npcreqc1.idf 27 10
+@datasave npc/npcreqc1.idf 28 17
+@datasave npc/npcreqc1.idf 29 12
+@datasave npc/npcreqc1.idf 30 10
+@datasave npc/npcreqc1.idf 31 16
+@datasave npc/npcreqc1.idf 32 11
+@datasave npc/npcreqc1.idf 33 17
+@datasave npc/npcreqc1.idf 34 10
+@datasave npc/npcreqc1.idf 35 10
+@datasave npc/npcreqc1.idf 36 10
+@datasave npc/npcreqc1.idf 37 10
+@datasave npc/npcreqc1.idf 38 10
+@datasave npc/npcreqc1.idf 39 10
+@datasave npc/npcreqc1.idf 40 17
+@datasave npc/npcreqc1.idf 41 10
+@datasave npc/npcreqc1.idf 42 10
+@datasave npc/npcreqc1.idf 43 10
+@datasave npc/npcreqc1.idf 44 10
+@datasave npc/npcreqc1.idf 45 10
+@datasave npc/npcreqc1.idf 46 10
+@datasave npc/npcreqc1.idf 47 10
+@datasave npc/npcreqc1.idf 48 10
+@datasave npc/npcreqc1.idf 49 10
+@datasave npc/npcreqc1.idf 50 50
+@datasave npc/npcreqc1.idf 51 10
+@datasave npc/npcreqc1.idf 52 10
+@datasave npc/npcreqc1.idf 53 10
+@datasave npc/npcreqc1.idf 54 10
+@datasave npc/npcreqc1.idf 55 10
+@datasave npc/npcreqc1.idf 56 10
+@datasave npc/npcreqc1.idf 57 10
+@datasave npc/npcreqc1.idf 58 10
+@datasave npc/npcreqc1.idf 59 10
+@datasave npc/npcreqc1.idf 60 10
+@datasave npc/npcreqc1.idf 61 10
+@datasave npc/npcreqc1.idf 62 10
+@datasave npc/npcreqc1.idf 63 10
+@datasave npc/npcreqc1.idf 64 10
+@datasave npc/npcreqc1.idf 65 10
+@datasave npc/npcreqc1.idf 66 10
+@datasave npc/npcreqc1.idf 67 10
+@datasave npc/npcreqc1.idf 68 10
+@datasave npc/npcreqc1.idf 69 10
+@datasave npc/npcreqc1.idf 70 10
+@datasave npc/npcreqc1.idf 71 10
+@datasave npc/npcreqc1.idf 72 10
+@datasave npc/npcreqc1.idf 73 10
+@datasave npc/npcreqc1.idf 74 10
+@datasave npc/npcreqc1.idf 75 10
+@datasave npc/npcreqc1.idf 76 10
+@datasave npc/npcreqc1.idf 77 10
+@datasave npc/npcreqc1.idf 78 10
+@datasave npc/npcreqc1.idf 79 10
+@datasave npc/npcreqc1.idf 80 1
+@datasave npc/npcreqc1.idf 81 10
+@datasave npc/npcreqc1.idf 82 10
+@datasave npc/npcreqc1.idf 83 10
+@datasave npc/npcreqc1.idf 84 10
+@datasave npc/npcreqc1.idf 85 10
+@datasave npc/npcreqc1.idf 86 10
+@datasave npc/npcreqc1.idf 87 10
+@datasave npc/npcreqc1.idf 88 10
+@datasave npc/npcreqc1.idf 89 10
+@datasave npc/npcreqc1.idf 90 10
+@datasave npc/npcreqc1.idf 91 10
+@datasave npc/npcreqc1.idf 92 10
+@datasave npc/npcreqc1.idf 93 10
+@datasave npc/npcreqc1.idf 94 10
+@datasave npc/npcreqc1.idf 95 10
+@datasave npc/npcreqc1.idf 96 10
+@datasave npc/npcreqc1.idf 97 10
+@datasave npc/npcreqc1.idf 98 10
+@datasave npc/npcreqc1.idf 99 10
+@datasave npc/npcreqc1.idf 100 10
+@datasave npc/npcreqc1.idf 101 10
+@datasave npc/npcreqc1.idf 102 10
+@datasave npc/npcreqc1.idf 103 10
+@datasave npc/npcreqc1.idf 104 10
+@datasave npc/npcreqc1.idf 105 10
+@datasave npc/npcreqc1.idf 106 1
+@datasave npc/npcreqc1.idf 107 10
+@datasave npc/npcreqc1.idf 108 10
+@datasave npc/npcreqc1.idf 109 10
+@datasave npc/npcreqc1.idf 110 10
+@datasave npc/npcreqc1.idf 111 10
+@datasave npc/npcreqc1.idf 112 10
+@datasave npc/npcreqc1.idf 113 10
+@datasave npc/npcreqc1.idf 114 10
+@datasave npc/npcreqc1.idf 115 10
+@datasave npc/npcreqc1.idf 116 10
+@datasave npc/npcreqc1.idf 117 10
+@datasave npc/npcreqc1.idf 118 10
+@datasave npc/npcreqc1.idf 119 10
+@datasave npc/npcreqc1.idf 120 10
+@datasave npc/npcreqc1.idf 121 10
+@datasave npc/npcreqc1.idf 122 50
+@datasave npc/npcreqc1.idf 123 10
+@datasave npc/npcreqc1.idf 124 10
+@datasave npc/npcreqc1.idf 125 10
+@datasave npc/npcreqc1.idf 126 10
+@datasave npc/npcreqc1.idf 127 10
+@datasave npc/npcreqc1.idf 128 10
+@datasave npc/npcreqc1.idf 129 10
+@datasave npc/npcreqc1.idf 130 10
+@datasave npc/npcreqc1.idf 131 10
+@datasave npc/npcreqc1.idf 132 10
+@datasave npc/npcreqc1.idf 133 10
+@datasave npc/npcreqc1.idf 134 10
+@datasave npc/npcreqc1.idf 135 10
+@datasave npc/npcreqc1.idf 136 10
+@datasave npc/npcreqc1.idf 137 10
+@datasave npc/npcreqc1.idf 138 10
+@datasave npc/npcreqc1.idf 139 10
+@datasave npc/npcreqc1.idf 140 10
+@datasave npc/npcreqc1.idf 141 10
+@datasave npc/npcreqc1.idf 142 10
+@datasave npc/npcreqc1.idf 143 10
+@datasave npc/npcreqc1.idf 144 10
+@datasave npc/npcreqc1.idf 145 10
+@datasave npc/npcreqc1.idf 146 10
+@datasave npc/npcreqc1.idf 147 10
+@datasave npc/npcreqc1.idf 148 10
+@datasave npc/npcreqc1.idf 149 10
+@datasave npc/npcreqc1.idf 150 10
+@datasave npc/npcreqc1.idf 151 10
+@datasave npc/npcreqc1.idf 152 10
+@datasave npc/npcreqc1.idf 153 10
+@datasave npc/npcreqc1.idf 154 10
+@datasave npc/npcreqc1.idf 155 10
+@datasave npc/npcreqc1.idf 156 10
+@datasave npc/npcreqc1.idf 157 10
+@datasave npc/npcreqc1.idf 158 10
+@datasave npc/npcreqc1.idf 159 10
+@datasave npc/npcreqc1.idf 160 10
+@datasave npc/npcreqc1.idf 161 10
+@datasave npc/npcreqc1.idf 162 10
+@datasave npc/npcreqc1.idf 163 10
+@datasave npc/npcreqc1.idf 164 10
+@datasave npc/npcreqc1.idf 165 10
+@datasave npc/npcreqc1.idf 166 10
+@datasave npc/npcreqc1.idf 167 10
+@datasave npc/npcreqc1.idf 168 10
+@datasave npc/npcreqc1.idf 169 10
+@datasave npc/npcreqc1.idf 170 10
+@datasave npc/npcreqc1.idf 171 10
+@datasave npc/npcreqc1.idf 172 10
+@datasave npc/npcreqc1.idf 173 10
+@datasave npc/npcreqc1.idf 174 10
+@datasave npc/npcreqc1.idf 175 10
+@datasave npc/npcreqc1.idf 176 10
+@datasave npc/npcreqc1.idf 177 10
+@datasave npc/npcreqc1.idf 178 10
+@datasave npc/npcreqc1.idf 179 10
+@datasave npc/npcreqc1.idf 180 10
+@datasave npc/npcreqc1.idf 181 10
+@datasave npc/npcreqc1.idf 182 10
+@datasave npc/npcreqc1.idf 183 10
+@datasave npc/npcreqc1.idf 184 10
+@datasave npc/npcreqc1.idf 185 10
+@datasave npc/npcreqc1.idf 186 10
+@datasave npc/npcreqc1.idf 187 10
+@datasave npc/npcreqc1.idf 188 10
+@datasave npc/npcreqc1.idf 189 10
+@datasave npc/npcreqc1.idf 190 10
+@datasave npc/npcreqc1.idf 191 10
+@datasave npc/npcreqc1.idf 192 10
+@datasave npc/npcreqc1.idf 193 10
+@datasave npc/npcreqc1.idf 194 10
+@datasave npc/npcreqc1.idf 195 10
+@datasave npc/npcreqc1.idf 196 10
+@datasave npc/npcreqc1.idf 197 10
+@datasave npc/npcreqc1.idf 198 10
+@datasave npc/npcreqc1.idf 199 10
+@datasave npc/npcreqc1.idf 200 10
+@do goto c13
+
+@label creation13
+@show
+`\ �`%Creating NPC data file #15.`\
+@datasave npc/npcreqc2.idf 1 30
+@datasave npc/npcreqc2.idf 2 100
+@datasave npc/npcreqc2.idf 3 70
+@datasave npc/npcreqc2.idf 4 1
+@datasave npc/npcreqc2.idf 5 50
+@datasave npc/npcreqc2.idf 6 50
+@datasave npc/npcreqc2.idf 7 50
+@datasave npc/npcreqc2.idf 8 50
+@datasave npc/npcreqc2.idf 9 50
+@datasave npc/npcreqc2.idf 10 55
+@datasave npc/npcreqc2.idf 11 24
+@datasave npc/npcreqc2.idf 12 40
+@datasave npc/npcreqc2.idf 13 32
+@datasave npc/npcreqc2.idf 14 90
+@datasave npc/npcreqc2.idf 15 5
+@datasave npc/npcreqc2.idf 16 5
+@datasave npc/npcreqc2.idf 17 5
+@datasave npc/npcreqc2.idf 18 5
+@datasave npc/npcreqc2.idf 19 5
+@datasave npc/npcreqc2.idf 20 5
+@datasave npc/npcreqc2.idf 21 5
+@datasave npc/npcreqc2.idf 22 5
+@datasave npc/npcreqc2.idf 23 5
+@datasave npc/npcreqc2.idf 24 5
+@datasave npc/npcreqc2.idf 25 5
+@datasave npc/npcreqc2.idf 26 5
+@datasave npc/npcreqc2.idf 27 5
+@datasave npc/npcreqc2.idf 28 5
+@datasave npc/npcreqc2.idf 29 5
+@datasave npc/npcreqc2.idf 30 5
+@datasave npc/npcreqc2.idf 31 5
+@datasave npc/npcreqc2.idf 32 5
+@datasave npc/npcreqc2.idf 33 5
+@datasave npc/npcreqc2.idf 34 5
+@datasave npc/npcreqc2.idf 35 5
+@datasave npc/npcreqc2.idf 36 5
+@datasave npc/npcreqc2.idf 37 5
+@datasave npc/npcreqc2.idf 38 5
+@datasave npc/npcreqc2.idf 39 5
+@datasave npc/npcreqc2.idf 40 5
+@datasave npc/npcreqc2.idf 41 5
+@datasave npc/npcreqc2.idf 42 5
+@datasave npc/npcreqc2.idf 43 5
+@datasave npc/npcreqc2.idf 44 5
+@datasave npc/npcreqc2.idf 45 5
+@datasave npc/npcreqc2.idf 46 5
+@datasave npc/npcreqc2.idf 47 5
+@datasave npc/npcreqc2.idf 48 5
+@datasave npc/npcreqc2.idf 49 5
+@datasave npc/npcreqc2.idf 50 60
+@datasave npc/npcreqc2.idf 51 5
+@datasave npc/npcreqc2.idf 52 5
+@datasave npc/npcreqc2.idf 53 5
+@datasave npc/npcreqc2.idf 54 5
+@datasave npc/npcreqc2.idf 55 5
+@datasave npc/npcreqc2.idf 56 5
+@datasave npc/npcreqc2.idf 57 5
+@datasave npc/npcreqc2.idf 58 5
+@datasave npc/npcreqc2.idf 59 5
+@datasave npc/npcreqc2.idf 60 5
+@datasave npc/npcreqc2.idf 61 5
+@datasave npc/npcreqc2.idf 62 5
+@datasave npc/npcreqc2.idf 63 5
+@datasave npc/npcreqc2.idf 64 5
+@datasave npc/npcreqc2.idf 65 5
+@datasave npc/npcreqc2.idf 66 5
+@datasave npc/npcreqc2.idf 67 5
+@datasave npc/npcreqc2.idf 68 5
+@datasave npc/npcreqc2.idf 69 5
+@datasave npc/npcreqc2.idf 70 5
+@datasave npc/npcreqc2.idf 71 5
+@datasave npc/npcreqc2.idf 72 5
+@datasave npc/npcreqc2.idf 73 5
+@datasave npc/npcreqc2.idf 74 5
+@datasave npc/npcreqc2.idf 75 5
+@datasave npc/npcreqc2.idf 76 5
+@datasave npc/npcreqc2.idf 77 5
+@datasave npc/npcreqc2.idf 78 5
+@datasave npc/npcreqc2.idf 79 5
+@datasave npc/npcreqc2.idf 80 4
+@datasave npc/npcreqc2.idf 81 5
+@datasave npc/npcreqc2.idf 82 5
+@datasave npc/npcreqc2.idf 83 5
+@datasave npc/npcreqc2.idf 84 5
+@datasave npc/npcreqc2.idf 85 5
+@datasave npc/npcreqc2.idf 86 5
+@datasave npc/npcreqc2.idf 87 5
+@datasave npc/npcreqc2.idf 88 5
+@datasave npc/npcreqc2.idf 89 5
+@datasave npc/npcreqc2.idf 90 5
+@datasave npc/npcreqc2.idf 91 5
+@datasave npc/npcreqc2.idf 92 5
+@datasave npc/npcreqc2.idf 93 5
+@datasave npc/npcreqc2.idf 94 5
+@datasave npc/npcreqc2.idf 95 5
+@datasave npc/npcreqc2.idf 96 5
+@datasave npc/npcreqc2.idf 97 5
+@datasave npc/npcreqc2.idf 98 5
+@datasave npc/npcreqc2.idf 99 5
+@datasave npc/npcreqc2.idf 100 5
+@datasave npc/npcreqc2.idf 101 5
+@datasave npc/npcreqc2.idf 102 5
+@datasave npc/npcreqc2.idf 103 5
+@datasave npc/npcreqc2.idf 104 5
+@datasave npc/npcreqc2.idf 105 5
+@datasave npc/npcreqc2.idf 106 0
+@datasave npc/npcreqc2.idf 107 15
+@datasave npc/npcreqc2.idf 108 3
+@datasave npc/npcreqc2.idf 109 5
+@datasave npc/npcreqc2.idf 110 5
+@datasave npc/npcreqc2.idf 111 5
+@datasave npc/npcreqc2.idf 112 5
+@datasave npc/npcreqc2.idf 113 5
+@datasave npc/npcreqc2.idf 114 5
+@datasave npc/npcreqc2.idf 115 5
+@datasave npc/npcreqc2.idf 116 5
+@datasave npc/npcreqc2.idf 117 5
+@datasave npc/npcreqc2.idf 118 5
+@datasave npc/npcreqc2.idf 119 5
+@datasave npc/npcreqc2.idf 120 5
+@datasave npc/npcreqc2.idf 121 5
+@datasave npc/npcreqc2.idf 122 5
+@datasave npc/npcreqc2.idf 123 5
+@datasave npc/npcreqc2.idf 124 5
+@datasave npc/npcreqc2.idf 125 5
+@datasave npc/npcreqc2.idf 126 5
+@datasave npc/npcreqc2.idf 127 5
+@datasave npc/npcreqc2.idf 128 5
+@datasave npc/npcreqc2.idf 129 5
+@datasave npc/npcreqc2.idf 130 5
+@datasave npc/npcreqc2.idf 131 5
+@datasave npc/npcreqc2.idf 132 5
+@datasave npc/npcreqc2.idf 133 5
+@datasave npc/npcreqc2.idf 134 5
+@datasave npc/npcreqc2.idf 135 5
+@datasave npc/npcreqc2.idf 136 5
+@datasave npc/npcreqc2.idf 137 5
+@datasave npc/npcreqc2.idf 138 5
+@datasave npc/npcreqc2.idf 139 5
+@datasave npc/npcreqc2.idf 140 5
+@datasave npc/npcreqc2.idf 141 5
+@datasave npc/npcreqc2.idf 142 5
+@datasave npc/npcreqc2.idf 143 5
+@datasave npc/npcreqc2.idf 144 5
+@datasave npc/npcreqc2.idf 145 5
+@datasave npc/npcreqc2.idf 146 5
+@datasave npc/npcreqc2.idf 147 5
+@datasave npc/npcreqc2.idf 148 5
+@datasave npc/npcreqc2.idf 149 5
+@datasave npc/npcreqc2.idf 150 5
+@datasave npc/npcreqc2.idf 151 5
+@datasave npc/npcreqc2.idf 152 5
+@datasave npc/npcreqc2.idf 153 5
+@datasave npc/npcreqc2.idf 154 5
+@datasave npc/npcreqc2.idf 155 5
+@datasave npc/npcreqc2.idf 156 5
+@datasave npc/npcreqc2.idf 157 5
+@datasave npc/npcreqc2.idf 158 5
+@datasave npc/npcreqc2.idf 159 5
+@datasave npc/npcreqc2.idf 160 5
+@datasave npc/npcreqc2.idf 161 5
+@datasave npc/npcreqc2.idf 162 5
+@datasave npc/npcreqc2.idf 163 5
+@datasave npc/npcreqc2.idf 164 5
+@datasave npc/npcreqc2.idf 165 5
+@datasave npc/npcreqc2.idf 166 5
+@datasave npc/npcreqc2.idf 167 5
+@datasave npc/npcreqc2.idf 168 5
+@datasave npc/npcreqc2.idf 169 5
+@datasave npc/npcreqc2.idf 170 5
+@datasave npc/npcreqc2.idf 171 5
+@datasave npc/npcreqc2.idf 172 5
+@datasave npc/npcreqc2.idf 173 5
+@datasave npc/npcreqc2.idf 174 5
+@datasave npc/npcreqc2.idf 175 5
+@datasave npc/npcreqc2.idf 176 5
+@datasave npc/npcreqc2.idf 177 5
+@datasave npc/npcreqc2.idf 178 5
+@datasave npc/npcreqc2.idf 179 5
+@datasave npc/npcreqc2.idf 180 5
+@datasave npc/npcreqc2.idf 181 5
+@datasave npc/npcreqc2.idf 182 5
+@datasave npc/npcreqc2.idf 183 5
+@datasave npc/npcreqc2.idf 184 5
+@datasave npc/npcreqc2.idf 185 5
+@datasave npc/npcreqc2.idf 186 5
+@datasave npc/npcreqc2.idf 187 5
+@datasave npc/npcreqc2.idf 188 5
+@datasave npc/npcreqc2.idf 189 5
+@datasave npc/npcreqc2.idf 190 5
+@datasave npc/npcreqc2.idf 191 5
+@datasave npc/npcreqc2.idf 192 5
+@datasave npc/npcreqc2.idf 193 5
+@datasave npc/npcreqc2.idf 194 5
+@datasave npc/npcreqc2.idf 195 5
+@datasave npc/npcreqc2.idf 196 5
+@datasave npc/npcreqc2.idf 197 5
+@datasave npc/npcreqc2.idf 198 5
+@datasave npc/npcreqc2.idf 199 5
+@datasave npc/npcreqc2.idf 200 5
+@do goto c14
+
+@label creation14
+@show
+`\ �`%Creating NPC data file #16.`\
+@datasave npc/npcreqc3.idf 1 200
+@datasave npc/npcreqc3.idf 2 200
+@datasave npc/npcreqc3.idf 3 20
+@datasave npc/npcreqc3.idf 4 20
+@datasave npc/npcreqc3.idf 5 55
+@datasave npc/npcreqc3.idf 6 55
+@datasave npc/npcreqc3.idf 7 55
+@datasave npc/npcreqc3.idf 8 55
+@datasave npc/npcreqc3.idf 9 55
+@datasave npc/npcreqc3.idf 10 55
+@datasave npc/npcreqc3.idf 11 240
+@datasave npc/npcreqc3.idf 12 50
+@datasave npc/npcreqc3.idf 13 18
+@datasave npc/npcreqc3.idf 14 122
+@datasave npc/npcreqc3.idf 15 10
+@datasave npc/npcreqc3.idf 16 10
+@datasave npc/npcreqc3.idf 17 10
+@datasave npc/npcreqc3.idf 18 5
+@datasave npc/npcreqc3.idf 19 20
+@datasave npc/npcreqc3.idf 20 20
+@datasave npc/npcreqc3.idf 21 20
+@datasave npc/npcreqc3.idf 22 20
+@datasave npc/npcreqc3.idf 23 20
+@datasave npc/npcreqc3.idf 24 20
+@datasave npc/npcreqc3.idf 25 20
+@datasave npc/npcreqc3.idf 26 20
+@datasave npc/npcreqc3.idf 27 20
+@datasave npc/npcreqc3.idf 28 20
+@datasave npc/npcreqc3.idf 29 20
+@datasave npc/npcreqc3.idf 30 20
+@datasave npc/npcreqc3.idf 31 20
+@datasave npc/npcreqc3.idf 32 20
+@datasave npc/npcreqc3.idf 33 20
+@datasave npc/npcreqc3.idf 34 20
+@datasave npc/npcreqc3.idf 35 20
+@datasave npc/npcreqc3.idf 36 20
+@datasave npc/npcreqc3.idf 37 20
+@datasave npc/npcreqc3.idf 38 20
+@datasave npc/npcreqc3.idf 39 20
+@datasave npc/npcreqc3.idf 40 20
+@datasave npc/npcreqc3.idf 41 20
+@datasave npc/npcreqc3.idf 42 20
+@datasave npc/npcreqc3.idf 43 20
+@datasave npc/npcreqc3.idf 44 20
+@datasave npc/npcreqc3.idf 45 20
+@datasave npc/npcreqc3.idf 46 20
+@datasave npc/npcreqc3.idf 47 20
+@datasave npc/npcreqc3.idf 48 20
+@datasave npc/npcreqc3.idf 49 20
+@datasave npc/npcreqc3.idf 50 70
+@datasave npc/npcreqc3.idf 51 20
+@datasave npc/npcreqc3.idf 52 20
+@datasave npc/npcreqc3.idf 53 20
+@datasave npc/npcreqc3.idf 54 20
+@datasave npc/npcreqc3.idf 55 20
+@datasave npc/npcreqc3.idf 56 20
+@datasave npc/npcreqc3.idf 57 12
+@datasave npc/npcreqc3.idf 58 20
+@datasave npc/npcreqc3.idf 59 20
+@datasave npc/npcreqc3.idf 60 20
+@datasave npc/npcreqc3.idf 61 20
+@datasave npc/npcreqc3.idf 62 20
+@datasave npc/npcreqc3.idf 63 20
+@datasave npc/npcreqc3.idf 64 20
+@datasave npc/npcreqc3.idf 65 20
+@datasave npc/npcreqc3.idf 66 20
+@datasave npc/npcreqc3.idf 67 20
+@datasave npc/npcreqc3.idf 68 20
+@datasave npc/npcreqc3.idf 69 20
+@datasave npc/npcreqc3.idf 70 20
+@datasave npc/npcreqc3.idf 71 20
+@datasave npc/npcreqc3.idf 72 20
+@datasave npc/npcreqc3.idf 73 20
+@datasave npc/npcreqc3.idf 74 20
+@datasave npc/npcreqc3.idf 75 20
+@datasave npc/npcreqc3.idf 76 20
+@datasave npc/npcreqc3.idf 77 20
+@datasave npc/npcreqc3.idf 78 20
+@datasave npc/npcreqc3.idf 79 20
+@datasave npc/npcreqc3.idf 80 5
+@datasave npc/npcreqc3.idf 81 20
+@datasave npc/npcreqc3.idf 82 20
+@datasave npc/npcreqc3.idf 83 20
+@datasave npc/npcreqc3.idf 84 20
+@datasave npc/npcreqc3.idf 85 20
+@datasave npc/npcreqc3.idf 86 20
+@datasave npc/npcreqc3.idf 87 20
+@datasave npc/npcreqc3.idf 88 20
+@datasave npc/npcreqc3.idf 89 20
+@datasave npc/npcreqc3.idf 90 20
+@datasave npc/npcreqc3.idf 91 20
+@datasave npc/npcreqc3.idf 92 20
+@datasave npc/npcreqc3.idf 93 20
+@datasave npc/npcreqc3.idf 94 20
+@datasave npc/npcreqc3.idf 95 20
+@datasave npc/npcreqc3.idf 96 20
+@datasave npc/npcreqc3.idf 97 20
+@datasave npc/npcreqc3.idf 98 20
+@datasave npc/npcreqc3.idf 99 20
+@datasave npc/npcreqc3.idf 100 20
+@datasave npc/npcreqc3.idf 101 20
+@datasave npc/npcreqc3.idf 102 20
+@datasave npc/npcreqc3.idf 103 20
+@datasave npc/npcreqc3.idf 104 20
+@datasave npc/npcreqc3.idf 105 20
+@datasave npc/npcreqc3.idf 106 20
+@datasave npc/npcreqc3.idf 107 20
+@datasave npc/npcreqc3.idf 108 20
+@datasave npc/npcreqc3.idf 109 20
+@datasave npc/npcreqc3.idf 110 20
+@datasave npc/npcreqc3.idf 111 20
+@datasave npc/npcreqc3.idf 112 20
+@datasave npc/npcreqc3.idf 113 20
+@datasave npc/npcreqc3.idf 114 20
+@datasave npc/npcreqc3.idf 115 20
+@datasave npc/npcreqc3.idf 116 20
+@datasave npc/npcreqc3.idf 117 20
+@datasave npc/npcreqc3.idf 118 20
+@datasave npc/npcreqc3.idf 119 20
+@datasave npc/npcreqc3.idf 120 20
+@datasave npc/npcreqc3.idf 121 20
+@datasave npc/npcreqc3.idf 122 20
+@datasave npc/npcreqc3.idf 123 20
+@datasave npc/npcreqc3.idf 124 20
+@datasave npc/npcreqc3.idf 125 20
+@datasave npc/npcreqc3.idf 126 21
+@datasave npc/npcreqc3.idf 127 21
+@datasave npc/npcreqc3.idf 128 21
+@datasave npc/npcreqc3.idf 129 20
+@datasave npc/npcreqc3.idf 130 20
+@datasave npc/npcreqc3.idf 131 20
+@datasave npc/npcreqc3.idf 132 20
+@datasave npc/npcreqc3.idf 133 20
+@datasave npc/npcreqc3.idf 134 20
+@datasave npc/npcreqc3.idf 135 20
+@datasave npc/npcreqc3.idf 136 20
+@datasave npc/npcreqc3.idf 137 20
+@datasave npc/npcreqc3.idf 138 20
+@datasave npc/npcreqc3.idf 139 20
+@datasave npc/npcreqc3.idf 140 20
+@datasave npc/npcreqc3.idf 141 20
+@datasave npc/npcreqc3.idf 142 20
+@datasave npc/npcreqc3.idf 143 20
+@datasave npc/npcreqc3.idf 144 20
+@datasave npc/npcreqc3.idf 145 20
+@datasave npc/npcreqc3.idf 146 20
+@datasave npc/npcreqc3.idf 147 20
+@datasave npc/npcreqc3.idf 148 20
+@datasave npc/npcreqc3.idf 149 20
+@datasave npc/npcreqc3.idf 150 20
+@datasave npc/npcreqc3.idf 151 20
+@datasave npc/npcreqc3.idf 152 20
+@datasave npc/npcreqc3.idf 153 20
+@datasave npc/npcreqc3.idf 154 21
+@datasave npc/npcreqc3.idf 155 20
+@datasave npc/npcreqc3.idf 156 20
+@datasave npc/npcreqc3.idf 157 20
+@datasave npc/npcreqc3.idf 158 2
+@datasave npc/npcreqc3.idf 159 21
+@datasave npc/npcreqc3.idf 160 20
+@datasave npc/npcreqc3.idf 161 20
+@datasave npc/npcreqc3.idf 162 20
+@datasave npc/npcreqc3.idf 163 20
+@datasave npc/npcreqc3.idf 164 20
+@datasave npc/npcreqc3.idf 165 20
+@datasave npc/npcreqc3.idf 166 20
+@datasave npc/npcreqc3.idf 167 20
+@datasave npc/npcreqc3.idf 168 20
+@datasave npc/npcreqc3.idf 169 20
+@datasave npc/npcreqc3.idf 170 20
+@datasave npc/npcreqc3.idf 171 20
+@datasave npc/npcreqc3.idf 172 20
+@datasave npc/npcreqc3.idf 173 20
+@datasave npc/npcreqc3.idf 174 20
+@datasave npc/npcreqc3.idf 175 20
+@datasave npc/npcreqc3.idf 176 10
+@datasave npc/npcreqc3.idf 177 10
+@datasave npc/npcreqc3.idf 178 10
+@datasave npc/npcreqc3.idf 179 10
+@datasave npc/npcreqc3.idf 180 10
+@datasave npc/npcreqc3.idf 181 10
+@datasave npc/npcreqc3.idf 182 10
+@datasave npc/npcreqc3.idf 183 10
+@datasave npc/npcreqc3.idf 184 10
+@datasave npc/npcreqc3.idf 185 10
+@datasave npc/npcreqc3.idf 186 10
+@datasave npc/npcreqc3.idf 187 10
+@datasave npc/npcreqc3.idf 188 10
+@datasave npc/npcreqc3.idf 189 10
+@datasave npc/npcreqc3.idf 190 10
+@datasave npc/npcreqc3.idf 191 10
+@datasave npc/npcreqc3.idf 192 10
+@datasave npc/npcreqc3.idf 193 10
+@datasave npc/npcreqc3.idf 194 10
+@datasave npc/npcreqc3.idf 195 10
+@datasave npc/npcreqc3.idf 196 10
+@datasave npc/npcreqc3.idf 197 10
+@datasave npc/npcreqc3.idf 198 10
+@datasave npc/npcreqc3.idf 199 10
+@datasave npc/npcreqc3.idf 200 10
+@do goto c15
+
+@label creation15
+@show
+`\ �`%Creating NPC data file #17.`\
+@datasave npc/npcreqc4.idf 1 40
+@datasave npc/npcreqc4.idf 2 40
+@datasave npc/npcreqc4.idf 3 1
+@datasave npc/npcreqc4.idf 4 5
+@datasave npc/npcreqc4.idf 5 5
+@datasave npc/npcreqc4.idf 6 0
+@datasave npc/npcreqc4.idf 7 5
+@datasave npc/npcreqc4.idf 8 1
+@datasave npc/npcreqc4.idf 9 0
+@datasave npc/npcreqc4.idf 10 0
+@datasave npc/npcreqc4.idf 11 4
+@datasave npc/npcreqc4.idf 12 1
+@datasave npc/npcreqc4.idf 13 1
+@datasave npc/npcreqc4.idf 14 20
+@datasave npc/npcreqc4.idf 15 20
+@datasave npc/npcreqc4.idf 16 20
+@datasave npc/npcreqc4.idf 17 40
+@datasave npc/npcreqc4.idf 18 13
+@datasave npc/npcreqc4.idf 19 40
+@datasave npc/npcreqc4.idf 20 20
+@datasave npc/npcreqc4.idf 21 30
+@datasave npc/npcreqc4.idf 22 20
+@datasave npc/npcreqc4.idf 23 20
+@datasave npc/npcreqc4.idf 24 20
+@datasave npc/npcreqc4.idf 25 30
+@datasave npc/npcreqc4.idf 26 20
+@datasave npc/npcreqc4.idf 27 50
+@datasave npc/npcreqc4.idf 28 20
+@datasave npc/npcreqc4.idf 29 20
+@datasave npc/npcreqc4.idf 30 40
+@datasave npc/npcreqc4.idf 31 20
+@datasave npc/npcreqc4.idf 32 20
+@datasave npc/npcreqc4.idf 33 20
+@datasave npc/npcreqc4.idf 34 20
+@datasave npc/npcreqc4.idf 35 30
+@datasave npc/npcreqc4.idf 36 40
+@datasave npc/npcreqc4.idf 37 50
+@datasave npc/npcreqc4.idf 38 60
+@datasave npc/npcreqc4.idf 39 40
+@datasave npc/npcreqc4.idf 40 30
+@datasave npc/npcreqc4.idf 41 40
+@datasave npc/npcreqc4.idf 42 50
+@datasave npc/npcreqc4.idf 43 60
+@datasave npc/npcreqc4.idf 44 40
+@datasave npc/npcreqc4.idf 45 30
+@datasave npc/npcreqc4.idf 46 20
+@datasave npc/npcreqc4.idf 47 30
+@datasave npc/npcreqc4.idf 48 10
+@datasave npc/npcreqc4.idf 49 30
+@datasave npc/npcreqc4.idf 50 40
+@datasave npc/npcreqc4.idf 51 80
+@datasave npc/npcreqc4.idf 52 20
+@datasave npc/npcreqc4.idf 53 40
+@datasave npc/npcreqc4.idf 54 20
+@datasave npc/npcreqc4.idf 55 30
+@datasave npc/npcreqc4.idf 56 40
+@datasave npc/npcreqc4.idf 57 10
+@datasave npc/npcreqc4.idf 58 30
+@datasave npc/npcreqc4.idf 59 30
+@datasave npc/npcreqc4.idf 60 40
+@datasave npc/npcreqc4.idf 61 50
+@datasave npc/npcreqc4.idf 62 20
+@datasave npc/npcreqc4.idf 63 30
+@datasave npc/npcreqc4.idf 64 40
+@datasave npc/npcreqc4.idf 65 50
+@datasave npc/npcreqc4.idf 66 60
+@datasave npc/npcreqc4.idf 67 20
+@datasave npc/npcreqc4.idf 68 30
+@datasave npc/npcreqc4.idf 69 40
+@datasave npc/npcreqc4.idf 70 50
+@datasave npc/npcreqc4.idf 71 20
+@datasave npc/npcreqc4.idf 72 10
+@datasave npc/npcreqc4.idf 73 50
+@datasave npc/npcreqc4.idf 74 30
+@datasave npc/npcreqc4.idf 75 60
+@datasave npc/npcreqc4.idf 76 20
+@datasave npc/npcreqc4.idf 77 30
+@datasave npc/npcreqc4.idf 78 10
+@datasave npc/npcreqc4.idf 79 20
+@datasave npc/npcreqc4.idf 80 10
+@datasave npc/npcreqc4.idf 81 40
+@datasave npc/npcreqc4.idf 82 50
+@datasave npc/npcreqc4.idf 83 40
+@datasave npc/npcreqc4.idf 84 30
+@datasave npc/npcreqc4.idf 85 20
+@datasave npc/npcreqc4.idf 86 10
+@datasave npc/npcreqc4.idf 87 20
+@datasave npc/npcreqc4.idf 88 30
+@datasave npc/npcreqc4.idf 89 40
+@datasave npc/npcreqc4.idf 90 50
+@datasave npc/npcreqc4.idf 91 50
+@datasave npc/npcreqc4.idf 92 60
+@datasave npc/npcreqc4.idf 93 70
+@datasave npc/npcreqc4.idf 94 50
+@datasave npc/npcreqc4.idf 95 40
+@datasave npc/npcreqc4.idf 96 30
+@datasave npc/npcreqc4.idf 97 20
+@datasave npc/npcreqc4.idf 98 10
+@datasave npc/npcreqc4.idf 99 20
+@datasave npc/npcreqc4.idf 100 30
+@datasave npc/npcreqc4.idf 101 20
+@datasave npc/npcreqc4.idf 102 20
+@datasave npc/npcreqc4.idf 103 20
+@datasave npc/npcreqc4.idf 104 20
+@datasave npc/npcreqc4.idf 105 10
+@datasave npc/npcreqc4.idf 106 10
+@datasave npc/npcreqc4.idf 107 120
+@datasave npc/npcreqc4.idf 108 30
+@datasave npc/npcreqc4.idf 109 40
+@datasave npc/npcreqc4.idf 110 50
+@datasave npc/npcreqc4.idf 111 60
+@datasave npc/npcreqc4.idf 112 70
+@datasave npc/npcreqc4.idf 113 80
+@datasave npc/npcreqc4.idf 114 50
+@datasave npc/npcreqc4.idf 115 40
+@datasave npc/npcreqc4.idf 116 30
+@datasave npc/npcreqc4.idf 117 20
+@datasave npc/npcreqc4.idf 118 110
+@datasave npc/npcreqc4.idf 119 20
+@datasave npc/npcreqc4.idf 120 30
+@datasave npc/npcreqc4.idf 121 40
+@datasave npc/npcreqc4.idf 122 50
+@datasave npc/npcreqc4.idf 123 40
+@datasave npc/npcreqc4.idf 124 30
+@datasave npc/npcreqc4.idf 125 20
+@datasave npc/npcreqc4.idf 126 10
+@datasave npc/npcreqc4.idf 127 20
+@datasave npc/npcreqc4.idf 128 30
+@datasave npc/npcreqc4.idf 129 40
+@datasave npc/npcreqc4.idf 130 20
+@datasave npc/npcreqc4.idf 131 30
+@datasave npc/npcreqc4.idf 132 20
+@datasave npc/npcreqc4.idf 133 10
+@datasave npc/npcreqc4.idf 134 20
+@datasave npc/npcreqc4.idf 135 30
+@datasave npc/npcreqc4.idf 136 10
+@datasave npc/npcreqc4.idf 137 20
+@datasave npc/npcreqc4.idf 138 30
+@datasave npc/npcreqc4.idf 139 40
+@datasave npc/npcreqc4.idf 140 20
+@datasave npc/npcreqc4.idf 141 10
+@datasave npc/npcreqc4.idf 142 20
+@datasave npc/npcreqc4.idf 143 30
+@datasave npc/npcreqc4.idf 144 40
+@datasave npc/npcreqc4.idf 145 20
+@datasave npc/npcreqc4.idf 146 30
+@datasave npc/npcreqc4.idf 147 10
+@datasave npc/npcreqc4.idf 148 20
+@datasave npc/npcreqc4.idf 149 30
+@datasave npc/npcreqc4.idf 150 40
+@datasave npc/npcreqc4.idf 151 50
+@datasave npc/npcreqc4.idf 152 40
+@datasave npc/npcreqc4.idf 153 40
+@datasave npc/npcreqc4.idf 154 40
+@datasave npc/npcreqc4.idf 155 40
+@datasave npc/npcreqc4.idf 156 40
+@datasave npc/npcreqc4.idf 157 40
+@datasave npc/npcreqc4.idf 158 40
+@datasave npc/npcreqc4.idf 159 40
+@datasave npc/npcreqc4.idf 160 40
+@datasave npc/npcreqc4.idf 161 30
+@datasave npc/npcreqc4.idf 162 30
+@datasave npc/npcreqc4.idf 163 30
+@datasave npc/npcreqc4.idf 164 30
+@datasave npc/npcreqc4.idf 165 30
+@datasave npc/npcreqc4.idf 166 30
+@datasave npc/npcreqc4.idf 167 23
+@datasave npc/npcreqc4.idf 168 30
+@datasave npc/npcreqc4.idf 169 30
+@datasave npc/npcreqc4.idf 170 30
+@datasave npc/npcreqc4.idf 171 30
+@datasave npc/npcreqc4.idf 172 20
+@datasave npc/npcreqc4.idf 173 20
+@datasave npc/npcreqc4.idf 174 20
+@datasave npc/npcreqc4.idf 175 20
+@datasave npc/npcreqc4.idf 176 20
+@datasave npc/npcreqc4.idf 177 20
+@datasave npc/npcreqc4.idf 178 20
+@datasave npc/npcreqc4.idf 179 20
+@datasave npc/npcreqc4.idf 180 30
+@datasave npc/npcreqc4.idf 181 30
+@datasave npc/npcreqc4.idf 182 20
+@datasave npc/npcreqc4.idf 183 20
+@datasave npc/npcreqc4.idf 184 20
+@datasave npc/npcreqc4.idf 185 20
+@datasave npc/npcreqc4.idf 186 20
+@datasave npc/npcreqc4.idf 187 20
+@datasave npc/npcreqc4.idf 188 20
+@datasave npc/npcreqc4.idf 189 20
+@datasave npc/npcreqc4.idf 190 20
+@datasave npc/npcreqc4.idf 191 20
+@datasave npc/npcreqc4.idf 192 20
+@datasave npc/npcreqc4.idf 193 20
+@datasave npc/npcreqc4.idf 194 20
+@datasave npc/npcreqc4.idf 195 20
+@datasave npc/npcreqc4.idf 196 20
+@datasave npc/npcreqc4.idf 197 22
+@datasave npc/npcreqc4.idf 198 20
+@datasave npc/npcreqc4.idf 199 20
+@datasave npc/npcreqc4.idf 200 20
+@do goto c16
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/npcmake4.ref b/xtrn/lord2/cnw/npcmake4.ref
new file mode 100644
index 0000000000000000000000000000000000000000..30a18a6a74750736701906bf7562dde41189ab28
--- /dev/null
+++ b/xtrn/lord2/cnw/npcmake4.ref
@@ -0,0 +1,460 @@
+; Script file NPCMAKE4.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:36 2001
+
+@DECLARE creation 000001157
+@DECLARE c2 000001222
+@DECLARE c3 000001286
+@DECLARE c4 000001350
+@DECLARE c5 000001414
+@DECLARE c6 000001479
+@DECLARE c7 000001545
+@DECLARE c8 000001610
+@DECLARE c9 000001676
+@DECLARE c10 000001737
+@DECLARE c11 000001805
+@DECLARE c12 000001871
+@DECLARE creation1 000001905
+@DECLARE top1 000001972
+@DECLARE gold2 000002167
+@DECLARE creation2 000002822
+@DECLARE top2 000002895
+@DECLARE hp2 000003089
+@DECLARE creation3 000003331
+@DECLARE top3 000003402
+@DECLARE st2 000003557
+@DECLARE creation4 000004144
+@DECLARE top4 000004214
+@DECLARE df2 000004368
+@DECLARE creation5 000004534
+@DECLARE creation6 000004569
+@DECLARE top6 000004685
+@DECLARE creation7 000004825
+@DECLARE top7 000004892
+@DECLARE creation8 000005060
+@DECLARE top8 000005128
+@DECLARE creation9 000005297
+@DECLARE top9 000005372
+@DECLARE creation10 000005551
+@DECLARE creation11 000012309
+@DECLARE top11 000012377
+@DECLARE c12 000012502
+@DECLARE nomore 000012628
+@NOCHECK
+; End of .REF index
+
+;
+;Must create NPC IDF files.
+;
+@#creation
+@if npc\npcgold.idf exists false then goto creation1
+@label c2
+@if npc\npc-hp.idf exists false then goto creation2
+@label c3
+@if npc\npc-st.idf exists false then goto creation3
+@label c4
+@if npc\npc-df.idf exists false then goto creation4
+@label c5
+@if npc\npc-hp2.idf exists false then goto creation5
+@label c6
+@if npc\npc-bday.idf exists false then goto creation6
+@label c7
+@if npc\npcgems.idf exists false then goto creation7
+@label c8
+@if npc\npctaxes.idf exists false then goto creation8
+@label c9
+@if vaults.idf exists false then goto creation9
+@label c10
+@if npc/npctimes.idf exists false then goto creation10
+@label c11
+@if npc/npcjob.idf exists false then goto creation11
+@label c12
+@closescript
+
+@label creation1
+@show
+`\ �`%Creating NPC Gold.`\
+@do `p20 is 0
+
+@label top1
+@do `p20 + 1
+@if `p20 > 200 then goto gold2
+@do `p21 random 21000 1
+@if `p21 > 20001 then `p21 is 0
+@datasave npc/npcgold.idf `p20 `p21
+@do goto top1
+
+;specific gold values
+@label gold2
+@datasave npc\npcgold.idf 1 5500000
+@datasave npc\npcgold.idf 2 5500000
+@datasave npc\npcgold.idf 40 11320
+@datasave npc\npcgold.idf 80 304056
+@datasave npc\npcgold.idf 81 4410
+@datasave npc\npcgold.idf 82 100
+@datasave npc\npcgold.idf 83 4
+@datasave npc\npcgold.idf 84 1330
+@datasave npc\npcgold.idf 100 200200
+@datasave npc\npcgold.idf 101 10000
+@datasave npc\npcgold.idf 116 50000
+@datasave npc\npcgold.idf 117 546710000
+@datasave npc\npcgold.idf 121 5700
+@datasave npc\npcgold.idf 122 20000
+@datasave npc\npcgold.idf 123 40000
+@datasave npc\npcgold.idf 199 20000000
+@datasave npc\npcgold.idf 200 0
+@do goto c2
+;
+
+@label creation2
+@show
+`\ �`%Creating NPC Hit Points.`\
+@do `p20 is 0
+
+@label top2
+@do `p20 + 1
+@if `p20 > 200 then goto hp2
+@do `p21 random 2000 1
+@datasave npc/npc-hp.idf `p20 `p21
+@datasave npc/npc-hp2.idf `p20 `p21
+@do goto top2
+;setting specific HP's
+
+@label hp2
+@datasave npc\npc-hp2.idf 1 110150
+@datasave npc\npc-hp2.idf 2 110150
+@datasave npc\npc-hp2.idf 22 2500
+@datasave npc\npc-hp.idf 1 10150
+@datasave npc\npc-hp.idf 2 10150
+@datasave npc\npc-hp.idf 22 2500
+@do goto c2
+
+@label creation3
+@show
+`\ �`%Creating NPC Stregnth.`\
+@do `p20 is 0
+
+@label top3
+@do `p20 + 1
+@if `p20 > 200 then goto st2
+@do `p21 random 140 10
+@datasave npc/npc-st.idf `p20 `p21
+@do goto top3
+;setting specific ST's
+@label st2
+@datasave npc\npc-st.idf 1 17000
+@datasave npc\npc-st.idf 2 17000
+@datasave npc\npc-st.idf 10 10
+@datasave npc\npc-st.idf 11 200
+@datasave npc\npc-st.idf 12 10
+@datasave npc\npc-st.idf 13 10
+@datasave npc\npc-st.idf 14 10
+@datasave npc\npc-st.idf 15 10
+@datasave npc\npc-st.idf 16 10
+@datasave npc\npc-st.idf 17 90
+@datasave npc\npc-st.idf 18 10
+@datasave npc\npc-st.idf 19 10
+@datasave npc\npc-st.idf 35 150
+@datasave npc\npc-st.idf 36 100
+@datasave npc\npc-st.idf 37 170
+@datasave npc\npc-st.idf 41 200
+@datasave npc\npc-st.idf 42 100
+@do goto c4
+
+@label creation4
+@show
+`\ �`%Creating NPC Defence.`\
+@do `p20 is 0
+
+@label top4
+@do `p20 + 1
+@if `p20 > 200 then goto df2
+@do `p21 random 140 5
+@datasave npc/npc-df.idf `p20 `p21
+@do goto top2
+;setting specific DF's
+@label df2
+@datasave npc\npc-df.idf 1 2400
+@datasave npc\npc-df.idf 2 2400
+@datasave npc\npc-df.idf 24 128
+@datasave npc\npc-df.idf 122 508
+@do goto c5
+
+@label creation5
+@do goto c6
+
+
+@label creation6
+;b-day can be from 1 to `v10 (default 90)
+@show
+`\ �`%Creating NPC Birth Days.`\
+@do `p20 is 0
+
+@label top6
+@do `p20 + 1
+@if `p20 > 200 then goto c6
+@do `p21 random `v10 1
+@datasave npc/npc-bday.idf `p20 `p21
+@do goto top6
+
+@label creation7
+@show
+`\ �`%Creating NPC Gems.`\
+@do `p20 is 0
+
+@label top7
+@do `p20 + 1
+@if `p20 > 200 then goto c7
+@do `p21 random 100 1
+@if `p21 > 51 then `p21 is 0
+@datasave npc/npcgems.idf `p20 `p21
+@do goto top7
+
+@label creation8
+@show
+`\ �`%Creating NPC Taxes.`\
+@do `p20 is 0
+
+@label top8
+@do `p20 + 1
+@if `p20 > 200 then goto c8
+@do `p21 random 100 1
+@if `p21 > 90 then `p21 is 0
+@datasave npc/npctaxes.idf `p20 `p21
+@do goto top8
+
+@label creation9
+@show
+`\ �`%Creating Realm Vault Gold.`\
+@do `p20 is 0
+
+@label top9
+@do `p20 + 1
+@if `p20 > 200 then goto c9
+@do `p21 random 500 1
+@if `p21 > 400 then `p21 is 0
+@datasave vaults.idf `p20 `p21
+@do goto top9
+
+@do goto c10
+@label creation10
+@show
+`\ �`%Creating NPC data file #7.`\
+@datasave npc\npctimes.idf 1 1
+@datasave npc\npctimes.idf 2 1
+@datasave npc\npctimes.idf 3 3
+@datasave npc\npctimes.idf 4 3
+@datasave npc\npctimes.idf 5 2
+@datasave npc\npctimes.idf 6 2
+@datasave npc\npctimes.idf 7 2
+@datasave npc\npctimes.idf 8 2
+@datasave npc\npctimes.idf 9 2
+@datasave npc\npctimes.idf 10 2
+@datasave npc\npctimes.idf 11 2
+@datasave npc\npctimes.idf 12 2
+@datasave npc\npctimes.idf 13 2
+@datasave npc\npctimes.idf 14 3
+@datasave npc\npctimes.idf 15 3
+@datasave npc\npctimes.idf 16 2
+@datasave npc\npctimes.idf 17 2
+@datasave npc\npctimes.idf 18 5
+@datasave npc\npctimes.idf 19 3
+@datasave npc\npctimes.idf 20 4
+@datasave npc\npctimes.idf 21 2
+@datasave npc\npctimes.idf 22 1
+@datasave npc\npctimes.idf 23 4
+@datasave npc\npctimes.idf 24 3
+@datasave npc\npctimes.idf 25 2
+@datasave npc\npctimes.idf 26 4
+@datasave npc\npctimes.idf 27 2
+@datasave npc\npctimes.idf 28 1
+@datasave npc\npctimes.idf 29 2
+@datasave npc\npctimes.idf 30 5
+@datasave npc\npctimes.idf 31 1
+@datasave npc\npctimes.idf 32 7
+@datasave npc\npctimes.idf 33 1
+@datasave npc\npctimes.idf 34 7
+@datasave npc\npctimes.idf 35 2
+@datasave npc\npctimes.idf 36 2
+@datasave npc\npctimes.idf 37 2
+@datasave npc\npctimes.idf 38 2
+@datasave npc\npctimes.idf 39 2
+@datasave npc\npctimes.idf 40 1
+@datasave npc\npctimes.idf 41 2
+@datasave npc\npctimes.idf 42 2
+@datasave npc\npctimes.idf 43 1
+@datasave npc\npctimes.idf 44 2
+@datasave npc\npctimes.idf 45 2
+@datasave npc\npctimes.idf 46 2
+@datasave npc\npctimes.idf 47 1
+@datasave npc\npctimes.idf 48 2
+@datasave npc\npctimes.idf 49 2
+@datasave npc\npctimes.idf 50 1
+@datasave npc\npctimes.idf 51 2
+@datasave npc\npctimes.idf 52 1
+@datasave npc\npctimes.idf 53 2
+@datasave npc\npctimes.idf 54 2
+@datasave npc\npctimes.idf 55 2
+@datasave npc\npctimes.idf 56 1
+@datasave npc\npctimes.idf 57 2
+@datasave npc\npctimes.idf 58 2
+@datasave npc\npctimes.idf 59 2
+@datasave npc\npctimes.idf 60 2
+@datasave npc\npctimes.idf 61 1
+@datasave npc\npctimes.idf 62 2
+@datasave npc\npctimes.idf 63 2
+@datasave npc\npctimes.idf 64 2
+@datasave npc\npctimes.idf 65 1
+@datasave npc\npctimes.idf 66 2
+@datasave npc\npctimes.idf 67 2
+@datasave npc\npctimes.idf 68 2
+@datasave npc\npctimes.idf 69 2
+@datasave npc\npctimes.idf 70 1
+@datasave npc\npctimes.idf 71 2
+@datasave npc\npctimes.idf 72 2
+@datasave npc\npctimes.idf 73 2
+@datasave npc\npctimes.idf 74 2
+@datasave npc\npctimes.idf 75 1
+@datasave npc\npctimes.idf 76 2
+@datasave npc\npctimes.idf 77 2
+@datasave npc\npctimes.idf 78 2
+@datasave npc\npctimes.idf 79 2
+@datasave npc\npctimes.idf 80 3
+@datasave npc\npctimes.idf 81 1
+@datasave npc\npctimes.idf 82 2
+@datasave npc\npctimes.idf 83 2
+@datasave npc\npctimes.idf 84 2
+@datasave npc\npctimes.idf 85 2
+@datasave npc\npctimes.idf 86 2
+@datasave npc\npctimes.idf 87 2
+@datasave npc\npctimes.idf 88 2
+@datasave npc\npctimes.idf 89 2
+@datasave npc\npctimes.idf 90 2
+@datasave npc\npctimes.idf 91 2
+@datasave npc\npctimes.idf 92 2
+@datasave npc\npctimes.idf 93 2
+@datasave npc\npctimes.idf 94 2
+@datasave npc\npctimes.idf 95 2
+@datasave npc\npctimes.idf 96 1
+@datasave npc\npctimes.idf 97 2
+@datasave npc\npctimes.idf 98 2
+@datasave npc\npctimes.idf 99 2
+@datasave npc\npctimes.idf 100 2
+@datasave npc\npctimes.idf 101 2
+@datasave npc\npctimes.idf 102 2
+@datasave npc\npctimes.idf 103 2
+@datasave npc\npctimes.idf 104 2
+@datasave npc\npctimes.idf 105 2
+@datasave npc\npctimes.idf 106 0
+@datasave npc\npctimes.idf 107 0
+@datasave npc\npctimes.idf 108 0
+@datasave npc\npctimes.idf 109 1
+@datasave npc\npctimes.idf 110 2
+@datasave npc\npctimes.idf 111 2
+@datasave npc\npctimes.idf 112 2
+@datasave npc\npctimes.idf 113 2
+@datasave npc\npctimes.idf 114 2
+@datasave npc\npctimes.idf 115 2
+@datasave npc\npctimes.idf 116 2
+@datasave npc\npctimes.idf 117 2
+@datasave npc\npctimes.idf 118 2
+@datasave npc\npctimes.idf 119 2
+@datasave npc\npctimes.idf 120 1
+@datasave npc\npctimes.idf 121 2
+@datasave npc\npctimes.idf 122 2
+@datasave npc\npctimes.idf 123 2
+@datasave npc\npctimes.idf 124 2
+@datasave npc\npctimes.idf 125 2
+@datasave npc\npctimes.idf 126 2
+@datasave npc\npctimes.idf 127 2
+@datasave npc\npctimes.idf 128 2
+@datasave npc\npctimes.idf 129 2
+@datasave npc\npctimes.idf 130 2
+@datasave npc\npctimes.idf 131 2
+@datasave npc\npctimes.idf 132 2
+@datasave npc\npctimes.idf 133 2
+@datasave npc\npctimes.idf 134 1
+@datasave npc\npctimes.idf 135 2
+@datasave npc\npctimes.idf 136 2
+@datasave npc\npctimes.idf 137 2
+@datasave npc\npctimes.idf 138 2
+@datasave npc\npctimes.idf 139 2
+@datasave npc\npctimes.idf 140 2
+@datasave npc\npctimes.idf 141 2
+@datasave npc\npctimes.idf 142 2
+@datasave npc\npctimes.idf 143 1
+@datasave npc\npctimes.idf 144 2
+@datasave npc\npctimes.idf 145 2
+@datasave npc\npctimes.idf 146 2
+@datasave npc\npctimes.idf 147 2
+@datasave npc\npctimes.idf 148 2
+@datasave npc\npctimes.idf 149 2
+@datasave npc\npctimes.idf 150 2
+@datasave npc\npctimes.idf 151 2
+@datasave npc\npctimes.idf 152 2
+@datasave npc\npctimes.idf 153 2
+@datasave npc\npctimes.idf 154 2
+@datasave npc\npctimes.idf 155 2
+@datasave npc\npctimes.idf 156 2
+@datasave npc\npctimes.idf 157 1
+@datasave npc\npctimes.idf 158 2
+@datasave npc\npctimes.idf 159 2
+@datasave npc\npctimes.idf 160 2
+@datasave npc\npctimes.idf 161 2
+@datasave npc\npctimes.idf 162 2
+@datasave npc\npctimes.idf 163 2
+@datasave npc\npctimes.idf 164 2
+@datasave npc\npctimes.idf 165 2
+@datasave npc\npctimes.idf 166 2
+@datasave npc\npctimes.idf 167 2
+@datasave npc\npctimes.idf 168 2
+@datasave npc\npctimes.idf 169 2
+@datasave npc\npctimes.idf 170 2
+@datasave npc\npctimes.idf 171 2
+@datasave npc\npctimes.idf 172 2
+@datasave npc\npctimes.idf 173 2
+@datasave npc\npctimes.idf 174 2
+@datasave npc\npctimes.idf 175 2
+@datasave npc\npctimes.idf 176 2
+@datasave npc\npctimes.idf 177 2
+@datasave npc\npctimes.idf 178 2
+@datasave npc\npctimes.idf 179 1
+@datasave npc\npctimes.idf 180 2
+@datasave npc\npctimes.idf 181 2
+@datasave npc\npctimes.idf 182 2
+@datasave npc\npctimes.idf 183 2
+@datasave npc\npctimes.idf 184 2
+@datasave npc\npctimes.idf 185 2
+@datasave npc\npctimes.idf 186 1
+@datasave npc\npctimes.idf 187 1
+@datasave npc\npctimes.idf 188 1
+@datasave npc\npctimes.idf 189 1
+@datasave npc\npctimes.idf 190 2
+@datasave npc\npctimes.idf 191 2
+@datasave npc\npctimes.idf 192 2
+@datasave npc\npctimes.idf 193 2
+@datasave npc\npctimes.idf 194 2
+@datasave npc\npctimes.idf 195 2
+@datasave npc\npctimes.idf 196 1
+@datasave npc\npctimes.idf 197 2
+@datasave npc\npctimes.idf 198 2
+@datasave npc\npctimes.idf 199 2
+@datasave npc\npctimes.idf 200 7
+
+@label creation11
+@show
+`\ �`%Creating NPC JOBs.`\
+@do `p20 is 0
+
+@label top11
+@do `p20 + 1
+@if `p20 > 138 then goto c12
+@do `p21 is 1
+@datasave npc/npcjob.idf `p20 `p21
+@do goto top11
+
+@label c12
+@datasave npc/npcjob.idf 198 1
+@datasave npc/npcjob.idf 199 200
+@datasave npc/npcjob.idf 200 200
+
+@closescript
+@#NOMORE
diff --git a/xtrn/lord2/cnw/npcmake5.ref b/xtrn/lord2/cnw/npcmake5.ref
new file mode 100644
index 0000000000000000000000000000000000000000..3169f3c3638b472611d8ab47be3561a60878c58d
--- /dev/null
+++ b/xtrn/lord2/cnw/npcmake5.ref
@@ -0,0 +1,1271 @@
+; Script file NPCMAKE5.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:42 2001
+
+@DECLARE creation 000000511
+@DECLARE c17 000000610
+@DECLARE c18 000000714
+@DECLARE c19 000000816
+@DECLARE c5 000000921
+@DECLARE c6 000000987
+@DECLARE c7 000001052
+@DECLARE creation16 000001087
+@DECLARE creation17 000008053
+@DECLARE creation18 000015211
+@DECLARE creation19 000022297
+@DECLARE creation5 000029461
+@DECLARE creation6 000036617
+@DECLARE nomore 000043560
+@NOCHECK
+; End of .REF index
+
+@#creation
+;npc\npcreqc5.idf -for a lay
+@if npc/npcreqc5.idf exists false then goto creation16
+@label c17
+;npc\npcreqc6.idf -for engagement
+@if npc/npcreqc6.idf exists false then goto creation17
+@label c18
+;npc\npcreqc7.idf -for marriage
+@if npc/npcreqc7.idf exists false then goto creation18
+@label c19
+;npc\npcreqc8.idf -for planned kids
+@if npc/npcreqc8.idf exists false then goto creation19
+@label c5
+@if npc\npctouch.idf exists false then goto creation5
+@label c6
+@if npc/npcslut.idf exists false then goto creation6
+@label c7
+@closescript
+
+@label creation16
+@show
+`\ �`%Creating NPC data file #18.`\
+@datasave npc/npcreqc5.idf 1 160
+@datasave npc/npcreqc5.idf 2 160
+@datasave npc/npcreqc5.idf 3 46
+@datasave npc/npcreqc5.idf 4 46
+@datasave npc/npcreqc5.idf 5 70
+@datasave npc/npcreqc5.idf 6 70
+@datasave npc/npcreqc5.idf 7 70
+@datasave npc/npcreqc5.idf 8 70
+@datasave npc/npcreqc5.idf 9 70
+@datasave npc/npcreqc5.idf 10 60
+@datasave npc/npcreqc5.idf 11 4
+@datasave npc/npcreqc5.idf 12 5
+@datasave npc/npcreqc5.idf 13 8
+@datasave npc/npcreqc5.idf 14 16
+@datasave npc/npcreqc5.idf 15 30
+@datasave npc/npcreqc5.idf 16 80
+@datasave npc/npcreqc5.idf 17 6
+@datasave npc/npcreqc5.idf 18 40
+@datasave npc/npcreqc5.idf 19 80
+@datasave npc/npcreqc5.idf 20 55
+@datasave npc/npcreqc5.idf 21 10
+@datasave npc/npcreqc5.idf 22 44
+@datasave npc/npcreqc5.idf 23 33
+@datasave npc/npcreqc5.idf 24 44
+@datasave npc/npcreqc5.idf 25 33
+@datasave npc/npcreqc5.idf 26 22
+@datasave npc/npcreqc5.idf 27 11
+@datasave npc/npcreqc5.idf 28 66
+@datasave npc/npcreqc5.idf 29 66
+@datasave npc/npcreqc5.idf 30 66
+@datasave npc/npcreqc5.idf 31 66
+@datasave npc/npcreqc5.idf 32 66
+@datasave npc/npcreqc5.idf 33 66
+@datasave npc/npcreqc5.idf 34 66
+@datasave npc/npcreqc5.idf 35 55
+@datasave npc/npcreqc5.idf 36 44
+@datasave npc/npcreqc5.idf 37 33
+@datasave npc/npcreqc5.idf 38 33
+@datasave npc/npcreqc5.idf 39 33
+@datasave npc/npcreqc5.idf 40 22
+@datasave npc/npcreqc5.idf 41 22
+@datasave npc/npcreqc5.idf 42 13
+@datasave npc/npcreqc5.idf 43 10
+@datasave npc/npcreqc5.idf 44 30
+@datasave npc/npcreqc5.idf 45 30
+@datasave npc/npcreqc5.idf 46 14
+@datasave npc/npcreqc5.idf 47 10
+@datasave npc/npcreqc5.idf 48 15
+@datasave npc/npcreqc5.idf 49 10
+@datasave npc/npcreqc5.idf 50 90
+@datasave npc/npcreqc5.idf 51 70
+@datasave npc/npcreqc5.idf 52 10
+@datasave npc/npcreqc5.idf 53 80
+@datasave npc/npcreqc5.idf 54 10
+@datasave npc/npcreqc5.idf 55 10
+@datasave npc/npcreqc5.idf 56 10
+@datasave npc/npcreqc5.idf 57 10
+@datasave npc/npcreqc5.idf 58 10
+@datasave npc/npcreqc5.idf 59 10
+@datasave npc/npcreqc5.idf 60 10
+@datasave npc/npcreqc5.idf 61 10
+@datasave npc/npcreqc5.idf 62 10
+@datasave npc/npcreqc5.idf 63 10
+@datasave npc/npcreqc5.idf 64 10
+@datasave npc/npcreqc5.idf 65 10
+@datasave npc/npcreqc5.idf 66 10
+@datasave npc/npcreqc5.idf 67 10
+@datasave npc/npcreqc5.idf 68 10
+@datasave npc/npcreqc5.idf 69 10
+@datasave npc/npcreqc5.idf 70 10
+@datasave npc/npcreqc5.idf 71 10
+@datasave npc/npcreqc5.idf 72 10
+@datasave npc/npcreqc5.idf 73 10
+@datasave npc/npcreqc5.idf 74 10
+@datasave npc/npcreqc5.idf 75 10
+@datasave npc/npcreqc5.idf 76 10
+@datasave npc/npcreqc5.idf 77 10
+@datasave npc/npcreqc5.idf 78 10
+@datasave npc/npcreqc5.idf 79 10
+@datasave npc/npcreqc5.idf 80 1
+@datasave npc/npcreqc5.idf 81 11
+@datasave npc/npcreqc5.idf 82 10
+@datasave npc/npcreqc5.idf 83 1
+@datasave npc/npcreqc5.idf 84 10
+@datasave npc/npcreqc5.idf 85 10
+@datasave npc/npcreqc5.idf 86 10
+@datasave npc/npcreqc5.idf 87 10
+@datasave npc/npcreqc5.idf 88 10
+@datasave npc/npcreqc5.idf 89 10
+@datasave npc/npcreqc5.idf 90 10
+@datasave npc/npcreqc5.idf 91 10
+@datasave npc/npcreqc5.idf 92 10
+@datasave npc/npcreqc5.idf 93 10
+@datasave npc/npcreqc5.idf 94 10
+@datasave npc/npcreqc5.idf 95 10
+@datasave npc/npcreqc5.idf 96 10
+@datasave npc/npcreqc5.idf 97 10
+@datasave npc/npcreqc5.idf 98 10
+@datasave npc/npcreqc5.idf 99 10
+@datasave npc/npcreqc5.idf 100 10
+@datasave npc/npcreqc5.idf 101 10
+@datasave npc/npcreqc5.idf 102 10
+@datasave npc/npcreqc5.idf 103 10
+@datasave npc/npcreqc5.idf 104 10
+@datasave npc/npcreqc5.idf 105 10
+@datasave npc/npcreqc5.idf 106 10
+@datasave npc/npcreqc5.idf 107 10
+@datasave npc/npcreqc5.idf 108 10
+@datasave npc/npcreqc5.idf 109 10
+@datasave npc/npcreqc5.idf 110 10
+@datasave npc/npcreqc5.idf 111 10
+@datasave npc/npcreqc5.idf 112 10
+@datasave npc/npcreqc5.idf 113 10
+@datasave npc/npcreqc5.idf 114 10
+@datasave npc/npcreqc5.idf 115 10
+@datasave npc/npcreqc5.idf 116 10
+@datasave npc/npcreqc5.idf 117 10
+@datasave npc/npcreqc5.idf 118 10
+@datasave npc/npcreqc5.idf 119 10
+@datasave npc/npcreqc5.idf 120 10
+@datasave npc/npcreqc5.idf 121 10
+@datasave npc/npcreqc5.idf 122 10
+@datasave npc/npcreqc5.idf 123 10
+@datasave npc/npcreqc5.idf 124 10
+@datasave npc/npcreqc5.idf 125 10
+@datasave npc/npcreqc5.idf 126 10
+@datasave npc/npcreqc5.idf 127 10
+@datasave npc/npcreqc5.idf 128 10
+@datasave npc/npcreqc5.idf 129 10
+@datasave npc/npcreqc5.idf 130 10
+@datasave npc/npcreqc5.idf 131 10
+@datasave npc/npcreqc5.idf 132 10
+@datasave npc/npcreqc5.idf 133 10
+@datasave npc/npcreqc5.idf 134 10
+@datasave npc/npcreqc5.idf 135 10
+@datasave npc/npcreqc5.idf 136 10
+@datasave npc/npcreqc5.idf 137 10
+@datasave npc/npcreqc5.idf 138 10
+@datasave npc/npcreqc5.idf 139 10
+@datasave npc/npcreqc5.idf 140 10
+@datasave npc/npcreqc5.idf 141 10
+@datasave npc/npcreqc5.idf 142 10
+@datasave npc/npcreqc5.idf 143 10
+@datasave npc/npcreqc5.idf 144 10
+@datasave npc/npcreqc5.idf 145 10
+@datasave npc/npcreqc5.idf 146 10
+@datasave npc/npcreqc5.idf 147 10
+@datasave npc/npcreqc5.idf 148 10
+@datasave npc/npcreqc5.idf 149 10
+@datasave npc/npcreqc5.idf 150 10
+@datasave npc/npcreqc5.idf 151 10
+@datasave npc/npcreqc5.idf 152 10
+@datasave npc/npcreqc5.idf 153 10
+@datasave npc/npcreqc5.idf 154 10
+@datasave npc/npcreqc5.idf 155 10
+@datasave npc/npcreqc5.idf 156 10
+@datasave npc/npcreqc5.idf 157 10
+@datasave npc/npcreqc5.idf 158 10
+@datasave npc/npcreqc5.idf 159 10
+@datasave npc/npcreqc5.idf 160 10
+@datasave npc/npcreqc5.idf 161 10
+@datasave npc/npcreqc5.idf 162 10
+@datasave npc/npcreqc5.idf 163 10
+@datasave npc/npcreqc5.idf 164 1
+@datasave npc/npcreqc5.idf 165 1
+@datasave npc/npcreqc5.idf 166 10
+@datasave npc/npcreqc5.idf 167 10
+@datasave npc/npcreqc5.idf 168 10
+@datasave npc/npcreqc5.idf 169 10
+@datasave npc/npcreqc5.idf 170 10
+@datasave npc/npcreqc5.idf 171 10
+@datasave npc/npcreqc5.idf 172 10
+@datasave npc/npcreqc5.idf 173 10
+@datasave npc/npcreqc5.idf 174 10
+@datasave npc/npcreqc5.idf 175 10
+@datasave npc/npcreqc5.idf 176 10
+@datasave npc/npcreqc5.idf 177 10
+@datasave npc/npcreqc5.idf 178 10
+@datasave npc/npcreqc5.idf 179 10
+@datasave npc/npcreqc5.idf 180 10
+@datasave npc/npcreqc5.idf 181 10
+@datasave npc/npcreqc5.idf 182 10
+@datasave npc/npcreqc5.idf 183 10
+@datasave npc/npcreqc5.idf 184 1
+@datasave npc/npcreqc5.idf 185 10
+@datasave npc/npcreqc5.idf 186 10
+@datasave npc/npcreqc5.idf 187 10
+@datasave npc/npcreqc5.idf 188 10
+@datasave npc/npcreqc5.idf 189 10
+@datasave npc/npcreqc5.idf 190 10
+@datasave npc/npcreqc5.idf 191 10
+@datasave npc/npcreqc5.idf 192 10
+@datasave npc/npcreqc5.idf 193 10
+@datasave npc/npcreqc5.idf 194 10
+@datasave npc/npcreqc5.idf 195 10
+@datasave npc/npcreqc5.idf 196 10
+@datasave npc/npcreqc5.idf 197 10
+@datasave npc/npcreqc5.idf 198 10
+@datasave npc/npcreqc5.idf 199 10
+@datasave npc/npcreqc5.idf 200 10
+@do goto c17
+
+@label creation17
+@show
+`\ �`%Creating NPC data file #19.`\
+@datasave npc/npcreqc6.idf 1 5
+@datasave npc/npcreqc6.idf 2 5
+@datasave npc/npcreqc6.idf 3 15
+@datasave npc/npcreqc6.idf 4 16
+@datasave npc/npcreqc6.idf 5 123
+@datasave npc/npcreqc6.idf 6 123
+@datasave npc/npcreqc6.idf 7 123
+@datasave npc/npcreqc6.idf 8 123
+@datasave npc/npcreqc6.idf 9 123
+@datasave npc/npcreqc6.idf 10 120
+@datasave npc/npcreqc6.idf 11 170
+@datasave npc/npcreqc6.idf 12 115
+@datasave npc/npcreqc6.idf 13 110
+@datasave npc/npcreqc6.idf 14 116
+@datasave npc/npcreqc6.idf 15 110
+@datasave npc/npcreqc6.idf 16 10
+@datasave npc/npcreqc6.idf 17 101
+@datasave npc/npcreqc6.idf 18 101
+@datasave npc/npcreqc6.idf 19 101
+@datasave npc/npcreqc6.idf 20 101
+@datasave npc/npcreqc6.idf 21 101
+@datasave npc/npcreqc6.idf 22 101
+@datasave npc/npcreqc6.idf 23 101
+@datasave npc/npcreqc6.idf 24 101
+@datasave npc/npcreqc6.idf 25 101
+@datasave npc/npcreqc6.idf 26 101
+@datasave npc/npcreqc6.idf 27 101
+@datasave npc/npcreqc6.idf 28 3
+@datasave npc/npcreqc6.idf 29 101
+@datasave npc/npcreqc6.idf 30 101
+@datasave npc/npcreqc6.idf 31 101
+@datasave npc/npcreqc6.idf 32 101
+@datasave npc/npcreqc6.idf 33 101
+@datasave npc/npcreqc6.idf 34 101
+@datasave npc/npcreqc6.idf 35 101
+@datasave npc/npcreqc6.idf 36 101
+@datasave npc/npcreqc6.idf 37 101
+@datasave npc/npcreqc6.idf 38 101
+@datasave npc/npcreqc6.idf 39 101
+@datasave npc/npcreqc6.idf 40 3
+@datasave npc/npcreqc6.idf 41 101
+@datasave npc/npcreqc6.idf 42 101
+@datasave npc/npcreqc6.idf 43 101
+@datasave npc/npcreqc6.idf 44 101
+@datasave npc/npcreqc6.idf 45 101
+@datasave npc/npcreqc6.idf 46 101
+@datasave npc/npcreqc6.idf 47 101
+@datasave npc/npcreqc6.idf 48 101
+@datasave npc/npcreqc6.idf 49 101
+@datasave npc/npcreqc6.idf 50 101
+@datasave npc/npcreqc6.idf 51 101
+@datasave npc/npcreqc6.idf 52 101
+@datasave npc/npcreqc6.idf 53 101
+@datasave npc/npcreqc6.idf 54 101
+@datasave npc/npcreqc6.idf 55 101
+@datasave npc/npcreqc6.idf 56 101
+@datasave npc/npcreqc6.idf 57 101
+@datasave npc/npcreqc6.idf 58 101
+@datasave npc/npcreqc6.idf 59 101
+@datasave npc/npcreqc6.idf 60 101
+@datasave npc/npcreqc6.idf 61 101
+@datasave npc/npcreqc6.idf 62 101
+@datasave npc/npcreqc6.idf 63 101
+@datasave npc/npcreqc6.idf 64 101
+@datasave npc/npcreqc6.idf 65 101
+@datasave npc/npcreqc6.idf 66 101
+@datasave npc/npcreqc6.idf 67 101
+@datasave npc/npcreqc6.idf 68 101
+@datasave npc/npcreqc6.idf 69 101
+@datasave npc/npcreqc6.idf 70 101
+@datasave npc/npcreqc6.idf 71 101
+@datasave npc/npcreqc6.idf 72 101
+@datasave npc/npcreqc6.idf 73 101
+@datasave npc/npcreqc6.idf 74 101
+@datasave npc/npcreqc6.idf 75 101
+@datasave npc/npcreqc6.idf 76 101
+@datasave npc/npcreqc6.idf 77 101
+@datasave npc/npcreqc6.idf 78 101
+@datasave npc/npcreqc6.idf 79 101
+@datasave npc/npcreqc6.idf 80 17
+@datasave npc/npcreqc6.idf 81 101
+@datasave npc/npcreqc6.idf 82 101
+@datasave npc/npcreqc6.idf 83 101
+@datasave npc/npcreqc6.idf 84 101
+@datasave npc/npcreqc6.idf 85 101
+@datasave npc/npcreqc6.idf 86 101
+@datasave npc/npcreqc6.idf 87 101
+@datasave npc/npcreqc6.idf 88 101
+@datasave npc/npcreqc6.idf 89 101
+@datasave npc/npcreqc6.idf 90 101
+@datasave npc/npcreqc6.idf 91 101
+@datasave npc/npcreqc6.idf 92 101
+@datasave npc/npcreqc6.idf 93 101
+@datasave npc/npcreqc6.idf 94 101
+@datasave npc/npcreqc6.idf 95 101
+@datasave npc/npcreqc6.idf 96 101
+@datasave npc/npcreqc6.idf 97 101
+@datasave npc/npcreqc6.idf 98 101
+@datasave npc/npcreqc6.idf 99 101
+@datasave npc/npcreqc6.idf 100 110
+@datasave npc/npcreqc6.idf 101 110
+@datasave npc/npcreqc6.idf 102 110
+@datasave npc/npcreqc6.idf 103 110
+@datasave npc/npcreqc6.idf 104 110
+@datasave npc/npcreqc6.idf 105 110
+@datasave npc/npcreqc6.idf 106 30
+@datasave npc/npcreqc6.idf 107 210
+@datasave npc/npcreqc6.idf 108 210
+@datasave npc/npcreqc6.idf 109 110
+@datasave npc/npcreqc6.idf 110 110
+@datasave npc/npcreqc6.idf 111 110
+@datasave npc/npcreqc6.idf 112 110
+@datasave npc/npcreqc6.idf 113 110
+@datasave npc/npcreqc6.idf 114 110
+@datasave npc/npcreqc6.idf 115 110
+@datasave npc/npcreqc6.idf 116 10
+@datasave npc/npcreqc6.idf 117 110
+@datasave npc/npcreqc6.idf 118 110
+@datasave npc/npcreqc6.idf 119 110
+@datasave npc/npcreqc6.idf 120 110
+@datasave npc/npcreqc6.idf 121 160
+@datasave npc/npcreqc6.idf 122 60
+@datasave npc/npcreqc6.idf 123 110
+@datasave npc/npcreqc6.idf 124 110
+@datasave npc/npcreqc6.idf 125 110
+@datasave npc/npcreqc6.idf 126 110
+@datasave npc/npcreqc6.idf 127 110
+@datasave npc/npcreqc6.idf 128 101
+@datasave npc/npcreqc6.idf 129 101
+@datasave npc/npcreqc6.idf 130 101
+@datasave npc/npcreqc6.idf 131 101
+@datasave npc/npcreqc6.idf 132 110
+@datasave npc/npcreqc6.idf 133 110
+@datasave npc/npcreqc6.idf 134 110
+@datasave npc/npcreqc6.idf 135 110
+@datasave npc/npcreqc6.idf 136 110
+@datasave npc/npcreqc6.idf 137 110
+@datasave npc/npcreqc6.idf 138 110
+@datasave npc/npcreqc6.idf 139 110
+@datasave npc/npcreqc6.idf 140 110
+@datasave npc/npcreqc6.idf 141 110
+@datasave npc/npcreqc6.idf 142 110
+@datasave npc/npcreqc6.idf 143 120
+@datasave npc/npcreqc6.idf 144 120
+@datasave npc/npcreqc6.idf 145 120
+@datasave npc/npcreqc6.idf 146 120
+@datasave npc/npcreqc6.idf 147 120
+@datasave npc/npcreqc6.idf 148 120
+@datasave npc/npcreqc6.idf 149 120
+@datasave npc/npcreqc6.idf 150 120
+@datasave npc/npcreqc6.idf 151 120
+@datasave npc/npcreqc6.idf 152 102
+@datasave npc/npcreqc6.idf 153 102
+@datasave npc/npcreqc6.idf 154 102
+@datasave npc/npcreqc6.idf 155 102
+@datasave npc/npcreqc6.idf 156 102
+@datasave npc/npcreqc6.idf 157 102
+@datasave npc/npcreqc6.idf 158 102
+@datasave npc/npcreqc6.idf 159 102
+@datasave npc/npcreqc6.idf 160 102
+@datasave npc/npcreqc6.idf 161 102
+@datasave npc/npcreqc6.idf 162 102
+@datasave npc/npcreqc6.idf 163 102
+@datasave npc/npcreqc6.idf 164 102
+@datasave npc/npcreqc6.idf 165 102
+@datasave npc/npcreqc6.idf 166 102
+@datasave npc/npcreqc6.idf 167 102
+@datasave npc/npcreqc6.idf 168 102
+@datasave npc/npcreqc6.idf 169 102
+@datasave npc/npcreqc6.idf 170 102
+@datasave npc/npcreqc6.idf 171 102
+@datasave npc/npcreqc6.idf 172 102
+@datasave npc/npcreqc6.idf 173 102
+@datasave npc/npcreqc6.idf 174 102
+@datasave npc/npcreqc6.idf 175 102
+@datasave npc/npcreqc6.idf 176 102
+@datasave npc/npcreqc6.idf 177 102
+@datasave npc/npcreqc6.idf 178 102
+@datasave npc/npcreqc6.idf 179 102
+@datasave npc/npcreqc6.idf 180 102
+@datasave npc/npcreqc6.idf 181 102
+@datasave npc/npcreqc6.idf 182 102
+@datasave npc/npcreqc6.idf 183 102
+@datasave npc/npcreqc6.idf 184 102
+@datasave npc/npcreqc6.idf 185 102
+@datasave npc/npcreqc6.idf 186 102
+@datasave npc/npcreqc6.idf 187 102
+@datasave npc/npcreqc6.idf 188 102
+@datasave npc/npcreqc6.idf 189 102
+@datasave npc/npcreqc6.idf 190 102
+@datasave npc/npcreqc6.idf 191 102
+@datasave npc/npcreqc6.idf 192 102
+@datasave npc/npcreqc6.idf 193 102
+@datasave npc/npcreqc6.idf 194 102
+@datasave npc/npcreqc6.idf 195 102
+@datasave npc/npcreqc6.idf 196 102
+@datasave npc/npcreqc6.idf 197 102
+@datasave npc/npcreqc6.idf 198 102
+@datasave npc/npcreqc6.idf 199 102
+@datasave npc/npcreqc6.idf 200 102
+@do goto c18
+
+@label creation18
+@show
+`\ �`%Creating NPC data file #20.`\
+@datasave npc/npcreqc7.idf 1 5
+@datasave npc/npcreqc7.idf 2 5
+@datasave npc/npcreqc7.idf 3 15
+@datasave npc/npcreqc7.idf 4 16
+@datasave npc/npcreqc7.idf 5 162
+@datasave npc/npcreqc7.idf 6 123
+@datasave npc/npcreqc7.idf 7 123
+@datasave npc/npcreqc7.idf 8 122
+@datasave npc/npcreqc7.idf 9 123
+@datasave npc/npcreqc7.idf 10 120
+@datasave npc/npcreqc7.idf 11 170
+@datasave npc/npcreqc7.idf 12 115
+@datasave npc/npcreqc7.idf 13 110
+@datasave npc/npcreqc7.idf 14 116
+@datasave npc/npcreqc7.idf 15 110
+@datasave npc/npcreqc7.idf 16 110
+@datasave npc/npcreqc7.idf 17 120
+@datasave npc/npcreqc7.idf 18 110
+@datasave npc/npcreqc7.idf 19 110
+@datasave npc/npcreqc7.idf 20 110
+@datasave npc/npcreqc7.idf 21 110
+@datasave npc/npcreqc7.idf 22 110
+@datasave npc/npcreqc7.idf 23 110
+@datasave npc/npcreqc7.idf 24 110
+@datasave npc/npcreqc7.idf 25 110
+@datasave npc/npcreqc7.idf 26 110
+@datasave npc/npcreqc7.idf 27 110
+@datasave npc/npcreqc7.idf 28 110
+@datasave npc/npcreqc7.idf 29 110
+@datasave npc/npcreqc7.idf 30 110
+@datasave npc/npcreqc7.idf 31 110
+@datasave npc/npcreqc7.idf 32 110
+@datasave npc/npcreqc7.idf 33 110
+@datasave npc/npcreqc7.idf 34 110
+@datasave npc/npcreqc7.idf 35 110
+@datasave npc/npcreqc7.idf 36 110
+@datasave npc/npcreqc7.idf 37 110
+@datasave npc/npcreqc7.idf 38 110
+@datasave npc/npcreqc7.idf 39 110
+@datasave npc/npcreqc7.idf 40 110
+@datasave npc/npcreqc7.idf 41 110
+@datasave npc/npcreqc7.idf 42 110
+@datasave npc/npcreqc7.idf 43 110
+@datasave npc/npcreqc7.idf 44 110
+@datasave npc/npcreqc7.idf 45 110
+@datasave npc/npcreqc7.idf 46 110
+@datasave npc/npcreqc7.idf 47 110
+@datasave npc/npcreqc7.idf 48 110
+@datasave npc/npcreqc7.idf 49 110
+@datasave npc/npcreqc7.idf 50 120
+@datasave npc/npcreqc7.idf 51 110
+@datasave npc/npcreqc7.idf 52 110
+@datasave npc/npcreqc7.idf 53 110
+@datasave npc/npcreqc7.idf 54 110
+@datasave npc/npcreqc7.idf 55 110
+@datasave npc/npcreqc7.idf 56 110
+@datasave npc/npcreqc7.idf 57 110
+@datasave npc/npcreqc7.idf 58 110
+@datasave npc/npcreqc7.idf 59 110
+@datasave npc/npcreqc7.idf 60 110
+@datasave npc/npcreqc7.idf 61 110
+@datasave npc/npcreqc7.idf 62 110
+@datasave npc/npcreqc7.idf 63 110
+@datasave npc/npcreqc7.idf 64 110
+@datasave npc/npcreqc7.idf 65 110
+@datasave npc/npcreqc7.idf 66 110
+@datasave npc/npcreqc7.idf 67 110
+@datasave npc/npcreqc7.idf 68 110
+@datasave npc/npcreqc7.idf 69 110
+@datasave npc/npcreqc7.idf 70 110
+@datasave npc/npcreqc7.idf 71 110
+@datasave npc/npcreqc7.idf 72 110
+@datasave npc/npcreqc7.idf 73 101
+@datasave npc/npcreqc7.idf 74 101
+@datasave npc/npcreqc7.idf 75 110
+@datasave npc/npcreqc7.idf 76 110
+@datasave npc/npcreqc7.idf 77 110
+@datasave npc/npcreqc7.idf 78 110
+@datasave npc/npcreqc7.idf 79 110
+@datasave npc/npcreqc7.idf 80 20
+@datasave npc/npcreqc7.idf 81 110
+@datasave npc/npcreqc7.idf 82 110
+@datasave npc/npcreqc7.idf 83 110
+@datasave npc/npcreqc7.idf 84 110
+@datasave npc/npcreqc7.idf 85 110
+@datasave npc/npcreqc7.idf 86 110
+@datasave npc/npcreqc7.idf 87 110
+@datasave npc/npcreqc7.idf 88 111
+@datasave npc/npcreqc7.idf 89 110
+@datasave npc/npcreqc7.idf 90 110
+@datasave npc/npcreqc7.idf 91 110
+@datasave npc/npcreqc7.idf 92 110
+@datasave npc/npcreqc7.idf 93 110
+@datasave npc/npcreqc7.idf 94 110
+@datasave npc/npcreqc7.idf 95 110
+@datasave npc/npcreqc7.idf 96 110
+@datasave npc/npcreqc7.idf 97 110
+@datasave npc/npcreqc7.idf 98 110
+@datasave npc/npcreqc7.idf 99 110
+@datasave npc/npcreqc7.idf 100 110
+@datasave npc/npcreqc7.idf 101 110
+@datasave npc/npcreqc7.idf 102 110
+@datasave npc/npcreqc7.idf 103 110
+@datasave npc/npcreqc7.idf 104 110
+@datasave npc/npcreqc7.idf 105 110
+@datasave npc/npcreqc7.idf 106 50
+@datasave npc/npcreqc7.idf 107 240
+@datasave npc/npcreqc7.idf 108 240
+@datasave npc/npcreqc7.idf 109 110
+@datasave npc/npcreqc7.idf 110 101
+@datasave npc/npcreqc7.idf 111 101
+@datasave npc/npcreqc7.idf 112 110
+@datasave npc/npcreqc7.idf 113 110
+@datasave npc/npcreqc7.idf 114 101
+@datasave npc/npcreqc7.idf 115 110
+@datasave npc/npcreqc7.idf 116 30
+@datasave npc/npcreqc7.idf 117 101
+@datasave npc/npcreqc7.idf 118 101
+@datasave npc/npcreqc7.idf 119 101
+@datasave npc/npcreqc7.idf 120 101
+@datasave npc/npcreqc7.idf 121 10
+@datasave npc/npcreqc7.idf 122 230
+@datasave npc/npcreqc7.idf 123 222
+@datasave npc/npcreqc7.idf 124 10
+@datasave npc/npcreqc7.idf 125 10
+@datasave npc/npcreqc7.idf 126 10
+@datasave npc/npcreqc7.idf 127 10
+@datasave npc/npcreqc7.idf 128 10
+@datasave npc/npcreqc7.idf 129 10
+@datasave npc/npcreqc7.idf 130 10
+@datasave npc/npcreqc7.idf 131 10
+@datasave npc/npcreqc7.idf 132 10
+@datasave npc/npcreqc7.idf 133 10
+@datasave npc/npcreqc7.idf 134 10
+@datasave npc/npcreqc7.idf 135 10
+@datasave npc/npcreqc7.idf 136 10
+@datasave npc/npcreqc7.idf 137 10
+@datasave npc/npcreqc7.idf 138 10
+@datasave npc/npcreqc7.idf 139 10
+@datasave npc/npcreqc7.idf 140 10
+@datasave npc/npcreqc7.idf 141 10
+@datasave npc/npcreqc7.idf 142 10
+@datasave npc/npcreqc7.idf 143 10
+@datasave npc/npcreqc7.idf 144 10
+@datasave npc/npcreqc7.idf 145 10
+@datasave npc/npcreqc7.idf 146 10
+@datasave npc/npcreqc7.idf 147 10
+@datasave npc/npcreqc7.idf 148 10
+@datasave npc/npcreqc7.idf 149 10
+@datasave npc/npcreqc7.idf 150 10
+@datasave npc/npcreqc7.idf 151 10
+@datasave npc/npcreqc7.idf 152 10
+@datasave npc/npcreqc7.idf 153 10
+@datasave npc/npcreqc7.idf 154 10
+@datasave npc/npcreqc7.idf 155 10
+@datasave npc/npcreqc7.idf 156 10
+@datasave npc/npcreqc7.idf 157 10
+@datasave npc/npcreqc7.idf 158 10
+@datasave npc/npcreqc7.idf 159 10
+@datasave npc/npcreqc7.idf 160 10
+@datasave npc/npcreqc7.idf 161 10
+@datasave npc/npcreqc7.idf 162 10
+@datasave npc/npcreqc7.idf 163 10
+@datasave npc/npcreqc7.idf 164 10
+@datasave npc/npcreqc7.idf 165 10
+@datasave npc/npcreqc7.idf 166 10
+@datasave npc/npcreqc7.idf 167 10
+@datasave npc/npcreqc7.idf 168 10
+@datasave npc/npcreqc7.idf 169 10
+@datasave npc/npcreqc7.idf 170 10
+@datasave npc/npcreqc7.idf 171 10
+@datasave npc/npcreqc7.idf 172 10
+@datasave npc/npcreqc7.idf 173 10
+@datasave npc/npcreqc7.idf 174 10
+@datasave npc/npcreqc7.idf 175 10
+@datasave npc/npcreqc7.idf 176 10
+@datasave npc/npcreqc7.idf 177 10
+@datasave npc/npcreqc7.idf 178 10
+@datasave npc/npcreqc7.idf 179 10
+@datasave npc/npcreqc7.idf 180 10
+@datasave npc/npcreqc7.idf 181 10
+@datasave npc/npcreqc7.idf 182 10
+@datasave npc/npcreqc7.idf 183 10
+@datasave npc/npcreqc7.idf 184 10
+@datasave npc/npcreqc7.idf 185 10
+@datasave npc/npcreqc7.idf 186 10
+@datasave npc/npcreqc7.idf 187 10
+@datasave npc/npcreqc7.idf 188 10
+@datasave npc/npcreqc7.idf 189 10
+@datasave npc/npcreqc7.idf 190 10
+@datasave npc/npcreqc7.idf 191 10
+@datasave npc/npcreqc7.idf 192 10
+@datasave npc/npcreqc7.idf 193 10
+@datasave npc/npcreqc7.idf 194 10
+@datasave npc/npcreqc7.idf 195 10
+@datasave npc/npcreqc7.idf 196 10
+@datasave npc/npcreqc7.idf 197 10
+@datasave npc/npcreqc7.idf 198 10
+@datasave npc/npcreqc7.idf 199 10
+@datasave npc/npcreqc7.idf 200 10
+@do goto c19
+
+@label creation19
+@show
+`\ �`%Creating NPC data file #21.`\
+@datasave npc/npcreqc8.idf 1 5
+@datasave npc/npcreqc8.idf 2 5
+@datasave npc/npcreqc8.idf 3 15
+@datasave npc/npcreqc8.idf 4 16
+@datasave npc/npcreqc8.idf 5 200
+@datasave npc/npcreqc8.idf 6 223
+@datasave npc/npcreqc8.idf 7 212
+@datasave npc/npcreqc8.idf 8 213
+@datasave npc/npcreqc8.idf 9 213
+@datasave npc/npcreqc8.idf 10 120
+@datasave npc/npcreqc8.idf 11 170
+@datasave npc/npcreqc8.idf 12 115
+@datasave npc/npcreqc8.idf 13 255
+@datasave npc/npcreqc8.idf 14 116
+@datasave npc/npcreqc8.idf 15 255
+@datasave npc/npcreqc8.idf 16 255
+@datasave npc/npcreqc8.idf 17 255
+@datasave npc/npcreqc8.idf 18 255
+@datasave npc/npcreqc8.idf 19 255
+@datasave npc/npcreqc8.idf 20 255
+@datasave npc/npcreqc8.idf 21 255
+@datasave npc/npcreqc8.idf 22 255
+@datasave npc/npcreqc8.idf 23 255
+@datasave npc/npcreqc8.idf 24 255
+@datasave npc/npcreqc8.idf 25 255
+@datasave npc/npcreqc8.idf 26 255
+@datasave npc/npcreqc8.idf 27 255
+@datasave npc/npcreqc8.idf 28 255
+@datasave npc/npcreqc8.idf 29 255
+@datasave npc/npcreqc8.idf 30 255
+@datasave npc/npcreqc8.idf 31 255
+@datasave npc/npcreqc8.idf 32 255
+@datasave npc/npcreqc8.idf 33 255
+@datasave npc/npcreqc8.idf 34 255
+@datasave npc/npcreqc8.idf 35 255
+@datasave npc/npcreqc8.idf 36 255
+@datasave npc/npcreqc8.idf 37 255
+@datasave npc/npcreqc8.idf 38 255
+@datasave npc/npcreqc8.idf 39 255
+@datasave npc/npcreqc8.idf 40 255
+@datasave npc/npcreqc8.idf 41 255
+@datasave npc/npcreqc8.idf 42 255
+@datasave npc/npcreqc8.idf 43 255
+@datasave npc/npcreqc8.idf 44 255
+@datasave npc/npcreqc8.idf 45 255
+@datasave npc/npcreqc8.idf 46 255
+@datasave npc/npcreqc8.idf 47 255
+@datasave npc/npcreqc8.idf 48 255
+@datasave npc/npcreqc8.idf 49 255
+@datasave npc/npcreqc8.idf 50 210
+@datasave npc/npcreqc8.idf 51 255
+@datasave npc/npcreqc8.idf 52 255
+@datasave npc/npcreqc8.idf 53 255
+@datasave npc/npcreqc8.idf 54 255
+@datasave npc/npcreqc8.idf 55 255
+@datasave npc/npcreqc8.idf 56 255
+@datasave npc/npcreqc8.idf 57 255
+@datasave npc/npcreqc8.idf 58 255
+@datasave npc/npcreqc8.idf 59 255
+@datasave npc/npcreqc8.idf 60 255
+@datasave npc/npcreqc8.idf 61 255
+@datasave npc/npcreqc8.idf 62 255
+@datasave npc/npcreqc8.idf 63 255
+@datasave npc/npcreqc8.idf 64 255
+@datasave npc/npcreqc8.idf 65 255
+@datasave npc/npcreqc8.idf 66 255
+@datasave npc/npcreqc8.idf 67 255
+@datasave npc/npcreqc8.idf 68 255
+@datasave npc/npcreqc8.idf 69 255
+@datasave npc/npcreqc8.idf 70 255
+@datasave npc/npcreqc8.idf 71 255
+@datasave npc/npcreqc8.idf 72 255
+@datasave npc/npcreqc8.idf 73 255
+@datasave npc/npcreqc8.idf 74 255
+@datasave npc/npcreqc8.idf 75 255
+@datasave npc/npcreqc8.idf 76 255
+@datasave npc/npcreqc8.idf 77 255
+@datasave npc/npcreqc8.idf 78 255
+@datasave npc/npcreqc8.idf 79 255
+@datasave npc/npcreqc8.idf 80 30
+@datasave npc/npcreqc8.idf 81 255
+@datasave npc/npcreqc8.idf 82 255
+@datasave npc/npcreqc8.idf 83 255
+@datasave npc/npcreqc8.idf 84 255
+@datasave npc/npcreqc8.idf 85 255
+@datasave npc/npcreqc8.idf 86 255
+@datasave npc/npcreqc8.idf 87 255
+@datasave npc/npcreqc8.idf 88 255
+@datasave npc/npcreqc8.idf 89 255
+@datasave npc/npcreqc8.idf 90 255
+@datasave npc/npcreqc8.idf 91 255
+@datasave npc/npcreqc8.idf 92 255
+@datasave npc/npcreqc8.idf 93 255
+@datasave npc/npcreqc8.idf 94 255
+@datasave npc/npcreqc8.idf 95 255
+@datasave npc/npcreqc8.idf 96 255
+@datasave npc/npcreqc8.idf 97 255
+@datasave npc/npcreqc8.idf 98 255
+@datasave npc/npcreqc8.idf 99 255
+@datasave npc/npcreqc8.idf 100 255
+@datasave npc/npcreqc8.idf 101 255
+@datasave npc/npcreqc8.idf 102 255
+@datasave npc/npcreqc8.idf 103 255
+@datasave npc/npcreqc8.idf 104 255
+@datasave npc/npcreqc8.idf 105 255
+@datasave npc/npcreqc8.idf 106 255
+@datasave npc/npcreqc8.idf 107 255
+@datasave npc/npcreqc8.idf 108 255
+@datasave npc/npcreqc8.idf 109 255
+@datasave npc/npcreqc8.idf 255 255
+@datasave npc/npcreqc8.idf 111 255
+@datasave npc/npcreqc8.idf 112 255
+@datasave npc/npcreqc8.idf 113 255
+@datasave npc/npcreqc8.idf 114 255
+@datasave npc/npcreqc8.idf 115 255
+@datasave npc/npcreqc8.idf 116 255
+@datasave npc/npcreqc8.idf 117 255
+@datasave npc/npcreqc8.idf 118 255
+@datasave npc/npcreqc8.idf 119 255
+@datasave npc/npcreqc8.idf 120 255
+@datasave npc/npcreqc8.idf 121 255
+@datasave npc/npcreqc8.idf 122 255
+@datasave npc/npcreqc8.idf 123 255
+@datasave npc/npcreqc8.idf 124 255
+@datasave npc/npcreqc8.idf 125 255
+@datasave npc/npcreqc8.idf 126 255
+@datasave npc/npcreqc8.idf 127 255
+@datasave npc/npcreqc8.idf 128 255
+@datasave npc/npcreqc8.idf 129 255
+@datasave npc/npcreqc8.idf 130 255
+@datasave npc/npcreqc8.idf 131 255
+@datasave npc/npcreqc8.idf 132 255
+@datasave npc/npcreqc8.idf 133 255
+@datasave npc/npcreqc8.idf 134 255
+@datasave npc/npcreqc8.idf 135 255
+@datasave npc/npcreqc8.idf 136 255
+@datasave npc/npcreqc8.idf 137 255
+@datasave npc/npcreqc8.idf 138 255
+@datasave npc/npcreqc8.idf 139 255
+@datasave npc/npcreqc8.idf 140 255
+@datasave npc/npcreqc8.idf 141 255
+@datasave npc/npcreqc8.idf 142 255
+@datasave npc/npcreqc8.idf 143 255
+@datasave npc/npcreqc8.idf 144 255
+@datasave npc/npcreqc8.idf 145 255
+@datasave npc/npcreqc8.idf 146 255
+@datasave npc/npcreqc8.idf 147 255
+@datasave npc/npcreqc8.idf 148 255
+@datasave npc/npcreqc8.idf 149 255
+@datasave npc/npcreqc8.idf 150 255
+@datasave npc/npcreqc8.idf 151 255
+@datasave npc/npcreqc8.idf 152 255
+@datasave npc/npcreqc8.idf 153 255
+@datasave npc/npcreqc8.idf 154 255
+@datasave npc/npcreqc8.idf 155 255
+@datasave npc/npcreqc8.idf 156 255
+@datasave npc/npcreqc8.idf 157 255
+@datasave npc/npcreqc8.idf 158 255
+@datasave npc/npcreqc8.idf 159 255
+@datasave npc/npcreqc8.idf 160 255
+@datasave npc/npcreqc8.idf 161 255
+@datasave npc/npcreqc8.idf 162 255
+@datasave npc/npcreqc8.idf 163 255
+@datasave npc/npcreqc8.idf 164 255
+@datasave npc/npcreqc8.idf 165 255
+@datasave npc/npcreqc8.idf 166 255
+@datasave npc/npcreqc8.idf 167 255
+@datasave npc/npcreqc8.idf 168 255
+@datasave npc/npcreqc8.idf 169 255
+@datasave npc/npcreqc8.idf 170 255
+@datasave npc/npcreqc8.idf 171 255
+@datasave npc/npcreqc8.idf 172 255
+@datasave npc/npcreqc8.idf 173 255
+@datasave npc/npcreqc8.idf 174 255
+@datasave npc/npcreqc8.idf 175 255
+@datasave npc/npcreqc8.idf 176 255
+@datasave npc/npcreqc8.idf 177 255
+@datasave npc/npcreqc8.idf 178 255
+@datasave npc/npcreqc8.idf 179 255
+@datasave npc/npcreqc8.idf 180 255
+@datasave npc/npcreqc8.idf 181 255
+@datasave npc/npcreqc8.idf 182 255
+@datasave npc/npcreqc8.idf 183 255
+@datasave npc/npcreqc8.idf 184 255
+@datasave npc/npcreqc8.idf 185 255
+@datasave npc/npcreqc8.idf 186 255
+@datasave npc/npcreqc8.idf 187 255
+@datasave npc/npcreqc8.idf 188 255
+@datasave npc/npcreqc8.idf 189 255
+@datasave npc/npcreqc8.idf 190 255
+@datasave npc/npcreqc8.idf 191 255
+@datasave npc/npcreqc8.idf 192 255
+@datasave npc/npcreqc8.idf 193 255
+@datasave npc/npcreqc8.idf 194 255
+@datasave npc/npcreqc8.idf 195 255
+@datasave npc/npcreqc8.idf 196 255
+@datasave npc/npcreqc8.idf 197 255
+@datasave npc/npcreqc8.idf 198 255
+@datasave npc/npcreqc8.idf 199 255
+@datasave npc/npcreqc8.idf 200 255
+@do goto c5
+
+@label creation5
+@show
+`\ �`%Creating NPC data file #5.`\
+@datasave npc\npctouch.idf 1 255
+@datasave npc\npctouch.idf 2 255
+@datasave npc\npctouch.idf 3 100
+@datasave npc\npctouch.idf 4 100
+@datasave npc\npctouch.idf 5 250
+@datasave npc\npctouch.idf 6 100
+@datasave npc\npctouch.idf 7 100
+@datasave npc\npctouch.idf 8 100
+@datasave npc\npctouch.idf 9 100
+@datasave npc\npctouch.idf 10 100
+@datasave npc\npctouch.idf 11 100
+@datasave npc\npctouch.idf 12 100
+@datasave npc\npctouch.idf 13 100
+@datasave npc\npctouch.idf 14 100
+@datasave npc\npctouch.idf 15 100
+@datasave npc\npctouch.idf 16 100
+@datasave npc\npctouch.idf 17 10
+@datasave npc\npctouch.idf 18 100
+@datasave npc\npctouch.idf 19 100
+@datasave npc\npctouch.idf 20 100
+@datasave npc\npctouch.idf 21 100
+@datasave npc\npctouch.idf 22 100
+@datasave npc\npctouch.idf 23 100
+@datasave npc\npctouch.idf 24 100
+@datasave npc\npctouch.idf 25 100
+@datasave npc\npctouch.idf 26 100
+@datasave npc\npctouch.idf 27 100
+@datasave npc\npctouch.idf 28 100
+@datasave npc\npctouch.idf 29 100
+@datasave npc\npctouch.idf 30 100
+@datasave npc\npctouch.idf 31 100
+@datasave npc\npctouch.idf 32 100
+@datasave npc\npctouch.idf 33 100
+@datasave npc\npctouch.idf 34 100
+@datasave npc\npctouch.idf 35 100
+@datasave npc\npctouch.idf 36 100
+@datasave npc\npctouch.idf 37 100
+@datasave npc\npctouch.idf 38 100
+@datasave npc\npctouch.idf 39 100
+@datasave npc\npctouch.idf 40 100
+@datasave npc\npctouch.idf 41 100
+@datasave npc\npctouch.idf 42 100
+@datasave npc\npctouch.idf 43 100
+@datasave npc\npctouch.idf 44 100
+@datasave npc\npctouch.idf 45 100
+@datasave npc\npctouch.idf 46 100
+@datasave npc\npctouch.idf 47 100
+@datasave npc\npctouch.idf 48 100
+@datasave npc\npctouch.idf 49 100
+@datasave npc\npctouch.idf 50 5
+@datasave npc\npctouch.idf 51 100
+@datasave npc\npctouch.idf 52 100
+@datasave npc\npctouch.idf 53 100
+@datasave npc\npctouch.idf 54 100
+@datasave npc\npctouch.idf 55 100
+@datasave npc\npctouch.idf 56 100
+@datasave npc\npctouch.idf 57 100
+@datasave npc\npctouch.idf 58 100
+@datasave npc\npctouch.idf 59 100
+@datasave npc\npctouch.idf 60 100
+@datasave npc\npctouch.idf 61 100
+@datasave npc\npctouch.idf 62 100
+@datasave npc\npctouch.idf 63 100
+@datasave npc\npctouch.idf 64 100
+@datasave npc\npctouch.idf 65 100
+@datasave npc\npctouch.idf 66 100
+@datasave npc\npctouch.idf 67 100
+@datasave npc\npctouch.idf 68 100
+@datasave npc\npctouch.idf 69 100
+@datasave npc\npctouch.idf 70 100
+@datasave npc\npctouch.idf 71 100
+@datasave npc\npctouch.idf 72 100
+@datasave npc\npctouch.idf 73 100
+@datasave npc\npctouch.idf 74 100
+@datasave npc\npctouch.idf 75 100
+@datasave npc\npctouch.idf 76 100
+@datasave npc\npctouch.idf 77 100
+@datasave npc\npctouch.idf 78 100
+@datasave npc\npctouch.idf 79 100
+@datasave npc\npctouch.idf 80 1
+@datasave npc\npctouch.idf 81 100
+@datasave npc\npctouch.idf 82 100
+@datasave npc\npctouch.idf 83 100
+@datasave npc\npctouch.idf 84 100
+@datasave npc\npctouch.idf 85 100
+@datasave npc\npctouch.idf 86 100
+@datasave npc\npctouch.idf 87 100
+@datasave npc\npctouch.idf 88 100
+@datasave npc\npctouch.idf 89 100
+@datasave npc\npctouch.idf 90 100
+@datasave npc\npctouch.idf 91 100
+@datasave npc\npctouch.idf 92 100
+@datasave npc\npctouch.idf 93 100
+@datasave npc\npctouch.idf 94 100
+@datasave npc\npctouch.idf 95 100
+@datasave npc\npctouch.idf 96 100
+@datasave npc\npctouch.idf 97 100
+@datasave npc\npctouch.idf 98 100
+@datasave npc\npctouch.idf 99 100
+@datasave npc\npctouch.idf 100 100
+@datasave npc\npctouch.idf 101 100
+@datasave npc\npctouch.idf 102 100
+@datasave npc\npctouch.idf 103 100
+@datasave npc\npctouch.idf 104 100
+@datasave npc\npctouch.idf 105 100
+@datasave npc\npctouch.idf 106 0
+@datasave npc\npctouch.idf 107 100
+@datasave npc\npctouch.idf 108 23
+@datasave npc\npctouch.idf 109 100
+@datasave npc\npctouch.idf 110 100
+@datasave npc\npctouch.idf 111 100
+@datasave npc\npctouch.idf 112 100
+@datasave npc\npctouch.idf 113 100
+@datasave npc\npctouch.idf 114 100
+@datasave npc\npctouch.idf 115 100
+@datasave npc\npctouch.idf 116 74
+@datasave npc\npctouch.idf 117 210
+@datasave npc\npctouch.idf 118 55
+@datasave npc\npctouch.idf 119 5
+@datasave npc\npctouch.idf 120 100
+@datasave npc\npctouch.idf 121 100
+@datasave npc\npctouch.idf 122 240
+@datasave npc\npctouch.idf 123 220
+@datasave npc\npctouch.idf 124 210
+@datasave npc\npctouch.idf 125 40
+@datasave npc\npctouch.idf 126 70
+@datasave npc\npctouch.idf 127 100
+@datasave npc\npctouch.idf 128 100
+@datasave npc\npctouch.idf 129 100
+@datasave npc\npctouch.idf 130 100
+@datasave npc\npctouch.idf 131 100
+@datasave npc\npctouch.idf 132 100
+@datasave npc\npctouch.idf 133 100
+@datasave npc\npctouch.idf 134 100
+@datasave npc\npctouch.idf 135 100
+@datasave npc\npctouch.idf 136 100
+@datasave npc\npctouch.idf 137 100
+@datasave npc\npctouch.idf 138 100
+@datasave npc\npctouch.idf 139 100
+@datasave npc\npctouch.idf 140 100
+@datasave npc\npctouch.idf 141 100
+@datasave npc\npctouch.idf 142 100
+@datasave npc\npctouch.idf 143 100
+@datasave npc\npctouch.idf 144 100
+@datasave npc\npctouch.idf 145 100
+@datasave npc\npctouch.idf 146 100
+@datasave npc\npctouch.idf 147 100
+@datasave npc\npctouch.idf 148 100
+@datasave npc\npctouch.idf 149 100
+@datasave npc\npctouch.idf 150 100
+@datasave npc\npctouch.idf 151 100
+@datasave npc\npctouch.idf 152 100
+@datasave npc\npctouch.idf 153 100
+@datasave npc\npctouch.idf 154 100
+@datasave npc\npctouch.idf 155 100
+@datasave npc\npctouch.idf 156 100
+@datasave npc\npctouch.idf 157 100
+@datasave npc\npctouch.idf 158 100
+@datasave npc\npctouch.idf 159 100
+@datasave npc\npctouch.idf 160 100
+@datasave npc\npctouch.idf 161 100
+@datasave npc\npctouch.idf 162 100
+@datasave npc\npctouch.idf 163 100
+@datasave npc\npctouch.idf 164 100
+@datasave npc\npctouch.idf 165 100
+@datasave npc\npctouch.idf 166 100
+@datasave npc\npctouch.idf 167 100
+@datasave npc\npctouch.idf 168 100
+@datasave npc\npctouch.idf 169 100
+@datasave npc\npctouch.idf 170 100
+@datasave npc\npctouch.idf 171 100
+@datasave npc\npctouch.idf 172 100
+@datasave npc\npctouch.idf 173 100
+@datasave npc\npctouch.idf 174 100
+@datasave npc\npctouch.idf 175 100
+@datasave npc\npctouch.idf 176 100
+@datasave npc\npctouch.idf 177 100
+@datasave npc\npctouch.idf 178 100
+@datasave npc\npctouch.idf 179 100
+@datasave npc\npctouch.idf 180 100
+@datasave npc\npctouch.idf 181 100
+@datasave npc\npctouch.idf 182 100
+@datasave npc\npctouch.idf 183 100
+@datasave npc\npctouch.idf 184 100
+@datasave npc\npctouch.idf 185 100
+@datasave npc\npctouch.idf 186 100
+@datasave npc\npctouch.idf 187 100
+@datasave npc\npctouch.idf 188 100
+@datasave npc\npctouch.idf 189 100
+@datasave npc\npctouch.idf 190 100
+@datasave npc\npctouch.idf 191 100
+@datasave npc\npctouch.idf 192 100
+@datasave npc\npctouch.idf 193 100
+@datasave npc\npctouch.idf 194 100
+@datasave npc\npctouch.idf 195 100
+@datasave npc\npctouch.idf 196 100
+@datasave npc\npctouch.idf 197 100
+@datasave npc\npctouch.idf 198 100
+@datasave npc\npctouch.idf 199 100
+@datasave npc\npctouch.idf 200 100
+@do goto c6
+
+@label creation6
+@show
+`\ �`%Creating NPC data file #6.`\
+@datasave npc/npcslut.idf 1 85
+@datasave npc/npcslut.idf 2 85
+@datasave npc/npcslut.idf 3 25
+@datasave npc/npcslut.idf 4 100
+@datasave npc/npcslut.idf 5 130
+@datasave npc/npcslut.idf 6 66
+@datasave npc/npcslut.idf 7 33
+@datasave npc/npcslut.idf 8 21
+@datasave npc/npcslut.idf 9 51
+@datasave npc/npcslut.idf 10 130
+@datasave npc/npcslut.idf 11 200
+@datasave npc/npcslut.idf 12 70
+@datasave npc/npcslut.idf 13 70
+@datasave npc/npcslut.idf 14 70
+@datasave npc/npcslut.idf 15 70
+@datasave npc/npcslut.idf 16 70
+@datasave npc/npcslut.idf 17 170
+@datasave npc/npcslut.idf 18 150
+@datasave npc/npcslut.idf 19 10
+@datasave npc/npcslut.idf 20 100
+@datasave npc/npcslut.idf 21 110
+@datasave npc/npcslut.idf 22 110
+@datasave npc/npcslut.idf 23 110
+@datasave npc/npcslut.idf 24 1
+@datasave npc/npcslut.idf 25 30
+@datasave npc/npcslut.idf 26 30
+@datasave npc/npcslut.idf 27 10
+@datasave npc/npcslut.idf 28 30
+@datasave npc/npcslut.idf 29 40
+@datasave npc/npcslut.idf 30 10
+@datasave npc/npcslut.idf 31 110
+@datasave npc/npcslut.idf 32 200
+@datasave npc/npcslut.idf 33 10
+@datasave npc/npcslut.idf 34 20
+@datasave npc/npcslut.idf 35 20
+@datasave npc/npcslut.idf 36 20
+@datasave npc/npcslut.idf 37 20
+@datasave npc/npcslut.idf 38 20
+@datasave npc/npcslut.idf 39 21
+@datasave npc/npcslut.idf 40 123
+@datasave npc/npcslut.idf 41 120
+@datasave npc/npcslut.idf 42 20
+@datasave npc/npcslut.idf 43 20
+@datasave npc/npcslut.idf 44 20
+@datasave npc/npcslut.idf 45 20
+@datasave npc/npcslut.idf 46 100
+@datasave npc/npcslut.idf 47 100
+@datasave npc/npcslut.idf 48 100
+@datasave npc/npcslut.idf 49 100
+@datasave npc/npcslut.idf 50 5
+@datasave npc/npcslut.idf 51 100
+@datasave npc/npcslut.idf 52 100
+@datasave npc/npcslut.idf 53 100
+@datasave npc/npcslut.idf 54 100
+@datasave npc/npcslut.idf 55 100
+@datasave npc/npcslut.idf 56 100
+@datasave npc/npcslut.idf 57 100
+@datasave npc/npcslut.idf 58 100
+@datasave npc/npcslut.idf 59 100
+@datasave npc/npcslut.idf 60 100
+@datasave npc/npcslut.idf 61 100
+@datasave npc/npcslut.idf 62 100
+@datasave npc/npcslut.idf 63 100
+@datasave npc/npcslut.idf 64 100
+@datasave npc/npcslut.idf 65 100
+@datasave npc/npcslut.idf 66 100
+@datasave npc/npcslut.idf 67 100
+@datasave npc/npcslut.idf 68 100
+@datasave npc/npcslut.idf 69 100
+@datasave npc/npcslut.idf 70 100
+@datasave npc/npcslut.idf 71 100
+@datasave npc/npcslut.idf 72 100
+@datasave npc/npcslut.idf 73 100
+@datasave npc/npcslut.idf 74 100
+@datasave npc/npcslut.idf 75 100
+@datasave npc/npcslut.idf 76 100
+@datasave npc/npcslut.idf 77 100
+@datasave npc/npcslut.idf 78 100
+@datasave npc/npcslut.idf 79 100
+@datasave npc/npcslut.idf 80 100
+@datasave npc/npcslut.idf 81 250
+@datasave npc/npcslut.idf 82 100
+@datasave npc/npcslut.idf 83 100
+@datasave npc/npcslut.idf 84 100
+@datasave npc/npcslut.idf 85 100
+@datasave npc/npcslut.idf 86 100
+@datasave npc/npcslut.idf 87 100
+@datasave npc/npcslut.idf 88 100
+@datasave npc/npcslut.idf 89 100
+@datasave npc/npcslut.idf 90 100
+@datasave npc/npcslut.idf 91 100
+@datasave npc/npcslut.idf 92 100
+@datasave npc/npcslut.idf 93 100
+@datasave npc/npcslut.idf 94 100
+@datasave npc/npcslut.idf 95 100
+@datasave npc/npcslut.idf 96 100
+@datasave npc/npcslut.idf 97 100
+@datasave npc/npcslut.idf 98 100
+@datasave npc/npcslut.idf 99 100
+@datasave npc/npcslut.idf 100 100
+@datasave npc/npcslut.idf 101 130
+@datasave npc/npcslut.idf 102 50
+@datasave npc/npcslut.idf 103 100
+@datasave npc/npcslut.idf 104 100
+@datasave npc/npcslut.idf 105 100
+@datasave npc/npcslut.idf 106 200
+@datasave npc/npcslut.idf 107 200
+@datasave npc/npcslut.idf 108 244
+@datasave npc/npcslut.idf 109 100
+@datasave npc/npcslut.idf 110 100
+@datasave npc/npcslut.idf 111 100
+@datasave npc/npcslut.idf 112 100
+@datasave npc/npcslut.idf 113 100
+@datasave npc/npcslut.idf 114 100
+@datasave npc/npcslut.idf 115 100
+@datasave npc/npcslut.idf 116 100
+@datasave npc/npcslut.idf 117 100
+@datasave npc/npcslut.idf 118 100
+@datasave npc/npcslut.idf 119 100
+@datasave npc/npcslut.idf 120 100
+@datasave npc/npcslut.idf 121 100
+@datasave npc/npcslut.idf 122 100
+@datasave npc/npcslut.idf 123 100
+@datasave npc/npcslut.idf 124 100
+@datasave npc/npcslut.idf 125 100
+@datasave npc/npcslut.idf 126 100
+@datasave npc/npcslut.idf 127 100
+@datasave npc/npcslut.idf 128 100
+@datasave npc/npcslut.idf 129 100
+@datasave npc/npcslut.idf 130 100
+@datasave npc/npcslut.idf 131 100
+@datasave npc/npcslut.idf 132 100
+@datasave npc/npcslut.idf 133 100
+@datasave npc/npcslut.idf 134 100
+@datasave npc/npcslut.idf 135 100
+@datasave npc/npcslut.idf 136 100
+@datasave npc/npcslut.idf 137 100
+@datasave npc/npcslut.idf 138 100
+@datasave npc/npcslut.idf 139 100
+@datasave npc/npcslut.idf 140 100
+@datasave npc/npcslut.idf 141 100
+@datasave npc/npcslut.idf 142 100
+@datasave npc/npcslut.idf 143 100
+@datasave npc/npcslut.idf 144 100
+@datasave npc/npcslut.idf 145 100
+@datasave npc/npcslut.idf 146 100
+@datasave npc/npcslut.idf 147 100
+@datasave npc/npcslut.idf 148 100
+@datasave npc/npcslut.idf 149 100
+@datasave npc/npcslut.idf 150 100
+@datasave npc/npcslut.idf 151 100
+@datasave npc/npcslut.idf 152 100
+@datasave npc/npcslut.idf 153 100
+@datasave npc/npcslut.idf 154 100
+@datasave npc/npcslut.idf 155 100
+@datasave npc/npcslut.idf 156 100
+@datasave npc/npcslut.idf 157 100
+@datasave npc/npcslut.idf 158 100
+@datasave npc/npcslut.idf 159 100
+@datasave npc/npcslut.idf 160 100
+@datasave npc/npcslut.idf 161 100
+@datasave npc/npcslut.idf 162 100
+@datasave npc/npcslut.idf 163 100
+@datasave npc/npcslut.idf 164 100
+@datasave npc/npcslut.idf 165 100
+@datasave npc/npcslut.idf 166 100
+@datasave npc/npcslut.idf 167 100
+@datasave npc/npcslut.idf 168 100
+@datasave npc/npcslut.idf 169 100
+@datasave npc/npcslut.idf 170 100
+@datasave npc/npcslut.idf 171 100
+@datasave npc/npcslut.idf 172 100
+@datasave npc/npcslut.idf 173 100
+@datasave npc/npcslut.idf 174 100
+@datasave npc/npcslut.idf 175 100
+@datasave npc/npcslut.idf 176 100
+@datasave npc/npcslut.idf 177 100
+@datasave npc/npcslut.idf 178 100
+@datasave npc/npcslut.idf 179 100
+@datasave npc/npcslut.idf 180 100
+@datasave npc/npcslut.idf 181 100
+@datasave npc/npcslut.idf 182 100
+@datasave npc/npcslut.idf 183 100
+@datasave npc/npcslut.idf 184 100
+@datasave npc/npcslut.idf 185 100
+@datasave npc/npcslut.idf 186 100
+@datasave npc/npcslut.idf 187 100
+@datasave npc/npcslut.idf 188 100
+@datasave npc/npcslut.idf 189 100
+@datasave npc/npcslut.idf 190 100
+@datasave npc/npcslut.idf 191 100
+@datasave npc/npcslut.idf 192 100
+@datasave npc/npcslut.idf 193 100
+@datasave npc/npcslut.idf 194 100
+@datasave npc/npcslut.idf 195 100
+@datasave npc/npcslut.idf 196 100
+@datasave npc/npcslut.idf 197 100
+@datasave npc/npcslut.idf 198 100
+@datasave npc/npcslut.idf 199 100
+@datasave npc/npcslut.idf 200 100
+@do goto c7
+
+@closescript
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/npcname.ref b/xtrn/lord2/cnw/npcname.ref
new file mode 100644
index 0000000000000000000000000000000000000000..77748e4b5172c196979fbb8a67a7b1a0769d06b2
--- /dev/null
+++ b/xtrn/lord2/cnw/npcname.ref
@@ -0,0 +1,212 @@
+; Script file NPCNAME.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:13 2001
+
+@DECLARE getname 000000214
+@NOCHECK
+; End of .REF index
+
+;
+; To check the name of the current NPC with player
+;
+@#getname
+@if `p70 is 0 then `s01 is Nobody
+@if `p70 is 1 then `s01 is Violet
+@if `p70 is 2 then `s01 is Seth`xAble
+;East StoneBrook
+@if `p70 is 3 then `s01 is Wryn
+@if `p70 is 4 then `s01 is Kess
+@if `p70 is 5 then `s01 is Sherra
+@if `p70 is 6 then `s01 is Hattie
+@if `p70 is 7 then `s01 is Ninna
+@if `p70 is 8 then `s01 is Georgie
+@if `p70 is 9 then `s01 is Nicki
+@if `p70 is 10 then `s01 is Gei
+@if `p70 is 11 then `s01 is Sally
+@if `p70 is 12 then `s01 is Yowli
+@if `p70 is 13 then `s01 is Chip
+@if `p70 is 14 then `s01 is Mrs`xJenkins
+;GreenTree
+@if `p70 is 15 then `s01 is Laura
+@if `p70 is 16 then `s01 is Sheep`xMan
+@if `p70 is 17 then `s01 is Elle
+@if `p70 is 18 then `s01 is Ma
+@if `p70 is 19 then `s01 is Estella
+@if `p70 is 20 then `s01 is Lango
+;porttown
+@if `p70 is 21 then `s01 is Guy
+;Voodoo Temple
+@if `p70 is 22 then `s01 is Mickey
+@if `p70 is 23 then `s01 is Aerith
+@if `p70 is 24 then `s01 is Invisible`xMan
+@if `p70 is 25 then `s01 is Rudy
+@if `p70 is 26 then `s01 is Julia
+@if `p70 is 27 then `s01 is Kita
+@if `p70 is 28 then `s01 is Elay
+;Gypsy Camp
+@if `p70 is 29 then `s01 is Lilliana
+@if `p70 is 30 then `s01 is Chandler
+@if `p70 is 31 then `s01 is Lela
+@if `p70 is 32 then `s01 is Mirella
+@if `p70 is 33 then `s01 is Sherif
+@if `p70 is 34 then `s01 is Viollica
+@if `p70 is 35 then `s01 is Gimi
+;South of FlagCity
+@if `p70 is 36 then `s01 is Spence
+@if `p70 is 37 then `s01 is Lost`xMan
+@if `p70 is 38 then `s01 is Chance
+@if `p70 is 39 then `s01 is Johnny
+@if `p70 is 40 then `s01 is Old`xWarrior
+;Sosin Village
+@if `p70 is 41 then `s01 is Matt`xLongsword
+@if `p70 is 42 then `s01 is Wiscard
+@if `p70 is 43 then `s01 is Basil
+@if `p70 is 44 then `s01 is Somebody
+@if `p70 is 45 then `s01 is Somebody
+@if `p70 is 46 then `s01 is Somebody
+@if `p70 is 47 then `s01 is Somebody
+;PawnShop
+@if `p70 is 48 then `s01 is Somebody
+@if `p70 is 49 then `s01 is Nick
+;Far North
+@if `p70 is 50 then `s01 is Prince`xCorin
+@if `p70 is 51 then `s01 is Somebody
+@if `p70 is 52 then `s01 is Somebody
+@if `p70 is 53 then `s01 is Somebody
+@if `p70 is 54 then `s01 is Somebody
+@if `p70 is 55 then `s01 is Somebody
+@if `p70 is 56 then `s01 is Somebody
+@if `p70 is 57 then `s01 is Somebody
+@if `p70 is 58 then `s01 is Somebody
+@if `p70 is 59 then `s01 is Somebody
+; Loki Inn
+@if `p70 is 60 then `s01 is Loki`xGuard
+@if `p70 is 61 then `s01 is oDiN
+@if `p70 is 62 then `s01 is Hilda
+@if `p70 is 63 then `s01 is Somebody
+@if `p70 is 64 then `s01 is Somebody
+@if `p70 is 65 then `s01 is Somebody
+@if `p70 is 66 then `s01 is Somebody
+@if `p70 is 67 then `s01 is Somebody
+@if `p70 is 68 then `s01 is Somebody
+@if `p70 is 69 then `s01 is Somebody
+@if `p70 is 70 then `s01 is Somebody
+@if `p70 is 71 then `s01 is Somebody
+@if `p70 is 72 then `s01 is Somebody
+@if `p70 is 73 then `s01 is Somebody
+@if `p70 is 74 then `s01 is Somebody
+@if `p70 is 75 then `s01 is Gorilla`xGirl
+; GreenTree (again)
+@if `p70 is 76 then `s01 is Minister
+@if `p70 is 77 then `s01 is Somebody
+@if `p70 is 78 then `s01 is Somebody
+@if `p70 is 79 then `s01 is Somebody
+;Scorpian's Den
+@if `p70 is 80 then `s01 is Old`xMan`xScorp
+@if `p70 is 81 then `s01 is Famous`xDrunk
+@if `p70 is 82 then `s01 is Scorpian`xLady
+@if `p70 is 83 then `s01 is Drunk`xLady
+@if `p70 is 84 then `s01 is Scorpian`xMaid
+@if `p70 is 85 then `s01 is Somebody
+@if `p70 is 86 then `s01 is Somebody
+@if `p70 is 87 then `s01 is Somebody
+@if `p70 is 88 then `s01 is Somebody
+@if `p70 is 89 then `s01 is Somebody
+;desert figaro's castle
+@if `p70 is 90 then `s01 is Chancellor
+@if `p70 is 91 then `s01 is Edgar
+@if `p70 is 92 then `s01 is Edgars`xGuard
+@if `p70 is 93 then `s01 is Edgars`xGuard
+@if `p70 is 94 then `s01 is Forga
+@if `p70 is 95 then `s01 is Fatiguel
+@if `p70 is 96 then `s01 is Somebody
+@if `p70 is 97 then `s01 is Somebody
+@if `p70 is 98 then `s01 is Somebody
+;Sandcity
+@if `p70 is 99 then `s01 is Maverick
+;KnotWood
+@if `p70 is 100 then `s01 is Andrew
+@if `p70 is 101 then `s01 is Mr.`xAndrew
+@if `p70 is 102 then `s01 is Mrs.`xAndrew
+;Wizards Castle (near StoneBrook)
+@if `p70 is 103 then `s01 is Violetta
+@if `p70 is 104 then `s01 is Sand`xTiger
+@if `p70 is 105 then `s01 is Direct
+;path from stonebrook to greentree and around greentree
+@if `p70 is 106 then `s01 is Begger
+@if `p70 is 107 then `s01 is Sherie
+@if `p70 is 108 then `s01 is Grizelda
+@if `p70 is 109 then `s01 is Edward
+;Sword Castle
+@if `p70 is 110 then `s01 is Thug
+@if `p70 is 111 then `s01 is Mann
+@if `p70 is 112 then `s01 is Mordin
+@if `p70 is 113 then `s01 is Aqua
+@if `p70 is 114 then `s01 is Somebody
+@if `p70 is 115 then `s01 is Somebody
+;BoneTown
+@if `p70 is 116 then `s01 is Dad
+@if `p70 is 117 then `s01 is Rich`xWoman
+@if `p70 is 118 then `s01 is Jesse
+@if `p70 is 119 then `s01 is Boy
+@if `p70 is 120 then `s01 is John
+@if `p70 is 121 then `s01 is Big`xMa
+@if `p70 is 122 then `s01 is Kelley ;a whore
+@if `p70 is 123 then `s01 is Selena
+@if `p70 is 124 then `s01 is Drunk`xMan
+@if `p70 is 125 then `s01 is Bouncer
+@if `p70 is 126 then `s01 is D.J.
+@if `p70 is 127 then `s01 is Somebody
+@if `p70 is 128 then `s01 is Somebody
+@if `p70 is 129 then `s01 is Somebody
+;PortTown - Odin's Keep area
+@if `p70 is 130 then `s01 is Grey`xMan
+@if `p70 is 131 then `s01 is Jennie
+@if `p70 is 132 then `s01 is Rosie
+@if `p70 is 133 then `s01 is Somebody
+;Resort + Glendale near StoneBrook
+@if `p70 is 134 then `s01 is Happy`xPappy
+@if `p70 is 135 then `s01 is Dan
+@if `p70 is 136 then `s01 is Don
+@if `p70 is 137 then `s01 is Lone
+@if `p70 is 138 then `s01 is Dance
+@if `p70 is 139 then `s01 is Somebody
+@if `p70 is 140 then `s01 is Somebody
+@if `p70 is 141 then `s01 is Somebody
+@if `p70 is 142 then `s01 is Somebody
+@if `p70 is 143 then `s01 is Somebody
+@if `p70 is 144 then `s01 is Somebody
+@if `p70 > 144 then `s01 is Somebody
+;--All the Whores!--
+; Female
+@if `p70 is 170 then `s01 is Kelli
+@if `p70 is 171 then `s01 is Karen
+@if `p70 is 172 then `s01 is Mundin
+@if `p70 is 173 then `s01 is Mulan
+@if `p70 is 174 then `s01 is Pocahontas
+@if `p70 is 175 then `s01 is Samira
+@if `p70 is 176 then `s01 is Linda
+@if `p70 is 177 then `s01 is White
+@if `p70 is 178 then `s01 is Red
+@if `p70 is 179 then `s01 is Jasmine
+@if `p70 is 180 then `s01 is Marilyn
+@if `p70 is 181 then `s01 is Yewanda
+@if `p70 is 182 then `s01 is Karlita
+@if `p70 is 183 then `s01 is Kelly
+@if `p70 is 184 then `s01 is Sheila
+@if `p70 is 185 then `s01 is Bibianna
+@if `p70 is 186 then `s01 is Yuko
+@if `p70 is 187 then `s01 is Lisa
+@if `p70 is 188 then `s01 is Kina
+@if `p70 is 189 then `s01 is Kiko
+@if `p70 is 190 then `s01 is Kimbery
+@if `p70 is 191 then `s01 is Cindy
+@if `p70 is 192 then `s01 is Yurri
+@if `p70 is 193 then `s01 is Tina
+@if `p70 is 194 then `s01 is Tanya
+@if `p70 is 195 then `s01 is Saby
+@if `p70 is 196 then `s01 is Asada
+;@if `p70 is 197 then `s01 is Nobody
+@if `p70 is 198 then `s01 is Fast`xFreddy
+@if `p70 is 199 then `s01 is SysOp
+;;now 125
+@datasave npc\npcdy`p70.idf &playernum &time
+@closescript
diff --git a/xtrn/lord2/cnw/npcname2.ref b/xtrn/lord2/cnw/npcname2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..cc07ccf858a8ebda15f1dafcdd27ad985a29a2f3
--- /dev/null
+++ b/xtrn/lord2/cnw/npcname2.ref
@@ -0,0 +1,213 @@
+; Script file NPCNAME2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:14 2001
+
+@DECLARE getname 000000215
+@NOCHECK
+; End of .REF index
+
+;
+; To check the name of the current NPC with player
+;
+@#getname
+@if `p26 is 0 then `s01 is Nobody
+@if `p26 is 1 then `s01 is Violet
+@if `p26 is 2 then `s01 is Seth`xAble
+;East StoneBrook
+@if `p26 is 3 then `s01 is Wryn
+@if `p26 is 4 then `s01 is Kess
+@if `p26 is 5 then `s01 is Sherra
+@if `p26 is 6 then `s01 is Hattie
+@if `p26 is 7 then `s01 is Ninna
+@if `p26 is 8 then `s01 is Georgie
+@if `p26 is 9 then `s01 is Nicki
+@if `p26 is 10 then `s01 is Gei
+@if `p26 is 11 then `s01 is Sally
+@if `p26 is 12 then `s01 is Yowli
+@if `p26 is 13 then `s01 is Chip
+@if `p26 is 14 then `s01 is Mrs`xJenkins
+;GreenTree
+@if `p26 is 15 then `s01 is Laura
+@if `p26 is 16 then `s01 is Sheep`xMan
+@if `p26 is 17 then `s01 is Elle
+@if `p26 is 18 then `s01 is Ma
+@if `p26 is 19 then `s01 is Estella
+@if `p26 is 20 then `s01 is Lango
+;porttown
+@if `p26 is 21 then `s01 is Guy
+;Voodoo Temple
+@if `p26 is 22 then `s01 is Mickey
+@if `p26 is 23 then `s01 is Aerith
+@if `p26 is 24 then `s01 is Invisible`xMan
+@if `p26 is 25 then `s01 is Rudy
+@if `p26 is 26 then `s01 is Julia
+@if `p26 is 27 then `s01 is Kita
+@if `p26 is 28 then `s01 is Elay
+;Gypsy Camp
+@if `p26 is 29 then `s01 is Lilliana
+@if `p26 is 30 then `s01 is Chandler
+@if `p26 is 31 then `s01 is Lela
+@if `p26 is 32 then `s01 is Mirella
+@if `p26 is 33 then `s01 is Sherif
+@if `p26 is 34 then `s01 is Viollica
+@if `p26 is 35 then `s01 is Gimi
+;South of FlagCity
+@if `p26 is 36 then `s01 is Spence
+@if `p26 is 37 then `s01 is Lost`xMan
+@if `p26 is 38 then `s01 is Chance
+@if `p26 is 39 then `s01 is Johnny
+@if `p26 is 40 then `s01 is Old`xWarrior
+;Sosin Village
+@if `p26 is 41 then `s01 is Matt`xLongsword
+@if `p26 is 42 then `s01 is Wiscard
+@if `p26 is 43 then `s01 is Basil
+@if `p26 is 44 then `s01 is Somebody
+@if `p26 is 45 then `s01 is Somebody
+@if `p26 is 46 then `s01 is Somebody
+@if `p26 is 47 then `s01 is Somebody
+;PawnShop
+@if `p26 is 48 then `s01 is Somebody
+@if `p26 is 49 then `s01 is Nick
+;Far North
+@if `p26 is 50 then `s01 is Prince`xCorin
+@if `p26 is 51 then `s01 is Somebody
+@if `p26 is 52 then `s01 is Somebody
+@if `p26 is 53 then `s01 is Somebody
+@if `p26 is 54 then `s01 is Somebody
+@if `p26 is 55 then `s01 is Somebody
+@if `p26 is 56 then `s01 is Somebody
+@if `p26 is 57 then `s01 is Somebody
+@if `p26 is 58 then `s01 is Somebody
+@if `p26 is 59 then `s01 is Somebody
+; Loki Inn
+@if `p26 is 60 then `s01 is Loki`xGuard
+@if `p26 is 61 then `s01 is oDiN
+@if `p26 is 62 then `s01 is Hilda
+@if `p26 is 63 then `s01 is Somebody
+@if `p26 is 64 then `s01 is Somebody
+@if `p26 is 65 then `s01 is Somebody
+@if `p26 is 66 then `s01 is Somebody
+@if `p26 is 67 then `s01 is Somebody
+@if `p26 is 68 then `s01 is Somebody
+@if `p26 is 69 then `s01 is Somebody
+@if `p26 is 70 then `s01 is Somebody
+@if `p26 is 71 then `s01 is Somebody
+@if `p26 is 72 then `s01 is Somebody
+@if `p26 is 73 then `s01 is Somebody
+@if `p26 is 74 then `s01 is Somebody
+@if `p26 is 75 then `s01 is Gorilla`xGirl
+; GreenTree (again)
+@if `p26 is 76 then `s01 is Minister
+@if `p26 is 77 then `s01 is Somebody
+@if `p26 is 78 then `s01 is Somebody
+@if `p26 is 79 then `s01 is Somebody
+;Scorpian's Den
+@if `p26 is 80 then `s01 is Old`xMan`xScorp
+@if `p26 is 81 then `s01 is Famous`xDrunk
+@if `p26 is 82 then `s01 is Scorpian`xLady
+@if `p26 is 83 then `s01 is Drunk`xLady
+@if `p26 is 84 then `s01 is Scorpian`xMaid
+@if `p26 is 85 then `s01 is Somebody
+@if `p26 is 86 then `s01 is Somebody
+@if `p26 is 87 then `s01 is Somebody
+@if `p26 is 88 then `s01 is Somebody
+@if `p26 is 89 then `s01 is Somebody
+;desert figaro's castle
+@if `p26 is 90 then `s01 is Chancellor
+@if `p26 is 91 then `s01 is Edgar
+@if `p26 is 92 then `s01 is Edgars`xGuard
+@if `p26 is 93 then `s01 is Edgars`xGuard
+@if `p26 is 94 then `s01 is Forga
+@if `p26 is 95 then `s01 is Fatiguel
+@if `p26 is 96 then `s01 is Somebody
+@if `p26 is 97 then `s01 is Somebody
+@if `p26 is 98 then `s01 is Somebody
+;Sandcity
+@if `p26 is 99 then `s01 is Maverick
+;KnotWood
+@if `p26 is 100 then `s01 is Andrew
+@if `p26 is 101 then `s01 is Mr.`xAndrew
+@if `p26 is 102 then `s01 is Mrs.`xAndrew
+;Wizards Castle (near StoneBrook)
+@if `p26 is 103 then `s01 is Violetta
+@if `p26 is 104 then `s01 is Sand`xTiger
+@if `p26 is 105 then `s01 is Direct
+;path from stonebrook to greentree and around greentree
+@if `p26 is 106 then `s01 is Begger
+@if `p26 is 107 then `s01 is Sherie
+@if `p26 is 108 then `s01 is Grizelda
+@if `p26 is 109 then `s01 is Edward
+;Sword Castle
+@if `p26 is 110 then `s01 is Thug
+@if `p26 is 111 then `s01 is Mann
+@if `p26 is 112 then `s01 is Mordin
+@if `p26 is 113 then `s01 is Aqua
+@if `p26 is 114 then `s01 is Somebody
+@if `p26 is 115 then `s01 is Somebody
+;BoneTown
+@if `p26 is 116 then `s01 is Dad
+@if `p26 is 117 then `s01 is Rich`xWoman
+@if `p26 is 118 then `s01 is Jesse
+@if `p26 is 119 then `s01 is Boy
+@if `p26 is 120 then `s01 is John
+@if `p26 is 121 then `s01 is Big`xMa
+@if `p26 is 122 then `s01 is Kelley ;a whore
+@if `p26 is 123 then `s01 is Selena
+@if `p26 is 124 then `s01 is Drunk`xMan
+@if `p26 is 125 then `s01 is Bouncer
+@if `p26 is 126 then `s01 is D.J.
+@if `p26 is 127 then `s01 is Somebody
+@if `p26 is 128 then `s01 is Somebody
+@if `p26 is 129 then `s01 is Somebody
+;PortTown - Odin's Keep area
+@if `p26 is 130 then `s01 is Grey`xMan
+@if `p26 is 131 then `s01 is Jennie
+@if `p26 is 132 then `s01 is Rosie
+@if `p26 is 133 then `s01 is Somebody
+;Resort + Glendale near StoneBrook
+@if `p26 is 134 then `s01 is Happy`xPappy
+@if `p26 is 135 then `s01 is Dan
+@if `p26 is 136 then `s01 is Don
+@if `p26 is 137 then `s01 is Lone
+@if `p26 is 138 then `s01 is Dance
+@if `p26 is 139 then `s01 is Somebody
+@if `p26 is 140 then `s01 is Somebody
+@if `p26 is 141 then `s01 is Somebody
+@if `p26 is 142 then `s01 is Somebody
+@if `p26 is 143 then `s01 is Somebody
+@if `p26 is 144 then `s01 is Somebody
+@if `p26 > 144 then `s01 is Somebody
+;--All the Whores!--
+; Female
+@if `p26 is 170 then `s01 is Kelli
+@if `p26 is 171 then `s01 is Karen
+@if `p26 is 172 then `s01 is Mundin
+@if `p26 is 173 then `s01 is Mulan
+@if `p26 is 174 then `s01 is Pocahontas
+@if `p26 is 175 then `s01 is Samira
+@if `p26 is 176 then `s01 is Linda
+@if `p26 is 177 then `s01 is White
+@if `p26 is 178 then `s01 is Red
+@if `p26 is 179 then `s01 is Jasmine
+@if `p26 is 180 then `s01 is Marilyn
+@if `p26 is 181 then `s01 is Yewanda
+@if `p26 is 182 then `s01 is Karlita
+@if `p26 is 183 then `s01 is Kelly
+@if `p26 is 184 then `s01 is Sheila
+@if `p26 is 185 then `s01 is Bibianna
+@if `p26 is 186 then `s01 is Yuko
+@if `p26 is 187 then `s01 is Lisa
+@if `p26 is 188 then `s01 is Kina
+@if `p26 is 189 then `s01 is Kiko
+@if `p26 is 190 then `s01 is Kimbery
+@if `p26 is 191 then `s01 is Cindy
+@if `p26 is 192 then `s01 is Yurri
+@if `p26 is 193 then `s01 is Tina
+@if `p26 is 194 then `s01 is Tanya
+@if `p26 is 195 then `s01 is Saby
+@if `p26 is 196 then `s01 is Asada
+;@if `p26 is 197 then `s01 is Nobody
+@if `p26 is 198 then `s01 is Fast`xFreddy
+@if `p26 is 199 then `s01 is SysOp
+;;now 125
+@datasave npc\npcdy`p26.idf &playernum &time
+@closescript
+
diff --git a/xtrn/lord2/cnw/npcwed.ref b/xtrn/lord2/cnw/npcwed.ref
new file mode 100644
index 0000000000000000000000000000000000000000..284bcc09de0c0c018dc60eec3d905f2d138961e0
--- /dev/null
+++ b/xtrn/lord2/cnw/npcwed.ref
@@ -0,0 +1,729 @@
+; Script file NPCWED.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:15 2001
+
+@DECLARE weds 000000261
+@DECLARE top 000000568
+@DECLARE end 000024712
+@NOCHECK
+; End of .REF index
+
+;
+;
+;
+; I need to redo this REF, make is smaller.
+;
+
+@#weds
+@do `p20 is &time
+@do `p21 is `p20
+@do `p21 - 1
+@do `p22 is `p20
+@do `p22 - 2
+@do `p23 is `p20
+@do `p23 - 3
+@datanewday npc/wedchk.tmp
+@dataload npc/wedchk.tmp 1 `p22
+@if `p22 is 1 then goto end
+@datasave npc/wedchk.tmp 1 1
+@show
+`\ �`%Running daily NPC maintence for weddings.`\
+@label top
+@if npc/wed`p20.day exists true then do
+ @begin
+ @readfile npc/wed`p20.day
+`p25
+`p26
+ @do `s02 is getname `p25
+@if `p20 is 0 then `s01 is Nobody
+@if `p20 is 1 then `s01 is Violet
+@if `p20 is 2 then `s01 is Seth`xAble
+;East StoneBrook
+@if `p20 is 3 then `s01 is Wryn
+@if `p20 is 4 then `s01 is Kess
+@if `p20 is 5 then `s01 is Sherra
+@if `p20 is 6 then `s01 is Hattie
+@if `p20 is 7 then `s01 is Ninna
+@if `p20 is 8 then `s01 is Georgie
+@if `p20 is 9 then `s01 is Nicki
+@if `p20 is 10 then `s01 is Gei
+@if `p20 is 11 then `s01 is Sally
+@if `p20 is 12 then `s01 is Yowli
+@if `p20 is 13 then `s01 is Chip
+@if `p20 is 14 then `s01 is Mrs`xJenkins
+;GreenTree
+@if `p20 is 15 then `s01 is Laura
+@if `p20 is 16 then `s01 is Sheep`xMan
+@if `p20 is 17 then `s01 is Elle
+@if `p20 is 18 then `s01 is Ma
+@if `p20 is 19 then `s01 is Estella
+@if `p20 is 20 then `s01 is Lango
+;porttown
+@if `p20 is 21 then `s01 is Guy
+;Voodoo Temple
+@if `p20 is 22 then `s01 is Mickey
+@if `p20 is 23 then `s01 is Aerith
+@if `p20 is 24 then `s01 is Invisible`xMan
+@if `p20 is 25 then `s01 is Rudy
+@if `p20 is 26 then `s01 is Julia
+@if `p20 is 27 then `s01 is Kita
+@if `p20 is 28 then `s01 is Elay
+;Gypsy Camp
+@if `p20 is 29 then `s01 is Lilliana
+@if `p20 is 30 then `s01 is Chandler
+@if `p20 is 31 then `s01 is Lela
+@if `p20 is 32 then `s01 is Mirella
+@if `p20 is 33 then `s01 is Sherif
+@if `p20 is 34 then `s01 is Viollica
+@if `p20 is 35 then `s01 is Gimi
+;South of FlagCity
+@if `p20 is 36 then `s01 is Spence
+@if `p20 is 37 then `s01 is Lost`xMan
+@if `p20 is 38 then `s01 is Chance
+@if `p20 is 39 then `s01 is Johnny
+@if `p20 is 40 then `s01 is Old`xWarrior
+;Sosin Village
+@if `p20 is 41 then `s01 is Matt`xLongsword
+@if `p20 is 42 then `s01 is Wiscard
+@if `p20 is 43 then `s01 is Basil
+@if `p20 is 44 then `s01 is Somebody
+@if `p20 is 45 then `s01 is Somebody
+@if `p20 is 46 then `s01 is Somebody
+@if `p20 is 47 then `s01 is Somebody
+;PawnShop
+@if `p20 is 48 then `s01 is Somebody
+@if `p20 is 49 then `s01 is Nick
+;Far North
+@if `p20 is 50 then `s01 is Prince`xCorin
+@if `p20 is 51 then `s01 is Somebody
+@if `p20 is 52 then `s01 is Somebody
+@if `p20 is 53 then `s01 is Somebody
+@if `p20 is 54 then `s01 is Somebody
+@if `p20 is 55 then `s01 is Somebody
+@if `p20 is 56 then `s01 is Somebody
+@if `p20 is 57 then `s01 is Somebody
+@if `p20 is 58 then `s01 is Somebody
+@if `p20 is 59 then `s01 is Somebody
+; Loki Inn
+@if `p20 is 60 then `s01 is Loki`xGuard
+@if `p20 is 61 then `s01 is oDiN
+@if `p20 is 62 then `s01 is Hilda
+@if `p20 is 63 then `s01 is Somebody
+@if `p20 is 64 then `s01 is Somebody
+@if `p20 is 65 then `s01 is Somebody
+@if `p20 is 66 then `s01 is Somebody
+@if `p20 is 67 then `s01 is Somebody
+@if `p20 is 68 then `s01 is Somebody
+@if `p20 is 69 then `s01 is Somebody
+@if `p20 is 70 then `s01 is Somebody
+@if `p20 is 71 then `s01 is Somebody
+@if `p20 is 72 then `s01 is Somebody
+@if `p20 is 73 then `s01 is Somebody
+@if `p20 is 74 then `s01 is Somebody
+@if `p20 is 75 then `s01 is Gorilla`xGirl
+; GreenTree (again)
+@if `p20 is 76 then `s01 is Minister
+@if `p20 is 77 then `s01 is Somebody
+@if `p20 is 78 then `s01 is Somebody
+@if `p20 is 79 then `s01 is Somebody
+;Scorpian's Den
+@if `p20 is 80 then `s01 is Old`xMan`xScorp
+@if `p20 is 81 then `s01 is Famous`xDrunk
+@if `p20 is 82 then `s01 is Scorpian`xLady
+@if `p20 is 83 then `s01 is Drunk`xLady
+@if `p20 is 84 then `s01 is Scorpian`xMaid
+@if `p20 is 85 then `s01 is Somebody
+@if `p20 is 86 then `s01 is Somebody
+@if `p20 is 87 then `s01 is Somebody
+@if `p20 is 88 then `s01 is Somebody
+@if `p20 is 89 then `s01 is Somebody
+;desert figaro's castle
+@if `p20 is 90 then `s01 is Chancellor
+@if `p20 is 91 then `s01 is Edgar
+@if `p20 is 92 then `s01 is Edgars`xGuard
+@if `p20 is 93 then `s01 is Edgars`xGuard
+@if `p20 is 94 then `s01 is Forga
+@if `p20 is 95 then `s01 is Fatiguel
+@if `p20 is 96 then `s01 is Somebody
+@if `p20 is 97 then `s01 is Somebody
+@if `p20 is 98 then `s01 is Somebody
+;Sandcity
+@if `p20 is 99 then `s01 is Maverick
+;KnotWood
+@if `p20 is 100 then `s01 is Andrew
+@if `p20 is 101 then `s01 is Mr.`xAndrew
+@if `p20 is 102 then `s01 is Mrs.`xAndrew
+;Wizards Castle (near StoneBrook)
+@if `p20 is 103 then `s01 is Violetta
+@if `p20 is 104 then `s01 is Sand`xTiger
+@if `p20 is 105 then `s01 is Direct
+;path from stonebrook to greentree and around greentree
+@if `p20 is 106 then `s01 is Begger
+@if `p20 is 107 then `s01 is Sherie
+@if `p20 is 108 then `s01 is Grizelda
+@if `p20 is 109 then `s01 is Edward
+;Sword Castle
+@if `p20 is 110 then `s01 is Thug
+@if `p20 is 111 then `s01 is Mann
+@if `p20 is 112 then `s01 is Mordin
+@if `p20 is 113 then `s01 is Aqua
+@if `p20 is 114 then `s01 is Somebody
+@if `p20 is 115 then `s01 is Somebody
+;BoneTown
+@if `p20 is 116 then `s01 is Dad
+@if `p20 is 117 then `s01 is Rich`xWoman
+@if `p20 is 118 then `s01 is Jesse
+@if `p20 is 119 then `s01 is Boy
+@if `p20 is 120 then `s01 is John
+@if `p20 is 121 then `s01 is Big`xMa
+@if `p20 is 122 then `s01 is Kelley ;a whore
+@if `p20 is 123 then `s01 is Selena
+@if `p20 is 124 then `s01 is Drunk`xMan
+@if `p20 is 125 then `s01 is Bouncer
+@if `p20 is 126 then `s01 is D.J.
+@if `p20 is 127 then `s01 is Somebody
+@if `p20 is 128 then `s01 is Somebody
+@if `p20 is 129 then `s01 is Somebody
+;PortTown - Odin's Keep area
+@if `p20 is 130 then `s01 is Grey`xMan
+@if `p20 is 131 then `s01 is Jennie
+@if `p20 is 132 then `s01 is Rosie
+@if `p20 is 133 then `s01 is Somebody
+;Resort + Glendale near StoneBrook
+@if `p20 is 134 then `s01 is Happy`xPappy
+@if `p20 is 135 then `s01 is Dan
+@if `p20 is 136 then `s01 is Don
+@if `p20 is 137 then `s01 is Lone
+@if `p20 is 138 then `s01 is Dance
+@if `p20 is 139 then `s01 is Somebody
+@if `p20 is 140 then `s01 is Somebody
+@if `p20 is 141 then `s01 is Somebody
+@if `p20 is 142 then `s01 is Somebody
+@if `p20 is 143 then `s01 is Somebody
+@if `p20 is 144 then `s01 is Somebody
+@if `p20 > 144 then `s01 is Somebody
+;--All the Whores!--
+; Female
+@if `p20 is 170 then `s01 is Kelli
+@if `p20 is 171 then `s01 is Karen
+@if `p20 is 172 then `s01 is Mundin
+@if `p20 is 173 then `s01 is Mulan
+@if `p20 is 174 then `s01 is Pocahontas
+@if `p20 is 175 then `s01 is Samira
+@if `p20 is 176 then `s01 is Linda
+@if `p20 is 177 then `s01 is White
+@if `p20 is 178 then `s01 is Red
+@if `p20 is 179 then `s01 is Jasmine
+@if `p20 is 180 then `s01 is Marilyn
+@if `p20 is 181 then `s01 is Yewanda
+@if `p20 is 182 then `s01 is Karlita
+@if `p20 is 183 then `s01 is Kelly
+@if `p20 is 184 then `s01 is Sheila
+@if `p20 is 185 then `s01 is Bibianna
+@if `p20 is 186 then `s01 is Yuko
+@if `p20 is 187 then `s01 is Lisa
+@if `p20 is 188 then `s01 is Kina
+@if `p20 is 189 then `s01 is Kiko
+@if `p20 is 190 then `s01 is Kimbery
+@if `p20 is 191 then `s01 is Cindy
+@if `p20 is 192 then `s01 is Yurri
+@if `p20 is 193 then `s01 is Tina
+@if `p20 is 194 then `s01 is Tanya
+@if `p20 is 195 then `s01 is Saby
+@if `p20 is 196 then `s01 is Asada
+;@if `p20 is 197 then `s01 is Nobody
+@if `p20 is 198 then `s01 is Fast`xFreddy
+@if `p20 is 199 then `s01 is SysOp
+ @do addlog
+`%Today `@`s02`%and `@`s01 `%are to be wed at the wedding chapel.
+ @do addlog
+`%Everyone is welcome to watch these two to be united as one.
+@DO DELETE npc/wed`p20.day
+@writefile npc/wed`p20.now
+`p25
+`p26
+ @end
+
+@if npc/wed`p21.day exists true then do
+ @begin
+ @readfile npc/wed`p21.day
+`p25
+`p26
+ @do `p25
+ @do `s02 is getname `p25
+
+@if `p20 is 0 then `s01 is Nobody
+@if `p20 is 1 then `s01 is Violet
+@if `p20 is 2 then `s01 is Seth`xAble
+;East StoneBrook
+@if `p20 is 3 then `s01 is Wryn
+@if `p20 is 4 then `s01 is Kess
+@if `p20 is 5 then `s01 is Sherra
+@if `p20 is 6 then `s01 is Hattie
+@if `p20 is 7 then `s01 is Ninna
+@if `p20 is 8 then `s01 is Georgie
+@if `p20 is 9 then `s01 is Nicki
+@if `p20 is 10 then `s01 is Gei
+@if `p20 is 11 then `s01 is Sally
+@if `p20 is 12 then `s01 is Yowli
+@if `p20 is 13 then `s01 is Chip
+@if `p20 is 14 then `s01 is Mrs`xJenkins
+;GreenTree
+@if `p20 is 15 then `s01 is Laura
+@if `p20 is 16 then `s01 is Sheep`xMan
+@if `p20 is 17 then `s01 is Elle
+@if `p20 is 18 then `s01 is Ma
+@if `p20 is 19 then `s01 is Estella
+@if `p20 is 20 then `s01 is Lango
+;porttown
+@if `p20 is 21 then `s01 is Guy
+;Voodoo Temple
+@if `p20 is 22 then `s01 is Mickey
+@if `p20 is 23 then `s01 is Aerith
+@if `p20 is 24 then `s01 is Invisible`xMan
+@if `p20 is 25 then `s01 is Rudy
+@if `p20 is 26 then `s01 is Julia
+@if `p20 is 27 then `s01 is Kita
+@if `p20 is 28 then `s01 is Elay
+;Gypsy Camp
+@if `p20 is 29 then `s01 is Lilliana
+@if `p20 is 30 then `s01 is Chandler
+@if `p20 is 31 then `s01 is Lela
+@if `p20 is 32 then `s01 is Mirella
+@if `p20 is 33 then `s01 is Sherif
+@if `p20 is 34 then `s01 is Viollica
+@if `p20 is 35 then `s01 is Gimi
+;South of FlagCity
+@if `p20 is 36 then `s01 is Spence
+@if `p20 is 37 then `s01 is Lost`xMan
+@if `p20 is 38 then `s01 is Chance
+@if `p20 is 39 then `s01 is Johnny
+@if `p20 is 40 then `s01 is Old`xWarrior
+;Sosin Village
+@if `p20 is 41 then `s01 is Matt`xLongsword
+@if `p20 is 42 then `s01 is Wiscard
+@if `p20 is 43 then `s01 is Basil
+@if `p20 is 44 then `s01 is Somebody
+@if `p20 is 45 then `s01 is Somebody
+@if `p20 is 46 then `s01 is Somebody
+@if `p20 is 47 then `s01 is Somebody
+;PawnShop
+@if `p20 is 48 then `s01 is Somebody
+@if `p20 is 49 then `s01 is Nick
+;Far North
+@if `p20 is 50 then `s01 is Prince`xCorin
+@if `p20 is 51 then `s01 is Somebody
+@if `p20 is 52 then `s01 is Somebody
+@if `p20 is 53 then `s01 is Somebody
+@if `p20 is 54 then `s01 is Somebody
+@if `p20 is 55 then `s01 is Somebody
+@if `p20 is 56 then `s01 is Somebody
+@if `p20 is 57 then `s01 is Somebody
+@if `p20 is 58 then `s01 is Somebody
+@if `p20 is 59 then `s01 is Somebody
+; Loki Inn
+@if `p20 is 60 then `s01 is Loki`xGuard
+@if `p20 is 61 then `s01 is oDiN
+@if `p20 is 62 then `s01 is Hilda
+@if `p20 is 63 then `s01 is Somebody
+@if `p20 is 64 then `s01 is Somebody
+@if `p20 is 65 then `s01 is Somebody
+@if `p20 is 66 then `s01 is Somebody
+@if `p20 is 67 then `s01 is Somebody
+@if `p20 is 68 then `s01 is Somebody
+@if `p20 is 69 then `s01 is Somebody
+@if `p20 is 70 then `s01 is Somebody
+@if `p20 is 71 then `s01 is Somebody
+@if `p20 is 72 then `s01 is Somebody
+@if `p20 is 73 then `s01 is Somebody
+@if `p20 is 74 then `s01 is Somebody
+@if `p20 is 75 then `s01 is Gorilla`xGirl
+; GreenTree (again)
+@if `p20 is 76 then `s01 is Minister
+@if `p20 is 77 then `s01 is Somebody
+@if `p20 is 78 then `s01 is Somebody
+@if `p20 is 79 then `s01 is Somebody
+;Scorpian's Den
+@if `p20 is 80 then `s01 is Old`xMan`xScorp
+@if `p20 is 81 then `s01 is Famous`xDrunk
+@if `p20 is 82 then `s01 is Scorpian`xLady
+@if `p20 is 83 then `s01 is Drunk`xLady
+@if `p20 is 84 then `s01 is Scorpian`xMaid
+@if `p20 is 85 then `s01 is Somebody
+@if `p20 is 86 then `s01 is Somebody
+@if `p20 is 87 then `s01 is Somebody
+@if `p20 is 88 then `s01 is Somebody
+@if `p20 is 89 then `s01 is Somebody
+;desert figaro's castle
+@if `p20 is 90 then `s01 is Chancellor
+@if `p20 is 91 then `s01 is Edgar
+@if `p20 is 92 then `s01 is Edgars`xGuard
+@if `p20 is 93 then `s01 is Edgars`xGuard
+@if `p20 is 94 then `s01 is Forga
+@if `p20 is 95 then `s01 is Fatiguel
+@if `p20 is 96 then `s01 is Somebody
+@if `p20 is 97 then `s01 is Somebody
+@if `p20 is 98 then `s01 is Somebody
+;Sandcity
+@if `p20 is 99 then `s01 is Maverick
+;KnotWood
+@if `p20 is 100 then `s01 is Andrew
+@if `p20 is 101 then `s01 is Mr.`xAndrew
+@if `p20 is 102 then `s01 is Mrs.`xAndrew
+;Wizards Castle (near StoneBrook)
+@if `p20 is 103 then `s01 is Violetta
+@if `p20 is 104 then `s01 is Sand`xTiger
+@if `p20 is 105 then `s01 is Direct
+;path from stonebrook to greentree and around greentree
+@if `p20 is 106 then `s01 is Begger
+@if `p20 is 107 then `s01 is Sherie
+@if `p20 is 108 then `s01 is Grizelda
+@if `p20 is 109 then `s01 is Edward
+;Sword Castle
+@if `p20 is 110 then `s01 is Thug
+@if `p20 is 111 then `s01 is Mann
+@if `p20 is 112 then `s01 is Mordin
+@if `p20 is 113 then `s01 is Aqua
+@if `p20 is 114 then `s01 is Somebody
+@if `p20 is 115 then `s01 is Somebody
+;BoneTown
+@if `p20 is 116 then `s01 is Dad
+@if `p20 is 117 then `s01 is Rich`xWoman
+@if `p20 is 118 then `s01 is Jesse
+@if `p20 is 119 then `s01 is Boy
+@if `p20 is 120 then `s01 is John
+@if `p20 is 121 then `s01 is Big`xMa
+@if `p20 is 122 then `s01 is Kelley ;a whore
+@if `p20 is 123 then `s01 is Selena
+@if `p20 is 124 then `s01 is Drunk`xMan
+@if `p20 is 125 then `s01 is Bouncer
+@if `p20 is 126 then `s01 is D.J.
+@if `p20 is 127 then `s01 is Somebody
+@if `p20 is 128 then `s01 is Somebody
+@if `p20 is 129 then `s01 is Somebody
+;PortTown - Odin's Keep area
+@if `p20 is 130 then `s01 is Grey`xMan
+@if `p20 is 131 then `s01 is Jennie
+@if `p20 is 132 then `s01 is Rosie
+@if `p20 is 133 then `s01 is Somebody
+;Resort + Glendale near StoneBrook
+@if `p20 is 134 then `s01 is Happy`xPappy
+@if `p20 is 135 then `s01 is Dan
+@if `p20 is 136 then `s01 is Don
+@if `p20 is 137 then `s01 is Lone
+@if `p20 is 138 then `s01 is Dance
+@if `p20 is 139 then `s01 is Somebody
+@if `p20 is 140 then `s01 is Somebody
+@if `p20 is 141 then `s01 is Somebody
+@if `p20 is 142 then `s01 is Somebody
+@if `p20 is 143 then `s01 is Somebody
+@if `p20 is 144 then `s01 is Somebody
+@if `p20 > 144 then `s01 is Somebody
+;--All the Whores!--
+; Female
+@if `p20 is 170 then `s01 is Kelli
+@if `p20 is 171 then `s01 is Karen
+@if `p20 is 172 then `s01 is Mundin
+@if `p20 is 173 then `s01 is Mulan
+@if `p20 is 174 then `s01 is Pocahontas
+@if `p20 is 175 then `s01 is Samira
+@if `p20 is 176 then `s01 is Linda
+@if `p20 is 177 then `s01 is White
+@if `p20 is 178 then `s01 is Red
+@if `p20 is 179 then `s01 is Jasmine
+@if `p20 is 180 then `s01 is Marilyn
+@if `p20 is 181 then `s01 is Yewanda
+@if `p20 is 182 then `s01 is Karlita
+@if `p20 is 183 then `s01 is Kelly
+@if `p20 is 184 then `s01 is Sheila
+@if `p20 is 185 then `s01 is Bibianna
+@if `p20 is 186 then `s01 is Yuko
+@if `p20 is 187 then `s01 is Lisa
+@if `p20 is 188 then `s01 is Kina
+@if `p20 is 189 then `s01 is Kiko
+@if `p20 is 190 then `s01 is Kimbery
+@if `p20 is 191 then `s01 is Cindy
+@if `p20 is 192 then `s01 is Yurri
+@if `p20 is 193 then `s01 is Tina
+@if `p20 is 194 then `s01 is Tanya
+@if `p20 is 195 then `s01 is Saby
+@if `p20 is 196 then `s01 is Asada
+;@if `p20 is 197 then `s01 is Nobody
+@if `p20 is 198 then `s01 is Fast`xFreddy
+@if `p20 is 199 then `s01 is SysOp
+;;now 125
+ @do addlog
+`%Tommorow `@`s02 `%and `@`s01 `%are to be wed at the wedding chapel.
+ @do addlog
+`%Everyone is welcome to watch these two to be united as one.
+ @end
+
+@if npc/wed`p22.day exists true then do
+ @begin
+ @readfile npc/wed`p22.day
+`p25
+`p26
+ @do `p25
+ @do `s02 is getname `p25
+@if `p20 is 0 then `s01 is Somebody
+@if `p20 is 1 then `s01 is Violet
+@if `p20 is 2 then `s01 is Seth`xAble
+;East StoneBrook
+@if `p20 is 3 then `s01 is Wryn
+@if `p20 is 4 then `s01 is Kess
+@if `p20 is 5 then `s01 is Sherra
+@if `p20 is 6 then `s01 is Hattie
+@if `p20 is 7 then `s01 is Ninna
+@if `p20 is 8 then `s01 is Georgie
+@if `p20 is 9 then `s01 is Nicki
+@if `p20 is 10 then `s01 is Gei
+@if `p20 is 11 then `s01 is Sally
+@if `p20 is 12 then `s01 is Yowli
+@if `p20 is 13 then `s01 is Chip
+@if `p20 is 14 then `s01 is Mrs`xJenkins
+;GreenTree
+@if `p20 is 15 then `s01 is Laura
+@if `p20 is 16 then `s01 is Sheep`xMan
+@if `p20 is 17 then `s01 is Elle
+@if `p20 is 18 then `s01 is Ma
+@if `p20 is 19 then `s01 is Estella
+@if `p20 is 20 then `s01 is Somebody
+@if `p20 is 21 then `s01 is Somebody
+@if `p20 is 22 then `s01 is Somebody
+@if `p20 is 23 then `s01 is Somebody
+@if `p20 is 24 then `s01 is Somebody
+@if `p20 is 25 then `s01 is Somebody
+@if `p20 is 26 then `s01 is Somebody
+@if `p20 is 27 then `s01 is Somebody
+@if `p20 is 28 then `s01 is Somebody
+@if `p20 is 29 then `s01 is Somebody
+@if `p20 is 30 then `s01 is Somebody
+@if `p20 is 31 then `s01 is Somebody
+@if `p20 is 32 then `s01 is Somebody
+@if `p20 is 33 then `s01 is Somebody
+@if `p20 is 34 then `s01 is Somebody
+@if `p20 is 35 then `s01 is Somebody
+@if `p20 is 36 then `s01 is Somebody
+@if `p20 is 37 then `s01 is Somebody
+@if `p20 is 38 then `s01 is Somebody
+@if `p20 is 39 then `s01 is Somebody
+@if `p20 > 39 then `s01 is Somebody
+@if `p20 > 39 then `p20 is 0
+ @do addlog
+`%In two days `@`s02 `%and `@`s01 `%are to be wed at the wedding chapel.
+ @end
+
+@if npc/wed`p23.day exists true then do
+ @begin
+ @readfile npc/wed`p23.day
+`p25
+`p26
+ @do `p25
+ @do `s02 is getname `p25
+@if `p20 is 0 then `s01 is Nobody
+@if `p20 is 1 then `s01 is Violet
+@if `p20 is 2 then `s01 is Seth`xAble
+;East StoneBrook
+@if `p20 is 3 then `s01 is Wryn
+@if `p20 is 4 then `s01 is Kess
+@if `p20 is 5 then `s01 is Sherra
+@if `p20 is 6 then `s01 is Hattie
+@if `p20 is 7 then `s01 is Ninna
+@if `p20 is 8 then `s01 is Georgie
+@if `p20 is 9 then `s01 is Nicki
+@if `p20 is 10 then `s01 is Gei
+@if `p20 is 11 then `s01 is Sally
+@if `p20 is 12 then `s01 is Yowli
+@if `p20 is 13 then `s01 is Chip
+@if `p20 is 14 then `s01 is Mrs`xJenkins
+;GreenTree
+@if `p20 is 15 then `s01 is Laura
+@if `p20 is 16 then `s01 is Sheep`xMan
+@if `p20 is 17 then `s01 is Elle
+@if `p20 is 18 then `s01 is Ma
+@if `p20 is 19 then `s01 is Estella
+@if `p20 is 20 then `s01 is Lango
+;porttown
+@if `p20 is 21 then `s01 is Guy
+;Voodoo Temple
+@if `p20 is 22 then `s01 is Mickey
+@if `p20 is 23 then `s01 is Aerith
+@if `p20 is 24 then `s01 is Invisible`xMan
+@if `p20 is 25 then `s01 is Rudy
+@if `p20 is 26 then `s01 is Julia
+@if `p20 is 27 then `s01 is Kita
+@if `p20 is 28 then `s01 is Elay
+;Gypsy Camp
+@if `p20 is 29 then `s01 is Lilliana
+@if `p20 is 30 then `s01 is Chandler
+@if `p20 is 31 then `s01 is Lela
+@if `p20 is 32 then `s01 is Mirella
+@if `p20 is 33 then `s01 is Sherif
+@if `p20 is 34 then `s01 is Viollica
+@if `p20 is 35 then `s01 is Gimi
+;South of FlagCity
+@if `p20 is 36 then `s01 is Spence
+@if `p20 is 37 then `s01 is Lost`xMan
+@if `p20 is 38 then `s01 is Chance
+@if `p20 is 39 then `s01 is Johnny
+@if `p20 is 40 then `s01 is Old`xWarrior
+;Sosin Village
+@if `p20 is 41 then `s01 is Matt`xLongsword
+@if `p20 is 42 then `s01 is Wiscard
+@if `p20 is 43 then `s01 is Basil
+@if `p20 is 44 then `s01 is Somebody
+@if `p20 is 45 then `s01 is Somebody
+@if `p20 is 46 then `s01 is Somebody
+@if `p20 is 47 then `s01 is Somebody
+;PawnShop
+@if `p20 is 48 then `s01 is Somebody
+@if `p20 is 49 then `s01 is Nick
+;Far North
+@if `p20 is 50 then `s01 is Prince`xCorin
+@if `p20 is 51 then `s01 is Somebody
+@if `p20 is 52 then `s01 is Somebody
+@if `p20 is 53 then `s01 is Somebody
+@if `p20 is 54 then `s01 is Somebody
+@if `p20 is 55 then `s01 is Somebody
+@if `p20 is 56 then `s01 is Somebody
+@if `p20 is 57 then `s01 is Somebody
+@if `p20 is 58 then `s01 is Somebody
+@if `p20 is 59 then `s01 is Somebody
+; Loki Inn
+@if `p20 is 60 then `s01 is Loki`xGuard
+@if `p20 is 61 then `s01 is oDiN
+@if `p20 is 62 then `s01 is Hilda
+@if `p20 is 63 then `s01 is Somebody
+@if `p20 is 64 then `s01 is Somebody
+@if `p20 is 65 then `s01 is Somebody
+@if `p20 is 66 then `s01 is Somebody
+@if `p20 is 67 then `s01 is Somebody
+@if `p20 is 68 then `s01 is Somebody
+@if `p20 is 69 then `s01 is Somebody
+@if `p20 is 70 then `s01 is Somebody
+@if `p20 is 71 then `s01 is Somebody
+@if `p20 is 72 then `s01 is Somebody
+@if `p20 is 73 then `s01 is Somebody
+@if `p20 is 74 then `s01 is Somebody
+@if `p20 is 75 then `s01 is Gorilla`xGirl
+; GreenTree (again)
+@if `p20 is 76 then `s01 is Minister
+@if `p20 is 77 then `s01 is Somebody
+@if `p20 is 78 then `s01 is Somebody
+@if `p20 is 79 then `s01 is Somebody
+;Scorpian's Den
+@if `p20 is 80 then `s01 is Old`xMan`xScorp
+@if `p20 is 81 then `s01 is Famous`xDrunk
+@if `p20 is 82 then `s01 is Scorpian`xLady
+@if `p20 is 83 then `s01 is Drunk`xLady
+@if `p20 is 84 then `s01 is Scorpian`xMaid
+@if `p20 is 85 then `s01 is Somebody
+@if `p20 is 86 then `s01 is Somebody
+@if `p20 is 87 then `s01 is Somebody
+@if `p20 is 88 then `s01 is Somebody
+@if `p20 is 89 then `s01 is Somebody
+;desert figaro's castle
+@if `p20 is 90 then `s01 is Chancellor
+@if `p20 is 91 then `s01 is Edgar
+@if `p20 is 92 then `s01 is Edgars`xGuard
+@if `p20 is 93 then `s01 is Edgars`xGuard
+@if `p20 is 94 then `s01 is Forga
+@if `p20 is 95 then `s01 is Fatiguel
+@if `p20 is 96 then `s01 is Somebody
+@if `p20 is 97 then `s01 is Somebody
+@if `p20 is 98 then `s01 is Somebody
+;Sandcity
+@if `p20 is 99 then `s01 is Maverick
+;KnotWood
+@if `p20 is 100 then `s01 is Andrew
+@if `p20 is 101 then `s01 is Mr.`xAndrew
+@if `p20 is 102 then `s01 is Mrs.`xAndrew
+;Wizards Castle (near StoneBrook)
+@if `p20 is 103 then `s01 is Violetta
+@if `p20 is 104 then `s01 is Sand`xTiger
+@if `p20 is 105 then `s01 is Direct
+;path from stonebrook to greentree and around greentree
+@if `p20 is 106 then `s01 is Begger
+@if `p20 is 107 then `s01 is Sherie
+@if `p20 is 108 then `s01 is Grizelda
+@if `p20 is 109 then `s01 is Edward
+;Sword Castle
+@if `p20 is 110 then `s01 is Thug
+@if `p20 is 111 then `s01 is Mann
+@if `p20 is 112 then `s01 is Mordin
+@if `p20 is 113 then `s01 is Aqua
+@if `p20 is 114 then `s01 is Somebody
+@if `p20 is 115 then `s01 is Somebody
+;BoneTown
+@if `p20 is 116 then `s01 is Dad
+@if `p20 is 117 then `s01 is Rich`xWoman
+@if `p20 is 118 then `s01 is Jesse
+@if `p20 is 119 then `s01 is Boy
+@if `p20 is 120 then `s01 is John
+@if `p20 is 121 then `s01 is Big`xMa
+@if `p20 is 122 then `s01 is Kelley ;a whore
+@if `p20 is 123 then `s01 is Selena
+@if `p20 is 124 then `s01 is Drunk`xMan
+@if `p20 is 125 then `s01 is Bouncer
+@if `p20 is 126 then `s01 is D.J.
+@if `p20 is 127 then `s01 is Somebody
+@if `p20 is 128 then `s01 is Somebody
+@if `p20 is 129 then `s01 is Somebody
+;PortTown - Odin's Keep area
+@if `p20 is 130 then `s01 is Grey`xMan
+@if `p20 is 131 then `s01 is Jennie
+@if `p20 is 132 then `s01 is Rosie
+@if `p20 is 133 then `s01 is Somebody
+;Resort + Glendale near StoneBrook
+@if `p20 is 134 then `s01 is Happy`xPappy
+@if `p20 is 135 then `s01 is Dan
+@if `p20 is 136 then `s01 is Don
+@if `p20 is 137 then `s01 is Lone
+@if `p20 is 138 then `s01 is Dance
+@if `p20 is 139 then `s01 is Somebody
+@if `p20 is 140 then `s01 is Somebody
+@if `p20 is 141 then `s01 is Somebody
+@if `p20 is 142 then `s01 is Somebody
+@if `p20 is 143 then `s01 is Somebody
+@if `p20 is 144 then `s01 is Somebody
+@if `p20 > 144 then `s01 is Somebody
+;--All the Whores!--
+; Female
+@if `p20 is 170 then `s01 is Kelli
+@if `p20 is 171 then `s01 is Karen
+@if `p20 is 172 then `s01 is Mundin
+@if `p20 is 173 then `s01 is Mulan
+@if `p20 is 174 then `s01 is Pocahontas
+@if `p20 is 175 then `s01 is Samira
+@if `p20 is 176 then `s01 is Linda
+@if `p20 is 177 then `s01 is White
+@if `p20 is 178 then `s01 is Red
+@if `p20 is 179 then `s01 is Jasmine
+@if `p20 is 180 then `s01 is Marilyn
+@if `p20 is 181 then `s01 is Yewanda
+@if `p20 is 182 then `s01 is Karlita
+@if `p20 is 183 then `s01 is Kelly
+@if `p20 is 184 then `s01 is Sheila
+@if `p20 is 185 then `s01 is Bibianna
+@if `p20 is 186 then `s01 is Yuko
+@if `p20 is 187 then `s01 is Lisa
+@if `p20 is 188 then `s01 is Kina
+@if `p20 is 189 then `s01 is Kiko
+@if `p20 is 190 then `s01 is Kimbery
+@if `p20 is 191 then `s01 is Cindy
+@if `p20 is 192 then `s01 is Yurri
+@if `p20 is 193 then `s01 is Tina
+@if `p20 is 194 then `s01 is Tanya
+@if `p20 is 195 then `s01 is Saby
+@if `p20 is 196 then `s01 is Asada
+;@if `p20 is 197 then `s01 is Nobody
+@if `p20 is 198 then `s01 is Fast`xFreddy
+@if `p20 is 199 then `s01 is SysOp
+ @do addlog
+`%In three days `@`s02 `%and `@`s01 `%are to be wed at the wedding chapel.
+ @end
+
+@do `p20 + 1
+@if `p20 > 200 then goto end
+@do goto top
+
+@#END
+@closescript
diff --git a/xtrn/lord2/cnw/npcwedd.ref b/xtrn/lord2/cnw/npcwedd.ref
new file mode 100644
index 0000000000000000000000000000000000000000..a284775195ec941f520a28e792f32848bf7edd7a
--- /dev/null
+++ b/xtrn/lord2/cnw/npcwedd.ref
@@ -0,0 +1,1038 @@
+; Script file NPCWEDD.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:37 2001
+
+@DECLARE chapel 000001598
+@DECLARE top 000001894
+@DECLARE mywed 000002446
+@DECLARE guests 000005035
+@DECLARE guests2 000005800
+@DECLARE vows 000011490
+@DECLARE allguests 000019551
+@DECLARE showweds 000019841
+@DECLARE guest1 000019967
+@DECLARE guest2 000020449
+@DECLARE guest3 000020676
+@DECLARE couple1 000020904
+@DECLARE bride 000021130
+@DECLARE norings 000021389
+@DECLARE noway 000021703
+@DECLARE leave 000021919
+@DECLARE end 000022017
+@NOCHECK
+; End of .REF index
+
+;
+; An addition to the cloud Chapel for marriages.
+;
+;RULES of GETTING MARRIED.
+;
+; -Player MUST NOT have the NPC with the to wed them.
+; -The NPC will find their own way here.
+; -Player MUST NOT even go see the NPC on the wedding day.
+; -Player must be here on the day of the wedding, or bad things will happen.
+; -Only female-male couples can wed here. No female-female or male-male.
+; -Player MUST HAVE the RING!, even if player is female.
+; -Player MUST pay (donation) to the church for their services.
+;
+;MARRIAGE GUIDELINES:
+;
+; -Player MUST contact spouce everyday.
+; -If player doesn't play for a few days, then the player SHOULD be with
+; the NPC. Meaning, everytime player finishes for the day, it'll be wise
+; to be with the NPC, have them follow you.
+; -After 1 year of marriage, you can retire with the NPC at the retirement
+; home, and this will mean YOU finished this part of the game for that NPC.
+; (: Now player can start again, and try to marry someone else. :)
+;
+
+@#chapel
+@do `p29 is 0
+@do `p28 is 0
+@if &lasty is 15 then goto leave
+@datanewday npc/visitwed.idf
+@dataload npc/visitwed.idf &playernum `p27
+@if `p27 is 1 then goto end
+@datasave npc/visitwed.idf &playernum 1
+@do `p20 is &time
+@do saybar
+`%Out of respect, you pause for a moment.
+
+@label top
+@if npc/wed`p20.now exists true then do
+ @begin
+ @do `p29 is 1
+ @readfile npc/wed`p20.now
+`p25
+`p26
+ @do `s02 is getname `p25
+ @routine getname in npcname2.ref
+ @if `s02 is `N then goto mywed
+ @do addlog
+`$`N `%visited the wedding of `$`s02 `%and `$`s01`% today.
+ @do saybar
+`%A wedding is about to start, you'd better take a seat.
+ @key
+ @routine guests
+ @do goto end
+ @end
+@do `p20 + 1
+@if `p20 > 200 then goto end
+
+@do goto top
+
+@label mywed
+@if `i78 < 1 then goto norings
+@if &sex is 1 then do
+ @begin
+ @do `p28 is 2
+@do saybar
+`$Guests: `%sshh!, here comes the groom.
+@do move 43 16
+@do write
+`r1`%
+@do move 43 16
+@do write
+`w`r1`x
+@do move 43 15
+@do write
+`r1`%
+@do move 43 15
+@do write
+`w`r1`x
+@do move 43 14
+@do write
+`r1`%
+@do move 43 14
+@do write
+`w`w`r1`x
+@do move 43 13
+@do write
+`r1`%
+@do move 43 13
+@do write
+`w`w`r1`x
+@do move 43 12
+@do write
+`r1`%
+@do move 43 12
+@do write
+`w`w`r1`x
+@do move 43 11
+@do write
+`r1`%
+@do move 43 11
+@do write
+`w`w`r1`x
+@do move 43 10
+@do write
+`r1`%
+@do move 43 10
+@do write
+`w`w`r1`x
+@do move 43 9
+@do write
+`r1`%
+@do move 43 9
+@do write
+`w`w`r1`x
+@do move 43 8
+@do write
+`r1`%
+@do move 43 8
+@do write
+`w`w`r1`x
+@do move 43 7
+@do write
+`r1`%
+@do move 43 7
+@do write
+`w`w`r1`$�
+@do move 44 7
+@do write
+`r1`%
+@do saybar
+`%You're sooo nervous. Where could she be?.
+@do x is 44
+@do y is 7
+ @routine guests2
+ @end
+
+@if &sex is 0 then do
+ @begin
+ @do `p28 is 1
+ @routine allguests
+@do saybar
+`$Guests: `%sshh!, here comes the bride.
+@do move 43 16
+@do write
+`r1`%
+@do move 43 16
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 15
+@do write
+`r1`%
+@do move 43 15
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 14
+@do write
+`r1`%
+@do move 43 14
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 13
+@do write
+`r1`%
+@do move 43 13
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 12
+@do write
+`r1`%
+@do saybar
+`%You could see your handsome future husband now.
+@do move 43 12
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 11
+@do write
+`r1`%
+@do move 43 11
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 10
+@do write
+`r1`%
+@do move 43 10
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 9
+@do write
+`r1`%
+@do move 43 9
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 8
+@do write
+`r1`%
+@do move 43 8
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 7
+@do write
+`r1`%
+@do move 43 7
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`$�
+@do move 42 7
+@do write
+`r1`%
+ @end
+@do goto vows
+@closescript
+
+@label guests
+@drawmap
+@do move 43 14
+;you move automaticly to sit down
+@do write
+`w`r1`%
+@do move 43 14
+@do write
+`w`r1`x
+@do move 43 13
+@do write
+`r1`%
+@do move 43 13
+@do write
+`w`r1`x
+@do move 43 12
+@do write
+`r1`%
+@do move 43 12
+@do write
+`w`r1`x
+@do move 43 11
+@do write
+`r1`%
+@do move 43 11
+@do write
+`w`r1`x
+@do move 43 10
+@do write
+`r1`%
+@do move 43 10
+@do write
+`w`r1`x
+@do move 42 10
+@do write
+`r1`%
+@do move 42 10
+@do write
+`w`r1`x
+@do move 41 10
+@do write
+`r1`%
+@do move 41 10
+@do write
+`w`r1`x
+@do move 40 10
+@do write
+`r1`%
+@do move 40 10
+@do write
+`w`r1`x
+@do move 39 10
+@do write
+`r1`%
+@do move 39 10
+@do write
+`w`r1`x
+@do move 38 10
+@do write
+`r1`%
+@do x is 38
+@do y is 10
+
+@label guests2
+;more ppl come in
+@do move 43 16
+@do write
+`r1`!
+@do move 43 16
+@do write
+`w`r1`x
+@do move 43 15
+@do write
+`r1`!
+@do move 43 15
+@do write
+`w`r1`x
+@do move 43 14
+@do write
+`r1`!
+@do move 43 14
+@do write
+`w`r1`x
+@do move 44 14
+@do write
+`r1`!
+@do move 44 14
+@do write
+`w`r1`x
+@do move 45 14
+@do write
+`r1`!
+@do move 45 14
+@do write
+`w`r1`x
+@do move 46 14
+@do write
+`r1`!
+@do move 46 14
+@do write
+`w`r1`x
+@do move 47 14
+@do write
+`r1`!
+@do move 47 14
+@do write
+`w`r1`x
+@do move 48 14
+@do write
+`r1`!
+@do move 48 14
+@do write
+`w`r1`x
+@do move 49 14
+@do write
+`r1`!
+@do move 49 14
+@do write
+`w`r1`x
+@do move 50 14
+@do write
+`r1`!
+@do move 50 14
+@do write
+`w`r1`x
+@do move 51 14
+@do write
+`r1`!
+
+;next guy
+@do move 43 16
+@do write
+`r1`@
+@do move 43 16
+@do write
+`w`r1`x
+@do move 43 15
+@do write
+`r1`@
+@do move 43 15
+@do write
+`w`r1`x
+@do move 43 14
+@do write
+`r1`@
+@do move 43 14
+@do write
+`w`r1`x
+@do move 43 13
+@do write
+`r1`@
+@do move 43 13
+@do write
+`w`r1`x
+@do move 43 12
+@do write
+`r1`@
+@do move 43 12
+@do write
+`w`r1`x
+@do move 42 12
+@do write
+`r1`@
+@do move 42 12
+@do write
+`w`r1`x
+@do move 41 12
+@do write
+`r1`@
+@do move 41 12
+@do write
+`w`r1`x
+@do move 40 12
+@do write
+`r1`@
+@do move 40 12
+@do write
+`w`r1`x
+@do move 39 12
+@do write
+`r1`@
+@do move 39 12
+@do write
+`w`r1`x
+@do move 38 12
+@do write
+`r1`@
+@do move 38 12
+@do write
+`w`r1`x
+@do move 37 12
+@do write
+`r1`@
+
+;a couple
+@do move 43 16
+@do write
+`r1`6
+@do move 43 15
+@do write
+`r1`6
+@do move 43 16
+@do write
+`r1`$
+@do move 43 16
+@do write
+`w`w`r1`x
+@do move 43 14
+@do write
+`r1`6
+@do move 43 15
+@do write
+`r1`$
+@do move 43 15
+@do write
+`w`w`r1`x
+@do move 43 13
+@do write
+`r1`6
+@do move 43 14
+@do write
+`r1`$
+@do move 43 14
+@do write
+`w`w`r1`x
+@do move 43 12
+@do write
+`r1`6
+@do move 43 13
+@do write
+`r1`$
+@do move 43 13
+@do write
+`w`w`r1`x
+@do move 44 12
+@do write
+`r1`6
+@do move 43 12
+@do write
+`r1`$
+@do move 43 12
+@do write
+`w`w`r1`x
+@do move 45 12
+@do write
+`r1`6
+@do move 44 12
+@do write
+`r1`$
+@do move 44 12
+@do write
+`w`w`r1`x
+@do move 46 12
+@do write
+`r1`6
+@do move 45 12
+@do write
+`r1`$
+@do move 45 12
+@do write
+`w`w`r1`x
+@do move 47 12
+@do write
+`r1`6
+@do move 46 12
+@do write
+`r1`$
+@do move 46 12
+@do write
+`w`w`r1`x
+@do move 48 12
+@do write
+`r1`6
+@do move 47 12
+@do write
+`r1`$
+@do move 47 12
+@do write
+`w`w`r1`x
+@do move 49 12
+@do write
+`r1`6
+@do move 48 12
+@do write
+`r1`$
+@do move 48 12
+@do write
+`w`w`r1`x
+@do move 50 12
+@do write
+`r1`6
+@do move 49 12
+@do write
+`r1`$
+@do move 49 12
+@do write
+`w`w`r1`x
+@do move 51 12
+@do write
+`r1`6
+@do move 50 12
+@do write
+`r1`$
+@do move 50 12
+@do write
+`w`r1`x
+@do move 52 12
+@do write
+`r1`6
+@do move 51 12
+@do write
+`w`r1`$
+
+;"another player" guest
+@do move 43 16
+@do write
+`r1`7
+@do move 43 16
+@do write
+`w`r1`x
+@do move 43 15
+@do write
+`r1`7
+@do move 43 15
+@do write
+`w`r1`x
+@do move 43 14
+@do write
+`r1`7
+@do move 43 14
+@do write
+`w`r1`x
+@do move 42 14
+@do write
+`r1`7
+@do move 42 14
+@do write
+`w`w`r1`x
+@do move 41 14
+@do write
+`r1`7
+@do move 41 14
+@do write
+`w`w`r1`x
+@do move 40 14
+@do write
+`r1`7
+@do move 40 14
+@do write
+`w`w`r1`x
+@do move 39 14
+@do write
+`r1`7
+@do move 39 14
+@do write
+`w`w`r1`x
+@do move 38 14
+@do write
+`r1`7
+
+;the groom
+@do move 43 16
+@do write
+`r1`8
+@do move 43 16
+@do write
+`w`r1`x
+@do move 43 15
+@do write
+`r1`8
+@do move 43 15
+@do write
+`w`r1`x
+@do move 43 14
+@do write
+`r1`8
+@do move 43 14
+@do write
+`w`w`r1`x
+@do move 43 13
+@do write
+`r1`8
+@do move 43 13
+@do write
+`w`w`r1`x
+@do move 43 12
+@do write
+`r1`8
+@do move 43 12
+@do write
+`w`w`r1`x
+@do move 43 11
+@do write
+`r1`8
+@do move 43 11
+@do write
+`w`w`r1`x
+@do move 43 10
+@do write
+`r1`8
+@do move 43 10
+@do write
+`w`w`r1`x
+@do move 43 9
+@do write
+`r1`8
+@do move 43 9
+@do write
+`w`w`r1`x
+@do move 43 8
+@do write
+`r1`8
+@do move 43 8
+@do write
+`w`w`r1`x
+@do move 43 7
+@do write
+`r1`8
+@do move 43 7
+@do write
+`w`w`r1`$�
+@do move 44 7
+@do write
+`r1`8
+
+;bride
+@do move 43 16
+@do write
+`r1`%
+@do move 43 16
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 15
+@do write
+`r1`%
+@do move 43 15
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 14
+@do write
+`r1`%
+@do move 43 14
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 13
+@do write
+`r1`%
+@do move 43 13
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 12
+@do write
+`r1`%
+@do move 43 12
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 11
+@do write
+`r1`%
+@do move 43 11
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 10
+@do write
+`r1`%
+@do move 43 10
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 9
+@do write
+`r1`%
+@do move 43 9
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 8
+@do write
+`r1`%
+@do move 43 8
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`x
+@do move 43 7
+@do write
+`r1`%
+@do move 43 7
+@do write
+`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`w`r1`$�
+@do move 42 7
+@do write
+`r1`%
+@if `p28 is 1 then goto bridewed
+@if `p28 is 2 then goto groomwed
+@do goto end
+
+@closescript
+
+@label vows
+@show
+`c`r1`$Magistrate S. Caroline Dillon begins:`r0
+`@"`%I publish the Banns of Marriage between `$`s01 `%and `$`s02`%. If
+`%any of you know cause, or just impediment, why these two persons should
+`%not be joined together in holy Matrimony, ye are to declare it.
+`l`l`k
+
+`%And if the persons that are to be married dwell in divers Parishes, the
+`%Banns must be asked in both Parishes; and the Curate of the one Parish
+`%shall not solemnize Matrimony betwixt them, without a Certificate of
+`%the Banns being thrice asked, from the Curate of the other Parish.
+`l`k
+
+`% DEARLY beloved, we are gathered together here in the sight of God, and`l
+`%in the face of this congregation, to join together this Man and this`l
+`%Woman in holy Matrimony; which is an honourable estate, instituted of`l
+`%God in the time of man's innocency, signifying unto us the mystical`l
+`%union that is betwixt Christ and his Church; which holy estate Christ`l
+`%adorned and beautified with his presence, and first miracle that he`l
+`%wrought, in Cana of Galilee; and is commended of Saint Paul to be`l
+`%honourable among all men: and therefore is not by any to be enterprised,`l
+`%nor taken in hand, unadvisedly, lightly, or wantonly, to satisfy men's`l
+`%carnal lusts and appetites, like brute beasts that have no understanding;`l
+`%but reverently, discreetly, advisedly, soberly, and in the fear of God;`l
+`%duly considering the causes for which Matrimony was ordained.`l
+`l`k
+
+`% First, It was ordained for the procreation of children, to be brought`l
+`%up in the fear and nurture of the Lord, and to the praise of his holy Name.`l
+`l`k
+
+`% Secondly, It was ordained for a remedy against sin, and to avoid`l
+`%fornication; that such persons as have not the gift of continency`l
+`%might marry, and keep themselves undefiled members of Christ's body.`l
+`l`k
+
+`% Thirdly, It was ordained for the mutual society, help, and comfort,`l
+`%that the one ought to have of the other, both in prosperity and adversity.`l
+`%Into which holy estate these two persons present come now to be joined.`l
+`%Therefore if any man can shew any just cause, why they may not lawfully`l
+`%be joined together, let him now speak, or else hereafter for ever hold`l
+`%his peace.`l
+`l`k
+
+`% I REQUIRE and charge you both, as ye will answer at the dreadful day of`l
+`%judgement when the secrets of all hearts shall be disclosed, that if`l
+`%either of you know any impediment, why ye may not be lawfully joined`l
+`%together in Matrimony, ye do now confess it. For be ye well assured,`l
+`%that so many as are coupled together otherwise than God's Word doth`l
+`%allow are not joined together by God; neither is their Matrimony lawful.`l
+`%At which day of Marriage, if any man do allege and declare any impediment,`l
+`%why they may not be coupled together in Matrimony, by God's law, or the`l
+`%laws of this Realm; and will be bound, and sufficient sureties with him,`l
+`%to the parties; or else put in a caution (to the full value of such charges`l
+`%as the persons to be married do thereby sustain) to prove his allegation:`l
+`%then the solemnization must be deferred, until such time as the truth be tried.`@"`l
+`l`k
+@if &sex is 1 then do
+@begin
+@do `s03 is `s02
+@do `s04 is `s01
+@end
+@if &sex is 0 then do
+@begin
+@do `s04 is `s02
+@do `s03 is `s01
+@end
+@show
+`c`r1`$Magistrate S. Caroline Dillon talks to `s03:`r0
+
+ `@"`%NWILT thou have this woman to thy wedded wife, to live together after`l
+`%God's ordinance in the holy estate of Matrimony? Wilt thou love her,`l
+`%comfort her, honour, and keep her in sickness and in health; and,`l
+`%forsaking all other, keep thee only unto her, so long as ye both shall live?`@"`l
+
+@if &sex is 1 then do
+ @begin
+ @do `v01 is 1
+ @choice
+YES
+no
+ @if responce is 2 then goto NOWAY
+ @end
+ @show
+`c`r1`$Magistrate S. Caroline Dillon talks to `s04:`r0
+
+`@"`% NWILT thou have this man to thy wedded husband, to live together after`l
+`%God's ordinance in the holy estate of Matrimony? Wilt thou obey him, and`l
+`%serve him, love, honour, and keep him in sickness and in health; and,`l
+`%forsaking all other, keep thee only unto him, so long as ye both shall live?`@"`l
+
+@if &sex is 0 then do
+ @begin
+ @do `v01 is 1
+ @choice
+YES
+no
+ @if responce is 2 then goto NOWAY
+ @end
+ @show
+`c`r1`$Magistrate S. Caroline Dillon talks to both of you:`r0
+
+`% Who giveth this woman to be married to this man?`l
+`% Then shall they give their troth to each other in this manner.`l
+`l`k
+
+`r1`$The Minister, receiving the Woman at her father hands, shall cause
+the Man with his right hand to take the Woman by her right hand, and to
+say after him as followeth. `r0
+
+`r1`$`s03 says his vows:`r0
+
+`@"`%I `s03. take thee `s04. to my wedded wife, to have and to`l
+`%hold from this day forward, for better for worse, for richer for poorer,`l
+`%in sickness and in health, to love and to cherish, till death us do part,`l
+`%according to God's holy ordinance; and thereto I plight thee my troth.`@"`l
+`l`k
+
+`r1`$Then shall they loose their hands; and the Woman, with her right hand
+taking the Man by his right hand, shall likewise say after the Minister,`r0
+
+`r1`$`s04 says her vows:`r0
+
+`@"`%I `s04. take thee `s03. to my wedded husband, to have and
+`%to hold from this day forward, for better for worse, for richer for poorer,
+`%in sickness and in health, to love, cherish, and to obey, till death us do
+`%part, according to God's holy ordinance; and thereto I give thee my troth.`@"`l
+`l`k
+
+`r1`$Then shall they again loose their hands; and the Man shall give unto
+the Woman a Ring, laying the same upon the book with the accustomed duty
+to the Priest and Clerk. And the Priest, taking the Ring, shall deliver
+it unto the Man, to put it upon the fourth finger of the Woman's left
+hand. And the Man holding the Ring there, and taught by the Priest, says,`r0
+
+`@"`%WITH this ring I thee wed, with my body I thee worship, and with all my`l
+`%worldly goods I thee endow: In the Name of the Father, and of the Son,`l
+`%and of the Holy Ghost. Amen.`@"`l
+`l`l`k
+
+`r1`$Then the Man leaving the Ring upon the fourth finger of the Woman's
+left hand, they shall both kneel down; and the Minister says, `r0
+
+`@"`% Let us pray.`l`l`l`l
+`% O ETERNAL God, Creator and Preserver of all mankind, Giver of all`l
+`%spiritual grace, the Author of everlasting life: Send thy blessing`l
+`%upon these thy servants, this man and this woman, whom we bless in`l
+`%thy Name; that, as Isaac and Rebecca lived faithfully together, so`l
+`%these persons may surely perform and keep the vow and covenant betwixt`l
+`%them made, (whereof this Ring given and received is a token and pledge,)`l
+`%and may ever remain in perfect love and peace together, and live`l
+`%according to thy laws; through Jesus Christ our Lord. Amen.`@"`l
+`l`k
+
+`r1`$Then the Priest join their right hands together, and says,`r0
+`l`l`l
+
+`@"`%Those whom God hath joined together let no man put asunder.`@"`l
+
+`r1`$Then the Minister speak unto the people. `r0
+
+`@"`%FORASMUCH as `s02. and `s01. have consented together`l
+`%in holy wedlock, and`l have witnessed the same before God and this company,`l
+`%and thereto have given and pledged their troth either to other, and have`l
+`%declared the same by giving and receiving of a Ring, and by joining of`l
+`%hands; I pronounce that they be Man and Wife together, In the Name`l
+`%of the Father, and of the Son, and of the Holy Ghost. Amen.`l
+`l`l`l`l`k
+`k
+@deletefile npc/wed`p20.day
+@datasave npc/npcwed.idf `p70 &playernum
+@dataload npc/npc-`p70 &playernum `p25
+@do `p25 + 15
+@if `p25 > 200 then `p25 is 200
+@datasave npc/npc-`p70 &playernum `p25
+@datasave npc/npcstats `p &playernum 6
+
+@do goto end
+
+--------------------------------------------------------------------------------
+@#allguests
+ @do move 51 14
+ @do write
+`r1`!
+ @do move 37 12
+ @do write
+`r1`@
+ @do move 38 14
+ @do write
+`r1`7
+ @do move 52 12
+ @do write
+`r1`6
+ @do move 51 12
+ @do write
+`w`r1`$
+@closescript
+
+@label showweds
+ @do move 42 7
+ @do write
+`r1`%
+ @do move 43 7
+ @do write
+`r1`8
+@closescript
+
+@#guest1
+@if `p29 is 1 then do
+ @begin
+ @routine allguests
+ @routine showweds
+ @do moveback
+ @if `p26 NOT 1 then do
+ @begin
+ @do saybar
+`$Violet: `%I love weddings, I can't wait until I get married.
+ @end
+ @if `p26 IS 1 then do
+ @begin
+ @do saybar
+`$Guest1: `%I love weddings, I go to all of them.
+ @end
+ @end
+@closescript
+
+@#guest2
+@if `p29 is 1 then do
+ @begin
+ @routine allguests
+ @routine showweds
+ @do moveback
+ @do saybar
+`$Guest2: `%I love weddings, I go to all of them.
+ @end
+@closescript
+
+@#guest3
+@if `p29 is 1 then do
+ @begin
+ @routine allguests
+ @routine showweds
+ @do moveback
+ @do saybar
+`$Guest3: `%I love weddings, I go to all of them.
+ @end
+@closescript
+
+@#couple1
+@if `p29 is 1 then do
+ @begin
+ @routine allguests
+ @routine showweds
+ @do moveback
+ @do saybar
+`$Couple: `%I love weddings, I go to all of them.
+ @end
+@closescript
+
+@#bride
+@if `p29 is 1 then do
+ @begin
+ @routine showweds
+ @routine allguests
+ @do moveback
+ @do saybar
+`$`s01 and `s02 are kissing, you can't seem to get their attention now.
+ @end
+@closescript
+
+
+
+@label norings
+@do x is 59
+@do y is 10
+@do map is 74
+@loadmap &map
+@do quebar
+`$`N: `%OHH YAH!, I gotta get the `@rings `%TODAY! AHHHHHHH!!! I'll be back.
+@do quebar
+`$`N: `@THE RINGS, THE RINGS, how could I forget?
+@do addlog
+`$`N `%forgot the RINGs for their wedding!
+@drawmap
+@update
+@closescript
+
+@label NOWAY
+@drawmap
+@do addlog
+`$`s02 `%REJECTED `s01 at the alter!
+@do saybar
+`$`N: `%I can't take it anymore, I DON'T LOVE YOU!
+@datasave npc/npc-`p70.idf &playernum -50
+@do `p08 - 20
+@update
+@closescript
+
+@#leave
+@do x is 59
+@do y is 10
+@do map is 74
+@loadmap &map
+@drawmap
+@update
+@closescript
+
+@#END
+@closescript
diff --git a/xtrn/lord2/cnw/npcwith.ref b/xtrn/lord2/cnw/npcwith.ref
new file mode 100644
index 0000000000000000000000000000000000000000..9c11b3d519e110937e4c26249c4f287249d30e12
--- /dev/null
+++ b/xtrn/lord2/cnw/npcwith.ref
@@ -0,0 +1,207 @@
+; Script file NPCWITH.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:16 2001
+
+@DECLARE getname 000000156
+@NOCHECK
+; End of .REF index
+
+@#getname
+@if `p71 is 0 then `s01 is Nobody
+@if `p71 is 1 then `s01 is Violet
+@if `p71 is 2 then `s01 is Seth`xAble
+;East StoneBrook
+@if `p71 is 3 then `s01 is Wryn
+@if `p71 is 4 then `s01 is Kess
+@if `p71 is 5 then `s01 is Sherra
+@if `p71 is 6 then `s01 is Hattie
+@if `p71 is 7 then `s01 is Ninna
+@if `p71 is 8 then `s01 is Georgie
+@if `p71 is 9 then `s01 is Nicki
+@if `p71 is 10 then `s01 is Gei
+@if `p71 is 11 then `s01 is Sally
+@if `p71 is 12 then `s01 is Yowli
+@if `p71 is 13 then `s01 is Chip
+@if `p71 is 14 then `s01 is Mrs`xJenkins
+;GreenTree
+@if `p71 is 15 then `s01 is Laura
+@if `p71 is 16 then `s01 is Sheep`xMan
+@if `p71 is 17 then `s01 is Elle
+@if `p71 is 18 then `s01 is Ma
+@if `p71 is 19 then `s01 is Estella
+@if `p71 is 20 then `s01 is Lango
+;porttown
+@if `p71 is 21 then `s01 is Guy
+;Voodoo Temple
+@if `p71 is 22 then `s01 is Mickey
+@if `p71 is 23 then `s01 is Aerith
+@if `p71 is 24 then `s01 is Invisible`xMan
+@if `p71 is 25 then `s01 is Rudy
+@if `p71 is 26 then `s01 is Julia
+@if `p71 is 27 then `s01 is Kita
+@if `p71 is 28 then `s01 is Elay
+;Gypsy Camp
+@if `p71 is 29 then `s01 is Lilliana
+@if `p71 is 30 then `s01 is Chandler
+@if `p71 is 31 then `s01 is Lela
+@if `p71 is 32 then `s01 is Mirella
+@if `p71 is 33 then `s01 is Sherif
+@if `p71 is 34 then `s01 is Viollica
+@if `p71 is 35 then `s01 is Gimi
+;South of FlagCity
+@if `p71 is 36 then `s01 is Spence
+@if `p71 is 37 then `s01 is Lost`xMan
+@if `p71 is 38 then `s01 is Chance
+@if `p71 is 39 then `s01 is Johnny
+@if `p71 is 40 then `s01 is Old`xWarrior
+;Sosin Village
+@if `p71 is 41 then `s01 is Matt`xLongsword
+@if `p71 is 42 then `s01 is Wiscard
+@if `p71 is 43 then `s01 is Basil
+@if `p71 is 44 then `s01 is Somebody
+@if `p71 is 45 then `s01 is Somebody
+@if `p71 is 46 then `s01 is Somebody
+@if `p71 is 47 then `s01 is Somebody
+;PawnShop
+@if `p71 is 48 then `s01 is Somebody
+@if `p71 is 49 then `s01 is Nick
+;Far North
+@if `p71 is 50 then `s01 is Prince`xCorin
+@if `p71 is 51 then `s01 is Somebody
+@if `p71 is 52 then `s01 is Somebody
+@if `p71 is 53 then `s01 is Somebody
+@if `p71 is 54 then `s01 is Somebody
+@if `p71 is 55 then `s01 is Somebody
+@if `p71 is 56 then `s01 is Somebody
+@if `p71 is 57 then `s01 is Somebody
+@if `p71 is 58 then `s01 is Somebody
+@if `p71 is 59 then `s01 is Somebody
+; Loki Inn
+@if `p71 is 60 then `s01 is Loki`xGuard
+@if `p71 is 61 then `s01 is oDiN
+@if `p71 is 62 then `s01 is Hilda
+@if `p71 is 63 then `s01 is Somebody
+@if `p71 is 64 then `s01 is Somebody
+@if `p71 is 65 then `s01 is Somebody
+@if `p71 is 66 then `s01 is Somebody
+@if `p71 is 67 then `s01 is Somebody
+@if `p71 is 68 then `s01 is Somebody
+@if `p71 is 69 then `s01 is Somebody
+@if `p71 is 70 then `s01 is Somebody
+@if `p71 is 71 then `s01 is Somebody
+@if `p71 is 72 then `s01 is Somebody
+@if `p71 is 73 then `s01 is Somebody
+@if `p71 is 74 then `s01 is Somebody
+@if `p71 is 75 then `s01 is Gorilla`xGirl
+; GreenTree (again)
+@if `p71 is 76 then `s01 is Minister
+@if `p71 is 77 then `s01 is Somebody
+@if `p71 is 78 then `s01 is Somebody
+@if `p71 is 79 then `s01 is Somebody
+;Scorpian's Den
+@if `p71 is 80 then `s01 is Old`xMan`xScorp
+@if `p71 is 81 then `s01 is Famous`xDrunk
+@if `p71 is 82 then `s01 is Scorpian`xLady
+@if `p71 is 83 then `s01 is Drunk`xLady
+@if `p71 is 84 then `s01 is Scorpian`xMaid
+@if `p71 is 85 then `s01 is Somebody
+@if `p71 is 86 then `s01 is Somebody
+@if `p71 is 87 then `s01 is Somebody
+@if `p71 is 88 then `s01 is Somebody
+@if `p71 is 89 then `s01 is Somebody
+;desert figaro's castle
+@if `p71 is 90 then `s01 is Chancellor
+@if `p71 is 91 then `s01 is Edgar
+@if `p71 is 92 then `s01 is Edgars`xGuard
+@if `p71 is 93 then `s01 is Edgars`xGuard
+@if `p71 is 94 then `s01 is Forga
+@if `p71 is 95 then `s01 is Fatiguel
+@if `p71 is 96 then `s01 is Somebody
+@if `p71 is 97 then `s01 is Somebody
+@if `p71 is 98 then `s01 is Somebody
+;Sandcity
+@if `p71 is 99 then `s01 is Maverick
+;KnotWood
+@if `p71 is 100 then `s01 is Andrew
+@if `p71 is 101 then `s01 is Mr.`xAndrew
+@if `p71 is 102 then `s01 is Mrs.`xAndrew
+;Wizards Castle (near StoneBrook)
+@if `p71 is 103 then `s01 is Violetta
+@if `p71 is 104 then `s01 is Sand`xTiger
+@if `p71 is 105 then `s01 is Direct
+;path from stonebrook to greentree and around greentree
+@if `p71 is 106 then `s01 is Begger
+@if `p71 is 107 then `s01 is Sherie
+@if `p71 is 108 then `s01 is Grizelda
+@if `p71 is 109 then `s01 is Edward
+;Sword Castle
+@if `p71 is 110 then `s01 is Thug
+@if `p71 is 111 then `s01 is Mann
+@if `p71 is 112 then `s01 is Mordin
+@if `p71 is 113 then `s01 is Aqua
+@if `p71 is 114 then `s01 is Somebody
+@if `p71 is 115 then `s01 is Somebody
+;BoneTown
+@if `p71 is 116 then `s01 is Dad
+@if `p71 is 117 then `s01 is Rich`xWoman
+@if `p71 is 118 then `s01 is Jesse
+@if `p71 is 119 then `s01 is Boy
+@if `p71 is 120 then `s01 is John
+@if `p71 is 121 then `s01 is Big`xMa
+@if `p71 is 122 then `s01 is Kelley ;a whore
+@if `p71 is 123 then `s01 is Selena
+@if `p71 is 124 then `s01 is Drunk`xMan
+@if `p71 is 125 then `s01 is Bouncer
+@if `p71 is 126 then `s01 is D.J.
+@if `p71 is 127 then `s01 is Somebody
+@if `p71 is 128 then `s01 is Somebody
+@if `p71 is 129 then `s01 is Somebody
+;PortTown - Odin's Keep area
+@if `p71 is 130 then `s01 is Grey`xMan
+@if `p71 is 131 then `s01 is Jennie
+@if `p71 is 132 then `s01 is Rosie
+@if `p71 is 133 then `s01 is Somebody
+;Resort + Glendale near StoneBrook
+@if `p71 is 134 then `s01 is Happy`xPappy
+@if `p71 is 135 then `s01 is Dan
+@if `p71 is 136 then `s01 is Don
+@if `p71 is 137 then `s01 is Lone
+@if `p71 is 138 then `s01 is Dance
+@if `p71 is 139 then `s01 is Somebody
+@if `p71 is 140 then `s01 is Somebody
+@if `p71 is 141 then `s01 is Somebody
+@if `p71 is 142 then `s01 is Somebody
+@if `p71 is 143 then `s01 is Somebody
+@if `p71 is 144 then `s01 is Somebody
+@if `p71 > 144 then `s01 is Somebody
+;--All the Whores!--
+; Female
+@if `p71 is 170 then `s01 is Kelli
+@if `p71 is 171 then `s01 is Karen
+@if `p71 is 172 then `s01 is Mundin
+@if `p71 is 173 then `s01 is Mulan
+@if `p71 is 174 then `s01 is Pocahontas
+@if `p71 is 175 then `s01 is Samira
+@if `p71 is 176 then `s01 is Linda
+@if `p71 is 177 then `s01 is White
+@if `p71 is 178 then `s01 is Red
+@if `p71 is 179 then `s01 is Jasmine
+@if `p71 is 180 then `s01 is Marilyn
+@if `p71 is 181 then `s01 is Yewanda
+@if `p71 is 182 then `s01 is Karlita
+@if `p71 is 183 then `s01 is Kelly
+@if `p71 is 184 then `s01 is Sheila
+@if `p71 is 185 then `s01 is Bibianna
+@if `p71 is 186 then `s01 is Yuko
+@if `p71 is 187 then `s01 is Lisa
+@if `p71 is 188 then `s01 is Kina
+@if `p71 is 189 then `s01 is Kiko
+@if `p71 is 190 then `s01 is Kimbery
+@if `p71 is 191 then `s01 is Cindy
+@if `p71 is 192 then `s01 is Yurri
+@if `p71 is 193 then `s01 is Tina
+@if `p71 is 194 then `s01 is Tanya
+@if `p71 is 195 then `s01 is Saby
+@if `p71 is 196 then `s01 is Asada
+;@if `p71 is 197 then `s01 is Nobody
+@if `p71 is 198 then `s01 is Fast`xFreddy
+@if `p71 is 199 then `s01 is SysOp
+@closescript
diff --git a/xtrn/lord2/cnw/ocean.ref b/xtrn/lord2/cnw/ocean.ref
new file mode 100644
index 0000000000000000000000000000000000000000..31a840e39c93e8a5ef1bb6cff191e23dfeb07bb0
--- /dev/null
+++ b/xtrn/lord2/cnw/ocean.ref
@@ -0,0 +1,1117 @@
+; Script file OCEAN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:34 2001
+
+@DECLARE caught 000001197
+@DECLARE typhoon 000002355
+@DECLARE seafights 000002570
+@DECLARE westsea 000002736
+@DECLARE pirate0 000003370
+@DECLARE under0 000003445
+@DECLARE searand 000003523
+@DECLARE buoy 000004724
+@DECLARE castaway 000005159
+@DECLARE getscuba 000006126
+@DECLARE flee 000006540
+@DECLARE treasure 000006662
+@DECLARE chest 000007210
+@DECLARE kraken 000007753
+@DECLARE seafight1 000008579
+@DECLARE seafight2 000009148
+@DECLARE seafight3 000009672
+@DECLARE seafight4 000010212
+@DECLARE seafight5 000010760
+@DECLARE seafight6 000011311
+@DECLARE seafight7 000011823
+@DECLARE pirate1 000012387
+@DECLARE pirate2 000012950
+@DECLARE pirate3 000013550
+@DECLARE pirate4 000014110
+@DECLARE pirate5 000014649
+@DECLARE pirate6 000015230
+@DECLARE undersea1 000015787
+@DECLARE undersea2 000016352
+@DECLARE undersea3 000016922
+@DECLARE undersea4 000017494
+@DECLARE undersea5 000018085
+@DECLARE ashore 000018653
+@DECLARE kfight 000019040
+@DECLARE kdead 000019688
+@NOCHECK
+; End of .REF index
+
+;--------------------------MONTER/RANDOM REFS-------------------------------
+@#caught
+@busy
+@dataload ocean3.idf &playernum `p20
+@do `t70 is `p20
+@if bitcheck `t70 1 1 then do
+ @begin
+ @show
+`r0`c `r1`% BENEATH THE WAVES `r0
+
+ `2As the maelstrom drags you down deeper and deeper, you dig frantically
+ in your sack for that scuba tank you found earlier. You put it on and
+ gratefully suck in air.
+
+ At the sea bottom, an astonishing sight greets your eyes. A gigantic shell
+ as big as a small town lies there. Phosphorescent algae give enough light
+ to see by, so you decide to explore inside...
+
+ <Hit Enter to contine>
+@do readspecial `s01 c
+@if `s01 is c then do
+ @begin
+ @end
+ @do map is 631
+ @do x is 1
+ @do y is 1
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @show
+`r0`c `r1`% GLUB-GLUB-GLUB! `r0
+
+ `2Just before the last bubble of air escapes your lungs, you catch a
+ glimpse of a strange underwater world. If only you'd had a scuba tank with
+ you....
+
+ <Hit Enter to contine>
+@do readspecial `s01 c
+@if `s01 is c then do
+ @begin
+ @end
+@do enemy is the`xMaelstrom
+@run die in gametxt.ref
+@end
+@closescript
+
+@#typhoon
+@do `p20 is `p03
+@do `p20 / 10
+@do saybar
+Crashing Waves inflict `p20 damage!!
+@do `p02 - `p20
+@if `p02 less 1 then do
+ @begin
+ @do enemy is a`xtyphoon
+ @run die in gametxt.ref
+@closescript
+
+@#seafights
+@do `p20 random 6 1
+@if `p20 is 1 then do
+ @begin
+ @run SEARAND in OCEAN.REF
+ @end
+@busy
+@do `p20 random 7 1
+@do goto seafight`p20
+@closescript
+
+@#westsea
+;random messages for Great Western Ocean
+@do `p20 RANDOM 7 1
+@if `p20 is 1 then `s01 is Barnacle`xBill`xis`xan`xold`xfriend`xof`xPopeye's.
+@if `p20 is 2 then `s01 is You`xlisten`xto`xthe`xsinging`xof`xthe`xwhales.
+@if `p20 is 3 then `s01 is The`xdolphins`xcall`xto`xyou`xto`xcome`xand`xplay.
+@if `p20 is 4 then `s01 is The`xocean`xis`xcompletely`xempty`xand`xquiet.
+@if `p20 is 5 then `s01 is Could`xthe`xtale`xof`xthe`xgiant`xsquid`xbe`xtrue?
+@if `p20 is 6 then `s01 is The`xsun`xand`xthe`xbreeze`xare`xrefreshing.
+@if `p20 is 7 then `s01 is You`xwhistle`xan`xold`xsea`xchantey.
+@do saybar
+`s01
+@closescript
+
+@#pirate0
+@busy
+@do `p20 random 6 1
+@do goto pirate`p20
+@closescript
+
+@#under0
+@busy
+@do `p20 random 5 1
+@do goto undersea`p20
+@closescript
+
+@#SEARAND
+;Chance for alignment raise or drop
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`2You see a lifeboat drifting nearby. Investigate? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is Y then do
+ @begin
+ @show
+`r0`c `r1 `%Aid the unfortunate `r0
+
+ `0A boatload of refugees have no water and their boat is starting to sink
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Help the people out
+Victimize them further
+Leave
+@if response is 1 then do
+ @begin
+ @do `p07 + 1
+ @show
+`\`\ `2You share what water you can spare with them, and help them patch
+ their boat up enough to make it to shore.
+
+ `$YOUR ALIGNMENT GOES UP BY ONE!`b
+`\`k
+@drawmap
+@update
+ @closescript
+ @end
+@if response is 2 then do
+ @begin
+ @do `p07 - 1
+ @show
+`\`\ `2You decide the world has too many refugees already, so you split open
+ their hull with your s&weapon and laugh as they drown.
+
+ `bYOUR ALIGNMENT GOES DOWN BY ONE!`0
+`\`k
+@drawmap
+@update
+ @closescript
+ @end
+@end
+@drawmap
+@update
+@do saybar
+You ignore the boat and continue on your way.
+
+;------------------------------HOTSPOTS-------------------------------------
+@#buoy
+@do moveback
+@busy
+@show
+`r0`c `r1`% A marker buoy at sea `r0
+
+ `2ArrisVille `$11`2 Leagues North and West
+ Sosen Village `$8`2 Leagues North and East
+ FlagCity `$6`2 Leagues South
+ Bone Town `$11`2 Leagues South
+ DragonTooth Island `$15`2 Leagues East
+ PortTown `$29`2 Leagues East
+
+`k
+@drawmap
+@update
+@closescript
+
+@#castaway
+@do moveback
+@dataload ocean3.idf &playernum `p20
+@do `t70 is `p20
+@if bitcheck `t70 1 1 then do
+ @begin
+ @do saybar
+You find the bones of long-dead castaways
+ @closescript
+ @end
+@if bitcheck `t70 1 0 then do
+ @begin
+ @busy
+ @clear screen
+ @displayfile castaway.ans NOPAUSE
+ @key
+@fight
+;name
+Starving Castaway
+;string said when you see him
+With a gibbering howl, the wretch springs upon you...
+;power move kill string
+You put the creature out of it's misery
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+claws at you with 4-inch fingernails|230
+tries to bite a chunk out of you|230
+slashes with a sharpened clamshell|230
+NONE|NONE
+NONE|NONE
+;defense
+120
+;gold reward
+0
+;experience
+1280
+;hit points
+1080
+;if win: ref file|name or NONE
+OCEAN.REF|GETSCUBA
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+OCEAN.REF|FLEE
+@end
+@closescript
+
+@#GETSCUBA
+@busy
+@show
+`c
+ `2Having defeated the crazed cannibal, you go over the reef for anything
+ of possible value...
+
+ `0You find, of all things, a fully charged scuba tank.
+
+ `%YOU RECEIVE TEN QUEST POINTS
+
+`k
+
+@do `p18 + 10
+@dataload ocean3.idf &playernum `p20
+@do `t70 is `p20
+@bitset `t70 1 1
+@do `p20 is `t70
+@datasave ocean3.idf &playernum `p20
+@drawmap
+@update
+@closescript
+
+@#FLEE
+@drawmap
+@update
+@do quebar
+You have no choice but to run. Your cheeks burn with shame...
+@closescript
+
+@#TREASURE
+@do moveback
+@busy
+@show
+`r0`c `r1 It's a Treasure Chest `r0
+
+ `2You break open the pirates' treasure chest to see what spoils are there...
+@datanewday ocean2.idf
+@dataload ocean2.idf &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @show
+
+ `2The chest is empty. Maybe they'll have some loot another day
+`k
+ @end
+@if `p20 is 0 then do
+ @begin
+ @do `p20 RANDOM 9 1
+ @do `p20 * 5
+ @do `p19 + `p20
+ @datasave ocean2.idf &playernum 1
+ @show
+
+ `0You find `$`p20 `0gems!!
+`k
+ @end
+@drawmap
+@update
+@closescript
+
+@#CHEST
+@do moveback
+@busy
+@show
+`r0`c `r1 The Treasure Chest `r0
+
+ `2You break open the pirates' treasure chest to see what spoils are there...
+@datanewday ocean.idf
+@dataload ocean.idf &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @show
+
+ `2The chest is empty. Maybe they'll have some loot another day
+`k
+ @end
+@if `p20 is 0 then do
+ @begin
+ @do `p20 RANDOM 9 1
+ @do `p20 * 5
+ @do `p19 + `p20
+ @datasave ocean.idf &playernum 1
+ @show
+
+ `0You find `$`p20 `0gems!!
+`k
+ @end
+@drawmap
+@update
+@closescript
+
+@#KRAKEN
+@do moveback
+@dataload ocean3.idf &playernum `p20
+@do `t70 is `p20
+@if bitcheck `t70 2 1 then do
+ @begin
+ @drawmap
+ @update
+ @do saybar
+You find the empty lair of a now-dead monster
+ @closescript
+ @end
+@offmap
+@show
+`r0`c `r1`% TERROR IN THE DEEP `r0
+
+ `2Uh-oh! Apparently this shell isn't quite as abandoned as you thought!
+ It seems as if the legend of the giant squid has a basis in fact. The
+ enormous Kraken lies here at the bottom of the sea, and YOU just woke it
+ up...
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Run like heck
+Fight the Kraken
+@if response is 1 then do
+ @begin
+ @run ashore in ocean.ref
+ @end
+@if response is 2 then do
+ @begin
+ @run Kfight in ocean.ref
+ @end
+@closescript
+
+;-------------------------------MONSTERS------------------------------------
+@#SEAFIGHT1
+@fight
+;name
+Great White Shark
+;string said when you see him
+You hear this "dum-da-dum-da" music...
+;power move kill string
+This is the one that didn't get away!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites with it's pearly whites|150
+rams you head on|100
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+50
+;gold reward
+500
+;experience
+300
+;hit points
+500
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#SEAFIGHT2
+@fight
+;name
+Man O'War
+;string said when you see him
+A mighty ship of the line comes about
+;power move kill string
+You scuttled it!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+fires a 60-gun broadsides|120
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+75
+;gold reward
+950
+;experience
+280
+;hit points
+500
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#SEAFIGHT3
+@fight
+;name
+Lamprey Eel
+;string said when you see him
+Eeww, Gross! A bloodsucking parasite
+;power move kill string
+Take that, Sucker!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+latches on with it's sucker|100
+sucks your blood|130
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+50
+;gold reward
+300
+;experience
+150
+;hit points
+300
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#SEAFIGHT4
+@fight
+;name
+Ancient Mariner
+;string said when you see him
+Who is this greybeard loon?
+;power move kill string
+You've heard the story already
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+uses his hypnotic gaze|200
+tells his ghastly tale|130
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+75
+;gold reward
+450
+;experience
+280
+;hit points
+500
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#SEAFIGHT5
+@fight
+;name
+Flying Dutchman
+;string said when you see him
+Out of the past comes an omen of doom
+;power move kill string
+They will wander no more
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+places a curse on you|180
+drains your life force|200
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+95
+;gold reward
+375
+;experience
+300
+;hit points
+500
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#SEAFIGHT6
+@fight
+;name
+Seagull
+;string said when you see him
+A pesky bird harasses you
+;power move kill string
+You pluck out all it's feathers
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+pecks at you|100
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+50
+;gold reward
+200
+;experience
+100
+;hit points
+200
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#SEAFIGHT7
+@fight
+;name
+Captain Ahab
+;string said when you see him
+An insane whaling captain attacks you for no reason
+;power move kill string
+You feed him to the White Whale
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+throws a harpoon|125
+invokes the wrath of God|130
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+55
+;gold reward
+425
+;experience
+125
+;hit points
+399
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#PIRATE1
+@fight
+;name
+Irate Pirate
+;string said when you see him
+That "arr" sound is louder than ever...
+;power move kill string
+You chop him up into "pieces of eight"!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+chops with his cutlass|150
+fires a pistol ball|200
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+100
+;gold reward
+1005
+;experience
+500
+;hit points
+500
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#PIRATE2
+@fight
+;name
+Long John Silver
+;string said when you see him
+You're warned by the thumping of a peg-leg behind you
+;power move kill string
+Now he needs a peg-everything.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+has his trained parrot dive-bomb you|200
+gags you with his filthy long-johns|150
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+75
+;gold reward
+500
+;experience
+500
+;hit points
+600
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#PIRATE3
+@fight
+;name
+Captain Blood
+;string said when you see him
+An unusually clean-looking pirate attacks
+;power move kill string
+You make him live up to his name
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+swings on a rope at you|175
+drops a sail over you|150
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+87
+;gold reward
+770
+;experience
+425
+;hit points
+550
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#PIRATE4
+@fight
+;name
+Captain Bligh
+;string said when you see him
+"This is mutiny!" you hear him bellow
+;power move kill string
+You throw him overboard!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+keelhauls you|190
+gives you fifty lashes|180
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+85
+;gold reward
+800
+;experience
+440
+;hit points
+770
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#PIRATE5
+@fight
+;name
+Software Pirate
+;string said when you see him
+This is a really, really sorry joke
+;power move kill string
+The police confiscate his computer
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hacks your password with a trojan horse|195
+cracks the registration code|150
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+75
+;gold reward
+500
+;experience
+300
+;hit points
+500
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#PIRATE6
+@fight
+;name
+Eric the Red
+;string said when you see him
+A sea rover of the past confronts you
+;power move kill string
+Now he's "Eric the Dead"
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+swings a huge battle-ax|195
+butts with his horned helmet|150
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+85
+;gold reward
+1000
+;experience
+550
+;hit points
+800
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#UNDERSEA1
+@fight
+;name
+King Neptune
+;string said when you see him
+It's the king of the sea himself!
+;power move kill string
+The king is dead, long live the king
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+jabs with his Trident|300
+summons the elements|250
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+150
+;gold reward
+5000
+;experience
+1200
+;hit points
+1200
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+OCEAN.REF|ASHORE
+
+@#UNDERSEA2
+@fight
+;name
+Giant Clam
+;string said when you see him
+You put your foot in the wrong place
+;power move kill string
+You're left with a clammy feeling...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+clamps shut on you|225
+squirts disgusting clam juice|200
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+100
+;gold reward
+3000
+;experience
+800
+;hit points
+900
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+OCEAN.REF|ASHORE
+
+@#UNDERSEA3
+@fight
+;name
+Renegade U-Boat
+;string said when you see him
+For some, the war never ended
+;power move kill string
+You leave the shatterd hulk on the bottom
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+launches a torpedo|275
+drops a depth charge on you|300
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+125
+;gold reward
+4575
+;experience
+950
+;hit points
+1100
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+OCEAN.REF|ASHORE
+
+@#UNDERSEA4
+@fight
+;name
+Ugly Mermaid
+;string said when you see him
+And you thought all mermaids were beautiful...
+;power move kill string
+You decide to throw this one back
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+screeches her awful singing|225
+sickens you with her bad looks|200
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+145
+;gold reward
+3175
+;experience
+1010
+;hit points
+1050
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+OCEAN.REF|ASHORE
+
+@#UNDERSEA5
+@fight
+;name
+Sparky the Seal
+;string said when you see him
+This cheerful pest won't leave you alone
+;power move kill string
+Sparky has "UURRKK"d his last
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+bounces you on his nose|200
+gives you a slimy kiss|300
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+105
+;gold reward
+3388
+;experience
+882
+;hit points
+1098
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+OCEAN.REF|ASHORE
+
+@#ASHORE
+@busy
+@show
+`r0`c `r1 ESCAPE FROM THE DEPTHS `r0
+
+ `2You ruefully admit that the undersea world is just too dangerous for you,
+ at least until you can become stronger. You follow an upward slope until
+ at last you break the surface by the shores of a tropical island.
+
+`k
+@do map is 558
+@do x is 43
+@do y is 18
+@loadmap &map
+@drawmap
+@update
+@closescript
+
+@#KFIGHT
+@clear screen
+@displayfile kraken.ans NOPAUSE
+@fight
+;name
+Kraken
+;string said when you see him
+The monster of the deep reaches out for you...
+;power move kill string
+Now he's just so much sushi!!!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+crushes you in it's tentacles|500
+bites with it's beak|400
+spews poisoned ink|450
+NONE|NONE
+NONE|NONE
+;defense
+300
+;gold reward
+0
+;experience
+5000
+;hit points
+3000
+;if win: ref file|name or NONE
+OCEAN.REF|KDEAD
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+OCEAN.REF|ASHORE
+@closescript
+
+@#KDEAD
+@offmap
+@dataload ocean3.idf &playernum `p20
+@do `t70 is `p20
+@bitset `t70 2 1
+@do `p20 is `t70
+@datasave ocean3.idf &playernum `p20
+@do `p18 + 20
+@show
+`r0`c `r1 VICTORY AT SEA `r0
+
+ `2You've defeated the toughest monster the sea has to offer!
+
+ `%YOU RECEIVE TWENTY QUEST POINTS!
+
+`k
+ `2With the monster dead, you find hidden in it's lair several magical
+ teleportation stones! You read the inscriptions...
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Northlands
+Khosi Village
+PukeWorld
+Snowy Pass
+BoneTown
+PortTown
+Desert Oasis
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0You get carried away! `k
+ @do map is 59
+ @do x is 36
+ @do y is 8
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0You get carried away! `k
+ @do map is 195
+ @do x is 58
+ @do y is 14
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0You get carried away! `k
+ @do map is 1512
+ @do x is 1
+ @do y is 1
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `0You get carried away! `k
+ @do map is 1498
+ @do x is 49
+ @do y is 6
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 5 then do
+ @begin
+ @show
+`\`\ `0You get carried away! `k
+ @do map is 1572
+ @do x is 68
+ @do y is 5
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 6 then do
+ @begin
+ @show
+`\`\ `0You get carried away! `k
+ @do map is 956
+ @do x is 11
+ @do y is 14
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 7 then do
+ @begin
+ @show
+`\`\ `0You get carried away! `k
+ @do map is 1029
+ @do x is 27
+ @do y is 10
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+ @end
+@closescript
diff --git a/xtrn/lord2/cnw/ocean2.ref b/xtrn/lord2/cnw/ocean2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e4ae2d9b72c0e85a756193758bc9d17cbd064a2d
--- /dev/null
+++ b/xtrn/lord2/cnw/ocean2.ref
@@ -0,0 +1,21 @@
+; Script file OCEAN2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:34 2001
+
+@DECLARE maelstrom 000000159
+@NOCHECK
+; End of .REF index
+
+@#maelstrom
+@do `p20 is x
+@do `p20 - 78
+@do `p20 * x
+@do `p21 is y
+@do `p21 - 22
+@do `p21 * y
+@do `p21 * 5
+@do `p20 + `p21
+@if `p20 less -1901 then do
+ @begin
+ @run caught in ocean.ref
+ @end
+@closescript
+; in it's own REF to speed up access time
diff --git a/xtrn/lord2/cnw/ocean3.ref b/xtrn/lord2/cnw/ocean3.ref
new file mode 100644
index 0000000000000000000000000000000000000000..d1ae90097a8a63ee47d57205b12f974cd59625f9
--- /dev/null
+++ b/xtrn/lord2/cnw/ocean3.ref
@@ -0,0 +1,62 @@
+; Script file OCEAN3.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:34 2001
+
+@DECLARE equip1 000000210
+@DECLARE pontest 000000465
+@DECLARE portdock 000000817
+@NOCHECK
+; End of .REF index
+
+@#equip1
+@dataload ocean3.idf &playernum `p20
+@do `t70 is `p20
+@if bitcheck `t70 0 0 then do
+ @begin
+ @bitset `t70 0 1
+ @do `p20 is `t70
+ @datasave ocean3.idf &playernum `p20
+ @do saybar
+You find a pair of Pontoon Boots!
+ @end
+@closescript
+
+@#pontest
+@dataload ocean3.idf &playernum `p20
+@do `t70 is `p20
+@if bitcheck `t70 0 0 then do
+ @begin
+ @do moveback
+ @do quebar
+You gaze out longingly at the sea
+ @end
+@if bitcheck `t70 0 1 then do
+ @begin
+ @if x less &lastx then do
+ @begin
+ @do saybar
+You put on your Pontoon Boots and step out to sea
+ @end
+ @end
+@closescript
+
+@#portdock
+@dataload ocean3.idf &playernum `p20
+@do `t70 is `p20
+@if bitcheck `t70 0 0 then do
+ @begin
+ @do moveback
+ @do quebar
+You gaze out longingly at the sea
+ @end
+@if bitcheck `t70 0 1 then do
+ @begin
+ @do map is 956
+ @do x is 39
+ @do y is 8
+ @loadmap &map
+ @drawmap
+ @update
+ @do saybar
+You put on your Pontoon Boots and step out to sea
+ @end
+@closescript
+
diff --git a/xtrn/lord2/cnw/odinkeep.ref b/xtrn/lord2/cnw/odinkeep.ref
new file mode 100644
index 0000000000000000000000000000000000000000..5c745120586e34cc97dfdf2267e2a93cf97041c0
--- /dev/null
+++ b/xtrn/lord2/cnw/odinkeep.ref
@@ -0,0 +1,2305 @@
+; Odin's Keep Version 2.00
+; Here it is as promised !
+; 10.5% better than Version 1.02
+; Added : Towers in the castle.
+; Uses : Ericsbar.ref
+; This is the last version folks !
+;
+;
+;
+; Added to CNW NPCs. :)
+;
+;
+@#LAIR
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Dragons Lair `r0
+
+ `2As you walk into the Lair, atop a huge pile of treasure consisting
+ of various gold and silver items, sits a 40 foot tall adult, male gold
+ dragon. You hear a faint Mooing sound, upon closer inspection you see
+ a half eaten cow in the corner of the room.
+
+
+ `0"Greetings, s&sir! I am Vincent your servant. Where will we be
+ flying off to today?" `2the dragon grumbles.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Sosen Village
+Stonepass Lodge
+Bonetown
+Flagcity
+I'll stay here, thanks
+@if responce not 5 then do
+ @begin
+@show
+`c
+`\`\ `0"Climb on my back master, it's a good day for flying!" `2Vincent roars.
+
+`k `2You climb up in the saddle, the magnificent beast lifts off the
+ ground effortlessly. Before too long you are at your destination. A few
+ peasants scatter in fear as Vincent makes a soft landing.
+
+ `0"We are here master, watch your back amongst these other humans."
+
+ `2You watch as Vincent's sparkling golden form disappears into the horizon.
+
+`k
+@if responce is 1 then do
+ @begin
+ ;Sosen village
+ @do x is 38
+ @do y is 5
+ @do map is 456
+ @end
+
+@if responce is 2 then do
+ @begin
+ ;Stonepass Lodge
+ @do x is 40
+ @do y is 11
+ @do map is 880
+ @end
+
+@if responce is 3 then do
+ @begin
+ ;Bonetown
+ @do x is 53
+ @do y is 17
+ @do map is 1572
+ @end
+
+@if responce is 4 then do
+ @begin
+ ;Flagcity
+ @do x is 69
+ @do y is 19
+ @do map is 1092
+ @end
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#NOSWIM
+@do saybar
+`$The water was too cold, try again tomorrow ...
+@end
+
+@#NOMOREFAIRY
+ @show
+
+ `r0`c
+ `0"Come back and see me tomorrow"
+
+`k
+ @drawmap
+ @update
+ @end
+@#NOMORE
+
+@#NOMOREWHORE
+ @show
+
+`r0`c `r1 Booked solid `r0
+
+
+ `0"We are booked up until tomorrow." `2he says.
+ `2You decide to wait until then.
+`\`k
+ @drawmap
+ @update
+ @end
+
+
+
+@#DOC
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Healers `r0
+
+ `2The old doc looks you over for wounds carefully.
+
+`k
+`k
+
+ `%Your wounds are completely healed!
+
+`k
+@do `p02 is `p03
+@drawmap
+@update
+@#NOMORE
+;-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+;---------------------------SWIM ROUTINE---------------------------------
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
+@#SWIM
+@do moveback
+@datanewday swim.idf
+@dataload swim.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto NOSWIM
+@end
+
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`2Do you want to go swimming ? `2[`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+@if `s01 is Y then do
+
+@begin
+ @show
+`r0`c `r1 The Swimming Hole `r0
+
+`2You jump into the ice cold water.
+
+`k
+`$`lCo`l-`lCo`l-`lCo`l-Cold Brrrrrr !
+
+`k
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p04 + 1
+ @show
+ `c`\`\
+ `%YOU FEEL STRONGER !
+
+ `k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `p05 + 1
+ @show
+ `c`\`\
+ `%YOU FEEL MORE AGILE !
+
+ `k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+ @show
+ `c`\`\
+ `%YOU FIND A GEM AT THE BOTTOM OF THE POOL !
+
+ `k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 + 1
+ @show
+ `c`\`\
+ `%YOU GAIN 1 EXTRA HITPOINT !
+
+ `k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 + 1
+ @show
+ `c`\`\
+ `%YOU GAIN 1 EXTRA CHARM POINT !
+
+ `k
+ @end
+
+@datasave swim.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+@do saybar
+`%You are tired of swimming ! Maybe tomorrow ...
+@#NOMORE
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+;-----------------------FAIRY ROUTINE-------------------------------------
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#FAIRY
+@do moveback
+@datanewday fairy.idf
+@dataload fairy.idf &playernum `p20
+@offmap
+@if `p20 = 1 then do
+ @begin
+ @do goto NOMOREFAIRY
+ @end
+
+@show
+`r0`c `r1 Fairy Garden `r0
+
+ `2You have encountered a fairy bathing in the garden pool.
+
+ `0"Oh no not another human ! Spying on me huh? Now that you've seen me
+ I guess I'll have to grant you a wish"`2 she sighs.
+
+`k
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Make a wish
+Try to catch her
+Clap your hands
+Forget the whole thing
+@if responce not 4 then do
+@begin
+@end
+
+@if responce is 1 then do
+
+
+ @begin
+ ;hopefully randomly gives stuff ;>
+@show
+`c
+`0"Ok sweetie, close your eyes and make your wish." `2she says smiling.
+
+`k
+`2You close your eyes and make a wish
+`2When you open your eyes
+
+`2You find `l.`l.`l.`l.
+ @do `p21 random 10 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `i28 + 1
+ @show
+ `%a fishing Pole!
+
+`k
+ @datasave fairy.idf &playernum 1
+ @end
+
+@if `p21 is 2 then do
+ @begin
+ @do `i08 + 1
+ @show
+ `%a Berry pie!
+
+`k
+ @datasave fairy.idf &playernum 1
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+ @show
+ `%a Gem !
+
+`k
+ @datasave fairy.idf &playernum 1
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `i01 + 1
+ @show
+ `%some Wildberries !
+
+`k
+ @datasave fairy.idf &playernum 1
+ @end
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 + 1
+ @show
+ `%1 extra charm point !
+
+`k
+ @datasave fairy.idf &playernum 1
+ @end
+
+@if `p21 is 6 then do
+ @begin
+ @do `i05 + 1
+ @show
+ `%a Green Potion !
+
+`k
+ @datasave fairy.idf &playernum 1
+ @end
+
+@if `p21 is 7 then do
+ @begin
+ @do `i21 + 1
+ @show
+ `%a Travel Pass !
+
+`k
+ @datasave fairy.idf &playernum 1
+ @end
+
+@if `p21 is 8 then do
+ @begin
+ @do `i20 + 1
+ @show
+ `%a World Map !
+
+`k
+ @datasave fairy.idf &playernum 1
+ @end
+
+@if `p21 is 9 then do
+ @begin
+ @do `i40 + 1
+ @show
+ `%a Blue Potion !
+
+`k
+ @datasave fairy.idf &playernum 1
+ @end
+
+@if `p21 is 10 then do
+ @begin
+ @do `i17 + 1
+ @show
+ `%a Gloworm !
+
+`k
+ @datasave fairy.idf &playernum 1
+ @end
+@end
+
+@if responce is 2 then do
+ @begin
+ ;She is pissed
+ @do `p04 - 1
+ @show
+
+`c`2You make a valiant effort to catch the tiny fairy.
+
+`k
+
+`2Your hand connects with a `l.`l.`l.`l.`l.`l. `@VERY ANGRY FAIRY !
+
+`k
+`\ `0"That might have worked somewhere else, but HERE us fairies rule!"
+ `2she slips out of your grasp, and hits you with her wand
+`k
+`\ `%YOU LOSE 1 MUSCLE POINT
+`k
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do `p01 + 1
+ @show
+
+`c`\ `0"Silly thing"`2! `2she smiles `0"You should only clap if I'm near death!
+ `0Here's a gift for being so sweet!"
+
+`k
+ `2She waves her wand over you.
+
+`k
+`\ `%YOU GAIN AN EXTRA EXPERIENCE POINT !
+
+`k
+ @end
+
+ @end
+@end
+ @end
+@drawmap
+@update
+@end
+@#NOMORE
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+;--------------------------BEGIN BAR ROUTINES-------------------------------
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+
+
+@#MAN2
+@do moveback
+ @do `p20 random 10 1
+ @if `p20 is 1 then saybar
+`$Man: `%oDiN is rumored to visit this bar often.
+ @if `p20 is 2 then saybar
+`$Man: `%I've heard tell of a secret passage here.
+ @if `p20 is 3 then saybar
+`$Man: `%I like visiting the women companions here..
+ @if `p20 is 4 then saybar
+`$Man: `%oDiN made this IGM !
+ @if `p20 is 5 then saybar
+`$Man: `%My name is Tim.
+ @if `p20 is 6 then saybar
+`$Man: `%Have you visited the Fairy behind the castle ?
+ @if `p20 is 7 then saybar
+`$Man: `%Buy Odin's Keep it's worth the money.
+ @if `p20 is 8 then saybar
+`$Man: `%I tried catching the fairy once.
+ @if `p20 is 9 then saybar
+`$Man: `%I once slew the spirit of the mighty Red Dragon !
+ @if `p20 is 10 then saybar
+`$Man: `%I'm in love with Yewanda.
+
+
+@#NOMORE
+
+@#WOMAN1
+@do moveback
+ @do `p20 random 6 1
+ @if `p20 is 1 then saybar
+`$Woman: `%I'm in love with oDiN !
+ @if `p20 is 2 then saybar
+`$Woman: `%I never kiss on the first date.
+ @if `p20 is 3 then saybar
+`$Woman: `%I found a secret passage here once.
+ @if `p20 is 4 then saybar
+`$Woman: `%My name is Yin.
+ @if `p20 is 5 then saybar
+`$Woman: `%The Bartender is a wimp.
+ @if `p20 is 6 then saybar
+`$Woman: `%The fire sure adds romance.
+
+@#NOMORE
+
+@#DRUNK
+@do moveback
+ @do `p20 random 6 1
+ @if `p20 is 1 then saybar
+`$Drunk: `%Buurrrrpppp !
+ @if `p20 is 2 then saybar
+`$Drunk: `%Give me lib-er-tea or gimmi -hic- sex.
+ @if `p20 is 3 then saybar
+`$Drunk: `%How dry I -hic- am.
+ @if `p20 is 4 then saybar
+`$Drunk: `%Bring on the dancing -hic- gals.
+ @if `p20 is 5 then saybar
+`$Drunk: `%Glad to meet all six of you -hic-.
+ @if `p20 is 6 then saybar
+`$Drunk: `%The -hic- drinks are free here !
+
+@#NOMORE
+
+
+@#BARDRINK
+@do `v01 is 1
+@show
+`r0`c `r1 Pick your poison `r0
+
+ `0"Whatta ya want ?"
+
+@do write
+`x
+@choice
+oDiN's Ale
+Ben's Beer
+Wispy Whisky
+Eric's Cure all
+I'm not thirsty
+@if responce is 1 then do
+@begin
+@show
+`\`c
+ `2Eric hands you the Ale.`l.`l.`l.
+`\`k
+ `$Ahhh. That hit the spot. Better than a blu moon !
+`\`k
+@end
+@if responce is 2 then do
+@begin
+@show
+`\`c
+ `2Eric hands you the beer.`l.`l.`l.
+`\`k
+ `$Burppp... Better than a Budweezer !
+`\`k
+@end
+@if responce is 3 then do
+@begin
+@show
+`\`c
+ `2Eric hands you the whiskey.`l.`l.`l.
+`\`k
+ `$Ewww...Ahhh.... St`l-`lSt`l-`ltrong stuff! WOW !
+`\`k
+@end
+
+@if responce is 4 then do
+ @begin
+@show
+`\`c
+ `2Eric hands you his special concoction.
+ `0"Enjoy it! `2he says laughing.
+`\`k
+ `2You quaff down the strong smelling drink.`l.`l.`l.
+`\`k
+ `$St`l-St`l-St`l-St`l-St-rong stuff !
+`\`k
+ `2You feel Strange.`l.`l.`l.`l.everything is blurry.`l.`l.`l.`l.you feel
+ yourself slipping away into darkness.`l.`l.`l.`l.`l.`l.`l.`l.`l.
+
+`k
+ @run SPIRIT in ericsbar.ref
+ @end
+
+@drawmap
+@update
+@end
+@#NOMORE
+
+
+
+
+@#BARTENDER
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1 Eric the Bartender `r0
+
+ `0"What can I help you with s&boy ?"
+
+@do write
+`x`x
+@choice
+Order a drink
+Ask Eric about his bar
+Conduct business with Eric
+Trade in gems for potions
+Leave
+@if responce is 1 then goto BARDRINK
+@end
+@if responce is 2 then do
+ @begin
+ @show
+`\`c
+ `0"I built this place back when I used to own Odin's keep. I always wanted
+ my own bar, but never could afford to build it.
+
+ I'm real careful with my money now though, I got it hid away real good."
+
+ `%"Um-Uh That's nice.." `2you say boringly. `%"Gotta go now.."
+
+`k
+@end
+
+@if responce is 3 then do
+ @begin
+ @do `p20 is 1
+ @run getquest in quest.ref
+ @end
+@if response is 4 then do
+@begin
+;3 gems for `i54 Silver potion, 3 gems for `i53 Gold, `i52 red.
+ @if `p19 < 3 then do
+ @begin
+ @show
+`\`\ `0"Hey, you need at least three gems to get a potion!"
+`\`k
+ @do goto bartender
+ @end
+ @do `v01 is 1
+ @show
+`\`\ `0"Okay, what kind a potion you want?"`2
+
+ @do write
+ `x`x
+ @choice
+Silver Potion
+Gold Potion
+Red Potion
+ @if response is 1 then do
+ @begin
+ @do `p19 - 3
+ @do `i54 + 1
+ @show
+`\`\ `0"Alright, there you go"`2
+`\`k
+ @end
+ @if response is 2 then do
+ @begin
+ @do `p19 - 3
+ @do `i53 + 1
+ @show
+`\`\ `0"Alright, there you go"`2
+`\`k
+ @end
+ @if response is 3 then do
+ @begin
+ @do `p19 - 3
+ @do `i52 + 1
+ @show
+`\`\ `0"Alright, there you go"`2
+`\`k
+ @end
+ @end
+@drawmap
+@update
+
+
+
+
+@#SEXPRISEF1
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p04 + 1
+ @show
+ `2For your flawless love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 STRENGTH POINT !
+
+ `k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `p05 + 1
+ @show
+ `2For your flawless love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 DODGE POINT !
+
+ `k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+ @show
+ `2For your flawless love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l`l.`l.`l.`l.`l.`l.`l.`l.`%1 GEM !
+
+ `k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 + 1
+ @show
+ `2For your flawless love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA HITPOINT !
+
+ `k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 + 1
+ @show
+ `2For your flawless love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA CHARM POINT !
+
+ `k
+ @end
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#SEXPRISEF2
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p04 + 1
+ @show
+ `2For your wild love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 STRENGTH POINT !
+
+ `k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `p05 + 1
+ @show
+ `2For your wild love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 DODGE POINT !
+
+ `k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+ @show
+ `2For your wild love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 GEM !
+
+ `k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 + 1
+ @show
+ `2For your wild love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA HITPOINT !
+
+ `k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 + 1
+ @show
+ `2For your wild love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA CHARM POINT !
+
+ `k
+ @end
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#SEXPRISEF3
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p04 + 1
+ @show
+ `2For your love making with a legend you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 STRENGTH POINT !
+
+ `k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `p05 + 1
+ @show
+ `2For your love making with a legend you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 DODGE POINT !
+
+ `k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+ @show
+ `2For your love making with a legend you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 GEM !
+
+ `k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 + 1
+ @show
+ `2For your love making with a legend you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA HITPOINT !
+
+ `k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 + 1
+ @show
+ `2For your love making with a legend you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA CHARM POINT !
+
+ `k
+ @end
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#SEXPRISEF4
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p04 + 1
+ @show
+ `2For your flawless love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 STRENGTH POINT !
+
+ `k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `p05 + 1
+ @show
+ `2For your flawless love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 DODGE POINT !
+
+ `k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+ @show
+ `2For your flawless love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 GEM !
+
+ `k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 + 1
+ @show
+ `2For your flawless love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA HITPOINT !
+
+ `k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 + 1
+ @show
+ `2For your flawless love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA CHARM POINT !
+
+ `k
+ @end
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#SEXPRISEF5
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p04 + 1
+ @show
+ `2For your probing love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 STRENGTH POINT !
+
+ `k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `p05 + 1
+ @show
+ `2For your probing love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 DODGE POINT !
+
+ `k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+ @show
+ `2For your probing love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 GEM !
+
+ `k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 + 1
+ @show
+ `2For your probing love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA HITPOINT !
+
+ `k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 + 1
+ @show
+ `2For your probing love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA CHARM POINT !
+
+ `k
+ @end
+
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#WOMAN
+@show
+`r0`c `r1 A Woman's Touch `r0
+
+ `2You enjoy a Woman's Touch. You are led into a room full of
+ different kinds of women, all are beyond beautiful.
+
+`0"Take your Pick s&man" `2he urges.
+
+
+
+@do `v01 is 1
+@do write
+`x
+@choice
+Carlina-Puerto Rican Beauty
+Yewanda-African Princess
+Marilyn-Blonde "All American" Bombshell
+Bibianna-Indian love goddess
+Yuko-Asian love slave
+Lisa-Mutt but what a butt
+Leave this place
+
+@if responce not 7 then do
+@begin
+@end
+
+@if responce is 1 then do
+ @begin
+ @show
+
+`r0`c `r1`% Fun with Karlita `r0
+
+`0"I won't disappoint you s&man " `2she says smiling.
+
+
+`\`2Karlita leads you into a back room to a comfortable looking bed.
+
+`k`c `r1 Aye Karumba `r0
+
+ `2You spend what seems like hours in pure sexual delight, exploring every
+ possible love making technique.
+
+`k
+ `2When it's all over you get up, and get dressed. Knowing that you'll
+ savor this experience for a long time. Karlita gives you one last
+ long kiss. `0"Adios lover" `2she says as she walks out of the bedroom.
+
+`k
+@do goto SEXPRISEF1
+@end
+
+
+@if responce is 2 then do
+ @begin
+ @show
+
+`r0`c `r1`% Fun with Yewanda `r0
+
+`0"Love awaits s&man " `2she says smiling.
+
+
+`\`2Yewanda leads you into a back room to a comfortable looking bed.
+
+`k`c `r1 Ritual Passion `r0
+
+ `2Yewanda pounces on you like a wild cat. You gently grab her wrists and
+ show her a few of the finer points of sex.
+
+`k
+ `2When it's all over you get up, and get dressed. Still soaked with
+ sweat from your wild ride. Yewanda licks your face,
+`0"Let's do this again soon" `2she says as she prances out of the bedroom.
+
+`k
+@do goto SEXPRISEF2
+ @end
+
+@if responce is 3 then do
+ @begin
+ @show
+
+`r0`c `r1`% Fun with Marilyn `r0
+
+`0"Ewww ww your are a sexy s&man " `2she says licking her lips.
+
+
+`\`2Marilyn leads you into a back room to a comfortable looking bed.
+
+`k`c `r1 Sex with a Legend `r0
+
+ `2As Marilyn undresses you discover all that you heard about her was
+ true, and then some. She purrs and moans while you take her
+ again and again.
+
+`k
+ `2When it's all over you get up, and get dressed. You can't wait
+ to run go tell your friends about it. Marilyn blows you a kiss.
+`0"Come back and see me sexy, mmm." `2she says as she swishes out
+ of the bedroom.
+
+`k
+@do goto SEXPRISEF3
+ @end
+
+@if responce is 4 then do
+ @begin
+ @show
+
+`r0`c `r1`% Fun with BiBiAnna `r0
+
+`0"I want your hot sex s&man " `2she says smiling.
+
+
+`\`2BiBiAnna leads you into a back room to a comfortable looking bed.
+
+`k`c `r1 Sheeva Awakens `r0
+
+ `2She takes you to an astral plane with her superb style.
+ You are completely at her whim as you reach your climax repeatedly.
+
+`k
+ `2When it's all over you get up, and get dressed. Wondering if
+ she is a mere mortal.
+ `0"Goodbye, see me again" she says as she walks out of the bedroom.
+
+`k
+@do goto SEXPRISEF4
+ @end
+
+@if responce is 6 then do
+ @begin
+ @show
+
+`r0`c `r1`% Fun with Yuko `r0
+
+`0"I know you can tame me." `2she says smiling.
+
+
+`\`2Yuko leads you into a back room to a comfortable looking bed.
+
+`k`c `r1 Eastern Delight `r0
+
+ `2You probe deep into this beauty's sexual being. You gasp for breath
+ as she works her body up and down in unison with yours.
+
+`k
+ `2When it's all over you get up, and get dressed. You'll never
+ be the same. You are now an asian master lover.
+`0"So long master" `2she says as she walks out of the bedroom.
+
+`k
+@do goto SEXPRISEF5
+@end
+
+@if responce is 6 then do
+ @begin
+ @show
+
+`r0`c `r1`% Fun with Lisa `r0
+
+`0"I think I could love a s&man like you." `2she says smiling.
+
+
+`\`2Lisa leads you into a back room to a comfortable looking bed.
+
+`k`c `r1 Best Buns `r0
+
+ `2You probe deep into this beauty's sexual being. You gasp for breath
+ as she works her body up and down in unison with yours.
+
+`k
+ `2When it's all over you get up, and get dressed. You'll never
+ be the same. You are now a butt lover.
+`0"So long lover" `2she says as she walks out of the bedroom.
+
+`k
+@do goto SEXPRISEF6
+@end
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#SEXPRISEM1
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p04 + 1
+ @show
+ `2For your superb love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 STRENGTH POINT !
+
+ `k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `p05 + 1
+ @show
+ `2For your superb love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 DODGE POINT !
+
+ `k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+ @show
+ `2For your superb love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l`l.`l.`l.`l.`l.`l.`l.`l.`%1 GEM !
+
+ `k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 + 1
+ @show
+ `2For your superb love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA HITPOINT !
+
+ `k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 + 1
+ @show
+ `2For your superb love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA CHARM POINT !
+
+ `k
+ @end
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#SEXPRISEM2
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p04 + 1
+ @show
+ `2For your cat-like love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 STRENGTH POINT !
+
+ `k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `p05 + 1
+ @show
+ `2For your cat-like love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 DODGE POINT !
+
+ `k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+ @show
+ `2For your cat-like love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 GEM !
+
+ `k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 + 1
+ @show
+ `2For your cat-like love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA HITPOINT !
+
+ `k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 + 1
+ @show
+ `2For your cat-like love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA CHARM POINT !
+
+ `k
+ @end
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#SEXPRISEM3
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p04 + 1
+ @show
+ `2For your love making with a legend you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 STRENGTH POINT !
+
+ `k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `p05 + 1
+ @show
+ `2For your love making with a legend you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 DODGE POINT !
+
+ `k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+ @show
+ `2For your love making with a legend you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 GEM !
+
+ `k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 + 1
+ @show
+ `2For your love making with a legend you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA HITPOINT !
+
+ `k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 + 1
+ @show
+ `2For your love making with a legend you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA CHARM POINT !
+
+ `k
+ @end
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#SEXPRISEM4
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p04 + 1
+ @show
+ `2For your enriching love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 STRENGTH POINT !
+
+ `k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `p05 + 1
+ @show
+ `2For your enriching love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 DODGE POINT !
+
+ `k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+ @show
+ `2For your enriching love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 GEM !
+
+ `k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 + 1
+ @show
+ `2For your enriching love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA HITPOINT !
+
+ `k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 + 1
+ @show
+ `2For your enriching love making you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA CHARM POINT !
+
+ `k
+ @end
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#SEXPRISEM5
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p04 + 1
+ @show
+ `2For your phreaking you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 STRENGTH POINT !
+
+ `k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `p05 + 1
+ @show
+ `2For your phreaking you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 DODGE POINT !
+
+ `k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+ @show
+ `2For your phreaking you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 GEM !
+
+ `k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 + 1
+ @show
+ `2For your phreaking you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA HITPOINT !
+
+ `k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 + 1
+ @show
+ `2For your phreaking you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA CHARM POINT !
+
+ `k
+ @end
+@drawmap
+@update
+@end
+
+@#SEXPRISEM6
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p04 + 1
+ @show
+ `2For your phreaking you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 STRENGTH POINT !
+
+ `k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `p05 + 1
+ @show
+ `2For your phreaking you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 DODGE POINT !
+
+ `k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+ @show
+ `2For your phreaking you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 GEM !
+
+ `k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 + 1
+ @show
+ `2For your phreaking you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA HITPOINT !
+
+ `k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 + 1
+ @show
+ `2For your phreaking you gain `l.`l.`l.`l.`l.`l.`l.
+ `\ `l.`l.`l.`l.`l.`l.`l.`l.`%1 EXTRA CHARM POINT !
+
+ `k
+ @end
+
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#MAN
+@show
+`r0`c `r1 A Man's Touch `r0
+
+ `2You Love Men. You are led into a room full of
+ different kinds of men, all are beyond handsome.
+
+`0"Take your Pick s&man" `2he urges.
+
+
+
+@do `v01 is 1
+@do write
+`x
+@choice
+Juan-Puerto Rican Stud
+Jamal-African Power House
+Peter-also known as oDiN
+Raj-Indian love god
+Seth-Mixed Breed Mack Daddy
+Leave this place
+
+@if responce not 6 then do
+@begin
+@end
+
+@if responce is 1 then do
+ @begin
+ @show
+
+`r0`c `r1`% Fun with Juan `r0
+
+`0"I need a s&man like you." `2he says smiling.
+
+
+`\`2Juan leads you into a back room to a comfortable looking bed.
+
+`k`c `r1 Aye Karumba `r0
+
+ `2You spend what seems like hours in pure sexual delight, exploring every
+ possible love making technique.
+
+`k
+ `2When it's all over you get up, and get dressed. Knowing that you'll
+ savor this experience for a long time. Juan gives you one last
+ long kiss. `0"Adios my lover" `2he says as he walks out of the bedroom.
+
+`k
+@do goto SEXPRISEM1
+@end
+
+
+@if responce is 2 then do
+ @begin
+ @show
+
+`r0`c `r1`% Fun with Jamal `r0
+
+`0"Love waits for no s&man." `2he says laughing.
+
+
+`\`2Jamal leads you into a back room to a comfortable looking bed.
+
+`k`c `r1 Ritual Passion `r0
+
+ `2Jamal pounces on you like a wild cat. You gently grab his shoulders and
+ show him a few of the finer points of sex.
+
+`k
+ `2When it's all over you get up, and get dressed. Still soaked with
+ sweat from your wild ride. Jamal licks your face,
+`0"Let's do this again soon" `2he says as he struts out of the bedroom.
+
+`k
+@do goto SEXPRISEM2
+ @end
+
+@if responce is 3 then do
+ @begin
+ @show
+
+`r0`c `r1`% Fun with Peter `r0
+
+`0"I'm only doing this for the hell of it. " `2he says, grinning.
+
+
+`\`2Peter leads you into a back room to a comfortable looking bed.
+
+`k`c `r1 Sex with a Legend `r0
+
+ `2You can't believe this man's stamina, as he pleases you in ways
+ you've only imagined.
+
+`k
+ `2When it's all over you get up, and get dressed. You can't wait
+ to run go tell your friends about it.
+`0"Come back and see me ." `2he says as he eases out of the bedroom.
+
+`k
+@do goto SEXPRISEM3
+ @end
+
+@if responce is 4 then do
+ @begin
+ @show
+
+`r0`c `r1`% Fun with Raj `r0
+
+`0"A s&man like you is hard to find." `2he says smiling.
+
+
+`\`2Raj leads you into a back room to a comfortable looking bed.
+
+`k`c `r1 Ganesh Awakens `r0
+
+ `2He takes your breath away with his superb style.
+ You are completely at his whim as you reach your climax repeatedly.
+
+`k
+ `2When it's all over you get up, and get dressed. Wondering if
+ he is a mere mortal.
+ `0"Goodbye, see me again" he says as he walks out of the bedroom.
+
+`k
+@do goto SEXPRISEM4
+ @end
+
+@if responce is 5 then do
+ ;Seth, Gotta Love it huh? :>
+ ; oDiN
+ @begin
+ @show
+
+`r0`c `r1`% Fun with Seth `r0
+
+`0"With a s&man like you, this will be fun." `2he says smiling.
+
+
+`\`2Seth leads you into a back room to a comfortable looking bed.
+
+`k`c `r1 LORD FREAK `r0
+
+ `2You can't get over how lucky you are to make it with the
+ creator of LORD. His flawless routines leave you breathless.
+
+`k
+ `2When it's all over you get up, and get dressed. You'll never
+ be the same. You decide to come back for more.
+`0"E-mail me baby" `2he says as he walks out of the bedroom.
+
+`k
+@do goto SEXPRISEM5
+@end
+@drawmap
+@update
+@end
+@#NOMORE
+
+
+@#WHATEVER
+@show
+`r0`c `r1 Male or Female `r0
+
+ `2You can't make up your mind.
+
+ `0"Do a little soul searching s&man ! Come back when you've made up
+ your mind" `2the man says giggling.
+
+`k
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#COMPARED
+@do moveback
+@offmap
+@show
+`r0`c `r1 Companion For Rent `r0
+
+
+ `2You find yourself longing for the touch of another.
+
+ Your guide leads you to a large room, he turns around and faces you.
+
+`0"Listen up s&man ! We got ONLY the cleanest, best who..Ur..Mmm companions
+ this side of heaven, Whatta ya need ?"
+
+
+`k
+@do `v01 is 1
+@do write
+`x
+@choice
+I like women
+I want a man
+I'll take whatever I can get
+I do good with myself
+
+@if responce not 4 then do
+@begin
+@end
+
+@if responce is 1 then do
+ @begin
+ @do goto WOMAN
+ @end
+
+@if responce is 2 then do
+ @begin
+ @do goto MAN
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do goto WHATEVER
+ @end
+
+@end
+
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#PIMPDADDY
+@do moveback
+@offmap
+;I love this part
+@datanewday compadre.idf
+@dataload compadre.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto NOMOREWHORE
+@end
+
+@datasave compadre.idf &playernum 1
+
+@if `v06 is 1 then do
+ @begin
+ ;Clean mode is on - you don't know what you're missing dude or dudette
+ @do saybar
+Sorry but your Sysop has selected clean mode for this game.
+ @closescript
+ @end
+
+@show
+`r0`c `r1`% Gueedo the Pimp `r0
+
+ `2A surly looking man approaches you.
+
+
+`0"You found the right place if you're looking for a nice, clean, male or
+ female companion. The best method of relaxation at the best price.
+ Only `$$50 `0bucks."
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Yea, I'll try it out
+I don't think so
+@if responce = 2 then do
+ @begin
+ @drawmap
+ @update
+ @end
+
+@if responce is 1 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+`\`c
+ `0"You stupid idiot ! You can't afford it ! Come back and see us
+ when you have the money" `2he says, frowning.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @do `p30 is 3
+ @do `v40 is 50
+ @routine deposit in vaults.ref
+ @do money - 50
+ ;Gives player 1 lay point don't matter if they chicken out- at least they
+ ;paid for it.
+ @do `p34 + 1
+ @do goto COMPARED
+
+ @drawmap
+ @update
+ @closescript
+ @end
+@#NOMORE
+
+@#GRAFFITTI
+;Thanks ring out to Seth for the template :>
+@do moveback
+@busy
+@show
+`r0`c `r1 THE GRAFFITTI WALL `r0
+
+@if wall.txt exist false then do
+ @begin
+ @writefile wall.txt
+ `%oDiN `2: `0Hello ladies !
+ @end
+
+@if wall.txt exist true then do
+ @begin
+ @displayfile wall.txt
+ @end
+
+@show
+
+@
+(Do tricky stuff with name to determine how much they can type)
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter a special message or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile wall.txt
+ `%`n`2 : `0`s03
+ @do trim wall.txt 17
+ @drawmap
+ @update
+
+@#WEAPONS
+@offmap
+@do moveback
+@label weapons
+@show
+`r0`c `r1 `%Odin's Weapons, Armor and General Goods `r0
+
+ `2A scruffy looking blacksmith approaches
+ `0"Waddaya need today?" `2he asks.
+
+
+@do `v01 is 1
+@do write
+`x
+@choice
+Examine his Weaponry
+Check out the Armory
+List other Goods
+Sell something
+Leave
+@show
+`\`c
+
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 60
+ 49
+ 39
+ 58
+ @end
+
+@if responce is 2 then do begin
+ @begin
+@buymanager
+ 37
+ 59
+ 62
+ 68
+ @end
+
+@if responce is 3 then do begin
+ @begin
+@buymanager
+ 3
+ 17
+ 20
+ 5
+ 40
+ 50
+ @end
+
+@if responce is 4 then do begin
+ @begin
+ @clearblock 8 14
+ @do move 1 7
+ @sellmanager
+ @end
+
+@if responce not 5 then goto WEAPONS
+@drawmap
+@update
+@end
+@#NOMORE
+
+@#BAR
+@do x is 73
+@do y is 19
+@do map is 796
+@loadmap 796
+@do goto DONE
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
+;-------------------------END BAR ROUTINES---------------------------------
+;-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#GUARD
+@do moveback
+@label startg
+@if keep.dat exist false then do
+ @begin
+ @do saybar
+`0 "You have 5 seconds to make yourself scarce!" `2the guard barks.
+ @closescript
+ @end
+
+@readfile keep.dat
+`p20
+`s01
+@
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You nod to the door guard, he gives you a Stoney stare.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+`2 As you approach, the huge door guard snaps to attention when he
+ sees you are going to speak to him.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+`%Make `#Odin's Keep `%your home
+Leave
+@if responce is 3 then do
+ @begin
+ @do `p69 is 27
+ @show
+`r0`c
+
+ `#Odin's Keep `%is now home sweet home.
+
+ @key
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$25000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your property to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete keep.dat
+ @writefile keep.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of Odin's Keep to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%Odin's Keep`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transferred. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your property back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not in this lifetime !
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete keep.dat
+ @do `p30 is 3
+ @do `v40 is 25000
+ @routine widthdraw in vaults.ref
+ @do money + 25000
+ @show
+`\`\ `%PROPERTY SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Odin's Keep`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\
+`2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete keep.dat
+ @writefile keep.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#SIGN
+@do moveback
+
+ @if keep.dat exist false then do
+ @begin
+ @do saybar
+Odin's Keep - For sale inquire within
+ @end
+
+@if keep.dat exist true then do
+ @begin
+@readfile keep.dat
+`p20
+`s01
+@do `s01 is getname `p20
+ @do saybar
+`%Welcome to Odin's Keep - Property of `0`s01`%.
+ @end
+
+@#SIGN2
+;No I'm really not vain - just ran outta ideas :>
+@do moveback
+ @do `p20 random 10 1
+ @if `p20 is 1 then saybar
+`$oDiN: `%I went swimming- WOW -I feel better !
+ @if `p20 is 2 then saybar
+`$oDiN: `%Visit Eric's bar, it rocks !
+ @if `p20 is 3 then saybar
+`$oDiN: `%Led Zepplin rocks !
+ @if `p20 is 4 then saybar
+`$oDiN: `%I made this IGM !
+ @if `p20 is 5 then saybar
+`$oDiN: `%Carlos is in prison !
+ @if `p20 is 6 then saybar
+`$oDiN: `%Have you visited the Fairy behind the Castle ?
+ @if `p20 is 7 then saybar
+`$oDiN: `%Smashing Pumpkins song, "EYE" rules.
+ @if `p20 is 8 then saybar
+`$oDiN: `%I caught the fairy !
+ @if `p20 is 9 then saybar
+`$oDiN: `%I Love Yin, have you seen her ?
+ @if `p20 is 10 then saybar
+`$oDiN: `%Calypso made Audacity BBS.
+
+
+
+@#SIGN3
+@do moveback
+@do saybar
+`@The Dragon's Lair
+@end
+
+@#SIGN4
+@do moveback
+@do saybar
+`$The Healer's Hut
+@end
+
+
+@#ENTER
+@do moveback
+@offmap
+@if keep.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2Odin's Keep rumored to have been created by it's namesake
+ hundreds of years ago.
+
+ Comes fully stocked with the following :
+
+ `0* `2You're very own pet Dragon "Vincent" , who will fly you to
+ `0Porttown`2, `0Sosen Village`2, `0Flagcity`2, `0etc.`2!
+
+ `0* `2The meanest, toughest Guard you've ever seen
+
+ `0* `2A private doc, to patch up your wounds !
+
+ `0* `2Much.. much.. more included !
+
+ `2The asking price is `$$50,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 49999 Buy it ! What a bargain !
+<&money 50000 Mark it on your map and come back later to buy it.
+>&money 49999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if keep.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh hells bells! Someone else bought it while you weren't looking
+ You could kick yourself for letting this slip by. .`\`\`k
+ @do goto done
+ @end
+
+ @writefile keep.dat
+&playernum
+NONE
+0
+0
+0
+0
+ @do `p30 is 3
+ @do `v40 is 50000
+ @routine deposit in vaults.ref
+ @do money - 50000
+ @do addlog
+ `0`n `2buys `%Odin's Keep`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this property!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile keep.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ @do delete keep.dat
+ @do addlog
+ `%Odin's Keep`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+`\`k
+ @update
+ @drawmap
+ @closescript
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2the door guard asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%Odin's Keep`0,"`2 the guard frowns as he opens the gate.`\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `0Odin's Keep Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The guard doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein
+@do x is 73
+@do y is 19
+@do map is 796
+@loadmap 796
+@do goto done
+@#done
+@drawmap
+@closescript
+@end
+@NOMORE
diff --git a/xtrn/lord2/cnw/oracle1.ref b/xtrn/lord2/cnw/oracle1.ref
new file mode 100644
index 0000000000000000000000000000000000000000..0f23583330b399fb85ba3dbd43412b524db8af99
--- /dev/null
+++ b/xtrn/lord2/cnw/oracle1.ref
@@ -0,0 +1,478 @@
+; Script file ORACLE1.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:31 2001
+
+@DECLARE scene1 000000181
+@DECLARE scene2 000006069
+@NOCHECK
+; End of .REF index
+
+@#scene1
+@show
+`r0`c
+@do move 1 1
+@show
+`r2`0
+
+
+
+ `$ `0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+@do move 36 20
+@do write
+`w`!
+@do move 36 20
+@do write
+`w`x
+@do move 36 19
+@do write
+`!
+@do move 36 19
+@do write
+`w`x
+@do move 36 18
+@do write
+`!
+@do move 36 18
+@do write
+`w`x
+@do move 36 17
+@do write
+`!
+@do move 36 17
+@do write
+`w`x
+@do move 36 16
+@do write
+`!
+@do move 36 16
+@do write
+`w`x
+@do move 36 15
+@do write
+`!
+@do move 36 15
+@do write
+`w`x
+@do move 36 14
+@do write
+`!
+@do move 36 14
+@do write
+`w`x
+@do move 36 13
+@do write
+`!
+@do move 36 13
+@do write
+`w`x
+@do move 36 12
+@do write
+`!
+@do move 36 12
+@do write
+`w`x
+@do move 36 11
+@do write
+`!
+@do move 36 11
+@do write
+`w`x
+@do move 36 10
+@do write
+`!
+@do move 36 10
+@do write
+`w`x
+@do move 36 9
+@do write
+`!
+@do move 36 9
+@do write
+`w`x
+@do move 36 8
+@do write
+`!
+@do move 36 8
+@do write
+`w`x
+@do move 36 7
+@do write
+`!
+@do move 36 7
+@do write
+`w`x
+@do move 36 6
+@do write
+`!`l`l
+@show
+`r0`c `$The Oracle
+
+ `0"I am the seer you sent for," `2the oracle informs the man. `0"you wish
+ to know what it is that makes me sense the return of the red dragon?"
+
+ `$"It was on my mind," `2he replies.
+ `k
+ `0"The birth of a hero has happened and one who the gods only grant
+ when the world is in danger as they did so long ago." `2he says. `0"I
+ know you will be visited soon."
+
+ `$"I'll seek the warrior out then..."
+ `k
+ `0"No!" `2the oracle screams in response. `0"The s&man will seek you out."
+ `k
+@show
+`r0`c
+@do move 1 1
+@show
+`r2`0
+
+
+
+ `$ `0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+@do move 36 6
+@do write
+`!`l`l
+@do move 36 6
+@do write
+`w`x
+@do move 36 7
+@do write
+`!
+@do move 36 7
+@do write
+`w`x
+@do move 36 8
+@do write
+`!
+@do move 36 8
+@do write
+`w`x
+@do move 36 9
+@do write
+`!
+@do move 36 9
+@do write
+`w`x
+@do move 36 10
+@do write
+`!
+@do move 36 10
+@do write
+`w`x
+@do move 36 11
+@do write
+`!
+@do move 36 11
+@do write
+`w`x
+@do move 36 12
+@do write
+`!
+@do move 36 12
+@do write
+`w`x
+@do move 36 13
+@do write
+`!
+@do move 36 13
+@do write
+`w`x
+@do move 36 14
+@do write
+`!
+@do move 36 14
+@do write
+`w`x
+@do move 36 15
+@do write
+`!
+@do move 36 15
+@do write
+`w`x
+@do move 36 16
+@do write
+`!
+@do move 36 16
+@do write
+`w`x
+@do move 36 17
+@do write
+`!
+@do move 36 17
+@do write
+`w`x
+@do move 36 18
+@do write
+`!
+@do move 36 18
+@do write
+`w`x
+@do move 36 19
+@do write
+`!
+@do move 36 19
+@do write
+`w`x
+@do move 36 20
+@do write
+`!
+@do move 36 20
+@do write
+`w`x`l`l
+@drawmap
+@update
+@closescript
+
+@#scene2
+@loadmap 159
+@drawmap
+@do move 19 19
+@do write
+`w`r6`#
+@do move 19 19
+@do write
+`w`r6`x
+@do move 19 18
+@do write
+`r6`#
+@do move 19 18
+@do write
+`w`r6`x
+@do move 19 17
+@do write
+`r6`#
+@do move 19 17
+@do write
+`w`r6`x
+@do move 19 16
+@do write
+`r6`#
+@do move 18 16
+@do write
+`w`r6`#`x
+@do move 17 16
+@do write
+`w`r6`#`x
+@do move 16 16
+@do write
+`w`r6`#`x
+@do move 15 16
+@do write
+`w`r6`#`x
+@do move 14 16
+@do write
+`w`r6`#`x
+@do move 13 16
+@do write
+`w`r6`#`x
+@do move 12 16
+@do write
+`w`r6`#`x
+@do move 12 16
+@do write
+`w`r6`x
+@do move 12 15
+@do write
+`r6`#
+@do move 12 15
+@do write
+`w`r6`x
+@do move 12 14
+@do write
+`r6`#
+@do move 12 14
+@do write
+`w`r6`x`#
+@do move 19 19
+@do write
+`r6`$`l`l
+@do move 19 19
+@do write
+`w`r6`x
+@do move 19 18
+@do write
+`r6`$
+@do move 19 18
+@do write
+`w`r6`x
+@do move 19 17
+@do write
+`r6`$
+@do move 19 17
+@do write
+`w`r6`x
+@do move 19 16
+@do write
+`r6`$
+@do move 18 16
+@do write
+`w`r6`$`x
+@do move 17 16
+@do write
+`w`r6`$`x
+@do move 16 16
+@do write
+`w`r6`$`x
+@do move 15 16
+@do write
+`w`r6`$`x
+@do move 14 16
+@do write
+`w`r6`$`x
+@do move 13 16
+@do write
+`w`r6`$`x
+@do move 12 16
+@do write
+`w`r6`$`x
+@do move 12 16
+@do write
+`w`r6`x
+@do move 12 15
+@do write
+`r6`$
+@do move 12 15
+@do write
+`w`r6`x`$`l`l
+@do move 25 14
+@do write
+`|`|`r6`!
+@do move 24 14
+@do write
+`w`r6`!`x
+@do move 23 14
+@do write
+`w`r6`!`x
+@do move 22 14
+@do write
+`w`r6`!`x
+@do move 21 14
+@do write
+`w`r6`!`x`l`l
+@show
+`r0`c `$The Oracle
+
+ `0"The warrior has come to the land," `2the oracle tells them all.
+ `0"We must be ready and tell the rulers of the coming. I have already
+ spoken to the Prince of Arrisville."
+ `k
+ `#"I can't go anywhere though," `2the woman responds. `#"I busy watching
+ the man Barak whose deeds stain the soil he stands on."
+ `k
+ `0"Then don't leave him."
+ `k
+ `$"I'll find the Koshi and warn them of the coming," `2the other
+ gentleman says. `$"I'll will wait there for s&him or you to come."
+ `k
+ `0"Then until we all meet again."
+ `k
+@loadmap 159
+@drawmap
+@do move 21 14
+@do write
+`r6`!
+@do move 13 15
+@do write
+`r6`$
+@do move 13 14
+@do write
+`r6`#
+@do move 21 14
+@do write
+`l`l`r6`|
+@do move 13 15
+@do write
+`r6`|
+@do move 21 14
+@do write
+`r6`$�
+@do move 13 15
+@do write
+`r6`$�
+@do move 12 14
+@do write
+`w`r6`#`$�
+@do move 12 14
+@do write
+`w`r6`x
+@do move 12 15
+@do write
+`r6`#
+@do move 12 15
+@do write
+`w`r6`x
+@do move 12 16
+@do write
+`r6`#
+@do move 12 16
+@do write
+`w`r6`x`#
+@do move 13 16
+@do write
+`w`r6`x`#
+@do move 14 16
+@do write
+`w`r6`x`#
+@do move 15 16
+@do write
+`w`r6`x`#
+@do move 16 16
+@do write
+`w`r6`x`#
+@do move 17 16
+@do write
+`w`r6`x`#
+@do move 18 16
+@do write
+`w`r6`x`#
+@do move 19 16
+@do write
+`w`r6`x
+@do move 19 17
+@do write
+`r6`#
+@do move 19 17
+@do write
+`w`r6`x
+@do move 19 18
+@do write
+`r6`#
+@do move 19 18
+@do write
+`w`r6`x
+@do move 19 19
+@do write
+`r6`#
+@do move 19 19
+@do write
+`w`r6`x`l`l
+@loadmap 1205
+@drawmap
diff --git a/xtrn/lord2/cnw/oracle2.ref b/xtrn/lord2/cnw/oracle2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..cf1255498cb50c57f79ca921f9d86ebff21f02c2
--- /dev/null
+++ b/xtrn/lord2/cnw/oracle2.ref
@@ -0,0 +1,503 @@
+; Script file ORACLE2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:31 2001
+
+@DECLARE scene3 000000220
+@DECLARE scene4 000003812
+@NOCHECK
+; End of .REF index
+
+;Another scene file for the oracle.
+
+@#scene3
+@loadmap 1440
+@drawmap
+@do move 40 11
+@do write
+`r2`8
+@do move 58 11
+@do write
+`l`l`|`|`r2`$
+@do move 57 11
+@do write
+`w`r2`$`x
+@do move 56 11
+@do write
+`w`r2`$`x
+@do move 55 11
+@do write
+`w`r2`$`x
+@do move 54 11
+@do write
+`w`r2`$`x
+@do move 53 11
+@do write
+`w`r2`$`x
+@do move 52 11
+@do write
+`w`r2`$`x
+@do move 51 11
+@do write
+`w`r2`$`x
+@do move 50 11
+@do write
+`w`r2`$`x
+@do move 49 11
+@do write
+`w`r2`$`x
+@do move 48 11
+@do write
+`w`r2`$`x
+@do move 47 11
+@do write
+`w`r2`$`x
+@do move 46 11
+@do write
+`w`r2`$`x
+@do move 45 11
+@do write
+`w`r2`$`x
+@do move 44 11
+@do write
+`w`r2`$`x
+@do move 43 11
+@do write
+`w`r2`$`x
+@do move 42 11
+@do write
+`w`r2`$`x
+@do move 41 11
+@do write
+`w`r2`$`x`l`l
+@show
+`r0`c `4Evil Incarnate
+
+ `8"You took long enough to get here..."
+ `k
+ `$"It can't be helped. There's a warrior nearby who's looking for you
+ whether it be a good reason or not I'm not sure."
+ `k
+ `8"Does the man or woman know about the dragon?"
+ `k
+ `$"The s&man may know milord. It might be wise to keep the dragon at
+ bay for now."
+ `k
+ `8"Damn!" `7he barks. `8"Arrange for this warrior to come to our island
+ and make sure no one interfers."
+ `k
+@drawmap
+@do move 40 11
+@do write
+`r2`8
+@do move 45 11
+@do write
+`r2`$
+@do move 45 11
+@do write
+`l`l`r2`x
+@do move 45 12
+@do write
+`r2`$
+@do move 45 12
+@do write
+`w`r2`x
+@do move 45 13
+@do write
+`r2`$
+@do move 45 13
+@do write
+`w`r2`x
+@do move 45 14
+@do write
+`r2`$
+@do move 45 14
+@do write
+`w`r2`x
+@do move 45 15
+@do write
+`r2`$
+@do move 45 15
+@do write
+`w`r2`x
+@do move 45 16
+@do write
+`r2`$
+@do move 44 16
+@do write
+`w`r2`$`x
+@do move 43 16
+@do write
+`w`r2`$`x
+@do move 42 16
+@do write
+`w`r2`$`x
+@do move 41 16
+@do write
+`w`r2`$`x
+@do move 40 16
+@do write
+`w`r2`$`x
+@do move 39 16
+@do write
+`w`r2`$`x
+@do move 38 16
+@do write
+`w`r2`$`x
+@do move 37 16
+@do write
+`w`r2`$`x
+@do move 36 16
+@do write
+`w`r2`$`x
+@do move 35 16
+@do write
+`w`r2`$`x
+@do move 34 16
+@do write
+`w`r2`$`x
+@do move 33 16
+@do write
+`w`r2`$`x
+@do move 32 16
+@do write
+`w`r2`$`x
+@do move 31 16
+@do write
+`w`r2`$`x
+@do move 30 16
+@do write
+`w`r2`$`x
+@do move 29 16
+@do write
+`w`r2`$`x
+@do move 28 16
+@do write
+`w`r2`$`x
+@do move 27 16
+@do write
+`w`r2`$`x
+@do move 26 16
+@do write
+`w`r2`$`x
+@do move 25 16
+@do write
+`w`r2`$`x
+@do move 24 16
+@do write
+`w`r2`$`x
+@do move 23 16
+@do write
+`w`r2`$`x
+@do move 22 16
+@do write
+`w`r2`$`x
+@do move 21 16
+@do write
+`w`r2`$`x
+@do move 20 16
+@do write
+`w`r2`$`x
+@do move 19 16
+@do write
+`w`r2`$`x
+@do move 18 16
+@do write
+`w`r2`$`x
+@do move 17 16
+@do write
+`w`r2`$`x
+@do move 16 16
+@do write
+`w`r2`$`x
+@do move 15 16
+@do write
+`w`r2`$`x
+@do move 14 16
+@do write
+`w`r2`$`x
+@do move 13 16
+@do write
+`w`r2`$`x
+@do move 12 16
+@do write
+`w`r2`$`x
+@do move 11 16
+@do write
+`w`r2`$`x
+@do move 10 16
+@do write
+`w`r2`$`x
+@do move 9 16
+@do write
+`w`r2`$`x
+@do move 8 16
+@do write
+`w`r2`$`x
+@do move 7 16
+@do write
+`w`r2`$`x
+@do move 6 16
+@do write
+`w`r2`$`x
+@do move 5 16
+@do write
+`w`r2`$`x
+@do move 4 16
+@do write
+`w`r2`$`x
+@do move 3 16
+@do write
+`w`r2`$`x
+@do move 2 16
+@do write
+`w`r2`$`x
+@do move 1 16
+@do write
+`w`r2`$`x
+@do move 1 16
+@do write
+`w`r2`x
+@do move 40 11
+@do write
+`r2`|`|`x`l`l
+@loadmap 1205
+@drawmap
+
+@#scene4
+@loadmap 1193
+@drawmap
+@do move 40 12
+@do write
+`r7`8`l`l`l`l
+@routine upbar in owtc.ref
+@do move 4 2
+@do write
+`r1`%SUMMON`l`l`l`l
+@routine clearbar in owtc.ref
+@do move 44 12
+@do write
+`r7`|`|`|`|`4`b
+@show
+`r0`c `4Into the Dragon
+
+ `8"My faithful dragon... soon you'll be reborn to the world."
+ `k
+ `4"Fail me not again, I have need for the Smakrod, I have need to be
+ reborn..."
+ `k
+ `8"It won't take as long as expected and then the Koshi too shall be
+ utterly helpless under your power, your breath."
+ `k
+ `4"The Koshi are no worry, just get me the rod or you'll join me on
+ the otherside. And this is no threat."
+ `k
+@drawmap
+@do move 40 12
+@do write
+`r7`8
+@do move 44 12
+@do write
+`r7`4`b`l`l`l`l
+@do move 44 12
+@do write
+`|`|`|`|`r7`x`l`l`l
+@do move 80 12
+@do write
+`r2`0
+@do move 79 12
+@do write
+`w`r2`0`x
+@do move 78 12
+@do write
+`w`r2`0`x
+@do move 77 12
+@do write
+`w`r2`0`x
+@do move 76 12
+@do write
+`w`r2`0`x
+@do move 75 12
+@do write
+`w`r2`0`x
+@do move 74 12
+@do write
+`w`r2`0`x
+@do move 73 12
+@do write
+`w`r2`0`x
+@do move 72 12
+@do write
+`w`r2`0`x
+@do move 71 12
+@do write
+`w`r2`0`x
+@do move 70 12
+@do write
+`w`r2`0`x
+@do move 69 12
+@do write
+`w`r2`0`x
+@do move 68 12
+@do write
+`w`r2`0`x
+@do move 67 12
+@do write
+`w`r2`0`x
+@do move 66 12
+@do write
+`w`r2`0`x
+@do move 65 12
+@do write
+`w`r2`0`x
+@do move 64 12
+@do write
+`w`r2`0`x
+@do move 63 12
+@do write
+`w`r2`0`x
+@do move 62 12
+@do write
+`w`r2`0`x
+@do move 61 12
+@do write
+`w`r2`0`x
+@do move 60 12
+@do write
+`w`r2`0`x
+@do move 59 12
+@do write
+`w`r2`0`x
+@do move 58 12
+@do write
+`w`r2`0`x
+@do move 57 12
+@do write
+`w`r2`0`x
+@do move 56 12
+@do write
+`w`r2`0`x
+@do move 55 12
+@do write
+`w`r2`0`x
+@do move 54 12
+@do write
+`w`r2`0`x
+@do move 53 12
+@do write
+`w`r2`0`x
+@show
+`r0`c `!Destruction
+
+ `8"The dragon fears the Gryphon moon, I need it to be on hand once I
+ bring the Smakrod to the Gateway."
+ `k
+ `0"But milord, what if we don't have it? The Koshi still try to get
+ it back."
+ `k
+ `8"It won't matter, I want the whole of the clan to be ready for our
+ victory and if we must, to be ready to slay the dragon once we are
+ victorious!"
+ `k
+ `0"You are clever milord, we shall stand ready!"
+ `k
+@drawmap
+@do move 53 12
+@do write
+`r2`0
+@do move 40 12
+@do write
+`r7`8`l`l
+@do move 53 12
+@do write
+`w`r2`x`0
+@do move 54 12
+@do write
+`w`r2`x`0
+@do move 55 12
+@do write
+`w`r2`x`0
+@do move 56 12
+@do write
+`w`r2`x`0
+@do move 57 12
+@do write
+`w`r2`x`0
+@do move 58 12
+@do write
+`w`r2`x`0
+@do move 59 12
+@do write
+`w`r2`x`0
+@do move 60 12
+@do write
+`w`r2`x`0
+@do move 61 12
+@do write
+`w`r2`x`0
+@do move 62 12
+@do write
+`w`r2`x`0
+@do move 63 12
+@do write
+`w`r2`x`0
+@do move 64 12
+@do write
+`w`r2`x`0
+@do move 65 12
+@do write
+`w`r2`x`0
+@do move 66 12
+@do write
+`w`r2`x`0
+@do move 67 12
+@do write
+`w`r2`x`0
+@do move 68 12
+@do write
+`w`r2`x`0
+@do move 69 12
+@do write
+`w`r2`x`0
+@do move 70 12
+@do write
+`w`r2`x`0
+@do move 71 12
+@do write
+`w`r2`x`0
+@do move 72 12
+@do write
+`w`r2`x`0
+@do move 73 12
+@do write
+`w`r2`x`0
+@do move 74 12
+@do write
+`w`r2`x`0
+@do move 75 12
+@do write
+`w`r2`x`0
+@do move 76 12
+@do write
+`w`r2`x`0
+@do move 77 12
+@do write
+`w`r2`x`0
+@do move 78 12
+@do write
+`w`r2`x`0
+@do move 79 12
+@do write
+`w`r2`x`0
+@do move 80 12
+@do write
+`w`r2`x
+@do move 40 12
+@do write
+`r7`%`|`|`|`|`x
+@do move 41 16
+@do write
+`r7`%`|`|`|`|`!`l`l`l`l
+@do move 41 16
+@do write
+`r7`%`|`|`|`|`x`l`l`l`l
+@loadmap 1205
+@drawmap
+@run oracle in owtc.ref
diff --git a/xtrn/lord2/cnw/oracle3.ref b/xtrn/lord2/cnw/oracle3.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c2c807367404a792ba5134bb8c665afb92969564
--- /dev/null
+++ b/xtrn/lord2/cnw/oracle3.ref
@@ -0,0 +1,456 @@
+; Script file ORACLE3.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:31 2001
+
+@DECLARE scene5 000000297
+@DECLARE bottom 000003900
+@DECLARE clear 000004607
+@DECLARE bob 000004635
+@DECLARE scene6 000004836
+@NOCHECK
+; End of .REF index
+
+;Another scene file for the oracle.
+
+@#scene5
+@loadmap 1498
+@drawmap
+@do move 46 5
+@do write
+`l`l`l`l`r0`4�
+@do move 48 5
+@do write
+`r0`4�`l`l`l`l`l`l`l`l
+@do move 46 5
+@do write
+`r0`x
+@do move 48 5
+@do write
+`r0`x
+@do move 46 5
+@do write
+`l`l`l`l`r0`4�
+@do move 48 5
+@do write
+`r0`4�`l`l`l`l
+@do move 80 12
+@do write
+`w`r3`%
+@do move 79 12
+@do write
+`w`r3`%�
+@do move 78 12
+@do write
+`w`r3`%�
+@do move 77 12
+@do write
+`w`r3`%�
+@do move 76 12
+@do write
+`w`r3`%�
+@do move 75 12
+@do write
+`w`r3`%�
+@do move 74 12
+@do write
+`w`r3`%�
+@do move 73 12
+@do write
+`w`r3`%�
+@do move 72 12
+@do write
+`w`r3`%�
+@do move 71 12
+@do write
+`w`r3`%�
+@do move 70 12
+@do write
+`w`r3`%�
+@do move 69 12
+@do write
+`w`r3`%�
+@do move 68 12
+@do write
+`w`r3`%�
+@do move 67 12
+@do write
+`w`r3`%�
+@do move 66 12
+@do write
+`w`r3`%�
+@do move 65 12
+@do write
+`w`r3`%�
+@do move 64 12
+@do write
+`w`r3`%�
+@do move 63 12
+@do write
+`w`r3`%�
+@do move 62 12
+@do write
+`w`r3`%�
+@do move 61 12
+@do write
+`w`r3`%�
+@do move 60 12
+@do write
+`w`r3`%�
+@do move 59 12
+@do write
+`w`r3`%�
+@do move 58 12
+@do write
+`w`r3`%�
+@do move 57 12
+@do write
+`w`r3`%�
+@do move 56 12
+@do write
+`w`r3`%�
+@do move 46 5
+@do write
+`r0`x
+@do move 48 5
+@do write
+`r0`x
+@do move 55 12
+@do write
+`w`r3`%�
+@do move 54 12
+@do write
+`w`r3`%�
+@do move 53 12
+@do write
+`w`r3`%�
+@do move 52 12
+@do write
+`w`r3`%�
+@do move 51 12
+@do write
+`w`r3`%�
+@do move 50 12
+@do write
+`w`r3`%�
+@do move 49 12
+@do write
+`w`r3`%�
+@do move 48 12
+@do write
+`w`r3`%�
+@do move 47 12
+@do write
+`w`r3`%�
+@do move 46 12
+@do write
+`w`r3`%�
+@do move 45 12
+@do write
+`w`r3`%�
+@do move 44 12
+@do write
+`w`r3`%�
+@do move 43 12
+@do write
+`w`r3`%�
+@do move 42 12
+@do write
+`w`r3`%�
+@do move 41 12
+@do write
+`w`r3`%�
+@do move 40 12
+@do write
+`w`r3`%�
+@do move 39 12
+@do write
+`w`r3`%�
+@do move 38 12
+@do write
+`w`r3`%�
+@do move 37 12
+@do write
+`w`r3`%�
+@do move 36 12
+@do write
+`w`r3`%�
+@do move 46 5
+@do write
+`r0`4�
+@do move 48 5
+@do write
+`r0`4�
+@do move 35 12
+@do write
+`w`r3`%�
+@do move 34 12
+@do write
+`w`r3`%�
+@do move 33 12
+@do write
+`w`r3`%�
+@do move 32 12
+@do write
+`w`r3`%�
+@do move 31 12
+@do write
+`w`r3`%�
+@do move 30 12
+@do write
+`w`r3`%�
+@do move 29 12
+@do write
+`w`r3`%�
+@do move 28 12
+@do write
+`w`r3`%�
+@do move 27 12
+@do write
+`w`r3`%�
+@do move 26 12
+@do write
+`w`r3`%�
+@do move 25 12
+@do write
+`w`r3`%�
+@do move 24 12
+@do write
+`w`r3`%�
+@do move 23 12
+@do write
+`w`r3`%�
+@do move 22 12
+@do write
+`w`r3`%�
+@do move 21 12
+@do write
+`w`r3`%�
+@do move 20 12
+@do write
+`w`r3`%�
+@do move 19 12
+@do write
+`w`r3`%�
+@do move 18 12
+@do write
+`w`r3`%�
+@do move 17 12
+@do write
+`w`r3`%�
+@do move 16 12
+@do write
+`w`r3`%�
+@do move 15 12
+@do write
+`w`r3`%�
+@do move 14 12
+@do write
+`w`r3`%�
+@do move 13 12
+@do write
+`w`r3`%�
+@do move 12 12
+@do write
+`w`r3`%�
+@do move 11 12
+@do write
+`w`r3`%�
+@do move 10 12
+@do write
+`w`r3`%�
+@do move 9 12
+@do write
+`w`r3`%�
+@do move 8 12
+@do write
+`w`r3`%�
+@do move 7 12
+@do write
+`w`r3`%�
+@do move 6 12
+@do write
+`w`r3`%�
+@do move 5 12
+@do write
+`w`r3`%�
+@do move 4 12
+@do write
+`w`r3`%�
+@do move 3 12
+@do write
+`w`r3`%�
+@do move 2 12
+@do write
+`w`r3`%�
+@do move 1 12
+@do write
+`w`r3`%�
+@do move 1 12
+@do write
+`w`r3`%�
+@do move 46 5
+@do write
+`l`l`l`l`r0`x
+@do move 48 5
+@do write
+`r0`x
+@loadmap 1205
+@drawmap
+@run oracle in owtc.ref
+
+@#bottom
+@do move 1 15
+@do write
+`r4`@������������������������������������������������������������������������������Ŀ`r0
+@do move 1 16
+@do write
+`r4`@�� ��`r0
+@do move 1 17
+@do write
+`r4`@� �`r0
+@do move 1 18
+@do write
+`r4`@� �`r0
+@do move 1 19
+@do write
+`r4`@�� ��`r0
+@do move 1 20
+@do write
+`r4`@��������������������������������������������������������������������������������`r0
+
+@#clear
+@do `p22 is 16
+@label bob
+@if `p22 < 20 the do
+ @begin
+ @do move 3 `p22
+ @do write
+`r4`@ `r0
+ @do `p22 + 1
+ @do goto bob
+ @end
+
+@#scene6
+@show
+`r0`c
+@routine bottom
+@do move 4 16
+@do write
+`r4`%History tells us of the great Gate to the Abyss, a doorway between our
+@do move 4 17
+@do write
+`r4`%world and that of the great evils.
+@key nodisplay
+@routine clear
+@do move 4 16
+@do write
+`r4`%1,000 years have passed since that Gate was fully opened once more, a
+@do move 4 17
+@do write
+`r4`%trial of virtue yet to come. For the last time the Gate let loose its
+@do move 4 18
+@do write
+`r4`%evil, a powerful Dragon was born.
+@key nodisplay
+@routine clear
+@do move 4 16
+@do write
+`r4`%Now we see that it will open again!
+@key nodisplay
+@do move 21 14
+@do write
+`w`r0`9
+@do move 21 13
+@do write
+`w`r0`9
+@do move 21 14
+@do write
+`r0`x
+@routine clear
+@do move 4 16
+@do write
+`r4`9Tien: `%Where am I...
+@key nodisplay
+@routine clear
+@do move 4 16
+@do write
+`r4`9Tien: `%The `@Nightmare Gate`%!
+@do move 21 12
+@do write
+`w`r0`|`b
+@do move 20 13
+@do write
+`w`r0`|`b`9`|`b
+@do move 21 14
+@do write
+`w`r0`|`b
+@key nodisplay
+@routine clear
+@do move 4 16
+@do write
+`r4`9Tien: `%And me without my sword...
+@do move 21 13
+@do write
+`w`r0`9
+@do move 21 13
+@do write
+`w`r0`9
+@do move 21 13
+@do write
+`w`r0`9
+@do move 21 13
+@do write
+`w`r0`9
+@do move 21 13
+@do write
+`w`r0`9
+@do move 21 13
+@do write
+`w`r0`x
+@do move 31 14
+@do write
+`w`r0`%
+@do move 31 13
+@do write
+`w`r0`%
+@do move 31 14
+@do write
+`r0`x
+@key nodisplay
+@routine clear
+@do move 4 16
+@do write
+`r4`%`n: `%Asmodeus!
+@do move 31 12
+@do write
+`w`r0`%
+@do move 31 13
+@do write
+`r0`x
+@do move 31 11
+@do write
+`w`r0`%
+@do move 31 12
+@do write
+`r0`x
+@do move 31 10
+@do write
+`w`r0`|`b
+@do move 30 11
+@do write
+`w`r0`|`b`%`|`b
+@do move 31 12
+@do write
+`w`r0`|`b
+@key nodisplay
+@routine clear
+@do move 4 16
+@do write
+`r4`%A fate seen early may be changed... The `@Nightmare's Gate `%Approaches,
+@do move 4 17
+@do write
+`r4`%and Tien Lung Might be able to help... if you can retrieve his sword from
+@do move 4 18
+@do write
+`r4`%the land where `$Time Stands Still`%...
+@key nodisplay
+@datasave godlike.idf &playernum
+@run oracle in owtc.ref
diff --git a/xtrn/lord2/cnw/orphan.ref b/xtrn/lord2/cnw/orphan.ref
new file mode 100644
index 0000000000000000000000000000000000000000..0b38a03015c9e291f59f85c63d6d8d6407f1b3b5
--- /dev/null
+++ b/xtrn/lord2/cnw/orphan.ref
@@ -0,0 +1,234 @@
+; Script file ORPHAN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:21 2001
+
+@DECLARE start 000000393
+@DECLARE entrance 000001135
+@DECLARE brats 000002276
+@DECLARE donate 000002597
+@DECLARE broke 000003220
+@DECLARE five 000003419
+@DECLARE hundred 000003636
+@DECLARE thousand 000003947
+@DECLARE done 000004258
+@DECLARE locked 000004451
+@NOCHECK
+; End of .REF index
+
+@#start
+@do moveback
+@datanewday orphan.idf
+@dataload orphan.idf &playernum `p20
+@IF `p20 IS 1 THEN DO
+ @BEGIN
+ @DO GOTO LOCKED
+ @END
+@clear screen
+@show
+
+`2 As you enter the building, you see a broken sign hanging from the door.
+It reads `1GREENTREE ORPHANAGE`2. As you push the door open, it squeaks on rusty
+hinges.
+
+@key
+@show
+`2 This place is obviously a relic of the days when the Red Dragon made
+orphans of many children. Now it is very run down. The windows are broken,
+and the furniture is in disrepair.
+
+@key
+@show
+`2 The sounds of children playing (and fighting) can be heard outside. It
+is apparent that the orphanage suffers from a serious lack of funding.
+
+@key
+@do goto entrance
+@#entrance
+@clear screen
+@show
+
+[?7h[255D[40m
+
+
+
+
+[0;1m[20C��������
+[9C[30m����[0;36m�[1;30m��������[0;33m���[1;37;43m�[40m��
+[8C[30m����[0;36m��[1;30m��������[0;33m����[34;43m�[1;37;40m�
+[6C[30m�����[0;36m���[1;30m�������� [0;33m�
+[5C[1;30m�����[0;36m���� [1;30m�����[17C[32mAn elderly woman is scrubbing the floor.
+[5C[30m�����[0;36m����[6C[1;30m��
+ �������[0;36m����[7C[1;30m���
+[0;33m���[1;30m����������[9C[0m�[33;47m���[37;40m��
+[31m������������������������������������
+
+
+@do `v01 is 1
+@choice
+Leave before she sees me.
+Speak with the woman.
+@if response is 1 then do
+ @begin
+ @do goto done
+ @end
+@clear screen
+@show
+
+`2 You clear your throat, and the woman looks up from her work.
+
+`0 "Can I help you?" she asks.
+
+@do `v01 is 1
+@choice
+No thanks, I'm just looking around.
+I'd like to make a donation.
+Why do you waste your time with these stupid brats?
+@if response is 1 then do
+ @begin
+ @do goto entrance
+ @end
+@if response is 2 then do
+ @begin
+ @do goto donate
+ @end
+@if response is 3 then do
+ @begin
+ @do goto brats
+ @end
+
+@#brats
+@clear screen
+@show
+
+`0 The woman stares at you in disbelief. Suddenly, tears well up in her
+eyes.
+@key
+@show
+
+`0 "Because noone else will," she says quietly. She asks you to leave and
+returns to her work.
+@key
+@do `p07 - 2
+@show
+
+`5 ALIGNEMENT GOES DOWN BY 2
+@key
+@do goto done
+
+@#donate
+@clear screen
+@show
+
+`0 The woman stares at you in disbelief. Suddenly, tears of joy well up in
+her eyes.
+
+`0 "A donation?! Bless you! As you can see, our donations are few and far
+between. Anything you could give would help us immensely."
+
+@key
+@if money < 5 then do
+ @begin
+ @do goto broke
+ @end
+
+@clear screen
+@show
+
+`2How much would you like to donate?
+
+@do `v01 is 1
+@choice
+5
+500
+5000
+@if response is 1 then do
+ @begin
+ @do goto five
+ @end
+@if response is 2 then do
+ @begin
+ @do goto hundred
+ @end
+@if response is 3 then do
+ @begin
+ @do goto thousand
+ @end
+
+@#broke
+@clear screen
+@show
+
+`2 You realize that you are not carrying enough money with you. You tell
+the woman that you will be back later, and you quietly leave.
+
+@key
+@do goto done
+
+@#five
+@clear screen
+@show
+
+`0 You hand 5 gold pieces to the woman. She thanks you and takes the money.
+
+@key
+@do money - 5
+@show
+`5 You feel really good about yourself.
+
+@key
+@do goto done
+
+@#hundred
+@if money < 500 then do
+ @begin
+ @do goto broke
+ @end
+@clear screen
+@show
+
+`0 You hand 500 gold pieces to the woman. She gives you a big smile, and
+thanks you as she takes the money.
+
+@key
+@do money - 500
+@do `p07 + 1
+@show
+`5 ALIGNMENT GOES UP BY 1
+
+@key
+@do goto done
+
+@#thousand
+@if money < 5000 then do
+ @begin
+ @do goto broke
+ @end
+@clear screen
+@show
+
+`0 You hand 5000 gold pieces to the woman. She gives you a HUGE smile, and
+thanks you as she takes the money.
+
+@key
+@do money - 5000
+@do `p07 + 5
+@show
+`5 ALIGNMENT GOES UP BY 5
+
+@key
+@do goto done
+
+@#done
+@clear screen
+@show
+
+`0 As you leave the orphanage, the door squeaks loudly on its rusty hinges.
+
+@key
+@datasave orphan.idf &playernum 1
+@drawmap
+@update
+@closescript
+
+@#locked
+ @DO SAYBAR
+The orphanage is locked. Try again tomorrow.
+@closescript
diff --git a/xtrn/lord2/cnw/owtc.ref b/xtrn/lord2/cnw/owtc.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e166cbd86ce24cd7d3e0bb3fa80affbf27afc830
--- /dev/null
+++ b/xtrn/lord2/cnw/owtc.ref
@@ -0,0 +1,216 @@
+; Script file OWTC.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:31 2001
+
+@DECLARE oracle 000000260
+@DECLARE upbar 000004568
+@DECLARE clearbar 000004927
+@NOCHECK
+; End of .REF index
+
+;The Main REF file for the Oracle IGM by Tien Lung
+
+@#oracle
+@busy
+@do moveback
+@dataload oracle.idf &playernum `p20
+@do `v01 is 1
+@show
+`r0`c `$Oracle
+
+ `2This ancient man stands before you. His age seems to exceed anything
+ ever expected from a normal human. He stands there awaiting you to make
+ a decision.
+
+@do write
+`x`x
+@choice
+`%What do you do?
+=`p20 1 `%I wish to see your 1st vision
+=`p20 2 `%I wish to see your 2nd vision
+=`p20 3 `%I want your next vision
+=`p20 4 `%Can you give me anymore help?
+=`p20 5 `%Anything else?
+=`p20 6 `%What else do you know of the `@dragon`%?
+=`p20 7 `%Tell me more!
+=`p20 8 `%Have learned more?
+`%Leave
+@if response is 10 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 1 then do
+ @begin
+ @show
+`\
+ `0"I am an oracle, a seer." `2The man annouced proudly. `0"I bring forth
+ visions from the past, present and future. I am the only person in the
+ world who can show you these things."
+ `k
+ `0"When you wish to see a vision... ask."
+ `k
+ @dataload oracle.idf &playernum `p20
+ @if `p20 < 1 then do
+ @begin
+ @do `p20 is 1
+ @datasave oracle.idf &playernum `p20
+ @end
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+`\
+ `0"Here is my first vision... and I'm involved."
+ `k
+ @dataload oracle.idf &playernum `p20
+ @do `p20 + 1
+ @datasave oracle.idf &playernum `p20
+ @routine scene1 in oracle1.ref
+ @end
+@if responce is 3 then do
+ @begin
+ @show
+`\
+ `0"Here is my second vision... and I'm involved."
+ `k
+ @dataload oracle.idf &playernum `p20
+ @do `p20 + 1
+ @datasave oracle.idf &playernum `p20
+ @routine scene2 in oracle1.ref
+ @end
+@if responce is 4 then do
+ @begin
+ @show
+`r0`c`\`\
+ `0"Here is my thrid vision... But it costs `$300 `0gp"
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+`%I'll pay
+`%No thanks
+ @if responce is 1 then do
+ @begin
+ @if money < 300 then do
+ @begin
+ @show
+ `\
+ `0"I'm sorry, but you don't have enough."
+ `k
+ @do goto oracle
+ @end
+ @do money - 300
+ @dataload oracle.idf &playernum `p20
+ @do `p20 + 1
+ @datasave oracle.idf &playernum `p20
+ @routine scene3 in oracle2.ref
+ @end
+ @if responce is 2 then goto oracle
+ @end
+@if responce is 5 then do
+ @begin
+ @show
+`\
+ `0"Here is an extra bit of my help..."
+ `k
+ `bGET 5 HIT POINTS`%
+ `k
+ @do `p03 + 5
+ @dataload oracle.idf &playernum `p20
+ @do `p20 + 1
+ @datasave oracle.idf &playernum `p20
+ @end
+@if responce is 6 then do
+ @begin
+ @show
+`r0`c`\`\
+ `0"Here is my next vision... But it costs `$300 `0gp"
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+`%I'll pay
+`%No thanks
+ @if responce is 1 then do
+ @begin
+ @if money < 300 then do
+ @begin
+ @show
+ `\
+ `0"I'm sorry, but you don't have enough."
+ `k
+ @do goto oracle
+ @end
+ @do money - 300
+ @dataload oracle.idf &playernum `p20
+ @do `p20 + 1
+ @datasave oracle.idf &playernum `p20
+ @run scene4 in oracle2.ref
+ @end
+ @if responce is 2 then goto oracle
+ @end
+@if responce is 7 then do
+ @begin
+ @show
+`r0`c`\`\
+ `0"That brings us to another vision... But it costs `$1000 `0gp"
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+`%I'll pay
+`%No thanks
+ @if responce is 1 then do
+ @begin
+ @if money < 1000 then do
+ @begin
+ @show
+ `\
+ `0"I'm sorry, but you don't have enough."
+ `k
+ @do goto oracle
+ @end
+ @do money - 1000
+ @dataload oracle.idf &playernum `p20
+ @do `p20 + 1
+ @datasave oracle.idf &playernum `p20
+ @run scene5 in oracle3.ref
+ @end
+ @if responce is 2 then goto oracle
+ @end
+@if responce is 8 then do
+ @begin
+ @dataload godlike.idf &playernum `p21
+ @if `p21 is 2 then do
+ @begin
+ @dataload oracle.idf &playernum `p20
+ @do `p20 + 1
+ @datasave oracle.idf &playernum `p20
+ @run scene6 in oracle3.ref
+ @end
+ @show
+`r0`c`\`\
+ `0"I lost my abilities to see into the future without my `$Time Gem`0. The
+ Judge from `9Lawyer's World `0took it from me as penalty for losing a case."
+ `k
+ `\`2Maybe you might be able to get it...
+ `k
+ @do goto oracle
+ @end
+@if responce not 9 then goto oracle
+
+@#upbar
+@do move 1 1
+@do write
+`r1`%������������������������������������������������������������������������������Ŀ`r0
+@do move 1 2
+@do write
+`r1`%� �`r0
+@do move 1 3
+@do write
+`r1`%��������������������������������������������������������������������������������`r0
+
+@#clearbar
+@do move 1 2
+@do write
+`r1`%� �`r0
diff --git a/xtrn/lord2/cnw/palo.ref b/xtrn/lord2/cnw/palo.ref
new file mode 100644
index 0000000000000000000000000000000000000000..08c567a53a0e473e52e9b902fdd5dfe18daed29f
--- /dev/null
+++ b/xtrn/lord2/cnw/palo.ref
@@ -0,0 +1,508 @@
+; Script file PALO.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:31 2001
+
+@DECLARE castle 000000859
+@DECLARE finneg 000001045
+@DECLARE fiend 000002837
+@DECLARE cave 000006058
+@DECLARE mazeguy 000006160
+@DECLARE ghostguard 000006280
+@DECLARE wizard 000006392
+@DECLARE guard 000009307
+@DECLARE drink1 000009603
+@DECLARE drink2 000009676
+@DECLARE drink3 000009794
+@DECLARE drink4 000009904
+@DECLARE bless 000010003
+@DECLARE bartender 000010663
+@DECLARE nomore 000012687
+@NOCHECK
+; End of .REF index
+
+;��������������������������������������������������������������������
+; Paladin's Oasis IGM for LORD ][
+; �������������������������������
+; version 2 - Finneg bug fixed entrance -- middle of desert
+; Author: E-mail TALAPHID@JUNO.COM
+;��������������������������������������������������������������������
+@#CASTLE
+@offmap
+ @show
+`r0`c`r1`% Inside the Paladin's Oasis Castle `r0`\
+@do `v01 is 3
+@choice
+Talk to Finneg
+Talk to `@F`4iend
+Leave
+@if RESPONSE is 1 then do
+ @begin
+@LABEL FINNEG
+ @show
+`r0`c`r1`% Dealing with the unwholesome Finneg `r0`\
+@if `i44 > 0 then do
+ @begin
+@show
+`9Finneg: `%"`7I'll buy that `+44`7 off you for `$3 gems`7...?`%"`\
+@do `v01 is 1
+@choice
+ No way, you loon!
+ Sure! Done deal!
+@if RESPONSE is 2 then do
+ @begin
+ @do `p19 + 3
+ @do `i44 - 1
+ @do `p14 is 0
+ @do `p15 is 0
+ @do `p16 is 0
+ @do `p17 is 0
+ @end
+ @end
+@if `i47 > 0 then do
+ @begin
+@show
+`9Finneg: `%"`7I'll buy that `+47`7 off you for `$4 gems`7...?`%"`\
+@do `v01 is 1
+@choice
+ No way, you loon!
+ Sure! Done deal!
+@if RESPONSE is 2 then do
+ @begin
+ @do `p19 + 4
+ @do `i47 - 1
+ @do `p14 is 0
+ @do `p15 is 0
+ @do `p16 is 0
+ @do `p17 is 0
+ @end
+ @end
+@if `i48 > 0 then do
+ @begin
+@show
+`9Finneg: `%"`7I'll buy that `+48`7 off you for `$3 gems`7...?`%"`\
+@do `v01 is 1
+@choice
+ No way, you loon!
+ Sure! Done deal!
+@if RESPONSE is 2 then do
+ @begin
+ @do `p19 + 3
+ @do `i48 - 1
+ @do `p14 is 0
+ @do `p15 is 0
+ @do `p16 is 0
+ @do `p17 is 0
+ @end
+ @end
+@if `i46 > 0 then do
+ @begin
+@show
+`9Finneg: `%"`7I'll buy that `+46`7 off you for `$2 gems`7...?`%"`\
+@do `v01 is 1
+@choice
+ No way, you loon!
+ Sure! Done deal!
+@if RESPONSE is 2 then do
+ @begin
+ @do `p19 + 2
+ @do `i46 - 1
+ @do `p14 is 0
+ @do `p15 is 0
+ @do `p16 is 0
+ @do `p17 is 0
+ @end
+ @end
+@if `i45 > 0 then do
+ @begin
+@show
+`9Finneg: `%"`7I'll buy that `+45`7 off you for `$3 gems`7...?`%"`\
+@do `v01 is 1
+@choice
+ No way, you loon!
+ Sure! Done deal!
+@if RESPONSE is 2 then do
+ @begin
+ @do `p19 + 3
+ @do `i45 - 1
+ @do `p14 is 0
+ @do `p15 is 0
+ @do `p16 is 0
+ @do `p17 is 0
+ @end
+ @end
+@show
+`\`\
+`9Finneg: `%"`7I do business all with quest items...`%" `7he sneers.
+@key
+ @RUN CASTLE
+ @end
+@if RESPONSE is 2 then do
+ @begin
+@LABEL FIEND
+@show
+`r0`c`r1`% Consulting the omnipresent `@F`4iend `r0`\
+`@F`4iend`7: `%"`7What do you want the inside word on?`%"`\
+ @do `v01 is 5
+ @choice
+Free money
+Other IGMs by Tal
+The questions of the Scrying Company
+What's the deal with Herman?
+No, I wanna remain ignant.
+ @if response is 1 then do
+ @begin
+ @show
+`\`\`@"`4Well, there's the money in the tree south and east of Stonebrook,
+you could sell the wildberries that are on the east side of the screen mom's
+house is on, and you can run errands for the `0Bartender`4 in `2Greentree`4,
+and run back and forth to `9Porttown`4. If you're weak, and you can't go
+beyond `9Porttown`4, reject offers to deliver anywhere but `2Greentree`4 or
+`9Porttown`4. Find out who owns the Wizard's Castle, get on their good side.
+GET THE WAND. Rumour is that the bats in the cave (this is for players who
+are before Neb) are the cash cows of that area. Beating up the helpless guys
+gets you some quick, easy cash. Do this even if you're good a few times, to
+afford the expensive equipment.`@"
+@key
+ @DO GOTO FIEND
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`@"`4Divine Comedy : To get past Peter, you need to be holding all four
+pieces of the Skystaff. But that's only the first time through. Raphael, the
+little `%bright white `4face on top, only lets people with more than 19
+alignment, whereas Incubus, the `@bright red`4 face on bottom, only lets past
+those of us with less than -19 alignment. There is a difference in which is
+your patron deity and his gifts -- but they're more or less equal.
+ Monastry : The sign with the Psalm on it rotates by day. The store
+sells two more items, if you are of sufficent virtue.
+ Scrying Company : For the questions, ask me about that seperately.
+But for the scoop, make sure there are only FIVE people in the band at
+O'Bubba's-- or else you've got a trickster. My hint to you is this --
+the IGM was written by TALAPHID, and he likes coincidences.
+ Gorilla Villa : This is a straightforward little IGM. The dryad
+is as powerful as the chief WHEN THEY LAST VISITED IT! So, they may NOW
+be a level 22, but if they haven't vistied since they claimed it at level 5,
+ho ho ho, an easy claim indeed. Each player can only own ONE house. Although,
+in the regular game of LORD ][, there is a moonstone not far from here.
+ Magi, the Teleportationist : This fellow charges you based upon
+your experience level. Don't bother paying for things like VooDoo temple
+or Divine Comedy -- they're right outside.`@"
+@key
+ @DO GOTO FIEND
+ @end
+ @if response is 3 then do
+ @begin
+ @show
+`\`\`@"`4The key to this is that the answer must, unfortunately, be uppercase.
+The answers, jumbled, are SETH VILLAGE DIARY SOSEN WILD BARAK'S KOSHI SMACKROD
+SHIRT SPIKED BERRIES ABLE JEWEL.`@"
+@key
+ @DO GOTO FIEND
+ @end
+ @if response is 4 then do
+ @begin
+ @show
+`\`\`@"`4Herman isn't too clever -- he never learns from his mistakes. But,
+if you learn the right items to bring to him, he can make a much cheaper
+Skystaff.
+@key
+ @DO GOTO FIEND
+ @end
+ @RUN CASTLE
+ @end
+@if RESPONSE is 3 then do
+ @begin
+ @do MOVEBACK
+ @DRAWMAP
+ @UPDATE
+ @closescript
+ @end
+
+@#CAVE
+ @do map is 1581
+ @do x is 34
+ @do y is 19
+ @loadmap 1581
+ @drawmap
+ @update
+
+@#MAZEGUY
+@DO SAYBAR
+`@Cr`4azed Man`7: `%"`7I once bit into a glowworm... that's the answer!!!`%"
+@DO MOVEBACK
+
+@#GHOSTGUARD
+@DO SAYBAR
+`%Gh`7os`%t`7: `%"`7The bartender has a good deal going... but only if you're good.`%"
+
+@#WIZARD
+@DO MOVEBACK
+@DO SAYBAR
+`7W`8i`7z`%a`7r`8d`7: Hi! I'm Herman, the great Transmutationist!
+@key
+@DO SAYBAR
+`7W`8i`7z`%a`7r`8d`7: Each use of my power drains one of your quest oppurtunities.
+@key
+;29 -> 25 Sky
+;1 -> 2 Poison
+;2 -> 24 Sky
+;4 -> 3 milk
+;3 -> 23 Skystaff
+;5 -> 6 Rusty Dag
+;6 -> 4 Dagger
+;8 -> 11 Little girl
+;11 -> 19 Apple
+;40 -> 30 Sparking Salmon
+;43 -> 2 Poison
+@if `p31 < 1 then do
+ @begin
+ @do saybar
+`7W`8i`7z`%a`7r`8d`7: It seems you don't have any quest oppurtunities left!
+ @closescript
+ @end
+@do `v01 is 1
+@show
+`r0`c`r1`% Talking with a madman `r0`\
+@choice
+I want nothing to do with insanity!
+>`i29 0 Change my Salmon!
+>`i01 0 Change my wildberries!
+>`i02 0 Change my poison berries!
+>`i04 0 Change my dagger!
+>`i03 0 Change my milk!
+>`i05 0 Change my Green Potion!
+>`i06 0 Change this rusty dagger!
+>`i08 0 Change my mom's pie!
+>`i11 0 Psst, change this little girl!
+>`i19 0 Doc, here's an apple, what can you do?
+>`i40 0 Here's this blue potion...
+>`i43 0 I've got a chicken egg...
+@drawmap
+@update
+@if RESPONSE is 1 then do
+ @begin
+ @closescript
+ @end
+@do `p31 - 1
+@if RESPONSE is 2 then do
+ @begin
+ @do `i29 - 1
+ @do `i25 + 1
+ @do saybar
+`7W`8i`7z`%a`7r`8d`7: Woah! Its a `%Skystaff`7 part!
+ @end
+@if RESPONSE is 3 then do
+ @begin
+ @do `i01 - 1
+ @do `i02 + 1
+ @do saybar
+`7W`8i`7z`%a`7r`8d`7: Uh oh, that looks dangerous!
+ @end
+@if RESPONSE is 4 then do
+ @begin
+ @do `i02 - 1
+ @do `i24 + 1
+ @do saybar
+`7W`8i`7z`%a`7r`8d`7: Woah! Its a `%Skystaff`7 part!
+ @end
+@if RESPONSE is 5 then do
+ @begin
+ @do `i04 - 1
+ @do `i03 + 1
+ @do saybar
+`7W`8i`7z`%a`7r`8d`7: >astounded< Its like Bessy, all over again...
+ @end
+@if RESPONSE is 6 then do
+ @begin
+ @do `i03 - 1
+ @do `i23 + 1
+ @do saybar
+`7W`8i`7z`%a`7r`8d`7: Woah! Its a `%Skystaff`7 part!
+ @end
+@if RESPONSE is 7 then do
+ @begin
+ @do `i05 - 1
+ @do `i06 + 1
+ @do saybar
+`7W`8i`7z`%a`7r`8d`7: Drat! ANOTHER object covered in rust...
+ @end
+@if RESPONSE is 8 then do
+ @begin
+ @do `i06 - 1
+ @do `i04 + 1
+ @do saybar
+`7W`8i`7z`%a`7r`8d`7: Ha. There goes the rust!
+ @end
+@if RESPONSE is 9 then do
+ @begin
+ @do `i08 - 1
+ @do `i11 + 1
+ @do saybar
+`7W`8i`7z`%a`7r`8d`7: That's the first time a little girl has been here.. honest!
+ @end
+@if RESPONSE is 10 then do
+ @begin
+ @do `i11 - 1
+ @do `i19 + 1
+ @do saybar
+`7W`8i`7z`%a`7r`8d`7: Sniffle... again, an apple... just like the last one...
+ @end
+@if RESPONSE is 11 then do
+ @begin
+ @do saybar
+`7W`8i`7z`%a`7r`8d`7: I could keep the doctor away!
+ @do `p31 + 1
+ @end
+@if RESPONSE is 12 then do
+ @begin
+ @do `i40 - 1
+ @do `i30 + 1
+ @do saybar
+`7W`8i`7z`%a`7r`8d`7: A POTION into a FISH?!?! Sounds like a fairy tale...
+ @end
+@if RESPONSE is 13 then do
+ @begin
+ @do `i43 - 1
+ @do `i02 + 1
+ @do saybar
+`7W`8i`7z`%a`7r`8d`7: I guess that egg was rotten...
+ @end
+
+@#GUARD
+@if `p07 < 9 then do
+ @begin
+ @do moveback
+ @do saybar
+`!G`3uard`7: Halt! No `bevil-doer`7 shall pass!
+ @key
+ @do saybar
+`!G`3uard`7: Even if you slip past me, others will see you for what you are!
+@closescript
+ @end
+ @do saybar
+`!G`3uard`7: Welcome to `%Paladin's Oasis!
+
+@#DRINK1
+@DO MOVEBACK
+@DO SAYBAR
+`7Avatar: It is TOUGH being good.
+
+@#DRINK2
+@DO MOVEBACK
+@DO SAYBAR
+`%Paladin: `7The `%Gryphon Moon`7 is our goal... I suspect the `bTooth Clan`7!
+
+@#DRINK3
+@DO MOVEBACK
+@DO SAYBAR
+`%Po`@pe`7: The enemies of the `%Light`7 seek the fabled `4Smackrod`7.
+
+@#DRINK4
+@DO MOVEBACK
+@DO SAYBAR
+`7Prophet: All will become clear when a Prince does obscure!
+
+@#BLESS
+@show
+`c[7B[255D[3C[7A[0;1;31m�[30m����[31m�[8D[B�[0m�[1m������[A
+[9C[0m�[1;31m�[11D[B�[0m�[1m�[0m�[1;30m�[34m��[30m�[0m�[1m�[0m�[A
+[11C[1;31m�[12D[B[30m�[37m�[0m�[1;30m�[34m�[0;34mɻ[1m�[30m�[0m�[A
+[10C[1m�[30m�[12D[B�[37m�[0m�[1;30m�[34m�[0;34mȼ[1m�[30m�[0m�[A
+[10C[1m�[30m�[12D[B[31m�[0m�[1m�[0m�[1;30m�[34m��[30m�[0m�[1m�[A
+[10C[0m�[1;31m�[11D[B�[0m�[1m������[0m�[1;31m�[8D[B�[30m����[31m[A
+[8C�[4D[3A[34mȼ[2D[1Aɻ[2D[33mɻ[2D[Bȼ[2D[37mȼ[2D[1Aɻ[2D[A
+[5C[0mɻ[2D[Bȼ[2D[1;30m�[1Dȼ[2D[1Aɻ[2D [B [2D [1A [0m`\`\`\`\
+@#BARTENDER
+@if `p07 < 9 then do
+ @begin
+ @do saybar
+ `0Bartender: `7I don't deal with `4SCUM`7 like you.
+ @do moveback
+ @closescript
+ @end
+@show
+`r0`c`r1`% Dealing with Al `r0`\
+@do `v01 is 4
+@choice
+ Trade in 4 gems for a blessing (Gems: `$`p19)
+ Ask about potions
+ Ask about name
+ No deal
+@if RESPONSE is 4 then do
+ @begin
+@show
+`\`\ `$"`2See you later, you crazily-familar-yet-still-not-figure-type-person!`$"`\
+ @key
+ @do moveback
+ @drawmap
+ @update
+ @closescript
+ @end
+@if RESPONSE is 3 then do
+ @begin
+@show
+`\`\ `!"`3Hey, kid, if you know what's good for you, you won't ask no more questions.`!"
+ `$"`2What's amatta, your name something like Harry Ballz or something?`$"`\
+ `!"`3Impudent boy! I am a Gohl, and as such, the protection of the clan
+Sabrewulf is mine! As are the psychic powers passed from father to son!`!"`\
+ `$"`2Psyhic powers? More like bowel powers! P-U!`$"
+`\ `2...you think he'd make a better "barntender"...`\
+@key
+@RUN BARTENDER
+@end
+@if RESPONSE is 2 then do
+ @begin
+ @show
+`\`\`!"`3Do I `@LOOK`3 like a chemist?!`!"`\
+@key
+@RUN BARTENDER
+@end
+@if RESPONSE is 1 then do
+ @begin
+ @if `p19 < 4 then do
+ @begin
+ @do moveback
+ @drawmap
+ @update
+ @do saybar
+`0Bartender: `!"`3YOU MORON! You don't HAVE 4 gems!`!"
+ @closescript
+ @end
+ @do `v01 is 5
+@show
+`\`\`r1`% Exchanging Gems for... `r0`\
+@choice
+ Steel blessing ( Strength +5 )
+ Blood blessing ( Max HP +5 )
+ Forge blessing ( Defense +5 )
+ Soul blessing ( Charm +3, Alignment +2 )
+ Nah... changed my mind.
+@show
+`\
+ @do moveback
+@if RESPONSE is 5 then do
+ @begin
+ @key
+ @drawmap
+ @update
+ @closescript
+ @end
+ @ROUTINE BLESS
+ @key
+ @do `p19 - 4
+@if RESPONSE is 1 then do
+ @do `p04 + 5
+@if RESPONSE is 2 then do
+ @begin
+ @do `p02 + 5
+ @do `p03 + 5
+ @end
+@if RESPONSE is 3 then do
+ @do `p05 + 5
+@if RESPONSE is 4 then do
+ @begin
+ @do `p08 + 3
+ @do `p07 + 2
+ @end
+@drawmap
+@update
+@#NOMORE
diff --git a/xtrn/lord2/cnw/pass3.ref b/xtrn/lord2/cnw/pass3.ref
new file mode 100644
index 0000000000000000000000000000000000000000..02bf8e6c0e8f1e1fb4b213905e41163f9ece7457
--- /dev/null
+++ b/xtrn/lord2/cnw/pass3.ref
@@ -0,0 +1,578 @@
+; Script file PASS3.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:31 2001
+
+@DECLARE location 000000702
+@DECLARE mybank 000001328
+@DECLARE doorguard 000004170
+@DECLARE startg 000004276
+@DECLARE enter 000008224
+@DECLARE done 000009576
+@DECLARE letmein 000011336
+@DECLARE done 000011755
+@NOCHECK
+; End of .REF index
+
+;
+; CNW updated to use ONLY 1 ref file instead of 3!
+; no need to copy ref after ref to do the same things.. shesh..
+; REMOVED: PASS1.REF
+; PASS2.REF
+;
+; Added @#LOCATION routine to figure out where they are.
+;
+; SIMPLE.
+
+@#LOCATION
+@if &lastx is 30 then `p29 is 3
+@if &lastx is 21 then `p29 is 2
+@if &lastx is 13 then `p29 is 1
+
+@readfile pass1.dat
+`p20
+@if `p20 is &playernum then do
+ @begin
+ @if &lastx is 13 then `p29 is 1
+ @If &map is 1455 then `p29 is 1
+ @end
+@readfile pass2.dat
+`p20
+@if `p20 is &playernum then do
+ @begin
+ @if &lastx is 21 then `p29 is 2
+ @If &map is 1455 then `p29 is 2
+ @end
+@readfile pass3.dat
+`p20
+@if `p20 is &playernum then do
+ @begin
+ @if &lastx is 30 then `p29 is 3
+ @If &map is 1456 then `p29 is 3
+ @end
+
+@#MYBANK
+@routine LOCATION
+@do moveback
+@do `p20 is 0
+@if pastre`p29.dat exist true then do
+ @begin
+ @readfile pastre`p29.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile pastre`p29.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete pastre`p29.dat
+ @writefile pastre`p29.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile pass`p29.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Underground House Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile pastre`p29.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete pastre`p29.dat
+ @writefile pastre`p29.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile pass`p29.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Underground House Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+@#doorguard
+@routine LOCATION
+@do moveback
+@Clear Screen
+@do move 1 1
+@display MAID in people.ref
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+@if pass`p29.dat exist false then do
+ @begin
+ @do move 40 10
+`0"Hello, now leave!" `2the maid barks.
+ @key bottom
+ @closescript
+ @end
+
+@readfile pass`p29.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the door maid, nice of him to let you in.
+ @key bottom
+ @drawmap
+ @closescript
+ @end
+@busy
+
+@do `v01 is 1 ;set default choice to 1
+@routine rightclear in people.ref
+@do move 40 3
+@do write
+`r0 `r1 Instructing your servants `r0
+@do move 40 5
+@do write
+`2The door maid snaps to attention when
+@do move 40 6
+@do write
+she sees you are going to address her.
+@do move 40 8
+@choice
+Change password (`0`s01`%)
+Ownership options
+Leave
+@routine rightclear in people.ref
+@if responce is 2 then do
+ @begin
+@do move 40 3
+@do write
+`r0 `r1 Ownership Options `r0
+@do move 40 5
+@do write
+`2You retrieve your deed and carefully
+@do move 40 6
+@do write
+ look it over.
+
+ @do `v01 is 1
+@do move 40 8
+ @choice
+Transfer deed to someone else
+Sell house to the bank - `$10,500`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+@do move 40 12
+@do write
+`\`\ `2Transfer to whom?
+ @do move 40 13
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @do move 40 14
+ @do write
+`2You decide to keep your domain.
+ @key bottom
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @do move 40 14
+ @do write
+`2Are you sure you wish to give your
+@do move 40 15
+@do write
+ keep to `0`s02`2?
+@do move 40 17
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+@do move 40 19
+@do write
+`2You decide to keep your domain.
+ @key bottom
+ @do goto startg
+ @end
+
+ @do delete pass`p29.dat
+ @writefile pass`p29.dat
+`p20
+`s01
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of an Underground House to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%Underground House`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+@do move 40 12
+@do write
+`2Are you sure you wish to sell your
+@do move 40 13
+@do write
+ keep back to the bank?`\
+@do `v01 is 1
+@do move 40 15
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+@do move 40 18
+@do write
+`2You decide to keep your domain
+ @key bottom
+ @do goto startg
+ @end
+
+ @do delete pass`p29.dat
+ @do `p30 is 24
+ @do `v40 is 10500
+ @routine widthdraw in vaults.ref
+ @do money + 10500
+ @do move 40 18
+ @do write
+ `%KEEP SOLD!`2
+ @key bottom
+ @do addlog
+ `0`n`2 has sold `%Underground House`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do move 40 12
+ @do write
+`0"And the new password, s&sir?"
+ @do move 40 13
+ @do write
+`2(enter `4NONE`2 for no access to anyone)
+ @do move 1 22
+ @do write
+`2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @do move 40 16
+ @do write
+`2You decide the current password is ok.
+ @key bottom
+ @do goto startg
+ @end
+ @do delete pass`p29.dat
+ @writefile pass`p29.dat
+&playernum
+`s01
+ @do move 40 16
+ @do write
+`0"Yes s&sir, I will not forget it!"
+ @do move 40 17
+ @do write
+ `2the door maid promises.
+ @key bottom
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#enter
+@routine LOCATION
+@do moveback
+@offmap
+@if pass`p29.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2Underground House is a little cottage on an underground lake!
+
+ It is for sale, however. The asking price is `$$20,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Purchase it.
+<&money 20000 Sigh wistfully and leave since you don't have enough.
+>&money 19999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if pass`p29.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile pass`p29.dat
+&playernum
+NONE
+ @do `p30 is 24
+ @do `v40 is 20000
+ @routine deposit in vaults.ref
+ @do money - 20000
+ @do addlog
+ `0`n `2buys `%Underground House`2!
+ @routine seperate in gametxt.ref
+
+ @display main in people.ref
+ @do move 40 3
+ @do write
+`r0 `r1 `%Why hello there, landowner! `r0
+ @do move 40 5
+ @do write
+`\`2 Nice job! You now own this keep!
+ @key bottom
+ @do move 40 6
+ @do write
+`0As a special bonus, two beds and a
+ @do move 40 7
+ @do write
+ door maid are included!
+ @do move 40 10
+ @do write
+ `2Enjoy your new home.
+ @key bottom
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile pass`p29.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete pass`p29.dat
+ @do addlog
+ `%Underground House`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+ `4Ouch!
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2the door maid asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%Underground House`0,"`2 the maid smiles as he opens the gate.`\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `0Underground House Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the maid by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The maid doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein
+@routine LOCATION
+@if `p29 is 3 then do
+ @begin
+ @do x is 6
+ @do y is 15
+ @do map is 1456
+ @end
+@if `p29 is 2 then do
+ @begin
+ @do x is 27
+ @do y is 16
+ @do map is 1455
+ @end
+@if `p29 is 1 then do
+ @begin
+ @do x is 9
+ @do y is 16
+ @do map is 1455
+ @end
+@loadmap &map
+@drawmap
+@update
+@#done
diff --git a/xtrn/lord2/cnw/passage.ref b/xtrn/lord2/cnw/passage.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c912afe9f40ecba1af1f5c419fe6b03fbad48ef6
--- /dev/null
+++ b/xtrn/lord2/cnw/passage.ref
@@ -0,0 +1,308 @@
+; Script file PASSAGE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:31 2001
+
+@DECLARE nobody 000000628
+@DECLARE jaime 000000726
+@DECLARE jaimesrt 000000772
+@DECLARE innsign 000002924
+@DECLARE tsign 000003026
+@DECLARE tstart 000003199
+@DECLARE weapon 000003792
+@DECLARE wpstart 000003846
+@DECLARE armor 000004172
+@DECLARE arstart 000004226
+@DECLARE pawn 000004517
+@DECLARE pwstart 000004571
+@DECLARE warpme 000004853
+@DECLARE sign 000004930
+@DECLARE 1sign 000005018
+@DECLARE 2sign 000005097
+@DECLARE stone 000005176
+@DECLARE islesign 000005566
+@NOCHECK
+; End of .REF index
+
+;<added by cnw>
+@#NOBODY
+@DO MOVEBACK
+@DO SAYBAR
+Nobody seems to be home.
+@closescript
+;<end added by cnw>
+
+@#jaime
+@do `v01 is 1
+@do moveback
+@label jaimesrt
+@show
+`r0`c `%Talking with the lovely Jaime
+
+ `9Hello `n, what can I do for you?
+
+@do write
+`x`x
+@choice
+Talk with the lovely Jaime.
+Leave
+@if response is 1 then do
+ @begin
+@show
+
+`r0`c Talking with the lovely Jaime
+
+ `4Hello `n.
+
+ `5"Hi, Jaime... god you are beautiful!" you say.
+`k
+
+ `4"Thank you `n. Now what is it that you wanted to talk to me about?"
+ Jaime asks
+`k
+
+ `5"Nothing much really, but I heard a rumor that you knew Master Walton,
+ master of all known magics," you say.
+`k
+
+ `4"Yes I do, he is a nice man. He even gives me free stuff and free
+ lessons!" Jaime replies
+`k
+
+ `5"Wow, you know him that well!" you say surprised.
+`k
+
+ `4"Yes I do! I even now where he lives!" Jaime laughs.
+`k
+
+ `5"You do... ah you are so lucky. And does he know where you live?" you ask
+`k
+
+ `4"Why, yes he does. I invite him over some times! He usually excepts...
+ when he is not busy teaching others the ways of the magics!" she says
+`k
+
+ `5"Where does he live?" you question.
+`k
+
+ `4"Inside the Wizard Tower on the Isle of the Phreaks," she says
+`k
+
+ `5"Oh... But you need to be a good charcter to get in there I hear!" you
+ say
+`k
+
+ `4"Yes that is true, Max is the master of all magics but he is of the
+ good side! He knows evil spells but he never uses them. He only uses
+ good spells. He usually only uses his spell for knowledge and defense."
+ Jaime says.
+ `k
+
+ `5"Wow, you sure do know a lot about him," you say.
+ `k
+
+ `4"Yes, I guess I do, `n. But he is an easy guy to get along with!" she
+ says
+`k
+
+ `5"Maybe I could get to know him, maybe I could become his apprentice!"
+ you say.
+`k
+
+ `4"I bet he would like you. And I'll give him your request. But if you
+ are evil, he will never let you into his home! But I have to go tend to
+ a problem in the inn, so I'll talk to you later.
+`k
+
+ `5"Ok, bye Jaime, you are the most beautiful girl in the whole realm!"
+ you say
+`k
+@end
+
+@if response not 2 then goto jaimesrt
+@drawmap
+@update
+
+@#innsign
+@do moveback
+@do saybar
+`%Sign: `7Rosemary Inn, Owned and operated by, `bJaime`7.
+@end
+
+@#tsign
+@offmap
+@do moveback
+@do saybar
+Its a broken and unreadble sign
+@closescript
+;<--removed by CNW--> enuf training centres already! :)
+
+@do `v01 is 1
+@label tstart
+@show
+`r0`c `%Training Center Sign
+
+`4 I know the training center is a complete copy of the one in Greentree,
+But I thought some people just might not want to travel back to Greentree,
+to get there level raise! Especially when you are in the desert already!
+`k
+`4 Be warned, if you choose the first one, you might end up somewhere you
+don't want to be!
+`k
+@do write
+`x`x
+@choice
+Let go of me you freak
+Say nothing and leave
+@if responce is 1 the do begin
+ @begin
+ @show
+
+@do x is 38
+@do y is 19
+@do map is 805
+@do goto warpme
+@end
+
+@drawmap
+@update
+
+@#weapon
+@offmap
+@do moveback
+@do `v01 is 1
+@label wpstart
+@show
+`r0`c `%Underground Weapons
+
+`2 You can see the finest collection of weapons in all the realm!
+
+@do write
+`x`x
+@choice
+Examine Weapons
+Go Outside
+@show
+`\
+@if responce is 1 the do begin
+ @begin
+@buymanager
+ 15
+ 16
+ 35
+ 36
+ @end
+
+@if response not 2 then goto wpstart
+@drawmap
+@update
+
+@#armor
+@offmap
+@do moveback
+@do `v01 is 1
+@label arstart
+@show
+`r0`c `%Underground Armor
+
+`2 You see a fine selection of armor
+
+@do write
+`x`x
+@choice
+Examine Armor
+Go Outside
+@show
+`\
+@if responce is 1 the do begin
+ @begin
+@buymanager
+ 13
+ 14
+ 20
+ 59
+ @end
+
+@if response not 2 then goto arstart
+@drawmap
+@update
+
+@#pawn
+@offmap
+@do moveback
+@do `v01 is 1
+@label pwstart
+@show
+`r0`c `%Underground Pawn Shop
+
+`2 What would you like to part with, kid?
+
+@do write
+`x`x
+@choice
+Sell Something
+Leave
+@show
+`\
+@if responce is 1 the do begin
+ @begin
+@sellmanager
+
+ @end
+
+@if response not 2 then goto pwstart
+@drawmap
+@update
+
+@#warpme
+@loadmap &map
+@drawmap
+@update
+@do quebar
+`%WOW! What a ride!
+
+@#sign
+@do moveback
+@do saybar
+`%Sign: `9Underground Passage to Arrisville
+@end
+
+@#1sign
+@do moveback
+@do saybar
+`%Sign:`9 South-East to Arrisville
+@end
+
+@#2sign
+@do moveback
+@do saybar
+`%Sign:`9 Frank the Healing Wizard
+@end
+
+@#stone
+;Isle of the Phreaks
+@if isle35.dat exist false then do
+@begin
+@do moveback
+@show
+
+`r0`c `r1 OUT OF ORDER `r0
+
+`k
+ `4Please encourage your sysop to download Isle of the Phreaks
+ igm by Max (Phreak) Walton.
+`k
+@drawmap
+@update
+@end
+@if isle35.dat exist true then do
+@begin
+@do x is 9
+@do y is 18
+@do map is 63
+@Do goto warpme
+
+@#islesign
+;Isle of the Phreaks teleporting sign
+@do moveback
+@do saybar
+`%Sign: Teleporter stone to the Isle of the Phreaks
+@end
+
diff --git a/xtrn/lord2/cnw/passagez.ref b/xtrn/lord2/cnw/passagez.ref
new file mode 100644
index 0000000000000000000000000000000000000000..885d3337f502240059b1735084654297927a7530
--- /dev/null
+++ b/xtrn/lord2/cnw/passagez.ref
@@ -0,0 +1,130 @@
+; Script file PASSAGEZ.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:31 2001
+
+@DECLARE boat 000000230
+@DECLARE sign 000001151
+@DECLARE sign2 000001472
+@DECLARE sign3 000001793
+@NOCHECK
+; End of .REF index
+
+
+@#boat
+;lets them warp to places
+@offmap
+@do moveback
+@show
+`r0`c `r1 Travel `r0
+
+ `0"Greetings,! "Where is it that you'd like to go?" The boatmaster
+ asks.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Porttown
+Flagcity
+Bone Town
+I think I'll stay here
+@if response not 4 then do
+ @begin
+@show
+`\`\ `0"We will leave whenever you're ready sir." he says.
+
+`k `2It is a long journey but you finally arrive.
+
+ `0"We have arrived at our destination `N `0. I'm heading back now."
+
+ `2You are glad to be rid of him.
+
+`k
+@if responce is 1 then do
+ @begin
+ ;Porttown
+ @do x is 39
+ @do y is 2
+ @do map is 152
+ @end
+
+@if responce is 2 then do
+ @begin
+ ;Flagcity
+ @do x is 38
+ @do y is 14
+ @do map is 71
+ @end
+
+@if responce is 3 then do
+ @begin
+ ;Bone Town
+ @do x is 60
+ @do y is 15
+ @do map is 1572
+ @end
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+
+@#sign
+@do moveback
+
+ @if pass1.dat exist false then do
+ @begin
+ @do saybar
+`9Underground House`2 - For sale cheap, inquire inside.
+ @end
+
+@if pass1.dat exist true then do
+ @begin
+@readfile pass1.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Underground House Property of `0`s01`2.
+ @end
+
+@#sign2
+@do moveback
+
+ @if pass2.dat exist false then do
+ @begin
+ @do saybar
+`9Underground House`2 - For sale cheap, inquire inside.
+ @end
+
+@if pass2.dat exist true then do
+ @begin
+@readfile pass2.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Underground House Property of `0`s01`2.
+ @end
+
+@#sign3
+@do moveback
+
+ @if pass3.dat exist false then do
+ @begin
+ @do saybar
+`9Underground House`2 - For sale cheap, inquire inside.
+ @end
+
+@if pass3.dat exist true then do
+ @begin
+@readfile pass3.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Underground House Property of `0`s01`2.
+ @end
+
diff --git a/xtrn/lord2/cnw/passinn.ref b/xtrn/lord2/cnw/passinn.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e7743f51312b25313a340037f2dc6203f22731a1
--- /dev/null
+++ b/xtrn/lord2/cnw/passinn.ref
@@ -0,0 +1,152 @@
+; Script file PASSINN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:31 2001
+
+@DECLARE innback 000000289
+@DECLARE door 000000405
+@DECLARE inn 000000451
+@DECLARE starti 000000521
+@DECLARE chatwall 000001798
+@DECLARE nothing 000002732
+@NOCHECK
+; End of .REF index
+
+@#innback
+;Wendy behind the counter
+@DO SAYBAR
+`#Wendy: `0What are you doing behind the counter?!
+@do moveback
+
+@#door
+ @do saybar
+The door opens.
+ @end
+
+@#Inn
+;Person from Jaime's Inn
+@do moveback
+@do `v01 is 1
+@label starti
+@show
+`r0`c `r1 `%Talking to Wendy `r0
+
+`2 'Wendy' is a pleasantly plump woman with rosy cheeks.
+
+ `0"What kin I do for ya, child?" `2she asks.
+
+@do write
+`x`x
+@choice
+Get a room
+I kill ckickens!
+Leave
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"I'm so happy for you," `2Wendy smiles.
+
+`k
+ @do goto starti
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Ok, that will be $150."
+@do write
+`\`x`x
+@choice
+Ok!
+<`p07 -4 `4If I'm gonna spend `$$150`4, I might as well go shoot myself.
+>`p07 -5 No way!
+ @if response is 1 then do
+ @begin
+ @if money < 150 then do
+ @begin
+ @show
+`\`\ `2Damn it... You only have `$$&money`2!
+`\`k
+ @do goto starti
+ @end
+ @show
+ @do `p30 is 24
+ @do `v40 is 150
+ @routine deposit in vaults.ref
+ @do money - 150
+`\`\ `2Wendy takes your money and tells you to find a room upstairs.
+ @do y - 2
+ @do x - 1
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\ `2Wendy's face turns beet red. Haw, serves her right.`\`\`k
+ @end
+
+ @if response is 3 then do
+ @begin
+ @show
+`\`\ `2Maybe later - `$150 `2is a bit much.`\`\`k
+ @end
+
+
+
+ @do goto starti
+ @end
+
+
+@drawmap
+@update
+
+@#CHATWALL
+@do moveback
+@busy
+@show
+`r0`c `r1 SCRIBBLING ON THE BULLETIN BOARD `r0
+
+@if passage.txt exist false then do
+ @begin
+ @writefile passage.txt
+ `%Master Walton`2: `0Notice - Do not graffiti on this or else!
+ @end
+
+@if passage.txt exist true then do
+ @begin
+ @displayfile passage.txt
+ @end
+
+@show
+
+@
+(Do tricky stuff with name to determine how much they can type)
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter a special message or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile passage.txt
+ `%`n`2 : `0`s03
+ @do trim passage.txt 17
+ @drawmap
+ @update
+
+@#NOTHING
diff --git a/xtrn/lord2/cnw/pastuff.ref b/xtrn/lord2/cnw/pastuff.ref
new file mode 100644
index 0000000000000000000000000000000000000000..b93a1ac0b2f79c6b01bb760ccdbf74c6a86eed81
--- /dev/null
+++ b/xtrn/lord2/cnw/pastuff.ref
@@ -0,0 +1,355 @@
+; Script file PASTUFF.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:31 2001
+
+@DECLARE heal 000000292
+@DECLARE bank 000002015
+@DECLARE bankstart 000002187
+@DECLARE bankagain 000003304
+@DECLARE deposit 000004757
+@DECLARE withdraw 000005307
+@NOCHECK
+; End of .REF index
+
+@#heal
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1 Frank the Healing Wizard `r0
+
+`2 Frank 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," `2Frank 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!" `2Frank laughs.
+
+`k
+@drawmap
+@update
+
+@#bank
+@do `v01 is 1
+@do `p22 is 0
+@do `p24 is 0
+@do `p25 is 0
+@do `p30 is 24
+@offmap
+@do moveback
+@do `s09 is green
+@routine DONEQUEST in VAULTS.REF
+
+@label bankstart
+@show
+`r0`c `r1 `%Bank Of the Underground Passage `r0
+
+`2 A young clerk eyes you nervously.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdraw.
+=&bank 0 Apply for an account here.
+Leave
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last questions?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+
+
+@drawmap
+@update
+
+
diff --git a/xtrn/lord2/cnw/pawnshop.ref b/xtrn/lord2/cnw/pawnshop.ref
new file mode 100644
index 0000000000000000000000000000000000000000..5d715ac19486c394cb9ebe772709764aee266113
--- /dev/null
+++ b/xtrn/lord2/cnw/pawnshop.ref
@@ -0,0 +1,25 @@
+; Script file PAWNSHOP.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:20 2001
+
+@DECLARE junkman2 000000328
+@DECLARE nomore 000000367
+@NOCHECK
+; End of .REF index
+
+;
+; The Pawn Shop
+;
+; Here is yet another complex IGM by Green Machine 23(r)
+;
+;
+; http://thor.prohosting.com/~greenie/
+;
+
+@#JUNKMAN2
+@show
+`r0`c
+�Ŀ
+� �
+���
+@#NOMORE
+@drawmap
+@update
diff --git a/xtrn/lord2/cnw/pentagrm.ref b/xtrn/lord2/cnw/pentagrm.ref
new file mode 100644
index 0000000000000000000000000000000000000000..761095b7ac7882780c35adfcdb8bb67a5301330c
--- /dev/null
+++ b/xtrn/lord2/cnw/pentagrm.ref
@@ -0,0 +1,246 @@
+; Script file PENTAGRM.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:21 2001
+
+@DECLARE deathshift 000000859
+@DECLARE show 000001330
+@DECLARE huh 000002361
+@DECLARE fightdeath 000002976
+@DECLARE oops 000003576
+@DECLARE punish 000003791
+@DECLARE bill 000004063
+@DECLARE fred 000004183
+@DECLARE statue 000004357
+@DECLARE staff 000004453
+@DECLARE bloody1 000004700
+@DECLARE bloody2 000004809
+@DECLARE rudy 000004888
+@DECLARE julia 000005072
+@DECLARE kita 000005266
+@NOCHECK
+; End of .REF index
+
+;For THE VOODOO TEMPLE! This .REF has more stuff for Rudy's Pentagram!
+;This .REF is 100% Writin by VooDoo KnighT! KNiGHTSoFT(R).
+
+;
+; This .REF is no longer 100% by Voodoo Knight. sorry man..
+;
+; I've added a few npcs routines in here, and fixed a little bug
+; Greenie - CNW
+;
+
+
+@#deathshift
+@do moveback
+@clear screen
+
+ @if `p07 > -5 then do
+ @if `p07 < -5 then goto show
+
+ @do `p02 is 1
+ @begin
+ @show
+
+`2 DEATHSHIFT reads your mind, without Hesitating, he takes his Staff Of
+ Destruction and fires an incredible beam into your chest!
+
+`2 Getting up back on your feet, you decide to avoid the guy!
+
+ `4You need AT LEAST -5 Alignment to talk with THE GOD OF DESTRUCTION!
+
+@key
+@drawmap
+@update
+@closescript
+
+@#show
+@clear screen
+@show
+[2J[0m
+[56C����
+[44C��� [33m��ܲ�[37m�[1;47m���۲��[0m��
+[19C[1;30m� [0;33m� [37m[14C��[1;47m�������[0m���[1;47m���[0m����
+[15C[1;30m �[47m���[37m�[0m�[33m߲� [37m[14C[1;30m [0m���[1;47m���[0m����
+[15C[1;30m ��[47m��[37m��[0m��[1;47m�[30;40m�[0m
+[19C[1;30m ��[0m��
+
+[1;30m [0m[8C[1;30m"yyeeeeessssssss moooorrrtttaaalllll........?"[0m
+@key
+@do moveback
+@clear screen
+@show
+
+`$ "Hi Ugly! Nice place ya got around here!" `2you say with a smile.
+
+`8 "uuuhhh.... thou tongue shalt be removed for thee words!"
+
+@DO `V01 is 1
+@choice
+Huh!?
+Prepare to DIE DEATHSHIT!
+Punish me my lord, for I am inferior...
+Umm... oops! Gotta go! I think I'm in the wrong Dimension!
+@if response is 1 then do
+ @begin
+ @do goto huh
+ @end
+@if response is 2 then do
+ @begin
+ @do goto fightdeath
+ @end
+@if response is 3 then do
+ @begin
+ @do goto punish
+ @end
+@if response is 4 then do
+ @begin
+ @do goto oops
+ @end
+
+@#huh
+@clear screen
+@show
+
+`8 "Thou DARE question thee?" `2DeathShift screams out pointing his staff
+ in your direction.
+
+`$ "What!? No, of course not! What made you think that?" `2you explain.
+
+`8 "THOU ASKED ANOTHER QUESTION!!!" `2he says in a even louder voice.
+
+`$ "AAAAHHHH!!! No no! Please! I didn't do it in purpose!!!" `2you say
+ begging on your knees.
+
+`8 "Thou shall leave thee alone now!" `2DeathShift says by putting his
+ staff down.
+
+`2 You decide to leave DeathShift the God Of Destruction alone!
+
+@key
+@drawmap
+@update
+@closescript
+
+@#fightdeath
+@do moveback
+@do `p02 is 1
+@do x is 36
+@do y is 18
+@clear screen
+@show
+
+`2 You raise your s&weapon `2at DEATHSHIFT...
+
+`8 "Thee mortal wish to CHALLENGE ME? THEE GOD OF DESTRUCTION!?"
+
+`2 DeathShift, without hesitating, grabs his STAFF OF DESTRUCTION and blasts
+ an incredible `8Ray Of Dark Power `2into your chest, you're projected away
+ and land on the ground! You're very lucky, DeathShift's Staff was
+ weak on power because he used it awhile ago... you've been badly injured
+ but you're still alive!
+
+@key
+@drawmap
+@update
+@closescript
+
+@#oops
+@clear screen
+@show
+
+`8 "Farewell mortal! Thou shalt return another day!"
+
+`$ "I'll think about it!" `2you say and wave goodbye to the evil figure.
+
+@key
+@drawmap
+@update
+@closescript
+
+@#punish
+@clear screen
+@show
+
+`8 "Thou punishment will be to pray to THEE!"
+
+`$ "Yes my lord!" `2you reply in a Darth Vader voice. =)
+
+`2 DEATHSHIFT gives you a sign to leave him alone.
+@if `p56 is 5 then goto bill
+@if `p56 is 0 then goto fred
+
+@#bill
+@show
+
+`8 "Remember your punishment!" `2DEATHSHIFT points out.
+
+@key
+@drawmap
+@update
+@closescript
+
+@#fred
+@do `p07 - 10
+@show
+
+`4 For being as evil as you are, you're alignment just dropped by 10!
+@do `p56 is 5
+@end
+
+@key
+@drawmap
+@update
+@closescript
+
+
+@#statue
+@do saybar
+`7Here's a statue of DEATHSHIFT... and he looks alot nicer as a Statue!
+
+@#staff
+@do moveback
+@do `p20 random 2 1
+@if `p20 is 1 then saybar
+`7This is DEATHSHIFT's `4Staff Of Destruction`7! Look but don't touch!
+@if `p20 is 2 then saybar
+`4Staff Of Destruction `7<Made In Japan> `%... WOW! Now that's quality!
+
+@#bloody1
+@do saybar
+`%These are the remaining `4body parts `%of the last person who fought DEATHSHIFT!
+
+@#bloody2
+@do saybar
+`%This guy's `@skin `%has been pulled Inside-Out! Yuck!
+
+@#rudy
+@do `p70 is 25
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Rudy: `2I've completed the Pentagram to DEATHSHIFT's Dimension!
+@end
+
+@#julia
+@do `p70 is 26
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Julia: `2DeathShift can read your mind! If you are not evil, you will die!
+@end
+
+@#kita
+@do `p70 is 27
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Kita: `2Welcome to Rudy's Pentagram Gateway! Lord DeathShift awaits you!
+@end
+
+;DeathShift is created by VooDoo KnighT from his
+;"Warriors Of The Mystic Mountain" AD&D Campaign! Please don't rip him off!
diff --git a/xtrn/lord2/cnw/people.ref b/xtrn/lord2/cnw/people.ref
new file mode 100644
index 0000000000000000000000000000000000000000..0738ffc761348b0af2209dad836b191daa1c2ad4
--- /dev/null
+++ b/xtrn/lord2/cnw/people.ref
@@ -0,0 +1,275 @@
+; Script file PEOPLE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:42 2001
+
+@DECLARE showall 000000812
+@DECLARE leftclear 000001751
+@DECLARE lclear 000001781
+@DECLARE rightclear 000001967
+@DECLARE rclear 000001997
+@DECLARE mdive 000002170
+@DECLARE nomore 000002757
+@DECLARE maid 000002794
+@DECLARE wteacher 000003410
+@DECLARE nurse 000003864
+@DECLARE wmage 000004082
+@DECLARE wsexy 000004512
+@DECLARE wnude 000004897
+@DECLARE wnude2 000005666
+@DECLARE men 000007119
+@DECLARE nomore 000007156
+@NOCHECK
+; End of .REF index
+
+; THIS IS A NEW COOL CNW FEATURE. ONLY in CNW v137+
+;
+; You can call this file to display any type of person. Will be adding
+; more soon.
+;
+;
+; By, Joel Gathercole with CNW.
+;
+;
+;Call this to clear the LEFT half of the screen
+@#SHOWALL
+@show
+
+ `2These are a few of the ascii/ansi images which I'm newly including in
+ LoRD2: CNW
+
+ `2This is only a simple demonstration of the pics.
+
+ `2So far there is one at the swimming hole just north of Greentree, and
+ the 3 houses in the Underground City.
+
+ `7[more to come soon]
+ `7[Only in CNW!]
+@key bottom
+@display WNUDE in people.ref
+@key bottom
+@clear screen
+@do move 1 1
+@display WNUDE2 in people.ref
+@key bottom
+@clear screen
+@do move 1 1
+@display MDIVE in people.ref
+@key bottom
+@clear screen
+@do move 1 1
+@display MAID in people.ref
+@key bottom
+@clear screen
+@do move 1 1
+@display WTEACHER in people.ref
+@key bottom
+@clear screen
+@do move 1 1
+@display WMAGE in people.ref
+@key bottom
+@clear screen
+@do move 1 1
+@display WSEXY in people.ref
+@key bottom
+@clear screen
+@do move 1 1
+@display NURSE in people.ref
+@key bottom
+@#LEFTCLEAR
+@do `p30 is 1
+@label lclear
+ @do move 1 `p30
+ @do write
+`% `%
+ @do `p30 + 1
+ @if `p30 < 23 then goto lclear
+;Call this to clear the RIGHT half of the screen
+@#RIGHTCLEAR
+@do `p30 is 1
+@label rclear
+ @do move 40 `p30
+ @do write
+`% `%
+ @do `p30 + 1
+ @if `p30 < 23 then goto rclear
+@closescript
+;
+; <--- B O T H --->
+;
+@#MDIVE
+`3 .-""-,
+`3 ;--. \
+`$ _/`1oo`3==\===|
+`$ (_ ___, `3\ |
+`$ \`4\_/ `3 / /
+`$ '--'\\'
+`$ /`#U`$/`3'--.
+`$ ///`3,____)
+`$ /// // /
+`$ '' // <'
+`$ \'\ \
+ `6_`$/`6_`$/`6__`$\`6_
+`6 \ |
+`6 === 4 '--.
+`6 \ |
+`1 ~^~^~^~^~^~`6[_________|
+`1 ~^~^~^~^~^`6///////////
+`1 ~^~^~^~^~^~^`6///////////
+@#NOMORE
+;
+; <--- W O M E N --->
+;
+@#MAID
+ `8%%%\__/%
+ `8%%%%"""%
+ `8%%`$c `1^`$\`1^`$%
+ `8%`$\ _`@=`$/ `7.
+ `$_.'_( `7.::
+ `%.''\ `$'.`%_ `$ _ `7_..;:::'
+ `%/ '._ .' \`6 =`$/ (`6=(`7:]::;:::.
+ `%\__./__.''_/_/ `$/ / `7';::;:.
+ `$ / /`% ) /`$ \ \/ / `7 '::.
+ `$ / /`%.''-._( `$ \ / `7 '.
+ `$ / /`%' '\ `$ ''
+ `$/.(`% \
+ `$\_(`%'";-..___ \
+ `%|=*==||'''
+ `$'\ ||
+ `$ ) ))
+ `$ > ||
+ `$ )`%_`$||
+ `% ( \\\
+ `% Y\__\\
+@#WTEACHER
+`$ _._
+`$ .' '. `8|
+`$ / //\\\ \ `8|
+`$ ( ( `2-`6\`2- `$) ) `8|
+`$ '-`6\_`@=`6_/`$-' //
+`5 .-'\ /'-. (|/
+`5 / '-' \ / /
+`5 | \__ __/_/\/ /|
+`5 | |\ / \ /
+`5 \ \ \ '-'
+`5 '\/\ ;
+`5 |`6/|\`5 |
+`5 | |
+`5 | |
+`5 | |
+`5 |_______|
+`6 | | |
+`6 \ | /
+`5 /`8=`5|`8=`5\
+`5 (_/T\_)
+@#NURSE
+`% .-.
+`% .-/ `4+`% \-.
+`6 /`%\__...__/`6\
+`6 | _/ '\_ |
+`6 | ( `1^`$.`1^`6 ) |
+`6 \_\ `@-`6 /_/
+`% .-'|`4;---;`%|-.
+`% / |`4|___|`%| '\
+`% |__/ \__|
+@#WMAGE
+ `#-= * =-
+ `8 .-"-. `#/ #,_
+ `8 / /\_ \ `#'#|\
+ `8 / /`1'`$)`1'`8\ \ /#/
+ `8( \ `@= `8/ )/\/#
+ `8 ) ) ( (/ \
+ `8 (_.;'"';._) |
+`4 / ( \|/ ) |
+`4 / /\-'^'-/\ |
+`4 | \| )=@=( \_/
+`4 | /\/ \
+`4 | /\ \ ;
+`4 \(// /' |
+`4 \/ |
+`4 | / /
+`4 | ___/\_\
+`4 |/ / \ \|
+`4 / | | | | \
+`4 \_|/ \|_/
+`6 / \`4'-'`6/ \
+`6 '-' '-'
+@#WSEXY
+ `8 .---.
+ `8 (_,/\ \
+ `8 ('`1a a`8( )
+ `8 ) `$\`@=`8 )`8 (
+ `8 (`$.--' '--.`8)
+ `$ / `#(^^^^^) `$\
+ `$ | / `#|___|`$ \ |
+ `$ \\ / . \ //
+ `$ \/`#\___/`$\/
+ `$ | `#\_/`$ |
+ `$ \ / /
+ `$ \/ /
+ `$ ( (
+ `$ |\ \
+ `$ | \ \
+ `$ /_Y/_Y
+@#WNUDE
+`4 / .:((((\\\
+`4 .' //((' )))))
+`4 ( (/)'`$:.`4__ `4_`$/
+`4 / /c( `1-=`4\<`1/^
+`4 / (/j)`$\ `@__.`$>)
+`4 (/ :(r`$ :.'.`@\_./
+`4 / .'/`$ '('-'
+`4 ( '(`$ '''' '.
+`4 / ))`$ ' '-.
+`4 ( ( (`$ . . '-`4x
+`4 (( ( (: `$\ | )
+`4 )|)) )\`$Y \ '--<
+`4 | '( \`$\ | |
+`4 | '|`$| :. |
+`4 '-._ |`$ \ '-._|
+`4 '-`$/ :\_. ''\
+`$ / ''----..../
+`$ / , . |/
+`$ J . |
+`$ | | |
+`$ | _ _\__ /
+`$ \ _\). |
+`$ | || |
+@#WNUDE2
+`\
+ `$,,___
+ `$ `6,`4@`6., `$ ,-"""""--..::"" """,_
+ `$ ,,-----,;`6^-^ `$''-,,`6()`$-""--,...-"" """"-,.. ':\
+ `$ ,- ,-;::: ; `6\\`$ `8. `6//"`$--, ',
+ `$ : ' _---_,`6\\`$ `8:. `6||`$ :
+ `$ '. ;;:'' `6\\`$ -=o `8:`8m;`. `6./;`$ |
+`8 (()))))`$,,.:;, ';:: `6()`$ `8 @@@e `$..::...`6||`$ |
+`8 ((((/, `$..\ :. `6||`$ `8n@@@@a>`$--_:::`6||`$::: ;
+`8))((( `8\`1a`$ . `@O`$ ; ,.. `6_ `6|| `8;'@"''`$ ""`6(()`$-__ ,
+`8)))) .. `$ ' / ::' `6(`4@`6) `$ ;; `6|| `8....`$ `6//`$ """--<_
+`8(((((...`8\`1a `$ .;:. :: ;;. `6||`$ `8..::'`$ `6//`$ :,
+`8 )))))):::...:))`$:: ':, ;;..`6(()`$-, `6//`$ :
+`8 ((((((((())))((`$:: .:.....;;;,__;`6\\\`$"; `6,;`$ ;
+`8 ))))))))))))(()`$;.. ----"""" `6\()/`$"-_..:::::....`6||`$ ..;
+`8 (((((((((((((() `$\:::. ,,`6/`$ "-,,:;;;;;;`6||`$::::.... .:::'
+`8 ))))))))))))) `$\:::. ," `6"" `$'"------"""""'
+`8 )))))((((( `$ \,,_,,,....-"""
+@#MEN
+;
+; <--- M E N --->
+;
+
+@#NOMORE
+
+ _.._
+ .-' -.
+ / .-'` \ `.
+ | | .-= `.
+ | |_.-.\` \ '.
+ | |\ _.-; | \ | | `\`'' / |
+ _| .---.|``_.. | / / `Y` '.|\__
+ / / | \ `\ | / . |. \ ) \
+ / / | | | \| \ / / / | : \ |
+ / / / | \ | \ / / /` | \ \ |
+ | / /` | \ \ | | `-. .- | `\ .-' )
+ | -.\ | \/.-/ / \ -`.\ / \ /`_///
+ |/`'-.| | | ) |_.-' \ / `'-` \|/ \-'` \
+ | |`-_ . _.| ) \ | `'-.._/ \_..-'` / /
+ \ | / /cjr \__| <____/
diff --git a/xtrn/lord2/cnw/photek.ref b/xtrn/lord2/cnw/photek.ref
new file mode 100644
index 0000000000000000000000000000000000000000..7bc478b1f5edeb059f8955377b65d73323d18b61
--- /dev/null
+++ b/xtrn/lord2/cnw/photek.ref
@@ -0,0 +1,181 @@
+; Script file PHOTEK.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:39 2001
+
+@DECLARE toilet 000000419
+@DECLARE blue 000001775
+@DECLARE green 000001864
+@DECLARE greet 000001973
+@DECLARE oldman 000002049
+@DECLARE guard 000002167
+@DECLARE whitestone 000002278
+@DECLARE knife 000002386
+@DECLARE photek 000004043
+@NOCHECK
+; End of .REF index
+
+;ref file for Photek's House IGM by White_Stone
+
+@#toilet
+@do moveback
+@datanewday photek.idf
+@dataload photek.idf &playernum `p20
+@if `p20 not 1 then do
+@begin
+@show
+`\`r0`c`2 `r3`0At the Toilet!!`r0`2
+
+ You run to the `$toilet. `2Man you gotta go bad. You start
+ to pull down your pants when you smell something so awful you just
+ about barf. You turn around to see that this `$toilet `2hasn't been
+ flushed!!!
+`\`k`\
+@show
+ Suddenly your world spins. Your head feels like it's whirling at 100
+ miles an hour. Then everything goes black.
+`\`k`\
+@show
+ You wake up about 30 minutes later, your body hurts like hell. You
+ try to move, but your body is strapped to a small wooden table. As
+ your eyes come into focus, you see above you the man you saw at the
+ door. In his hand is a HUGE `4syringe`2. You become dizzy again, and
+ fall into unconsciousness. Suddenly you awake to find yourself
+ standing in a place you know so well.
+
+ `7How did I get here? My pockets fell heavier.
+ `2You wonder what could have happened. `7oh well...
+`\`k
+@datasave photek.idf &playernum 1
+@do `I05 + 1
+@do map is 1595
+@do x is 20
+@do y is 5
+@loadmap 1595
+`k
+@update
+@drawmap
+@closescript
+@end
+
+@do saybar
+`2Haven't you done your duty enough for today `N?
+
+@#blue
+@do moveback
+@do saybar
+`7Go away. I don't like to be bothered.
+@end
+
+
+@#green
+@do moveback
+@do saybar
+`9Hey, my name's DaBull, what's yours? I'm from Stonebrook.
+@end
+
+
+@#greet
+@do moveback
+@do saybar
+`7Please seat yourself s&sir.
+@end
+
+@#oldman
+@do moveback
+@do saybar
+`0A `3magic `3rock `0was discovered today!! It's just outside.
+@end
+
+@offmap
+@#guard
+@do moveback
+@do saybar
+ `4Don't `2touch the table, or you `4will `2be sorry.
+@end
+
+@#whitestone
+@do moveback
+@do saybar
+`0This is the ancient statue of `3Zeos`0, a legendary ski god.
+@end
+
+@#knife
+@do moveback
+@do enemy is `4Rusty_Dagger
+@show
+`\`r0`c`2 A `4Rusty Dagger `2is on the table. You start to turn away when
+ you notice the weapon has a slight glow surrounding it. There
+ is also a message written on the handle. You reach for it,
+ but suddenly it comes to life. Then it speaks to you!!
+
+`\`k
+@show
+ `0I am the feared `4Dagger `0of tranquility. Give me all your money or die!!
+
+`k
+@do `v01 is 1
+@choice
+Give it your $&money
+Run!!
+@if response is 1 then do
+ @begin
+ @do money is 0
+ @show
+`c`\`\ `8Money.. `4 Ha Ha Ha...You fool `8 Money is worthless to me..
+ Especially since you have none now!! Ha Ha... Get lost.
+
+@show
+`\`k `8Oh, and your life, it's in my hands now. Ha Ha Ha!!
+
+`\`k
+ @do dead is 1
+ @run die in gametxt.ref
+ @end
+@if response is 2 then do
+ @begin
+ @do money is 0
+ @show
+`c`\`\ `9You decide to hightail it out of this place. You run from the table
+ only to be met by the `4Dagger `9staring you in the face. You dodge for
+ the door, but you're too slow. You pull out your s&Weapon...
+
+`k
+@show
+ `3You ask:
+ `9What do you want? I'm not here to hurt you!! You can have my
+ s&Weapon `9and all of my $&money`9.. oops... where'd all my cash go??
+
+`k
+@show
+ `9The `4Dagger `9only slashes through the air, coming dangerously close.
+ You slice through the air with your s&Weapon`9, hoping to kill the
+ `4Dagger`9, but to no avail. Suddenly the `4Dagger `9moves with
+ lightning speed, severing your head...
+`k
+@do dead is 1
+@run die in gametxt.ref
+@end
+
+@#photek
+@do moveback
+@do `p20 random 9 1
+@if `p20 is 1 then saybar
+`%Photek: `0I bet I know how much gold you have. ummm... &money??
+@if `p20 is 2 then saybar
+`%Photek: `0Have you seen Beener lately? He's around... somewhere.
+@if `p20 is 3 then saybar
+`%Photek: `0White_Stone is watching your every move. Be careful!
+@if `p20 is 4 then saybar
+`%Photek: `0The Dragon Tooth clan eat children. Sick, eh?
+@if `p20 is 5 then saybar
+`%Photek: `0Ever heard of the Koshi people? I'm one of them. Don't mess.
+@if `p20 is 6 then saybar
+`%Photek: `0I hear `N is good in bed.
+@if `p20 is 7 then saybar
+`%Photek: `0Can I have your s&Weapon?
+@if `p20 is 8 then saybar
+`%Photek: `0Do you know where I am?
+@if `p20 is 9 then saybar
+`%Photek: `0The treehouse used to be my home, but I moved out.
+@update
+@end
+
+
diff --git a/xtrn/lord2/cnw/polar.ref b/xtrn/lord2/cnw/polar.ref
new file mode 100644
index 0000000000000000000000000000000000000000..fdd5dbe890d00e40b7b96745a3257d2ec3d2f050
--- /dev/null
+++ b/xtrn/lord2/cnw/polar.ref
@@ -0,0 +1,316 @@
+; Script file POLAR.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:16 2001
+
+@DECLARE fight 000000763
+@DECLARE fiteme 000001470
+@DECLARE monster1 000001527
+@DECLARE monster2 000002220
+@DECLARE monster3 000002877
+@DECLARE monster4 000003601
+@DECLARE monster5 000004218
+@DECLARE monster6 000004938
+@DECLARE monster7 000005553
+@DECLARE win 000006225
+@DECLARE done 000006254
+@NOCHECK
+; End of .REF index
+
+;some monsters for the West Coast of the 1st continent, they are a bit
+;tougher than most ones. Around BoneTown & FlagCity up to the Desert
+;and Snowy Pass.
+
+;NOTE: This file has been modified by ShroomTrip Software. Please read the
+; Sysop.Doc that came with this file to determine what changes have been
+; made.
+
+@#fight
+@do `p20 random 12 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@busy
+@do `p21 random 4 1
+@if `p21 is 1 then do
+ @begin
+ @do `p25 is X
+ @do `p25 + 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do `p25 is X
+ @do `p25 - 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 - 1
+ @do goto fiteme
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 + 1
+ @do goto fiteme
+ @end
+
+@#fiteme
+@do `p20 random 7 1
+@do goto monster`p20
+
+@#monster1
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Ice Golem
+;string said when you see him
+Out of the frozen wastelands appears a Golem.
+;power move kill string
+The Golem shatters into a thousand pieces!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+smacks you with a frozen fist|58
+throws a giant snowball at you|83
+jumps causing you to fall into a crevasse|120
+hits you with a flying ice bolo|67
+NONE|NONE
+;defense
+37
+;gold reward
+632
+;experience
+278
+;hit points
+536
+;if win: ref file|name or NONE
+POLAR.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster2
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Mother Frost Bear
+;string said when you see him
+From a hidden snowcave charges a Mother Frost Bear!
+;power move kill string
+You severe her head as trophy.
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+slashes with razor sharp claws|63
+bites with bloodstained teeth|85
+charges you|87
+pummels|62
+gives you a `bBEAR HUG|102
+;defense
+34
+;gold reward
+325
+;experience
+189
+;hit points
+210
+;if win: ref file|name or NONE
+POLAR.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster3
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Frozen Weeds
+;string said when you see him
+Your boots are pierced by ancient frozen weeds!
+;power move kill string
+Good thing you brought your weedwacker, eh?
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+cuts your feet|45
+trips you causing you to fall into it's frozen thorns|55
+shoots a frostdart at you|68
+gives you frostbite|73
+squirts poison from a beautiful flower into your eyes|87
+;defense
+0
+;gold reward
+189
+;experience
+276
+;hit points
+421
+;if win: ref file|name or NONE
+POLAR.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster4
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Glacial Worm
+;string said when you see him
+The snow begins to collapse beneath your feet!
+;power move kill string
+You dice the worm into a bloody goo...
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+swallows your foot|67
+bites|56
+constricts you|84
+freezes you|53
+spits ice spikes|34
+;defense
+23
+;gold reward
+150
+;experience
+98
+;hit points
+88
+;if win: ref file|name or NONE
+POLAR.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster5
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Arctic Mage
+;string said when you see him
+In an ice reflection you see a magical glimmer of light...
+;power move kill string
+You melt the mage into the frozen wasteland!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits you with an icicle staff|99
+casts an enchanted blizzard|76
+summons an ice mosquito to suck your blood|50
+casts a frozen rune|70
+blinds you with an arctic glare|54
+;defense
+53
+;gold reward
+735
+;experience
+324
+;hit points
+375
+;if win: ref file|name or NONE
+POLAR.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster6
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+White Serpent
+;string said when you see him
+You are suprised by an icy hiss!
+;power move kill string
+You skewer your opponent from head to tail!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+bitess|58
+injects poisonous venom|132
+whips it's tail|63
+stings|66
+chews on your shin|62
+;defense
+30
+;gold reward
+246
+;experience
+187
+;hit points
+90
+;if win: ref file|name or NONE
+POLAR.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster7
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Urick Orb
+;string said when you see him
+Floating in the artic tundra a yellow sphere closes in you quickly...
+;power move kill string
+What a mess o' yellow snow!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+squirts you in the eye|76
+makes you fall into yellow snow|45
+casts an acid storm|55
+shows you a picture of your naked grandma|46
+NONE|NONE
+;defense
+45
+;gold reward
+280
+;experience
+180
+;hit points
+188
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+POLAR.REF|WIN
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#WIN
+@drawmap
+@update
+
+@#done
diff --git a/xtrn/lord2/cnw/pooch.clr b/xtrn/lord2/cnw/pooch.clr
new file mode 100644
index 0000000000000000000000000000000000000000..dc9c8ac94ff5acfc733f490ecf5fe80719a7e378
--- /dev/null
+++ b/xtrn/lord2/cnw/pooch.clr
@@ -0,0 +1,10 @@
+[?7h[255D[55C[0m�� [1;31m��������� [0m�
+[54C� [1;31m��������۲�� [0m�
+[55C� [1;31m����[0m�[1;31m����[0m�[1;31m۲�� [0m�
+[56C� [1;31m�����������۲�
+[55C[0m� [1;31m�����������߲�
+[54C[0m� � [1;31m�� ������ �� �
+[59C� ���� � � � ����
+[64C߲ܲ � ����߲�
+[66C�ܲ����ܲ���
+[70C�߲� � �
diff --git a/xtrn/lord2/cnw/porttown.ref b/xtrn/lord2/cnw/porttown.ref
new file mode 100644
index 0000000000000000000000000000000000000000..b00646ccea7dfc213af28a60177f51167fd02303
--- /dev/null
+++ b/xtrn/lord2/cnw/porttown.ref
@@ -0,0 +1,1748 @@
+; Script file PORTTOWN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:14 2001
+
+@DECLARE showwhore 000001198
+@DECLARE junkman1 000006459
+@DECLARE junkman2 000006653
+@DECLARE fish 000006803
+@DECLARE fishsell 000007433
+@DECLARE man 000008296
+@DECLARE whore 000009152
+@DECLARE ponward 000009947
+@DECLARE psleep 000011468
+@DECLARE inn 000012270
+@DECLARE potiond 000014360
+@DECLARE heal 000018468
+@DECLARE pirate 000020185
+@DECLARE cargo 000020917
+@DECLARE travel 000022619
+@DECLARE mart 000024444
+@DECLARE martstart 000024522
+@DECLARE bank 000026291
+@DECLARE bankstart 000026418
+@DECLARE bankagain 000027524
+@DECLARE deposit 000028977
+@DECLARE withdraw 000029525
+@DECLARE hang 000030387
+@DECLARE notdone 000030588
+@DECLARE fishdock 000030686
+@DECLARE fishcast 000031302
+@DECLARE removeline 000034632
+@DECLARE waterfall 000035144
+@DECLARE watersign 000035226
+@DECLARE trees 000035323
+@DECLARE shrine 000035423
+@DECLARE done 000036775
+@DECLARE nomore 000036830
+@NOCHECK
+; End of .REF index
+
+;porttown and surrounding areas
+;pap and seth both worked on this file, so if the spacing is different
+;in places (ie, ugly as hell) this was paps work. ;>
+@#showwhore
+@show
+[2J[0;1;30;47m�[0m��[34m � �� [37m���[1;30;47m���[0m���
+[A[27C[34m � �������[1;44m����[0;34m�� [37m��[1;30;47m��[0m������
+[A[54C����������������[1;47m��������[0m�
+[A[79C [34m ����� �� � [37m�[1;30;47m�[0m�[34m��� �� ��
+[A[35C[1;44m���۲��[0;36;44m�[34;40m�� [37m������[1;30;47m �[0m �
+[A[56C���������������������[1;47m�[0m�
+[A[79C [36;44m�[34;40m�[1;44m��[0;34m���� �� �� � [4C��
+[A[33C[1;44m���۲�����[0;34m��� [37m������[1;30;47m�[0;34m [37m�
+[A[56C[20C�[1;47m�[0m�
+[A[79C [1;34;44m���������[0;34m��� �� [3C ��� ���������[1;44m�۲��[40m
+[A[39C[44m��[0;34m���[30;44m��[34;40m� [37m������[34m [1;30;47m�[40m
+[A[56C[47m[0;34m [37mYou think you [2C[1;30;47m�[37m�[0m�
+[A[79C [1;34;44m��������۲�[0;34m��� ���� �[9C��[36;44m�[1;34m[40m
+[A[37C[44m��[0;34m���[30;44m��[34;40m�� [37m����[1;47m�[0m��
+[A[55C[1;30;47m�[0;34m [37m [C[1;30;47m�[37m�[0m�
+[A[79C [1;34;44m�������۲�[0;34m�[37m [33m���[1;31;43m ��[0;33m�
+[A[20C����[1;31;43m������[40m��[0;33m��[37m [34m���[30;44m���[40m
+[A[42C[44m[34;40m�� � [37m�[1;47m���[0m�[34m [1;30;47m�[2C[40m
+[A[58C[47m[0mknow what this[4C[1;30;47m�[37m�[0m�
+[A[79C [34m��[1;44m������[0;34m��[37m [33m��[1;31;43m��[40m�����
+[A[20C������������[43m�[40m�[43mܰ[0m [34m�[30;44m�[34;40m���
+[A[45C�[3C [37m�[1;47m�[0m��[34m [37m�[34m [1;35m
+[A[71C [2C[0m�[1;47m �[40m
+[A[79C[0m [34m����[1;44m����[0;34m�[6C[1;31m��������������������
+[A[35C[43m�[0;33m�[34m�۰[5Cݰ [37m���[34m [37m�[1;35m [37m
+[A[57C [0mwoman wants even[2C�[1;47m �[40m
+[A[79C[0m [34m������[5C[1;31m [0;33m��[1;31;43m��[40m���� �����
+[A[27C��������[3C[0;34m��[4C[36;44m�[34;40m�[3C [37m���[34m
+[A[55C[1;37;47m�[40m [3C[0m�[1;47m �[40m
+[A[79C[0m [34m �����[37m ���[1;31m [34m�[4C[31m���������������
+[A[31C[0m [1;30mܲ�[0m [1;30m�[0;34m � [7C [37m����[1;30;47m[40m
+[A[55C[47m�[2C[0mbefore she asks.[2C[1;30;47m�[37m��[40m
+[A[79C[0m [3C[34m���[37m [1;47m��[31;40m [36;44m�[0;34m�[1;37m
+[A[12C��[31m [34m�[0;34m�[1;44m�[0m � [1;31m ���������[0m �
+[A[34C[36m [4C[34m��[7C� [37m�[1;47m�[0m�[34m [1;30;47m�[20C[40m
+[A[76C[47m�[37m �[40m
+[A[79C[0m [4C[34m [37m [1;47m��[40m�[31m [0;34m�[1;36m�[0m
+[A[15C[1;34m [0;34m��[1;31m [0m�[1;47m�[0m��[1;31m ��������[0m
+[A[33C[36m�[1;30m�[0;31m [4C[34m��ܰ[5C [37m��[1;47m�[0m�[34m
+[A[54C [1;30;47m�[2C[37;40m <press a key> [3C[30;47m�[37m �[40m
+[A[79C[0m [4C[34m� [37m [33m�[37m [1m�[9C[31m������[43m�[40m
+[A[26C�[43m۲[40m��[43m�[40m�[0m [1;30m�[7C[0;34m ��� [37m�
+[A[51C�[1;47m�[0m���[20C�[1;47m �[40m
+[A[79C[0m [3C[34m�� [33m�[1;31;43m��[40m�����������������������
+[A[32C[43m�[40m [0m [1;30m�[0;34m [9C� [1;37;47m �[0m���
+[A[56C[20C�[1;47m �[40m
+[A[79C[0m [34m ��� [33m��[1;31;43m�[40m��������������[43m��[40m
+[A[25C��[47m��[40m����[43m�[0;33m���[1;31m [0;31m [37m [33mܲ
+[A[44C [37m [34m�� [1;37;47m�[40m�[47m� [0m ��������������������
+[A[75C��[1;47m �[40m
+[A[79C[0m [3C[34m���[37m [1;31m [0;33m߲[1;31;43m�[40m�����
+[A[16C[47m���[40m�����[43m��[40m���[43m�[40m������[43m����ܲ�[40m
+[A[43C[43m[0;33m�[34m �� [1;37m���[47m� [0m��[1;47m ���������[40m
+[A[68C[47m� ��[40m
+[A[79C[0m [5C[34m �� [33m�[1;31;43m�[40m���[47m����[40m�����
+[A[23C[43m���[40m�[47m�[43m۲[40m������[47m��[40m����[43m�[0m
+[A[44C[34m [1;37m����[47m �[40m���[47m߰�[40m�[47m��[40m
+[A[67C��[47m�ݰ �[40m�[47m�[40m�
+[A[79C[0m [34m�[4C ��[33m �[1;31;43m�[40m��[47m��[40m���������
+[A[25C���������[47m��[40m�����[43m�[0;33m�[37m [34m�� [1;37m��
+[A[51C���[47m��[40m������[47m�[40m��[47m�[40m����[47m�����[40m�
+[A[76C�[47m��[40m
+[A[79C[0m [6C[34m���[33m �[1;31;43m�[40m���[47m��[40m����������
+[A[27C�������������[43m�[0;33m�[1;31m [0;34mް [1;37m����������
+[A[59C���������������[47m��[40m���
+[A[79C[0m [7C[34m��[33m [1;31;43m��[40m��������������������������
+[A[38C�[43m�[0;33m۰[34m � [3C[37m [1m�����������������������
+[A[72C[47m�[40m������
+[A[79C[0m [6C[34m��[33m �[1;31;43m�[40m�����[47m�[40m��[37m
+[A[20C[31m�[0;31mܰ[1m [0;31m [1m [0;31m [3C[1m ������[43m��[40m
+[A[40C[43m[0;33m�[37m [34m�[5C[37m [1m���������������������[47m[40m
+[A[70C[47m�[40m��������
+[A[79C[0m [5C[34m��[33m �[1;31;43m�[40m����������� [0;31m���
+[A[26C[1m [0;31m [1m ��������[0;33m�[37m [34m�[4C[37m [34m
+[A[48C[37m [1m������������������������������
+[A[79C[0m [6C[34m�� [33m��[1;31m�����������[43mܲ[0;33m��[1;31m
+[A[26C�����������[0m � [1m������������������������������
+[A[79C[0m [6C[34m����� [1;35m [0m [1;31m����������������[8C[0m
+[A[39C [1m�����
+@do readchar `s01
+
+@#JUNKMAN1
+@do `p70 is 49
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Nick: `2Ahh... Comfy chair! Not like that one bed at Stonepass Lodge...
+@end
+@#JUNKMAN2
+@do moveback
+@busy
+@show
+`r0`c
+
+
+ `0"What would ya like to part with, kid?"
+
+@sellmanager
+
+@drawmap
+@update
+
+@#FISH
+@offmap
+@do moveback
+@show
+`r0`c `r1 `%The House O' Fish `r0
+
+ `2People are buying and selling fish all over the place! You also see
+ some nice rods in a corner. A man introduces himself as `0Smithy`2 and
+ asks what you need.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Buy something
+Sell some fish
+Conduct business with Smithy
+Leave
+@if response is 3 then do
+ @begin
+ @do `p20 is 2
+ @run getquest in quest.ref
+ @closescript
+ @end
+
+@if response is 1 then do
+ @begin
+ @do write
+`\`\
+ @buymanager
+ 28
+ 29
+ @do goto fish
+ @end
+
+@if responce is 2 then do
+ @begin
+ @label fishsell
+ @show
+`c `r1 The market place `r0
+
+ `2You walk up to a fish bin and show 'em what you got.
+
+ `2You are holding `$$&money`2.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+<`i29 1 <`i30 1 You have no fish to sell.
+>`i29 0 Sell a Salmon for `$$50`%. `2(you have `0`i29`2)
+>`i30 0 Sell a Sparking Green Salmon for `$$250`%. `2(you have `0`i30`2)
+>`i29 0 <`i30 1 Sell nothing
+>`i30 0 <`i29 1 Sell nothing
+>`i30 0 >`i29 0 Sell nothing
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ `0"Thank you for the fish, s&sir!"
+
+`k
+ @do money + 50
+ @do `i29 - 1
+ @do goto fishsell
+ @end
+@if responce is 3 then do
+ @begin
+ @show
+`\`\ `0"My god?!? Where did you catch this?!? Thank you!"
+
+`k
+ @do money + 250
+ @do `i30 - 1
+ @do goto fishsell
+ @end
+
+ @do goto fish
+
+ @end
+
+@drawmap
+@update
+
+;Helpfull man in Porttown
+@#man
+@do `p70 is 21
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do moveback
+@do `p20 random 9 1
+@if `p20 is 1 then saybar
+`%Guy: `0I hear the longer boat rides are relaxing.
+@if `p20 is 2 then saybar
+`%Guy: `0I hear there's a shortcut through the Snowy Pass!
+@if `p20 is 3 then saybar
+`%Guy: `0Watch out for the girls at the Hotel here...
+@if `p20 is 4 then saybar
+`%Guy: `0I hear the dark forest is a terrible place.
+@if `p20 is 5 then saybar
+`%Guy: `0A sailor told me of an undiscovered island once!
+@if `p20 is 6 then saybar
+`%Guy: `0The Hag's place is the safest place in town!
+@if `p20 is 7 then saybar
+`%Guy: `0Did you know Enya rules?
+@if `p20 is 8 then saybar
+`%Guy: `0On the other two continents I hear life is really exciting.
+@if `p20 is 9 then saybar
+`%Guy: `0Watch for the oracle!
+@end
+
+@#WHORE
+;random things that happen walking around the sea hag hotel
+@if sexmale is 0 then do
+ @begin
+ ;if they are female, don't run this... sorry girls, no female version
+ ;was written.
+ @closescript
+ @end
+@if `v06 is 1 then do
+ @begin
+ ;clean mode is on, lets get the hell out of this routine!!
+ @closescript
+ @end
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@if ninn2.dat exist true then do
+ @begin
+ @readfile ninn2.dat
+`p20
+`s01
+ @
+ @if `p20 is &playernum then do
+ @begin
+@do write
+`r0 `2One of your whores pulls your arm. Feel like some? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+ @do goto PONWARD
+ @end
+ @end
+@do write
+`r0 `2A skanky looking woman pulls your arm. Speak with her? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@label PONWARD
+@if `s01 is N then do
+ @begin
+ @if `07 < 5 then do
+ @begin
+ ;person is evil
+ @do saybar
+You brutally kick her in the face.
+ @closescript
+ @end
+ @do saybar
+You push her away. Poor lost soul.
+ @closescript
+ @end
+@pauseoff
+@routine showwhore
+@if ninn2b.dat exist false then do
+ @begin
+ @writefile ninn2b.dat
+25
+0
+ @end
+@readfile ninn2b.dat
+`p25
+`p27
+@
+@show
+`r0`c `r1`% Close encounters with the whore kind `r0
+
+@if ninn2.dat exist true then do
+ @begin
+ @readfile ninn2.dat
+`p20
+`s01
+ @
+ @if `p20 is &playernum then do
+ @begin
+ @show
+ `0"Oh, it's you, sir. Sorry. I didn't recognize you. Of course it's
+ free for you, sir."
+
+`k
+ @do goto PSLEEP
+ @end
+ @end
+ @show
+`0 "Looking for a good time, sir? Only `$$`p25`0." `2she drolls.
+
+`2 Not a bad price, but her clothes are ragged and her face dirty... Would
+ it be safe?
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Why not? Daddy needs to relax a little bit.
+Not today.
+@if response is 1 then do
+ @begin
+ @if money < `p25 then do
+ @begin
+ @show
+`\`\ `2You lack the funds for a whore right now.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do money - `p25
+ @do `p27 + `p25
+ @do delete ninn2b.dat
+ @writefile ninn2b.dat
+`p25
+`p27
+ @
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has slept with one of your whores, you pimp daddy!
+ Cha-Ching!
+
+ @label PSLEEP
+ @do x is 54
+ @do y is 12
+ @do `p20 is random 5 1
+ @if `p20 is 1 then do
+ @begin
+ ;ha ha, user caught vd
+ @do `p12 is 1
+ @end
+ @do `p34 + 1
+ @show
+`\`\ `2She leads you to her bed.
+
+`k`c `r1 All Aboard `r0
+
+`2 You remove her garments - as you touch her skin flakes fall off in
+ your hand. You shudder as a finger brushes over a large open sore on her
+ back.
+
+`k It is over quickly. Your reverie is interrupted by the sound of wretching
+ in a corner. She seems sick.
+
+ `4THERE IS A 20 PERCENT CHANCE THAT YOU JUST CAUGHT SOMETHING.
+
+`k
+ @drawmap
+ @update
+ @do saybar
+You put your pants back on.
+ @closescript
+ @end
+
+@show
+`\`\ `$"I do not desire your services right now, woman," `2you inform
+ her.
+
+`k
+@drawmap
+@update
+
+@#inn
+;this is for the sea hag hotel
+@if ninn2.dat exist false then do
+ @begin
+@do `v01 is 1
+@offmap
+@do moveback
+@show
+`r0`c `%`r1 THE SEA HAG HOTEL `r0
+
+ `2This place looks a little campy - slack jaws sea harlots wander around
+ the rooms aimlessly.
+
+ A balding woman with a few teeth missing smiles warmly you at you.
+
+ You are holding `$$&money`2.
+
+@do write
+`x`x
+@choice
+Get a room (`$$50`%)
+I'd like to buy this place!
+Leave
+Make PortTown your home
+@if responce is 4 then do
+ @begin
+ @do `p69 is 4
+ @do write
+`\ PortTown is now your home. `\`k
+ @do goto inn
+ @end
+@if response is 1 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+`\`\`2 You are short on cash. Pretty sad when you can't even afford to stay
+ here...
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`\ `2You give the woman the cash. She leads you inside...
+`\`k
+ @do money - 50
+ @do x is 24
+ @do y is 4
+ @do map is 153
+ @loadmap 153
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `$"I'd like to buy this crummy place," `2you say to her.
+
+`k `0"And keep me out of a job!?! You're a despicable person. Out! Out!"
+
+`k `$"Whoa, hold up. I'd let you work for me."
+
+`k`rc`c`\`\ `2She eyes you carefully. `0"Hrm. `%50,000`0, no less."
+
+@do write
+`x`x`x
+@do `v01 is 1
+@choice
+>&money 49999 I'll take it!
+That's a rip off, bitch
+@if response is 1 then do
+ @begin
+ @if ninn2.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile ninn2.dat
+&playernum
+NONE
+0
+0
+0
+0
+ @do money - 50000
+ @do addlog
+ `0`n `2buys `%Sea Hag Hotel`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%The Hag, your Employee and Friend `r0
+`\`2 Nice job! You now own her Inn!
+
+ `2Enjoy your new home.
+
+`k
+@label POTIOND
+@show
+`c`\
+ `2What would you like your toilet water to be made out of?
+
+@do write
+`x`x`x
+@do `v01 is 1
+@choice
+Silver Potion
+Gold Potion
+Red Potion
+What!?!
+@if response is 4 then do
+ @begin
+ @show
+`\`\ `2Let's explain, shall we...
+
+ `0In your private room, there will be a toilet. In it, there will be water.
+ What kind of water is your choice. This water will be available to drink
+ once per day by yourself and whomever you allow inside your private room.
+
+ `2Types of Water:
+
+ `$-`0Silver Potion`2: Dodge goes up by 1!
+ `$-`0Gold Potion`2: Muscle goes up by 2!
+ `$-`0Red Potion`2: Max HP goes up by 5!
+
+ `2That's what we're talking about...
+
+`k
+
+ @do goto POTIOND
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Silver Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if NINNW2.DAT exist true then delete NINNW2.DAT
+ @writefile NINNW2.DAT
+1
+Silver Potion
+ @end
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Gold Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if NINNW2.DAT exist true then delete NINNW2.DAT
+ @writefile NINNW2.DAT
+2
+Gold Potion
+ @end
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Red Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @if NINNW2.DAT exist true then delete NINNW2.DAT
+ @writefile NINNW2.DAT
+5
+Red Potion
+ @end
+
+
+@drawmap
+@update
+@closescript
+ @end
+
+@if response is 2 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @end
+
+@drawmap
+@update
+@closescript
+@end
+
+;---IF INN HAS BEEN PURCHASED
+@do `v01 is 1
+@offmap
+@do moveback
+@if ninn2.dat exist false then do
+ @begin
+ @do goto INN
+ @end
+@if ninn2.dat exist true then do
+ @begin
+@readfile ninn2.dat
+`p20
+`s01
+@
+@do `s02 is getname `p20
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete ninn2.dat
+ @do addlog
+ `%Sea Hag Hotel`2 is put on the market today.
+ @routine seperate in gametxt.ref
+ @end
+ @if `p20 is &playernum then do
+ @begin
+ @do x is 24
+ @do y is 4
+ @do map is 153
+ @loadmap 153
+ @drawmap
+ @update
+ @do saybar
+`!Hag: `$Welcome home...
+ @closescript
+ @end
+ @show
+`r0`c `%`r1 THE SEA HAG HOTEL, owned and operated by `0`s02 `r0
+ @end
+@show
+
+ `2This place looks a little campy - slack jaws sea harlots wander around
+ the rooms aimlessly.
+
+ A balding woman with a few teeth missing smiles warmly you at you.
+
+ You are holding `$$&money`2.
+
+@do write
+`x`x
+@if ninn2a.dat exist false then do
+ @begin
+ @writefile ninn2a.dat
+200
+0
+ @end
+ @readfile ninn2a.dat
+`p26
+`p27
+ @
+@do `v01 is 1
+@choice
+Get a room (`p26 gold)
+How's the owner?
+Leave
+ @if response is 1 then do
+ @begin
+ @if money < `p26 then do
+ @begin
+ @show
+`\`\`2 You are short on cash. Pretty sad when you can't even afford to stay
+ here...
+
+`k
+ @do goto INN
+ @end
+ @do money - `p26
+ @show
+`\`\ `2The Hag takes your money and escorts you into the inn.
+`k
+
+ @do `p27 + `p26
+ @do delete ninn2a.dat
+ @writefile ninn2a.dat
+`p26
+`p27
+ @
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has stayed at your Inn! Cha-CHING!
+
+ @do x is 24
+ @do y is 4
+ @do map is 153
+ @loadmap 153
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @if response is 2 then do
+ @begin
+ @show
+`\`\ `$"Listen, I've got a problem here with the management. `0`s02 `0is a
+ no-good, lying sack of, for crying out loud, bum who charges too much
+ and I can't afford to stay here."
+
+`k `2The Hag gasps at you. `0"How dare you? Of my manager! `0`s02 `0is a
+ decent person! And, damn, is the toilet water good with 'em around!"
+
+`k
+ @do goto INN
+ @end
+
+@drawmap
+@update
+
+
+@#heal
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1 PortTown Healing `r0
+
+`2 Hoss 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," `2Hoss 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!" `2Hoss laughs.
+
+`k
+@drawmap
+@update
+
+
+@#PIRATE
+;The pirate ship
+@DO MOVEBACK
+@BUSY
+@DO `v01 is 1
+@SHOW
+`r0`c `r1 Look a Pirate ship!! `r0
+
+ `2The guard yells `0"Arrr, I be a pirate, and you be on me ship. What do
+ you want you land lover?"
+
+@DO WRITE
+`x`x
+@CHOICE
+Ask some pirate trivia
+Can I become a pirate?
+@IF RESPONSE IS 1 THEN DO
+@Begin
+@Show
+`\`\ `$"What's another name for pirate treasure?"`2 you ask.
+`\`k `0"I believe that'd be booty!!!" `2he replies.
+`\`k
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+@IF RESPONSE IS 2 THEN DO
+@Begin
+@Show
+`\`\ `0"Arrr, I don't think ye be cool enough to join our drunken
+ crew quite yet," `2the scurvy pirate replies.
+`\`k
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+
+@#CARGO
+;The Cargo ship
+@DO MOVEBACK
+@BUSY
+@DO `v01 is 1
+@SHOW
+`r0`c `r1 Looks like a cargo ship `r0
+
+ `2A deckman approaches you `0"We're headed to ArrisVille. Do you have any
+ thing that you need to be transported there?"
+
+@DO WRITE
+`x`x
+@CHOICE
+Nope, not really
+Stowaway on board
+@IF RESPONSE IS 1 THEN DO
+@Begin
+@Show
+`\`\ `$"Nope just taking a look around,"`2 you reply.
+`\`k
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+@IF RESPONSE IS 2 THEN DO
+ @Begin
+ @if `p07 > -10 then do
+ @begin
+ ;they ain't so bad
+ @Show
+`\`\ `2You would never do such a thing! Maybe if you were `b-10`2 alignment
+ or less...
+
+`k
+ @DRAWMAP
+ @UPDATE
+ @CLOSESCRIPT
+ @end
+
+ @Show
+`\`\ `$"Nothing much," `2you say. He turns and walks away. `$"Except for
+ myself," `2you laugh as you sneak under deck.
+
+@do `p20 random 80 20
+
+@if `p18 > `p20 then do
+ @begin
+ @show
+ `2The crew searches the ship before launch`l. `l. `l. `l. `l. `%YOU HID WELL!
+
+`k `2At Arrisville you pop out well rested. Ahh, this is the life!
+
+`k
+ @do x is 66
+ @do y is 19
+ @do map is 444
+ @loadmap &map
+ @DRAWMAP
+ @UPDATE
+ @CLOSESCRIPT
+ @end
+ @do x is 28
+ @do y is 7
+ @do map is 155
+ @loadmap &map
+ @do `p02 / 2
+ @show
+ `2The crew searches the ship before launch`l. `l. `l. `l. `l. `bYOU HID BADLY!
+
+`k `2They find you! `0"Lookie what we got here boys! Let's teach this
+ vagrant a lesson!"
+
+`k `2They beat the hell out of you and send you home. Damn!
+
+`k `2Ack... Perhaps if you had more skill you would have a better chance...
+ (aka, more quest points..)
+
+`k
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+
+@#TRAVEL
+;The travel offices
+@DO MOVEBACK
+@BUSY
+@DO `v01 is 1
+@SHOW
+`r0`c `r1`% PortTown Travel `r0
+
+ `0"Welcome to PortTown travel, how may I help you?" `2Asks a receptionist.
+@DO WRITE
+`x`x
+@CHOICE
+Purchase a world map
+Buy a ticket for somewhere
+What happened to the healers?
+Leave
+@IF RESPONSE IS 3 THEN DO
+@begin
+@SHOW
+`r0`c `r1`% PortTown Travel `r0
+
+ `0"I heard that someone got upset with the healers because the healers would
+ not heal the arsonist for free. So the angry guy left, that night the place
+ got torched. Go figure."
+`\`k
+`\`\ `$"Sorry wrong building,"`2 you say as you saunter out the door.
+`\`k
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@end
+@IF RESPONSE IS 1 THEN DO
+@Begin
+@Show
+`\`\ `$"I'd like to get a map,"`2 you reply.
+`\`k `0"Okay that'll be 20 gold,"`2 she states.
+
+@if money < 20 then do
+ @BEGIN
+ @show
+ `2You don't have that much, so naturally you take it out on her.
+
+`k `$"Look you stupid wench, since when do maps cost that much?!?! You just
+ lost a customer, lady!" `2you scream.
+
+`k `2You see tears in her eyes as you storm out the door.
+`\`k
+ @DRAWMAP
+ @UPDATE
+ @CLOSESCRIPT
+ @End
+@show
+`2 You plop down the money.`\`\`k
+@do money - 20
+@do `i20 + 1
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+
+@IF RESPONSE IS 2 THEN DO
+@Begin
+@Show
+`\`\ `$"I need to get out of town," `2you say. She smiles, `0"Okay where
+ would you like to go?" `2You review your choices.
+
+`k
+@show
+`r0`c `r1 `%Porttown Booking Center
+
+
+@buymanager
+26
+27
+33
+@do goto TRAVEL
+@End
+
+
+@IF RESPONSE IS 4 THEN DO
+@Begin
+@Show
+`\`\ `$"Sorry wrong building,"`2 you say as you saunter out the door.
+`\`k
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+
+@#MART
+;The quicke mart (tm)
+@DO MOVEBACK
+@BUSY
+@DO `v01 is 1
+@label martstart
+@SHOW
+`r0`c `r1`% Wow, they have everything in here `r0
+
+ `2The clerk behind the counter greets you `0"Oh my golly-gosh, customers!!
+ How ever my I help you?"
+
+@DO WRITE
+`x`x
+@CHOICE
+Ask for some beef-jerky
+Get a super squishie for 1 gold
+Check out aisle five for supplies
+Leave
+@if responce is 4 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@IF RESPONSE IS 3 THEN DO
+@Begin
+@Show
+`\`\ `$"I need to get some new gear," `2you say. He smiles, `0"Okie Doaky
+ I hope you enjoy our fine selection of death tools." `2You review your
+ choices.
+
+`k
+@show
+`r0`c `r1 `%Quick-E Mart Stuff
+
+
+@buymanager
+35
+36
+37
+40
+@do goto martstart
+@End
+
+@IF RESPONSE IS 1 THEN DO
+@Begin
+@Show
+`\`\ `2You take a look at the jerky, you're pretty sure you're better off
+ eating something you killed outside.`%
+`\`k
+@DO goto martstart
+@End
+@IF RESPONSE IS 2 THEN DO
+@Begin
+@if money < 1 then do
+ @begin
+ @show
+`\`\ `0"Are trying to be ripping me off, s&sir?! You shall not taste a single
+ drop of my wonderful liquid!"
+
+`k
+ @do goto martstart
+ @end
+@do money - 1
+@Show
+`\`\ `$"Give me a super squishie, one that's made entirely out of syrup," `2you
+ command.
+ `0"An all syrup super squishie? Oh such a thing has never been done," `2the
+ clerk gasps.
+`\`k `$"Just make it happen," `2you say as you lay down the dough.
+ `0"Oh dear," `2he moans and turns towards the machine. It begins to
+ rumble, you feel the walls shake. `0"Oh no, she's breaking up," `2he
+ yells....
+`\`k `5DING!
+`\`k `2The clerk turns and hands you your squishie. `0"All done, if you
+ survive, please come again."
+`\`k
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+
+@#bank
+@do `p30 is 3
+@do `v01 is 1
+@offmap
+@do moveback
+@do `s09 is porttown
+@routine DONEQUEST in VAULTS.REF
+@label bankstart
+@show
+`r0`c `r1 `%2nd Bank Of PortTown `r0
+
+`2 A young clerk eyes you nervously.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdrawal.
+=&bank 0 Apply for an account here.
+Leave
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last questions?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+
+
+@drawmap
+@update
+
+
+@#HANG
+;For sitting at the benches for public execution
+@DO SAYBAR
+`2You'd sit to watch an execution but there isn't one today...
+
+@#NOTDONE
+@DO SAYBAR
+`2Area unfinished. Check back when beta ... 7 is ready.
+@do moveback
+
+@#FISHDOCK
+;Fishing dock...
+@do moveback
+@if `i28 < 1 then do
+ @begin
+ ;person doesn't have fishing pole
+ @DO SAYBAR
+`2You doubt you would catch anything with your s&weapon...
+ @closescript
+ @end
+
+
+@if `t10 < 1 then do
+ @begin
+ @do saybar
+You have caught all the fish in the stream. Maybe tomorrow.
+ @closescript
+ @end
+
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2Wanna try your luck fishing? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is N then do
+ @begin
+ @do saybar
+Maybe later when the fish are biting.
+ @closescript
+ @end
+
+@label fishcast
+
+@do `p20 is `i29
+@do `p20 + `i30
+@do `s01 is `p20
+@if `s01 is 0 then `s01 is no
+
+@displayfile fishy.ans nopause
+@Do move 55 1
+@do write
+`r4 `%The Fishing Dock `r0
+@Do move 56 2
+@do write
+You have `s01 fish.
+
+@do `v01 is 1
+@if `p11 < 11 then do
+ @begin
+ @do move 2 20
+ @do write
+`x You are exhausted for today, not enough turns.
+ @do move 38 1
+ @key
+ @closescript
+ @end
+@do move 69 18
+@choice
+Cast far
+Cast short
+leave
+@if responce is 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if response is 1 then do
+ @begin
+ @do `p20 random 80 20
+ @displayfile fishyl.ans nopause
+ @do move 2 20
+ @do write
+`2You whip your rod fast and watch as your hook plops down
+ @do move 2 21
+ @do write
+ about `0`p20`2 feet away.
+
+@end
+
+@if response is 2 then do
+ @begin
+ @do `p20 random 20 1
+ @displayfile fishys.ans nopause
+ @do move 2 20
+ @do write
+`2You gently cast the pole. Your hook makes a soft splash
+ @do move 2 21
+ @do write
+ about `0`p20 `2feet away.
+ @do move 38 1
+ @key
+
+@end
+
+
+ @do move 2 22
+@do write
+`2You wait.`l.`l.`l.`l.`l. `%
+ @do move 38 1
+ @key
+
+@if `t10 < 1 then do
+@do `p20 random 15 1
+ @do `p11 - `p20
+ @begin
+ @do move 2 20
+ @do write
+`4No fish are biting.`2 `%
+ @do move 2 21
+ @do write
+`4The action is finished for today `%
+ @do move 38 1
+ @key
+ @do move 38 1
+ @key
+
+ @do goto fishcast
+ @end
+@do `p20 random 2 1
+@if `p20 is 1 then do
+ @begin
+ @do move 2 20
+ @do write
+`4Nothing happens.
+ @do move 2 21
+ @do write
+`2You reel the line back in. `%
+ @do move 38 1
+ @key
+ @do goto fishcast
+ @end
+@if `p20 is 2 then do
+ @begin
+ @do move 62 14
+ @do write
+`%You have a bite!`2
+ @do move 38 1
+ @key
+
+@do `p20 random 4 1
+@IF `P20 IS 1 then do
+ @begin
+ ;catching a special fish
+ @do move 2 22
+ @do write
+The fish is suprisingly strong!`%
+ @do move 38 1
+ @key
+
+ @do move 2 23
+ @do write
+But you reel it in slowly... `%
+ @do move 38 1
+ @key
+
+@do `p20 random 4 1
+@IF `P20 IS 1 then do
+ @begin
+ @do move 2 22
+@do write
+`bTHE LINE BREAKS! `%
+@do move 2 23
+@do write
+`2The mighty fish has escaped. `%
+ @do move 38 1
+ @key
+
+ @do goto fishcast
+ @end
+ @do move 38 1
+ @key
+
+ @do move 2 23
+ @do write
+`2You have just caught a `0Sparkling Green Salmon`2!
+ @routine removeline
+ @do move 46 4
+ @do write
+`!/\
+ @do move 46 5
+ @do write
+`!��
+ @do move 46 6
+ @do write
+`!/\
+ @do move 38 1
+ @key
+
+ @do `i30 + 1
+ @do `t10 - 1
+ @do goto fishcast
+ @end
+
+ @do move 2 22
+ @do write
+ You slowly reel the fish to shore.
+ @do move 38 1
+ @key
+
+ @do move 2 23
+ @do write
+ You have caught a Salmon.
+ @routine removeline
+ @do move 46 4
+ @do write
+`2/\
+ @do move 46 5
+ @do write
+`2��
+ @do move 46 6
+ @do write
+`2/\
+ @do move 38 1
+ @key
+
+ @do `i29 + 1
+ @do `t10 - 1
+ @do goto fishcast
+ @end
+ @end
+@#REMOVELINE
+ @do move 47 4
+ @do write
+`x`x
+ @do move 47 5
+ @do write
+`x
+ @do move 47 6
+ @do write
+`x
+ @do move 47 7
+ @do write
+`x
+ @do move 47 8
+ @do write
+`x
+ @do move 47 9
+ @do write
+`x
+ @do move 46 10
+ @do write
+`x`x
+ @do move 49 5
+ @do write
+`x`x
+ @do move 51 6
+ @do write
+`x`x
+ @do move 53 7
+ @do write
+`3--
+ @do move 47 7
+ @do write
+`3-
+ @do move 55 8
+ @do write
+`x`x
+ @do move 57 9
+ @do write
+`x`x`x
+ @do move 58 10
+ @do write
+`x`x
+
+@#WATERFALL
+;Looking at the waterfall.
+@DO SAYBAR
+`2How nice!
+@do moveback
+
+@#WATERSIGN
+;Sign at the water fall.
+@DO SAYBAR
+`2To waterfall observation dock.
+@do moveback
+
+@#TREES
+;At the trees in the passage by the town
+@DO SAYBAR
+`2A spooky patch of autumn trees
+
+@#shrine
+@do `v01 is 1
+@do moveback
+@busy
+@show
+`r0`c `r1`% THE SHRINE OF BABOS `r0`\
+`2 You kneel in front of the shrine and meditate.`\
+@
+
+@if `v04 > 4 then do
+ @begin
+ @show
+`k Nothing happens.`\`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `v04 is 0 then do
+ @begin
+ @show
+`k Nothing happens. Maybe if you came on the right day...`\`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+
+@if `t09 is 1 then do
+ @begin
+ @show
+`k Nothing happens. You believe there may be limits to even a God's kindness.`\`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+;`v04: Lucky Shrine?: 1 = Money, 2, hitpoint, 3, strength 4 defence, else
+
+@if `v04 is 1 then do
+ @begin
+ @show
+`k `$$500 `0magically appears in your pocket!`\`\`k
+ @do money + 500
+ @do `t09 is 1
+ @end
+
+@if `v04 is 2 then do
+ @begin
+ @show
+`k `0You feel healthier! You get two more hitpoints!`\`\`k
+ @do `p03 + 2
+ @do `p02 + 2
+ @do `t09 is 1
+ @end
+
+@if `v04 is 3 then do
+ @begin
+ @show
+`k `%Belar`0 makes you stronger. You gain one muscle point!`\`\`k
+ @do `p04 + 1
+ @do `t09 is 1
+ @end
+
+@if `v04 is 4 then do
+ @begin
+ @show
+`k `0You feel the gods protecting you. You gain one dodge point!`\`\`k
+ @do `p05 + 1
+ @do `t09 is 1
+ @end
+
+ @drawmap
+ @update
+ @closescript
+
+@#DONE
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#nomore
+
diff --git a/xtrn/lord2/cnw/ppyramid.ref b/xtrn/lord2/cnw/ppyramid.ref
new file mode 100644
index 0000000000000000000000000000000000000000..0687d5322bd4174ca77f4f50859ece75d4b02804
--- /dev/null
+++ b/xtrn/lord2/cnw/ppyramid.ref
@@ -0,0 +1,178 @@
+; Script file PPYRAMID.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:38 2001
+
+@DECLARE 1 000000495
+@DECLARE 2 000000563
+@DECLARE 3 000000631
+@DECLARE 4 000000699
+@DECLARE 5 000000767
+@DECLARE 6 000000835
+@DECLARE leave 000000907
+@DECLARE done 000001666
+@DECLARE theplace 000001713
+@DECLARE somesign 000001918
+@DECLARE serv.1 000002027
+@DECLARE serv.2 000002074
+@DECLARE serv.3 000002118
+@DECLARE ph 000002173
+@DECLARE nomore 000003049
+@NOCHECK
+; End of .REF index
+
+@#1
+@datasave pyport.idf &playernum 1
+@do goto theplace
+@end
+
+@#2
+@datasave pyport.idf &playernum 2
+@do goto theplace
+@end
+
+@#3
+@datasave pyport.idf &playernum 3
+@do goto theplace
+@end
+
+@#4
+@datasave pyport.idf &playernum 4
+@do goto theplace
+@end
+
+@#5
+@datasave pyport.idf &playernum 5
+@do goto theplace
+@end
+
+@#6
+@datasave pyport.idf &playernum 6
+@do goto theplace
+@end
+
+@#leave
+@dataload pyport.idf &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @do x is 43
+ @do y is 5
+ @do map is 1360
+ @do goto done
+ @end
+
+@if `p20 is 2 then do
+ @begin
+ @do x is 42
+ @do y is 11
+ @do map is 400
+ @do goto done
+ @end
+
+@if `p20 is 3 then do
+ @begin
+ @do x is 39
+ @do y is 8
+ @do map is 40
+ @do goto done
+ @end
+
+@if `p20 is 4 then do
+ @begin
+ @do x is 32
+ @do y is 16
+ @do map is 1574
+ @do goto done
+ @end
+
+@if `p20 is 5 then do
+ @begin
+ @do x is 67
+ @do y is 6
+ @do map is 1591
+ @do goto done
+ @end
+
+@if `p20 is 6 then do
+ @begin
+ @do x is 43
+ @do y is 6
+ @do map is 1194
+ @do goto done
+ @end
+
+@if `p20 is 0 then do
+ @begin
+ @closescript
+ @end
+
+@#done
+@run done in Pyramid.ref
+@end
+
+@#theplace
+@if `p01 < 2 then do
+ @begin
+ @do saybar
+`%The door seems to be locked.
+ @closescript
+ @end
+@do x is 52
+@do y is 10
+@do map is 1549
+@do goto done
+@end
+
+@#somesign
+@do moveback
+@do saybar
+`0The famous King Ptolemy will be at the Pyrmaid's square.
+@end
+
+
+@#serv.1
+@do saybar
+`0This is hard work.
+
+@#serv.2
+@do saybar
+`0Its a hard job.
+
+@#serv.3
+@do saybar
+`0Only talk to the king once.
+
+
+@#ph
+@do moveback
+@datanewday py's.idf
+@dataload py's.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+ @do `p21 random 7 1
+
+ @if `p21 is 1 then saybar
+`0King: `2If you own Rooms 1,2,3 you can enter form the lobby of Pyramid's Place.
+ @if `p21 is 2 then saybar
+`0King: `2I say yes.
+ @if `p21 is 3 then saybar
+`0King: `2Who knew.
+ @if `p21 is 4 then saybar
+`0King: `2Report bugs to `4Pyramid`0athotmail.com
+ @if `p21 is 5 then saybar
+`0King: `2The Ankh is next to the red stairs.
+ @if `p21 is 6 then saybar
+`0King: `2When looking for the Pharaoh's armor, doors can be deceiving.
+ @if `p21 is 7 then saybar
+`0King: `2It's pretty nice on the roof of Pyramid's Place.
+
+
+ @datasave py's.idf &playernum 1
+ @closescript
+ @end
+
+@do moveback
+@do saybar
+`2Guard "I WARNED YOU!!!"`4HIT POINTS GO DOWN TO 1.
+@do `p02 is 1
+@end
+
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/prison.ref b/xtrn/lord2/cnw/prison.ref
new file mode 100644
index 0000000000000000000000000000000000000000..021cedb5b1fb0407c8cec301c989a4af0ea41ab4
--- /dev/null
+++ b/xtrn/lord2/cnw/prison.ref
@@ -0,0 +1,882 @@
+; Script file PRISON.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:26 2001
+
+@DECLARE blocka 000000731
+@DECLARE blockb 000001005
+@DECLARE blockc 000001282
+@DECLARE blockd 000001573
+@DECLARE entguard 000001854
+@DECLARE sign 000002170
+@DECLARE canoe 000002233
+@DECLARE guilt 000002298
+@DECLARE enter 000003097
+@DECLARE warden 000004082
+@DECLARE flirt 000007924
+@DECLARE guydead 000013898
+@DECLARE girl 000013937
+@DECLARE gotout 000013975
+@DECLARE run 000014012
+@DECLARE win 000014046
+@DECLARE execute 000014084
+@DECLARE fall 000014123
+@DECLARE done 000014159
+@NOCHECK
+; End of .REF index
+
+;Greentree Prison Version 2 by Codax and Dragon's Den Ultd
+;This update should fix the freeze problem
+
+@#blockA
+@readfile pris&playernum.idf
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+@if `s02 not A then do
+@begin
+@do saybar
+This is not Your Cell Block!!!
+@end
+
+@if `s02 is A then do
+@begin
+@do x is 40
+@do y is 15
+@do map is 610
+@loadmap 610
+@drawmap
+@Update
+@end
+
+@#blockB
+@readfile pris&playernum.idf
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+@
+@if `s02 not B then do
+@begin
+@do saybar
+This is not Your Cell Block!!!
+@end
+
+@if `s02 is B then do
+@begin
+@do x is 40
+@do y is 15
+@do map is 850
+@loadmap 850
+@drawmap
+@Update
+@end
+
+@#blockC
+@do moveback
+@readfile pris&playernum.idf
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+@
+@if `s02 not C then do
+@begin
+@do saybar
+This is not Your Cell Block!!!
+@end
+
+@if `s02 is C then do
+@begin
+@do x is 40
+@do y is 15
+@do map is 847
+@loadmap 847
+@drawmap
+@Update
+@end
+
+@#blockD
+@readfile pris&playernum.idf
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+@
+@if `s02 not D then do
+@begin
+@do saybar
+This is not Your Cell Block!!!
+@end
+
+@if `s02 is D then do
+@begin
+@do x is 40
+@do y is 15
+@do map is 607
+@loadmap 607
+@drawmap
+@Update
+@end
+
+
+@#entguard
+@do moveback
+@readfile pris&playernum.idf
+`p21
+`p22
+@if `p22 < 1 then do
+@begin
+@do saybar
+Patrol Man: A Ha...I have caught you with no strikes left!`|`l`l`l`l`l
+@run execute
+@end
+
+@if `p22 not 0 then do
+@begin
+@do saybar
+Patrol Man: Watch your back...You have `!`p22`% strikes left
+@end
+
+@#sign
+@do moveback
+@do saybar
+ <---- Greentree Prison
+
+@#canoe
+@Do `s01 is didn't`xpay`xcanoe`xrent
+@do goto enter
+
+@#guilt
+@do moveback
+@if pris&playernum.idf exists false then do
+@begin
+
+@do `p20 Random 9 1
+
+@if `p20 is 1 then `s01 is stole`xa`xloaf`xof`xbread
+@if `p20 is 2 then `s01 is stole`xa`xhorse
+@if `p20 is 3 then `s01 is stole`xmilk
+@if `p20 is 4 then `s01 is stole`xa`xbag`xof`xgems
+@if `p20 is 5 then `s01 is triped`xa`xclergyman
+@if `p20 is 6 then `s01 is assalted`xa`xbard
+@if `p20 is 7 then `s01 is killed`xa`xmockingbird
+@if `p20 is 8 then `s01 is had`xgood`xrelations`xwith`xa`xgoat
+@if `p20 is 9 then `s01 is robbed`xa`xhouse
+
+@show
+
+ `r0`c`% `r1 Doing his Duty `r0`2
+
+ Patrol Man: Hello Citizen`l .`l .`l .Wait!!! I know you, you are the
+ person I ran into years ago `l. `l. `l.you `!`s01!!`2
+ You are going to jail!!!
+`k
+@do goto enter
+@end
+
+@begin
+@label enter
+@do x is 71
+@do y is 12
+@do map is 689
+@loadmap 689
+@drawmap
+@update
+@do saybar
+Patrol Man: You are a thief!!!! Go directly to see the warden!!
+@key
+@do saybar
+All your warpable Items have been taken!!!
+@do `p21 is 0
+
+@if `p20 > 0 then do
+@begin
+@do `p21 + 1
+@end
+
+@if `p20 > 3 then do
+@begin
+@do `p21 + 1
+@end
+
+@if `p20 > 5 then do
+@begin
+@do `p21 + 1
+@end
+
+@if `p20 > 7 then do
+@begin
+@do `p21 + 1
+@end
+
+@writefile pris&playernum.idf
+&time
+3
+`p21
+0
+0
+0
+`s01
+@
+@run takeitem in prisonb.ref
+@end
+
+@if pris&playernum.idf exists true then do
+@begin
+@readfile pris&playernum.idf
+`p30
+@
+
+@if `p30 not &time then do
+@begin
+@do delete pris&playernum.idf
+@do saybar
+Patrol Man: You come here again and I'll run you in!
+@end
+
+@if `p30 is &time then do
+@begin
+@do saybar
+Didn't you get enough the first time you were here today?
+@end
+@end
+
+
+;-------------------------warden----------------------------------------
+@#warden
+@readfile pris&playernum.idf
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+
+@if `s02 is 0 then do
+@begin
+@show
+
+ `r0`c `r1`% The Warden `r0`2
+
+ Warden: So you are the new filth in town, huh. Here are a few rules if
+ you want to make it out of this place.
+
+ 1. Every Newday come and talk to me
+`k
+ 2. No Escaping
+`k
+ 3. No fiddling with the locks
+`k
+ 4. Remember Your prison cell number
+`k
+ 5. If you do anything wrong you will be executed, but your body
+ will remain here untill your sentence is up!!!
+
+ Do you understand!
+
+@do `v01 is 1
+@choice
+Yes
+No
+@if responce is 2 then do
+@begin
+@run warden
+@end
+
+@if responce is 1 then do
+@begin
+@show
+`2
+ Warden: Good....now let's see what you did`l.`l.`l.`l.hmmmmm
+ <gasp> It says here you `!`s01`2!
+ That means you get `!`p23`2 Days in here!
+`$`k
+ But I'm innocent!!!
+`k
+@do `p20 Random 4 1
+@if `p20 is 1 then `s02 is A
+@if `p20 is 2 then `s02 is B
+@if `p20 is 3 then `s02 is C
+@if `p20 is 4 then `s02 is D
+@show
+`2
+ Warden: That's What they all say....I'm assigning you to cell block`! `s02`2
+ Now get out of my sight!!!
+`k
+@if `s02 is A then `p30 is 610
+@if `s02 is B then `p30 is 850
+@if `s02 is C then `p30 is 847
+@if `s02 is D then `p30 is 607
+
+@do `p20 random 4 1
+@if `p20 is 1 then do
+@begin
+@do `p28 is 70
+@do `p29 is 7
+@end
+
+@if `p20 is 2 then do
+@begin
+@do `p28 is 29
+@do `p29 is 3
+@end
+
+@if `p20 is 3 then do
+@begin
+@do `p28 is 48
+@do `p29 is 2
+@end
+
+@if `p20 is 4 then do
+@begin
+@do `p28 is 23
+@do `p29 is 3
+@end
+
+@do delete prisinfo.&playernum
+@writefile prisinfo.&playernum
+0
+0
+0
+`p28
+`p29
+0
+`p30
+@
+
+@do delete pris&playernum.idf
+@writefile pris&playernum.idf
+&time
+3
+`p23
+0
+0
+`s02
+`s01
+@drawmap
+@update
+@end
+@end
+
+@readfile pris&playernum.idf
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@if `s02 not 0 then do
+@begin
+
+@if `p23 is 0 then do
+@begin
+@run gotout
+@end
+
+@readfile pris&playernum.idf
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+
+@if `p21 not &time then do
+@begin
+@do `p23 - 1
+@Show
+
+`r0`c `r1`% One day closer to freedom `r0`2
+
+ Warden: Well, what do ya know, punk s&boy has only `!`p23`2 days left!
+`k
+
+@do delete pris&playernum.idf
+@writefile pris&playernum.idf
+&time
+`p22
+`p23
+`p24
+`p25
+`s02
+`s03
+@
+@drawmap
+@update
+@end
+
+@readfile pris&playernum.idf
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+
+@if `p21 is &time then do
+@begin
+@show
+
+ `r0`c `r1`% Bothering The Warden `r0`2
+
+ Warden: What do you want?
+
+@do `v01 is 1
+@choice
+How many days do I have left
+Flirt
+To KILL YOU!
+Leave
+@
+
+@if responce is 4 then do
+@begin
+@drawmap
+@do y is 6
+@update
+@do saybar
+Warden: Don't waste my time!
+@drawpart 17 5
+
+@end
+
+@if responce is 1 then do
+@begin
+@drawmap
+@do y is 6
+@update
+@do saybar
+Warden: You have `p23 days left
+@drawpart 17 5
+@end
+
+@if responce is 3 then do
+@begin
+@drawmap
+@update
+@fight
+;name
+The Warden
+;string said when you see him
+`$"Die you fat ugly pig"`2 you scream
+;power move kill string
+Warden: I am the law and the law is not mocked
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Sprays you with mace|175
+Hits you with his billy club|290
+Farts|90
+Smacks you with his blackjack|300
+NONE|NONE
+;defense
+1000
+;gold reward
+500
+;experience
+2000
+;hit points
+2000
+;if win: ref file|name or NONE
+prison.ref|win
+;if lose: ref file|name or NONE
+prison.ref|execute
+;if runs: ref file|name or NONE
+prison.ref|run
+@end
+
+@if responce is 2 then do
+@begin
+@run flirt
+@end
+@end
+
+;------------------------------------------------------------------------
+@#flirt
+@readfile pris&playernum.idf
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+
+@if &sex is 1 then do
+@begin
+@do `p22 - 1
+@do delete pris&playernum.idf
+@writefile pris&playernum.idf
+&time
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+@drawmap
+@do y is 6
+@update
+@do saybar
+`0You sick boy...Don't you ever try that again! You have `p22 strikes left!
+@if `p22 less 1 then do
+@begin
+@run execute
+@end
+@end
+
+@if &sex is 0 then do
+@begin
+@datanewday warden.idf
+@dataload warden.idf &playernum `p26
+
+@if `p26 is 1 then do
+ @begin
+ @do saybar
+`0You've been suave enough for one day...
+ @closescript
+ @end
+
+@DO `p27 random 12 1
+ @do `v01 is 1
+ @SHOW
+`r0`c `r1`% The Warden `r0
+
+`2 This ugly as a slop, pig faced, officer smiles dumbly at you.
+
+@do write
+`x`x
+@CHOICE
+>`p08 0 Wink at him
+>`p08 1 Kiss his hand
+>`p08 2 Peck him on the lips
+>`p08 3 Slap his on the behind
+>`p08 5 Make out session
+>`p08 7 Bed together!
+Sorry, you're too dumb...even for me.
+@if response is 1 then do
+ @begin
+ @if `p27 > 5 then do
+ @begin
+ @show
+`\`\ `2You give the warden a good wink!
+
+ He smiles back at you and blows a kiss! Excellent!
+
+ `@Charm goes up by 1.
+`\`k
+
+ @datasave warden.idf &playernum 1
+ @do `p08 + 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p27 < 6 then do
+ @datasave warden.idf &playernum 1
+ @show
+`\
+ `0He slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if response is 2 then do
+ @begin
+ @if `p27 > 5 then do
+ @begin
+ @show
+`\`\ `2Like the debonaire young lady you are, you kiss him on the hand and
+ in a well-fashioned English accent sweet-talk him...
+
+ He kisses you on the cheek. Smooth!
+
+ `@Charm goes up by 2.
+`\`k
+ @do `p08 + 2
+ @datasave warden.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p27 < 6 then do
+ @datasave WArden.idf &playernum 1
+ @show
+`\
+ `0He slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@if response is 3 then do
+ @begin
+ @if `p27 > 5 then do
+ @begin
+ @show
+`\`\ `2You sneak in a quick flirtatious peck on the lips and, to your very
+ lucky surprise, He engulfs your peck with a sloppy wet-one!
+
+ `@Charm goes up by 3.
+`\`k
+ @do `p08 + 3
+@do addlog
+ `r0 `0`n`2 has kissed quite heavily `0The warden of Greentree jail
+ @writefile lognow.txt
+ `2at `0Greentree Jail
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave warden.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p27 < 6 then do
+ @datasave warden.idf &playernum 1
+ @show
+`\
+ `0He slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@if response is 4 then do
+ @begin
+ @if `p27 > 5 then do
+ @begin
+ @show
+`\`\ `2You decide to take the plunge. Very confidently, you sneak your hand
+ around to the warden's backside and with a swift pump whack on his very
+ extremely wide ass...
+
+ He guhuks and gives you a kiss!
+
+ `@Charm goes up by 4.
+`\`k
+ @do `p08 + 4
+@do addlog
+ `r0 `0`n`2 has slapped `0The warden`2's ass
+ @writefile lognow.txt
+ `2at `0Greentree Jail
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave warden.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p27 < 6 then do
+ @datasave warden.idf &playernum 1
+ @show
+`\
+ `0He slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@if response is 5 then do
+ @begin
+ @if `p27 > 5 then do
+ @begin
+ @show
+`\`\ `$"Hey, Warden! I feel like we've gotten to know each other fairly well,
+ don't you? I, well, I...well...I was wondering if you'd make out with me?"
+
+`k `0"Right here?"
+
+`k `$"Yes...you know, if you would...please..."
+
+`k `2Before you can answer, He jumps on top of you. You roll around for a bit
+ and just as you start feeling like more -- He stands up and says thank you.
+
+ `@You have 2 more chances to do something wrong.
+`k
+@do `p22 + 2
+@do delete pris&playernum.idf
+@writefile pris&playernum.idf
+&time
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+
+`\`k
+ @do addlog
+ `r0 `0`n`2 has made out with `0the warden
+ @writefile lognow.txt
+ `2at `0Greentree Jail!
+ `2-`0=`2-`%=`2-`0=`2-
+
+ @datasave wArden.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p27 < 6 then do
+ @datasave warden.idf &playernum 1
+ @show
+`\
+ `0He slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@if response is 6 then do
+ @begin
+ @if `p27 > 5 then do
+ @begin
+ @show
+`\`\ `2Remembering your good ol' days with Seth, you grab the warden
+ and lay him on his huge table. He flips you over and mis-uses your
+ body in ways it was never misused before. You cry out, but his heaving
+ only blocks it out.
+
+ `2It is terrible. You limp on out, kinda bow legged at the experience
+ but it least it got you one day less in jail.
+
+ `@You got one less day in prison`k
+ `@You get VD.`k
+ `@Lays go up by 1.
+`\`k
+ @do addlog
+ `7-`8= `r0 `0`n`2 left the warden's office walking bow-legged and filty! `8=`7-
+ @writefile lognow.txt
+ `2at `0Greetree Jail!
+ `2-`0=`2-`%=`2-`0=`2-
+
+@do `p23 - 1
+@do delete pris&playernum.idf
+@writefile pris&playernum.idf
+&time
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+
+ @do `p12 is 1
+ @do `p34 + 1
+ @do y is 6
+ @datasave warden.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p27 < 6 then do
+ @datasave warden.idf &playernum 1
+ @show
+`\
+ `0He is discusted at your proposal and gives you an extra day in jail
+`k
+@do `p23 + 1
+@do delete pris&playernum.idf
+@writefile pris&playernum.idf
+&time
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+
+@drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@CLOSESCRIPT
+@END
+
+
+;->
+@#guydead
+@run guydead in prisonf.ref
+
+@#girl
+@run girl in prisonf.ref
+
+@#gotout
+@run gotout in prisonf.ref
+
+@#run
+@run run in prisonf.ref
+
+@#win
+@run win in prisonf.ref
+
+@#execute
+@run execute in prisonf.ref
+
+@#FALL
+@run fall in prisonf.ref
+
+@#done
+
+
+;Vars for pris&playernum.idf
+;var1 = time (`p21)
+;var2 = strikes (`p22)
+;var3 = days left (`p23)
+;var4 = found spoon (`p24)
+;var5 = finished tunnel (`p25)
+;var6 = prison block letter (`s02)
+;var7 = crime (`s01)
+
+;Vars for Prisinfo.&playernum
+;var1 = time for once a day race (`p21)
+;var2 = time for once a day work out (`p22)
+;var3 = time for once a day rocks break (`p23)
+;var4 = Player cell x (`p24)
+;var5 = player cell y (`p25)
+;var6 = time for once a day flirt (`p26)
+;var7 = player cell map (`p27)
diff --git a/xtrn/lord2/cnw/prisonb.ref b/xtrn/lord2/cnw/prisonb.ref
new file mode 100644
index 0000000000000000000000000000000000000000..1b2a686a4a98055e39ce1a9d9e2a9862a7f8a39e
--- /dev/null
+++ b/xtrn/lord2/cnw/prisonb.ref
@@ -0,0 +1,712 @@
+; Script file PRISONB.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:26 2001
+
+@DECLARE help 000001203
+@DECLARE nobed 000001321
+@DECLARE strike 000001413
+@DECLARE lock1 000001599
+@DECLARE lock2 000002169
+@DECLARE lock3 000002703
+@DECLARE lock4 000003280
+@DECLARE guy01 000003954
+@DECLARE guy2 000004026
+@DECLARE noexit 000004103
+@DECLARE spoon 000004387
+@DECLARE look 000004803
+@DECLARE wonder 000004868
+@DECLARE droped 000005066
+@DECLARE eww 000005145
+@DECLARE cafe 000005200
+@DECLARE food 000005438
+@DECLARE start 000005607
+@DECLARE gescape 000007970
+@DECLARE wing 000009372
+@DECLARE pitman 000009607
+@DECLARE rackman 000009941
+@DECLARE headguy 000010288
+@DECLARE hangman 000010627
+@DECLARE john 000010962
+@DECLARE race 000010998
+@DECLARE rocks 000011035
+@DECLARE gym 000011071
+@DECLARE tunnel 000011108
+@DECLARE codax 000011147
+@DECLARE bobmad 000011186
+@DECLARE bobglad 000011227
+@DECLARE bob 000011265
+@DECLARE done 000011300
+@DECLARE giveitem 000012324
+@DECLARE takeitem 000012368
+@DECLARE execute 000012411
+@NOCHECK
+; End of .REF index
+
+;Greentree Prison Version 2 by Codax and Dragon's Den Ultd
+;This update should fix the freeze problem
+
+@#help
+@do moveback
+@do saybar
+Help a guy out huh? Please...`w<`ws`wn`wi`wf`wf`w> come on `w<`ws`wn`wi`wf`wf`w>
+@#nobed
+@do moveback
+@do saybar
+Man! How could they put me in a cell with no bed!?!
+
+@#strike
+@do `p02 is `p03
+@readfile prison.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+@do `p22 - 1
+@writefile prison.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+@
+
+@#lock1
+@if &lastx is 65 then do
+@begin
+@do x is 67
+@drawpart 65 8
+@update
+@do goto done
+@end
+
+@if &lastx is 67 then do
+@begin
+@do `p20 Random 5 1
+@if `p20 is 2 then `s01 is I`xthink`xI`xheard`xit`xcreak!
+@if `p20 is 3 then `s01 is That`xwas`xa`xwaste`xof`xtime!
+@if `p20 is 4 then `s01 is Darn`xcell`xdoors!
+@if `p20 is 5 then `s01 is The`xdoor`xwon't`xbudge!
+
+@if `p20 not 1 then do
+@begin
+@do saybar
+`s01
+@do goto done
+@end
+
+@if `p20 is 1 then do
+@begin
+@do x is 65
+@do y is 8
+@drawmap
+@update
+@do saybar
+WooooHoooo Free
+@end
+@end
+
+@#lock2
+@if &lasty is 5 then do
+@begin
+@do y is 3
+@drawpart 50 5
+@update
+@end
+@if &lasty not 5 then do
+@begin
+@do `p20 Random 5 1
+@if `p20 is 2 then `s01 is I`xthink`xI`xheard`xit`xcreak!
+@if `p20 is 3 then `s01 is That`xwas`xa`xwaste`xof`xtime!
+@if `p20 is 4 then `s01 is Darn`xcell`xdoors!
+@if `p20 is 5 then `s01 is The`xdoor`xwon't`xbudge!
+
+@if `p20 not 1 then do
+@begin
+@do saybar
+`s01
+@end
+@if `p20 is 1 then do
+@begin
+@do x is 50
+@do y is 5
+@drawmap
+@update
+@do saybar
+WooooHoooo Free
+@end
+@end
+
+@#lock3
+@if &lasty is 5 then do
+@begin
+@do y is 3
+@drawpart 31 5
+@update
+@do goto done
+@end
+
+@if &lasty not 5 then do
+@begin
+@do `p20 Random 5 1
+@if `p20 is 2 then `s01 is I`xthink`xI`xheard`xit`xcreak!
+@if `p20 is 3 then `s01 is That`xwas`xa`xwaste`xof`xtime!
+@if `p20 is 4 then `s01 is Darn`xcell`xdoors!
+@if `p20 is 5 then `s01 is The`xdoor`xwon't`xbudge!
+
+@if `p20 not 1 then do
+@begin
+@do saybar
+`s01
+@do goto done
+@end
+
+@if `p20 is 1 then do
+@begin
+@do x is 31
+@do y is 5
+@drawmap
+@update
+@do saybar
+WooooHoooo Free
+@update
+@end
+@end
+
+@#lock4
+@if &lasty is 5 then do
+@begin
+@do y is 3
+@drawpart 65 8
+@update
+@do goto done
+@end
+
+@if &lasty not 5 then do
+@begin
+@do `p20 Random 5 1
+
+@if `p20 is 2 then do
+@begin
+@do `s01 is I`xthink`xI`xheard`xit`xcreak!
+@end
+
+@if `p20 is 3 then do
+@begin
+@do `s01 is That`xwas`xa`xwaste`xof`xtime!
+@end
+
+@if `p20 is 4 then do
+@begin
+@do `s01 is Darn`xcell`xdoors!
+@end
+
+@if `p20 is 5 then do
+@begin
+@do `s01 is The`xdoor`xwon't`xbudge!
+@end
+
+@if `p20 more 1 then do
+@begin
+@do saybar
+`s01
+@do goto done
+@end
+
+@if `p20 is 1 then do
+@begin
+@do x is 25
+@do y is 5
+@drawmap
+@update
+@do saybar
+WooooHoooo Free
+@update
+@end
+@end
+
+@#guy01
+@do moveback
+@do saybar
+Man that Tree is really expensive!
+
+@#guy2
+@do moveback
+@do saybar
+There is a guy here who shoots craps!
+
+@#noexit
+@do saybar
+Patrol man: Ha! You thought you could sneak past me! One Stike!
+@readfile prison.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+@do delete prison.&playernum
+@do `p22 - 1
+@writefile prison.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+
+@#spoon
+@readfile prison.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+
+@if `p24 is 1 then do
+@begin
+@do saybar
+You already have a spoon! Go work on tunneling outta here!
+@end
+
+@if `p24 is 0 then do
+@begin
+@do saybar
+You found a spoon! Wonder how you can use this?
+@do `p24 + 1
+@do delete prison.&playernum
+@writefile prison.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+@end
+
+@#look
+@do moveback
+@do saybar
+Hitler: No Soup for you!
+
+@#wonder
+@do moveback
+@do saybar
+I have to find me a spoon so I can at least try to get outta here
+@key
+@do saybar
+But.....I won't be able to get all my travel potions back. What a delima
+
+@#droped
+@do moveback
+@do saybar
+Where's my spoon? I must have dropped it.
+
+@#eww
+@do saybar
+Ewwwww someone forgot to flush!
+
+@#cafe
+@if prisinfo.&playernum exists false then do
+@begin
+@do saybar
+Go see the Warden!
+@end
+
+@if prisinfo.&playernum exists true then do
+@begin
+@do x is 39
+@do y is 17
+@do map is 766
+@loadmap 766
+@drawmap
+@update
+@end
+
+@#food
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c`% `r1 Olga you waitress `r0
+
+`2
+ A but ugly, fat, slob of woman stands in front of you.
+
+`k
+
+@label start
+@show
+`r0`c`% `r1 Time to tempt your tummy `r0
+
+`2 Olga screems: What do you want you piece of thieving trash?!?
+
+@do write
+`x`x
+@choice
+Look at the menu.
+Order something
+Stand up
+@
+
+@if response is 1 then do
+ @begin
+ @show
+`r0`c `%She opens her hand and says
+
+ `5We got food. It's bearly edible but it is still food.
+
+`k `#Bread and Water (`$$20`#)
+
+ `5What are you dumb. Bread and water is bread and water
+
+ `#Jail bird (`$$50`#)
+
+ `5This is a bird that our warden shoots down with his crossbow!
+ take out all the feathers and you have yourself a meal!
+
+ `#Jail Bird on a stick (`$$100`#)
+
+ `5We left the arrows in the Jail bird
+
+`k
+@do goto start
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\`\ `2Order what? (`0You have `$&money`2)`\`\`x`x
+ @do `v01 is 1
+ @choice
+`#Bread and Water (`$$20`#)
+`#Jail Bird (`$$50`5)
+`#Jail Bird on a stick(`$$100`5)
+`#Nuthin'
+ @
+
+ @if response is 1 then do
+ @begin
+ @if money < 20 then do
+ @begin
+ @show
+`\`\ `4You can't afford that, poor s&boy.`\`\`k
+ @do `v01 is 2
+ @do goto start
+ @end
+ @do money - 20
+ @show
+`r0`c `r1 Chow Time `r0`\`\ `2Olga hands you a plate with some bread
+ no butter and a flask full of brown water. Enjoy!
+`\`k
+ @end
+
+ @if response is 2 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+`\`\ `4You can't afford that, poor s&boy.`\`\`k
+ @do `v01 is 2
+ @do goto start
+ @end
+ @do money - 30
+ @show
+`r0`c `r1 Chow Time `r0`\`\ `2Olga Brings out the bird.
+`\ You see some of the feathers have not been picked off.
+`\`k `4It is almost totally black!
+`\`k `%MMMMmmm crunchy!!!! What fun! Don't ya just love prison food!
+`\`k
+ @end
+
+ @if response is 3 then do
+ @begin
+ @if money < 100 then do
+ @begin
+ @show
+`\`\ `4You can't afford that.`\`\`k
+ @do `v01 is 2
+ @do goto start
+ @end
+ @do money - 100
+ @show
+`r0`c `r1 Chow Time `r0`\`\ `2Olga brings out the Jail Bird.
+`\ It has a large stick protruding out it's mouth and rear opening.
+`\`kToo bad the arrow part was broken off.
+`k
+
+@do `p02 + 50
+
+ @do goto start
+ @end
+
+
+
+ @do `v01 is 2
+ @do goto start
+ @end
+
+@drawmap
+@update
+
+@#gescape
+@do moveback
+
+@if gescape.&playernum exists true then do
+@begin
+@readfile gescape.&playernum
+`p20
+@
+@if `p20 is &time then do
+@begin
+@do saybar
+Another guard has taken the original's place. He holds a crossbow
+@key
+@do saybar
+To your head and tells you to back off!
+@run done
+@End
+
+@if `p20 not &time then do
+@begin
+@do delete gescape.&playernum
+@run gescape
+@end
+@end
+
+
+@if gescape.&playernum exists false then do
+@begin
+@do saybar
+Guard: Get outta here!
+@do write
+`\`2Attack the Guard (`0N,Y`2)
+@do readspecial `s01 NY
+@if `s01 is N then do
+@begin
+@do moveback
+@drawmap
+@update
+@do saybar
+The guard spits on you as you back off
+@end
+
+@if `s01 is Y then do
+@begin
+@writefile gescape.&playernum
+&time
+@
+@drawmap
+@update
+@fight
+;name
+Guard
+;string said when you see him
+`$"Die you fat ugly pig"`2 you scream
+;power move kill string
+I am a great warrior and you are just trash
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Sprays you with mace|175
+Hits you with his billy club|310
+Kicks you in the nose|100
+Smacks you with his blackjack|300
+NONE|NONE
+;defense
+1200
+;gold reward
+200
+;experience
+1800
+;hit points
+1800
+;if win: ref file|name or NONE
+prisonb.ref|wing
+;if lose: ref file|name or NONE
+prison.ref|execute
+;if runs: ref file|name or NONE
+prison.ref|run
+@end
+@End
+
+@#wing
+@if `p07 < 10 then do
+@begin
+@run gotout in prison.ref
+@end
+
+@if `p07 > 9 then do
+@begin
+@do x is 11
+@do y is 18
+@drawpart 4 4
+@update
+@do quebar
+Guards are every where! You quickly hide in the shadows!
+@end
+
+@#pitman
+@do moveback
+@readfile prison.&playernum
+`p21
+`p22
+@
+
+@if `p22 < 1 then do
+@begin
+@do saybar
+Pit Guard: A Ha...I have caught you with no strikes left!`l`l`l`l`l`l
+@run execute prison.ref
+@end
+
+@if `p22 not 0 then do
+@begin
+@do saybar
+Pit Guard: Watch your back...You have `!`p22`% strikes left
+@end
+
+
+@#rackman
+@do moveback
+@readfile prison.&playernum
+`p21
+`p22
+@
+
+@if `p22 < 1 then do
+@begin
+@do saybar
+Rack Attendent: A Ha...I have caught you with no strikes left!`l`l`l`l`l`l
+@run execute in prison.ref
+@end
+
+@if `p22 not 0 then do
+@begin
+@do saybar
+Rack Attendent: Watch your back...You have `!`p22`% strikes left
+@end
+
+
+@#headguy
+@do moveback
+@readfile prison.&playernum
+`p21
+`p22
+@
+
+@if `p22 < 1 then do
+@begin
+@do saybar
+Exacutioner: A Ha...I have caught you with no strikes left!`l`l`l`l`l`l
+@run execute in prison.ref
+@end
+
+@if `p22 not 0 then do
+@begin
+@do saybar
+Exacutioner: Watch your back...You have `!`p22`% strikes left
+@end
+
+@#hangman
+@do moveback
+@readfile prison.&playernum
+`p21
+`p22
+@
+
+@if `p22 < 1 then do
+@begin
+@do saybar
+Hangman: A Ha...I have caught you with no strikes left!`l`l`l`l`l`l
+@run execute in prison.ref
+@end
+
+@if `p22 not 0 then do
+@begin
+@do saybar
+Hangman: Watch your back...You have `!`p22`% strikes left
+@end
+
+;->
+
+@#john
+@run john in prisonf.ref
+
+@#race
+@run race in prisonf.ref
+
+@#rocks
+@run rocks in prisonf.ref
+
+@#gym
+@run gym in prisonf.ref
+
+@#tunnel
+@run tunnel in prisonf.ref
+
+@#codax
+@run codax in prisonf.ref
+
+@#bobmad
+@run bobmad in prisonf.ref
+
+@#bobglad
+@run bobglad in prisonf.ref
+
+@#bob
+@run bob in prisonf.ref
+
+@#done
+
+
+;Vars for Prisinfo.&playernum
+;var1 = time for once a day race (`p21)
+;var2 = time for once a day work out (`p22)
+;var3 = time for once a day rocks break (`p23)
+;var4 = Player cell x (`p24)
+;var5 = player cell y (`p25)
+;var6 = time for once a day flirt (`p26)
+;var7 = player cell map (`p27)
+
+;Vars for Prison.&playernum
+;var1 = time (`p21)
+;var2 = strikes (`p22)
+;var3 = days left (`p23)
+;var4 = found spoon (`p24)
+;var5 = finished tunnel (`p25)
+;var6 = prison block letter (`s02)
+;var7 = crime (`s01)
+
+;Vars for Prisitem.&playernum
+;var1 = Travel Potions (`p20)(`i50)
+;Var2 = Flute (`p21)(`i07)
+;Var3 = mystic eye (`p22)(`i83)
+;var4 = Loose screw (`p23)(`i94)
+;var5 = Mypron Groon (`p24)(`i95)
+;var6 = Skystaff Base (`p25)(`i22)
+;var7 = skystaff Middle (`p26)(`i23)
+;var8 = skystaff Top (`p27)(`i24)
+;var9 = skystaff Gemstone (`p28)(`i25)
+;var10= wizards wand (`p29)(`i56)
+
+@#giveitem
+@run giveitem in prisonf.ref
+
+@#takeitem
+@run takeitem in prisonf.ref
+
+@#execute
+@run execute in prisonf.ref
+
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/prisonc.ref b/xtrn/lord2/cnw/prisonc.ref
new file mode 100644
index 0000000000000000000000000000000000000000..0edc63ee2a412e07c9cc5e74a37305327ded4356
--- /dev/null
+++ b/xtrn/lord2/cnw/prisonc.ref
@@ -0,0 +1,1226 @@
+; Script file PRISONC.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:26 2001
+
+@DECLARE help 000000697
+@DECLARE crapstart 000001237
+@DECLARE craps 000001281
+@DECLARE begin1 000002348
+@DECLARE nextroll 000003038
+@DECLARE hit 000003496
+@DECLARE win 000003547
+@DECLARE crapout 000003906
+@DECLARE lose 000003950
+@DECLARE bottom 000004294
+@DECLARE nomoney 000004339
+@DECLARE slotstart 000004449
+@DECLARE slots 000005700
+@DECLARE ending 000015273
+@DECLARE coin 000015318
+@DECLARE jack 000017027
+@NOCHECK
+; End of .REF index
+
+;Greentree Prison Version 2 by Codax and Dragon's Den Ultd
+;This update should fix the freeze problem
+;This is the Ulimited Gambles Ref file
+
+@#help
+ @show
+`r0`c `r1 Craps Help `r0
+
+ `2If you roll a `02`2, `03`2, or a `012`2 on your first roll, you lose.
+ If you roll a `07`2 or an `011`2 on your first roll, you win.
+
+ `2 Otherwise, the dice are rolled until the total of the
+ first roll is rolled again, in which case the player
+ wins. But if a `07`2 or an `011`2 is rolled after the first
+ roll, you lose.
+
+ There is no limit to how many times you can bet!
+ But....If you loose you loose twice your bet!
+
+ Good luck!
+
+`k
+ @do goto craps
+ @end
+
+@#crapstart
+
+@do `v01 is 1
+@do goto craps
+
+@#craps
+@do moveback
+@busy
+@do `p24 is 0
+@do `p21 is money
+@show
+`r0`c `r1 Playing some Craps `r0
+
+ `2You have `$$`p21`2. How much do you want to wager?
+
+@do write
+`x`x
+@choice
+$5
+$10
+$20
+$50
+$100
+Help on craps
+Leave
+@if response is 6 then do
+ @begin
+ @do goto help
+ @end
+
+
+@if responce = 1 then do
+ @begin
+ @if `p21 < 5 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 5
+ @do goto begin1
+ @end
+@if responce = 2 then do
+ @begin
+ @if `p21 < 10 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 10
+ @do goto begin1
+ @end
+@if responce = 3 then do
+ @begin
+ @if `p21 < 20 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 20
+ @do goto begin1
+ @end
+@if responce = 4 then do
+ @begin
+ @if `p21 < 50 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 50
+ @do goto begin1
+ @end
+@if responce = 5 then do
+ @begin
+ @if `p21 < 100 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 100
+ @do goto begin1
+ @end
+@if response = 7 then do
+ @begin
+ @do goto ending
+ @end
+@label begin1
+@show
+`r0`c `r1 `%You carefully spit on the dice for good luck. `r0
+
+@do `p22 random 5 1
+@do `p23 random 5 1
+@do `p24 + `p22
+@do `p24 + `p23
+@show
+ `0First Roll....
+
+@show
+ `2Die #1`0: `p22
+ `2Die #2:`0 `p23
+
+ `2Total: `0`p24
+
+@if `p24 = 2 then do
+ @begin
+ @show
+
+ `4Snake Eyes!
+ @do goto lose
+ @end
+@if `p24 = 3 then do
+ @begin
+ @show
+ `4Cock Eyes!
+ @do goto lose
+ @end
+@if `p24 = 12 then do
+ @begin
+ @show
+ `4Boxcars!
+ @do goto lose
+ @end
+@if `p24 = 7 then do
+ @begin
+ @show
+ `%A Natural!
+ @do goto win
+ @end
+@if `p24 = 11 then do
+ @begin
+ @show
+ `%A Natural!
+ @do goto win
+ @end
+@show
+ `0`p24`2 is your point.
+@label nextroll
+@do `p25 is 0
+@show
+
+ Press a key to roll again.
+@do `p22 random 5 1
+@do `p23 random 5 1
+@do `p25 + `p22
+@do `p25 + `p23
+@show
+`\`k `2Die #1: `0`p22
+ `2Die #2: `0`p23
+
+ `2Total: `0`p25
+@if `p25 = `p24 then do
+ @begin
+ @do goto hit
+ @end
+@if `p25 = 7 then do
+ @begin
+ @do goto crapout
+ @end
+@if `p25 = 11 then do
+ @begin
+ @do goto crapout
+ @end
+@show
+
+ `2Not your point, keep rolling the bones!
+@do goto nextroll
+@label hit
+@show
+
+ `0Yes! You hit your point.
+@label win
+@show
+
+ `2You win your bet of: `$$`p20`2!
+@if `p20 = 5 then do
+ @begin
+ @do money + 5
+ @end
+@if `p20 = 10 then do
+ @begin
+ @do money + 10
+ @end
+@if `p20 = 20 then do
+ @begin
+ @do money + 20
+ @end
+@if `p20 = 50 then do
+ @begin
+ @do money + 50
+ @end
+@if `p20 = 100 then do
+ @begin
+ @do money + 100
+ @end
+@do goto bottom
+@label crapout
+@show
+
+ `4You crapped out!
+@label lose
+@show
+
+ `2You lose your bet of: `$$`p20`2.
+@if `p20 = 5 then do
+ @begin
+ @do money - 10
+ @end
+@if `p20 = 10 then do
+ @begin
+ @do money - 20
+ @end
+@if `p20 = 20 then do
+ @begin
+ @do money - 40
+ @end
+@if `p20 = 50 then do
+ @begin
+ @do money - 100
+ @end
+@if `p20 = 100 then do
+ @begin
+ @do money - 200
+ @end
+@label bottom
+@show
+`\`k
+@do goto craps
+@label nomoney
+@show
+`\`\ `4I'm sorry, but you don't have enough money for that bet.
+
+`k
+@do goto craps
+
+@#slotstart
+@show
+`r0`c `r1 Welcome to the slot machines! `r0
+
+ Looks like this slot machine is built right into the tree!
+
+ This machine is for the better endowed mimimum bet is $5
+
+ Also if you loose, you loose twice what you had bet
+
+ `0Payoffs are:`2
+
+`03 Bars`2....................................................`0100 `2to `01
+ 3 Bells`2....................................................`080`2 to `01
+ 3 Lemons`2...................................................`050 `2to `01
+ 3 Plums`2....................................................`030 `2to `01
+ 3 Peaches`2..................................................`025 `2to `01
+ 3 Oranges`2..................................................`010 `2to `01
+ 2 Bars & 1 Bell`2............................................`010 `2to `01
+ 2 Bells & 1 Lemon`2...........................................`09 `2to `01
+ 2 Lemons & 1 Plum`2...........................................`08 `2to `01
+ 2 Plums & 1 Peach`2...........................................`07 `2to `01
+ 2 Peaches & 1 Orange`2........................................`05 `2to `01
+ 2 Oranges & Anything`2........................................`02 `2to `01
+
+`k
+@do `v01 is 1
+@do goto slots
+
+@#slots
+@busy
+@do moveback
+@do `p20 is 0
+@do `p21 is 0
+@do `p22 is 0
+@do `p23 is 0
+@do `p24 is 0
+@do `p25 is 0
+@show
+`r0`c `% `r1 Pulling your lever `r0
+
+`2 You now have: `$$&money`2. Put how much in the machine?
+
+
+@do write
+`x`x
+@choice
+$5
+$10
+$25
+$50
+$100
+Show payoffs
+Leave
+@if response is 6 then goto slotstart
+
+@if responce = 1 then do
+ @begin
+ @do `p21 is 5
+ @end
+@if responce = 2 then do
+ @begin
+ @do `p21 is 10
+ @end
+@if responce = 3 then do
+ @begin
+ @do `p21 is 25
+ @end
+@if responce = 4 then do
+ @begin
+ @do `p21 is 50
+ @end
+@if responce = 5 then do
+ @begin
+ @do `p21 is 100
+ @end
+@if responce = 7 then do
+ @begin
+ @do goto ending
+ @end
+@if money < `p21 then do
+ @begin
+ @show
+
+ `4You don't have that much money!
+ @key
+ @do goto slots
+ @end
+
+@show
+`\`\ `2You pull the lever as hard as you can.`\
+@do `p22 random 6 1
+@if `p22 = 1 then do
+ @begin
+ @show
+ `%Bar
+ @do `p23 + 300000
+ @end
+@if `p22 = 2 then do
+ @begin
+ @show
+ `7Bell
+ @do `p23 + 20000
+ @end
+@if `p22 = 3 then do
+ @begin
+ @show
+ `$Lemon
+ @do `p23 + 3000
+ @end
+@if `p22 = 4 then do
+ @begin
+ @show
+ `5Plum
+ @do `p23 + 100
+ @end
+@if `p22 = 5 then do
+ @begin
+ @show
+ `6Peach
+ @do `p23 + 20
+ @end
+@if `p22 = 6 then do
+ @begin
+ @show
+ `6Orange
+ @do `p23 + 3
+ @end
+@do `p22 random 6 1
+@if `p22 = 1 then do
+ @begin
+ @show
+ `%Bar
+ @do `p23 + 300000
+ @end
+@if `p22 = 2 then do
+ @begin
+ @show
+ `7Bell
+ @do `p23 + 20000
+ @end
+@if `p22 = 3 then do
+ @begin
+ @show
+ `$Lemon
+ @do `p23 + 3000
+ @end
+@if `p22 = 4 then do
+ @begin
+ @show
+ `5Plum
+ @do `p23 + 100
+ @end
+@if `p22 = 5 then do
+ @begin
+ @show
+ `6Peach
+ @do `p23 + 20
+ @end
+@if `p22 = 6 then do
+ @begin
+ @show
+ `6Orange
+ @do `p23 + 3
+ @end
+@do `p22 random 6 1
+@if `p22 = 1 then do
+ @begin
+ @show
+ `%Bar
+ @do `p23 + 300000
+ @end
+@if `p22 = 2 then do
+ @begin
+ @show
+ `7Bell
+ @do `p23 + 20000
+ @end
+@if `p22 = 3 then do
+ @begin
+ @show
+ `$Lemon
+ @do `p23 + 3000
+ @end
+@if `p22 = 4 then do
+ @begin
+ @show
+ `5Plum
+ @do `p23 + 100
+ @end
+@if `p22 = 5 then do
+ @begin
+ @show
+ `6Peach
+ @do `p23 + 20
+ @end
+@if `p22 = 6 then do
+ @begin
+ @show
+ `6Orange
+ @do `p23 + 3
+ @end
+@do `p24 is `p21
+@if `p23 = 900000 then do
+ @begin
+ @show
+
+ `%Jackpot!!! `0100 `2to `01`2 payoffs!!
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 500
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 1000
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 2500
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 5000
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 100000
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 60000 then do
+ @begin
+ @show
+
+ `2You win at `080`2 to `01`2 payoffs!
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 400
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 800
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 2000
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 8000
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 1600
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 9000 then do
+ @begin
+ @show
+
+ `2You win at `050`2 to `01`2 payoffs!
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 250
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 500
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 1250
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 2500
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 5000
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 300 then do
+ @begin
+ @show
+
+ `2You win at `030`2 to `01`2 payoffs!
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 150
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 300
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 750
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 300
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 600
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 60 then do
+ @begin
+ @show
+
+ `2You win at `025`2 to `01`2 payoffs!
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 250
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 625
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 1250
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 2500
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 9 then do
+ @begin
+ @show
+
+ `2You win at `010`2 to`0 1`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 250
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 500
+ @end
+ @if `p21 = 1000 then do
+ @begin
+ @do money + 1000
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 620000 then do
+ @begin
+ @show
+
+ `2You win at `010`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 250
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 500
+ @end
+ @if `p21 = 1000 then do
+ @begin
+ @do money + 1000
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 43000 then do
+ @begin
+ @show
+
+ `2You win at `09`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 45
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 90
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 225
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 450
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 90
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 6100 then do
+ @begin
+ @show
+
+ `2You win at `08`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 40
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 80
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 200
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 400
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 800
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 220 then do
+ @begin
+ @show
+
+ `2You win at `07`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 35
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 70
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 175
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 350
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 700
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 43 then do
+ @begin
+ @show
+
+ `2You win at `05`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 25
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 125
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 250
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 500
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 300006 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 200
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 20006 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 200
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 3006 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 200
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 106 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 200
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 26 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 200
+ @end
+ @key
+ @do goto slots
+ @end
+@show
+
+ `2I'm sorry, but you `4lose`2 twice your bet of: `$$`p21
+
+@if `p21 = 5 then do
+ @begin
+ @do money - 10
+ @if money < 0 then money is 0
+ @end
+@if `p21 = 10 then do
+ @begin
+ @do money - 20
+@if money < 0 then money is 0
+@end
+@if `p21 = 25 then do
+ @begin
+ @do money - 50
+ @if money < 0 then money is 0
+ @end
+@if `p21 = 50 then do
+ @begin
+ @do money - 100
+@if money < 0 then money is 0
+@end
+@if `p21 = 100 then do
+ @begin
+ @do money - 200
+@if money < 0 then money is 0
+ @end
+@key
+@do goto slots
+
+@#ending
+@drawmap
+@update
+@closescript
+
+
+@#coin
+@do moveback
+@do `p24 is money
+@do `p20 is 0
+@do `p21 is 0
+@do `p22 is 0
+@do `p23 is 0
+@show
+
+ `r0`c`%`r1 Flip a Coin `r0`2
+
+Hey buddy, I have a coin here and if you guess heads or tails correctly
+ you win double your bet. If I win then you loose your bet.
+ so how much you wanna bet, you have `$$`p24`2
+
+@do `v01 is 1
+@choice
+$1
+$5
+$10
+$25
+$50
+$100
+Leave
+@
+
+@if responce is 7 then do
+@begin
+@run ending
+@end
+
+@if responce is 1 then do
+@begin
+@do `p21 is 1
+@end
+
+@if responce is 2 then do
+@begin
+@do `p21 is 5
+@end
+
+@if responce is 3 then do
+@begin
+@do `p21 is 10
+@end
+
+@if responce is 4 then do
+@begin
+@do `p21 is 25
+@end
+
+@if responce is 5 then do
+@begin
+@do `p21 is 50
+@end
+
+@if responce is 6 then do
+@begin
+@do `p21 is 100
+@end
+
+@if responce not 7 then do
+@begin
+@do `p20 random 2 1
+@if `p20 is 1 then `s02 is Heads
+@if `p20 is 2 then `s02 is Tails
+@do `p22 is `p21 * 2
+@show
+ `r0`c`%`r1 Heads or Tails `r0`2
+
+ So what will it be
+
+@do `v01 is 1
+@choice
+Heads
+Tails
+@
+
+@if responce is 1 then do
+@begin
+@do `p23 is 1
+@do `s01 is Heads
+@End
+
+@if responce is 2 then do
+@begin
+@do `p23 is 2
+@do `s01 is Tails
+@end
+
+@if `s01 is `s02 then do
+@begin
+@show
+`2
+
+He flips the Coin`l.`l.`l.`l.and it's `s02!!!!!!!`k
+
+Congradulations. Here is your money.
+ He mumbles some strange cusses then says Play again!`k
+@do money + `p22
+@run coin
+@end
+
+@if `s01 not `s02 then do
+@begin
+@show
+
+
+He flips the Coin`l.`l.`l.`l.and it's `s02!!!!!!!`k
+
+
+`2You loose! I win! I get your bet! Play again I like you!
+`k
+@do money - `p21
+@run coin
+@end
+@end
+
+@#jack
+@do moveback
+@do `p20 is 0
+@do `p21 is 0
+@do `p22 is 0
+@do `p23 is 0
+@do `p24 is 0
+@do `p25 is 0
+@do `p26 is 0
+@do `p27 is 0
+@do `p28 is 0
+@show
+ `r0`c`%`r1 High Card `r0`2
+
+ Hey there buddy, Howz about a little game of High card?
+ Place your bet. I give you two cards, highest one wins! If you beat
+ my high card, of course you get double you bet.
+ You have `$$&money`2!
+`\
+@do `v01 is 1
+@choice
+$5
+$10
+$25
+$50
+$100
+Leave
+@
+
+@if responce is 6 then do
+@begin
+@run ending
+@end
+
+@if responce is 1 then `p20 is 5
+@if responce is 2 then `p20 is 10
+@if responce is 3 then `p20 is 25
+@if responce is 4 then `p20 is 50
+@if responce is 5 then `p20 is 100
+
+@if responce less 7 then do
+@begin
+@do `p21 Random 10 2
+@do `p22 Random 10 2
+@do `p24 Random 4 1
+
+@if `p24 is 1 then `s01 is `4Hearts`2
+@if `p24 is 2 then `s01 is `%Diamonds`2
+@if `p24 is 3 then `s01 is `7Spades`2
+@if `p24 is 4 then `s01 is `@Clubs`2
+
+@do `s02 is `p21
+@if `p21 is 11 then `s02 is Ace
+@show
+ `r0`c`%`r1 The cards `r0`2
+
+
+ Your First Card is:`l`l`l`l `s02 of `s01 `k
+@do `p24 Random 4 1
+@if `p24 is 1 then `s01 is `4Hearts`2
+@if `p24 is 2 then `s01 is `%Diamonds`2
+@if `p24 is 3 then `s01 is `7Spades`2
+@if `p24 is 4 then `s01 is `@Clubs`2
+@do `s02 is `p22
+@if `p22 is 11 then `s02 is Ace
+@if `p21 > `p22 then `p25 is `p21
+@if `p21 < `p22 then `p25 is `p22
+@if `p21 = `p22 then `p25 is `p22
+
+@show
+ Your next card is :`l`l`l`l `s02 of `s01
+ Your high card is : `p25
+
+@do `p26 Random 10 2
+@do `p27 Random 10 2
+@do `p24 Random 4 1
+@if `p24 is 1 then `s01 is `4Hearts`2
+@if `p24 is 2 then `s01 is `%Diamonds`2
+@if `p24 is 3 then `s01 is `7Spades`2
+@if `p24 is 4 then `s01 is `@Clubs`2
+@do `s02 is `p26
+@if `p26 is 11 then `s02 is Ace
+@show
+
+`2
+ His first card is:`l`l`l`l `s02 of `s01 `k
+@if `p24 is 1 then `s01 is `4Hearts`2
+@if `p24 is 2 then `s01 is `%Diamonds`2
+@if `p24 is 3 then `s01 is `7Spades`2
+@if `p24 is 4 then `s01 is `@Clubs`2
+@do `s02 is `p27
+@if `p27 is 11 then `s02 is Ace
+@if `p26 > `p27 then `p28 is `p26
+@if `p26 < `p27 then `p28 is `p27
+@if `p26 is `p27 then `p28 is `p27
+@show
+ His next card is :`l`l`l`l `s02 of `s01
+ His high card is :`l`l`l`l `p28
+
+@do `p21 is `p20 * 2
+@if `p25 > `p28 then do
+@begin
+@show
+
+ You won! You get twice what you bet!`k
+@do money + `p20
+@do money + `p20
+@run jack
+@end
+
+@if `p25 less `p28 then do
+@begin
+@show
+
+ You lost! Sorry you loose twice your bet!`k
+@do money - `p20
+@do money - `p20
+@run jack
+@end
+
+@if `p25 is `p28 then do
+@begin
+@show
+
+ It's a draw! You keep your bet and I'll keep mine!
+`k
+@run jack
+@end
+@end
diff --git a/xtrn/lord2/cnw/prisond.ref b/xtrn/lord2/cnw/prisond.ref
new file mode 100644
index 0000000000000000000000000000000000000000..78bd32c36f3839a75118519585f86f8ba7e0dcb2
--- /dev/null
+++ b/xtrn/lord2/cnw/prisond.ref
@@ -0,0 +1,560 @@
+; Script file PRISOND.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:26 2001
+
+@DECLARE genran 000000686
+@DECLARE event1 000000736
+@DECLARE event2 000002165
+@DECLARE event3 000003677
+@DECLARE event4 000005132
+@DECLARE no 000005505
+@DECLARE win 000006669
+@DECLARE smart 000006714
+@DECLARE event5 000006817
+@DECLARE another 000007405
+@DECLARE event6 000007644
+@DECLARE event7 000008160
+@DECLARE event8 000008696
+@DECLARE event9 000008749
+@DECLARE event10 000009287
+@DECLARE prischat 000009850
+@DECLARE save 000010984
+@NOCHECK
+; End of .REF index
+
+;Greentree Prison Version 2 by Codax and Dragon's Den Ultd
+;This update should fix the freeze problem
+
+@#genran
+@do `p20 random 10 1
+@run event`p20
+
+@#event1
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`2You hear an injured person nearby. Investigate? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is Y then do
+ @begin
+@do `p20 RAndom 5 1
+@if `p20 is 1 then `s01 is `0leg`2
+@if `p20 is 2 then `s01 is `0head`2
+@if `p20 is 3 then `s01 is `0arm`2
+@if `p20 is 4 then `s01 is `0face`2
+@if `p20 is 5 then `s01 is `0leg`2
+ @show
+`r0`c `r1 `%Aid a fellow prisoner `r0
+
+ `0"Please help me!" `2the injured man screams. His `s01 seems to have
+ taken quite a blow.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Help the man out
+Beat him and take his money
+Leave
+@if responce is 3 then do
+@begin
+@drawmap
+@update
+@end
+
+@if response is 1 then do
+ @begin
+ @do `p07 + 1
+ @show
+`\`\ `2You help the man, and with the first aid are able to get him on his
+ way to the healer where he can further heal.
+
+ `bYOUR ALIGNMENT GOES UP BY ONE!`b
+`\`k
+@drawmap
+@update
+ @closescript
+ @end
+@if response is 2 then do
+ @begin
+ @do `p07 - 2
+ @do `p20 random 1300 221
+ @do money + `p20
+ @show
+`\`\ `$"Sure I'll help you .. die!" `2You slam him with your s&weapon, and
+ after he falls unconscious you raid his purse.
+
+ `2You find `$`p20 `2gold!
+
+ `bYOUR ALIGNMENT GOES DOWN BY TWO!`0
+`\`k
+@drawmap
+@update
+ @closescript
+ @end
+ @end
+@do saybar
+You are much too busy to help the man.
+
+
+@#event2
+@if `v06 is 1 then goto genran
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`2A man is being raped by two men nearby. Interrupt them? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is N then do
+@begin
+@drawmap
+@Update
+@end
+
+@if `s01 is Y then do
+ @begin
+ @show
+`r0`c `r1 Violation or a right, you decide `r0
+
+ `0"Please help me!" `2the man screams. The two men don't even look up.
+ They seem to be having quite the good time.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Help the man and kill the attackers
+Join in the fun
+Leave the encounter
+@if responce is 2 then do
+ @begin
+@drawmap
+@update
+@do `p07 - 1
+@do quebar
+A few hours later you are finished! Yeah! Alignment goes down by one.
+ @closescript
+ @end
+@if responce is 1 then do
+ @begin
+@drawmap
+@update
+ @fight
+;name
+The Men
+;string said when you see him
+`0"Kill that s&boy! S&he saw us" `2they yell!
+;power move kill string
+You strike a blow for justice this day!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+sock you|45
+clothesline you|52
+laugh as one trips you for|36
+NONE|NONE
+NONE|NONE
+;defense
+30
+;gold reward
+89
+;experience
+54
+;hit points
+136
+;if win: ref file|name or NONE
+Prisond.ref|Save
+;if lose: ref file|name or NONE
+prisonb.ref|strike
+;if runs: ref file|name or NONE
+GENRAN.REF|4RUN
+ @end
+@if responce is 3 then do
+@begin
+@drawmap
+@update
+@End
+
+@closescript
+@end
+
+@#event3
+@busy
+@do `v01 is 1
+@show
+`r0`c `%`r1 EVENT - Someone's being mugged `r0
+
+ `2You step around the corner when you notice a hooded man robbing a
+ defenseless woman. He wields two daggers and seems to be getting
+ ready to depart.
+
+ `2What do you do:
+
+@do write
+`x`x
+@choice
+Defend the poor woman
+Help out the thief
+Leave
+@if response is 1 then do
+ @begin
+ @do `p07 + 1
+ @do `p08 + 1
+ @show
+`\`\ `2You run at the thief yelling and getting your s&weapon ready. He
+ sees you and quickly sheaths his daggers running to the shadows.
+ `0"You best hope I don't come across you first next time," `2he yells.
+ `2The woman he was robbing seems a daze from the whole thing. She
+ looks up at you, and gives you a great big kiss. Some reward!
+`\`k `%YOUR ALIGNMENT AND CHARM GO UP BY ONE!`0
+`\`k
+ @end
+@if response is 2 then do
+ @begin
+ @do `p20 random 290 310
+ @do money + `p20
+ @do `p07 - 2
+ @show
+`\`\ `2You head over and get your s&weapon ready. You kneel next to them
+ `$"Mind if I help buddy?" `2 you ask. He glares at you and seems surprised
+ but them nods, better you help him than the victim. You hold the poor girl
+ down as the thief blows a fine powder in her eyes, then grabs her purse.
+ `0"Here you go buddy, thanks!" `2he says and tosses you some of the loot.
+`\`k You get `$`p20 `2gold.
+`\`k `bYOUR ALIGNMENT GOES DOWN BY TWO!`b
+`\`k
+ @end
+@drawmap
+@update
+
+@#event4
+@if `v06 is 1 then do goto genran
+
+@show
+
+ `r0`c`%`r1 Uh oh `r0`2
+
+ Two men come toward you. They reach for you and say "We can do this the
+ easy way or the hard way!" The first unzips his pants. "Sexy s&boy"
+
+@do `v01 is 1
+@choice
+Let them have thier way with you
+Fight Back
+Run
+@
+
+@if responce is 1 then do
+@begin
+@do `p20 Random 60 1
+@label no
+@show
+`2
+ That's exactly what they wanted to hear! The first bends you over
+ and holds you down while the other undresses you. He rips several of
+ your anal muscles in his process. Just when you think you cannot take
+ anymore, they swith roles and his friend does the same! `0`p20 minutes
+ later, you are left, laying on the floor, weakend.
+`k
+@do `p02 is 1
+@do `p12 is 1
+@drawmap
+@update
+@do saybar
+They left you a couple of gems and a burning sensation
+@do `p19 + 5
+@end
+
+@if responce is 3 then do goto no
+
+@if responce is 2 then do
+@begin
+@drawmap
+@update
+@do saybar
+Don't you dare touch me!
+@fight
+;name
+Cell mates
+;string said when you see him
+"We can't possibly let you get away!" they say
+;power move kill string
+Go straiten yourselves out.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Kicks you|50
+punches you|70
+full frenzy|100
+NONE|NONE
+NONE|NONE
+;defense
+50
+;gold reward
+100
+;experience
+300
+;hit points
+500
+;if win: ref file|name or NONE
+prisond.ref|win
+;if lose: ref file|name or NONE
+prisond.ref|no
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#win
+@do quebar
+Don't ever come back
+
+@#smart
+@key
+@drawmap
+@update
+@do saybar
+Smart move, who knows how many friends that guy had!
+
+@#event5
+@fight
+;name
+Disgruntled Guard
+;string said when you see him
+A man comes up running and screaming
+;power move kill string
+Uh oh better hide.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Hits you with his blackjack|100
+Sprays you with mace|50
+Shoots you with crossbow|150
+NONE|NONE
+NONE|NONE
+;defense
+150
+;gold reward
+123
+;experience
+200
+;hit points
+500
+;if win: ref file|name or NONE
+prisond.ref|another
+;if lose: ref file|name or NONE
+prison.ref|execute
+;if runs: ref file|name or NONE
+prisond.ref|smart
+
+@#another
+@do `p20 Random 3 1
+@if `p20 more 1 then do
+@begin
+@do saybar
+Here comes another guard
+@key
+@run event5
+@end
+
+@if `p20 is 1 then do
+@begin
+@do saybar
+Looks like no more guards are around...Lucky you!
+@key
+@end
+
+
+@#event6
+@fight
+;name
+Angry Inmate
+;string said when you see him
+A man comes up running and screaming
+;power move kill string
+He needs help.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+laughs scarily|24
+punches you|20
+Kicks you|10
+NONE|NONE
+NONE|NONE
+;defense
+15
+;gold reward
+20
+;experience
+5
+;hit points
+25
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+prisonb.ref|strike
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#event7
+@fight
+;name
+Escaping Inmate
+;string said when you see him
+A man comes up running and screaming
+;power move kill string
+He would have never made it past the guards.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+charges|50
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+19
+;gold reward
+300
+;experience
+5
+;hit points
+300
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+prisonb.ref|strike
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#event8
+@do saybar
+Gotta find a way outta here
+
+@#event9
+@fight
+;name
+Prostitute
+;string said when you see him
+A woman in tight clothes and a low top charges you
+;power move kill string
+Too bad. She was cute too!
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+scratches you|90
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+100
+;gold reward
+500
+;experience
+15
+;hit points
+1300
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+prisonb.ref|strike
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#event10
+@fight
+;name
+Pimp
+;string said when you see him
+A man comes up running and screaming
+;power move kill string
+Too bad you didn't know him when he was alive.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits you with a beeper|50
+Kicks you in the nose|90
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+100
+;gold reward
+1000
+;experience
+100
+;hit points
+500
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+prisonb.ref|strike
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#prischat
+@do moveback
+@busy
+@show
+`r0`c `r1 CARVING ON THE BOARD `r0
+
+@if prischat.txt exist false then do
+ @begin
+ @if `v06 is 1 then do
+ @begin
+ @writefile prischat.txt
+ `%Warden `2: `0Keep in line!.
+ @end
+ @if `v06 is 0 then do
+ @begin
+ @writefile prischat.txt
+ `%Warden `2: `0Keep in line or answer to me!
+ `%John `2: `0One more day!
+ `%Inmate `2:`0I'm looking for a prison bitch!
+ @end
+ @end
+
+@if prischat.txt exist true then do
+ @begin
+ @displayfile prischat.txt
+ @end
+
+@show
+
+@
+(Do tricky stuff with name to determine how much they can type)
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter a special message or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile prischat.txt
+ `%`n`2 : `0`s03
+ @do trim prischat.txt 17
+ @drawmap
+ @update
+
+@#save
+@do saybar
+You saved him! Alignment goes up 1!
+@do `p07 + 1
diff --git a/xtrn/lord2/cnw/prisone.ref b/xtrn/lord2/cnw/prisone.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e93297d383c0c25c5b9716597e5ff1b2280aea11
--- /dev/null
+++ b/xtrn/lord2/cnw/prisone.ref
@@ -0,0 +1,1269 @@
+; Script file PRISONE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:26 2001
+
+@DECLARE noway 000000716
+@DECLARE help 000000793
+@DECLARE crapstart 000001333
+@DECLARE craps 000001377
+@DECLARE begin1 000002589
+@DECLARE nextroll 000003279
+@DECLARE hit 000003737
+@DECLARE win 000003788
+@DECLARE crapout 000004147
+@DECLARE lose 000004191
+@DECLARE bottom 000004535
+@DECLARE nomoney 000004580
+@DECLARE slotstart 000004690
+@DECLARE slots 000005941
+@DECLARE ending 000015643
+@DECLARE coin 000015688
+@DECLARE jack 000017517
+@NOCHECK
+; End of .REF index
+
+;Greentree Prison Version 2 by Codax and Dragon's Den Ultd
+;This update should fix the freeze problem
+;This is the limited gambles ref
+@#noway
+@drawmap
+@update
+@do saybar
+You have 0 Gambles Left for today!
+
+@#help
+ @show
+`r0`c `r1 Craps Help `r0
+
+ `2If you roll a `02`2, `03`2, or a `012`2 on your first roll, you lose.
+ If you roll a `07`2 or an `011`2 on your first roll, you win.
+
+ `2 Otherwise, the dice are rolled until the total of the
+ first roll is rolled again, in which case the player
+ wins. But if a `07`2 or an `011`2 is rolled after the first
+ roll, you lose.
+
+ There is no limit to how many times you can bet!
+ But....If you loose you loose twice your bet!
+
+ Good luck!
+
+`k
+ @do goto craps
+ @end
+
+@#crapstart
+
+@do `v01 is 1
+@do goto craps
+
+@#craps
+;`p33 is gambles
+@if `p33 less 1 then do
+@begin
+@run noway
+@end
+
+@do moveback
+@busy
+@do `p24 is 0
+@do `p21 is money
+@show
+`r0`c `r1 Playing some Craps `r0
+
+ `2You have `$$`p21`2 and `p33 gambles. How much do you want to wager?
+
+@do write
+`x`x
+@choice
+$5
+$10
+$20
+$50
+$100
+Help on craps
+Leave
+@if response is 6 then do
+ @begin
+ @do goto help
+ @end
+
+@if responce less 6 then do
+@begin
+@do `p33 - 1
+@end
+
+@if responce = 1 then do
+ @begin
+ @if `p21 < 5 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 5
+ @do goto begin1
+ @end
+@if responce = 2 then do
+ @begin
+ @if `p21 < 10 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 10
+ @do goto begin1
+ @end
+@if responce = 3 then do
+ @begin
+ @if `p21 < 20 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 20
+ @do goto begin1
+ @end
+@if responce = 4 then do
+ @begin
+ @if `p21 < 50 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 50
+ @do goto begin1
+ @end
+@if responce = 5 then do
+ @begin
+ @if `p21 < 100 then do
+ @begin
+ @do goto nomoney
+ @end
+ @do `p20 is 100
+ @do goto begin1
+ @end
+@if response = 7 then do
+ @begin
+ @do goto ending
+ @end
+@label begin1
+@show
+`r0`c `r1 `%You carefully spit on the dice for good luck. `r0
+
+@do `p22 random 5 1
+@do `p23 random 5 1
+@do `p24 + `p22
+@do `p24 + `p23
+@show
+ `0First Roll....
+
+@show
+ `2Die #1`0: `p22
+ `2Die #2:`0 `p23
+
+ `2Total: `0`p24
+
+@if `p24 = 2 then do
+ @begin
+ @show
+
+ `4Snake Eyes!
+ @do goto lose
+ @end
+@if `p24 = 3 then do
+ @begin
+ @show
+ `4Cock Eyes!
+ @do goto lose
+ @end
+@if `p24 = 12 then do
+ @begin
+ @show
+ `4Boxcars!
+ @do goto lose
+ @end
+@if `p24 = 7 then do
+ @begin
+ @show
+ `%A Natural!
+ @do goto win
+ @end
+@if `p24 = 11 then do
+ @begin
+ @show
+ `%A Natural!
+ @do goto win
+ @end
+@show
+ `0`p24`2 is your point.
+@label nextroll
+@do `p25 is 0
+@show
+
+ Press a key to roll again.
+@do `p22 random 5 1
+@do `p23 random 5 1
+@do `p25 + `p22
+@do `p25 + `p23
+@show
+`\`k `2Die #1: `0`p22
+ `2Die #2: `0`p23
+
+ `2Total: `0`p25
+@if `p25 = `p24 then do
+ @begin
+ @do goto hit
+ @end
+@if `p25 = 7 then do
+ @begin
+ @do goto crapout
+ @end
+@if `p25 = 11 then do
+ @begin
+ @do goto crapout
+ @end
+@show
+
+ `2Not your point, keep rolling the bones!
+@do goto nextroll
+@label hit
+@show
+
+ `0Yes! You hit your point.
+@label win
+@show
+
+ `2You win your bet of: `$$`p20`2!
+@if `p20 = 5 then do
+ @begin
+ @do money + 5
+ @end
+@if `p20 = 10 then do
+ @begin
+ @do money + 10
+ @end
+@if `p20 = 20 then do
+ @begin
+ @do money + 20
+ @end
+@if `p20 = 50 then do
+ @begin
+ @do money + 50
+ @end
+@if `p20 = 100 then do
+ @begin
+ @do money + 100
+ @end
+@do goto bottom
+@label crapout
+@show
+
+ `4You crapped out!
+@label lose
+@show
+
+ `2You lose your bet of: `$$`p20`2.
+@if `p20 = 5 then do
+ @begin
+ @do money - 10
+ @end
+@if `p20 = 10 then do
+ @begin
+ @do money - 20
+ @end
+@if `p20 = 20 then do
+ @begin
+ @do money - 40
+ @end
+@if `p20 = 50 then do
+ @begin
+ @do money - 100
+ @end
+@if `p20 = 100 then do
+ @begin
+ @do money - 200
+ @end
+@label bottom
+@show
+`\`k
+@do goto craps
+@label nomoney
+@show
+`\`\ `4I'm sorry, but you don't have enough money for that bet.
+
+`k
+@do goto craps
+
+@#slotstart
+@show
+`r0`c `r1 Welcome to the slot machines! `r0
+
+ Looks like this slot machine is built right into the tree!
+
+ This machine is for the better endowed mimimum bet is $5
+
+ Also if you loose, you loose twice what you had bet
+
+ `0Payoffs are:`2
+
+`03 Bars`2....................................................`0100 `2to `01
+ 3 Bells`2....................................................`080`2 to `01
+ 3 Lemons`2...................................................`050 `2to `01
+ 3 Plums`2....................................................`030 `2to `01
+ 3 Peaches`2..................................................`025 `2to `01
+ 3 Oranges`2..................................................`010 `2to `01
+ 2 Bars & 1 Bell`2............................................`010 `2to `01
+ 2 Bells & 1 Lemon`2...........................................`09 `2to `01
+ 2 Lemons & 1 Plum`2...........................................`08 `2to `01
+ 2 Plums & 1 Peach`2...........................................`07 `2to `01
+ 2 Peaches & 1 Orange`2........................................`05 `2to `01
+ 2 Oranges & Anything`2........................................`02 `2to `01
+
+`k
+@do `v01 is 1
+@do goto slots
+
+@#slots
+@do moveback
+@busy
+@if `p33 less 1 then do
+@begin
+@run noway
+@end
+
+@do `p20 is 0
+@do `p21 is 0
+@do `p22 is 0
+@do `p23 is 0
+@do `p24 is 0
+@do `p25 is 0
+@show
+`r0`c `% `r1 Pulling your lever `r0
+
+`2 You now have: `$$&money`2 and `p33 gambles. Put how much in the machine?
+
+
+@do write
+`x`x
+@choice
+$5
+$10
+$25
+$50
+$100
+Show payoffs
+Leave
+@if response is 6 then goto slotstart
+
+@if responce less 6 then do
+@begin
+@do `p33 - 1
+@end
+
+@if responce = 1 then do
+ @begin
+ @do `p21 is 5
+ @end
+@if responce = 2 then do
+ @begin
+ @do `p21 is 10
+ @end
+@if responce = 3 then do
+ @begin
+ @do `p21 is 25
+ @end
+@if responce = 4 then do
+ @begin
+ @do `p21 is 50
+ @end
+@if responce = 5 then do
+ @begin
+ @do `p21 is 100
+ @end
+@if responce = 7 then do
+ @begin
+ @do goto ending
+ @end
+@if money < `p21 then do
+ @begin
+ @show
+
+ `4You don't have that much money!
+ @key
+ @do goto slots
+ @end
+
+@show
+`\`\ `2You pull the lever as hard as you can.`\
+@do `p22 random 6 1
+@if `p22 = 1 then do
+ @begin
+ @show
+ `%Bar
+ @do `p23 + 300000
+ @end
+@if `p22 = 2 then do
+ @begin
+ @show
+ `7Bell
+ @do `p23 + 20000
+ @end
+@if `p22 = 3 then do
+ @begin
+ @show
+ `$Lemon
+ @do `p23 + 3000
+ @end
+@if `p22 = 4 then do
+ @begin
+ @show
+ `5Plum
+ @do `p23 + 100
+ @end
+@if `p22 = 5 then do
+ @begin
+ @show
+ `6Peach
+ @do `p23 + 20
+ @end
+@if `p22 = 6 then do
+ @begin
+ @show
+ `6Orange
+ @do `p23 + 3
+ @end
+@do `p22 random 6 1
+@if `p22 = 1 then do
+ @begin
+ @show
+ `%Bar
+ @do `p23 + 300000
+ @end
+@if `p22 = 2 then do
+ @begin
+ @show
+ `7Bell
+ @do `p23 + 20000
+ @end
+@if `p22 = 3 then do
+ @begin
+ @show
+ `$Lemon
+ @do `p23 + 3000
+ @end
+@if `p22 = 4 then do
+ @begin
+ @show
+ `5Plum
+ @do `p23 + 100
+ @end
+@if `p22 = 5 then do
+ @begin
+ @show
+ `6Peach
+ @do `p23 + 20
+ @end
+@if `p22 = 6 then do
+ @begin
+ @show
+ `6Orange
+ @do `p23 + 3
+ @end
+@do `p22 random 6 1
+@if `p22 = 1 then do
+ @begin
+ @show
+ `%Bar
+ @do `p23 + 300000
+ @end
+@if `p22 = 2 then do
+ @begin
+ @show
+ `7Bell
+ @do `p23 + 20000
+ @end
+@if `p22 = 3 then do
+ @begin
+ @show
+ `$Lemon
+ @do `p23 + 3000
+ @end
+@if `p22 = 4 then do
+ @begin
+ @show
+ `5Plum
+ @do `p23 + 100
+ @end
+@if `p22 = 5 then do
+ @begin
+ @show
+ `6Peach
+ @do `p23 + 20
+ @end
+@if `p22 = 6 then do
+ @begin
+ @show
+ `6Orange
+ @do `p23 + 3
+ @end
+@do `p24 is `p21
+@if `p23 = 900000 then do
+ @begin
+ @show
+
+ `%Jackpot!!! `0100 `2to `01`2 payoffs!!
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 500
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 1000
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 2500
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 5000
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 100000
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 60000 then do
+ @begin
+ @show
+
+ `2You win at `080`2 to `01`2 payoffs!
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 400
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 800
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 2000
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 8000
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 1600
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 9000 then do
+ @begin
+ @show
+
+ `2You win at `050`2 to `01`2 payoffs!
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 250
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 500
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 1250
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 2500
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 5000
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 300 then do
+ @begin
+ @show
+
+ `2You win at `030`2 to `01`2 payoffs!
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 150
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 300
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 750
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 300
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 600
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 60 then do
+ @begin
+ @show
+
+ `2You win at `025`2 to `01`2 payoffs!
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 250
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 625
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 1250
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 2500
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 9 then do
+ @begin
+ @show
+
+ `2You win at `010`2 to`0 1`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 250
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 500
+ @end
+ @if `p21 = 1000 then do
+ @begin
+ @do money + 1000
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 620000 then do
+ @begin
+ @show
+
+ `2You win at `010`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 250
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 500
+ @end
+ @if `p21 = 1000 then do
+ @begin
+ @do money + 1000
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 43000 then do
+ @begin
+ @show
+
+ `2You win at `09`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 45
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 90
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 225
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 450
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 90
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 6100 then do
+ @begin
+ @show
+
+ `2You win at `08`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 40
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 80
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 200
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 400
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 800
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 220 then do
+ @begin
+ @show
+
+ `2You win at `07`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 35
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 70
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 175
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 350
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 700
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 43 then do
+ @begin
+ @show
+
+ `2You win at `05`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 25
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 125
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 250
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 500
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 300006 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 200
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 20006 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 200
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 3006 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 200
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 106 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 200
+ @end
+ @key
+ @do goto slots
+ @end
+@if `p23 = 26 then do
+ @begin
+ @show
+
+ `2You win at `02`2 to `01`2 payoffs.
+
+ @if `p21 = 5 then do
+ @begin
+ @do money + 10
+ @end
+ @if `p21 = 10 then do
+ @begin
+ @do money + 20
+ @end
+ @if `p21 = 25 then do
+ @begin
+ @do money + 50
+ @end
+ @if `p21 = 50 then do
+ @begin
+ @do money + 100
+ @end
+ @if `p21 = 100 then do
+ @begin
+ @do money + 200
+ @end
+ @key
+ @do goto slots
+ @end
+@show
+
+ `2I'm sorry, but you `4lose`2 twice your bet of: `$$`p21
+
+@if `p21 = 5 then do
+ @begin
+ @do money - 10
+ @if money < 0 then money is 0
+ @end
+@if `p21 = 10 then do
+ @begin
+ @do money - 20
+@if money < 0 then money is 0
+@end
+@if `p21 = 25 then do
+ @begin
+ @do money - 50
+ @if money < 0 then money is 0
+ @end
+@if `p21 = 50 then do
+ @begin
+ @do money - 100
+@if money < 0 then money is 0
+@end
+@if `p21 = 100 then do
+ @begin
+ @do money - 200
+@if money < 0 then money is 0
+ @end
+@key
+@do goto slots
+
+@#ending
+@drawmap
+@update
+@closescript
+
+
+@#coin
+@do moveback
+@if `p33 less 1 then do
+@begin
+@run noway
+@end
+
+@do `p24 is money
+@do `p20 is 0
+@do `p21 is 0
+@do `p22 is 0
+@do `p23 is 0
+@show
+
+ `r0`c`%`r1 Flip a Coin `r0`2
+
+Hey buddy, I have a coin here and if you guess heads or tails correctly
+ you win double your bet. If I win then you loose your bet.
+ so how much you wanna bet, you have `$$`p24`2 and `p33 gambles
+
+@do `v01 is 1
+@choice
+$1
+$5
+$10
+$25
+$50
+$100
+Leave
+@
+
+@if responce is 7 then do
+@begin
+@run ending
+@end
+
+@if responce less 7 then do
+@begin
+@do `p33 - 1
+@end
+
+@if responce is 1 then do
+@begin
+@do `p21 is 1
+@end
+
+@if responce is 2 then do
+@begin
+@do `p21 is 5
+@end
+
+@if responce is 3 then do
+@begin
+@do `p21 is 10
+@end
+
+@if responce is 4 then do
+@begin
+@do `p21 is 25
+@end
+
+@if responce is 5 then do
+@begin
+@do `p21 is 50
+@end
+
+@if responce is 6 then do
+@begin
+@do `p21 is 100
+@end
+
+@if responce not 7 then do
+@begin
+@do `p20 random 2 1
+@if `p20 is 1 then `s02 is Heads
+@if `p20 is 2 then `s02 is Tails
+@do `p22 is `p21 * 2
+@show
+ `r0`c`%`r1 Heads or Tails `r0`2
+
+ So what will it be
+
+@do `v01 is 1
+@choice
+Heads
+Tails
+@
+
+@if responce is 1 then do
+@begin
+@do `p23 is 1
+@do `s01 is Heads
+@End
+
+@if responce is 2 then do
+@begin
+@do `p23 is 2
+@do `s01 is Tails
+@end
+
+@if `s01 is `s02 then do
+@begin
+@show
+`2
+
+He flips the Coin`l.`l.`l.`l.and it's `s02!!!!!!!`k
+
+Congradulations. Here is your money.
+ He mumbles some strange cusses then says Play again!`k
+@do money + `p22
+@run coin
+@end
+
+@if `s01 not `s02 then do
+@begin
+@show
+
+
+He flips the Coin`l.`l.`l.`l.and it's `s02!!!!!!!`k
+
+
+`2You loose! I win! I get your bet! Play again I like you!
+`k
+@do money - `p21
+@run coin
+@end
+@end
+
+@#jack
+@do moveback
+@if `p33 less 1 then do
+@begin
+@run noway
+@end
+
+@do `p20 is 0
+@do `p21 is 0
+@do `p22 is 0
+@do `p23 is 0
+@do `p24 is 0
+@do `p25 is 0
+@do `p26 is 0
+@do `p27 is 0
+@do `p28 is 0
+@show
+ `r0`c`%`r1 High Card `r0`2
+
+ Hey there buddy, Howz about a little game of High card?
+ Place your bet. I give you two cards, highest one wins! If you beat
+ my high card, of course you get double you bet.
+ You have `$$&money`2 and `p33 gambles!
+`\
+@do `v01 is 1
+@choice
+$5
+$10
+$25
+$50
+$100
+Leave
+@
+
+@if responce is 6 then do
+@begin
+@run ending
+@end
+
+
+@if responce is 1 then `p20 is 5
+@if responce is 2 then `p20 is 10
+@if responce is 3 then `p20 is 25
+@if responce is 4 then `p20 is 50
+@if responce is 5 then `p20 is 100
+
+@if responce less 7 then do
+@begin
+@do `p33 - 1
+@do `p21 Random 10 2
+@do `p22 Random 10 2
+@do `p24 Random 4 1
+
+@if `p24 is 1 then `s01 is `4Hearts`2
+@if `p24 is 2 then `s01 is `%Diamonds`2
+@if `p24 is 3 then `s01 is `7Spades`2
+@if `p24 is 4 then `s01 is `@Clubs`2
+
+@do `s02 is `p21
+@if `p21 is 11 then `s02 is Ace
+@show
+ `r0`c`%`r1 The cards `r0`2
+
+
+ Your First Card is:`l`l`l`l `s02 of `s01 `k
+@do `p24 Random 4 1
+@if `p24 is 1 then `s01 is `4Hearts`2
+@if `p24 is 2 then `s01 is `%Diamonds`2
+@if `p24 is 3 then `s01 is `7Spades`2
+@if `p24 is 4 then `s01 is `@Clubs`2
+@do `s02 is `p22
+@if `p22 is 11 then `s02 is Ace
+@if `p21 > `p22 then `p25 is `p21
+@if `p21 < `p22 then `p25 is `p22
+@if `p21 = `p22 then `p25 is `p22
+
+@show
+ Your next card is :`l`l`l`l `s02 of `s01
+ Your high card is : `p25
+
+@do `p26 Random 10 2
+@do `p27 Random 10 2
+@do `p24 Random 4 1
+@if `p24 is 1 then `s01 is `4Hearts`2
+@if `p24 is 2 then `s01 is `%Diamonds`2
+@if `p24 is 3 then `s01 is `7Spades`2
+@if `p24 is 4 then `s01 is `@Clubs`2
+@do `s02 is `p26
+@if `p26 is 11 then `s02 is Ace
+@show
+
+`2
+ His first card is:`l`l`l`l `s02 of `s01 `k
+@if `p24 is 1 then `s01 is `4Hearts`2
+@if `p24 is 2 then `s01 is `%Diamonds`2
+@if `p24 is 3 then `s01 is `7Spades`2
+@if `p24 is 4 then `s01 is `@Clubs`2
+@do `s02 is `p27
+@if `p27 is 11 then `s02 is Ace
+@if `p26 > `p27 then `p28 is `p26
+@if `p26 < `p27 then `p28 is `p27
+@if `p26 is `p27 then `p28 is `p27
+@show
+ His next card is :`l`l`l`l `s02 of `s01
+ His high card is :`l`l`l`l `p28
+
+@do `p21 is `p20 * 2
+@if `p25 > `p28 then do
+@begin
+@show
+
+ You won! You get twice what you bet!`k
+@do money + `p20
+@do money + `p20
+@run jack
+@end
+
+@if `p25 less `p28 then do
+@begin
+@show
+
+ You lost! Sorry you loose twice your bet!`k
+@do money - `p20
+@do money - `p20
+@run jack
+@end
+
+@if `p25 is `p28 then do
+@begin
+@show
+
+ It's a draw! You keep your bet and I'll keep mine!
+`k
+@run jack
+@end
+@end
diff --git a/xtrn/lord2/cnw/prisonf.ref b/xtrn/lord2/cnw/prisonf.ref
new file mode 100644
index 0000000000000000000000000000000000000000..63cdf4b0422fa2aad4144d9a3bdf32bacaaef3d5
--- /dev/null
+++ b/xtrn/lord2/cnw/prisonf.ref
@@ -0,0 +1,1093 @@
+; Script file PRISONF.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:26 2001
+
+@DECLARE guydead 000000828
+@DECLARE girl 000000899
+@DECLARE gotout 000001011
+@DECLARE run 000001275
+@DECLARE win 000001364
+@DECLARE execute 000002330
+@DECLARE die 000004811
+@DECLARE fall 000009018
+@DECLARE john 000009108
+@DECLARE race 000010163
+@DECLARE rstart 000010753
+@DECLARE go 000010822
+@DECLARE rocks 000010990
+@DECLARE gym 000011533
+@DECLARE tunnel 000011924
+@DECLARE out 000012204
+@DECLARE codax 000013934
+@DECLARE bobmad 000014495
+@DECLARE bobglad 000014910
+@DECLARE bob 000015261
+@DECLARE done 000019418
+@DECLARE giveitem 000019840
+@DECLARE takeitem 000019980
+@NOCHECK
+; End of .REF index
+
+;Greentree Prison Version 2 by Codax and Dragon's Den Ultd
+;This update should fix the freeze problem
+
+@#guydead
+@do moveback
+@do moveback
+@do saybar
+This Guy is DEAD!!!
+
+@#girl
+@do moveback
+@do saybar
+Girl With Husky Voice: Hi there sweet thing! Come to Papa err Momma!
+
+
+@#gotout
+@do x is 13
+@do y is 11
+@do map is 1355
+@loadmap 1355
+@drawmap
+@update
+@do saybar
+Get Out of my Jail. I hope you are now a better person!
+@do `p01 + 1000
+@do `p05 + 1
+@do `p18 + 10
+@do delete prisinfo.&playernum
+@run giveitem in prisonb.ref
+
+@#run
+@drawmap
+@Update
+@do saybar
+Warden: Guards...Get s&him
+@key
+@run execute
+
+@#win
+@show
+
+ `r0`c`% `r1 Escaping `r0`2
+
+ You run through the prison camp...holding the warden's head aloft!
+`k
+ Running `l. `l. `l. `l.
+ `k
+ Running`l. `l. `l. `l.
+`k
+ Running`l. `l. `l. `l.
+`k
+ Guards rush at you and`l. `l. `l.
+`k
+
+@do `p20 random 2 1
+@if `p20 is 1 then do
+@begin
+@show
+
+`2 They catch you! They drag you down to the execution area!!!
+`k
+@run execute
+@end
+
+@if `p20 not 1 then do
+@begin
+
+@do `p20 random 2 1
+
+@if `p20 is 1 then do
+@begin
+@Show
+
+ `2On your way out you see the items they took from you!
+ `l.`l.`l.`l. You easily scoop them up!
+
+@run giveitem in prisonb.ref
+@end
+
+@Show
+`2
+ You easily dodge them! You run through the gates. But you are the only
+ one to make it!
+`k
+@do x is 13
+@do y is 11
+@do map is 1355
+@loadmap 1355
+@drawmap
+@update
+@do saybar
+Freedom never tasted so good....You gain 5 dodge
+@do `p05 + 2
+
+@#execute
+@show
+ `r0`c`r1`% Dum da dum dum `r0`2
+
+ Guards rush at you from all directions!`l.`l.`l.`l.`l.
+
+ They tie your hands`l.`l.`l.
+
+ You are dragged to the execution area!
+
+ Warden: So you tried to elude us huh? Well now you will get what you
+ deserve! But I am not an evil man so I will let you choose how you die!
+
+@do `v01 is 1
+@choice
+Hang me
+Cut off my head
+Throw me down a pit
+Leave me on the rack
+@
+
+@if responce is 1 then do
+@begin
+@Show
+
+
+
+
+
+`2Warden: So it shall be done!
+`k
+ They lead you to the large tree in the`k
+ exacution area. The noose tightens around your neck`k
+ The preist reads some hymns...`k
+ A crowd has gathered around you.`k
+ The warden yells something`k
+ You hear a sickening <SNAP> but seems far away`k
+ Your body goes limp. You dangle.`k
+
+@do `s01 is hung
+@do enemy is The`xWarden
+@do goto die
+@end
+
+@if responce is 2 then do
+@begin
+@show
+
+
+
+
+
+
+`2Warden: So it shall be done!
+
+ They lead you to a open spot where you see 3 tree trunks`k
+ Your head is tied down to one and the preist reads something
+`k A man in black grabs his larges axe.`k
+ He seems to have an evil grin under the mask.`k
+ He raises up and`l.`l.`l.`l. Chops your head off in one blow!`k
+
+@do `s01 is beheaded
+@do enemy is Executioner
+@do goto die
+@end
+
+@if responce is 3 then do
+@begin
+@show
+
+
+
+
+
+`2Warden: So it shall be done!
+
+ They lead you to an open spot with a deep dark scarry pit.`k
+ A preist reads something but it seems far away`k
+ The Pit exacutioner pushes you into the casm....You fall screaming`k
+ Untill you hit the bottom with a loud`k `w<`wT`WH`WU`W`D`W>`K
+
+@do `s01 is pushed`xinto`xa`xpit
+@do enemy is an`xexecutioner
+@do goto die
+@end
+
+@if responce is 4 then do
+@begin
+@show
+
+
+
+
+`2Warden: So it shall be done!
+
+ You are lead to a large table with chains and whips and other pointy`k
+ objects. You are attached by chains and are slowly pulled apart.
+ `k You feel your muscles rip and tear as you get farther and
+`k farther apart. You are wipped. The pain in so intense
+`k you black out. Then....
+`k
+@do `s01 is streached`xto`xdeath
+@do enemy is the`xrack
+@do goto die
+@end
+
+@label die
+@readfile prisinfo.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`p26
+`p27
+@
+
+@do move 3 24
+@do write
+`r0 `x
+
+ @do X is `p24
+ @do Y is `p25
+ @do money / 2
+ @do `p02 is `p03 (give 'em max hit points)
+ @do `p20 is `p01
+ @do `p20 / 5
+ @do `p01 - `p20
+ @do MAP is `p27
+ @do dead is 1
+ @update_update
+
+ @do talk `4Newsflash:`0`x`n`x`2was`x`s01`xby`x`0`e`2! all
+ @do addlog
+ `0`n`2 was `s01 by `0`e`2!
+ @routine seperate in gametxt.ref
+@do move 3 24
+@do write
+`4You've been `s01. `k
+
+@pauseoff
+@show
+`r0`c
+[34C[0m���������������
+[29C���[1;30;47m����[0;47m�[1;30m�[0;47m�����������[40m�
+[28C�[1;30;47m����[0;47m������������������[40m�
+[27C�[1;30;47m����[0;47m��������[1;30m��[0;47m���������[40m�
+[19C��[5C�[1;30;47m����[0;47m����������[1;30m����[0;47m�����[40m
+[A[50C[47m[1;30m�[0m��
+[18C���� [1;30;47m�����[0;47m�����[1;30m� �[0;47m�[1;30m���[40m
+[A[43C[0;47m�����[1;30m�ܲ[0m�[47m�[1C[40m�[1;47m��[40m�
+[17C[30m�[47m�[0;47m��[1m�[0m� [1;30;47m���� [0;47m��[1;30m�[40m
+[A[34C[0;47m�[1;30m�����߰�[0;47m�[1;30m�[0;47m����[1;30m߲�[40m
+[A[52C[47m[0m�[1;30m�[47m�[0;47m�[1m�[40m�
+[17C[30;47m���[0;47m��[1m��[0m� [1;30m�[0m��� [1;30m�߲[47m[40m
+[A[37C[47m����[40m���[5C[0m��[1;30;47m�[40m�[47m��[0m� �
+[18C[1;30m���[47m��[0;47m� [1;30m�[1C[0m� [31m� [1;30m��
+[A[38C[47m���[40m� [0;31m� [37m��[1;30;47m�[40m�
+[23C[0m�[1;30;47m��[40m�[0m���� ��[1;30;47m�[0m��[1;30m�
+[A[41C[47m�[0m�� ��[1;47m�[0m�[1;30m�
+[25C[47m�[40m�[0m�[1;30;47m� [0;47m��[1;30m�����[0m� [1;30m� [0m�
+[A[42C[1;30;47m����[0;47m����[1m��[0m�
+[26C�[1;30;47m�[0;47m����[1;30mܲ��[0;47m�[2C[1;30;40m�� [47m��[40m
+[A[44C[47m�[0;47m�����[40m��
+[27C���[1;30;47m��[40m���[47m�[0m��[1;30;47m�����[40m��[0m� ����
+[29C[1;30m�� �� [0m��[1;30m�� �[0m�[1;30m� �� [47m��[0m�
+[27C�[1;30;47m���[40m� � [47m�[0m�[1;47m��[40m��[0m��[1;30;47m[40m
+[A[43C[47m�[40m� � [47m��[0;47m�[40m�
+[22C[1m� [47m��[30m��[40m� [0m� [1;30m� [0m� �[1m� �[0m� �
+[A[45C[1;30m��[47m�[1C[0m�[47m [1m�[40m���
+[19C�[47m�����[30m�[0m�� ���[1;30;47m�[0;47m�[40m�� ����� ��
+[A[45C[1;30;47m��[0;47m��[40m� �[1;30;47m�[37m��[40m�[47m�[40m
+[19C[0;31m� [37m���[1;30;47m�[40m�[0;33mܲ�� [37m�[1;47m��[30m[40m
+[A[34C[47m�[0;47m���[1;30m��[0;47m���� [1m��[0m� [33m���[1;30m�
+[A[53C[47m�[0m��[31m�
+[17C�����[37m�[1;30m�[0;31m���[33;41m����[40m� [37m�[1;47m�[40m
+[A[35C[0;47m��[1;30mܱ[40m�[47m��[40m�[47m�[37m�[0m� [31m�
+[A[48C[33;41m���[31;40m��[1;30m�[0;31m��۲��
+
+ `%You are DEAD!
+
+`k
+ @if `v03 is 0 then do
+ @begin
+@readfile prison.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+@do delete prison.&playernum
+@writefile prison.&playernum
+`p21
+3
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+
+
+ @do map is `p27
+ @halt
+ @end
+
+ @pauseon
+
+ @do dead is 0
+
+ @if `p07 less 0 then do
+ @begin
+ @show
+
+ `4You open your eyes.
+
+Cell mates are all around you...Looks like they thought that they would
+ steal your stuff. To bad for them.
+
+ @end
+
+ @if `p07 more -1 then do
+ @begin
+ @show
+`r0`c`% `r1APPARENTLY DEATH ISN'T THE END.`r0
+
+ `2You open your eyes.
+
+Cell mates are all around you....`k
+ One says: You are a kind soul and should not be here.
+`k I have protected you but now I must go.`k
+ @end
+
+
+@show
+`c `r1`%AWAKENING.`r0
+
+You wake up to find the prison cell's cold and icy chillness.
+`k
+ Hairy Bob looks into your eyes and says: Get up sweet thing
+`k
+ `2You lost `4half`2 the gold you were carrying and `4`p20`2 experience.
+
+`k
+@readfile prison.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+@do delete prison.&playernum
+@writefile prison.&playernum
+`p21
+3
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+@readfile prisinfo.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`p26
+`p27
+@
+
+ @loadmap `p27
+ @drawmap
+ @update
+@end
+
+@#FALL
+@do `s01 is pushed`xinto`xa`xpit
+@do enemy is an`xexecutioner
+@do goto die
+
+
+@#john
+@do moveback
+@show
+
+ `r0`c`% `r1 A Quarel `r0`2
+
+Javet: Now bring me prisoner 24601`l.`l.`l.Your time is up and your parol's
+ begun. You know what that means?
+`k
+
+John: Yes, it means I'm fr`we`we`we`we`we`we`we`wee
+`k
+
+Javet: No!`w`l That means you get your yellow ticket of leave`l.`l.`l.`l
+ you are a thief!
+`k
+
+John: I stole a loaf of bread!
+`k
+
+Javet: You robbed a HOUSE!
+`k
+
+John: I broke a window P`wa`wa`wane`l.`l.`l.`lmy sister's child was close to death
+ `l`l`lwe were starving
+`k
+
+Javet: You will starve again unless you know the meaning of the LAW!
+`k
+
+John: I know the meaning of those nineteen years`l.`l.`l.`la slave`l.`l.
+ of the LA`wA`wA`wA`wA`wAW!
+`k
+
+Javet: FIVE YEARS FOR WHAT YOU DID`l.`l.`l.THE REST `lBECAUSE TO TRIED
+ TO RUN!`l`l`l`l YES, 24601!!
+`k
+
+John: My name is John Valjohn
+`k
+
+Jevet: And I am`l.`l.`l.`lJevet. Do not forget my name.`l`l`l`l`l
+ Do not forget me,`l 2`l4`l6`l0`l1!!
+`k
+`k
+
+@drawmap
+@update
+
+@#race
+@drawpart 58 13
+@drawpart 59 14
+@if prisinfo.&playernum exists false then do
+@begin
+@do saybar
+You cannot race until you have seen the warden!
+@run done
+@end
+
+@if prisinfo.&playernum exists true then do
+@begin
+;Vars for Prisinfo.&playernum
+@readfile Prisinfo.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`p26
+`p27
+@
+
+@if `p21 not &time then do
+@begin
+@do `p05 + 1
+@do delete prisinfo.&playernum
+@writefile prisinfo.&playernum
+&time
+`p22
+`p23
+`p24
+`p25
+`p26
+`p27
+@
+@do goto rstart
+@end
+
+@if `p21 is &time then do
+@begin
+@do goto rstart
+@end
+
+@label rstart
+@do `p22 is 0
+@do saybar
+READY......SET.....GO!!!!!!
+
+@label go
+@do `p22 + 1
+
+@if `p22 is 38 then do
+@begin
+@run done
+@end
+
+@do `p20 is x
+@do `p21 is y
+@do x - 1
+@update
+@drawpart `p20 `p21
+@do goto go
+@end
+
+@#rocks
+@if prisinfo.&playernum exists false then do
+@begin
+@do saybar
+Go see the Warden!
+@end
+
+@if prisinfo.&playernum exists true then do
+@begin
+@readfile prisinfo.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`p26
+`p27
+@
+@if `p23 not &time then do
+@begin
+@do saybar
+You break up some rocks and get 5 more muscle
+@do `p04 + 5
+@do delete prisinfo.&playernum
+@writefile prisinfo.&playernum
+`p21
+`p22
+&time
+`p24
+`p25
+`p26
+`p27
+@
+@end
+
+@if `p23 is &time then do saybar
+You have already broken enough rocks today
+@end
+
+@#gym
+@readfile prisinfo.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`p26
+`p27
+@
+@if `p22 not &time then do
+@begin
+@do saybar
+You do exercises and gain 5 more muscle
+@do `p04 + 5
+@do delete prisinfo.&playernum
+@writefile prisinfo.&playernum
+`p21
+&time
+`p23
+`p24
+`p25
+`p26
+`p27
+@
+@end
+
+@if `p22 is &time then do saybar
+You have already worked out enough today
+@end
+
+@#tunnel
+@busy
+@readfile prison.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+
+@if `p24 is 0 then do
+@begin
+@do saybar
+Hmmmm....This area would be great for tunneling...
+@key
+@do saybar
+If you only had something to dig with
+@end
+
+@if `p25 more 4 then do
+@label out
+@begin
+@do saybar
+Finaly this tunnel is finished!
+@key
+@do x is 30
+@do y is 4
+@do map is 1289
+@loadmap 1289
+@drawmap
+@update
+@do delete prisinfo.&playernum
+@do `p01 + 1000
+@do `p03 + 10
+@do `p19 + 2
+@do money + 100
+@do saybar
+You feel a little different now that you are out of Prison
+@run done
+@end
+
+
+@if `p24 is 1 then do
+@begin
+
+@if `p25 more 4 then do
+@begin
+@goto out
+@end
+
+@if `p25 less 5 then do
+@show
+`r0`c`% `r1 Digging for Freedom `r0`2
+
+ How many turns would you like to dig for?
+
+@do `v01 is 1
+@choice
+>`p11 4999 5000 turns
+>`p11 3999 4000 turns
+>`p11 2999 3000 turns
+>`p11 1999 2000 turns
+>`p11 999 1000 turns
+Leave
+@
+
+@if responce is 6 then do
+@begin
+@drawmap
+@update
+@end
+
+@if responce is 1 then do
+@begin
+@do `p11 - 5000
+@do delete prison.&playernum
+@do `p25 + 5
+@writefile prison.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+@run tunnel
+@end
+
+@if responce is 2 then do
+@begin
+@do `p11 - 4000
+@do delete prison.&playernum
+@do `p25 + 4
+@writefile prison.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+@run tunnel
+@end
+
+@if responce is 3 then do
+@begin
+@do `p11 - 3000
+@do delete prison.&playernum
+@do `p25 + 3
+@writefile prison.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+@run tunnel
+@end
+
+@if responce is 4 then do
+@begin
+@do `p11 - 2000
+@do delete prison.&playernum
+@do `p25 + 2
+@writefile prison.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+@run tunnel
+@end
+
+@if responce is 5 then do
+@begin
+@do `p11 - 1000
+@do delete prison.&playernum
+@do `p25 + 1
+@writefile prison.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`s02
+`s01
+@
+@run tunnel
+@end
+
+@#codax
+@do moveback
+@show
+
+ `r0`c`%`r1 What! You again?! `r0
+
+ `$Codax is that you? `k
+
+ `1C`3o`5d`7a`9x`2: Yup. I finaly got locked up.`k
+
+ `$Why? `k
+
+ `1C`3o`5d`7a`9x`2: Well, I was minding my own bussiness going through all
+ the places I established when this cop jumped me and put my in here`k
+
+ `$You still havn't answered my question`k
+
+ `1C`3o`5d`7a`9x`2: They said`k<sniff>`k that I put myself in to many`k
+ <sniff> Igms <WAAAAAAAAA>`k
+
+ `$SERVES YOU RIGHT YOU VAIN PEACE OF BELAR
+`k
+
+@DRAWMAP
+@UPDATE
+
+@#bobmad
+@readfile prisinfo.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`p26
+`p27
+@
+@do delete prisinfo.&playernum
+@writefile prisinfo.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+&time
+`p27
+@
+@drawmap
+@update
+@drawpart 32 2
+@drawpart 51 3
+@drawpart 67 7
+@drawpart 26 2
+@drawpart 27 2
+@drawpart 34 3
+@drawpart 51 2
+@drawpart 27 3
+@update
+@do saybar
+Bob pushes you away for your unwelcome advance
+
+@#bobglad
+@readfile prisinfo.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`p26
+`p27
+@
+@do delete prisinfo.&playernum
+@writefile prisinfo.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+&time
+`p27
+@
+@update
+@drawmap
+@drawpart 32 2
+@drawpart 51 3
+@drawpart 67 7
+@drawpart 26 2
+@drawpart 27 2
+@drawpart 34 3
+@drawpart 51 2
+@drawpart 27 3
+@update
+
+@#bob
+@do moveback
+@readfile prisinfo.&playernum
+`p21
+`p22
+`p23
+`p24
+`p25
+`p26
+`p27
+@
+@show
+
+ `r0`c`r1`% Chatting up Bob `r0`2
+
+ Bob looks over at you. He has hair all over his body. He smiles a crooked
+ toothed grin.
+
+@do `v01 is 1
+@choice
+<`p26 &time Whisper Sweet nothings
+>&time `p26 Kiss him
+>&time `p26 Give him a massage
+>&time `p26 Hug him
+>&time `p26 Grab his butt
+>&time `p26 Sit him on your lap
+>&time `p26 French Him
+>&time `p26 Make him pleasure you
+Pleasure Bob
+Nevermind
+@
+
+@if responce is 8 then do
+@begin
+@if `p08 < 20 then do
+@begin
+@show
+`c`2
+ You push Bob onto the bed!`l.`l.`l. He quickly gets up and then
+ beat the living heck out of you!`k
+ `4`bHIT POINTS GO DOWN TO 1`k Charm goes down 3
+@do `p02 is 1
+@do `p08 - 3
+@run bobmad
+@end
+
+@if `p08 > 19 then do
+@begin
+@show
+`r0`c `r1 Bedding with Bob `r0`2
+
+ You push Bob onto the bed!`l.`l.`l. He smiles invitingly!`k
+ You enjoy him for all that he has!`k
+ Hit Points Maxed!`k Dodge plus 1!`k Lays plus 1`k
+@do `p02 is `p03
+@do `p05 + 1
+@do `p34 + 1
+@run bobglad
+@end
+@end
+
+@if responce is 1 then do
+@begin
+@show
+`c`2
+ You start telling Bob everthing you like about him.`k
+ Charm goes up 1
+@do `p08 + 1
+@run bobglad
+@end
+
+@if responce is 7 then do
+@begin
+@if `p08 < 13 then do goto bobmad
+@if `p08 > 12 then do
+@begin
+@Show
+`c`2`k
+
+ You grab Bob by the waist and pull him toward you.`k
+ You force you face on his and you easy his lips open with yours
+`k You move your tounge in and wave it around in his mouth`l.`l.`l.
+`k He does the same! Charm goes up 9
+@do `p08 + 9
+@run bobglad
+@end
+@end
+
+@if responce is 6 then do
+@begin
+@if `p08 < 10 then do goto bobmad
+@if `p08 > 9 then do
+@begin
+@show
+`c`2
+ You sit Bob on your lap`l.`l.`l.`l.He laughs hartily and kisses you on
+ the cheek`k Charm + 8
+@run bobglad
+@end
+@end
+
+@if responce is 5 then do
+@begin
+@if `p08 < 8 then do goto bobmad
+@if `p08 > 7 then do
+@begin
+@show
+`c`2
+ You take both hands and plant them firmly on Bob buttux. You rub a second
+`l.`l.`l.`l.Then Bob Smiles at you and blows you a kiss!
+Charm + 6
+`k
+@do `p08 + 6
+@run bobglad
+@end
+@end
+
+@if responce is 4 then do
+@begin
+@if `p08 < 5 then do goto bobmad
+@if `p08 > 4 then do
+@begin
+@show
+`c`2
+ You give Bob a great big hug!`k Bob hugs you back!
+ Charm + 2`k
+@do `p08 + 2
+@run bobglad
+@end
+@end
+
+@if responce is 3 then do
+@begin
+@if `p08 < 3 then do goto bobmad
+@if `p08 > 2 then do
+@begin
+@show
+`c`2
+ You give Bob a massage`l.`l"Ummm`l.`l.Ohhhh`l.`lOh yeah right there"
+ Bob loves it! Charm + 3
+`k
+@do `p08 + 3
+@run bobglad
+@end
+@end
+
+@if responce is 2 then do
+@begin
+@show
+`c`2
+You lean over and give bob a kiss on the cheek and`l.`l.`l.He blushes`k
+ Charm goes up 1`k
+@do `p08 + 1
+@run bobglad
+@end
+
+
+@if responce is 10 then do
+@begin
+@drawmap
+@update
+@end
+
+@if responce is 9 then do
+@begin
+@do `p20 random 7 1
+@if `p20 is 1 then `s01 is Dig`xnear`xthe`xred`xrock
+@if `p20 is 2 then `s01 is Persistance`xthe`xkey`xto`xopening`xthe`xlock
+@if `p20 is 3 then `s01 is You`xdon't`xalways`xescape`xwhen`xyou`xkill`xthe`xwaden
+@if `p20 is 4 then `s01 is Using`xthe`xspoon`xis`xthe`xonly`xway`xto`xtunnel`xout
+@if `p20 is 5 then `s01 is Codax`xis`xa`xreally`xgreat`xguy!
+@if `p20 is 6 then `s01 is If`xyou`xuse`xthe`xsmackrod`xdon't`xtry`xto`xjust`xwalk`xout`xthe`xfront`xgate
+@if `p20 is 7 then `s01 is If`xyou`xloose`xa`xfight`xyou`xdon't`xdie`xyou`xjust`xloose`xa`xstrike
+
+@do `p20 random 5 1
+@if `p20 is 1 then `s02 is licks`xyour`xear
+@if `p20 is 2 then `s02 is pinches`xyour`xbut
+@if `p20 is 3 then `s02 is kisses`xyou`xon`xthe`xlips
+@if `p20 is 4 then `s02 is takes`xfull`xadvantage`xof`xyour`xbody
+@if `p20 is 5 then `s02 is sits`xyou`xon`xhis`xlap
+
+@show
+`c`2
+Bob's face lights up, then he `0`s02`2.`k
+ Bob's face then saddens.
+ "That is the niceset thing anyone has
+ ever done for me" he continues "I'll tell you a secret!"`k
+
+"`s01"
+`k
+@do `p02 is `p03
+@run bobglad
+@end
+
+@#done
+
+
+;Vars for Prisitem.&playernum
+;var1 = Travel Potions (`p20)(`i50)
+;Var2 = Flute (`p21)(`i07)
+;Var3 = mystic eye (`p22)(`i83)
+;var4 = Loose screw (`p23)(`i94)
+;var5 = Mypron Groon (`p24)(`i95)
+;var6 = Skystaff Base (`p25)(`i22)
+;var7 = skystaff Middle (`p26)(`i23)
+;var8 = skystaff Top (`p27)(`i24)
+;var9 = skystaff Gemstone (`p28)(`i25)
+;var10= wizards wand (`p29)(`i56)
+
+@#giveitem
+@readfile prisitem.&playernum
+`i50
+`i07
+`i83
+`i94
+`i95
+`i22
+`i23
+`i24
+`i25
+`i56
+@
+@do delete prisitem.&playernum
+
+@#takeitem
+@writefile prisitem.&playernum
+`i50
+`i07
+`i83
+`i94
+`i95
+`i22
+`i23
+`i24
+`i25
+`i56
+@
+@do `i50 is 0
+@do `i07 is 0
+@do `i83 is 0
+@do `i94 is 0
+@do `i95 is 0
+@do `i22 is 0
+@do `i23 is 0
+@do `i24 is 0
+@do `i25 is 0
+@do `i56 is 0
+
+
diff --git a/xtrn/lord2/cnw/pyramid.ref b/xtrn/lord2/cnw/pyramid.ref
new file mode 100644
index 0000000000000000000000000000000000000000..4896b76553c805746cb3e335f27e1ddea8cc83fe
--- /dev/null
+++ b/xtrn/lord2/cnw/pyramid.ref
@@ -0,0 +1,3251 @@
+; Pyramid's Place Ver. 1.20
+; There is not that much to see here but this is the
+; ref of Pyramid's Place. It is not vary neet also
+; there are even some comands that arnt used in the
+; IGM.
+; (c)opyright 1998 Scott Tolboe
+;
+;
+; updated by CNW v137.0
+;
+@#pychek
+@datasave pychek.idf &playernum 1
+@do x is 40
+@do y is 17
+@do map is 1397
+@do goto done
+@end
+
+@#done
+@loadmap &map
+@drawmap
+@update
+
+@#nowll
+@dataload pychek.idf &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @do x is 45
+ @do y is 13
+ @do map is 1194
+ @do goto done
+ @end
+@do x is 20
+@do y is 6
+@do map is 1549
+@do goto done
+@end
+
+@#market
+@offmap
+@do moveback
+@show
+`r0`c `r1 Merchant `r0
+
+ `0"Hello. What do you want to do?" `2Asks the Merchant.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Examen his weapons
+Examen his armour
+Look at other Items
+Sell
+Leave
+@
+@if response is 5 then do
+ @begin
+ @do goto ha1
+ @end
+@if response is 1 then do
+ @begin
+ @offmap
+ @do moveback
+ @show
+
+`r0`c `r1 Merchant `r0
+
+ `0This is the weapons market.
+`k
+ @buymanager
+6
+4
+9
+15
+16
+35
+36
+ @do goto ha1
+ @end
+@if response is 2 then do
+ @begin
+ @offmap
+ @do moveback
+ @show
+
+`r0`c `r1 Merchant `r0
+
+ `0This is the armour market.
+`k
+ @buymanager
+10
+12
+13
+14
+37
+ @do goto HA1
+ @end
+@if response is 3 then do
+ @begin
+ @do goto item
+ @end
+
+@if response is 4 then do
+ @begin
+ @offmap
+ @do moveback
+ @show
+`c
+`\
+ @sellmanager
+ @do goto ha1
+ @end
+
+
+@#pheal
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `4Pyramid `%The Healer
+
+ `4Pyramid `2looks 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, ok?"
+
+@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."
+ `k
+ @do goto pheal
+ @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," `4Pyramid `2laughs.
+
+`k
+@drawmap
+@update
+
+@#BOUNTYLIST
+@routine BOUNTYLIST in BOUNTY.REF
+
+@#bank1
+@do `p30 is 18
+@do `v01 is 1
+@offmap
+@do moveback
+@do `s09 is pyramid
+@routine DONEQUEST in VAULTS.REF
+@label bankstart
+@label bankstart1
+@show
+`r0`c `r1 `%Bank Of `4Pyramid's `%Place `r0
+
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+@if bank is 0 then do
+ @begin
+ @show
+`2 You need to open a bank account over at GreenTree Bank.
+
+ @key
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdraw.
+Leave
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit1
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit1
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw1
+ @end
+
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart1
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw1
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookkeeping!
+ @do goto withdraw1
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw1
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `4Pyramid `2says.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank1
+
+ @end
+
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart1
+ @end
+
+@drawmap
+@update
+
+@#port0
+@offmap
+@do moveback
+@show
+`r0`c `r1 Magicain `r0
+
+ `0"It costs `$$1000 for my services."
+
+@key
+@if money < 1000 then do
+ @begin
+ @show
+ `0"I can detect you do not have enough." `2says the Magician.
+ @key
+ @do goto 70
+ @end
+
+@do money - 1000
+@do `p30 is 18
+@do `v40 is 1000
+@routine deposit in vaults.ref
+@do goto port
+
+@#port
+@show
+`r0`c `r1 Magicain `r0
+
+ `0"Hello sir. Where do you wish to go today?" `2Asks the Magician.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Stonebrook
+GreenTree
+PortTown
+BoneTown
+FlagCity
+Sosen Village
+ArrisVille
+StonePass Lodge
+Jack's Restaurant
+Nevermind
+@if response is 10 then do
+ @begin
+ @do goto 70
+ @end
+@show
+`\`\ `0"Okay sir.
+
+`k `0"`0Off you go.`x`x`x`x`x`x`2" Says the Magician.
+
+ `2Then suddenly, you are there, on your own.
+`\`k
+@if response is 1 then do
+ @begin
+ @do x is 36
+ @do y is 7
+ @do map is 1359
+ @end
+@if response is 2 then do
+ @begin
+ @do x is 10
+ @do y is 15
+ @do map is 1356
+ @end
+@if response is 3 then do
+ @begin
+ @do x is 38
+ @do y is 16
+ @do map is 956
+ @end
+@if response is 4 then do
+ @begin
+ @do x is 53
+ @do y is 18
+ @do map is 1572
+ @end
+@if response is 5 then do
+ @begin
+ @do x is 71
+ @do y is 19
+ @do map is 1092
+ @end
+@if response is 6 then do
+ @begin
+ @do x is 36
+ @do y is 5
+ @do map is 456
+ @end
+@if response is 7 then do
+ @begin
+ @do x is 19
+ @do y is 9
+ @do map is 523
+ @end
+@if responce is 8 then do
+ @begin
+ @do x is 40
+ @do y is 11
+ @do map is 880
+ @end
+@if responce is 9 then do
+ @begin
+ @do x is 14
+ @do y is 18
+ @do map is 1278
+ @end
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#hi
+@busy
+@offmap
+@do moveback
+@show
+`r0`c `r1 Man `r0
+
+ `0 Welcome to Pyramid's Place. There are many things that you can do here.
+
+ `0 There are four rooms that you can buy. The 1,2,3 rooms are the best,
+
+ `0 for the reason that they can be entered from right above me, plus they
+
+ `0 have a Magician. The fourth room is ok. To get to the rooms go to the red
+
+ `0 stairs. To come to the lobby, go to the black stairs. If you want to
+
+ `0 and visit Pyramid, go to the gray stairs. Last but not least you can get
+
+ `0 to the buying and selling room by going to the brown stairs.
+
+ `0 Enjoy your stay
+`k
+@drawmap
+@update
+
+@#magician
+@run port
+
+@#heal
+@busy
+@offmap
+@do moveback
+@show
+`r0`c `r1 Healer `r0
+
+ `2The doctor carefully looks over your wounds.
+
+ `%YOU ARE COMPLETELY HEALED.
+`\`k
+@do `p02 is `p03
+@drawmap
+@update
+
+@#CHATWALL
+@do moveback
+@busy
+@show
+`r0`c `r1 SCRIBBLING ON THE BULLETIN BOARD `r0
+
+@if pychat.txt exist false then do
+ @begin
+ @writefile pychat.txt
+ `%Man`2: `0This is a chalk bord havbe fun!
+ @end
+
+@if pychat.txt exist true then do
+ @begin
+ @displayfile pychat.txt
+ @end
+
+@show
+
+@
+(Do tricky stuff with name to determine how much they can type)
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter a special message or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile pychat.txt
+ `%`n`2 : `0`s03
+ @do trim pychat.txt 17
+ @drawmap
+ @update
+
+@#sign
+@do moveback
+@do saybar
+`4Pyramid's place
+
+@#crap
+@do x is 3
+@do y is 18
+@do map is 1396
+@loadmap &map
+@itemexit
+@drawmap
+@update
+@closescript
+@end
+
+@#6
+@do moveback
+@dataload pys.idf &playernum `p20
+
+@if `p20 is 1 then do
+ @begin
+ @do saybar
+`0If you try to get another Pharaoh's armour you will losso it.
+ @datasave pys.idf &playernum 2
+ @end
+@if `p20 is 3 then do
+ @begin
+ @do saybar
+`0You have already lost your Pharaoh's armour what else do you whant to losse?
+ @closecript
+ @end
+@if `p20 is 2 then do
+ @begin
+ @do saybar
+`0You lost all of your Pharaoh's armour.
+ @do `i98 is 0
+ @datasave pys.idf &playernum 3
+ @closescript
+ @end
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`2The Pharaoh's armour is hanging. Attempt to grab it? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+@if `s01 is Y then do
+ @begin
+@if `p18 < 600 then do
+ @begin
+
+ @do saybar
+`2Its too high for you to reach. You need more quest points (600).
+ @closescript
+ @end
+ @do saybar
+`2You found the Pharaoh's armour! But you still have to get out of here!
+ @do `i98 is 1
+ @datasave pys.idf &playernum 1
+ @closescript
+@end
+@do saybar
+Just grab it.
+
+@#pyramid
+@offmap
+@do moveback
+@show
+`r0`c `r1 Pyramid `r0
+
+ `0"Hello. What do you want to do?" `2Asks Pyramid.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Bank
+Get healed
+Look for Ankh
+Look for Pharaoh's armour
+Conduct Business
+View bounty list
+Place a bounty
+Pay off your own bounty
+Nevermind
+@if response is 1 then do
+ @begin
+ @do goto Bank1
+ @end
+@if response is 2 then do
+ @begin
+ @do goto pheal
+ @end
+@if response is 3 then do
+ @begin
+ @do goto lookankh
+ @end
+@if response is 4 then do
+ @begin
+ @do goto look
+ @end
+@if response is 5 then do
+ @begin
+ @do goto quest69
+ @end
+@if response is 6 then do
+ @begin
+ @do goto bl
+ @end
+@if response is 7 then do
+ @begin
+ @do goto pb
+ @end
+@if response is 8 then do
+ @begin
+ @do goto pob
+ @end
+@if response is 9 then do
+ @begin
+ @do goto done
+ @end
+
+@#lookankh
+@offmap
+@do moveback
+@show
+`r0`c `r1 Pyramid `r0
+
+`0"If you can find the Ankh you can return to Pyramid's Place any
+
+`0time", Pyramid Says.
+
+`0 You only can look around 1 time per day.
+
+@do `p20 is 0
+@datanewday Pharaoh.idf
+@DATALOAD Pharaoh.idf &playernum `p20
+@do `v01 is 1
+`x`x
+@choice
+=`p20 0 Look for ankh
+leave
+@if response not 2 then do
+@begin
+@do x is 25
+@do y is 5
+@do map is 1478
+@loadmap &map
+@drawmap
+@update
+@closescript
+@end
+@if response is 2 then do
+@do goto pyramid
+@drawmap
+@update
+@end
+
+@#gettingankh
+@do x is 12
+@do y is 7
+@do map is 1478
+@loadmap &map
+@DATASAVE Pharaoh.IDF &playernum 1
+@drawmap
+@update
+@do quebar
+`%OOPS! Wrong chest. Try again tommorow.
+
+@#item
+@offmap
+@do moveback
+@show
+`c
+`\
+@buymanager
+ 1
+ 3
+ 5
+ 43
+ 20
+ 40
+ 55
+ @end
+@drawmap
+@update
+
+@#sell
+@offmap
+@do moveback
+@show
+`c
+`\
+ @sellmanager
+ @end
+@drawmap
+@update
+
+@#items
+@offmap
+@do moveback
+@show
+`r0`c `r1Man `r0
+
+ `0This is the items market.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Buy item
+Sell items
+Leave
+@if response is 1 then do
+ @begin
+ @do goto item
+ @end
+@if responce is 2 then do begin
+ @begin
+ @do goto sell
+ @end
+@if response is 3 then do
+@begin
+@do goto ha1
+@end
+
+@#weapons
+@offmap
+@do moveback
+@show
+
+`r0`c `r1 Merchant `r0
+
+ `0This is the weapons market.
+`k
+@buymanager
+15
+16
+35
+36
+38
+49
+@do goto ha1
+@end
+
+@#okthen
+@offmap
+@do moveback
+@show
+
+`r0`c `r1 Merchant `r0
+
+ `0This is the armour market.
+`k
+@buymanager
+14
+37
+59
+62
+68
+@do goto HA1
+@end
+
+@#ha1
+@loadmap &map
+@drawmap
+@update
+@end
+
+@#ha
+@closescript
+@drawmap
+@update
+@end
+
+@#givingankh
+@do moveback
+@dataload ankhp.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+ @do saybar
+`0You found the Ankh. Cool.
+ @do `i97 is 1
+ @datasave ankhp.idf &playernum 1
+ @closescript
+ @end
+@do saybar
+`2You have already obtained an ankh, so the chest is empty. Dah.
+
+@#ver.2.00
+@do saybar
+`4This will be in version 2.00
+@end
+
+@#10
+@SHOW
+`r0`c `%`r1 Pyramid`r0
+
+`2 Look again tomorrow.
+
+`k
+@DATASAVE Pharaoh.IDF &playernum 1
+@DO X IS 12
+@DO y IS 7
+@do map is 1478
+@loadmap &map
+@drawmap
+@update
+@closescript
+
+@END
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#5
+@SHOW
+`r0`c `%`r1 Pyramid`r0
+
+`2 Look again tomorrow.
+
+`k
+@DATASAVE Pharaoh.IDF &playernum 1
+@DO X IS 12
+@DO y IS 7
+@do map is 1478
+@loadmap &map
+@drawmap
+@update
+@closescript
+
+@END
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#4
+@SHOW
+`r0`c `%`r1 Pyramid`r0
+
+`2 Look again tomorrow.
+
+`k
+@DATASAVE Pharaoh.IDF &playernum 1
+@DO X IS 12
+@DO y IS 7
+@do map is 1478
+@loadmap &map
+@drawmap
+@update
+@closescript
+
+@END
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#3
+@SHOW
+`r0`c `%`r1 Pyramid`r0
+
+`2 Look again tomorrow.
+
+`k
+@DATASAVE Pharaoh.IDF &playernum 1
+@DO X IS 12
+@DO y IS 7
+@do map is 1478
+@loadmap &map
+@drawmap
+@update
+@closescript
+
+@END
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#2
+@SHOW
+`r0`c `%`r1 Pyramid`r0
+
+`2 Look again tomorrow.
+
+`k
+@DATASAVE Pharaoh.IDF &playernum 1
+@DO X IS 12
+@DO y IS 7
+@do map is 1478
+@loadmap &map
+@drawmap
+@update
+@closescript
+
+@END
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#1
+@SHOW
+`r0`c `%`r1 Pyramid`r0
+
+`2 Look again tomorrow.
+
+`k
+@DATASAVE Pharaoh.IDF &playernum 1
+@DO X IS 12
+@DO y IS 7
+@do map is 1478
+@loadmap &map
+@drawmap
+@update
+@closescript
+
+@END
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#LOOKTHING
+@offmap
+@do moveback
+@show
+`r0`c `r1 Pyramid `r0
+
+ `0"If you can find the Pharaoh's armour, you get armour that is (+350).
+
+ `0But don't try to get a second or you will lose all of your Pharaoh's
+
+ `0armour. Don't say I didn't warn you.
+
+
+@do `v01 is 1
+`x`x
+@choice
+Look for Pharaoh's armour
+leave
+@if response not 2 then do
+@begin
+@do x is 4
+@do y is 7
+@do map is 1396
+@loadmap &map
+@drawmap
+@update
+@closescript
+@end
+@if response is 2 then do
+@do goto pyramid
+@end
+
+@#look
+@DO MOVEBACK
+@DATANEWDAY Pharaoh.idf
+@DATALOAD Pharaoh.idf &PLAYERNUM `p20
+@IF `p20 NOT 1 THEN DO
+@BEGIN
+@DO GOTO LOOKTHING
+@CLOSESCRIPT
+@END
+
+@drawmap
+@update
+@do saybar
+`4You messed up, you can't try again till tomorrow.
+@end
+
+@#9
+@SHOW
+`r0`c `%`r1 Pyramid`r0
+
+`2 Look again tomorrow.
+
+`k
+@DATASAVE Pharaoh.IDF &playernum 1
+@DO X IS 12
+@DO y IS 7
+@do map is 1478
+@loadmap &map
+@drawmap
+@update
+@closescript
+
+@END
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#8
+@SHOW
+`r0`c `%`r1 Pyramid`r0
+
+`2 Look again tomorrow.
+
+`k
+@DATASAVE Pharaoh.IDF &playernum 1
+@DO X IS 12
+@DO y IS 7
+@do map is 1478
+@loadmap &map
+@drawmap
+@update
+@closescript
+
+@END
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+
+@#7
+@SHOW
+`r0`c `%`r1 Pyramid`r0
+
+`2 Look again tomorrow.
+
+`k
+@DATASAVE Pharaoh.IDF &playernum 1
+@DO X IS 12
+@DO y IS 7
+@do map is 1478
+@loadmap &map
+@drawmap
+@update
+@closescript
+
+@END
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+
+@#Ankh
+@do quebar
+`4Cool!
+@do x is 40
+@do y is 12
+@do map is 1397
+@loadmap &map
+@itemexit
+@drawmap
+@update
+@end
+
+@#scott
+@do saybar
+`4Pyramid's Place`0 1.20 `0Created by Scott Tolboe
+
+
+@#bl
+@routine bountylist
+@do goto Pyramid
+@end
+
+@#pb
+ @SHOW
+`r0`c `r1 Talking to Pyramid `r0
+`\ `$"I need to make someone's life hard, can you help?,"`2 you say.
+
+ `0"Of course... who is our lucky winner?"
+ @chooseplayer `p22
+ @if `p22 is 0 then do
+ @begin
+ @show
+`k
+ @do goto Pyramid
+ @end
+ @if `p22 is &playernum then do
+ @begin
+ @show
+ `0"Ha, I like the concept!" `2Pyramid laughs. You must have amused him
+ in some small way.`\`\`k
+ @do goto Pyramid
+ @end
+ @show
+ `0"Of course. How much money are you willing to place?"`2 he asks calmly.
+
+ @do write
+`x`x
+ @do readnum 30
+ @do `p20 is `v40
+ @if `p20 < 1000 then do
+ @begin
+ @show
+`\`\ `0"Minimum bounty is `$1000`0, friend."
+`\`k
+ @do goto Pyramid
+ @end
+ @show
+
+ @if money < `p20 then do
+ @begin
+ @show
+`\ `2You don't have that much gold on you... Better hit the bank.
+
+`k
+ @do goto Pyramid
+ @end
+ @routine deposit in vaults.ref
+ @do money - `p20
+@show
+
+
+ @if bounty.`p22 exist true then do
+ @begin
+ @readfile bounty.`p22
+`p23
+`p24
+ @if `p23 not &playernum then do
+ @begin
+ @if `p24 > `p20 then do
+ @begin
+ @show
+ `0"There is a problem. Someone has already placed a bounty on that
+ person.. Of course, we will let you do anything for a price. Try an
+ amount that is at least `$$`p24 `0and I'll think about it."
+`\`k
+ @do goto Pyramid
+ @end
+ @end
+ @end
+
+ @do `s05 is getname `p22
+ @do delete bounty.`p22
+ @writefile bounty.`p22
+&playernum
+`p20
+ @do addlog
+ `0`n `2has set a bounty of `$`p20 `2to kill `0`s05`2!
+ @routine seperate in gametxt.ref
+
+ @show
+ `0"Alright. The bounty has been placed... The only way to get out of it
+ is if `s05 gets in here and pays it off... or death of course."
+
+`k
+ @do goto Pyramid
+ @END
+
+@#pob
+ @SHOW
+`r0`c `r1 `%Cutting a deal with Pyramid `r0
+
+ `$"Someone hates me, but I have more money than them. Please stop
+ chasing me."`2 you state.
+
+@if bounty.&playernum exist false then do
+ @begin
+ @show
+ `0"Huh? You are not marked by us. Not yet."
+
+ `2You turn bright red. `$"I, I uh, knew that..."
+`\`k
+ @do goto Pyramid
+ @end
+ @readfile bounty.&playernum
+`p20
+`p21
+ @show
+ `0"It will cost you `$$`p21 `0to clear your name. Can you pay it?"
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Yes, I can `2(you have `0`$$&money`2)
+I cannot pay it
+@if responce is 1 then do
+ @begin
+ @if money < `p21 then do
+ @begin
+ @do money / 2
+ @show
+`\`\ `0"Very well, where is the gold?"`2
+
+`2 You search your pockets desperately. A few moments later you are
+ outside with quite a bruise and some money missing.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @do `v40 is `p21
+ @routine deposit in vaults.ref
+ @do money - `p21
+ @do delete bounty.&playernum
+ @do addlog
+ `0`n `2convinces the Bounty Hunter Guild to stop chasing s&him.
+ @routine seperate in gametxt.ref
+@show
+`\`\ `0"Very well, now you're no good to me dead."`2
+`\`k
+ @do goto Pyramid
+ @end
+@do goto Pyramid
+ @END
+
+
+@#doorguard1
+@do moveback
+@label startg1
+@if pyr5.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to get the hell out of this room!" `2the guard barks.
+ @closescript
+ @end
+
+@readfile pyr5.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the door guard, nice of him to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The huge doorguard snaps to attention when he sees you are going to
+ address him.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+Leave
+@
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$50,000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your room - for now.`\`\`k
+ @do goto startg1
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your room to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room - for now.`\`\`k
+ @do goto startg1
+ @end
+
+ @do delete pyr5.dat
+ @writefile pyr5.dat
+`p20
+`s01
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of One of Pyramid's Room to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%One of Pyramid's rooms`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your room back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room - for now.`\`\`k
+ @do goto startg1
+ @end
+
+ @do delete pyr5.dat
+ @do `v40 is 50000
+ @do `p30 is 18
+ @routine widthdraw in vaults.ref
+ @do money + 50000
+ @show
+`\`\ `%One of Pyramid's Rooms Sold!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Your Room`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg1
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg1
+ @end
+ @do delete pyr5.dat
+ @writefile pyr5.dat
+&playernum
+`s01
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg1
+ @end
+
+@drawmap
+@update
+
+
+@#enter1
+@do moveback
+@offmap
+@if pyr5.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2This is one of Pyramid's old rooms now for sale.
+
+ `2It is for sale, however. The asking price is `$$150,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 149999 Purchase it.
+<&money 150000 Sigh wistfully and leave since you don't have enough.
+>&money 149999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if pyr5.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile pyr5.dat
+&playernum
+NONE
+ @do `v40 is 150000
+ @do `p30 is 18
+ @routine deposit in vaults.ref
+ @do money - 150000
+ @do addlog
+ `0`n `2buys `%A Room`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this room!
+
+`k `0As a special bonus, two beds, a door guard, your own room
+ `0 a bank, and a Magician plus you can get here from the front
+ `0,are included!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile pyr5.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete pyr5.dat
+ @do addlog
+ `%One of Pyramid's Rooms`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+ `4Ouch!
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2the door guard asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%This Room`0,"`2 the guard smiles as he opens the gate.`\`\`k
+ @do goto letmein1
+ @end
+ @writefile mail\mail`p20.dat
+ `0Pyramid's room Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The guard doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein1
+@do x is 60
+@do y is 17
+@do map is 1476
+@loadmap &map
+@do goto done
+@#done
+
+@#sign2
+@do moveback
+
+ @if pyr5.dat exist false then do
+ @begin
+ @do saybar
+Pyramid's Room 2 For sale, enquire inside.
+ @end
+
+@if pyr5.dat exist true then do
+ @begin
+@readfile pyr5.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Pyramid's Room 2 Property of `0`s01`2.
+ @end
+
+@#roomguard1
+@do moveback
+@if pyr5.dat exist false then do
+ @begin
+ @do goto enter1
+ @end
+
+;load info on owner
+@readfile pyr5.dat
+`p20
+`s01
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+`2"You can't go in there!" Yells the guard.
+ @closescript
+ @end
+@do x is 58
+@do y is 19
+@do map is 1556
+@loadmap &map
+@drawmap
+@update
+@do quebar
+`0Your own room, cool.
+@end
+
+@#MYBANK1
+@do moveback
+@do `p20 is 0
+@if pr5.dat exist true then do
+ @begin
+ @readfile pr5.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile pr5.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete pr5.dat
+ @writefile pr5.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile pyr5.dat
+`p20
+`s01
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Your Room Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile pr5.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete pr5.dat
+ @writefile pr5.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile pyr5.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Your Room Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+ @end
+
+@#doorguard2
+@do moveback
+@label startg2
+@if pyr6.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to get the hell out of this room!" `2the guard barks.
+ @closescript
+ @end
+
+@readfile pyr6.dat
+`p20
+`s01
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the door guard, nice of him to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The huge doorguard snaps to attention when he sees you are going to
+ address him.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+Leave
+@
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$50,000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your room - for now.`\`\`k
+ @do goto startg2
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your room to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room - for now.`\`\`k
+ @do goto startg2
+ @end
+
+ @do delete pyr6.dat
+ @writefile pyr6.dat
+`p20
+`s01
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of One of Pyramid's Room to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%One of Pyramid's rooms`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your room back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room - for now.`\`\`k
+ @do goto startg2
+ @end
+
+ @do delete pyr6.dat
+ @do `v40 is 50000
+ @do `p30 is 18
+ @routine widthdraw in vaults.ref
+ @do money + 50000
+ @show
+`\`\ `%One of Pyramid's Rooms Sold!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Your Room`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+ @do goto startg2
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete pyr6.dat
+ @writefile pyr6.dat
+&playernum
+`s01
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg2
+ @end
+@drawmap
+@update
+
+@#enter2
+@do moveback
+@offmap
+@if pyr6.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2This is one of Pyramid's old rooms now for sale.
+
+ `2It is for sale, however. The asking price is `$$150,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 149999 Purchase it.
+<&money 150000 Sigh wistfully and leave since you don't have enough.
+>&money 149999 Leave.
+@if responce is 1 then do
+ @begin
+ @if pyr6.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile pyr6.dat
+&playernum
+NONE
+ @do `v40 is 150000
+ @do `p30 is 18
+ @routine deposit in vaults.ref
+ @do money - 150000
+ @do addlog
+ `0`n `2buys `%A Room`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this room!
+
+`k `0As a special bonus, two beds, a door guard, your own room
+ `0 a bank, and a Magician plus you can get here from the front
+ `0,are included!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile pyr6.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete pyr6.dat
+ @do addlog
+ `%One of Pyramid's Rooms`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+ `4Ouch!
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2the door guard asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%This Room`0,"`2 the guard smiles as he opens the gate.`\`\`k
+ @do goto letmein2
+ @end
+ @writefile mail\mail`p20.dat
+ `0Pyramid's room Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The guard doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+;let him in
+@label letmein2
+@do x is 20
+@do y is 17
+@do map is 1477
+@loadmap &map
+@do goto done
+@#done
+
+@#sign3
+@do moveback
+ @if pyr6.dat exist false then do
+ @begin
+ @do saybar
+Pyramid's Room 3 For sale, enquire inside.
+ @end
+
+@if pyr6.dat exist true then do
+ @begin
+@readfile pyr6.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Pyramid's Room 3 Property of `0`s01`2.
+ @end
+
+@#roomguard2
+@do moveback
+@if pyr6.dat exist false then do
+ @begin
+ @do goto enter2
+ @end
+
+;load info on owner
+@readfile pyr6.dat
+`p20
+`s01
+@
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+`2"You can't go in there!" Yells the guard.
+ @closescript
+ @end
+@do x is 20
+@do y is 10
+@do map is 1556
+@loadmap &map
+@drawmap
+@update
+@do quebar
+`0Your own room, cool.
+@end
+
+@#MYBANK2
+@do moveback
+@do `p20 is 0
+@if pr6.dat exist true then do
+ @begin
+ @readfile pr6.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile pr6.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete pr6.dat
+ @writefile pr6.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile pyr6.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Your Room Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile pr6.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete pr6.dat
+ @writefile pr6.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile pyr6.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Your Room Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+
+@#doorguard3
+@do moveback
+@label startg3
+@if pyr7.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to get the hell out of this room!" `2the guard barks.
+ @closescript
+ @end
+
+@readfile pyr7.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the door guard, nice of him to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The huge doorguard snaps to attention when he sees you are going to
+ address him.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+Leave
+@
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$50,000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your room - for now.`\`\`k
+ @do goto startg3
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your room to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room - for now.`\`\`k
+ @do goto startg3
+ @end
+
+ @do delete pyr7.dat
+ @writefile pyr7.dat
+`p20
+`s01
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of One of Pyramid's Room to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%One of Pyramid's rooms`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your room back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room - for now.`\`\`k
+ @do goto startg3
+ @end
+
+ @do delete pyr7.dat
+ @do `v40 is 50000
+ @do `p30 is 18
+ @routine widthdraw in vaults.ref
+ @do money + 50000
+ @show
+`\`\ `%One of Pyramid's Rooms Sold!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Your Room`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg3
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg3
+ @end
+ @do delete pyr7.dat
+ @writefile pyr7.dat
+&playernum
+`s01
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg3
+ @end
+
+@drawmap
+@update
+
+@#enter3
+@do moveback
+@offmap
+@if pyr7.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2This is one of Pyramid's old rooms now for sale.
+
+ `2It is for sale, however. The asking price is `$$125,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 124999 Purchase it.
+<&money 125000 Sigh wistfully and leave since you don't have enough.
+>&money 124999 Leave.
+@if responce is 1 then do
+ @begin
+ @if pyr7.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile pyr7.dat
+&playernum
+NONE
+ @do `v40 is 125000
+ @do `p30 is 18
+ @routine deposit in vaults.ref
+ @do money - 125000
+ @do addlog
+ `0`n `2buys `%A Room`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this room!
+
+`k `0As a special bonus, two beds, a door guard, your own room
+ `0 a bank, and a Magician,are included!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile pyr7.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete pyr7.dat
+ @do addlog
+ `%One of Pyramid's Rooms`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+ `4Ouch!
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2the door guard asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%This Room`0,"`2 the guard smiles as he opens the gate.`\`\`k
+ @do goto letmein3
+ @end
+ @writefile mail\mail`p20.dat
+ `0Pyramid's room Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The guard doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein3
+@do x is 60
+@do y is 17
+@do map is 1477
+@loadmap &map
+@do goto done
+@#done
+
+@#sign4
+@do moveback
+
+ @if pyr7.dat exist false then do
+ @begin
+ @do saybar
+Pyramid's Room 4 For sale, enquire inside.
+ @end
+
+@if pyr7.dat exist true then do
+ @begin
+@readfile pyr7.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Pyramid's Room 4 Property of `0`s01`2.
+ @end
+
+@#roomguard3
+@do moveback
+@if pyr7.dat exist false then do
+ @begin
+ @do goto enter3
+ @end
+
+;load info on owner
+@readfile pyr7.dat
+`p20
+`s01
+@
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+`2"You can't go in there!" Yells the guard.
+ @closescript
+ @end
+@do x is 58
+@do y is 10
+@do map is 1556
+@loadmap &map
+@drawmap
+@update
+@do quebar
+`0Your own room, cool.
+@end
+
+@#MYBANK3
+;team treasury
+@do moveback
+@do `p20 is 0
+@if pr7.dat exist true then do
+ @begin
+ @readfile pr7.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile pr7.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete pr7.dat
+ @writefile pr7.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile pyr7.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Your Room Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile pr7.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete pr7.dat
+ @writefile pr7.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile pyr7.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Your Room Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+
+@#doorguard
+@do moveback
+@label startg
+@if pyr4.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to get the hell out of this room!" `2the guard barks.
+ @closescript
+ @end
+
+@readfile pyr4.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the door guard, nice of him to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The huge doorguard snaps to attention when he sees you are going to
+ address him.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+Leave
+@
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$50,000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your room - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your room to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete pyr4.dat
+ @writefile pyr4.dat
+`p20
+`s01
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of One of Pyramid's Room to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%One of Pyramid's room`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your room back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your room - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete pyr4.dat
+ @do `v40 is 50000
+ @do `p30 is 18
+ @routine widthdraw in vaults.ref
+ @do money + 50000
+ @show
+`\`\ `%One of Pyramid's Rooms Sold!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Your Room`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto start
+ @end
+ @do delete pyr4.dat
+ @writefile pyr4.dat
+&playernum
+`s01
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#enter
+@do moveback
+@offmap
+@if pyr4.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2This is one of Pyramid's old rooms now for sale.
+
+ `2It is for sale, however. The asking price is `$$150,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 149999 Purchase it.
+<&money 150000 Sigh wistfully and leave since you don't have enough.
+>&money 149999 Leave.
+@if responce is 1 then do
+ @begin
+ @if pyr4.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile pyr4.dat
+&playernum
+NONE
+ @do `v40 is 150000
+ @do `p30 is 18
+ @routine deposit in vaults.ref
+ @do money - 150000
+ @do addlog
+ `0`n `2buys `%A Room`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this room!
+
+`k `0As a special bonus, two beds, a door guard, your own room
+ `0 a bank, and a Magician plus you can get here from the front
+ `0,are included!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile pyr4.dat
+`p20
+`s01
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete pyr4.dat
+ @do addlog
+ `%One of Pyramid's Rooms`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+ `4Ouch!
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2the door guard asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%This Room`0,"`2 the guard smiles as he opens the gate.`\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `0Pyramid's room Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The guard doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein
+@do x is 20
+@do y is 17
+@do map is 1476
+@loadmap &map
+@do goto done
+@#done
+
+@#sign1
+@do moveback
+
+ @if pyr4.dat exist false then do
+ @begin
+ @do saybar
+Pyramid's Room 1 For sale, enquire inside.
+ @end
+
+@if pyr4.dat exist true then do
+ @begin
+@readfile pyr4.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Pyramid's Room 1 Property of `0`s01`2.
+ @end
+
+@#roomguard
+@do moveback
+@if pyr4.dat exist false then do
+ @begin
+ @do goto enter
+ @end
+
+;load info on owner
+@readfile pyr4.dat
+`p20
+`s01
+@
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+`2"You can't go in there!" Yells the guard.
+ @closescript
+ @end
+@do x is 20
+@do y is 19
+@do map is 1556
+@loadmap &map
+@drawmap
+@update
+@do quebar
+`0Your own room, cool.
+@end
+
+@#MYBANK
+;team treasury
+@do moveback
+@do `p20 is 0
+@if pr4.dat exist true then do
+ @begin
+ @readfile pr4.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile pr4.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete pr4.dat
+ @writefile pr4.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile pyr4.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Your Room Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile pr4.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete pr4.dat
+ @writefile pr4.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile pyr4.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Your Room Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+ @end
+
+@#70
+@drawmap
+@update
+
+@#quest69
+@offmap
+@do moveback
+@show
+`r0`c `r1 Pyramid `r0
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Conduct Business
+Nevermind
+@if response is 1 then do
+ @begin
+; @run quest in coquest.ref <-- where is this file? (CNW)
+ @do `p20 is 8
+ @run getquest in quest.ref
+ @end
+@if response is 2 then do
+ @begin
+ @do goto Pyramid
+ @end
+
+@#port00
+@run port0
+
+@#port000
+@run port0
+
+@#nomore
+
+@SHOW
+`r0`c `%`r1 Pyramid`r0
+
+`2 Look again tomorrow.
+
+`k
+@DATASAVE Pharaoh.IDF &playernum 1
+@LOADMAP 1199
+@DO X IS 12
+@DO y IS 7
+@drawmap
+@update
+@closescript
+
+@END
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
diff --git a/xtrn/lord2/cnw/qfortres.ref b/xtrn/lord2/cnw/qfortres.ref
new file mode 100644
index 0000000000000000000000000000000000000000..a882ac2cb452dc61531f14d33f8e43f1ea15f786
--- /dev/null
+++ b/xtrn/lord2/cnw/qfortres.ref
@@ -0,0 +1,1444 @@
+; Script file QFORTRES.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:21 2001
+
+@DECLARE myhome 000001593
+@DECLARE potions 000001863
+@DECLARE postart 000001917
+@DECLARE qitems 000002217
+@DECLARE qistart 000002271
+@DECLARE supplies 000002570
+@DECLARE sustart 000002624
+@DECLARE waitress 000002936
+@DECLARE waitstart 000003170
+@DECLARE bar 000006220
+@DECLARE barstart 000006478
+@DECLARE ssign 000009544
+@DECLARE msign 000009601
+@DECLARE isign 000009660
+@DECLARE osign 000009737
+@DECLARE bsign 000009813
+@DECLARE tsign 000009919
+@DECLARE door 000010003
+@DECLARE f1 000010050
+@DECLARE fg1 000010143
+@DECLARE fg2 000010228
+@DECLARE as1 000010309
+@DECLARE as2 000010387
+@DECLARE a1 000010452
+@DECLARE a2 000010536
+@DECLARE a3 000010619
+@DECLARE a4 000010700
+@DECLARE a5 000010785
+@DECLARE a6 000010870
+@DECLARE hsign 000010955
+@DECLARE sea1 000011022
+@DECLARE sea2 000011092
+@DECLARE sea3 000011183
+@DECLARE sea4 000011241
+@DECLARE s1 000011321
+@DECLARE s2 000011400
+@DECLARE s3 000011479
+@DECLARE s4 000011536
+@DECLARE s5 000011609
+@DECLARE s6 000011669
+@DECLARE s7 000011803
+@DECLARE armour 000011900
+@DECLARE arstart 000011954
+@DECLARE weapons 000012287
+@DECLARE westart 000012341
+@DECLARE mybank 000012724
+@DECLARE stables 000015515
+@DECLARE stabletop 000015590
+@DECLARE sea 000018372
+@DECLARE healer 000019437
+@DECLARE doorguard 000019647
+@DECLARE startg 000019676
+@DECLARE sign 000023144
+@DECLARE enter 000023448
+@DECLARE done 000024791
+@DECLARE letmein 000026718
+@DECLARE done 000026797
+@NOCHECK
+; End of .REF index
+
+@#myhome
+@do moveback
+@Do saybar
+`%Make `#Q-Fortress `%your home? `8<`7y/N`8> :
+@do readspecial `s02 NY
+@if `s02 is Y then do
+ @begin
+ @do `p69 is 24
+ @do saybar
+ `#Q-Fortress `%is now your registered home.
+ @end
+@closescript
+
+@#potions
+@offmap
+@do moveback
+@do `v01 is 1
+@label postart
+@show
+`r0`c `%Potion Shop
+
+`2 Better buy some potions before you leave here.
+
+@do write
+`x`x
+@choice
+View Potions
+Go Outside
+@show
+`\
+@if responce is 1 the do begin
+ @begin
+@buymanager
+ 5
+ 40
+ 55
+ @end
+
+@if response not 2 then goto postart
+@drawmap
+@update
+
+
+@#Qitems
+@offmap
+@do moveback
+@do `v01 is 1
+@label qistart
+@show
+`r0`c `%Exotic Items
+
+`2 The items here are strange and wierd.
+
+@do write
+`x`x
+@choice
+View Items
+Go Outside
+@show
+`\
+@if responce is 1 the do begin
+ @begin
+@buymanager
+ 17
+ 50
+ 61
+ 51
+ @end
+
+@if response not 2 then goto qistart
+@drawmap
+@update
+
+
+@#Supplies
+@offmap
+@do moveback
+@do `v01 is 1
+@label sustart
+@show
+`r0`c `%Castle Supplies
+
+`2 Here you can prepare for a long journey.
+
+@do write
+`x`x
+@choice
+View Supplies
+Go Outside
+@show
+`\
+@if responce is 1 the do begin
+ @begin
+@buymanager
+ 1
+ 3
+ 43
+ 20
+ 28
+ @end
+
+@if response not 2 then goto sustart
+@drawmap
+@update
+
+
+@#waitress
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c`% `r1Q's Bar `r0
+
+`2 You take a seat at the nearest table.
+
+`k After about 5 minutes a the waitress approches you.
+
+`k "What'll it be"? she asks.
+
+`k
+
+@label waitstart
+@show
+`r0`c`% `r1 Time to get loaded! `r0
+
+`2 The waitress impatiently waits for your order.
+
+@do write
+`x`x
+@choice
+View Drinks
+Order a Drink
+Leave
+@
+
+@if responce is 1 then do
+ @begin
+ @show
+`r0`c `%Q's Bar!
+
+ `2The waitress hands you a menu so you can view the drinks.
+
+`k `2Water (`0$1`2)
+
+ `2What a rip! All this is is moat water!
+
+ `2Beer (`0$5`2)
+
+ `2This is rumored to be the finest beer in all the land!
+
+ `2Wizzard Piss (`0$10`2)
+
+ `2Now you to can have the mystical abilities of a wizard, its probably
+ not gonna work though!
+
+ `2Hard Liquor (`0$25`2)
+
+ `2After smelling a sample you realize its the same stuff burning in the
+ oil lamps!
+
+`k
+@do goto waitstart
+ @end
+
+ @if response is 2 then do
+ @begin
+ @do write
+`\`\ `2What do you want? (`0You have `$&money`2)`\`\`x`x
+ @do `v01 is 1
+ @choice
+Water ($1)
+Beer ($5)
+Wizard Piss ($10)
+Hard Liquor ($25)
+Leave
+@
+
+ @if response is 1 then do
+ @begin
+ @if money < 1 then do
+ @begin
+ @show
+`\`\ `4Whats your problem, You can't afford this!`\`\`k
+ @do `v01 is 2
+ @do goto waitstart
+ @end
+ @do money - 1
+ @show
+`r0`c `r1 Drink it! `r0`\`\ `2The waitress comes back with a mug of water,
+ and you guzzle it down.
+`\`k `2Whoa, for moat water it sure is refreshing.
+`\`k
+ @end
+
+ @if response is 2 then do
+ @begin
+ @if money < 5 then do
+ @begin
+ @show
+`\`\ `4Whats your problem, You can't afford this!`\`\`k
+ @do `v01 is 2
+ @do goto waitstart
+ @end
+ @do money - 5
+ @show
+`r0`c `r1 Drink it! `r0`\`\ `2The waitress brings you your beer.
+`\ This fine quality imported beer smells great!
+`\`k `2You quickly polish it off and want to order more!
+`\`k
+ @do `p96 + 2
+ @end
+
+ @if response is 3 then do
+ @begin
+ @if money < 10 then do
+ @begin
+ @show
+`\`\ `4Ha Ha, that's sad you can't even afford the piss water!`\`\`k
+ @do `v01 is 2
+ @do goto waitstart
+ @end
+ @do money - 10
+ @show
+`r0`c `r1 OH BOY! `r0`\`\ `2The waitress brings out your drink.
+`\ You carefully inspect the drink.
+`\`k `2It doesn't look like piss.
+`\`k `2It doesn't smell like it either.
+`\`k `2You chug it down without a second thought...
+`\`k `2DAMN! That's pretty good!
+`\`k
+ @do `p96 + 6
+ @end
+
+ @if response is 4 then do
+ @begin
+ @if money < 25 then do
+ @begin
+ @show
+`\`\ `4Get outa my face, you can't afford this!.`\`\`k
+ @do `v01 is 2
+ @do goto waitstart
+ @end
+ @do money - 25
+ @show
+`r0`c `r1 Here ya go! `r0`\`\ `2The waitress gives you the glass.
+`\ After smelling it again you are more confident this is what they're
+ burning in the oil lamps!
+`\`k `2But you already paid for it so...
+`\`k `2Wow, for lamp oil it ain't half bad!
+`\`k
+ @do `p96 + 10
+ @do `v01 is 3
+ @do goto waitstart
+ @end
+
+ @do `v01 is 2
+ @do goto waitstart
+ @end
+
+@drawmap
+@update
+
+@#bar
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c`% `r1Q's Bar `r0
+
+`2 You grab the nearest bar stool and wait for service.
+
+`k After about 5 minutes an old fat hairy guy approches you.
+
+`k "What's your poison"? He asks.
+
+`k
+
+@label barstart
+@show
+`r0`c`% `r1 Time to get loaded! `r0
+
+`2 The bar tender impatiently waits for your order.
+
+@do write
+`x`x
+@choice
+View Drinks
+Order a Drink
+Leave
+@
+
+@if responce is 1 then do
+ @begin
+ @show
+`r0`c `%Q's Bar!
+
+ `2While the bar tender is turned away scratching himself you look
+ at the labels.
+
+`k `2Water (`0$1`2)
+
+ `2What a rip all this is is moat water!
+
+ `2Beer (`0$5`2)
+
+ `2This is rumored to be the finest beer in all the land!
+
+ `2Wizzard Piss (`0$10`2)
+
+ `2Now you to can have the mystical abilities of a wizard, its probably
+ not gonna work though!
+
+ `2Hard Liquor (`0$25`2)
+
+ `2After smelling a sample you realize its the same stuff burning in the
+ oil lamps!
+
+`k
+@do goto barstart
+ @end
+
+ @if response is 2 then do
+ @begin
+ @do write
+`\`\ `2What do you want? (`0You have `$&money`2)`\`\`x`x
+ @do `v01 is 1
+ @choice
+Water ($1)
+Beer ($5)
+Wizard Piss ($10)
+Hard Liquor ($25)
+Leave
+@
+
+ @if response is 1 then do
+ @begin
+ @if money < 1 then do
+ @begin
+ @show
+`\`\ `4Whats your problem, You can't afford this!`\`\`k
+ @do `v01 is 2
+ @do goto barstart
+ @end
+ @do money - 1
+ @show
+`r0`c `r1 Drink it! `r0`\`\ `2The bar tender fills up the mug, and you
+ guzzle it down.
+`\`k `2Whoa, for moat water it sure is refreshing.
+`\`k
+ @end
+
+ @if response is 2 then do
+ @begin
+ @if money < 5 then do
+ @begin
+ @show
+`\`\ `4Whats your problem, You can't afford this!`\`\`k
+ @do `v01 is 2
+ @do goto barstart
+ @end
+ @do money - 5
+ @show
+`r0`c `r1 Drink it! `r0`\`\ `2The bar tender brings you your beer.
+`\ This fine quality imported beer smells great!
+`\`k `2You quickly polish it off and want to order more!
+`\`k
+ @do `p96 + 2
+ @end
+
+ @if response is 3 then do
+ @begin
+ @if money < 10 then do
+ @begin
+ @show
+`\`\ `4Ha Ha, that's sad you can't even afford my piss water!`\`\`k
+ @do `v01 is 2
+ @do goto barstart
+ @end
+ @do money - 10
+ @show
+`r0`c `r1 OH BOY! `r0`\`\ `2The bar tender brings out your drink.
+`\ You carefully inspect the drink.
+`\`k `2It doesn't look like piss.
+`\`k `2It doesn't smell like it either.
+`\`k `2You chug it down without a second thought...
+`\`k `2DAMN! That's pretty good!
+`\`k
+ @do `p96 + 6
+ @end
+
+ @if response is 4 then do
+ @begin
+ @if money < 25 then do
+ @begin
+ @show
+`\`\ `4Get outa my face, you can't afford this!.`\`\`k
+ @do `v01 is is 2
+ @do goto barstart
+ @end
+ @do money - 25
+ @show
+`r0`c `r1 Here ya go! `r0`\`\ `2The bar tender gives you the glass.
+`\ After smelling it again you are more confident this is what they're
+ burning in the oil lamps!
+`\`k `2But you already paid for it so...
+`\`k `2Wow, for lamp oil it ain't half bad!
+`\`k
+ @do `p96 + 10
+ @do `v01 is 3
+ @do goto barstart
+ @end
+
+ @do `v01 is 2
+ @do goto barstart
+ @end
+
+@drawmap
+@update
+
+@#ssign
+@do moveback
+@do saybar
+`0Team Inn ----->
+
+@#msign
+@do moveback
+@do saybar
+`0<----- Team Vault
+
+@#isign
+@do moveback
+@do saybar
+`4Doorguard`0: What are you lookin at!
+
+@#osign
+@do moveback
+@do saybar
+`4Doorguard`0: Go away kid, I'm busy!
+
+@#bsign
+@do moveback
+@do saybar
+`#Waitress: `0Go ahead and take a seat, I'll be with ya in a sec.
+
+
+@#tsign
+@do moveback
+@do saybar
+`0Please observe our imported northern trees.
+
+@#door
+ @do saybar
+ `0The Door Opens
+ @end
+
+@#F1
+ @do saybar
+ `4This place is like an oven! There are hot coals everywhere!
+ @end
+
+@#FG1
+@do moveback
+@do saybar
+`4OUCH! I BURNED MY HAND BECAUSE OF YOU!!!
+@end
+
+@#FG2
+@do moveback
+@do saybar
+`4GET OUTA HERE KID ITS TO HOT FOR YA!
+@end
+
+@#AS1
+@do moveback
+@do saybar
+`0Feel free to browse our displays.
+@end
+
+@#AS2
+@do saybar
+`0For some reason you feel safe here.
+@end
+
+@#A1
+@do moveback
+@do saybar
+`0Heavy Coat: Beautiful craftmanship! (+2)
+@end
+
+@#A2
+@do moveback
+@do saybar
+`0Leather Vest: Tough leather, nice. (+4)
+@end
+
+@#A3
+@do moveback
+@do saybar
+`0Chain Mail: Rugged construction. (+8)
+@end
+
+@#A4
+@do moveback
+@do saybar
+`0Plate Mail: Wow, prefection exists! (+15)
+@end
+
+@#A5
+@do moveback
+@do saybar
+`0Skull Helmet: Kind of scary lookin. (+20)
+@end
+
+@#A6
+@do moveback
+@do saybar
+`0Spiked Shirt: Keeps people away. (+30)
+@end
+
+@#hsign
+ @do moveback
+ @do saybar
+ `0<---- To Healers
+ @end
+
+@#sea1
+ @do saybar
+ `0The stairs seem to go down forever!
+ @end
+
+@#sea2
+ @do saybar
+ `0It must have taken years for the sea to carve this cave.
+ @end
+
+@#sea3
+ @do saybar
+ `0WOW, THAT CAVE IS HUGE!
+ @end
+
+@#sea4
+ @do moveback
+ @do saybar
+ `4DANGER! `0NO SWIMMING NEAR CAVE!
+ @end
+
+@#s1
+ @do saybar
+ `0Whew! This must be where they keep the horses!
+ @end
+
+@#s2
+ @do moveback
+ @do saybar
+ `0EEEWWWWW!!!! Its even steaming!
+ @end
+
+@#s3
+ @do saybar
+ `0DAMN! It stinks in here!
+ @end
+
+@#s4
+ @do moveback
+ @do saybar
+ `0AAHHH-CHOOOO! Stupid hay!
+ @end
+
+@#s5
+ @do moveback
+ @do saybar
+ `0Yummy, Oats!
+ @end
+
+@#s6
+ @do moveback
+ @do saybar
+ `0Mmmmm, Nothin like a big gulp of trough water! `%(You feel better.)
+ @do `p02 is `p03
+ @end
+
+@#s7
+ @do moveback
+ @do saybar
+ `0Wow, thats the smallest horse i've ever seen.
+ @end
+
+@#Armour
+@offmap
+@do moveback
+@do `v01 is 1
+@label arstart
+@show
+`r0`c `%Castle Armor
+
+`2 You can see the finest collection of armor in all the land!
+
+@do write
+`x`x
+@choice
+Examine Armor
+Go Outside
+@show
+`\
+@if responce is 1 the do begin
+ @begin
+@buymanager
+ 10
+ 12
+ 13
+ 14
+ 37
+ 59
+ @end
+
+@if response not 2 then goto arstart
+@drawmap
+@update
+
+@#weapons
+@offmap
+@do moveback
+@do `v01 is 1
+@label westart
+@show
+`r0`c `%Castle Weapons
+
+`2 Every possible weapon is in this place - you feel like a kid in a toy
+ store
+
+@do write
+`x`x
+@choice
+Examine Weaponry
+Nevermind
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 6
+ 4
+ 9
+ 15
+ 16
+ 38
+ 35
+ 36
+ 49
+ 39
+ 58
+ @end
+
+@if responce not 2 then goto westart
+@drawmap
+@update
+
+@#MYBANK
+;team treasury
+@do moveback
+@do `p20 is 0
+@if qtres.dat exist true then do
+ @begin
+ @readfile qtres.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile qtres.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete qtres.dat
+ @writefile qtres.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile qcastle.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `9Q's Fortress`0 Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile tres2.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete qtres.dat
+ @writefile qtres.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile qcastle.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `9Q's Fortress`0 Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+
+@#STABLES
+;lets them warp to a view places
+@offmap
+@do moveback
+@label stabletop
+@show
+`r0`c `r1 Travel `r0
+
+
+ `0"Greetings, s&sir! We sell horses here, we no longer offer transport
+ `0services.
+
+@do `v01 is 1
+@do move 15 9
+@choice
+`#Why a horse? `%
+-`t79 1 `$Buy a horse `%
++`t79 1 `4Sell your horse`%
+`%Leave `%
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `0A horse you ask?`\
+ If your horse is healthy and well kept, you can get to your
+ destinations much quicker than by foot.
+
+ You MUST take good care of your horse if you want to keep it
+ around, or resell someplace else.
+
+ `7<To mount your horse, press "`%Z`7" from the map screen>
+ @key
+ @do goto stabletop
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ `0It costs `$$9,000 `0here for a healthy horse.
+`\ Do you still want to buy it?`\
+@choice
+`$Forget it
+>&money 8999 `$Yes
+@if responce is 2 then do
+ @begin
+ @do money - 9000
+ @do `t80 is 255
+ @bitset `t79 1 1
+ @show
+`\`0Ok, you now have a healthy horse. Have fun!`\`k
+ @end
+ @do goto stabletop
+ @end
+@if responce is 3 then do
+ @begin
+ @do `p21 is `v10
+ @do `p21 / 2
+ @do `p22 is `v11
+ @if `t80 > 50 then do
+ @begin
+ @do `p20 is 55
+ @end
+ @if `t80 > 75 then do
+ @begin
+ @do `p20 is 510
+ @end
+ @if `t80 > 100 then do
+ @begin
+ @do `p20 is 1100
+ @end
+ @if `t80 > 125 then do
+ @begin
+ @do `p20 is 2100
+ @end
+ @if `t80 > 150 then do
+ @begin
+ @do `p20 is 3100
+ @end
+ @if `t80 > 175 then do
+ @begin
+ @do `p20 is 4100
+ @end
+ @if `t80 > 200 then do
+ @begin
+ @do `p20 is 5100
+ @end
+ @if `t80 > 225 then do
+ @begin
+ @do `p20 is 7100
+ @end
+
+ @if `p22 > `p21 then do
+ @begin
+ @if `t80 > 200 then do
+ @begin
+ @do `p20 + 450
+ @end
+ @if `t80 > 100 then do
+ @begin
+ @do `p20 + 270
+ @end
+ @end
+ @if `p22 < `p21 then do
+ @begin
+ @if `t80 > 200 then do
+ @begin
+ @do `p20 + 400
+ @end
+ @if `t80 > 100 then do
+ @begin
+ @do `p20 + 210
+ @end
+ @end
+
+ @routine horsehp in vehicle.ref
+ @show
+`\`\ `0I will buy your `%`s02 `0horse for `$`p20.
+`\ Do you still want to sell it?`\
+@do `v01 is 1
+@choice
+`$Forget it
+`$Yes
+@if responce is 2 then do
+ @begin
+ @do money + `p20
+ @do `t80 is 0
+ @bitset `t79 1 0
+ @show
+`\`0Thanks! Come again.`\`k
+ @end
+ @do goto stabletop
+ @end
+@drawmap
+@update
+
+@#SEA
+;lets them warp to a view places
+@offmap
+@do moveback
+@show
+`r0`c `r1 Sea Travel `r0
+
+ `0"Greetings,! "Where is it that you'd like to go?" The harbor master
+ asks.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+PortTown
+Sosen Village
+ArrisVille
+FlagCity
+I think I'll stay here
+@if response not 5 then do
+ @begin
+@show
+`\`\ `0"We will leave whenever you're ready sir." he says.
+
+`k `2It is a long journey but you finally arrive.
+
+ `0"We have arrived at our destination `N `0. I'm heading back now."
+
+ `2You are glad to be rid of him.
+
+`k
+@if responce is 1 then do
+ @begin
+ ;PortTown
+ @do x is 38
+ @do y is 2
+ @do map is 152
+ @end
+
+@if responce is 2 then do
+ @begin
+ ;Sosen Village
+ @do x is 40
+ @do y is 18
+ @do map is 536
+ @end
+
+@if responce is 3 then do
+ @begin
+ ;ArrisVille
+ @do x is 66
+ @do y is 19
+ @do map is 444
+ @end
+
+@if response is 4 then do
+ @begin
+ ;Flagcity
+ @do x is 37
+ @do y is 15
+ @do map is 71
+ @end
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+
+@#HEALER
+;free heal
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Healers `r0
+
+ `2The doctor gives you a potion and...
+
+`k `%YOU ARE COMPLETELY HEALED.
+
+`k
+@do `p02 is `p03
+@drawmap
+@update
+
+@#doorguard
+@do moveback
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+@if qcastle.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to vacate this castle!" `2the guard barks.
+ @closescript
+ @end
+
+@readfile qcastle.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the door guard, nice of him to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The huge doorguard snaps to attention when he sees you are going to
+ address him.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+Leave
+@
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$25000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep `9Q's Fortress`2 - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give `9Q's Fortress `2to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep `9Q's Fortress`2 - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete qcastle.dat
+ @writefile qcastle.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of `9Q's Fortress`2 to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `9Q's Fortress`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transferred. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your castle back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep `9Q's Fortress`2 - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete qcastle.dat
+ @do money + 25000
+ @show
+`\`\ `%CASTLE SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `9Q's Fortress`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\
+ @do write
+ `0 `2(enter `4ALL`2 for access to everyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete qcastle.dat
+ @writefile qcastle.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#sign
+@do moveback
+
+ @if qcastle.dat exist false then do
+ @begin
+ @do saybar
+`9Q's Fortress`2 - For sale cheap, inquire inside.
+ @end
+
+@if qcastle.dat exist true then do
+ @begin
+@readfile qcastle.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+@#enter
+@do moveback
+@offmap
+@if qcastle.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `9Q's Fortress`2 was formerly owned by one of the greatest warriors
+ in the realm
+
+ Buy now and receive the following bonuses:
+
+ `0* `2A private stable service! With drop off points in `0Bone Town`2
+ and `0GreenTree`2!
+
+ `0* `2Aprivate sea travel service! With docking points in `0Flagcity`2
+ and `0ArrisVille`2!
+
+ `0* `2Also, a many rooms for guests who stay the night!
+
+ `2The asking price is `$$50,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 49999 Purchase it.
+<&money 50000 Go back and work up so more money since you don't have enough.
+>&money 49999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if qcastle.dat exist true then do
+ @begin
+ @show
+`\`\ `2You idiot! Someone bought it while you were still thinking about it.
+ You will regret your slow decision making for the rest of your life.`\`\`k
+ @do goto done
+ @end
+
+ @writefile qcastle.dat
+&playernum
+ALL
+0
+0
+0
+0
+ @do money - 50000
+ @do addlog
+ `0`n `2buys `9Q's Fortress`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Excellent! You now own this `9Q's Fortress`2!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile qcastle.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete qcastle.dat
+ @do addlog
+ `9Q's Fortress`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is ALL then do
+ @begin
+ @show
+`r0`c
+`\`\ `0"Welcome to `9Q's Fortress`0,"`2 the guard smiles as he opens
+the gate.`\`\`k
+ @do goto letmein
+ @end
+
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+ `4Damn!
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops over the gate. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2the door guard asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `9Q's Fortress`0,"`2 the guard smiles as he opens
+the gate.`\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `9Q's Fortress Reports`0:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The guard doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein
+@do x is 40
+@do y is 19
+@do map is 835
+@loadmap 835
+@do goto done
+@#done
+
+
diff --git a/xtrn/lord2/cnw/quest.ref b/xtrn/lord2/cnw/quest.ref
new file mode 100644
index 0000000000000000000000000000000000000000..49acd3568809199159d3d100c7ac4b8fe42e564c
--- /dev/null
+++ b/xtrn/lord2/cnw/quest.ref
@@ -0,0 +1,283 @@
+; Script file QUEST.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:15 2001
+
+@DECLARE getname 000000456
+@DECLARE getplace 000000880
+@DECLARE getitem 000001335
+@DECLARE complete 000001535
+@DECLARE getquest 000003221
+@DECLARE tryagain 000003360
+@NOCHECK
+; End of .REF index
+
+;the random quest stuff is handled in this .ref.. it is fairly complicated
+;so be carefull if you try to change it.. I'm going to be adding more
+;later.
+
+@#GETNAME
+@do `s01 is `bNo`xname?
+@if `p20 is 1 then `s01 is The`xBartender
+@if `p20 is 2 then `s01 is Smithy
+@if `p20 is 3 then `s01 is Nickabrick
+@if `p20 is 4 then `s01 is Selena
+@if `p20 is 5 then `s01 is Basil
+@if `p20 is 6 then `s01 is Corin
+@if `p20 is 7 then `s01 is Aquaman
+@if `p20 is 8 then `s01 is `4Pyramid
+@if `p20 is 9 then `s01 is `3Spr`7ing`4Fa`6ng
+@if `p20 is 10 then `s01 is The`xBartender
+
+@#GETPLACE
+@do `s03 is `bNo`xplace?
+@if `p20 is 1 then `s03 is Greentree
+@if `p20 is 2 then `s03 is PortTown
+@if `p20 is 3 then `s03 is FlagCity
+@if `p20 is 4 then `s03 is BoneTown
+@if `p20 is 5 then `s03 is Sosen`xVillage
+@if `p20 is 6 then `s03 is Arrisville
+@if `p20 is 7 then `s03 is The`xSword`xCastle
+@if `p20 is 8 then `s03 is `4Pyramid's`xPlace
+@if `p20 is 9 then `s03 is House`xof`xWonders
+@if `p20 is 10 then `s03 is Scorpians`xDen
+
+@#GETITEM
+@if `p21 is 1 then `s02 is sack
+@if `p21 is 2 then `s02 is satchel
+@if `p21 is 3 then `s02 is small`xbag
+@if `p21 is 4 then `s02 is letter
+@if `p21 is 5 then `s02 is small`xpurse
+
+
+@#complete
+;completes quest
+@routine getname
+@do `s05 is `s01
+;current guys name is in `s05
+
+@routine getplace
+;place put in `s03
+
+@do `p21 is `p17
+@routine getitem
+;item put in `s02
+
+
+@show
+`r0`c `r1 `%Speedy delivery! `r0
+`\`2 `0"Yes? Can I help you, friend?" `2asks `s05.
+
+`2 `$"Yeah. Take this `s02 and pay me!"
+
+`k `0"I've been waiting for this! Thank you, `%`n`0!"
+
+ `2You are paid `$$`p16`2!
+
+@
+;reset quest stuff
+;give money
+@do money + `p16
+;add one to quests completed var
+@do `p18 + 1
+@do `p14 is 0
+@do `p15 is 0
+@do `p16 is 0
+@do `p17 is 0
+@do `i44 is 0
+@do `i45 is 0
+@do `i46 is 0
+@do `i47 is 0
+@do `i48 is 0
+
+@if `p32 is 0 then do
+ @begin
+ ;woah, they delivered the item same day
+@do `p20 random 1 1
+@if `p20 is 1 then do
+ @begin
+ @do `p20 random 5 1
+
+ @if `p20 is 1 then do
+ @begin
+ @do `p08 + 1
+ @show
+ `0QUEST BONUS: `%One extra charm point!
+
+ @end
+ @if `p20 is 2 then do
+ @begin
+ @do `p03 + 3
+ @show
+ `0QUEST BONUS: `%Three extra hitpoints!
+
+ @end
+
+ @if `p20 is 3 then do
+ @begin
+ @do `p04 + 1
+ @show
+ `0QUEST BONUS: `%An extra Muscle Point!
+
+ @end
+
+ @if `p20 is 4 then do
+ @begin
+ @do `p05 + 1
+ @show
+ `0QUEST BONUS: `%An extra Dodge Point!
+
+ @end
+
+ @if `p20 is 5 then do
+ @begin
+ @do `p19 + 1
+ @show
+ `0QUEST BONUS: `%A free gem for your troubles!
+
+ @end
+
+ @end
+ @end
+@do addlog
+ `r2 `r0 `0`n`2 has made a successful delivery in `0`s03`2. `r2 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@show
+ `%QUEST COMPLETED.
+`\`k
+@drawmap
+@update
+
+@#GETQUEST
+;gets a random quest or completes it.
+@do `p26 is `p20
+
+@if `p26 is `p15 then do
+ @begin
+ @run complete
+ @end
+
+@label tryagain
+;get destination and dest name
+@do `p20 random 10 1
+
+
+@do `p22 is `p20
+@routine GETPLACE
+@routine GETNAME
+@do `s04 is `s01
+
+;get name of sender
+@do `p20 is `p26
+@routine GETNAME
+
+;get item
+@do `p21 random 5 1
+@routine GETITEM
+
+;generate price for doing it
+
+@do `p25 random 800 300
+@do `p24 is `p18
+@do `p24 * 3
+@do `p25 + `p24
+
+@if `p14 = `p20 then do
+ @begin
+ @do `p21 is `p17
+ @routine GETITEM
+ @show
+`r0`c `r1 `%Asking for a job `r0
+`\`2 `s01 `2looks suprised. `0"What are you doing around here? Go
+ deliver my `s02!"
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+@if `p15 > 0 then do
+ @begin
+ @show
+`r0`c `r1 `%Asking for a job `r0
+`\`2 You sort of already have a quest - you will need to complete that
+ delivery before you attempt another!
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+
+@if `p31 < 1 then do
+ @begin
+ @do `p31 is 0
+ @show
+`r0`c `r1 `%Asking for a job `r0
+`\`2 `0"Sorry, `%`n`0. I have nothing for you today, maybe
+ tomorrow, ok?" `2`s01 tells you.
+
+`2 (only `0`v07`2 quest opportunities per day are allowed)
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+;make sure they don't get a quest to go to where they are
+@if `p20 is `p22 then goto tryagain
+
+
+@do `p31 - 1
+
+
+@show
+`r0`c `r1 `%Asking for a job `r0
+
+ `0"Actually, `%`n`0.. there is something you could do."
+
+ `2`s01 points to a `0`s02`2 sitting on the table.
+
+ `0Would you deliver this to `#`s04`0 in `#`s03`0 for `$$`p25`0?"
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, I accept this quest
+Forget it
+@if response is 1 then do
+ @begin
+ @do `p14 is `p20
+ @do `p15 is `p22
+ @do `p16 is `p25
+ @do `p17 is `p21
+ @if `p17 is 1 then `i44 + 1
+ @if `p17 is 2 then `i45 + 1
+ @if `p17 is 3 then `i46 + 1
+ @if `p17 is 4 then `i47 + 1
+ @if `p17 is 5 then `i48 + 1
+ @do `p32 is 0
+ @show
+`\`\ `2You agree to make the delivery.
+
+ `0`s01`2 hands you the `0`s02`2!
+
+ `%QUEST STARTED.
+
+`k
+ @drawmap
+ @update
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"My, but you're a picky one. Perhaps I'll have something else for
+ you to do later."
+`\`k
+ @drawmap
+ @update
+ @end
+
+
diff --git a/xtrn/lord2/cnw/quester.ref b/xtrn/lord2/cnw/quester.ref
new file mode 100644
index 0000000000000000000000000000000000000000..91bc4cb94a1b2dbaac0475b7ed9136ec4cd0b5f9
--- /dev/null
+++ b/xtrn/lord2/cnw/quester.ref
@@ -0,0 +1,555 @@
+; Script file QUESTER.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:31 2001
+
+@DECLARE oneaday 000000830
+@DECLARE oneaday2 000001056
+@DECLARE elfaday 000001547
+@DECLARE main1 000001751
+@DECLARE nomore 000002265
+@DECLARE main2 000002276
+@DECLARE nomore 000003281
+@DECLARE circle 000003293
+@DECLARE spiderking 000004385
+@DECLARE batking 000004941
+@DECLARE undeadking 000005395
+@DECLARE goblinking 000005792
+@DECLARE magicking 000006196
+@DECLARE finquest 000006583
+@DECLARE endquest 000008784
+@DECLARE noswim 000009388
+@DECLARE swim 000009474
+@DECLARE nomore 000011321
+@NOCHECK
+; End of .REF index
+
+; -=Quester Ver. 1.00=-
+; A Lord II IGM
+; Brought to you by the creator of Odin's Keep
+; oDiN
+
+@#ONEADAY
+@do moveback
+@show
+`r0`c `0-`2=`0- `%Tomorrow `0-`2=`0-
+
+ `0"Come back tomorrow to start another quest !"
+
+ "I certainly hope that you have enjoyed today's quest."
+
+ `0-`4oDiN
+`\`k
+@drawmap
+@update
+
+@#ONEADAY2
+@do moveback
+@show
+`r0`c `0-`2=`0- `%The Magic Flute `0-`2=`0-
+
+ `2Gira Leafbender pops out of nowhere.
+
+ `0"So `%`n`0, you used your magic flute huh?"
+
+ "You've really gone and done it now! I'm going to have send you back to
+ the beginning of Quester and relocate both you and your flute position
+ there!"
+`\`k
+ @do `t15 = 47
+ @do `t16 = 3
+ @do `p36 = 1115
+
+ @do x is 47
+ @do y is 3
+ @do map is 1115
+ @loadmap &map
+
+
+@drawmap
+@update
+
+
+@#ELFADAY
+@show
+`r0`c
+
+ `0"`lFarewell `%`n `0and good luck !" `2Gira exclaim`ls
+ `l`l`l
+`\`k
+@drawmap
+@update
+
+@#MAIN1
+@datanewday quest.idf
+@dataload quest.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto ONEADAY
+@end
+
+@datasave quest.idf &playernum 1
+
+@show
+`r0 `c
+ `$<<<<< `r1 `%`lQ`lu`le`ls`lt`le`lr `lV`l2`l.`l0`l1 `r0 `$>>>>>
+
+ `%brought to you by
+
+ `0-`2=`0- `@`lo`lD`li`lN `0-`2=`0-
+
+
+`\`k
+`k
+@do `p02 is `p03
+ @do x is 44
+ @do y is 19
+ @do map is 1212
+ @loadmap &map
+
+@drawmap
+@update
+@#NOMORE
+
+@#MAIN2
+@datanewday gira.idf
+@dataload gira.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto ELFADAY
+@end
+
+@datasave gira.idf &playernum 1
+
+@show
+`r0`c `0-`2=`0- `%Leafbender `0-`2=`0-
+
+ `2As you walk into the clearing a sense of peace and healing overcomes
+ you. An elf pops out of nowhere.
+ `l`l`l
+`\`k
+ `0"Welcome `%`n`0, I'm Gira Leafbender your Quest maker, when you're
+ ready to begin your quest just step in the circle of stones."
+
+ "There are many quests but you are allowed but one per day. I choose
+ the quest you will attempt. Once a quest has started the only exit
+ you will find is at the end of the path."
+
+ "Stay alert on the path, be prepared to face all manner of evil. If you
+ are brave you will receive a reward at the end of your quest."
+ `l`l`l`l`l
+`\`k
+ `2You make your decision, turn and bid Gira farewell.
+`\`k
+ `0"Farewell Quester! May luck go with you." `2Gira responds.
+ `l`l`l`l
+`\`k
+@drawmap
+@update
+@#NOMORE
+
+@#CIRCLE
+@datanewday quest2.idf
+@dataload quest2.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto ONEADAY2
+@end
+@datasave quest2.idf &playernum 1
+@show
+`r0`c `0-`2=`0- `%Circle of Stones `0-`2=`0-
+
+ `2As you step into the circle of stones, the stones begin to glow `9blue`2.
+ A `9blue `2aura engulfs you. When the light subsides you find yourself in
+ unfamiliar territory.
+ `l`l`l`l`l
+`\`k
+
+@do `p21 random 5 1
+@if `p21 is 1 then do
+ @begin
+ ;Land of Spider
+ @do x is 73
+ @do y is 19
+ @do map is 1213
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ ;Land of Bat
+ @do x is 74
+ @do y is 18
+ @do map is 1214
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ ;Land of Undead
+ @do x is 4
+ @do y is 18
+ @do map is 1384
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ ;Land of Majic
+ @do x is 4
+ @do y is 2
+ @do map is 1386
+ @end
+
+@if `p21 is 5 then do
+ @begin
+ ;Land of Goblins
+ @do x is 4
+ @do y is 3
+ @do map is 1385
+ @end
+
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#SPIDERKING
+@do moveback
+@datanewday quest1.idf
+@dataload quest1.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto ONEADAY2
+@end
+@datasave quest1.idf &playernum 1
+@show
+`r0`c `0`l-`2`l=`0`l- `%Spider King `0`l-`2`l=`0`l-
+
+
+ `2Before you stands the biggest spider you've ever seen. It's fangs are gleaming
+ black and poison drips off their tips.
+
+ You stand horrified as the bulky creature slowly approaches. Looks like it's
+ time for you to finish this quest before it finishes you.
+ `\`k
+ @run SPIDERFIGHT in SPIDER.REF
+
+
+@#BATKING
+@do moveback
+@datanewday quest1.idf
+@dataload quest1.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto ONEADAY2
+@end
+@datasave quest1.idf &playernum 1
+@show
+`r0`c `0`l-`2`l=`0`l- `%Vampire `0`l-`2`l=`0`l-
+
+
+ `0"Prepare for death, mortal." `2a sinister voice echos behind you.
+
+ As you turn around you are face to face with a dark creature of the night
+ known as a Vampire.
+ `\`k
+ @run BATFIGHT in BAT.REF
+
+@#UNDEADKING
+@do moveback
+@datanewday quest1.idf
+@dataload quest1.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto ONEADAY2
+@end
+@datasave quest1.idf &playernum 1
+@show
+`r0`c `0`l-`2`l=`0`l- `%Skeleton King `0`l-`2`l=`0`l-
+
+
+ `2You feel a chill run down your back as you see a rather wicked looking
+ skeleton approaching you.
+ `\`k
+ @run UNDEADFIGHT in UNDEAD.REF
+
+@#GOBLINKING
+@do moveback
+@datanewday quest1.idf
+@dataload quest1.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto ONEADAY2
+@end
+@datasave quest1.idf &playernum 1
+@show
+`r0`c `0`l-`2`l=`0`l- `%Goblin King `0`l-`2`l=`0`l-
+
+
+ `2You stop in your tracks when you see this foul creature of evil, you
+ get your `4s&weapon `2ready for battle.
+`\`k
+@run GOBLINFIGHT in GOBLIN.REF
+
+@#MAGICKING
+@do moveback
+@datanewday quest1.idf
+@dataload quest1.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto ONEADAY2
+@end
+@datasave quest1.idf &playernum 1
+@show
+`r0`c `0`l-`2`l=`0`l- `%Wizard King `0`l-`2`l=`0`l-
+
+
+ `2Before you stands a very powerful magic user. He begins to mumble and
+ chant preparing for a spell.
+`\`k
+@run MAGICFIGHT in MAJIC.REF
+
+@#FINQUEST
+@do talk `4Newsflash:`0`x`n`x`2has`xdefeated`x`0`e`2! all
+@do addlog
+ `0`n`2 has defeated the `4`e`2, completing s&his quest in `%Quester`2!
+@routine seperate in gametxt.ref
+@busy
+@show
+`r0`c `0`l-`2`l=`0`l- `%Quest Completed `0`l-`2`l=`0`l-
+
+
+ `2Gira Leafbender appears suddenly.
+
+ `0"Excellent job on completing your quest, `$`n `0!
+
+ Now for your reward, you shall receive `$`w.`w.`w.`w. `%2 QUEST POINTS `0!
+ `l`l`l`l`l
+`\`k
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p04 + 1
+ @show
+ `0"Also, for your bravery you gain `$.`w.`w.`w.`w.`w.`w.`w.
+
+ `w.`w.`w.`w.`w.`w.`w.`w. `%1 MUSCLE POINT `0!"
+`\`k
+ `0"Come back tomorrow and complete another quest !"
+
+ `2The elf leads you back to the main entrance.
+ `l`l`l`l`l`l`l
+ `\`k
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `p05 + 1
+ @show
+ `0"Also, for your bravery you gain `$.`w.`w.`w.`w.`w.`w.`w.
+
+ `w.`w.`w.`w.`w.`w.`w.`w. `%1 DODGE POINT `0!"
+`\`k
+ `0"Come back tomorrow and complete another quest !"
+
+ `2The elf leads you back to the main entrance.
+ `l`l`l`l`l`l
+`\`k
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+ @show
+ `0"Also, for your bravery you gain `$.`w.`w.`w.`w.`w.`w.`w.
+
+ `w.`w.`w.`w.`w.`w.`w.`w. `%1 GEM `0!"
+`\`k
+ `0"Come back tomorrow and complete another quest !"
+
+ `2The elf leads you back to the main entrance.
+ `l`l`l`l`l`l`l
+`\`k
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 + 1
+ @show
+ `0"Also, for your bravery you gain `$.`w.`w.`w.`w.`w.`w.`w.
+
+ `w.`w.`w.`w.`w.`w.`w.`w. `%1 HITPOINT `0!"
+`\`k
+ `0"Come back tomorrow and complete another quest !"
+
+ `2The elf leads you back to the main entrance.
+ `l`l`l`l`l`l`l`l
+`\`k
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 + 1
+ @show
+ `0"Also, for your bravery you gain `$.`w.`w.`w.`w.`w.`w.`w.
+
+ `w.`w.`w.`w.`w.`w.`w.`w. `%1 CHARM POINT `0!"
+ `\`k
+ `0"Come back tomorrow and complete another quest !"
+
+ `2The elf leads you back to the main entrance.
+ `l`l`l`l`l`l`l`l
+`\`k
+ @end
+
+
+ @do `p18 + 2
+ @do x is 47
+ @do y is 3
+ @do map is 1115
+ @loadmap &map
+
+@drawmap
+@update
+
+@#ENDQUEST
+@do talk `4Newsflash:`0`x`n`x`2has`xchickened`xout`xof`xfighting`x`0`e`2! all
+@do addlog
+ `0`n`2 has chickened out of fighting `4`e`2! in `%Quester
+@routine seperate in gametxt.ref
+@show
+`r0`c `0-`2=`0- `%`n `%runs from `4`e `%! `0-`2=`0-
+
+
+ `2Gira Leafbender appears suddenly.
+
+ `0"Because you ran from battle, you will receive nothing for completing
+ your quest. Maybe next time." `2he exclaims.
+`\`k
+ `2The elf leads you back to the main entrance.`l.`l.`l.`l.`l.`l.`l.`l.`l.
+ @do x is 47
+ @do y is 3
+ @do map is 1115
+ @loadmap &map
+
+@drawmap
+@update
+
+@#NOSWIM
+@do moveback
+@do saybar
+`%You are tired of swimming ! Maybe tomorrow ...
+
+@#SWIM
+@do moveback
+@offmap
+@datanewday swimb.idf
+@dataload swimb.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto NOSWIM
+@end
+
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`2Do you want to go swimming ? `2[`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+@if `s01 is Y then do
+
+@begin
+@clear screen
+@do move 1 1
+@if &sex is 1 then do
+ @begin
+ @display MDIVE in people.ref
+ @end
+@if &sex is 0 then do
+ @begin
+; @display WDIVE in people.ref
+ @display MDIVE in people.ref
+ @end
+@do move 40 2
+@do write
+`r0 `r1 `%The Magic Swimming Hole `r0
+@do move 40 4
+@do write
+`2You take off all of your clothes
+@do move 40 5
+@do write
+ and jump into the water.`l`l
+@key bottom
+@do move 40 7
+@do write
+`2After swimming around, you get out of
+@do move 40 8
+@do write
+"`9Tiny Lake`2," dry off and get dressed.`l
+@key bottom
+@do move 40 12
+@do write
+`2The swimming seems to have done you
+@do move 40 13
+@do write
+ good because `l.`l.`l.`l.`l.`l.`l.
+
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+ @begin
+ @do `p04 + 1
+@do move 40 15
+@do write
+`%YOU FEEL STRONGER !
+@key bottom
+ @end
+
+
+@if `p21 is 2 then do
+ @begin
+ @do `p05 + 1
+@do move 40 15
+@do write
+`%YOU FEEL MORE AGILE !
+@key bottom
+ @end
+
+@if `p21 is 3 then do
+ @begin
+ @do `p19 + 1
+@do move 40 15
+@do write
+`%YOU FOUND A GEM AT THE BOTTOM!
+@key bottom
+ @end
+
+@if `p21 is 4 then do
+ @begin
+ @do `p03 + 1
+@do move 40 15
+@do write
+`%YOU GAIN 1 EXTRA HITPOINT !
+@key bottom
+ @end
+
+
+@if `p21 is 5 then do
+ @begin
+ @do `p08 + 1
+@do move 40 15
+@do write
+`%YOU GAIN 1 EXTRA CHARM POINT !
+@key bottom
+ @end
+
+@datasave swimb.idf &playernum 1
+@drawmap
+@update
+@closescript
+@end
+@do saybar
+`%You are tired of swimming ! Maybe tomorrow ...
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/rdfight.ref b/xtrn/lord2/cnw/rdfight.ref
new file mode 100644
index 0000000000000000000000000000000000000000..410e23a498b498475803d6f39a0adecdeec3053f
--- /dev/null
+++ b/xtrn/lord2/cnw/rdfight.ref
@@ -0,0 +1,522 @@
+; Script file RDFIGHT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:32 2001
+
+@DECLARE redtalk 000000627
+@DECLARE redpic 000002865
+@DECLARE redfight 000009225
+@DECLARE redwin 000009883
+@DECLARE done 000010232
+@DECLARE run 000010241
+@DECLARE finish 000010353
+@DECLARE fight 000010364
+@DECLARE monster1 000010421
+@DECLARE monster2 000010985
+@DECLARE monster3 000011630
+@DECLARE monster4 000012215
+@DECLARE monster5 000012805
+@DECLARE monster6 000013411
+@DECLARE monster7 000014006
+@DECLARE monster8 000014632
+@DECLARE monster9 000015201
+@DECLARE done 000015794
+@NOCHECK
+; End of .REF index
+
+@#REDTALK
+@show
+`r0`c `r1 `%Talking to the `4Red Dragon `r0
+
+ `4"Well, well, look who we have here, a curious little boy
+
+`k `%"Who are you to call me a little boy?!" `2you reply.
+
+`k `4"Perhaps I should introduce myself, I am the Red Dragon."
+
+`k `%"Come on, I know the `4Red Dragon `%is dead, you think you're trying
+ to fool me?" You interrogate.
+
+`k `4"I already have, you see I wasn't really dead, but in the eyes of you
+ pathetic mortals, I was." he replies without hesitation.
+
+`k `%"I still don't understand, my mother told me the story of when she was
+ a little girl and was in the bar with her mother when a warrior covered
+ in blood stumbled in holding the heart of the `4Red Dragon `%in his hand."
+ You say with pride.
+
+`k `4"That's what I mean by you humans thinking I was dead..."
+
+`k `%"Explain" you interrupt.
+
+`k `4"Well, when that 'Warrior' approached me with anger in his eyes, I just
+ fried him with one blast of my fire, he was extremely lucky to be living,
+ so I made a deal with him..." he tells you
+
+`k `%"What kind of deal?" you interrupt rudely...again
+
+`k `4"I guess you could call it a death threat...anyway I made a deal with
+ him that if I didn't steal anymore children from the town that he HAD to
+ make sure that no one would ever bother me again...or make it seem like
+ to the towns people that I was dead...but when it came to that we were
+ stuck trying to find a way to make it look like he killed me, then we
+ came up with the idea of getting a sheep and taking out it's heart, and
+ that's what he showed the people in the bar..."
+
+`k `%"So what Barak said was true...and no one even listened..." you say to
+ yourself out loud
+
+`k `4"And the blood that covered him was either his own from when I fried him,
+ or from the sheep which we smeared it's blood all over him." He concludes
+
+`k `%"So you've been hiding all this time? Wow!" you say with awe, "I can't
+ wait to tell my mom about this..."
+
+`k `4"You see that's where you're wrong boy, now you must DIE! Like all those
+ other souls that were lost to me..." he shouts in vain.
+
+@KEY
+@clear screen
+@end
+@do goto redpic
+
+@#REDPIC
+@pauseoff
+@show
+[A[47C [0m��[1;47m�[40m�� [0m���[1m� [0;31m�[1;41m��� [40m
+[A[68C[41m[0;31m�[41m [1m� [0;31m�
+[16C[37m�[22C�[1;47m�[40m� [0m�[1;47m���[40m�[8C[0m�[1;47m��[40m
+[A[61C[47m[40m� [0;31m�[1;41m�� [C� � �[0;31m�
+[15C[37m�[1;30;47m�[0m�[19C�[1;47m��[40m� [0m�[1;47m���[40m�
+[A[47C[12C[0m�[1;47m���[40m� [0;31m�[1;41m��� [0;31m��[1;41m���[40m
+[A[75C[41m���[40m
+[15C[0m��[19C[1;47m���[40m� [0m�[1m�[41m�[0;31m����[41m [40m��
+[A[51C� ������[1;41m�[0;31m�[1;41m�[0;31m�[41m [C[40m�[1;41m�[40m
+[A[69C[41m� �[C������[40m
+[A[79C[0;31m [14C[37m�[1;30;47m�[19C[0m��[1m�[0;31m��[41m [40m
+[A[41C[41m[40m��� ��[41m [40m��[41m [40m��� �� [1;41m� ���[40m
+[A[66C[41m[0;31m� �[1;41m�� [C������[40m
+[A[79C[0;31m [14C[37m�[1;30;47m�[18C[0m� [31m�[41m [40m� ���
+[A[45C[41m [40m���[6C���� [1;41m� ��� [0;31m� �[1;41m��[0;31m�
+[A[74C�[1;41m� ��[40m
+[A[79C[0;31m [15C[1;30;47m�[0m�[16C� [31m�[41m [C[40m�[41m [40m
+[A[42C[41m [40m��� �[41m [40m��[8C[1;41m� ����[C���[C[40m
+[A[75C[41m[0;31m���[1;41m�[40m
+[A[79C[0;31m [15C[1;30;47m�[0m�[1;30;47m�[14C[0;31m��[41m [40m
+[A[37C[41m[40m�[41m [40m۲���� �� �[12C[1;41m� ���[2C���[C���[40m
+[A[79C[0;31m [16C[37m���[9C[31m�[41m [40m�[41m [40m���
+[A[43C� ��[41m [40m��[41m [40m� ��[41m [40m���� [1;41m� ���[40m
+[A[71C[41m[C�� [0;31m�[1;41m���[40m
+[A[79C[0;31m [16C[37m�[1;30;47m��[0m�[7C[31m�[41m [1m� [40m
+[A[32C[41m[0;31m� [41m [40m���[41m [40m�� ��� �[41m [40m
+[A[58C[41m[40m���[6C[1;41m� ��[C[0;31m�[1;41m���[C��[40m
+[A[79C[0;31m [15C[37m�[1;30;47m��[0m�[7C[31m�[41m [1m�[0;31m�
+[A[30C� [41m [40m��[41m [40m�� ߲[7C[1;41m���[40m
+[A[71C[41m�[C�� �[C�[40m
+[A[79C[0m [15C�[1;30;47m�[0m�[6C[31m��[1;41m��[0;31m� [5;1;32m
+[A[30C��� [0;31;41m [40m�[41m [40m��[41m [40m��
+[A[56C[41m [40m� �����[1;41m���[0;31m� [1;41m�� [C�[40m
+[A[79C[0;31m [14C[37m�[1;30;47m�[0m�[6C[31m�[41m [1m� [2C[40m
+[A[29C[41m[5;32;40m��� [0;31m�[41m [40m���[41m [40m
+[A[55C[41m[40m���[41m [C [40m�� �[1;41m���[C��۲[40m
+[13C[0m�[1;30;47m��[0m�[5C[31m�[41m [1m��[2C[5;32;40m� [0;31m
+[A[31C���[41m [40m�[41m [40m� [41m [40m���[41m [40m
+[A[60C[41m[40m� �[41m [40m�� �[1;41m��[C[0;31;41m �۲[40m
+[14C[37m�[1;30;47m�[0m� [31m�[41m [1m��[0;31m��[41m [40m
+[A[37C[41m [1m�[0;31m�� �[41m [40m��[41m [1m��[40m
+[A[62C[41m[0;31m��[7C[1;41m��[C[0;31;41m ��۲[40m
+[A[79C [15C[37m�[1;30;47m�[3C[0;31m���[41m [40m��[41m [40m
+[A[36C[41m [40m�[6C�[1;41m� [0;31m��[41m [1m��� [C[40m
+[A[66C[41m[0;31m� [1;41m��[C[0;31;41m � �[40m
+[A[79C [16C[37m�� [31;41m [C [40m����[41m [1m�[40m
+[A[44C[41m[3C[0;31m�[41m [1m��� [0;31m�[41m [1m���[40m
+[A[65C[41m[0;31m� [41m [40m��� [1;41m�[0;31m� [41m [1m��[40m
+[A[79C[0;31m [11C[1;37m� [0m� [31;41m [40m� [41m [40m۲
+[A[29C�����[41m [1m�[3C[0;31;41m ���� [40m��[41m [40m
+[A[63C[41m[1m���[C[0;31m߲ [1;41m��[C[0;31;41m ���[40m
+[A[79C [11C[37m�[1m�� [0;31;41m ���� [40m������[41m [40m۰�
+[A[34C[41m [1m�[2C[0;31m�[41m [1m۲��� [C[40m
+[A[61C[41m[0;31;41m ۲��[C[40m� [1;41m�[0;31m� [41m [1m���[40m
+[A[79C[0m [12C�[1;47m�[40m��[0;31m�[1;41m��� [0;31m� [1;37;47m[40m
+[A[24C[47m�[40m��� [0;31m� �[41m [40m�[41m [1m�[0;31m� �
+[A[45C[41m [1m۲��� [0;31m��[41m [1m۲�� [0;31m�
+[A[72C[1;41m�[C[0;31;41m � ��[40m
+[A[79C [14C[37m�[31m�[1;41m�� [0;31m� [1;37;47m�[40m� [47m�[40m
+[A[26C[47m[40m� [0;31m�� �[41m [1m�[C[0;33m� [31m�[41m[40m
+[A[46C[41m [1m۲��� [0;31m��[41m [1m��� [C[0;31;41m [40m
+[A[71C[41m[40m�� [41m [1m�� �[40m
+[A[79C[0;31m [16C[41m ��[C[37;40m�[1m�[0m�[1m�� � ��
+[A[34C[0;31;41m [40m��[41m [40m� [33m�� [31m�[41m [1m۲��[40m
+[A[55C[41m [C[0;31;41m ���[40m� [1;41m�[2C[0;31;41m �� �[40m
+[A[79C[37m [18C�[1m� �� � � �� [0;31m�[41m [40m��[41m [40m�
+[A[41C [1;33;43m��[0;33m�� [31m�[41m [1m۲�� [0;31m���
+[A[67C[1;41m۱�[0;31m�[1;41m�[C[0;31m�[41m [1m� ��[40m
+[A[79C[0m [19C�[1m� � ��� � �[0;31m�[41m [40m���[41m [40m�
+[A[41C[1;33m�[43m��[40m�[0;33m�� [31;41m [1m۲�� [40m
+[A[66C[41m[0;31m�[41m [1m���[0;31m� [41m [1m��� [40m
+[A[79C[0;31m [23C[1;37m� [0;31m�����[41m [40m��[41m [40m�
+[A[38C[5C[1;33;43m��[0;33m��� [31;41m [1m۲�� [0;31m��
+[A[68C[41m [1m��[C[0;31;41m ��� �[40m
+[A[79C [23C[30m�[31m�[41m [1m���� [0;31m��[8C[1;33m�[43m�[40m
+[A[45C[43m[0;33m���� [31;41m [1m۲�� [0;31m��� �[41m [40m
+[A[73C[41m[1m�� � [40m
+[A[79C[0;31m [25C�������[12C[1;33m��[43m�[0;33m�� [31;41m [40m
+[A[54C[41m[1m۲�� [C[0;31m�[1;41m����� �[40m
+[44C[33;43m۲��[0;33m� [31m�[41m [1m۲�� [0;31m� �
+[A[70C[1;41m��� [0;31m�
+[44C[1;33;43m۲[40m�[0;33m���� [31;41m [1m۲��� [0;31m�
+[A[71C�[1;41m��[2C[0;31;41m [40m
+[A[79C [44C[1;33m��[43m۲��[0;33m�� [31;41m [1m۲��� [40m
+[A[71C[41m[C[0;31m�[41m [C [40m
+[A[79C [43C[1;33m�[43m�[40m���[0;33m���� [31;41m [1m���[40m
+[A[61C[41m[0;31m����[41m [40m� [41m [40m� �[41m [40m
+[A[79C [43C[1;33m��[43m�۲��[0;33m�� [31m�� �����[41m [40m�
+[A[66C[41m [40m� [41m [40m��
+[A[79C [43C[1;33;43m��[40m���[0;33m��[31m��[41m [1m��� � [40m
+[A[65C[41m[0;31m� [41m [C[40m�[41m [40m
+[A[79C [43C[1;33m�[43m�[0;33m��� [31;41m [1m������� [40m
+[A[66C[41m[0;31m� �[41m [C [40m
+@pauseon
+@do goto redfight
+
+@#REDFIGHT
+@fight
+;name
+`4Red Dragon
+;string said when you see him
+"You shall die like all of the children I stole," You hear.
+;power move kill string
+"You shall pay for this mortal!" The dragon roars
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+breathes fire at you|750
+claws your throat|600
+hits you with his tail|600
+rips your arm with his teeth|400
+bites your leg|400
+;defense
+555
+;gold reward
+15000
+;experience
+17500
+;hit points
+15000
+;if win: ref file|name or NONE
+RDFIGHT.REF|REDWIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+RDFIGHT.REF|RUN
+
+@#REDWIN
+@show
+`\`\ `%You have finally, TRULY killed the mighty `4Red Dragon."
+
+`k
+@do addlog
+ `r4 `r0 `0`n`% has truly slain the `4Red Dragon!!!! `r4 `r0
+@writefile lognow.txt
+ `%-`7=`8-`4=`8-`7=`%-`2
+
+@clear screen
+@do x is 22
+@do y is 3
+@do map is 1360
+@loadmap 1360
+@drawmap 1360
+@do goto done
+@#done
+
+@#RUN
+@clear screen
+@do x is 77
+@do y is 10
+@do map is 355
+@loadmap 355
+@drawmap 355
+@do goto finish
+@#finish
+
+@#FIGHT
+@do `p20 random 9 1
+@do goto monster`p20
+
+@#monster1
+@fight
+;name
+`6Simba
+;string said when you see him
+You hear a deep throated growl coming from the darkness ahead.
+;power move kill string
+To the victor go the spoils!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+rips into your arm|130
+bats you with a paw|90
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+40
+;gold reward
+470
+;experience
+360
+;hit points
+270
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+`4Hitler's Son
+;string said when you see him
+`0"Hey! It's your fault my father's dead!!" `2a voice yells.
+;power move kill string
+`$"I guess it's my fault that you're dead too," `2you cackle wickedly.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+socks you in the jaw|100
+barks orders at you|no apparent reason
+kicks you in the ass|150
+NONE|NONE
+NONE|NONE
+;defense
+50
+;gold reward
+440
+;experience
+350
+;hit points
+250
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+`4Evil `#Pam Anderson
+;string said when you see him
+An extremely good-looking and muscular woman looks down at you fiercly.
+;power move kill string
+That sucked, they were TWINS!!
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+pulls your hair|140
+slaps you|90
+calls you a bitch|70
+pouts|10
+NONE|NONE
+;defense
+0
+;gold reward
+220
+;experience
+190
+;hit points
+150
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+`8King Kong
+;string said when you see him
+`4"RRRRROOOOOAAAAARRRRR" `2you hear from behind.
+;power move kill string
+`2Bad monkey, boy did you spank him!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+breaks your arm|80
+crushes your feet|110
+bites at your head|70
+flicks you with his finger|80
+NONE|NONE
+;defense
+50
+;gold reward
+460
+;experience
+300
+;hit points
+7500
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+`0Godzilla
+;string said when you see him
+`0You hear a high-pitched roar.
+;power move kill string
+`$"I didn't even get his autograph!" `2you whine
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Hits you with his tail|200
+Blows his radioactive breath at you|250
+Slashes at you with his claws|100
+NONE|NONE
+NONE|NONE
+;defense
+300
+;gold reward
+5000
+;experience
+5000
+;hit points
+10000
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster6
+@fight
+;name
+`6Moose
+;string said when you see him
+You see what you think is a deer on steroids!!
+;power move kill string
+`$"Now we have food for tonight," `2you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+racks you up like a coat|120
+kicks with his hind legs|100
+smashes you into a tree|70
+NONE|NONE
+NONE|NONE
+;defense
+40
+;gold reward
+160
+;experience
+180
+;hit points
+180
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster7
+@fight
+;name
+`5Barney
+;string said when you see him
+You see the purple dinosaur singing his annoying love song.
+;power move kill string
+`$"DINOSAURS ARE EXTINCT!!!" `2you tell the lifeless body.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Talks to you how to love somenoe|300
+Rapes you|150
+Spanks his monkey in front of you|120
+NONE|NONE
+NONE|NONE
+;defense
+15
+;gold reward
+999
+;experience
+999
+;hit points
+9999
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster8
+@fight
+;name
+`2B`0o`2b`0a `2F`0e`2t`0t
+;string said when you see him
+`0"Hey I bet there's a price on your head." `2 you hear.
+;power move kill string
+He should do better research.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+disintegrates a toe|575
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+320
+;gold reward
+6000
+;experience
+3000
+;hit points
+2400
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster9
+@fight
+;name
+`!Sir Butt-Head
+;string said when you see him
+`0"Shut up, or I'll kick your ass," `2you hear from behind.
+;power move kill string
+That knight guy ... really sucked.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hears voices|275
+slams you with his warhammer|324
+lays the smack down|400
+NONE|NONE
+NONE|NONE
+;defense
+370
+;gold reward
+3430
+;experience
+2890
+;hit points
+1450
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#done
diff --git a/xtrn/lord2/cnw/reddfrst.ref b/xtrn/lord2/cnw/reddfrst.ref
new file mode 100644
index 0000000000000000000000000000000000000000..0603fa142add4f5e7abd5d20954c5420ccbda3cd
--- /dev/null
+++ b/xtrn/lord2/cnw/reddfrst.ref
@@ -0,0 +1,520 @@
+; Script file REDDFRST.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:41 2001
+
+@DECLARE olivia 000000654
+@DECLARE deathknight 000000747
+@DECLARE darkcloak 000001494
+@DECLARE innman 000001561
+@DECLARE fred1 000001675
+@DECLARE fred2 000001766
+@DECLARE fred3 000001857
+@DECLARE bartender 000001951
+@DECLARE choicem 000002384
+@DECLARE lair 000004071
+@DECLARE honey 000004128
+@DECLARE endnow 000011125
+@DECLARE fight 000011258
+@DECLARE monster1 000011329
+@DECLARE monster2 000011909
+@DECLARE monster3 000012481
+@DECLARE monster4 000013060
+@DECLARE monster5 000013596
+@DECLARE done 000014141
+@NOCHECK
+; End of .REF index
+
+@#olivia
+@do saybar
+`7You find a rotten purple haired head on the ground... yuck!
+
+@#deathknight
+@clear screen
+@do moveback
+@show
+
+`7 "What are you looking at kid? Leave me alone!" `2an armored old man
+ says with a grin.
+
+`$ "HEY! Aren't you one of those legendary `8DEATH KNIGHTS`$!?"
+
+`7 "So our names are still scattered around!? How interesting... I
+ was sure we'd be forgetten as the years go by."
+
+`$ "From what I learned at school, all the Death Knights became normal
+ people because their skills became so unpopular, so they were out of
+ a job!"
+
+`7 "Argh! It's true, I am the only Death Knight left in the world, I'm
+ so ashamed of myself..."
+
+`2 You decide to leave the sobbing Death Knight alone...
+
+@key
+@drawmap
+@update
+@closescript
+@end
+
+@#darkcloak
+@do saybar
+`7The DarkCloak Tavern is nailed shut...
+
+@#innman
+@IF &lastx is 59 then goto fred1
+@IF &lastx is 60 then goto fred2
+@IF &lastx is 61 then goto fred3
+
+@#fred1
+@do moveback
+@do saybar
+`0Big Man: `2You wanna room? You go talk to bartender!
+@#fred2
+@do moveback
+@do saybar
+`0Big Man: `2You wanna room? You go talk to bartender!
+@#fred3
+@do x is 59
+@do saybar
+`0Big Man: `2Hope you come back here for next time!
+
+@#bartender
+@do moveback
+@clear screen
+@show
+`r0`c `r1 `%The bartender `r0
+
+`0 "Welcome to the Red Dragon Inn stranger!" `2says the bartender
+
+`$ "I'm not a stranger! I am `n `$the all mighty!"
+
+`0 "`n`0!? Never heard of that name before..."
+
+`$ "Nevermind... so, how much does it cost to get a room around here!?"
+
+`0 "`$$300`0! It sounds expensive... but it's worth it!"
+
+@do goto choicem
+@#choicem
+@DO `V01 is 1
+@choice
+Tell me about Honey
+How about a bribe...
+I want a room for `$$300
+I gotta go!
+@if response is 1 then do
+ @begin
+ @clear screen
+ @show
+
+`0 "Honey!? She's Violet's sweet and sexy daughter! Very young too!
+ But unfortunatly, unlike Violet, she's now the town's local whore!
+ We're kind of short on cash and we're all doing our best to survive
+ in this strange world!"
+
+`$ "So she won't marry anyone!? Neither just take a wink!?"
+
+`0 "Nope! Not at all, pay `$$1000 `0to one of those big guys and do
+ whatever you want in that room with Honey for 15 minutes... that's
+ all...... so... anything else!?"
+
+ @do goto choicem
+ @end
+@if response is 2 then do
+ @begin
+ @clear screen
+ @show
+
+`0 "I don't take bribes so you can go slaughter people in my Inn
+ anymore... if you wanna kill someone in one of my rooms, go ahead,
+ just pay the entry fee and do whatcha want... just keep it quiet
+ and clean up your mess afterward... anything else!?"
+
+ @do goto choicem
+ @end
+@if response is 3 then do
+ @begin
+ @if money < 300 then do
+ @begin
+ @show
+`\`\`0 "Sorry kid! But ya don't have enough cash!"
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`\`0 "Well well well! Enjoy your stay!"
+
+`2 You give the bartender the money, he then signals the big guy
+ guarding the stairs to let you in...
+
+`\`k
+ @do money - 300
+ @do x is 61
+ @do y is 8
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 4 then do
+ @begin
+ @show
+
+`0 "Come back anytime!"
+
+@key
+@drawmap
+@update
+@closescript
+
+@#lair
+@do saybar
+`7The Dragon's Lair is empty...
+
+@#honey
+@clear screen
+@do moveback
+@pauseoff
+@show
+[2J[0m[21C[1;36m [33m߲��[43m�[40m�����[43m�[40m������[43m�[40m�� �
+[A[44C[43m��[40m��� ��[47m�[40m����[47m�[40m��[0;33m��[1m��
+[A[66C[43m�[40m������[43m�[40m���[0m
+[22C[33m��[1m������[43m�[40m������[43m���[40m������[43m��[40m�
+[A[49C�� [43m۲[40m���[0;33m�[1;31;43m��[0;33m�[1m߲�[43m�[40m
+[A[67C��߲�����[31m��[43m�[0m
+[22C[1;36m [33;43m��[0;33m��[1;43m�[40m���[0;33m�[1m�[43m�[40m
+[A[34C��[0;33m� [1m��� [0;33m�[1m������[43m�[40m�[43m�[0m
+[A[53C[1;33;43m�[40m� �[43m�[40m�[0;33m�[1;31;43m���[0;33m��
+[A[65C[1m��[31;43m�[0;33m�[1;31;43m��[0;33m��[1;31;43m������[0m
+[23C[33m�[1;43m�����[0;33m�[1;43m�[0;33m����[1;43m��[0;33m��
+[A[39C[1;31;43m�����[0;33m�[1;31;43m�[0;33m�[1;31;43m�[0;33m��
+[A[50C[1m�߲�[43m�[40m�[31m�[33m�[43m�[40m�[31;43m������[40m
+[A[66C[0;33m�[1;31;43m�[0;33m� ����[1;31;43m�[0;33m�[1;31;43m�[40m
+[A[77C[0;33m�[1;31;43m�[0m
+[23C [1;33;43m����[40m�[43m��[0;33m�[1;43m�����[0;33m�[1;31;43m[40m
+[A[38C[43m�������[0;33m�����[1;37m�� � [33m��[31;43m�[40m�[33m�
+[A[60C�[31;43m��۲��[0m [33m��[1;37m��[47m�[40m��[0;33m��
+[A[78C[1;31m�[0m
+[24C[1;36m [33;43m��۲[40m��[43m���۲��[31;40m�[43m��۲�[0;33m�
+[A[45C� [37m�[1;47m���[40m�[47m۲[40m�[31m�[43m������۲۲[0m �
+[A[68C[1;47m���۲[40m�[47m��[40m� [31;43m�[0m
+[25C[1;36m [33;43m۲�[0m [1;33m�[43m��۲��[0m [33m�[1;31m�
+[A[40C[43m۲��[40m� [37;47m����[40m��[47m��[40m� [31;43m�[40m
+[A[57C�[43m�����۲[40m�[0m�[1;47m����۲[40m��[47m��[40m�[31m�[0m
+[26C[1;33m�[43m۲[40m�[43m��۲۲�[0;33m� � [1;31;43m۲��[0m�
+[A[46C[1;47m����[0m [1m� � [31;43m�[40m��[43m���۲�[0m
+[A[66C[1;47m����۲�[0m [1m� [0;34m�[1;31m�[0m
+[25C[1;36m [33;43m��۲[40m�[43m۲۲��[0;33m���[1;43m�[31;40m�
+[A[42C[43m۲�[40m�[37;47m��۲[40m� [0;34m�[1;44m�[0;34m�
+[A[55C[1;31m�[43m��[0m [1;31;43m����۲[40m�[0m�[1;47m����۲[40m
+[A[73C�[34;44m�[0;34m�[1;44m�[0;34m�[1;31m�[0m
+[24C[1m [33m�[43m۲��[40m�[43m�۲���[0m [1;33;43m�[0;33m��
+[A[42C[1;31;43m�۲�[40m��[37m��[47m�[0;34m�[1;44m�[0;34m�
+[A[54C[1;31m�[43m�[40m�[43m�[0m [1;31;43m�����۲[40m�[0m��
+[A[69C[1m�[47m�۲[0m [34m�� [1;31m�[43m�[0m
+[23C [1;33m�[43m��[40m�[43m��[40m�[43m۲���[0;33m����[1;43m�[40m
+[A[41C[31m�[43m�۲�۲۲[40m���[43m�[40m��[43m�[40m��[43m�����[40m
+[A[64C[43m��[40m�[43m۲�[40m�����[43m��۲[0m
+[23C[1;36m [33m�� [43m��[40m��[43m���[0;33m���[1;43m���[0m
+[A[41C[1;31;43m۲[40m���[43m�������۲�[40m��[43m�����������۲���[40m
+[A[74C[43m���۲[0m
+[23C[1;33m�[43m�[40m��[43m��[0m [1;33m�[43m��[0;33m�[1;43m���[40m
+[A[37C[43m�[0;33m� [1;31m�[43m�[40m�����������[43m�[40m��[43m�[40m
+[A[57C[43m�۲��[40m����[43m�[40m����������[43m��[0m
+[23C[1;33m���[43m���[40m��[43m�����[0;33m��[1;43m�[0m
+[A[40C[1;31;43m����[40m������[43m�[40m���[43m�[40m���[43m�[40m
+[A[59C��[43m�[40m���[43m�[40m�[43m�������۲۲�[0m
+[23C[1;33m�[43m���[40m���[43m�[40m�[43m���[40m�[0;33m�[1;43m�[40m
+[A[38C[43m�[0;33m�[1;31m�[43m��[40m��������[43m�[40m���[43m��[40m
+[A[57C�[43m����[40m�����[43m������۲۲��[0m
+[22C[1;33m�[47m�[43m�۲[40m��[43m�[40m�[43m���[40m� [43m���[40m
+[A[39C[0m [33m�[1;31m�[43m��[40m�����������[43m�[40m�[0;33m��
+[A[59C[1;31m���[43m�[40m�����[43m۲��۲۲��[33;40m�[0m
+[21C[1;33m��[43m���[0m [1;33m۲��[43m�[40m۲ �[43m۲[40m�
+[A[39C[0;33m�[1;43m�[0;33m��[1;31m��[43m����[40m�����[43m��[40m
+[A[56C[0;33m�� [31mܲ�[1m�[43m�[40m���[43m���۲����[0;33m�
+[A[78C[1m�[0m
+[20C[1;33m�[47m�[43m�[40m��[43m�[40m������� [43m�۲[40m�
+[A[38C[0;33m�[1;43m����[0;33m��� [1;31m�[43m۲���[40m��[43m��[40m
+[A[57C�[0;31m��[1m�[43m�[40m��[43m����۲���[0;33m�[37m
+[A[76C[1;36m [33m�[43m�[0m
+[18C[1;36m [33mܲ[43m�[40m��[43m�[40m����[43m�[40m۲ �[43m�[40m
+[A[35C���[43m����[0;33m��[1;43m�� [0;33m� [1;31m��[43m����[40m
+[A[56C�[43m���[40m��[43m�۲�[40m��[43m�[40m�[0;33m� [37m
+[A[75C[1m [33m�[43m۲[0m
+[18C[1;33m�[43m���[40m������[43m�[40m���[43m۲�[40m��[43m��۲�[40m
+[A[42C[0m [1;33m�[43m���[0;33m��[37m[5C [1;31m�[43m����[40m�
+[A[61C[43m�۲[40m��[0;33m�[1;31;43m�[40m�[43m��[0m [3C[1;36m
+[A[75C [33m�[43m��[0m
+[15C [33m�[1;43m��[40m����[43m�[40m������[43m۲�[40m��[43m�۲[40m
+[A[39C[43m�۲[40m�[43m�[40m� [0m[10C [1;31m�����[43m�[40m�
+[A[64C[43m������[0m [1;30m�AP�[33m�[43m۲[0m
+@key
+@pauseon
+@clear screen
+@show
+`\`2 You stare at the fleshy beauty for a moment...
+
+`0 "So you payed `$$1000 `0just to stare at my beautiful body! Hey...
+ sounds good enough to me!" `2Honey says with a smile
+
+`$ "Actually I was just paralyzed by your brea... ah... beauty..."
+
+`0 "Let's get this over with..."
+
+@key
+@show
+`2 `wSlap, `wHump, `wWhip, `wKiss, `wHump, `wHump, `wSlap, `wHump, `wWhip...
+
+`2 15 minutes later, Honey pushes you off her...
+
+`0 "Harumph! That was kinda borring... my mom was right... never
+ do it with rookies!"
+
+`2 You give Honey an evil grin, but as you get out of the room, you
+ think to yourself what a great time you had!
+
+@do `p34 + 1
+@key
+@do `p20 random 7 1
+@if `p20 is 1 then do
+ @begin
+ @do `p08 + 1
+ @do `p07 - 2
+ @show
+
+ `%YOU GET `$1 CHARM `%... but `4LOSE 2 `%ALIGNMENT!
+ @do goto endnow
+ @end
+@if `p20 is 2 then do
+ @begin
+ @do `p08 + 2
+ @do `p07 - 1
+ @show
+
+ `%COOL! YOU GET `$2 `%CHARM AND ONLY `4LOSE 1 `%ALIGNMENT!
+ @do goto endnow
+ @end
+@if `p20 is 3 then do
+ @begin
+ @do `p08 + 1
+ @do `p07 - 3
+ @do `p19 + 3
+ @show
+
+ `%YOU GET `$1 `%CHARM, `4LOSE 1 `%ALIGNMENT ... BUT FIND `03 GEMS `%UP YOUR ASS!?
+ @do goto endnow
+ @end
+@if `p20 is 4 then do
+ @begin
+ @do `p08 + 1
+ @do `p07 - 1
+ @show
+
+ `%YOU GET `$1 CHARM `%... but `4LOSE 1 `%ALIGNMENT!
+ @do goto endnow
+ @end
+@if `p20 is 5 then do
+ @begin
+ @do `p08 + 1
+ @do `p07 - 2
+ @show
+
+ `%YOU GET `$1 CHARM `%... but `4LOSE 2 `%ALIGNMENT!
+ @do goto endnow
+ @end
+@if `p20 is 6 then do
+ @begin
+ @do `p02 is 1
+ @do `p07 - 2
+ @show
+
+ `%OUCH! You realize that it wasn't as great as you thought it was!
+ `%All the whip scars and slapping really hurt you! Your `7HitPoints
+ `%are reduced to `41 `%AND you `4lose 2 `%alignment!
+ @do goto endnow
+ @end
+@if `p20 is 7 then do
+ @begin
+ @do `p08 + 2
+ @do `p07 - 2
+ @show
+
+ `%YOU GET `$2 CHARM `%... but `4LOSE 2 `%ALIGNMENT!
+ @do goto endnow
+ @end
+
+@#endnow
+@key
+@do x is 23
+@do y is 9
+@drawmap
+@update
+@closescript
+@end
+
+@do `p20 random 4 1
+@if `p20 is 1 then saybar
+
+@#FIGHT
+@busy
+@do `p20 random 5 1
+@do goto monster`p20
+@end
+
+@#monster1
+@fight
+;name
+Bran The Loser
+;string said when you see him
+`2It's ... it's ... ... ... Bran The Loser!? Oh come on ...
+;power move kill string
+After a cheap battle, Bran lies on the ground... decapitated...
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Short Sword|13
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+6
+;gold reward
+134
+;experience
+35
+;hit points
+40
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Tiny Thief
+;string said when you see him
+At first you didn't notice anything... but you did when it said "HEY THERE".
+;power move kill string
+You disembowel the little thieving shit!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+Toothpick|5
+anoying voice|3
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+5
+;gold reward
+10
+;experience
+15
+;hit points
+20
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Ugly Boy
+;string said when you see him
+`2You see an ugly shit giving you the finger, you decide that HE MUST DIE!
+;power move kill string
+You quietly watch as the Ugly Boy bleeds to death.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Yellow Teeth|14
+Ugliness|10
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+5
+;gold reward
+120
+;experience
+34
+;hit points
+22
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Ugly Old Decomposing Hag
+;string said when you see him
+`0"Eeewww... you are UGLY!!!" `2you say.
+;power move kill string
+She drops into million of pieces...
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Hands|12
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+3
+;gold reward
+33
+;experience
+15
+;hit points
+15
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Evil Whorerior
+;string said when you see him
+`2It wanted money... but you'll teach it a lesson!!!
+;power move kill string
+With a swift boot to her head, you kill her
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+ugly stick|9
+kick|13
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+4
+;gold reward
+120
+;experience
+93
+;hit points
+40
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#done
diff --git a/xtrn/lord2/cnw/reddtown.ref b/xtrn/lord2/cnw/reddtown.ref
new file mode 100644
index 0000000000000000000000000000000000000000..9622f34905d4e307ec2ab37a8b43a517b5cc90f4
--- /dev/null
+++ b/xtrn/lord2/cnw/reddtown.ref
@@ -0,0 +1,706 @@
+; Script file REDDTOWN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:41 2001
+
+@DECLARE sign 000000794
+@DECLARE sign1 000000865
+@DECLARE town 000000944
+@DECLARE statue 000002328
+@DECLARE halder 000002431
+@DECLARE ok 000002541
+@DECLARE toolate 000003912
+@DECLARE halwin 000003963
+@DECLARE halrun 000004470
+@DECLARE healer 000004653
+@DECLARE honey1 000006443
+@DECLARE man911 000007159
+@DECLARE bank 000008072
+@DECLARE bankstart 000008200
+@DECLARE bankagain 000009314
+@DECLARE deposit 000010851
+@DECLARE withdraw 000011404
+@DECLARE talkbar 000012281
+@DECLARE inn 000012373
+@DECLARE man 000012423
+@DECLARE return 000012923
+@DECLARE choice 000012986
+@DECLARE manny 000014830
+@DECLARE manny2 000014927
+@DECLARE manny3 000015010
+@NOCHECK
+; End of .REF index
+
+@#sign
+@do saybar
+`7Welcome to the famous `4RED DRAGON TOWN `7!
+
+@#sign1
+@do saybar
+`7DO NOT ENTER THE FOREST! Still alot of monsters! -->
+
+@#town
+@do moveback
+@clear screen
+@show
+
+`% Legend Of The Red Dragon - `2Town Square
+`0-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ `2The streets are alot less crowder as they
+ `2used to be... no mob, no nothing!!!
+
+ (`5F`2)orest (`5S`2)laughter other players
+ (`5K`2)ing Arthurs Weapons (`5A`2)bduls Armour
+ (`5H`2)ealers Hut (`5V`2)iew your stats
+ (`5I`2)nn (`5T`2)urgons Warrior Training
+ (`5Y`2)e Old Bank (`5L`2)ist Warriors
+ (`5W`2)rite Mail (`5D`2)aily News
+ (`5C`2)onjugality List (`5O`2)ther Places
+ (`%X`2)pert Mode (`5M`2)ake Announcement
+ (`5P`2)eople Online (`0Q`2)uit to Fields
+
+
+`5The Town Square `8(? for menu)
+(F,S,K,A,H,V,I,T,Y,L,W,D,C,O,X,M,P,Q)
+
+`2Your command, `n`2? `2[`%999:99`2]
+@key
+@show
+
+`2 JUST KIDDING!!!
+`2 VooDoo KnighT presents: `0THE TOWN FROM LORD 1 `2in `0LORD 2 STYLE`2!
+`2 Be sure to check out our HOMEPAGE and to get more LORD 2 IGMs!
+`2 http://www.angelfire.com/ks/knightsoft/index.html
+@key
+@loadmap 1000
+@do map is 1000
+@do x is 39
+@do y is 17
+@drawmap
+@update
+@closescript
+@end
+
+@#statue
+@do saybar
+`7This statue was built in memory of the hero who slayed the `4Red Dragon`7!
+
+@#halder
+@dataload reddhald.idf &playernum `p25
+@if `p25 is 4 then goto toolate
+@if `p25 is 0 then goto ok
+
+@#ok
+@do moveback
+@datasave reddhald.idf &playernum 4
+@clear screen
+@show
+
+`0 "What are you looking at!?" `2the man says.
+
+`$ "What is this place!? It smells really bad in here..."
+
+`0 "This happens to be the Training Area, great Turgons used to live
+ here and make pathetic losers into great mighty warriors! Well, not
+ only him! I was chosen to be the master who made the pathetic losers
+ into well known pathetic losers! I am the great HALDER!"
+
+`$ "Sounds to me you were just a leftover trainer, so Turgons put you
+ in the low class level! Ha! Ha! Ha!" `2you say with a good laugh.
+
+`0 "ARGH! How dare you insult a great warrior such as myself... en
+ garde you pathetic fool!"
+
+`2 Halder pulls out a Dagger and charges at you...
+
+@key
+@fight
+;name
+Halder
+;string said when you see him
+Halder gives you the finger and raises his dagger
+;power move kill string
+You knock the bastard uncounsious!!!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+dagger slash|10
+dagger pummel|15
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+3
+;gold reward
+125
+;experience
+50
+;hit points
+100
+;if win: ref file|name or NONE
+REDDTOWN.REF|HALWIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+REDDTOWN.REF|HALRUN
+
+@#toolate
+@do saybar
+`0Halder: `2Go away kid!
+
+@#halwin
+@clear screen
+@show
+
+`2 After giving Halder a couple of blows with your s&weapon `2...
+ he starts begging for you to stop!
+
+`0 "Argh! I've been beaten again! Why can't I ever win!?"
+
+`$ "Gimme something NOW you old man! Or I'll give you a taste of my
+ s&weapon `$again!"
+
+`0 "NO!!! Please! Here... here... take this! Just leave me alone!"
+
+`2 Halder hands you a `%Moonstone`2! Cool!!!
+
+@do `i57 + 1
+@key
+@drawmap
+@update
+@closescript
+@end
+
+@#halrun
+@show
+`2
+`2 CHICKEN!!! If only this was LORD 1... you wouldn't be able to run
+ away!!! ^.^
+ U
+
+@key
+@drawmap
+@update
+@closescript
+@end
+
+@#healer
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%The Healers
+
+`2 Evan 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," `2Evan 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 `p30 is 17
+@do `v40 is `p20
+@routine deposit in vaults.ref
+@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," `2Evan laughs.
+
+`k
+@drawmap
+@update
+
+@#honey1
+@IF &lastx is 21 then do
+@BEGIN
+@DO SAYBAR
+`2Wise choice! You decide that sex for money is a bad idea!
+@CLOSESCRIPT
+@END
+
+@BUSY
+@DO `v01 is 1
+@SHOW
+`r0`c `r1 A big guy stops you as you attempt to enter the next room `r0
+
+@if sexmale is 1 then goto man911
+@show
+`0 "Sorry baby! But men only!"
+
+`$ "You people make me sick! I see this LEGENDARY TOWN now has it's own
+ bordelo... I can't wait for the world to know about your trash!"
+
+`0 "Very nice little girl! You go now and tell your boyfriends to come
+ here for good time!"
+
+`2 You decide to leave the stupid hunky man alone...
+ @key
+ @do moveback
+ @end
+ @drawmap
+ @update
+ @closescript
+
+@#man911
+@show
+`0 "What does tiny little man want?"
+
+`$ "Well, whatcha guys offer!?"
+
+`0 "We hire Violet's daughter... `$Honey `0! She very good, you pay
+ `$$1000 `0and you do anything with `$Honey`0!"
+
+@DO WRITE
+`x`x
+@CHOICE
+Pay the dumb guy `$$1000
+Give the guy a weird look and leave
+@IF RESPONSE IS 1 THEN DO
+ @Begin
+ @if money < 1000 then do
+ @begin
+ @show
+`\`\`2 You don't have `$$1000`2!!! So you decide to leave.
+`k
+ @do moveback
+ @drawmap
+ @update
+ @closescript
+ @end
+ @Show
+`\`\ `2You hand the guy the money and happily head inside the room.
+`\`k
+@DRAWMAP
+@UPDATE
+@DO SAYBAR
+`2You see the lovely `$Honey `2sitting by her bed... half naked...
+@CLOSESCRIPT
+@End
+@IF RESPONSE IS 2 THEN DO
+@Begin
+@Show
+`\`\ `0"Maybe next time... I got better things to do!"
+`\`k
+@DO MOVEBACK
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+
+@#bank
+@do `p30 is 17
+@do `v01 is 1
+@offmap
+@do moveback
+@do `s09 is reddtown
+@routine DONEQUEST in VAULTS.REF
+@label bankstart
+@show
+`r0`c `r1 `%Ye Old Bank `r0
+
+`2 A young clerk eyes you nervously.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdraw.
+=&bank 0 Apply for an account here.
+Leave
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last question?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @routine deposit in vaults.ref
+ @do `p30 is 17 <--Bank#
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookkeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+
+
+@drawmap
+@update
+
+@#talkbar
+@do saybar
+`0Big Man: `2Talk to the bartender if you wanna get yourself a room!
+
+@#inn
+@do saybar
+This is the Red Dragon Inn
+
+@#man
+@clear screen
+@do moveback
+@show
+
+`$ "All hail the Red Dragon!"
+
+`0 "Where have you been all this years!? Sheesh, the reason this town
+ is named after the Red Dragon is because a mighty warrior slayed it
+ a couple of years back... so in memory of that time, the town was
+ named `4RED DRAGON TOWN `0!" `2says the man.
+
+`$ "Would it bother you if I asked a couple of questions!?"
+
+`0 "Ask away my un-knowledge little friend!"
+
+@do goto choice
+@#return
+@show
+`0 "Anything else!?"
+@do goto choice
+
+@#choice
+@DO `V01 is 1
+@choice
+Where's the slut... what's her name again... oh ya! Where's Violet!?
+This town is strange...
+I think I'll go now!
+@if response is 1 then do
+ @begin
+ @clear screen
+ @show
+
+`0 "Who you calling a slut!? Violet was one of the most sexiest women
+ in the world! Maybe if she still lived in this town, I'd show you how
+ a REAL WOMAN should look like!"
+
+`$ "She was PlayBoy Playmate of last month's issue... I know how that
+ hot momma looks like! I'm just calling her a slut because I heard she
+ used to sleep with almost all the warriors who came to this town!"
+
+`0 "That's not true! It's all a lie!!!!!!!! .................... she
+ was before last month's Playmate... not last months... sheesh... stupid
+ kid..."
+
+@key
+@do goto return
+ @end
+@if response is 2 then do
+ @begin
+ @clear screen
+ @show
+
+`0 "Well, yes it is! Both King Arthur's Weapon Shop and Abdul's Armors
+ both moved to GreenTree, so both shops are now closed... you'll also
+ notice that some parts in forest are useless too! The Dark Cloak Tavern
+ was destroyed by monsters and the small Dragon's Lair is kinda empty!
+ The Dragon's Lair which is located up north is a fake... WE OWN the
+ original Dragon's Lair, but as time goes on, it's popularity fades
+ away!"
+
+@key
+@do goto return
+ @end
+
+@if response is 3 then do
+ @begin
+ @clear screen
+ @show
+
+`$ "Well... believe it not, I gotta split!"
+
+`0 "Yes... go away... go away like everyone else did! I know our town
+ is getting worse and worse... but why!? Why is life so unfair!?"
+
+`2 Thinking if you should leave or stay with the sobbing man... it
+ would be alot more wise to explore the town a little more...
+
+@key
+@drawmap
+@update
+@closescript
+
+@#manny
+@do saybar
+`0Man: `2Last night was a BLAST! I did it with Honey 3 times in a row!
+
+@#manny2
+@do saybar
+`0Lonely Man: `2Please sit with me... I'm very lonely...
+
+@#manny3
+@do saybar
+`0Drunk Man: `7BURP `2... hic ... hehehe ... thissssss beeeee... hic ... good.
diff --git a/xtrn/lord2/cnw/reset.bat b/xtrn/lord2/cnw/reset.bat
new file mode 100644
index 0000000000000000000000000000000000000000..ea777b36c4020806a01f2ec1b02f609882e77519
--- /dev/null
+++ b/xtrn/lord2/cnw/reset.bat
@@ -0,0 +1,330 @@
+@echo off
+echo. LastUpdate: Mar-28-2001
+echo.
+echo. This BATCH file will reset your LoRD2 game.
+echo.
+echo. Available only for:
+echo. - New World
+echo. - Complete New World
+echo.
+echo. An updated version can be found here:
+echo. http://greenmachinebbs.com/lord2/cnwfiles/RESET.BAT
+echo.
+echo Press CTRL+C NOW if you do NOT want to reset the game.
+echo.
+pause
+echo Y|del mail\*.*
+echo Y|del *.ioh
+echo Y|del *.idf
+echo y|del TENSE*.DAT
+echo y|del TENSE*.IDF
+echo y|del TENSE*.TXT
+echo y|del lockers*.IDF
+echo y|del lock*.IDF
+echo y|del *.CHK
+echo y|del *.tmp
+echo y|del *.cod
+echo y|del *.auc
+echo y|del *.shw
+echo y|del cnw*.dat
+echo y|del list*.dat
+del resetbug.rpt
+del thedraw.pck
+del wedpro?.TXT
+del wedpro??.TXT
+del prison.1??
+del prison.2??
+del prison.1?
+del prison.2?
+del prison.3?
+del prison.4?
+del prison.5?
+del prison.6?
+del prison.7?
+del prison.8?
+del prison.9?
+del prison.1
+del prison.2
+del prison.3
+del prison.4
+del prison.5
+del prison.6
+del prison.7
+del prison.8
+del prison.9
+del table.1??
+del table.2??
+del table.1?
+del table.2?
+del table.3?
+del table.4?
+del table.5?
+del table.6?
+del table.7?
+del table.8?
+del table.9?
+del table.1
+del table.2
+del table.3
+del table.4
+del table.5
+del table.6
+del table.7
+del table.8
+del table.9
+del bounty.1??
+del bounty.2??
+del bounty.1?
+del bounty.2?
+del bounty.3?
+del bounty.4?
+del bounty.5?
+del bounty.6?
+del bounty.7?
+del bounty.8?
+del bounty.9?
+del bounty.1
+del bounty.2
+del bounty.3
+del bounty.4
+del bounty.5
+del bounty.6
+del bounty.7
+del bounty.8
+del bounty.9
+del challeng.1??
+del challeng.2??
+del challeng.1?
+del challeng.2?
+del challeng.3?
+del challeng.4?
+del challeng.5?
+del challeng.6?
+del challeng.7?
+del challeng.8?
+del challeng.9?
+del challeng.1
+del challeng.2
+del challeng.3
+del challeng.4
+del challeng.5
+del challeng.6
+del challeng.7
+del challeng.8
+del challeng.9
+del jennie.1??
+del jennie.2??
+del jennie.1?
+del jennie.2?
+del jennie.3?
+del jennie.4?
+del jennie.5?
+del jennie.6?
+del jennie.7?
+del jennie.8?
+del jennie.9?
+del jennie.1
+del jennie.2
+del jennie.3
+del jennie.4
+del jennie.5
+del jennie.6
+del jennie.7
+del jennie.8
+del jennie.9
+del jw-isle1.mil
+del jw-isle2.mil
+del jw-isle3.mil
+del jw-isle4.mil
+del jw-islex.mil
+del jw-isleg.mil
+del jw-islel.mil
+del woodland.0??
+del woodland.1??
+del woodland.200
+del prisitem.*
+del prisinfo.*
+del jw-isle*.mil
+del castle.idx
+del 1stclass.dat
+del error.log
+del pyr4.DAT
+del pyr5.DAT
+del pyr6.DAT
+del pyr7.DAT
+del pr4.DAT
+del pr5.DAT
+del pr6.DAT
+del pr7.DAT
+del pys.IDF
+del cott.dat
+del cotta.dat
+del alientel.inf
+del TLSSCREW.DAT
+del TLSINNRD.DAT
+del TLSWANT.DAT
+del TLSBUR.DAT
+del TLSINNRD.DAT
+del TLSBLANDO.DAT
+del TLSYODA.DAT
+del TLSTURNS.DAT
+del TLSTODAG.DAT
+del TLSYODA1.DAT
+del BANN.DAT
+del TIME.DAT
+del CAMELOT.DAT
+del CAM.DAT
+del TRADER.DAT
+del BUCKET.DAT
+del FELHOUSE.DAT
+del L2TREE.DAT
+del TENSEKB.DAT
+del TENSEPK.DAT
+del CASTLE75.DAT
+del TENSEQZ.DAT
+del GORILLA2.DAT
+del MTRES.DAT
+del HONG3.DAT
+del HONG3A.DAT
+del MYST.DAT
+del MYST1.DAT
+del MYST1A.DAT
+del STIME.DAT
+del NINN2B.DAT
+del TLTRES1.DAT
+del TLTRES2.DAT
+del TLTRES3.DAT
+del TLTRES4.DAT
+del TLTRES5.DAT
+del ISLE35.DAT
+del TLTPET1.DAT
+del TLTPET2.DAT
+del TLTPET3.DAT
+del TLTPET4.DAT
+del TLTPET5.DAT
+del TLTNAME1.DAT
+del TLTNAME2.DAT
+del TLTNAME3.DAT
+del TLTNAME4.DAT
+del TLTNAME5.DAT
+del CASTLE1.DAT
+del CASTLE2.DAT
+del CASTLE3.DAT
+del CASTLE4.DAT
+del CASTLE71.DAT
+del NINN?.DAT
+del NINN??.DAT
+del PASSAGE2.DAT
+del CASTLE4A.DAT
+del CASTLE76.DAT
+del CASTLE72.DAT
+del REGSYSIN.DAT
+DEL house1.dat
+del TLHOUSE1.DAT
+del TLHOUSE2.DAT
+del TLHOUSE3.DAT
+del TLHOUSE4.DAT
+del TLHOUSE5.DAT
+del ROOM*.DAT
+del jcastle.dat
+del tres*.dat
+del colisb.dat
+del coliseum.dat
+del coliseum.txt
+del coldesk1.txt
+del coldesk2.txt
+del coldesk3.txt
+del coldesk4.txt
+del coldesk5.txt
+del coldesk6.txt
+del coldesk7.txt
+del coldesk8.txt
+del coldesk9.txt
+del coldskb1.txt
+del coldskb2.txt
+del coldskb3.txt
+del coldskb4.txt
+del coldskb5.txt
+del coldskb6.txt
+del coldskb7.txt
+del coldskb8.txt
+del coldskb9.txt
+del qcastle.dat
+del SWDTOWER.DAT
+del SRDTOWER.DAT
+del WISHWEL2.DAT
+del owtc.dat
+del keep.dat
+del ffhouse1.dat
+del ffhouse2.dat
+del ffhouse3.dat
+del ffhouse4.dat
+del ffhouse5.dat
+del cnwsign.*
+del castle78.dat
+del ship$.dat
+del castle74.dat
+del tlsbland.dat
+del tlsant.dat
+del pisle.dat
+del islez.dat
+del team1.dat
+del team2.dat
+del team3.dat
+del team4.dat
+del team5.dat
+del teamu.dat
+del lst20.dat
+del pass1.dat
+del pass2.dat
+del pass3.dat
+del pastre1.dat
+del pastre2.dat
+del pastre3.dat
+del temp*.dat
+del time.dat
+del stime.dat
+del gescape.*
+del canoe.chk
+del taxes.chk
+del hotel.dat
+del hotela.dat
+md npc
+cd npc
+echo y|del *.*
+cd..
+echo.
+echo.
+echo. Do you want to delete the writtings on the walls also?
+echo.
+echo Press CTRL+C NOW if you do NOT want to erase the walls.
+echo.
+pause
+echo y|del tlchat*.txt
+echo y|del bar*.txt
+echo y|del doc*.txt
+echo y|del fel*.txt
+echo y|del myst*.txt
+del wall.txt
+del tree.txt
+del passage.txt
+del hongwall.txt
+del lgossip.txt
+del gracom.txt
+del gummayor.txt
+del garden.txt
+del gossip.txt
+del book.txt
+del cloak.txt
+del pychat.txt
+del revenge.txt
+del revenge2.txt
+echo y|del *.txt
+echo y|del lock*.txt
+echo y|del info*.dat
+echo.
+echo. DONE! All reset.
+echo.
+echo. You may also want to run the RESET in L2CFG.EXE program.
+echo.
+
diff --git a/xtrn/lord2/cnw/reset.ref b/xtrn/lord2/cnw/reset.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c22688538810e9206272185ff3659de63eddf9f5
--- /dev/null
+++ b/xtrn/lord2/cnw/reset.ref
@@ -0,0 +1,672 @@
+; Script file RESET.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:28 2001
+
+@DECLARE start 000000293
+@DECLARE menu 000000905
+@DECLARE scoreloop 000005323
+@DECLARE newidfs 000007281
+@DECLARE resetidfdone 000007646
+@DECLARE nomore 000014930
+@NOCHECK
+; End of .REF index
+
+@#START
+
+;Reset version 1.06 Jan. 98
+
+;testing data fakes
+;@bitset `t17 7 1
+;@bitset `t18 7 1
+
+;@do `p27 is 1
+@do `p27 is 0 ;debug tool to stay at 1438
+ ;set to 0 for jump home at end.
+
+@do moveback
+
+; first we move them back, so they are not standing in the door.
+
+@busy
+
+@do `p21 is 0
+@do `p22 is 0
+@do `p23 is 0
+
+
+@if bitcheck `t17 7 1 then do
+@begin
+ @do `p21 is 1 ;Has finished Good?
+@end
+
+@if bitcheck `t18 7 1 then do
+@begin
+ @do `p22 is 1 ;Has finished Evil?
+@end
+
+@do `p23 + `p21
+@do `p23 + `p22
+
+@label menu
+
+@SHOW
+`r0
+`c
+`0-=-=-=-=-=-=-=-`r1 This looks like a retirement home! `r0`0-=-=-=-=-=-=-=-
+`/
+
+`2The small man behind the lobby desk greets you`x`x`x`0"Yesss...?"
+`/
+`/
+
+@dataload reset.idf &playernum `p24
+@datanewday rsetalgn.idf ;Once a day per player!
+@dataload rsetalgn.idf &playernum `p25
+
+@DO `v01 is 1
+
+@CHOICE
+`$Leave.
+`5See list of retirees.
+`%Visit your ancestor.
+`@Retire your player. (Start over from scratch.)
+@IF RESPONSE IS 1 THEN DO
+@begin
+ @DRAWMAP
+ @UPDATE
+ @closescript
+@end
+
+@IF RESPONSE IS 2 THEN DO
+@Begin
+ @if reset.txt exists false then do
+ @begin
+ @show
+ `c
+ `2 There are `%no`2 retirees yet, will you be the first? `0
+ @key noshow
+ @do goto menu
+ @end
+ @show
+ `c
+ @displayfile reset.txt
+ @show
+ `/
+ @key
+ @do goto menu
+@End
+
+@IF RESPONSE IS 3 THEN DO ; If player quailified, and once per day.
+@begin
+ @if `p24 is 0 then do ; No ancestors here.
+ @begin
+ @show
+ `c
+ `%You have no ancestors in this retirement village.
+
+ `0Guess you will have to do something else!
+
+ @key
+ @do goto menu
+ @end
+ @If `p25 is 0 then do ; Not been here before, today.
+ @begin
+ @show
+ `c
+ `/
+ `/
+ `/
+ `%Your revered ancestor greets you and says,
+
+ `0"How can I help you, favorite `2s&son,'0 ... hmmm ... I know!"
+
+
+`2Would you like me to:
+
+ `!R`2aise your alignment,
+ `@L`2ower your alignment,
+ @do write
+ or `%N`2either? `!R`0/`@L`0/`%N`x`x
+ @do Readspecial `s09 NRLnrl
+ @do upcase `s09
+ @if `s09 is R then do
+ @begin
+ @do `p07 + 6 ;Alignment up 6
+ @datasave rsetalgn.idf &playernum 1
+ @show
+ `/
+ `/
+ `!You feel yourself grow nicer!
+ `/
+ @key
+ @do goto menu
+ @end
+ @if `s09 is L then do
+ @begin
+ @do `p07 - 3 ;Alignment drops 3
+ @datasave rsetalgn.idf &playernum 1
+ @show
+ `/
+ `/
+ `@You feel meaner by the second!
+ `/
+ @key
+ @drawmap
+ @UPDATE
+ @closescript
+ @end
+ @if `s09 is N then do
+ @begin
+ @show
+ `/
+ `/
+ `0That was unrewarding!
+ `/
+ @key
+ @do goto menu
+ @end
+ @end
+
+@show
+ `c
+
+ `0Only one visit per day to relatives of Retirees!
+
+
+@key
+@do goto menu
+@closescript
+@end
+
+@IF RESPONSE IS 4 THEN DO begin ; If player quailifies.
+@begin
+ @show
+`r0`3`c
+ This will remove all your equipment (throw it away), all your
+ money, your money in the bank, your experience, quests, alignment
+ and start you off as a new player. `/
+
+ What will you keep? `0Probably`3, you keep properties that you own.
+ `/
+ `/
+ `0
+ @key
+ @DO `v01 is 1
+ @CHOICE
+ `$Chicken out!
+ `@Reset your character to level one.
+ @IF RESPONSE IS 1 THEN DO
+ @begin
+ @DRAWMAP
+ @UPDATE
+ @closescript
+ @end
+
+ @if `p23 less 1 then do
+ @begin
+ @show
+ `c
+ `0
+ Until you have completed the `!Koshi Quest`0 or the `@Dragon Quest`0
+ you cannot retire, one must work hard you know!
+ `/
+ `/
+ `/
+ @key
+ @DRAWMAP
+ @UPDATE
+ @closescript
+ @end
+
+
+ @dataload reset.idf &playernum `p24
+ ; write to reset.idf, the totals
+ ; `p24 holds total times won.
+
+ @do `p25 is `p21 ; `p21 has # of times won 1.
+ @do `p25 * 10000 ; `p25 has number of Good times won.
+ @do `p24 + `p25 ; Added new times won as good
+ @do `p24 + `p22 ; `p22 has number of evil times won.
+ ; `p24 has total good won and bad.
+
+ @datasave reset.idf &playernum `p24
+
+ ; Add the new info.
+
+ ; build new text file of people retired.
+
+ @do delete reset.txt
+ @do `p20 is 0 ; Player Number
+ @do `p25 is &totalaccounts ; `P25 is a control loop var.
+ @do `p25 + 1
+
+@label scoreloop
+ @do `p21 is 0
+ @do `p20 + 1 ; From 1 to 200?
+ @dataload reset.idf `p20 `p21
+ @do `p22 is `p21
+ @do `p22 / 10000 ; `p22 holds total Good times won.
+ @do `p24 is `p22
+ @do `p24 * 10000
+ @do `p23 is `p21
+ @do `p23 - `p24 ; `p23 holds total Evil times won.
+ @if `p21 more 0 then do
+ @begin
+
+ @do `p28 random 6 1
+
+ @if `p28 is 6 then do
+ @begin
+ @do `s05 is inspiring
+ @end
+ @if `p28 is 5 then do
+ @begin
+ @do `s05 is lowbrow
+ @end
+ @if `p28 is 4 then do
+ @begin
+ @do `s05 is mimsic
+ @end
+ @if `p28 is 3 then do
+ @begin
+ @do `s05 is guiltless
+ @end
+ @if `p28 is 2 then do
+ @begin
+ @do `s05 is lacklustre
+ @end
+ @if `p28 is 1 then do
+ @begin
+ @do `s05 is loquacious
+ @end
+
+ @do `S02 is getname `p20
+ @do `S03 is `2Having won `%`p22`2`xtimes
+ @do `S03 ADD `xas `!Good`2 and`x
+ @do `S03 ADD `%`p23`2`xtimes`xas`x`@Evil,`0
+ @do `S04 is the`x`S05`x`$`S02 `0retires!
+
+ @writefile reset.txt
+
+`S03
+`S04
+ @if `p20 is &playernum then do
+ @begin
+ @show
+ `c
+`S03
+`S04
+ `/
+ `/
+ @do addlog
+ `0<`$`S02`0>`% retired today!`0 S&his s&son will take over the family name.
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @end
+ @end
+ @if `p20 less `p25 then do
+ @Begin
+ @do goto scoreloop
+ @end
+ ; resetidfs
+
+ @show
+`/
+`/
+`/
+`^Working`0....this may take a minute.
+`/
+`/
+Resetting IDFs...
+`/
+
+ @if resetidf.txt exists false then do
+ @Begin
+ @do goto resetidfdone
+ @end
+
+ @copyfile resetidf.txt resetidf.tmp
+ @readfile resetidf.tmp
+`s01
+ @do `s02 is `s01
+ @do `p29 is 52
+
+@label newidfs
+
+ @do `p29 - 1
+ @do trim resetidf.tmp `p29
+ @readfile resetidf.tmp
+`s01
+ @if unchanged INSIDE `s01 then do
+ @begin
+ @do goto newidfs
+ @end
+
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @do goto resetidfdone
+ @end
+
+ @datasave `s01 &playernum 0
+
+ @do goto newidfs
+
+@label resetidfdone
+
+ @do delete resetidf.tmp
+ @do delete `N.IOH ;Hydra Isle reset
+ @do delete bounty.&playernum
+
+ @show
+`c
+Resetting variables.....
+`/
+
+ @do `p01 is 1 ; Exp
+ @do `p02 is 10 ; HP
+ @do `p03 is 10 ; HP Max
+ @do `p04 is 5 ; Muscle
+ @do `p05 is 0 ; Dodge
+ @do `p06 is 0 ; Quest 1 Status. <picked berries>
+ @do `p07 is 0 ; Alignment
+ @do `p08 is 0 ; Charm
+ @do `p09 is 1 ; Level
+ ; `p10 is Last day played
+ @do `p11 is `v05 ; `p11 is turns left
+ @do `p12 is 0 ; VD
+ @do `p13 is 0 ; Boat Destination. 0 is not on boat
+ @do `p14 is 0 ; Quest origin
+ @do `p15 is 0 ; Quest Destination
+ @do `p16 is 0 ; Quest Reward
+ @do `p17 is 0 ; Quest item
+ @do `p18 is 0 ; Quests completed
+ @do `p19 is 0 ; Gems
+ @do `p31 is `v07 ; Quests left today
+ @do `p32 is 0 ; Quest age in days
+ @do `p33 is `v08 ; Gambles left for today
+ @do `p34 is 0 ; Lays
+ @do `p35 is 0 ; Kills
+ @do `p36 is 0 ; Flute MAP location
+ @do `p98 is 0 ; Found hidden tree?
+ @do `p99 is 0 ; Tried to choke mom?
+
+;player specific byte vars. Some are used with the bitcheck command to turn
+;the byte into 8 yes/no vars.
+
+ @do `t01 is 0 ; Talked to Turgon, 2 - asked him about Greentree
+ @do `t02 is 0 ; Turgon chest open
+ @do `t03 is 0 ; 1 - Talked to Neb, 2 - Beat up Neb
+ @do `t04 is 0 ; 1 - Tried to fight master today (reset to 0 at NEWDAY)
+ @do `t05 is 0 ; Old woman, 1 - met her.
+ @do `t06 is 0 ; Amount of items in old woman's cauldron.
+ @do `t07 is 0 ; Opened chest in cave, 1 - yes.
+ @do `t08 is 0 ; Found bird? 1 - yes, 2 bird is dead, 3 bird is released
+ @do `t09 is 0 ; 1 - has used shrine today.
+ @do `t10 is random 10 5; fish left in stream today.
+ @do `t11 is 0 ; 1 - Took money from Dad's dresser
+
+ @do `t12 is 0
+
+;`t12: Bit 1: Killed Jeb's dog
+;`t12: Bit 2: Met Elle
+;`t12: Bit 3: Talked to Ma about Elle
+;`t12: Bit 4: Has talked with Edward
+;`t12: Bit 5: Has finished Edward quest
+;`t12: Bit 6: Read the letter even though asked not too
+;`t12: Bit 7: Lost at the Arena today
+
+ @do `t13 is 0
+
+;`t13: Bit 0: Opened chest
+;`t13: Bit 1: Opened chest
+;`t13: Bit 2: Opened chest
+;`t13: Bit 3: Opened chest
+;`t13: Bit 4: Opened chest
+;`t13: Bit 5: Opened chest
+;`t13: Bit 6: Opened chest
+;`t13: Bit 7: Opened chest
+
+ @do `t14 is 0
+
+;`t14: Bit 1: Learned about flute
+;`t14: Bit 2: Knows 1st 2 songs..
+;`t14: Bit 3: Has killed Tash?
+;`t14: Bit 4: Completed ghost quest
+
+ @do `t15 is 0 ; `t15 Flute X position
+ @do `t16 is 0 ; `t16 Flute Y position
+ @do `t17 is 0
+
+;`t17: Bit 0: Chest
+;`t17: Bit 1: Can talk to mother about Koshi
+;`t17: Bit 2: Asked Koshi about Dragon
+;`t17: Bit 3: Talked to mom about dad
+;`t17: Bit 4: Ready to steal Gryphon
+;`t17: Bit 5: Something else?
+;`t17: Bit 6: Has Gryphon!
+;`t17: Bit 7: Has won as good
+
+ @do `t18 is 0
+
+;`t18: Bit 0: Joined Dragon Tooth or not
+;`t18: Bit 1: Has met Phin.
+;`t18: Bit 2: Has accepted quest.
+;`t18: Bit 3: Has the merchandise
+;`t18: Bit 4: Has delivered it
+
+;`t18: Bit 7: Has won as evil
+
+ @do `t19 is 0 ; `t19 bit 1 is Goat Boy toggle.
+
+; just in case?
+
+ @do `t20 is 0
+ @do `t21 is 0
+ @do `t22 is 0
+ @do `t23 is 0
+ @do `t24 is 0
+ @do `t25 is 0
+ @do `t26 is 0
+ @do `t27 is 0
+ @do `t28 is 0
+ @do `t29 is 0
+ @do `t30 is 0
+ @do `t31 is 0
+ @do `t32 is 0
+ @do `t33 is 0
+ @do `t34 is 0
+ @do `t35 is 0
+ @do `t36 is 0
+ @do `t37 is 0
+ @do `t38 is 0
+ @do `t39 is 0
+
+
+ @do `t40 is 0
+ @do `t41 is 0
+ @do `t42 is 0
+ @do `t43 is 0
+ @do `t44 is 0
+ @do `t45 is 0
+ @do `t46 is 0
+ @do `t47 is 0
+ @do `t48 is 0
+ @do `t49 is 0
+ @do `t50 is 0
+ @do `t51 is 0
+ @do `t52 is 0
+ @do `t53 is 0
+ @do `t54 is 0
+ @do `t55 is 0
+ @do `t56 is 0
+ @do `t57 is 0
+ @do `t58 is 0
+ @do `t59 is 0
+ @do `t60 is 0
+ @do `t61 is 0
+ @do `t62 is 0
+ @do `t63 is 0
+ @do `t64 is 0
+ @do `t65 is 0
+ @do `t66 is 0
+ @do `t67 is 0
+ @do `t68 is 0
+ @do `t69 is 0
+ @do `t70 is 0
+ @do `t71 is 0
+ @do `t72 is 0
+ @do `t73 is 0
+ @do `t74 is 0
+ @do `t75 is 0
+ @do `t76 is 0
+ @do `t77 is 0
+ @do `t78 is 0
+ @do `t79 is 0
+ @do `t80 is 0
+ @do `t81 is 0
+ @do `t82 is 0
+ @do `t83 is 0
+ @do `t84 is 0
+ @do `t85 is 0
+ @do `t86 is 0
+ @do `t87 is 0
+ @do `t88 is 0
+ @do `t89 is 0
+ @do `t90 is 0
+ @do `t91 is 0
+ @do `t92 is 0
+ @do `t93 is 0
+ @do `t94 is 0
+ @do `t95 is 0
+ @do `t96 is 0
+ @do `t97 is 0
+ @do `t98 is 0
+ @do `t99 is 0
+
+; Toss all items.
+
+ @do `i01 is 0
+ @do `i02 is 0
+ @do `i03 is 0
+ @do `i04 is 0
+ @do `i05 is 0
+ @do `i06 is 0
+ @do `i07 is 0
+ @do `i08 is 0
+ @do `i09 is 0
+ @do `i10 is 0
+ @do `i11 is 0
+ @do `i12 is 0
+ @do `i13 is 0
+ @do `i14 is 0
+ @do `i15 is 0
+ @do `i16 is 0
+ @do `i17 is 0
+ @do `i18 is 0
+ @do `i19 is 0
+ @do `i20 is 0
+ @do `i21 is 0
+ @do `i22 is 0
+ @do `i23 is 0
+ @do `i24 is 0
+ @do `i25 is 0
+ @do `i26 is 0
+ @do `i27 is 0
+ @do `i28 is 0
+ @do `i29 is 0
+ @do `i30 is 0
+ @do `i31 is 0
+ @do `i32 is 0
+ @do `i33 is 0
+ @do `i34 is 0
+ @do `i35 is 0
+ @do `i36 is 0
+ @do `i37 is 0
+ @do `i38 is 0
+ @do `i39 is 0
+ @do `i40 is 0
+ @do `i41 is 0
+ @do `i42 is 0
+ @do `i43 is 0
+ @do `i44 is 0
+ @do `i45 is 0
+ @do `i46 is 0
+ @do `i47 is 0
+ @do `i48 is 0
+ @do `i49 is 0
+ @do `i50 is 0
+ @do `i51 is 0
+ @do `i52 is 0
+ @do `i53 is 0
+ @do `i54 is 0
+ @do `i55 is 0
+ @do `i56 is 0
+ @do `i57 is 0
+ @do `i58 is 0
+ @do `i59 is 0
+ @do `i60 is 0
+ @do `i61 is 0
+ @do `i62 is 0
+ @do `i63 is 0
+ @do `i64 is 0
+ @do `i65 is 0
+ @do `i66 is 0
+ @do `i67 is 0
+ @do `i68 is 0
+ @do `i69 is 0
+ @do `i70 is 0
+ @do `i71 is 0
+ @do `i72 is 0
+ @do `i73 is 0
+ @do `i74 is 0
+ @do `i75 is 0
+ @do `i76 is 0
+ @do `i77 is 0
+ @do `i78 is 0
+ @do `i79 is 0
+ @do `i80 is 0
+ @do `i81 is 0
+ @do `i82 is 0
+ @do `i83 is 0
+ @do `i84 is 0
+ @do `i85 is 0
+ @do `i86 is 0
+ @do `i87 is 0
+ @do `i88 is 0
+ @do `i89 is 0
+ @do `i90 is 0
+ @do `i91 is 0
+ @do `i92 is 0
+ @do `i93 is 0
+ @do `i94 is 0
+ @do `i95 is 0
+ @do `i96 is 0
+ @do `i97 is 0
+ @do `i98 is 0
+ @do `i99 is 0
+
+ @do narm is 0
+ @do nwep is 0
+ @do bank is 0
+ @do money is 0
+
+ ;put him back home.
+ @show
+ We are done here!
+
+ @if `p27 is 0 then do ; set `p27 at start of IGM for debugging
+ @begin
+ @do X is 27
+ @do Y is 7
+ @do MAP is 155
+ @loadmap 155
+ @end
+
+ @DRAWMAP
+ @UPDATE
+ @CLOSESCRIPT
+@End
+
+@End
+
+@#NOMORE
+
diff --git a/xtrn/lord2/cnw/reset.sh b/xtrn/lord2/cnw/reset.sh
new file mode 100755
index 0000000000000000000000000000000000000000..111f986c7ddb669b996a28019620a33872b1c61e
--- /dev/null
+++ b/xtrn/lord2/cnw/reset.sh
@@ -0,0 +1,329 @@
+#!/bin/sh
+echo " LastUpdate: Mar-28-2001"
+echo ""
+echo " This SHELL file will reset your LoRD2 game."
+echo ""
+echo " Available only for:"
+echo " - New World"
+echo " - Complete New World"
+echo ""
+echo " An updated version can be found here:"
+echo " http://greenmachinebbs.com/lord2/cnwfiles/RESET.BAT"
+echo ""
+echo " Press CTRL+C NOW if you do NOT want to reset the game."
+echo ""
+read -p "Press enter to continue" ignore
+rm -f mail/*
+rm -f *.ioh
+rm -f *.idf
+rm -f tense*.dat
+rm -f tense*.idf
+rm -f tense*.txt
+rm -f lockers*.idf
+rm -f lock*.idf
+rm -f *.chk
+rm -f *.tmp
+rm -f *.cod
+rm -f *.auc
+rm -f *.shw
+rm -f chw*.dat
+rm -f list*.dat
+rm -f resetbug.rpt
+rm -f thedraw.pck
+rm -f wedpro?.txt
+rm -f wedpro??.txt
+rm -f prison.1??
+rm -f prison.2??
+rm -f prison.1?
+rm -f prison.2?
+rm -f prison.3?
+rm -f prison.4?
+rm -f prison.5?
+rm -f prison.6?
+rm -f prison.7?
+rm -f prison.8?
+rm -f prison.9?
+rm -f prison.1
+rm -f prison.2
+rm -f prison.3
+rm -f prison.4
+rm -f prison.5
+rm -f prison.6
+rm -f prison.7
+rm -f prison.8
+rm -f prison.9
+rm -f table.1??
+rm -f table.2??
+rm -f table.1?
+rm -f table.2?
+rm -f table.3?
+rm -f table.4?
+rm -f table.5?
+rm -f table.6?
+rm -f table.7?
+rm -f table.8?
+rm -f table.9?
+rm -f table.1
+rm -f table.2
+rm -f table.3
+rm -f table.4
+rm -f table.5
+rm -f table.6
+rm -f table.7
+rm -f table.8
+rm -f table.9
+rm -f bounty.1??
+rm -f bounty.2??
+rm -f bounty.1?
+rm -f bounty.2?
+rm -f bounty.3?
+rm -f bounty.4?
+rm -f bounty.5?
+rm -f bounty.6?
+rm -f bounty.7?
+rm -f bounty.8?
+rm -f bounty.9?
+rm -f bounty.1
+rm -f bounty.2
+rm -f bounty.3
+rm -f bounty.4
+rm -f bounty.5
+rm -f bounty.6
+rm -f bounty.7
+rm -f bounty.8
+rm -f bounty.9
+rm -f challeng.1??
+rm -f challeng.2??
+rm -f challeng.1?
+rm -f challeng.2?
+rm -f challeng.3?
+rm -f challeng.4?
+rm -f challeng.5?
+rm -f challeng.6?
+rm -f challeng.7?
+rm -f challeng.8?
+rm -f challeng.9?
+rm -f challeng.1
+rm -f challeng.2
+rm -f challeng.3
+rm -f challeng.4
+rm -f challeng.5
+rm -f challeng.6
+rm -f challeng.7
+rm -f challeng.8
+rm -f challeng.9
+rm -f jennie.1??
+rm -f jennie.2??
+rm -f jennie.1?
+rm -f jennie.2?
+rm -f jennie.3?
+rm -f jennie.4?
+rm -f jennie.5?
+rm -f jennie.6?
+rm -f jennie.7?
+rm -f jennie.8?
+rm -f jennie.9?
+rm -f jennie.1
+rm -f jennie.2
+rm -f jennie.3
+rm -f jennie.4
+rm -f jennie.5
+rm -f jennie.6
+rm -f jennie.7
+rm -f jennie.8
+rm -f jennie.9
+rm -f jw-isle1.mil
+rm -f jw-isle2.mil
+rm -f jw-isle3.mil
+rm -f jw-isle4.mil
+rm -f jw-islex.mil
+rm -f jw-isleg.mil
+rm -f jw-islel.mil
+rm -f woodland.0??
+rm -f woodland.1??
+rm -f woodland.200
+rm -f prisitem.*
+rm -f prisinfo.*
+rm -f jw-isle*.mil
+rm -f castle.idx
+rm -f 1stclass.dat
+rm -f error.log
+rm -f pyr4.dat
+rm -f pyr5.dat
+rm -f pyr6.dat
+rm -f pyr7.dat
+rm -f pr4.dat
+rm -f pr5.dat
+rm -f pr6.dat
+rm -f pr7.dat
+rm -f pys.idf
+rm -f cott.dat
+rm -f cotta.dat
+rm -f alientel.inf
+rm -f tlsscrew.dat
+rm -f tlsinnrd.dat
+rm -f tlswant.dat
+rm -f tlsbur.dat
+rm -f tlsinnrd.dat
+rm -f tlsblando.dat
+rm -f tlsyoda.dat
+rm -f tlsturns.dat
+rm -f tlstodag.dat
+rm -f tlsyoda1.dat
+rm -f bann.dat
+rm -f time.dat
+rm -f camelot.dat
+rm -f cam.dat
+rm -f trader.dat
+rm -f bucket.dat
+rm -f felhouse.dat
+rm -f l2tree.dat
+rm -f tensekb.dat
+rm -f tensepk.dat
+rm -f castle75.dat
+rm -f tenseqz.dat
+rm -f gorilla2.dat
+rm -f mtres.dat
+rm -f hong3.dat
+rm -f hong3a.dat
+rm -f myst.dat
+rm -f myst1.dat
+rm -f myst1a.dat
+rm -f stime.dat
+rm -f ninn2b.dat
+rm -f tltres1.dat
+rm -f tltres2.dat
+rm -f tltres3.dat
+rm -f tltres4.dat
+rm -f tltres5.dat
+rm -f isle35.dat
+rm -f tltpet1.dat
+rm -f tltpet2.dat
+rm -f tltpet3.dat
+rm -f tltpet4.dat
+rm -f tltpet5.dat
+rm -f tltname1.dat
+rm -f tltname2.dat
+rm -f tltname3.dat
+rm -f tltname4.dat
+rm -f tltname5.dat
+rm -f castle1.dat
+rm -f castle2.dat
+rm -f castle3.dat
+rm -f castle4.dat
+rm -f castle71.dat
+rm -f ninn?.dat
+rm -f ninn??.dat
+rm -f passage2.dat
+rm -f castle4a.dat
+rm -f castle76.dat
+rm -f castle72.dat
+rm -f regsysin.dat
+rm -f house1.dat
+rm -f tlhouse1.dat
+rm -f tlhouse2.dat
+rm -f tlhouse3.dat
+rm -f tlhouse4.dat
+rm -f tlhouse5.dat
+rm -f room*.dat
+rm -f jcastle.dat
+rm -f tres*.dat
+rm -f colisb.dat
+rm -f coliseum.dat
+rm -f coliseum.txt
+rm -f coldesk1.txt
+rm -f coldesk2.txt
+rm -f coldesk3.txt
+rm -f coldesk4.txt
+rm -f coldesk5.txt
+rm -f coldesk6.txt
+rm -f coldesk7.txt
+rm -f coldesk8.txt
+rm -f coldesk9.txt
+rm -f coldskb1.txt
+rm -f coldskb2.txt
+rm -f coldskb3.txt
+rm -f coldskb4.txt
+rm -f coldskb5.txt
+rm -f coldskb6.txt
+rm -f coldskb7.txt
+rm -f coldskb8.txt
+rm -f coldskb9.txt
+rm -f qcastle.dat
+rm -f swdtower.dat
+rm -f srdtower.dat
+rm -f wishwel2.dat
+rm -f owtc.dat
+rm -f keep.dat
+rm -f ffhouse1.dat
+rm -f ffhouse2.dat
+rm -f ffhouse3.dat
+rm -f ffhouse4.dat
+rm -f ffhouse5.dat
+rm -f cnwsign.*
+rm -f castle78.dat
+rm -f ship$.dat
+rm -f castle74.dat
+rm -f tlsbland.dat
+rm -f tlsant.dat
+rm -f pisle.dat
+rm -f islez.dat
+rm -f team1.dat
+rm -f team2.dat
+rm -f team3.dat
+rm -f team4.dat
+rm -f team5.dat
+rm -f teamu.dat
+rm -f lst20.dat
+rm -f pass1.dat
+rm -f pass2.dat
+rm -f pass3.dat
+rm -f pastre1.dat
+rm -f pastre2.dat
+rm -f pastre3.dat
+rm -f temp*.dat
+rm -f time.dat
+rm -f stime.dat
+rm -f gescape.*
+rm -f canoe.chk
+rm -f taxes.chk
+rm -f hotel.dat
+rm -f hotela.dat
+mkdir npc
+cd npc
+rm -f *
+cd ..
+echo ""
+echo ""
+echo " Do you want to delete the writtings on the walls also?"
+echo ""
+echo " Press CTRL+C NOW if you do NOT want to erase the walls."
+echo ""
+read -p "Press enter to continue" ignore
+rm -f tlchat*.txt
+rm -f bar*.txt
+rm -f doc*.txt
+rm -f fel*.txt
+rm -f myst*.txt
+rm -f wall.txt
+rm -f tree.txt
+rm -f passage.txt
+rm -f hongwall.txt
+rm -f lgossip.txt
+rm -f gracom.txt
+rm -f gummayor.txt
+rm -f garden.txt
+rm -f gossip.txt
+rm -f book.txt
+rm -f cloak.txt
+rm -f pychat.txt
+rm -f revenge.txt
+rm -f revenge2.txt
+rm -f *.txt
+rm -f lock*.txt
+rm -f info*.dat
+echo ""
+echo " DONE! All reset."
+echo ""
+echo " You may also want to run the RESET in L2CFG.EXE program."
+echo ""
diff --git a/xtrn/lord2/cnw/resort.ref b/xtrn/lord2/cnw/resort.ref
new file mode 100644
index 0000000000000000000000000000000000000000..f5fcb879ec5cd431fcf02984e044f610d0b3e2f4
--- /dev/null
+++ b/xtrn/lord2/cnw/resort.ref
@@ -0,0 +1,147 @@
+; Script file RESORT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:35 2001
+
+@DECLARE enter 000000625
+@DECLARE exit 000000707
+@DECLARE build 000000795
+@DECLARE water 000000879
+@DECLARE sign1 000000963
+@DECLARE sign2 000001013
+@DECLARE sign3 000001074
+@DECLARE sign4 000001145
+@DECLARE bartend 000001202
+@DECLARE bar 000001291
+@DECLARE healer 000001404
+@DECLARE direct 000001495
+@DECLARE person1 000001693
+@DECLARE person2 000001843
+@DECLARE person3 000001991
+@DECLARE person4 000002139
+@DECLARE person5 000002313
+@NOCHECK
+; End of .REF index
+
+; These are the routines for the Resort IGM
+
+@#ENTER
+@do x is 38
+@do y is 2
+@do map is 51
+@loadmap 51
+@drawmap
+@update
+
+@#EXIT
+@do x is 34
+@do y is 19
+@do map is 1518
+@loadmap 1518
+@drawmap
+@update
+
+@#BUILD
+@do x is 40
+@do y is 15
+@do map is 52
+@loadmap 52
+@drawmap
+@update
+
+@#WATER
+@do x is 72
+@do y is 12
+@do map is 50
+@loadmap 50
+@drawmap
+@update
+
+@#SIGN1
+@do saybar
+`%This way to The Resort.
+
+@#SIGN2
+@do saybar
+`%This way back to South Stonebrook.
+
+@#SIGN3
+@do saybar
+`%You find yourself in a small grove of trees.
+
+@#SIGN4
+@do saybar
+`%This way to The Resort Lodge
+
+@#BARTEND
+@do `p21 is `p03
+@do `p21 + 5
+@if `p02 > `p21 then goto bar
+@do `p02 + 1
+@label bar
+@do saybar
+`4Bartender: `%Here's a nice, cold beer for ya!
+@do quebar
+`%You feel very refreshed!
+
+@#HEALER
+@do `p02 is `p03
+@do saybar
+`4Mystical Healer: `%You are completely healed.
+
+@#DIRECT
+@do `p70 is 105
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`4Direct: `%There are a few beds in the next room. The healer is over there.
+@end
+
+@#PERSON1
+@do `p70 is 134
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`4Happy pappy: `%Lets Dance!
+@end
+
+@#PERSON2
+@do `p70 is 135
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`4Dan: `%hik! whata wanta?
+@end
+
+@#PERSON3
+@do `p70 is 136
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`4Don: `%have a beer, hik!
+@end
+
+@#PERSON4
+@do `p70 is 137
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`4Lone: `%Leave me alone!! I don't want any friends.
+@end
+
+@#PERSON5
+@do `p70 is 138
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`4Dance: `%There is music in the air.
+@end
diff --git a/xtrn/lord2/cnw/revenge.ref b/xtrn/lord2/cnw/revenge.ref
new file mode 100644
index 0000000000000000000000000000000000000000..3fd0fc0aa95437c1feac963ad3c879c9586c75a0
--- /dev/null
+++ b/xtrn/lord2/cnw/revenge.ref
@@ -0,0 +1,1569 @@
+; Script file REVENGE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:36 2001
+
+@DECLARE fence 000000966
+@DECLARE fishing 000001089
+@DECLARE mtop 000001152
+@DECLARE weapon 000009864
+@DECLARE arstart 000009918
+@DECLARE potion 000010485
+@DECLARE bstart 000010538
+@DECLARE heal 000010929
+@DECLARE bank 000012634
+@DECLARE bankstart 000012761
+@DECLARE bankagain 000013852
+@DECLARE deposit 000015271
+@DECLARE withdraw 000015787
+@DECLARE person 000016691
+@DECLARE main 000017611
+@DECLARE bank 000021322
+@DECLARE bankstart 000021378
+@DECLARE bankagain 000022469
+@DECLARE deposit 000023888
+@DECLARE withdraw 000024404
+@DECLARE write 000025305
+@DECLARE sign2 000026301
+@DECLARE inn 000026450
+@DECLARE store 000027400
+@DECLARE chancee 000030607
+@DECLARE travel 000030711
+@NOCHECK
+; End of .REF index
+
+;Revenge.ref Includes all store and objects inside the Castle.
+;Not anything that is inside buildings that are inside the Castle.
+
+@#fence
+@do saybar
+`0The fence is locked
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-[Revenge Castle]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#fishing
+;Go fishing for things
+ @offmap
+ @do moveback
+ @label mtop
+ @do `v01 is 1
+ @show
+`r0`c `%Secret Fishing Pond
+
+`2As you get transported into the Castle from the secret path you
+found, you see a pond full of fish and junk. you look around and
+see a fishing pole, and you think to yourself if you want to go
+fishing or not.
+
+@do write
+`x`x`x`x
+@choice
+Go fishing
+Leave the place
+@show
+@if response is 1 then do
+ @begin
+
+; Checking if Data file exists... if not write fake one (don't want this
+; program to crash out)
+
+@if rev&playernum.txt exists false then do begin
+@begin
+@writefile rev&playernum.txt
+01/01/1988
+`s02
+@end
+
+; Read the players data file compare it to todays date. If it equals
+; todays date then exit out with message, else do the routine
+
+@readfile rev&playernum.txt
+`s01
+`s02
+@do `s05 is &date
+@if `s01 not `s05 then do
+ @begin
+ @show
+`c
+`0 You decided to go fishing anyway, not caring what if anyone could see
+ you. You pick up the fishing rod and cast it into the water. You
+ wait a brief moment and then you get a tug on the line, you pull
+ fast.`l. `l. `l. `l. `\
+
+@do `p20 random 22 1
+;
+; Random things that you can get
+;
+; 1 - Extra Gold
+; 2 - Extra Muscle
+; 3 - Extra Dodge
+; 4 - Sparkling Green Salmon
+; 5 - A healing potion (5 point one)
+; 6 - a red potion (5 hit points)
+; 7 - a silver potion (muscle)
+; 8 - a gold potion (dodge)
+; 9 - pie
+; 10 - Salmon
+; 11 - gem
+; 12 - blue potion
+; 13 - white potion
+; 14 - egg
+; 15 - little Girl
+; 16 - apple
+; 17 - travel potion
+; 18 -> 22 - Nothing
+
+@if `p20 is 1 then do
+@begin
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p21 is `v09
+ @do `p21 - 1
+; Do the math, You'll get Gold = level * level * 10
+ @do `p21 * `p21
+ @do `p21 * 10
+ @show
+`% Richer! `2 In your hand appears `$`p21`2 gold!`\
+`2 You look at the gold, then leave happly.`\`\`k
+ @do money + `p21
+ @do addlog
+ `%�� `0`n `2has recieved `$gold`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+ @end
+
+@if `p20 is 2 then do
+@begin
+@show
+`% Strength!`\
+`2 As you pull in you realize you caught a rock, giving you strength
+ from pulling it in.`\`\`k
+ @do `p04 + 1
+ @do addlog
+ `%�� `0`n `2has recieved `4Strength`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+ @end
+
+@if `p20 is 3 then do
+@begin
+ @show
+`% Tougher!`\
+`2 You reel in a piranha and it attacks you, but you defend
+ your self, giving you defense..`\`\`k
+ @do `p05 + 1
+ @do addlog
+ `%�� `0`n `2has recieved `9Defence`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+ @end
+
+@if `p20 is 4 then do
+@begin
+ @show
+`% Sparkling Salmon
+`2 As you reel in you get a very big tug, about an half hour later you
+pull in a very nice Sparkling Green Salmon.
+@do `i30 + 1
+ @do addlog
+ `%�� `0`n`2 recieved a `0Sparkling Green Salmon`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+ @end
+
+@if `p20 is 5 then do
+@begin
+ @show
+`% A Green Potion!`\
+`2 You reel in slowly and see that you have caught a green potion`\`\`k
+ @do `i05 + 1
+ @do addlog
+ `%�� `0`n `2has recieved a `0green potion`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+ @end
+
+@if `p20 is 6 then do
+@begin
+ @show
+`% A Red Potion!`\
+`2 You reel in slowly and see that you have caught a red potion`\`\`k
+ @do `i52 + 1
+ @do addlog
+ `%�� `0`n `2has recieved a `4red potion`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+ @end
+
+@if `p20 is 7 then do
+@begin
+ @show
+`% A Gold Potion!`\
+`2 You reel in slowly and see that you have caught a gold potion`\`\`k
+ @do `i53 + 1
+ @do addlog
+ `%�� `0`n `2has recieved a `$gold potion`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+ @end
+
+@if `p20 is 8 then do
+@begin
+ @show
+`% A Silver Potion!`\
+`2 You reel in slowly and see that you have caught a silver potion`\`\`k
+ @do `i54 + 1
+ @do addlog
+ `%�� `0`n `2has recieved a `7silver potion`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+ @end
+
+@if `p20 is 9 then do
+@begin
+ @show
+`% A Pie!`\
+`2 You reel in, and a tug, you pull in and you get see a berry pie
+ on your hook.`\`\`k
+ @do `i08 + 1
+ @do addlog
+ `%�� `0`n `2has recieved a `9pie`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+ @end
+
+@if `p20 is 10 then do
+@begin
+ @show
+`% Salmon!`\
+`2 You reel in slowly and you get a big tug. After an few minutes
+ you pull out a nice Salmon`\`\`k
+ @do `p18 + 1
+ @do addlog
+ `%�� `0`n `2has recieved a `6Salmon`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+@end
+
+@if `p20 is 11 then do
+@begin
+ @show
+`% A Gem!`\
+`2 You get an extra gem as you reel in your line!`\`\`k
+ @do `p19 + 1
+ @do addlog
+ `%�� `0`n `2has recieved a `5gem`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+@end
+
+@if `p20 is 12 then do
+@begin
+ @show
+`% A Blue potion!`\
+`2 You reel in slowly seeing that you have caught a blue potion.`\`\`k
+@do `i40 + 1
+ @do addlog
+ `%�� `0`n `2has recieved a `1blue potion`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+@end
+
+@if `p20 is 13 then do
+@begin
+ @show
+`% A White Potion!`\
+`2 You reel in slowly seeing that you have caught a white potion.`\`\`k
+@do `i55 +1
+ @do addlog
+ `%�� `0`n `2has recieved a `%white potion`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+@end
+
+@if `p20 is 14 then do
+@begin
+ @show
+`% An Egg!`\
+`2 Some how when you reeled in your line, you had an egg on it. `\`\`k
+@do `i43 + 1
+ @do addlog
+ `%�� `0`n `2has recieved an `4egg`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+@end
+
+@if `p20 is 15 then do
+@begin
+ @show
+`% A little girl!?`\
+`2 As you are fishing, you see a little girl treading in the water, yelling
+ help me!, you jump and and save her, then she asks if you can take her
+ to her mom in the Red Dragon Inn.`\`\`k
+@do `i11 + 1
+ @do addlog
+ `%�� `0`n `2has saved a little girl in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+
+@end
+
+@if `p20 is 16 then do
+@begin
+ @show
+`% An apple!`\
+`2 As you reel in, you find an apple on your hook.`\`\``k
+@do `i19 + 1
+ @do addlog
+ `%�� `0`n `2has recieved an `4apple`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+@end
+
+@if `p20 is 17 then do
+@begin
+ @show
+`% A Travel potion`\
+`2 As you reel in, you find a traveling potion on your line.`\`\`k
+@do `i50 + 1
+ @do addlog
+ `%�� `0`n `2has recieved a `!travel potion`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+@end
+
+@if `p20 is 18 then do
+@begin
+ @show
+`4 Nothing!`\
+`2 As you reel in, you notice that you have nothing on your line.`\`\`k
+ @do addlog
+ `%�� `0`n `2has recieved `4NOTHING`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+@end
+
+@if `p20 is 19 then do
+@begin
+ @show
+`4 Nothing!`\
+`2 As you reel in, you notice that you have nothing on your line.`\`\`k
+ @do addlog
+ `%�� `0`n `2has recieved `4NOTHING`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+@end
+
+@if `p20 is 20 then do
+@begin
+ @show
+`4 Nothing!`\
+`2 As you reel in, you notice that you have nothing on your line.`\`\`k
+ @do addlog
+ `%�� `0`n `2has recieved `4NOTHING`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+@end
+
+@if `p20 is 21 then do
+@begin
+ @show
+`4 Nothing!`\
+`2 As you reel in, you notice that you have nothing on your line.`\`\`k
+ @do addlog
+ `%�� `0`n `2has recieved `4NOTHING`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+@end
+
+@if `p20 is 22 then do
+@begin
+ @show
+`4 Nothing!`\
+`2 As you reel in, you notice that you have nothing on your line.`\`\`k
+ @do addlog
+ `%�� `0`n `2has recieved `4NOTHING`2 in the mysterious pond `%��
+ @routine seperate in gametxt.ref
+@end
+
+@if rev&playernum.txt exists true then delete rev&playernum.txt
+@writefile rev&playernum.txt
+&date
+`s02
+@do goto mtop
+@end
+
+
+
+@if `s01 is `s05 then do
+ @begin
+ @show
+`2`\`\You already went fishing today. Try again tomorrow!
+`\`\`k
+ @do goto mtop
+ @end
+
+ @drawmap
+ @update
+ @closescript
+@end
+
+@if response is 2 then do
+@begin
+ @show
+`\`\
+`2 You decide not to make a wish right now.
+`\
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+
+@show
+`\`\
+`2 This is under construction!
+`\`\`k
+@do goto mtop
+
+@drawmap
+@update
+@closescript
+@end
+
+
+;-=-=-=-=-=-=-=-=-=-=-=-[Revenge Castle]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#WEAPON
+@offmap
+@do moveback
+@do `v01 is 1
+@label arstart
+@show
+`r0`c `%Revenge's Weapon & Armour store
+
+`2 You enter the building and start looking around.
+
+@do write
+`x`x
+@choice
+Examine his weaponry
+Examine his armoury
+Go outside.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 6
+ 4
+ 9
+ 15
+ 16
+ 38
+ 36
+ 49
+ 39
+ 58
+ @end
+
+@if responce is 2 then do begin
+ @begin
+@buymanager
+ 10
+ 12
+ 13
+ 14
+ 37
+ 59
+ @end
+
+@if responce not 3 then goto arstart
+@drawmap
+@update
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-[Revenge Castle]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#Potion
+@offmap
+@do moveback
+@do `v01 is 1
+@label bstart
+@show
+`r0`c `%Revenge's Potion Shop
+
+`2 You enter the building and start looking around.
+
+@do write
+`x`x
+@choice
+Examine his potion
+Go outside.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@buymanager
+
+ 05
+ 40
+ 55
+ @end
+
+@if responce not 2 then goto bstart
+@drawmap
+@update
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-[Revenge Castle]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#heal
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%The Healers
+
+`2 Phyco 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," `2Phyco 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," `2Phyco laughs.
+
+`k
+@drawmap
+@update
+
+
+@#bank
+@do `p30 is 19
+@do `v01 is 1
+@offmap
+@do moveback
+@do `s09 is revenge
+@routine DONEQUEST in VAULTS.REF
+@label bankstart
+@show
+`r0`c `r1 `%The Bank `r0
+
+`2 A young clerk eyes you nervously.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdraw.
+=&bank 0 Apply for an account here.
+Leave
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last question?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookkeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+
+
+@drawmap
+@update
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-[Revenge Castle]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#person
+;Man in Revenge Castle
+@do moveback
+@do `p20 random 10 1
+@if `p20 is 1 then saybar
+`%Guy: `0I heard that the IGM `8Myst Ville`0 is a great one.
+@if `p20 is 2 then saybar
+`%Guy: `8Revenge Castle `0is created by Sejr Andersen aka `4FireHawk
+@if `p20 is 3 then saybar
+`%Guy: `0I heard that you can sneak in the pond and go fishing.
+@if `p20 is 4 then saybar
+`%Guy: `0The view is great up here.
+@if `p20 is 5 then saybar
+`%Guy: `0It is sure quiet up here, in the forest far from everyone.
+@if `p20 is 6 then saybar
+`%Guy: `0***Yawn***
+@if `p20 is 7 then saybar
+`%Guy: `0If you find the secret enterance outside the castle you can go fish
+@if `p20 is 8 then saybar
+`%Guy: `0That black spot over there is a secret.
+@if `p20 is 9 then saybar
+`%Guy: `0If you want to get another chance at something, visit the west room
+
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-[Revenge Castle]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#main
+;tells you were everything is.
+DO MOVEBACK
+@BUSY
+@DO `v01 is 1
+@SHOW
+`r0`c `r1Main Desk `r0
+
+ `0Welcome to `8Revenge Castle.`0 This is the `4M`2a`1i`#n `%D`$e`!s`@k
+`0and I'm here to help anyone that needs to know where they can find where
+things are.
+`k
+`c
+
+@do moveback
+@busy
+@offmap
+@clear screen
+@show
+`c
+`r0`c `r1`%Info on the Castle `r0
+
+`0 So you are wondering where everything is in this wonderful castle.
+Well first I can tell you the history of this castle.
+
+`0In the olden days this castle was near Arrisville at the time, and there
+was also another castle, called `4Dragon Tooth Castle`0. One day, the
+`4Dragon Tooth Castle`0 formed a Clan, which is still here to this day. When
+they had this Group of people they were very powerful, they had all the
+weapons they needed, and they fought everyone that got in there way.
+
+`0One day, this Castle got a message from a mysterious man, that the `4Dragon
+Tooth Clan`0 was going to attack this castle, because it was the only one left
+that wasn't for sale for people to buy. So the king of the castle listen to
+this man and they formed a group to defend the castle. But it didn't work,
+the `4Dragon tooth clan`0 was too big, and they defeated the king.
+
+`0The next day, the same mysterious man came and said that they
+were going to attack the castle again. But this time the man had a plan.
+Later that day, they went to the `4Dragon tooth Castle`0 and went into the
+secret path way that the mysterious man had showed them and they placed a fire
+in it, then the army ran out, and the castle blew up. Everyone died in that
+castle except one single man, that made the `4Dragon Tooth Clan `0that is here
+to this day.
+
+`0The reason why the Castle is over here now, is because when that one man
+survived he swore he would get `4revenge`0 and attack the castle, so the
+mysterious man moved the castle with the magic powers that he had and placed
+it far away, where the man couldn't find it anymore.
+`k
+`c
+
+`r0`c `r1`%Main Office `r0
+
+`0Okay, now I can tell you where all the rooms are and what are in them.
+The first room is this room, the main office. There isn't much in this
+room. There is a `$bank `0, so that you can withdrawl, or depsoit
+some money before going into the rooms, so you can buy things, or not lose
+any money if someone comes in here and attacks you. This room is also safe
+for people if you are in LOW levels (under 15), cause this is a no fighting
+room. If you would like to be sent somewhere, `8Revenge Castle `0has a nice
+selection of places to visit.
+`k
+`c
+
+`r0`c `r1`%North Room `r0
+
+`0The second room is just North from this room, you can buy your `6weapons
+`0and `6armour `0up in that room. A `9magic pond `0is said to be located
+in the black spot, but no one knows how to get in there, since it was sealed
+off. Some people say that there is a secret place in the rocks outside that
+will take you to it, you can go fishing and catch anything. There is also a
+`4healer `0in there, and a `5potion shop`0. It is a nice place to rest, it
+is quiet and full of trees.
+`k
+`c
+
+`r0`c `r1`%West Room `r0
+
+`0The third room is West room. In this room, there is a wall
+that you can write on . There is an inn, that you can stay in for a cheap
+price. There is a place that you can fight monsters, so that you can gain
+experience and gold. Then there is a chance place to
+allow you to give you another chance (more steps, more fishings turns etc..).
+
+ I hope you enjoy your stay at `8Revenge Castle`0.
+`\`k
+@drawmap
+@update
+@closescript
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-[Revenge Castle]-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#bank
+@do `v01 is 1
+@offmap
+@do moveback
+@label bankstart
+@show
+`r0`c `r1 `%The Bank `r0
+
+`2 A young clerk eyes you nervously.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdraw.
+=&bank 0 Apply for an account here.
+Leave
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last question?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookkeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+
+
+@drawmap
+@update
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[Revenge Castle]-=-=-=-=-=-=-=-=-=-=-=-=-
+@#Write
+@do moveback
+@busy
+@show
+`r0`c `r1 Write on the Wall `r0
+
+@if revenge2.txt exist false then do
+ @begin
+ @writefile revenge.txt
+ `%Mystirous Man `2: `0Watch out for the `4Dragon Tooth Clan`0!
+ @end
+
+@if revenge2.txt exist true then do
+ @begin
+ @displayfile revenge2.txt
+ @end
+
+@show
+
+@
+(Do tricky stuff with name to determine how much they can type)
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter a special message or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile revenge2.txt
+ `%`n`2 : `0`s03
+ @do trim revenge2.txt 17
+ @drawmap
+ @update
+
+;-=-=-=-=-=-=-=-=-=-=-=-[Revenge Castle]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#sign2
+;Infront of the Inn
+@do saybar
+`%Welcome to Revenge Inn
+@end
+
+;-=-=-=-=-=-=-=-=-=-=-=-[Revenge Castle]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#inn
+;Revenge Inn
+@do `v01 is 1
+@offmap
+@do moveback
+@show
+`r0`c `%`r1 Revenge Inn `r0
+
+ `2The towered Inn looks very nice - A refreshing change from what you're
+ used to in your travels.
+
+ A well dressed man looks up from the front desk.
+
+ `0"Good day s&sir, how may I help you?"`2
+
+ You are holding `$$&money`2.
+
+@do write
+`x`x
+@choice
+Get a room (`$$200`%)
+Leave
+@if response is 1 then do
+ @begin
+ @if money < 200 then do
+ @begin
+ @show
+`\`\`2 You are short on cash. It's okay, someday you'll be able to stay
+ here...
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`\ `2You give the man the cash. He leads you inside...
+`\`k
+ @do money - 200
+ @do x is 37
+ @do y is 19
+ @do map is 1297
+ @loadmap 1297
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@drawmap
+@update
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-[Revenge Castle]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@#store
+@do moveback
+@show
+`c
+`r0`c `%`r1 The Chances Shop `r0
+
+ `0Welcome to the Chances Shop, you can get another chance on
+ other things like gain a level, fight in the arena if you lost
+ and much more. Hope you enjoy, and come again.
+
+`8You have `$$&money`8.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Gaining a level. `%(`4$1,500`%)
+Fighting in the arena. `%(`4$1,000`%)
+Going in Barak's house. `%(`4$1,000`%)
+Fishing. `%(`4$50`%)
+Quests. `%(`4$300`%)
+Turns. `%(`4$500 `7for 100 turns`%)
+Leave.
+@if responce is 1 then do
+ @begin
+ @if `T04 is 0 then do
+ @begin
+ @show
+ `c
+ `2"`@You haven't failed today yet!`2"
+ `\`k
+ @do goto chancee
+ @end
+ @if money < 1500 then do
+ @begin
+ @show
+ `c
+ `2"`@Try comeing back when you have enough money, you reject!`2"
+ `\`k
+ @do goto chancee
+ @end
+ @show
+ `c
+ `2"`@Let's just hope you don't screw up this time...`2"
+ `\`k
+ @do `T04 is 0
+ @do money - 1500
+ @end
+@if responce is 2 then do
+ @begin
+ @if bitcheck `t12 7 0 then do
+ @begin
+ @show
+ `c
+ `2"`@Why are you tring to get anther fight, when you never lost yet?`2"
+ `\`k
+ @do goto chancee
+ @end
+ @if money < 1000
+ @begin
+ @show
+ `c
+ `2"`@You need `0$1,000`@to get this...`2"
+ `\`k
+ @do goto chancee
+ @end
+ @show
+ `c
+ `2"`@All done! Now you can fight in the Arena again!`2"
+ `\`k
+ @bitset `t12 7 0
+ @do money - 1000
+ @do goto chancee
+ @end
+@if responce is 3 then do
+ @begin
+ @dataload barmom.idf &playernum `p20
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `c
+ `2"`@Barak's mother hasn't thrown you out yet!`2"
+ `\`k
+ @do goto chancee
+ @end
+ @if money < 1000 then do
+ @begin
+ @show
+ `c
+ `2"`@You don't quite have the cash to pay for this.`2"
+ `\`k
+ @do goto chancee
+ @end
+ @datasave barmom.idf &playernum 0
+ @show
+ `c
+ `2"`@Now you can go and pick that lock again!`2"
+ `\`k
+ @do money - 1000
+ @do goto chancee
+ @end
+@if responce is 4 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+ `c
+ `2"`@You are truly sad. You don't even have `050 `@measly dollars...`2"
+ `\`k
+ @do goto chancee
+ @end
+ @show
+ `c
+ `2"`@Here you go, you can now go fishing one more time...
+ Hope it's a `0Sparkling Green Salmon`@!`2"
+ `\`k
+ @do `T10 + 1
+ @do money - 50
+ @do goto chancee
+ @end
+@if responce is 5 then do
+ @begin
+ @if money < 300 then do
+ @begin
+ @show
+ `c
+ `2"`@It's `0$300 `@per quest, and I won't take anything less.`2"
+ `\`k
+ @do goto chancee
+ @end
+ @show
+ `c
+ `2"`@There's one more quest for ya!`2"
+ `\`k
+ @do `p31 + 1
+ @do money - 300
+ @do goto chancee
+ @end
+@if responce is 6 then do
+ @begin
+ @if money < 500 then do
+ @begin
+ @show
+ `c
+ `2"`0$500 `@dollars isn't too much, is it?!?!?`2"
+ `\`k
+ @do goto chancee
+ @end
+ @show
+ `c
+ `2"`@One hundred more turns, coming right up!`2"
+ `\`k
+ @do `p11 + 100
+ @do money - 500
+ @do goto chancee
+ @end
+@do goto chancee
+
+@#chancee
+@drawmap
+@update
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[Revenge Castle]-=-=-=-=-=-=-=-=-=-=-=-=-
+@#Travel
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2Would you like to get a ride? (`$$1000`2) [`0Y`2\`0N`2]: `x
+@do readspecial `s01 YN
+@if `s01 is Y then do
+ @begin
+ @if money < 1000 then do
+ @begin
+ @show
+ `\`\ You don't have enough money for a ride!"
+ `k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do money - 1000
+ @show
+`\`\ `r0`c `r1 Stables! `r0
+
+ `2Where would you like to go?
+`\`k
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Green Tree
+Porttown
+Flag City
+Bone Town
+Sosen Village
+Stonepass Lodge
+ArrisVille
+StoneBrook
+Tree House
+Leave
+@if response is 1 then do
+ @begin
+ ;Green Tree
+ @do x is 54
+ @do y is 12
+ @do map is 1356
+ @end
+
+@if response is 2 then do
+ @begin
+ ;Porttown
+ @do x is 43
+ @do y is 16
+ @do map is 956
+ @end
+
+@if responce is 3 then do
+ @begin
+ ;Flag City
+ @do x is 71
+ @do y is 18
+ @do map is 1092
+ @end
+
+@if responce is 4 then do
+ @begin
+ ;Bone Town
+ @do x is 39
+ @do y is 18
+ @do map is 1572
+ @end
+
+@if responce is 5 then do
+ @begin
+ ;sosen village
+ @do x is 32
+ @do y is 8
+ @do map is 456
+ @end
+
+@if responce is 6 then do
+ @begin
+ ;Stone village
+ @do x is 35
+ @do y is 12
+ @do map is 880
+ @end
+
+@if responce is 7 then do
+ @begin
+ ;Stonebrook
+ @do x is 36
+ @do y is 7
+ @do map is 1359
+ @end
+
+@if responce is 8 then do
+ @begin
+ ;ArrisVille
+ @do x is 25
+ @do y is 11
+ @do map is 523
+ @end
+
+@if responce is 9 then do
+ @begin
+ ;Tree House
+ @do x is 31
+ @do y is 11
+ @do map is 232
+ @end
+
+ @loadmap &map
+ @end
+@drawmap
+@update
diff --git a/xtrn/lord2/cnw/revmon.ref b/xtrn/lord2/cnw/revmon.ref
new file mode 100644
index 0000000000000000000000000000000000000000..09e44d087a98f268600eb2edfa3f6c1594c87a4f
--- /dev/null
+++ b/xtrn/lord2/cnw/revmon.ref
@@ -0,0 +1,1128 @@
+; Script file REVMON.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:17 2001
+
+@DECLARE enter 000001183
+@DECLARE fight 000002317
+@DECLARE monster1 000002471
+@DECLARE monster2 000003030
+@DECLARE monster3 000003597
+@DECLARE monster4 000004192
+@DECLARE monster5 000004778
+@DECLARE monster6 000005375
+@DECLARE monster7 000005943
+@DECLARE monster8 000006506
+@DECLARE monster9 000007096
+@DECLARE monster10 000007739
+@DECLARE monster11 000008354
+@DECLARE monster12 000008948
+@DECLARE monster13 000009497
+@DECLARE monster14 000010094
+@DECLARE monster15 000010659
+@DECLARE monster16 000011290
+@DECLARE monster17 000011881
+@DECLARE monster18 000012448
+@DECLARE monster19 000013032
+@DECLARE monster20 000013620
+@DECLARE monster21 000014236
+@DECLARE monster22 000014797
+@DECLARE monster23 000015458
+@DECLARE monster24 000016050
+@DECLARE monster25 000016622
+@DECLARE monster26 000017228
+@DECLARE monster27 000017886
+@DECLARE monster28 000018506
+@DECLARE monster29 000019222
+@DECLARE monster30 000019784
+@DECLARE monster31 000020366
+@DECLARE monster32 000020885
+@DECLARE monster33 000021454
+@DECLARE done 000022022
+@NOCHECK
+; End of .REF index
+
+@#enter
+;The Fighting Ground
+@do `v01 is 1
+@offmap
+@do moveback
+@show
+`r0`c `%`r1 Fighting Ground `r0
+
+ `2You walk up to the fighting Ground and look at a gaurd in the front
+ of the building.
+
+ the man looks at you and says "Beware, there are monsters that are
+ very strong, fight what you think you can and you may die. if you
+ wish to enter you must pay a fee of $1000."
+
+ You are holding `$$&money`2.
+
+@do write
+`x`x
+@choice
+Enter the Training Ground (`$$1000`%)
+Leave
+@if response is 1 then do
+ @begin
+ @if money < 1000 then do
+ @begin
+ @show
+`\`\`2 You are short on cash. Come back when you have the money.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\`\ `2You give the man the cash. He leads you inside... As you walk in
+ you see a sign saying "`4WARNING`0 Beware of the `4Baby Red Dragon`0"
+`\`k
+ @do money - 1000
+ @do x is 34
+ @do y is 19
+ @do map is 1216
+ @loadmap 1216
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@drawmap
+@update
+
+;-=-=-=-=-=-=-=-=-=-=-=-=-[Revenge Castle]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+@#FIGHT
+@do `p20 random 11 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@busy
+@do `p20 random 33 1
+@do goto monster`p20
+
+@#monster1
+@fight
+;name
+Nibbet
+;string said when you see him
+A little hairy ball attaches itself to your leg.
+;power move kill string
+Let's just hope it didn't breed nearby...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+gives you a rash|18
+squeezes your crotch|25
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+34
+;gold reward
+289
+;experience
+122
+;hit points
+50
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Himmel Clan Member
+;string said when you see him
+`0"Die, pagan!" `2a man in a robe screams.
+;power move kill string
+He eerily smiles as you take his life.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+burns you with his cross|76
+curses you|56
+cuts your arm|45
+NONE|NONE
+NONE|NONE
+;defense
+9
+;gold reward
+386
+;experience
+98
+;hit points
+312
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+STONEP.REF|THIEF
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Morphing Rabbit
+;string said when you see him
+The bush in front of you begins to move.
+;power move kill string
+The thing has just had its last transformation.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+springs at your neck|98
+morphs into a lion and bites|87
+morphs into a mosquito|27
+NONE|NONE
+NONE|NONE
+;defense
+23
+;gold reward
+332
+;experience
+189
+;hit points
+203
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Triceratops
+;string said when you see him
+Some kind of large lizard with horns is charging you.
+;power move kill string
+It's actually still breathing, but who has time to kill everything?
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+charges you|87
+bores you|76
+tramples you|92
+NONE|NONE
+NONE|NONE
+;defense
+43
+;gold reward
+287
+;experience
+190
+;hit points
+100
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Hairy Yak
+;string said when you see him
+Something standing in a field nearby is making noises at you.
+;power move kill string
+Poor thing, they are gonna be extinct soon at this rate.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+sits on on|70
+falls on you|80
+attempts to sleep on you|60
+rams you|55
+NONE|NONE
+;defense
+32
+;gold reward
+245
+;experience
+146
+;hit points
+130
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster6
+@fight
+;name
+Evil Pixie
+;string said when you see him
+A tiny little body floats down in front of you, scowling.
+;power move kill string
+Squish. Need you do more?
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+tickles your nose|76
+buzzes your ear|87
+kicks you in the shin|120
+NONE|NONE
+NONE|NONE
+;defense
+80
+;gold reward
+525
+;experience
+245
+;hit points
+2
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster7
+@fight
+;name
+Dark Spirit
+;string said when you see him
+A shadow moves towards you with lightning speed.
+;power move kill string
+You showed it the light.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+grabs your heart|79
+engulfs you in darkness|90
+attacks your soul|112
+NONE|NONE
+NONE|NONE
+;defense
+35
+;gold reward
+405
+;experience
+135
+;hit points
+120
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster8
+@fight
+;name
+Kung-Fu Warrior
+;string said when you see him
+`0"Grasshopper, I must fight you." `2you hear.
+;power move kill string
+`$"Better go back to the Dojo Wang."
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+judo chops at you neck|85
+throws a fireball|97
+uses his ninja throwing stars|105
+NONE|NONE
+NONE|NONE
+;defense
+38
+;gold reward
+450
+;experience
+110
+;hit points
+115
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster9
+@fight
+;name
+Crazed Beaver
+;string said when you see him
+`2You hear a rustling in the bushes that's coming closer.
+;power move kill string
+`$"Never thought I'd meet a beaver I didn't like."
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+gnaws at your legs|76
+makes big claw marks in your back|90
+calls upon his nature friends to help|105
+eats part of you|97
+NONE|NONE
+;defense
+40
+;gold reward
+500
+;experience
+130
+;hit points
+100
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster10
+@fight
+;name
+Crystaline Entity
+;string said when you see him
+`2Something floating like that can't be from this world.
+;power move kill string
+`2I should've come here either.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+uses some form of energy attack|82
+hits with some kind of beam|94
+inverses its polarity at you|107
+NONE|NONE
+NONE|NONE
+;defense
+38
+;gold reward
+350
+;experience
+165
+;hit points
+130
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster11
+@fight
+;name
+DoppelGanger
+;string said when you see him
+You come upon a small grey creature that suddenly takes your shape!
+;power move kill string
+You find a new respect for yourself...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+hits with its s&weapon|87
+pounces you|72
+lays down the smack|92
+NONE|NONE
+NONE|NONE
+;defense
+38
+;gold reward
+300
+;experience
+110
+;hit points
+`p02
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster12
+@fight
+;name
+Giant Bird
+;string said when you see him
+That bird up there looks pretty big.
+;power move kill string
+Yea, go ahead and fly now buddy.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+pecks at your eyes|80
+claws you|67
+tries to pick you up|90
+NONE|NONE
+NONE|NONE
+;defense
+25
+;gold reward
+475
+;experience
+180
+;hit points
+180
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster13
+@fight
+;name
+Bounty Hunter
+;string said when you see him
+`0"Hey I bet there's a price on your head." `2 you hear.
+;power move kill string
+He should do better research.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+smacks you with his crossbow|87
+hits with his longsword|76
+stabs hard with a dagger|90
+NONE|NONE
+NONE|NONE
+;defense
+32
+;gold reward
+600
+;experience
+154
+;hit points
+240
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster14
+@fight
+;name
+Roaming Mob
+;string said when you see him
+`0"Hey there s&he is!" `2 you hear.
+;power move kill string
+Just go away you losers!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+chase you down|80
+use their pitchforks and shovels on you|95
+let loose the dogs|78
+NONE|NONE
+NONE|NONE
+;defense
+30
+;gold reward
+480
+;experience
+170
+;hit points
+350
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster15
+@fight
+;name
+Angry Mage
+;string said when you see him
+`2You see a light up ahead, of a fireball headed towards you.
+;power move kill string
+Magic is how long it took me to kick your ass!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+throws a fireball|85
+throws a iceball|100
+calls upon the dead|79
+throws lightning at you|105
+smacks you with his staff|81
+;defense
+27
+;gold reward
+401
+;experience
+156
+;hit points
+480
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster16
+@fight
+;name
+Lost Gladiator
+;string said when you see him
+`0"Hey, have you seen Hawk or Ice?" `2you hear.
+;power move kill string
+`$"I am the greatest!"
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+nails you with a tennis ball|87
+wrestles you down|102
+smashes you with a stick|76
+talks smack to you|88
+NONE|NONE
+;defense
+32
+;gold reward
+550
+;experience
+160
+;hit points
+400
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster17
+@fight
+;name
+Shawn
+;string said when you see him
+`0"My 90 is just as fast as your 133!" `2 you hear.
+;power move kill string
+`$"Over Clock this!"`2
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+smacks you with his keyboard|80
+give you a virus|78
+blows up your chopper|97
+NONE|NONE
+NONE|NONE
+;defense
+33
+;gold reward
+430
+;experience
+160
+;hit points
+210
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster18
+@fight
+;name
+Rogue Officer
+;string said when you see him
+`0"I could help you, but ..." `2 you hear.
+;power move kill string
+So that's the way the man's gonna be?
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits with him mace|85
+boots you in the head|99
+nails you with a poison dart|105
+NONE|NONE
+NONE|NONE
+;defense
+25
+;gold reward
+410
+;experience
+156
+;hit points
+130
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster19
+@fight
+;name
+Mercenary
+;string said when you see him
+`0"I'm looking for a war ..."
+;power move kill string
+`$"Looks like he was pressed for time."
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+jabs you with his spear|97
+connects with his morning star|105
+rams his spear through your arm|115
+NONE|NONE
+NONE|NONE
+;defense
+27
+;gold reward
+760
+;experience
+166
+;hit points
+250
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster20
+@fight
+;name
+Highway Raider
+;string said when you see him
+`0"Put down your arms and no one gets hurt!" `2you hear from behind.
+;power move kill string
+You carefully step over the lifeless Rogue's body.. hehe!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+punches you|58
+backstabs you|83
+hits you with a poison dart|78
+clubs you|67
+NONE|NONE
+;defense
+10
+;gold reward
+230
+;experience
+180
+;hit points
+90
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster21
+@fight
+;name
+Rabid Tiger
+;string said when you see him
+You hear a hoarse deep growl around the rock ahead.
+;power move kill string
+Stay kitty stay!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+rips off part of your arm|73
+bats you hard with a paw|85
+charges you|105
+NONE|NONE
+NONE|NONE
+;defense
+20
+;gold reward
+157
+;experience
+96
+;hit points
+78
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster22
+@fight
+;name
+Hill Dwarf
+;string said when you see him
+You see a small hyperactive looking dwarf approaching.
+;power move kill string
+`$"Twikie from Buck Rodgers called, he want's his double back," `2you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+hits you with a bone club|60
+wields his battle axe at you|75
+shouts plenty of obscenities|78
+kicks your knees, hard|69
+NONE|NONE
+;defense
+12
+;gold reward
+245
+;experience
+135
+;hit points
+103
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster23
+@fight
+;name
+Rock Golem
+;string said when you see him
+A large stone sprouts legs and lunges at you!
+;power move kill string
+You rock out with a swing of your s&weapon & split it in two.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+pounds your foot|40
+throws its arm at your head|56
+rocks out|43
+NONE|NONE
+NONE|NONE
+;defense
+30
+;gold reward
+534
+;experience
+365
+;hit points
+380
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster24
+@fight
+;name
+Lost Monkey
+;string said when you see him
+`0"Oo oo oo," `2you hear from behind.
+;power move kill string
+`2Bad monkey, boy did you spank him!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+twists your arm|60
+sweeps your feet|65
+bites at your finger|50
+whips you with his tail|70
+NONE|NONE
+;defense
+2
+;gold reward
+23
+;experience
+30
+;hit points
+34
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster25
+@fight
+;name
+Sir Beavis
+;string said when you see him
+`0"Halt, heir person, or like ... uh something," `2you hear from behind.
+;power move kill string
+That knight guy ... really sucked.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hears voices|68
+slams you with his warhammer|78
+lays the smack down|89
+has a seizure|90
+NONE|NONE
+;defense
+37
+;gold reward
+343
+;experience
+289
+;hit points
+145
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster26
+@fight
+;name
+Still Lost Knight
+;string said when you see him
+`0"Halt you too must be an enemy of this land," `2says a confused voice.
+;power move kill string
+`$"I thought you found your way home last time?" `2you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+breaks his club on your face|70
+hits with his broadsword|86
+bludgeons you|69
+stabs with a hidden dagger|68
+NONE|NONE
+;defense
+22
+;gold reward
+322
+;experience
+210
+;hit points
+87
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster27
+@fight
+;name
+Giant Snake
+;string said when you see him
+You see what you thought was a big log move and hiss at you!
+;power move kill string
+My anaconda don't want none unless it's got buns hun.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+inject about a liter of venom into you|78
+squeezes you|60
+gets a bite of your arm|67
+NONE|NONE
+NONE|NONE
+;defense
+14
+;gold reward
+287
+;experience
+102
+;hit points
+65
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster28
+@fight
+;name
+Future Warrior
+;string said when you see him
+`0"I'm afraid I have to take you back with me," `2you hear from behind.
+;power move kill string
+`$"I'm not going back with you," `2you scream .
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+blasts you with his laser|100
+gets lock on you with a beam of some kind|95
+uses his proton launcher|110
+launches a flying explosive thing at you|108
+calls for an airstrike from his Mauler|120
+;defense
+35
+;gold reward
+700
+;experience
+290
+;hit points
+120
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster29
+@fight
+;name
+Giant Worm
+;string said when you see him
+There's an awfully big tube hangin out of that carcus.
+;power move kill string
+No way you're getting worms.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+touches you|67
+gets slime on you|60
+attaches to your leg|70
+NONE|NONE
+NONE|NONE
+;defense
+12
+;gold reward
+199
+;experience
+98
+;hit points
+55
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster30
+@fight
+;name
+Oversized Hawk
+;string said when you see him
+A rather large shadow passes overhead.
+;power move kill string
+Put em on the endagered species list.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+gashes away some flesh|65
+buries its beak in your shoulder|60
+lands on your head|67
+NONE|NONE
+NONE|NONE
+;defense
+10
+;gold reward
+88
+;experience
+67
+;hit points
+50
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster31
+@fight
+;name
+Stray Cow
+;string said when you see him
+A loud `0"Moo" `2comes from up ahead!
+;power move kill string
+Got Milk?
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+moos at you|55
+kicks you|60
+milks you for a change|67
+NONE|NONE
+NONE|NONE
+;defense
+12
+;gold reward
+76
+;experience
+143
+;hit points
+45
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster32
+@fight
+;name
+`4Baby Red Dragon `0
+;string said when you see him
+A loud `0"ROAR" `2comes from up ahead!
+;power move kill string
+You slice the dragon's head off
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+Roars at you|100
+kicks you|70
+Tail Sweeps you|67
+Claws you|90
+Breaths Fire at you|300
+;defense
+40
+;gold reward
+4000
+;experience
+7500
+;hit points
+600
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster33
+@fight
+;name
+`$Lightning Bird `0
+;string said when you see him
+You hear a flapping sound above your head.
+;power move kill string
+You rip off all the feathers of the bird
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+charges at you|50
+cast lightning at you|200
+pecks at you|60
+NONE|NONE
+NONE|NONE
+;defense
+60
+;gold reward
+300
+;experience
+320
+;hit points
+540
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#done
diff --git a/xtrn/lord2/cnw/riding.clr b/xtrn/lord2/cnw/riding.clr
new file mode 100644
index 0000000000000000000000000000000000000000..30d617e62d19ef32dc5be168752259adfbfb7916
--- /dev/null
+++ b/xtrn/lord2/cnw/riding.clr
@@ -0,0 +1,11 @@
+[?7h[255D[54C[0;32m��[36m���[32m���������[33m�������[32m�[36m���
+[52C[32m�[36m���������[32m����[33m������[32m�[36m����[32m�[36m�
+[52C�����������[33m�������[32m�[36m������[1;32m�[0;36m�
+[51C�[1;32m��[0;36m�[32m��[36m����[33m������[36m����[32m�[36m���[1;32m��[0;32m�[1m�
+[51C[0;32m�[1m�����[0;32m�[1m�[0;33m��������[36m������[1;32m�[0;36m�[1;32m����
+[50C��[0;32m�[1m������[0;33m����������[1;32m���[0;32m�[1m�����[0;32m�
+[50C[1m���[0;32m�[1m�[0;32m�[1m���[0;33m�����������[1;32m���������
+[51C[0;32m�[1m���[0;32m�[1m���[0;33m������������[1;32m�����[0;32m��[1m�
+[52C[0;32m��[1m����[0;32m�[1m�[0;32m�[33m��������������[32m����
+[53C�[1m���[0;32m�[1m����[0;33m��������������[32m���
+[54C�[1m���[0;32m�[1m��[0;32m���[33m���������������
diff --git a/xtrn/lord2/cnw/rock.ref b/xtrn/lord2/cnw/rock.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c22fa2e997a8d2240a3bff21a7a402e61e1d6c3f
--- /dev/null
+++ b/xtrn/lord2/cnw/rock.ref
@@ -0,0 +1,140 @@
+; Script file ROCK.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:12 2001
+
+@DECLARE nsign 000000430
+@DECLARE guard1 000000539
+@DECLARE guard2 000000642
+@DECLARE rockcave 000000757
+@DECLARE goback 000001436
+@DECLARE ghost 000001711
+@DECLARE leg 000002508
+@DECLARE head 000002586
+@DECLARE teller 000002690
+@DECLARE done 000003590
+@NOCHECK
+; End of .REF index
+
+;Ref for the RockHolm Northern Continent
+
+@#NSIGN
+;North sign at the edge of StonePath
+@DO SAYBAR
+`2Dangerous path South, Beware!
+@do moveback
+
+@#GUARD1
+;Guard outside RockHolm Castle
+@DO SAYBAR
+`0"Welcome to RockHolm Castle."
+@do moveback
+
+@#GUARD2
+;The other Guard outside RockHolm Castle
+@DO SAYBAR
+`0"Enter if you are a warrior."
+@do moveback
+
+@#ROCKCAVE
+;For dock to cave in RockHolm Mountains
+@if bitcheck `t14 4 0 then do
+ @begin
+@if `i61 > 0 then do
+ @begin
+ @show
+`r0`c `%`r1 Ghostly Passage `r0
+
+ `%You step out onto the dock, looking around at the calm waters. You
+ notice fog begining to build up. You look in your pouch quickly to find
+ the ring you have glowing. The patch of fog slowly moves towards you
+ within it you can make out a tranparent boat! With caution, you test it
+ then climb aboard - it takes you to the other side.
+`\`k
+ @do x is 41
+ @do y is 10
+ @drawmap
+ @update
+ @closescript
+ @end
+@end
+@DO SAYBAR
+`2That cave across the lake looks very mysterious.
+
+@#GOBACK
+;Getting back from the above cave
+@show
+`r0`c `%`r1 Ghostly passage back `r0
+
+ `%You step out into the water, again looking. You notice fog again
+ comes to greet you. You ride the ghostly vessle back.
+`\`k
+@do x is 41
+@do y is 16
+@drawmap
+@update
+
+@#GHOST
+;The ghost's body in the old cave
+@if bitcheck `t14 4 0 then do
+ @begin
+@if `i61 > 0 then do
+ @begin
+ @bitset `t14 4 1
+ @do `i61 - 1
+ @do `p18 + 5
+ @do `p04 + 5
+ @show
+`r0`c `%`r1 Ghost Body `r0
+
+ `%You kneel before the body in the corner of the cave. This must be the
+ body of the man who haunts the ArrisVille Inn. The glow of the ring seems
+ to be pulsating. Kindly, you put the ring on the body's finger. The blue
+ glow engulfs the body, and for a second you see the ghost from before, then
+ it all fades...
+ `3"Thank you, I now pass my `%STRENGTH `3to you ..."
+
+ `%YOU'VE COMPLETED A MAJOR QUEST (+ 5 Quest Points)
+
+ `%YOU FEEL STRONGER (+ 5)
+`\`k
+ @drawmap
+ @update
+ @closescript
+ @end
+@end
+@DO SAYBAR
+`3Some poor guy's body.
+
+@#LEG
+;Leg inside the cave
+@DO SAYBAR
+`2Some poor bastard's rotten leg
+
+@#HEAD
+;Head inside the cave
+@DO SAYBAR
+`2Someone got eaten pretty bad here. This head is old.
+
+@#Teller
+;The Man up in the dangerous RockHolm Mountains who tells important info.
+@do moveback
+
+@do `p20 random 9 1
+@if `p20 is 1 then saybar
+`%Man: `0Careful, the monsters around here are REALLY dangerous...
+@if `p20 is 2 then saybar
+`%Man: `0If the owner of the nearby castle lets you in, you can get stuff..
+@if `p20 is 3 then saybar
+`%Man: `0I'm lost. I've been lost for years.
+@if `p20 is 4 then saybar
+`%Man: `0Pirates suck. Because of them there will never be a LORD 3...
+@if `p20 is 5 then saybar
+`%Man: `0.doG a si theS
+@if `p20 is 6 then saybar
+`%Man: `0There's a ghost who haunts the sleeping in ArrisVille
+@if `p20 is 7 then saybar
+`%Man: `0The Koshi can do things you never imagined.
+@if `p20 is 8 then saybar
+`%Man: `0You need the cloud sword to enter the Koshi Mountains.
+@if `p20 is 9 then saybar
+`%Man: `0If you win this thing, you WILL get special powers.
+
+@#done
diff --git a/xtrn/lord2/cnw/rose.ref b/xtrn/lord2/cnw/rose.ref
new file mode 100644
index 0000000000000000000000000000000000000000..7556c42467621c759c0446977e7536cbd8db7fe1
--- /dev/null
+++ b/xtrn/lord2/cnw/rose.ref
@@ -0,0 +1,292 @@
+; Script file ROSE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:21 2001
+
+@DECLARE roses 000000520
+@DECLARE loadloop 000000552
+@DECLARE seeroses 000004593
+@DECLARE enter 000004707
+@DECLARE fred 000004771
+@DECLARE sign 000006829
+@DECLARE nomore 000006910
+@NOCHECK
+; End of .REF index
+
+;
+; Updated by CNW for CNW.
+;
+;
+; -Now has ansi/ascii roses art
+; -you get charm if the player accepts the rose
+; -added did flirt with player#, for listings.
+;
+; --todo--
+; -add npc support
+;
+@#roses
+@do `p22 is 0
+@label loadloop
+ @do `p22 + 1
+ @if `p22 > &totalaccounts then do
+ @begin
+ @closescript
+ @end
+ @dataload rose&playernum.idf `p22 `p25
+ @if `p25 is 0 then goto loadloop
+ @if `p25 is 52 then do
+ @begin
+ @do `p08 - 1
+ @datasave rose&playernum.idf `p22 0
+ @do goto loadloop
+ @end
+ @if `p25 is 53 then do
+ @begin
+ @do `p08 - 2
+ @do `p07 - 1
+ @datasave rose&playernum.idf `p22 0
+ @do goto loadloop
+ @end
+ @if `p25 is 51 then do
+ @begin
+ @do `p08 + 2
+ @datasave rose&playernum.idf `p22 0
+ @do goto loadloop
+ @end
+ @if `p25 is 50 then do
+ @begin
+ @do `p08 + 1
+ @datasave rose&playernum.idf `p22 0
+ @do goto loadloop
+ @end
+ @if `p25 > 0 then do
+ @begin
+ @do `s02 is getname `p22
+ @show
+`r0`c
+
+ `2 A very happy and determined messanger approaches you with
+ great excitement.
+
+`k
+
+ `2"`%It's about time I have found you, I've been looking everywhere
+ for you. I've got something special for you from `s02.`2"
+
+`l`l`l`l`l`l`k
+ @displayfile rose`p25.ans
+ @do move 1 1
+ @show
+ `$-The Card-
+`$��������������������������Ŀ
+`$� �
+`$� �
+`$� �
+`$� �
+`$����������������������������
+ @do move 2 3
+ @show
+ `%With love
+ `4From: `%`s02
+ `4To: `%`n
+ @do move 1 23
+ @key
+ @do `v01 is 1
+ @do move 1 1
+ @show
+ `$You react by:
+`$��������������������������Ŀ
+`$� �
+`$� �
+`$� �
+`$� �
+`$����������������������������
+ @do move 2 3
+ @choice
+`%Ignore it
+`%Send it BACK in disgust!
+`%Accept it
+`@Accept with great pleasure
+@if responce is 1 then do
+ @begin
+ @writefile mail\mail`p22.dat
+ `@Ralphie's Roses:
+`0+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ `@Rose delivered to `n
+ `4Your act of kindness and love was totally ignore.
+ `$-1 Charm
+`0+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ `\`\`\`k
+ `2You're losing your touch.
+ `l`k
+ @datasave rose&playernum.idf `p22 52
+ @CLEAR SCREEN
+ @do goto loadloop
+ @end
+@if responce is 2 then do
+ @begin
+ @writefile mail\mail`p22.dat
+ `@Ralphie's Roses:
+`0+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ `@Rose delivered to `n
+ `4The rose was sent BACK to you! `n did not accept it.
+ `4S&he was very disgusted with your actions.
+ `$-2 Charm and -1 Alignment
+`0+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ `\`\`\`k
+ `2Damn! that REALLY pisses you off!
+ `l`k
+ @datasave rose&playernum.idf `p22 53
+ @datasave rose`p22.idf &playernum `p25
+ @CLEAR SCREEN
+ @do goto loadloop
+ @end
+
+@if responce is 3 then do
+ @begin
+ @writefile mail\mail`p22.dat
+ `@Ralphie's Roses:
+`0+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ `@Rose delivered to `n
+ `4Your rose was delivered and `n accepted your kindness.
+ `$+1 Charm
+`0+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ @datasave rose`p22.idf &playernum 50
+ @datasave rose&playernum.idf `p22 0
+ @CLEAR SCREEN
+ @do goto loadloop
+ @end
+
+@if responce is 4 then do
+ @begin
+ @writefile mail\mail`p22.dat
+ `@Ralphie's Roses:
+`0+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ `@Rose delivered to `n
+ `4Your rose was delivered and `n accepted your kindness with great
+ `4PLEASURE!
+ `$+2 Charm
+`0+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-+
+ @datasave rose`p22.idf &playernum 51
+ @datasave rose&playernum.idf `p22 0
+ @CLEAR SCREEN
+ @do goto loadloop
+ @end
+@do goto loadloop
+ @end
+@end
+@closescript
+
+@#seeroses
+@do moveback
+@do saybar
+`$You could see a huge bed of beautiful `@red roses`$.
+@end
+@closescript
+
+@#enter
+@do moveback
+@offmap
+@routine roses in rose.ref
+@label fred
+@do `v01 is 1
+@show
+`r0`c `r1 `%Ralphie's Roses & More `r0
+
+ `2As you walk in to this cozy little hut, you are greeted by a big, hairy man.
+
+ `0"Hi. I'm Ralphie. What can I get for you?"`2, asks.
+
+@do write
+`x`x
+@choice
+>&money 49 `%Buy a rose for `$$50
+<&money 50 `%Leave cuz you don't have enough.
+Nevermind
+@if responce is 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 2 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do `v01 is 1
+ @show
+`r0`c `r1 `%Say It With Flowers `r0
+
+ `$"I'd like to buy a rose please," `2you tell the man.
+
+ `0"Sure. It'll cost you `$$50 `0to buy a rose," `2says Ralphie.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+`%Buy the rose
+Leave
+@if responce is 2 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 1 then do
+ @begin
+ @show
+`r0`c
+ `$"Sure!"`2, you say, and then proceed to pay the man.
+
+ `2Who do you want to send it to?
+ @chooseplayer `p20
+
+@dataload rose`p20.idf &playernum `p21
+@if `p21 > 0 then do
+ @begin
+ @do `s02 is getname `p20
+ @show
+ `0"`$S&sir, you're already sending one to `%`s02 `$and is still on its way?`0"`\
+ `0"`$You can not send another one until the person receives the first one.`0"`\`\`k
+ @key
+ @do goto fred
+ @end
+ @if `p20 is &playernum then do
+ @begin
+ @show
+ `2You can't send yourself a rose!`\`\`k
+ @do goto fred
+ @end
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your money - for now.`\`\`k
+ @do goto fred
+ @end
+ @do money - 50
+ @do `s02 is getname `p20
+@do `p25 random 10 1
+ @do addlog
+ `0`n`2 has sent `0`s02`2 a `@rose`2!
+ @routine seperate in gametxt.ref
+ @do `t72 is 1
+ @do `t71 is `p20
+ @datasave rose`p20.idf &playernum `p25
+ @show
+`\`\ `2Ok! The rose has been sent. `S02 `2will be notified.`\`\`k
+ @do goto fred
+ @end
+
+
+@#sign
+@do moveback
+@do saybar
+`%<���� Ralphie's Roses
+@end
+@closescript
+@#nomore
+
diff --git a/xtrn/lord2/cnw/rose1.ans b/xtrn/lord2/cnw/rose1.ans
new file mode 100644
index 0000000000000000000000000000000000000000..807318e2ff2a3a0a7fd371340a2bd47c3f98e48b
--- /dev/null
+++ b/xtrn/lord2/cnw/rose1.ans
@@ -0,0 +1,18 @@
+`r0`c
+ `4:. ,..
+ `4.' :~.':_.,
+ `4.' ::.::'.'
+ `4: ::' .:
+ `4'.: .: .:/
+ `2'::--`4.:'.::'
+ `2|. _:===-`4'
+ `2/ /
+ `2,---.---. __,','
+ `2(~'. \ ) )','.,---..
+ `2'v'\ | ,' .-'.:,'_____ '.
+ `2)|/.-~.--~~--. ~~~-. \
+ _`2/-'_.-~ ""---.._'.|
+ `2_.-~~_.-~ ""'
+`2 _..--~~_.(~~
+`2 __...---~~~_..--~~
+`2,'___...---~~~
diff --git a/xtrn/lord2/cnw/rose10.ans b/xtrn/lord2/cnw/rose10.ans
new file mode 100644
index 0000000000000000000000000000000000000000..664b213099627dbdaed1ad1d30b38628870ebe15
--- /dev/null
+++ b/xtrn/lord2/cnw/rose10.ans
@@ -0,0 +1,21 @@
+`r0`c
+ `4 , .-.-,_,
+ `4 )'-.>'' (
+ `4 / '\ | `$ _
+ `4 | | | `$ /_)
+ `4 \ / / `$ (8_))}- `% .
+ `2 '=(`4\ /`2.=' `$ \_) `% '.
+ `2 '-;'.-' `% .--. .
+ `2 ')| , `% : '. .'
+ `2 || .-'| `% '---'';
+ `2 ,_|| \_,/ `% .
+ `2 , \|| .' `% _.'
+ `2 |\|\ , ||/ `% .'
+ `2 ,_\' |/| |Y_, `% '
+ `2 '-.'-._\||/ `% '._
+ `2 >_.-'Y| `% ' ' ' ' '
+ `2 ' ,_||
+ `2 \||
+ `2 ||
+ `2 ||
+ `2 |/
diff --git a/xtrn/lord2/cnw/rose2.ans b/xtrn/lord2/cnw/rose2.ans
new file mode 100644
index 0000000000000000000000000000000000000000..8278242dca33e5f5acd533b2536e54c6c46ad249
--- /dev/null
+++ b/xtrn/lord2/cnw/rose2.ans
@@ -0,0 +1,21 @@
+`r0`c
+ `4 _.--.
+ `4 ;.-'i.'._.--,
+ `4 {(;{} y'-.',_'--.
+ `4 <'~;'-( _.''.~'.' \
+ `4 \ 'i.' ' Y },-,)
+ `4 .j~. | ; / _j\
+ `4 <_ '! ;_.'( /
+ `4 >-, '---.,' .'-j
+ `4 / '. ,<_ ( '. \
+ `2 '=-j\ '-</'.Y-f `2�.\
+ `2 / ,'-~'\ :|\ \___ ' _.~~~..
+ `2 /,' \:| \ \/ / /.'-'-'~,
+ `2 (' \| <\ \ <,' \ \ '_/
+ `2 .-|-._\ \//\ __..~'
+ `2 .'-/- ,-\ Y___
+ `2 /- /.\ \| \ \/
+ `2 |-| \ '/ \ \
+ `2 |/ \ .'
+ `2 \ .'
+ `2 \'
diff --git a/xtrn/lord2/cnw/rose2.ref b/xtrn/lord2/cnw/rose2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..aff88d13ee8dc9d129885754389d8e084288ca35
--- /dev/null
+++ b/xtrn/lord2/cnw/rose2.ref
@@ -0,0 +1,682 @@
+; Script file ROSE2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:17 2001
+
+@DECLARE seeroses 000000259
+@DECLARE enter 000000373
+@DECLARE fred 000000409
+@DECLARE sign 000011898
+@DECLARE nomore 000011979
+@NOCHECK
+; End of .REF index
+
+@#seeroses
+@do moveback
+@do saybar
+`$You could see a huge bed of beautiful `@red roses`$.
+@end
+@closescript
+
+@#enter
+@do moveback
+@offmap
+@label fred
+@do `v01 is 1
+@show
+`r0`c `r1 `%Ralphie's Roses & More `r0
+
+ `2As you walk in to this cozy little hut, you are greeted by a big, hairy man.
+
+ `0"Hi. I'm Ralphie. What can I get for you?"`2, asks.
+
+@do write
+`x`x
+@choice
+>&money 49 `%Buy a rose for `$$50
+<&money 50 `%Leave cuz you don't have enough.
+Nevermind
+
+@if responce is 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 2 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do `v01 is 1
+ @show
+`r0`c `r1 `%Say It With Flowers `r0
+
+ `$"I'd like to buy a rose please," `2you tell the man.
+
+ `0"Sure. It'll cost you `$$50 `0to buy a rose," `2says Ralphie.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+`%Buy the rose
+Leave
+@if responce is 2 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 1 then do
+ @begin
+ @show
+`r0`c
+ `$"Sure!"`2, you say, and then proceed to pay the man.
+
+ `2Who do you want to send it to?
+ @chooseplayer `p20
+
+ @if `p20 is &playernum then do
+ @begin
+ @show
+ `2You can't send yourself a rose!`\`\`k
+ @do goto fred
+ @end
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your money - for now.`\`\`k
+ @do goto fred
+ @end
+ @do money - 50
+ @do `s02 is getname `p20
+@do `p25 random 10 1
+@if `p25 is 1 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+ :. ,..
+ .' :~.':_.,
+ .' ::.::'.'
+ : ::' .:
+ `.: .: .:/
+ `::--.:'.::'
+ |. _:===-'
+ / /
+ ,---.---. __,','
+ (~`. \ ) )','.,---..
+ `v`\ | ,' .-'.:,'_____ `.
+ )|/.-~.--~~--. ~~~-. \
+ _/-'_.-~ ""---.._`.|
+ _.-~~_.-~ ""'
+ _..--~~_.(~~
+ __...---~~~_..--~~
+,'___...---~~~
+`k
+@end
+@if `p25 is 2 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+ _.--.
+ ;.-'i.`._.--,
+ {(;{} y`-.`,_`--.
+ <`~;`-( _.'`.~`.' \
+ \ `i.' ` Y },-,)
+ .j~. | ; / _j\
+ <_ `! ;_.'( /
+ >-, `---.,' .'-j
+ / `. ,<_ ( `. \
+ `=-j\ `-</`.Y-f `.\
+ / ,`-~'\ :|\ \___ ` _.~~~..
+ /,' \:| \ \/ / /.'-'-`~,
+ (' \| <\ \ <,' \ \ `_/
+ .-|-._\ \//\ __..~'
+ .'-/- ,-\ Y___
+ /- /.\ \| \ \/
+ |-| \ `/ \ \
+ |/ \ .'
+ \ .'
+ \'
+`k
+@end
+@if `p25 is 3 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+ __
+ ___ _// \
+ _/ \/__|_ \
+ / __//_/==\_| ___
+ / | / /|// == \ \ /
+ | | |\|| //_\ | |_/
+ \ \ \\ / \_/| || \
+ \___/\\| _ ///___\
+ \__|\_\=//_// _\_|
+ \___\_____/
+ !! \____/
+ !!
+ !!
+ ___ -(!! __ ___ _
+ |\| \ !!_.-~~ /|\- \~-._
+ | -\| | !!/ / | |\- | |\ \
+ \__-\|______ !! | \___\| \_\|
+ _____ _.-~/|\ \\!! \ | / ~-.
+ / /| / /| \ \!! \ / |\~-
+ / ---/| | | |\ | !! \__|
+ | ---/| | | \ /| / -(!!
+ | -/| | / \|/ !!
+ |/____ / !!)-
+ !!
+`k
+@end
+@if `p25 is 4 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+ .-~~~-
+ .-~~~_._~~~\
+ /~-~~ ~. `._
+ / \ \ | ~~-_
+ __ | | | | /~\|
+ _-~~ ~~-..| ______||/__..-~~/
+ ~-.___ \ /~\_________.-~~
+ \~~--._\ | /
+ ^-_ ~\ \ /^
+ ^~---|~~~~-.___.-~^
+ /~^| | | |^~\
+ //~^`/ /_/ ^~\\
+ / //~|| \
+ ~ ||
+ ___ -(|| __ ___ _
+ |\| \ ||_.-~~ /|\- \~-._
+ | -\| | ||/ / | |\- | |\ \
+ \__-\|______ || | \___\| \_\|
+ _____ _.-~/|\ \\|| \ | / ~-.
+ /' --/| / /| \ \|| \ / |\~-
+ ' ---/| | | |\ | || \__|
+ | --/| | ; \ /| / -(||
+ `./ | / \|/ ||)-
+ `~^~^ ||
+`k
+@end
+@if `p25 is 5 then do
+@begin
+`k
+`r0`c
+ @writefile mail\mail`p20.dat
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+ .=====__
+ /==Z' .===_ ~~=,_===\
+ _/ | | YZ, `\, ~\
+ | | | _/=j'\ !, d
+ __====_| | b/ V`; /' .M ,
+ `5\==/~~ W, t d+, .D4| / /'|/~~~\=__ .-
+ `\ t~\ | |t`~~T/'|Z :/ | ~~\=/V
+ \ | \4, | ~/~' :Z -! | |
+ \, /\__| \\.! :XG \ / ._, ./'
+ `L | ~; V; _//' | \ .f~' `~; .b_
+ ./ \\__JL `; Y7~ | / / d //' \,
+ .! `D\, `\, | .! .t/ .(_/=~ \
+ / `;`~~~=+=qLb, jK_L==f' j'' `;
+ ./ .(r, `~\5' ~\\,._r/ |
+ ~=m! ./D' `\, \, !G~ t
+ ~==___===/'/ .!`\__ /! __=~\\~=_ TG=
+ | .| ~\=\=r@/~5 \ !, ~=_, __//'
+ |./~V || `| \, t ~~~~\==~~
+ t| | | | | !\, \=_,
+ ! t .! !, \ `\/~~~
+ | / !\/\
+ `; ./ `~-
+ t .!
+ N, ./'
+ `\/'
+`k
+@end
+@if `p25 is 6 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+ __
+ _ / /|
+ |\\ \/_/
+ \_\| / __
+ \/_/__\ .-=='/~\
+ ____,__/__,_____,______)/ /{~}}}
+ -,------,----,-----,---,\'-' {{~}}
+ '-==.\}/
+`k
+@end
+@if `p25 is 7 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+ __ .---.
+ __ / ` .-.7,--.
+ / `. .-''. -, , \
+ '--.- -; | ) /
+ ,` / \ ,_) / '-.
+ / ( ( | / .' ) \
+ '. `--,/ .---' ,-.|
+ `--. / '-, -' .'
+ .==,=; `-,.;--'
+ / ,' _;--;|
+ /_...=' ||
+ || .==,=.
+ ||/ '.\
+ ,||`'=...__\
+ ||
+ ||
+ ||,
+ ||
+ ||
+ ||
+`k
+@end
+@if `p25 is 8 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+ _
+ _.;_'-._
+ {`--.-'_,}
+ {; \,__.-'/}
+ {.'-`._;-';
+ `'--._.-'
+ .-\\,-"-.
+ `- \( '-. \
+ \;---,/
+ .-""-;\
+ / .-' )\
+ \,---'` \\
+ \|
+`k
+@end
+@if `p25 is 9 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+ ';.
+ .---., \
+ {}-.__,>=======;==================
+ `----' ,/
+ .;'
+`k
+@end
+@if `p25 is 10 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+ _
+ /_)
+ (8_))}- .
+ \_) '.
+ .--. .
+ , .-.-,_, : '. .'
+ )`-.>'` ( '---'`;
+ / `\ | .
+ | | | _.'
+ \ / / .'
+ `=(\ /.=` '
+ `-;`.-' '._
+ `)| , ` ' ' ' ' '
+ || .-'|
+ ,_|| \_,/
+ , \|| .'
+ |\|\ , ||/
+ ,_\` |/| |Y_,
+ '-.'-._\||/
+ >_.-`Y|
+ ` ,_||
+ \||
+ ||
+ ||
+ |/
+`k
+@end
+
+ @do addlog
+ `0`n`2 has sent `0`s02`2 a `@rose`2!
+ @routine seperate in gametxt.ref
+ @do `p08 + 1
+ @show
+`\`\ `2Ok! The rose has been sent. `S02 `2will be notified.`\`\`k
+ `$+1 Charm`\`k
+ @do goto fred
+ @end
+
+
+@#sign
+@do moveback
+@do saybar
+`%<���� Ralphie's Roses
+@end
+@closescript
+@#nomore
+
+
+;
+;
+@if `p25 is 1 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+ `4:. ,..
+ `4.' :~.':_.,
+ `4.' ::.::'.'
+ `4: ::' .:
+ `4'.: .: .:/
+ `2'::--`4.:'.::'
+ `2|. _:===-`4'
+ `2/ /
+ `2,---.---. __,','
+ `2(~'. \ ) )','.,---..
+ `2'v'\ | ,' .-'.:,'_____ '.
+ `2)|/.-~.--~~--. ~~~-. \
+ _`2/-'_.-~ ""---.._'.|
+ `2_.-~~_.-~ ""'
+`2 _..--~~_.(~~
+`2 __...---~~~_..--~~
+`2,'___...---~~~
+`k
+@end
+@if `p25 is 2 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+ `4 _.--.
+ `4 ;.-'i.'._.--,
+ `4 {(;{} y'-.',_'--.
+ `4 <'~;'-( _.''.~'.' \
+ `4 \ 'i.' ' Y },-,)
+ `4 .j~. | ; / _j\
+ `4 <_ '! ;_.'( /
+ `4 >-, '---.,' .'-j
+ `4 / '. ,<_ ( '. \
+ `2 '=-j\ '-</'.Y-f `2�.\
+ `2 / ,'-~'\ :|\ \___ ' _.~~~..
+ `2 /,' \:| \ \/ / /.'-'-'~,
+ `2 (' \| <\ \ <,' \ \ '_/
+ `2 .-|-._\ \//\ __..~'
+ `2 .'-/- ,-\ Y___
+ `2 /- /.\ \| \ \/
+ `2 |-| \ '/ \ \
+ `2 |/ \ .'
+ `2 \ .'
+ `2 \'
+`k
+@end
+@if `p25 is 3 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+ `4 __
+ `4 ___ _// \
+ `4 _/ \/__|_ \
+ `4 / __//_/==\_| ___
+ `4 / | / /|// == \ \ /
+ `4 | | |\|| //_\ | |_/
+ `4 \ \ \\ / \_/| || \
+ `4 \___/\\| _ ///___\
+ `4 \__|\_\=//_// _\_|
+ `4\___\_____/
+ `2!! `4\____/
+ `2 !!
+ `2 !!
+ `2 ___ -(!! __ ___ _
+ `2 |\| \ !!_.-~~ /|\- \~-._
+ `2 | -\| | !!/ / | |\- | |\ \
+ `2 \__-\|______ !! | \___\| \_\|
+ `2 _____ _.-~/|\ \\!! \ | / ~-.
+ `2 / /| / /| \ \!! \ / |\~-
+ `2 / ---/| | | |\ | !! \__|
+ `2 | ---/| | | \ /| / -(!!
+ `2 | -/| | / \|/ !!
+ `2 |/____ / !!)-
+ `2 !!
+`k
+@end
+@if `p25 is 4 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+ `4 .-~~~-
+ `4 .-~~~_._~~~\
+ `4 /~-~~ ~. '._
+ `4 / \ \ | ~~-_
+ `4 __ | | | | /~\|
+ `4 _-~~ ~~-..| ______||/__..-~~/
+ `4 ~-.___ \ /~\_________.-~~
+ `4 \~~--._\ | /
+ `4 ^-_ ~\ \ /^
+ `4 ^~---|~~~~-.___.-~^
+ `4 /~^| | | |^~\
+ `4 //~^'/ /_/ ^~\\
+ `4 / //~`2|| \
+ `4 ~ `2||
+`2 ___ -(|| __ ___ _
+`2 |\| \ ||_.-~~ /|\- \~-._
+`2 | -\| | ||/ / | |\- | |\ \
+`2 \__-\|______ || | \___\| \_\|
+`2 _____ _.-~/|\ \\|| \ | / ~-.
+`2 /' --/| / /| \ \|| \ / |\~-
+`2 ' ---/| | | |\ | || \__|
+`2 | --/| | ; \ /| / -(||
+`2 './ | / \|/ ||)-
+`2 '~^~^ ||
+`k
+@end
+@if `p25 is 5 then do
+@begin
+`k
+`r0`c
+ @writefile mail\mail`p20.dat
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+`4 .=====__
+`4 /==Z' .===_ ~~=,_===\
+`4 _/ | | YZ, '\, ~\
+`4 | | | _/=j'\ !, d
+`4 __====_| | b/ V'; /' .M ,
+`4 '5\==/~~ W, t d+, .D4| / /'|/~~~\=__ .-
+`4 '\ t~\ | |t'~~T/'|Z :/ | ~~\=/V
+`4 \ | \4, | ~/~' :Z -! | |
+`4 \, /\__| \\.! :XG \ / ._, ./'
+`4 'L | ~; V; _//' | \ .f~' '~; .b_
+`4 ./ \\__JL '; Y7~ | / / d //' \,
+`4 .! 'D\, '\, | .! .t/ .(_/=~ \
+`4 / ';'~~~=+=qLb, jK_L==f' j'' ';
+`4 ./ .(r, '~\5' ~\\,._r/ |
+`4 ~=m! ./D' '\, \, !G~ t
+`4 ~==___===/'/ .!'\__ /! __=~\\~=_ TG=
+`4 | .| ~\=\=r@/~5 \ !, ~=_, __//'
+`4 |./~V || '| \, t ~~~~\==~~
+`4 t| | | | | !\, \=_,
+`4 ! t .! !, \ '\/~~~
+`4 | / !\/\
+`4 '; ./ '~-
+`4 t .!
+`4 N, ./'
+`4 '\/'
+`k
+@end
+@if `p25 is 6 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+`2 __
+`2 _ / /|
+`2 |\\ \/_/
+`2 \_\| / __ `4
+`2 \/_/__\ `4 .-=='/~\
+`2 ____,__/__,_____,______)`4/ /{~}}}
+`2 -,------,----,-----,---,`4\'-' {{~}}
+`2 `4 '-==.\}/
+`k
+@end
+@if `p25 is 7 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+`4 __ .---.
+`4 __ / ' .-.7,--.
+`4 / '. .-''. -, , \
+`4 '--.- -; | ) /
+`4 ,' / \ ,_) / '-.
+`4 / ( ( | / .' ) \
+`4 '. '--,/ .---' ,-.|
+`4 '--. / '-, -' .'
+`2 .==,=;`4 '-,.;--'
+`2 / ,' _;--;|
+`2 /_...=' ||
+`2 || .==,=.
+`2 ||/ '.\
+`2 ,||`'=...__\
+`2 ||
+`2 ||
+`2 ||,
+`2 ||
+`2 ||
+`2 ||
+`k
+@end
+@if `p25 is 8 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+`4 _
+`4 _.;_'-._
+`4 {'--.-'_,}
+`4 {; \,__.-'/}
+`4 {.'-'._;-';
+`4 ''--._.-'
+`2 .-\\,-"-.
+`2 '- \( '-. \
+`2 \;---,/
+`2 .-""-;\
+`2 / .-' )\
+`2 \,---'' \\
+`2 \|
+`k
+@end
+@if `p25 is 9 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+`2 ';.
+`4 .---., `2 \
+`4 {}-.__,>`2=======;==================
+`4 '----' `2 ,/
+`2 .;'
+`k
+@end
+@if `p25 is 10 then do
+@begin
+ @writefile mail\mail`p20.dat
+`k
+`r0`c
+ `@Delivery from Ralphie's Roses:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has sent you a rose. S&he must really like you!
+ `$ _
+ `$ /_)
+ `$ (8_))}- `% .
+ `$ \_) `% '.
+ `% .--. .
+`4 , .-.-,_, `% : '. .'
+`4 )'-.>'' ( `% '---'';
+`4 / '\ | `% .
+`4 | | | `% _.'
+`4 \ / / `% .'
+`2 '=(`4\ /`2.=' `% '
+`2 '-;'.-' `% '._
+`2 ')| , `% ' ' ' ' ' '
+`2 || .-'|
+`2 ,_|| \_,/
+`2 , \|| .'
+`2 |\|\ , ||/
+`2 ,_\' |/| |Y_,
+`2 '-.'-._\||/
+`2 >_.-'Y|
+`2 ' ,_||
+`2 \||
+`2 ||
+`2 ||
+`2 |/
+`k
+@end
+
diff --git a/xtrn/lord2/cnw/rose3.ans b/xtrn/lord2/cnw/rose3.ans
new file mode 100644
index 0000000000000000000000000000000000000000..bf185ad7f86413df56c339436d62bb9f1ba0a08a
--- /dev/null
+++ b/xtrn/lord2/cnw/rose3.ans
@@ -0,0 +1,21 @@
+`r0`c
+ `4 ___ _// \
+ `4 _/ \/__|_ \
+ `4 / __//_/==\_| ___
+ `4 / | / /|// == \ \ /
+ `4 | | |\|| //_\ | |_/
+ `4 \ \ \\ / \_/| || \
+ `4 \___/\\| _ ///___\
+ `4 \__|\_\=//_// _\_|
+ `4\___\_____/
+ `2!! `4\____/
+ `2 !!
+ `2 !!
+ `2 ___ -(!! __ ___ _
+ `2 |\| \ !!_.-~~ /|\- \~-._
+ `2 | -\| | !!/ / | |\- | |\ \
+ `2 \__-\|______ !! | \___\| \_\|
+ `2 _____ _.-~/|\ \\!! \ | / ~-.
+ `2 / /| / /| \ \!! \ / |\~-
+ `2 / ---/| | | |\ | !! \__|
+ `2 | ---/| | | \ /| / -(!!
diff --git a/xtrn/lord2/cnw/rose4.ans b/xtrn/lord2/cnw/rose4.ans
new file mode 100644
index 0000000000000000000000000000000000000000..96d9cbed10f199ea649d3bb3bc9bb7f082303e29
--- /dev/null
+++ b/xtrn/lord2/cnw/rose4.ans
@@ -0,0 +1,21 @@
+ `4 .-~~~-
+ `4 .-~~~_._~~~\
+ `4 /~-~~ ~. '._
+ `4 / \ \ | ~~-_
+ `4 __ | | | | /~\|
+ `4 _-~~ ~~-..| ______||/__..-~~/
+ `4 ~-.___ \ /~\_________.-~~
+ `4 \~~--._\ | /
+ `4 ^-_ ~\ \ /^
+ `4 ^~---|~~~~-.___.-~^
+ `4 /~^| | | |^~\
+ `4 //~^'/ /_/ ^~\\
+ `4 / //~`2|| \
+ `4 ~ `2||
+ `2 ___ -(|| __ ___ _
+ `2 |\| \ ||_.-~~ /|\- \~-._
+ `2 | -\| | ||/ / | |\- | |\ \
+ `2 \__-\|______ || | \___\| \_\|
+ `2 _____ _.-~/|\ \\|| \ | / ~-.
+ `2 /' --/| / /| \ \|| \ / |\~
+ `2 ' ---/| | | |\ | || \_
diff --git a/xtrn/lord2/cnw/rose5.ans b/xtrn/lord2/cnw/rose5.ans
new file mode 100644
index 0000000000000000000000000000000000000000..b3414cf14f1e594348bdbed5c1c7857127ba6e63
--- /dev/null
+++ b/xtrn/lord2/cnw/rose5.ans
@@ -0,0 +1,22 @@
+`r0`c
+ `4 .=====__
+ `4 /==Z' .===_ ~~=,_===\
+ `4 _/ | | YZ, '\, ~\
+ `4 | | | _/=j'\ !, d
+ `4 __====_| | b/ V'; /' .M ,
+ `4 '5\==/~~ W, t d+, .D4| / /'|/~~~\=__ .-
+ `4 '\ t~\ | |t'~~T/'|Z :/ | ~~\=/V
+ `4 \ | \4, | ~/~' :Z -! | |
+ `4 \, /\__| \\.! :XG \ / ._, ./'
+ `4 'L | ~; V; _//' | \ .f~' '~; .b_
+ `4 ./ \\__JL '; Y7~ | / / d //' \,
+ `4 .! 'D\, '\, | .! .t/ .(_/=~ \
+ `4 / ';'~~~=+=qLb, jK_L==f' j'' ';
+ `4 ./ .(r, '~\5' ~\\,._r/ |
+ `4 ~=m! ./D' '\, \, !G~ t
+ `4 ~==___===/'/ .!'\__ /! __=~\\~=_ TG=
+ `4 | .| ~\=\=r@/~5 \ !, ~=_, __//'
+ `4 |./~V || '| \, t ~~~~\==~~
+ `4 t| | | | | !\, \=_,
+ `4 ! t .! !, \ '\/~~~
+ `4 | / !\/\
diff --git a/xtrn/lord2/cnw/rose6.ans b/xtrn/lord2/cnw/rose6.ans
new file mode 100644
index 0000000000000000000000000000000000000000..d05b25fab9dd5d5925638296f106b4479176ed3e
--- /dev/null
+++ b/xtrn/lord2/cnw/rose6.ans
@@ -0,0 +1,18 @@
+`r0`c
+
+
+
+
+
+
+
+
+
+`2 __
+`2 _ / /|
+`2 |\\ \/_/
+`2 \_\| / __ `4
+`2 \/_/__\ `4 .-=='/~\
+`2 ____,__/__,_____,______)`4/ /{~}}}
+`2 -,------,----,-----,---,`4\'-' {{~}}
+`2 `4 '-==.\}/
diff --git a/xtrn/lord2/cnw/rose7.ans b/xtrn/lord2/cnw/rose7.ans
new file mode 100644
index 0000000000000000000000000000000000000000..7f18612e6285b5e03df36a6d0cad5b99a35a43cc
--- /dev/null
+++ b/xtrn/lord2/cnw/rose7.ans
@@ -0,0 +1,20 @@
+`r0`c
+ `4 __ .---.
+ `4 __ / ' .-.7,--.
+ `4 / '. .-''. -, , \
+ `4 '--.- -; | ) /
+ `4 ,' / \ ,_) / '-.
+ `4 / ( ( | / .' ) \
+ `4 '. '--,/ .---' ,-.|
+ `4 '--. / '-, -' .'
+ `2 .==,=;`4 '-,.;--'
+ `2 / ,' _;--;|
+ `2 /_...=' ||
+ `2 || .==,=.
+ `2 ||/ '.\
+ `2 ,||`'=...__\
+ `2 ||
+ `2 ||
+ `2 ||,
+ `2 ||
+ `2 ||
diff --git a/xtrn/lord2/cnw/rose8.ans b/xtrn/lord2/cnw/rose8.ans
new file mode 100644
index 0000000000000000000000000000000000000000..67e788ecaec63366cd09d7879c585294c4791caf
--- /dev/null
+++ b/xtrn/lord2/cnw/rose8.ans
@@ -0,0 +1,14 @@
+`r0`c
+ `4 _
+ `4 _.;_'-._
+ `4 {'--.-'_,}
+ `4 {; \,__.-'/}
+ `4 {.'-'._;-';
+ `4 ''--._.-'
+ `2 .-\\,-"-.
+ `2 '- \( '-. \
+ `2 \;---,/
+ `2 .-""-;\
+ `2 / .-' )\
+ `2 \,---'' \\
+ `2 \|
diff --git a/xtrn/lord2/cnw/rose9.ans b/xtrn/lord2/cnw/rose9.ans
new file mode 100644
index 0000000000000000000000000000000000000000..b3a7a9b22cdccf41cb6b22e81d52d9ced6cef55e
--- /dev/null
+++ b/xtrn/lord2/cnw/rose9.ans
@@ -0,0 +1,15 @@
+`r0`c
+
+
+
+
+
+
+
+
+
+`2 ';.
+`4 .---., `2 \
+`4 {}-.__,>`2=======;==================
+`4 '----' `2 ,/
+`2 .;'
diff --git a/xtrn/lord2/cnw/rroom.ref b/xtrn/lord2/cnw/rroom.ref
new file mode 100644
index 0000000000000000000000000000000000000000..2ad347992de8b6419015780aacbac4f896f995ee
--- /dev/null
+++ b/xtrn/lord2/cnw/rroom.ref
@@ -0,0 +1,162 @@
+; Script file RROOM.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:21 2001
+
+@DECLARE enter 000000260
+@DECLARE letmein 000001514
+@DECLARE done 000001594
+@DECLARE roomguard 000001708
+@DECLARE startg 000001737
+@NOCHECK
+; End of .REF index
+
+@#enter
+
+@readfile castle1.dat
+`p20
+`s01
+`s04
+`s08
+@
+
+@if `p20 is &playernum then do
+ @begin
+ @do goto letmein
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do moveback
+ @do `s02 is getname `p20
+ @do upcase `s01
+
+ @if `s04 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+ `4Ouch!
+
+`k
+ @drawmap
+ @update
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops through the door. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2the door guard asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s04
+
+ @if `s03 is `s04 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%the Royal Chambers`0,"`2 the guard smiles as he opens the door.`\`\`k
+ @do goto letmein
+ @end
+
+ @do goto done
+
+ @end
+ @end
+ @do goto done
+
+;let him in
+@label letmein
+@do x is 42
+@do y is 6
+@do map is 1363
+@loadmap 1363
+@do goto done
+@#done
+@drawmap
+@update
+@end
+
+; -----======- This is the much like the main guard for the whole keep
+
+@#roomguard
+@do moveback
+@label startg
+;control people from getting in
+@if castle1.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to vacate this room!" `2the guard barks.
+ @closescript
+ @end
+
+@readfile castle1.dat
+`p20
+`s01
+`s04
+`s08
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the door guard, nice of him to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The huge doorguard snaps to attention when he sees you are going to
+ address him.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s04`%)
+Leave
+@
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone) `\ `2Password:`x
+ @do readstring 40 `s04 `s04
+ @do `p20 is length `s04
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete castle1.dat
+ @writefile castle1.dat
+&playernum
+`s01
+`s04
+`s08
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
diff --git a/xtrn/lord2/cnw/rroom2.ref b/xtrn/lord2/cnw/rroom2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..745d4eae4ec6d68b5d99f8d8f02d286d200c22b4
--- /dev/null
+++ b/xtrn/lord2/cnw/rroom2.ref
@@ -0,0 +1,170 @@
+; Script file RROOM2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:21 2001
+
+@DECLARE enter2 000000307
+@DECLARE letmein2 000001667
+@DECLARE done 000001715
+@DECLARE roomguard2 000001810
+@DECLARE startg 000001839
+@NOCHECK
+; End of .REF index
+
+;-------------------------------------
+
+@#enter2
+
+@if &lastx is 52 then do
+ @begin
+ @do x is 50
+ @do y is 9
+ @update
+ @closescript
+ @end
+
+@readfile castle1.dat
+`p20
+`s01
+`s04
+`s08
+@
+
+@if `p20 is &playernum then do
+ @begin
+ @do goto letmein2
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do moveback
+ @do `s02 is getname `p20
+ @do upcase `s01
+
+ @if `s05 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the door.
+
+ `4Ouch!
+
+`k
+ @drawmap
+ @update
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A head pops through the door. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2the door guard asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s02
+ @do upcase `s02
+ @do upcase `s08
+
+ @if `s02 is `s08 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%The Master Chambers`0,"`2 the guard smiles as he opens the door.`\`\`k
+ @do goto letmein2
+ @end
+
+ @do goto done
+
+ @end
+ @end
+ @do goto done
+
+;let him in
+@label letmein2
+@do x is 52
+@do y is 9
+@do goto done
+@#done
+@drawmap
+@update
+@end
+
+; -----======- This is the much like the other guard
+@#roomguard2
+@do moveback
+@label startg
+;control people from getting in
+@if castle1.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to vacate this room!" `2the maid demands
+ @closescript
+ @end
+
+@readfile castle1.dat
+`p20
+`s01
+`s04
+`s08
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the maid, nice of her to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The maid snaps to attention when she sees you are going to
+ address her.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s08`%)
+Leave
+@
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone) `\ `2Password:`x
+ @do readstring 40 `s08 `s08
+ @do `p20 is length `s08
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete castle1.dat
+ @writefile castle1.dat
+&playernum
+`s01
+`s04
+`s08
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
diff --git a/xtrn/lord2/cnw/rules.ref b/xtrn/lord2/cnw/rules.ref
new file mode 100644
index 0000000000000000000000000000000000000000..a6e9423c03a03486a6f363c51730dc757c3792ec
--- /dev/null
+++ b/xtrn/lord2/cnw/rules.ref
@@ -0,0 +1,76 @@
+; +-- WARNING! WARNING! WARNING! WARNING! WARNING! WARNING! WARNING! --+
+;
+; LoRD2: Complete New World v137.0+ requires LoRD2 v1.02+
+;
+; get it at
+; http://lord.lordlegacy.org
+;
+;
+;
+@#rules
+
+;Rules for LORD II: New World. You can change #'s here to affect the
+;rules of the game.
+;change the 0 below to a 1 to show an optional opening message.
+
+@progname
+Complete New World v137.0
+
+@moremap
+`r0`2<`w`0M`wO`wR`wE`w`2>
+
+;@GRAPHICS IS 3 <-- no need to use yet 1=ascii game 2=ascii 3+=ansi
+
+@DO MOVE 1 1
+@CLEAR SCREEN
+@displayfile lord.ans
+
+;Set the following to your preferences.
+@do `v03 is 0 ;Can players die unlimited times per day? 0 is no, 1 is yes
+@do `v05 is 20000 ;turns per day given to a player, 0 for unlimited
+@do `v06 is 0 ; Make this 1 to activate CLEAN mode, this means 'dirty' things
+ ; will not happen, like there won't be whores at the Sea Hag
+ ; hotel
+@do `v07 is 5 ; Max random quests possible per day
+@do `v08 is 50 ; Max uses of the slot machines/craps per day
+@do `v09 is 10 ; Level at which players can be attacked in Inns. 0 for never
+@do `v10 is 20 ;<-- SET THIS to adjust days for 1 LoRD2 Year
+; `v11 is todays day # for the year. Checks for in gametxt.ref
+; `v12 is current year #. Checks for in gametxt.ref
+@do `v13 is 20 ; Days of pregnancy for women.
+@do `v14 is 2 ; Days to keep NPC dead for after being killed by a player.
+@do `v15 is 15 ; Tax rate "%" for calculating how much owed.
+@do `v16 is 5 ; Interest rate. (eg. for late taxes by day)
+@do `v17 is 10000 ;How much gold to allow for over dues of taxes before put on bounty list.
+@do `v18 is 22 ;min age to start paying taxes. If under, do not calc it.
+@do `v19 is 13 ;min age players can start at (random)
+@do `v20 is 19 ;max age players can start at (random)
+;
+; +------------------------- GAME STYLE -----------------------------+
+;
+@do `v30 is 0 ;<��Ŀ
+; ��Set this to one of these���
+; 0=full CNW (All IGMs and ALL NPCS functional)
+; 1=No IGMs, but is NPC (no igms) <- not available yet, do not set!
+; 2=<not available yet, do not set!>
+; 3=<not available yet, do not set!>
+; 4=FULL COMPLETE INSANE WAR! ;>
+; +- below here NPCs are partialy or complete disabled -+
+; 5=WAR, disable NPC flirts (availble: quests+give+fight)
+; 6=NOT WAR, disable NPC flirts (availble: quests+give+fight)
+; 7=WAR, disable NPC flirts+give (availble: quests+fight)
+; 8=NOT WAR, disable NPC flirts+give (availble: quests+fight)
+; 9=Just IGMs (disable NPCs completely)
+;
+; WAR = -NPCs are more greedy+stronger
+; -hate mail is on.
+; -more ideas? leave a msg on lord2@egroups.com
+;
+@show
+`%Legend of the Red Dragon II: Complete New World is now loading...`\
+`l.`l.`l.
+@routine maint in maint.ref ; <-- new maint procedures
+
+
+@DO MOVE 1 1
+@#NOMORE
diff --git a/xtrn/lord2/cnw/sandcity.ref b/xtrn/lord2/cnw/sandcity.ref
new file mode 100644
index 0000000000000000000000000000000000000000..f15f9af7d2b60a3639c103d2c0508a2439017d0a
--- /dev/null
+++ b/xtrn/lord2/cnw/sandcity.ref
@@ -0,0 +1,307 @@
+; Script file SANDCITY.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:22 2001
+
+@DECLARE heal 000000442
+@DECLARE inn 000002355
+@DECLARE pawn 000003067
+@DECLARE pawn1 000003161
+@DECLARE chest 000004003
+@DECLARE chest2 000004298
+@DECLARE bartender 000004552
+@DECLARE water 000005633
+@DECLARE mainsign 000005774
+@DECLARE sign1 000005896
+@DECLARE sign2 000006035
+@DECLARE sign3 000006170
+@NOCHECK
+; End of .REF index
+
+@#heal
+;SandCity's Healer Extrodinare (Sunny)
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1 SandCity Healing `r0
+
+`2 Sunny looks you over for wounds. (and seems to enjoy looking)
+
+@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, fool! What'd ya get yourself into anyway?
+ Aww, never mind crazy fool. 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 fool, we don't do no free work here."
+
+ @do write
+`x`x
+ @choice
+Hey Fool! How am I supposed to make money when I can barely walk?
+Man, 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"You Crazy, now get going with you!" `2 she laughs.
+
+`k
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+ `0"Hey Fool, be a big s&man for once in your life!"`2 she yells.
+
+`k
+ @end
+@if response is 2 then do
+ @begin
+ @show
+ `0"I cannot respect a fool that don't work," `2she informs you.
+
+`k
+ @end
+@if response is 3 then do
+ @begin
+ @do `p02 = 1
+ @show
+ `0"Sure. Take uh.. these." `2 she 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 fool! I got other crazies to heal.
+ Nothing but scorpions in this town I tell ya," `2she laughs.
+
+`k
+@drawmap
+@update
+
+@#INN
+;Sand City Inn. The place to be in town!
+@offmap
+@do moveback
+@DO `v01 is 1
+@show
+`r0`c `r1 SandCity Inn `r0
+
+ `2You step into the beaten up building. It seems that part of the
+ building has collapsed, as if from a great fall. An old man sits
+ behind a mud counter staring at the ceiling. He notices you and speaks.
+ `0"Hello stranger, need a room? They're `$$120`0 here."`2
+
+@DO WRITE
+`x`x
+@CHOICE
+>&money 89 Get a room
+Leave
+@if response is 1 then do
+@begin
+@do money - 120
+@show
+`\`\ `0"Enjoy your stay here. Beware the caved in areas!"
+`\`k
+ @do map is 979
+ @loadmap 979
+ @do x is 21
+ @do y is 13
+@drawmap
+@update
+@closescript
+@end
+@drawmap
+@update
+@end
+
+@#pawn
+;Dozer's pawn shoppe. SandCity's hawker.
+@offmap
+@do moveback
+@do `v01 is 1
+@label pawn1
+@show
+`r0`c `%Dozer's Pawn Shop
+
+`2 Dozer motions you to approach. He reeks of beer.
+
+@do write
+`x`x
+@choice
+Examine his wares.
+Ask him to buy some of your stuff.
+Gossip with Dozer
+Go outside.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+ @clearblock 8 14
+ @do move 1 7
+ @buymanager
+ 20
+ 36
+ 37
+ 40
+ @end
+
+@if responce is 2 then do begin
+ @begin
+ @clearblock 8 14
+ @do move 1 7
+ @sellmanager
+ @end
+
+@if responce is 3 then do begin
+ @begin
+@show
+ `0"Wanna know something really strange? I heard there is a tree on
+ the East Road that gives apples..."
+
+ `2You stare at him in disbelief. `$"Yeah right, quit telling me stories,
+ Dozer! You ain't exactly in the most travelled area of the world, ya know."
+
+`k
+ @end
+@if responce not 4 then goto pawn1
+@drawmap
+@update
+
+@#CHEST
+;Located in the Bar and Grill
+@do moveback
+@if bitcheck `t60 1 1 then do
+ @begin
+ @do saybar
+ There is nothing on the table.
+ @closescript
+ @end
+@bitset `t60 1 1
+@do saybar
+`%You find a Gold Potion on the table! What a stupid place to leave one!
+@do `i53 + 1
+@end
+
+@#CHEST2
+;Located in the Inn
+@do moveback
+@if bitcheck `t60 2 1 then do
+ @begin
+ @do saybar
+ There is an open chest here.
+ @closescript
+ @end
+@bitset `t60 2 1
+@do saybar
+`%You find a Silver Potion in the chest!
+@do `i54 + 1
+@end
+
+@#bartender
+;Bartenders love to talk
+@do `p70 is 99
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do moveback
+@do `p20 random 10 1
+@if `p20 is 1 then saybar
+`%Maverick: `0I used to be a thief. Then I found the way!
+@if `p20 is 2 then saybar
+`%Maverick: `0I have a potion in the back room. I forget how to get there.
+@if `p20 is 3 then saybar
+`%Maverick: `0Sandcity is a great place to live!
+@if `p20 is 4 then saybar
+`%Maverick: `0Here is your wallet back. Just practising!
+@if `p20 is 5 then saybar
+`%Maverick: `0Are you here to help restore the Sand Castle?
+@if `p20 is 6 then saybar
+`%Maverick: `0Call Mayhem BBS! It's cool! 905-790-8352
+@if `p20 is 7 then saybar
+`%Maverick: `0The Sand Castle was a wondrous place. Great Weapons shop too!
+@if `p20 is 8 then saybar
+`%Maverick: `0You might try to help dig out the Inn's second floor.
+@if `p20 is 9 then saybar
+`%Maverick: `0The Sand Castle was ruled by a beautiful Princess.
+@if `p20 is 10 then saybar
+`%Maverick: `0The Sand Castle MIGHT be available in the next release!
+@end
+
+@#water
+;SandCity's water source on the main town map
+@do saybar
+A pool of water. This must be how the town survives.
+@do moveback
+
+@#mainsign
+;Sign post before SandCity hole
+@do saybar
+Here lay the remains of SandCity. Beware the hole!
+@do moveback
+
+@#sign1
+;Sign post entering SandCity
+@do saybar
+Here lay what remains of SandCity. Inhabitants are few, but dangerous!
+@do moveback
+
+@#sign2
+;Sign post before the castle
+@do saybar
+In memorial of the Sand Castle. Crushed with the fall of the city.
+@do moveback
+
+@#sign3
+;Sign post entering SandCity
+@do saybar
+People wanted to uncover the Castle. Apply at the Bar.
+@do moveback
+
+
diff --git a/xtrn/lord2/cnw/save.ref b/xtrn/lord2/cnw/save.ref
new file mode 100644
index 0000000000000000000000000000000000000000..930434118a94be318675eed065038671dc9dc89a
--- /dev/null
+++ b/xtrn/lord2/cnw/save.ref
@@ -0,0 +1,562 @@
+; Script file SAVE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:31 2001
+
+@DECLARE start 000000610
+@DECLARE chant 000000621
+@DECLARE flady 000000685
+@DECLARE slady 000002211
+@DECLARE rlady 000003683
+@DECLARE oldlife 000005204
+@DECLARE newlife 000006439
+@DECLARE nomore 000013668
+@NOCHECK
+; End of .REF index
+
+;Entry_Map,X Y IGM_Map X Y Reference Exit to the
+;379 30 9 1045 36 8 Sosen Village West
+;1093 33 16 1046 1 8 Flagcity East
+;319 54 12 1047 18 15 Rockholm Mts. South
+
+@#START
+
+@#CHANT
+@DO MOVEBACK
+@DO SAYBAR
+...oommmm... ...oommmm...
+
+@#FLADY
+@DO MOVEBACK
+@DATALOAD saveinf.idf &playernum `p91
+@DO `t91 IS `p91
+@IF BITCHECK `t91 1 0 THEN DO
+ @BEGIN
+@DO SAYBAR
+`0Greetings, `n`0. You are now blessed with the mark of the Flagcity Temple.
+ @BITSET `t91 1 1
+ @DO `p91 is `t91
+ @DATASAVE saveinf.idf &playernum `p91
+ @closescript
+ @END
+@SHOW
+`r0`c`r1`% Talking to the Flagcity Matron `r0`\
+`2Yes, child `n`2, how may I be of service?`\
+@do `v01 is 1
+@CHOICE
+`$Uh, nevermind...
+`$What's with this `@Mark`$?
+`$Are there other places like this?
+`$Which `@Mark`$s do I have?
+@IF RESPONSE is 2 then do
+ @begin
+@show
+`\`\`2 The `@Mark`2 is a sacred symbol of our order, and
+it allows us to restore your life's breath and
+essence here, instead of back at your mother's
+house.
+@key
+ @end
+@IF RESPONSE is 3 then do
+ @begin
+@show
+`\`\`2 Yes, there are two other `0Temple`2s. One is up in
+the `%Rockholm Mountains`2, near `%Castle Coldrake`2. The
+other is east by north east of `%Sosen Village`2. If
+`$Velox`2 exists, its just directly north east of that.
+Once you have their `@Mark`2s, you can be ressurrected
+there, too.
+@key
+@end
+@IF RESPONSE IS 4 then do
+ @begin
+@do write
+`\`\ `$You have the `@Mark`$ of`X
+@if BITCHECK `t91 1 1 then do
+ @begin
+ @do write
+`%Flagcity`$,
+ @end
+@if BITCHECK `t91 2 1 then do
+ @begin
+ @do write
+`%Sosen`$,
+ @end
+@if BITCHECK `t91 3 1 then do
+ @begin
+ @do write
+`%RockHolm`$.
+ @end
+@if `t91 is 0 then do
+ @begin
+ @do write
+`%NONE!?
+ @end
+@key
+@end
+
+@drawmap
+@update
+
+@#SLADY
+@DO MOVEBACK
+@DATALOAD saveinf.idf &playernum `p91
+@DO `t91 IS `p91
+@IF BITCHECK `t91 2 0 THEN DO
+ @BEGIN
+@DO SAYBAR
+`0Greetings, `n`0. You are now blessed with the mark of the Sosen Temple.
+ @BITSET `t91 2 1
+ @DO `p91 is `t91
+ @DATASAVE saveinf.idf &playernum `p91
+ @closescript
+ @END
+@SHOW
+`r0`c`r1`% Talking to the Sosen Matron `r0`\
+`2Yes, child `n`2, how may I be of service?`\
+@do `v01 is 1
+@CHOICE
+`$Uh, nevermind...
+`$What's with this `@Mark`4?
+`$Are there other places like this?
+`$Which `@Mark`$s do I have?
+@IF RESPONSE is 2 then do
+ @begin
+@show
+`\`\`2 The `@Mark`2 is a sacred symbol of our order, and
+it allows us to restore your life's breath and
+essence here, instead of back at your mother's
+house.
+@key
+ @end
+@IF RESPONSE is 3 then do
+ @begin
+@show
+`\`\`2 Yes, there are two other `0Temple`2s. One is up in
+the `%Rockholm Mountains`2, near `%Castle Coldrake`2. The
+other is directly east of `%Flagcity`2, right next to a
+bridge. Once you have their `@Mark`2s, you can be
+ressurrected there, too.
+@key
+@end
+@IF RESPONSE IS 4 then do
+ @begin
+@do write
+`\`\ `$You have the `@Mark`$ of`X
+@if BITCHECK `t91 1 1 then do
+ @begin
+ @do write
+`%Flagcity`$,
+ @end
+@if BITCHECK `t91 2 1 then do
+ @begin
+ @do write
+`%Sosen`$,
+ @end
+@if BITCHECK `t91 3 1 then do
+ @begin
+ @do write
+`%RockHolm`$.
+ @end
+@if `t91 is 0 then do
+ @begin
+ @do write
+`%NONE!?
+ @end
+@key
+@end
+@drawmap
+@update
+
+@#RLADY
+@DO MOVEBACK
+@DATALOAD saveinf.idf &playernum `p91
+@DO `t91 IS `p91
+@IF BITCHECK `t91 3 0 THEN DO
+ @BEGIN
+@DO SAYBAR
+`0Greetings, `n`0. You are now blessed with the mark of the Rockholm Temple.
+ @BITSET `t91 3 1
+ @DO `p91 is `t91
+ @DATASAVE saveinf.idf &playernum `p91
+ @closescript
+ @END
+@SHOW
+`r0`c`r1`% Talking to the Rockholm Matron `r0`\
+`2Yes, child `n`2, how may I be of service?`\
+@do `v01 is 1
+@CHOICE
+`$Uh, nevermind...
+`$What's with this `@Mark`4?
+`$Are there other places like this?
+`$Which `@Mark`$s do I have?
+@IF RESPONSE is 2 then do
+ @begin
+@show
+`\`\`2 The `@Mark`2 is a sacred symbol of our order, and
+it allows us to restore your life's breath and
+essence here, instead of back at your mother's
+house.
+@key
+ @end
+@IF RESPONSE is 3 then do
+ @begin
+@show
+`\`\`2 Yes, there are two other `0Temple`2s. One is
+directly east of `%Flagcity`2, right next to a bridge.
+The other is east by north east of `%Sosen Village`2. If
+`$Velox`2 exists, its just directly north east of that.
+Once you have their `@Mark`2s, you can be ressurrected
+there, too.
+@key
+@end
+@IF RESPONSE IS 4 then do
+ @begin
+@do write
+`\`\ `$You have the `@Mark`$ of`X
+@if BITCHECK `t91 1 1 then do
+ @begin
+ @do write
+`%Flagcity`$,
+ @end
+@if BITCHECK `t91 2 1 then do
+ @begin
+ @do write
+`%Sosen`$,
+ @end
+@if BITCHECK `t91 3 1 then do
+ @begin
+ @do write
+`%RockHolm`$.
+ @end
+@if `t91 is 0 then do
+ @begin
+ @do write
+`%NONE!?
+ @end
+@key
+@end
+@drawmap
+@update
+
+@#OLDLIFE
+@do dead is 0 ;he is now alive
+@do `p02 is `p03 (give 'em max hit points)
+@DATALOAD saveinf.idf &playernum `p91
+@DO `t91 is `p91
+@if `t91 is 0 then do
+ @begin
+ @do X is 27
+ @do Y is 7
+ @do MAP is 155
+ @end
+@if `t91 more 0 then do
+ @begin
+@show
+`r0`c`r1`% Thou hath been killed in thy sleep! `r0`\
+`2But death isn't the end... entirely. As you pass out of consciousness, some
+ghostly phantom monks ask, `!"Where?"
+@do `p92 is 0
+@if BITCHECK `t91 1 1 then do
+ @begin
+ @do `p92 is 1
+ @end
+@do `p93 is 0
+@if BITCHECK `t91 2 1 then do
+ @begin
+ @do `p93 is 1
+ @end
+@do `p94 is 0
+@if BITCHECK `t91 3 1 then do
+ @begin
+ @do `p94 is 1
+ @end
+@do `v01 is 1
+@choice
+`$I want to go to my mom's house
+=`p92 1 `$I want to go to Flagcity Temple
+=`p93 1 `$I want to go to Sosen Temple
+=`p94 1 `$I want to go to RockHolm Temple
+@If response is 1 then do
+ @begin
+ @do X is 27
+ @do Y is 7
+ @do MAP is 155
+ @end
+@If response is 2 then do
+ @begin
+ @do X is 6
+ @do Y is 11
+ @do MAP is 1045
+ @end
+@If response is 3 then do
+ @begin
+ @do X is 6
+ @do Y is 11
+ @do MAP is 1046
+ @end
+@If response is 4 then do
+ @begin
+ @do X is 6
+ @do Y is 11
+ @do MAP is 1047
+ @end
+ @end
+
+
+@#NEWLIFE
+@DATALOAD saveinf.idf &playernum `p91
+@DO `t91 is `p91
+@if `t91 is 0 then do
+ @begin
+ @do X is 27
+ @do Y is 7
+ @do MAP is 155
+ @end
+@if `t91 more 0 then do
+ @begin
+@show
+`r0`c`r1`% Thou hath died! `r0`\
+`2But death isn't the end... entirely. As you pass out of consciousness, some
+ghostly phantom monks ask, `!"Where?"
+@do `p92 is 0
+@if BITCHECK `t91 1 1 then do
+ @begin
+ @do `p92 is 1
+ @end
+@do `p93 is 0
+@if BITCHECK `t91 2 1 then do
+ @begin
+ @do `p93 is 1
+ @end
+@do `p94 is 0
+@if BITCHECK `t91 3 1 then do
+ @begin
+ @do `p94 is 1
+ @end
+@do `v01 is 1
+@choice
+`$I want to go to my mom's house
+=`p92 1 `$I want to go to Flagcity Temple
+=`p93 1 `$I want to go to Sosen Temple
+=`p94 1 `$I want to go to RockHolm Temple
+@If response is 1 then do
+ @begin
+ @do X is 27
+ @do Y is 7
+ @do MAP is 155
+ @end
+@If response is 2 then do
+ @begin
+ @do X is 6
+ @do Y is 11
+ @do MAP is 1045
+ @end
+@If response is 3 then do
+ @begin
+ @do X is 6
+ @do Y is 11
+ @do MAP is 1046
+ @end
+@If response is 4 then do
+ @begin
+ @do X is 6
+ @do Y is 11
+ @do MAP is 1047
+ @end
+ @end
+
+ @do money / 2
+ @do `p02 is `p03 (give 'em max hit points)
+ @do `p20 is `p01
+ @do `p20 / 5
+ @do `p01 - `p20
+ @do dead is 1
+ @update_update
+
+ @do talk `4Newsflash:`0`x`n`x`2was`xdefeated`xby`x`0`e`2! all
+ @do addlog
+ `0`n`2 was whipped up on by `0`e`2!
+ @routine seperate in gametxt.ref
+@do move 3 24
+@do write
+`r0 `x
+
+@do move 3 24
+@do write
+`4You've been killed. `k
+
+@pauseoff
+@show
+`r0`c
+[34C[0m���������������
+[29C���[1;30;47m����[0;47m�[1;30m�[0;47m�����������[40m�
+[28C�[1;30;47m����[0;47m������������������[40m�
+[27C�[1;30;47m����[0;47m��������[1;30m��[0;47m���������[40m�
+[19C��[5C�[1;30;47m����[0;47m����������[1;30m����[0;47m�����[40m
+[A[50C[47m[1;30m�[0m��
+[18C���� [1;30;47m�����[0;47m�����[1;30m� �[0;47m�[1;30m���[40m
+[A[43C[0;47m�����[1;30m�ܲ[0m�[47m�[1C[40m�[1;47m��[40m�
+[17C[30m�[47m�[0;47m��[1m�[0m� [1;30;47m���� [0;47m��[1;30m�[40m
+[A[34C[0;47m�[1;30m�����߰�[0;47m�[1;30m�[0;47m����[1;30m߲�[40m
+[A[52C[47m[0m�[1;30m�[47m�[0;47m�[1m�[40m�
+[17C[30;47m���[0;47m��[1m��[0m� [1;30m�[0m��� [1;30m�߲[47m[40m
+[A[37C[47m����[40m���[5C[0m��[1;30;47m�[40m�[47m��[0m� �
+[18C[1;30m���[47m��[0;47m� [1;30m�[1C[0m� [31m� [1;30m��
+[A[38C[47m���[40m� [0;31m� [37m��[1;30;47m�[40m�
+[23C[0m�[1;30;47m��[40m�[0m���� ��[1;30;47m�[0m��[1;30m�
+[A[41C[47m�[0m�� ��[1;47m�[0m�[1;30m�
+[25C[47m�[40m�[0m�[1;30;47m� [0;47m��[1;30m�����[0m� [1;30m� [0m�
+[A[42C[1;30;47m����[0;47m����[1m��[0m�
+[26C�[1;30;47m�[0;47m����[1;30mܲ��[0;47m�[2C[1;30;40m�� [47m��[40m
+[A[44C[47m�[0;47m�����[40m��
+[27C���[1;30;47m��[40m���[47m�[0m��[1;30;47m�����[40m��[0m� ����
+[29C[1;30m�� �� [0m��[1;30m�� �[0m�[1;30m� �� [47m��[0m�
+[27C�[1;30;47m���[40m� � [47m�[0m�[1;47m��[40m��[0m��[1;30;47m[40m
+[A[43C[47m�[40m� � [47m��[0;47m�[40m�
+[22C[1m� [47m��[30m��[40m� [0m� [1;30m� [0m� �[1m� �[0m� �
+[A[45C[1;30m��[47m�[1C[0m�[47m [1m�[40m���
+[19C�[47m�����[30m�[0m�� ���[1;30;47m�[0;47m�[40m�� ����� ��
+[A[45C[1;30;47m��[0;47m��[40m� �[1;30;47m�[37m��[40m�[47m�[40m
+[19C[0;31m� [37m���[1;30;47m�[40m�[0;33mܲ�� [37m�[1;47m��[30m[40m
+[A[34C[47m�[0;47m���[1;30m��[0;47m���� [1m��[0m� [33m���[1;30m�
+[A[53C[47m�[0m��[31m�
+[17C�����[37m�[1;30m�[0;31m���[33;41m����[40m� [37m�[1;47m�[40m
+[A[35C[0;47m��[1;30mܱ[40m�[47m��[40m�[47m�[37m�[0m� [31m�
+[A[48C[33;41m���[31;40m��[1;30m�[0;31m��۲��
+
+ `%You have made an error, s&boy.
+
+`k
+ @if `v03 is 0 then do
+ @begin
+ ;rules.ref file says unlimited deaths not allowed, so we will boot them
+ ;till tomorrow
+
+ ;take them off the map
+; @do map is 1
+ @halt
+ @end
+
+ @pauseon
+
+ @do dead is 0
+
+ @if `p07 less 0 then do
+ @begin
+ @show
+`r0`c`% `r1IT FEELS KINDA WARM IN HERE?`r0
+
+ `4You open your eyes.
+
+`k `4There are naked screaming people all around you. A little boy with
+ a ghastly face begins to gnaw on your leg.
+
+`k `6"Din, leave the newcomer alone. S&he isn't staying." `4a slow voice that
+ can only be described as an abomination dolefully states.
+
+`k `2You feel yourself floating away... faster and faster.
+ @end
+
+ @if `p07 more -1 then do
+ @begin
+ @show
+`r0`c`% `r1APPARENTLY DEATH ISN'T THE END.`r0
+
+ `2You open your eyes.
+
+`k `2You are lying on a table of solid rock in a marble room. Hundreds of
+ soft voices are murmuring all around you, but you see no one.
+
+`k `%"Send s&him back." `2a voice whispers, this one louder than the others.
+
+`k `2You feel yourself floating away... faster and faster.
+
+`k
+ @end
+
+
+@if map is 155 then do
+ @begin
+@show
+`c `r1`%AWAKENING.`r0
+
+ `0"Can you hear me, `n?" `2a stressed voice shouts.
+
+ `$"Yeah. Christ mom, lemmie up, I'm fine." `2you assure your mother.
+
+ `0"You're alive!! The elders brought your body here yesterday, you must
+ have fainted out there." `2your mother shouts, tears of joy streaming down
+ her wrinkled face.
+
+ `$"Ok, ok - nice little happy reunion and all that, but I gotta hit the
+ road now. Buhbye." `2you tell her. Afterall, you need to make the most of
+ this new lease on life.
+
+ `2You lose `4half`2 the gold you were carrying and `4`p20`2 experience.
+
+`k
+ @end
+@if map is 1045 then do
+ @begin
+@show
+`c `r1`%AWAKENING.`r0
+
+ `0"`2Child, can you hear me, `n`2?`0"`2 a relaxed voice asks.
+
+ `$"Yeah. Hey, who are you?"
+
+ `0"`2I'm the Flagcity Matron. When our monks sensed you fading from life,
+ then asked where you wanted to return to. You responded here, and here
+ you are.`0"
+
+ `$"That's nice. GOTTA GO! No time to pay bills, I've got a quest to
+ complete!!!"
+
+ `2You lost `4half`2 the gold you were carrying and `4`p20`2 experience.
+
+`k
+ @end
+@if map is 1046 then do
+ @begin
+@show
+`c `r1`%AWAKENING.`r0
+
+ `0"`2Child, can you hear me, `n`2?`0"`2 a relaxed voice asks.
+
+ `$"Yeah. Hey, who are you?"
+
+ `0"`2I'm the Sosen Matron. When our monks sensed you fading from life,
+ then asked where you wanted to return to. You responded here, and here
+ you are.`0"
+
+ `$"That's nice. GOTTA GO! No time to pay bills, I've got a quest to
+ complete!!!"
+
+ `2You lost `4half`2 the gold you were carrying and `4`p20`2 experience.
+
+`k
+ @end
+@if map is 1047 then do
+ @begin
+@show
+`c `r1`%AWAKENING.`r0
+
+ `0"`2Child, can you hear me, `n`2?`0"`2 a relaxed voice asks.
+
+ `$"Yeah. Hey, who are you?"
+
+ `0"`2I'm the RockHolm Matron. When our monks sensed you fading from life,
+ then asked where you wanted to return to. You responded here, and here
+ you are.`0"
+
+ `$"That's nice. GOTTA GO! No time to pay bills, I've got a quest to
+ complete!!!"
+
+ `2You lost `4half`2 the gold you were carrying and `4`p20`2 experience.
+
+`k
+ @end
+
+ @loadmap map
+ @drawmap
+ @update
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/scorp.ref b/xtrn/lord2/cnw/scorp.ref
new file mode 100644
index 0000000000000000000000000000000000000000..64cc2563e4936c9d8cf464d320a9e9afa45778e7
--- /dev/null
+++ b/xtrn/lord2/cnw/scorp.ref
@@ -0,0 +1,451 @@
+; Script file SCORP.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:22 2001
+
+@DECLARE oldman 000000374
+@DECLARE drunk 000001654
+@DECLARE hotlady 000003547
+@DECLARE drunklady 000003726
+@DECLARE healers 000003897
+@DECLARE bartender 000005605
+@DECLARE dealer 000007020
+@DECLARE abstart 000007074
+@DECLARE maid 000007509
+@NOCHECK
+; End of .REF index
+
+@#OLDMAN
+@do saybar
+You walk up to the oldman...
+@do moveback
+@do `p70 is 80
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do move 24 9
+@do write
+������������������������Ŀ
+@do move 24 13
+@do write
+��������������������������
+@do move 24 10
+@do write
+� �
+@do move 24 11
+@do write
+� �
+@do move 24 12
+@do write
+� �
+@do move 25 10
+@choice
+Damn you are really old
+Kick The Old man.
+Nevermind
+@if response is 1 then do
+ @begin
+ @do move 16 15
+ @do write
+`0"Damn you i am only 90 something.... That is not old..."`l`l`l
+ @do move 16 16
+ @do write
+`$"That is not old.. if you are a tree.." `2you giggle`l`l`l
+ @do move 16 17
+ @do write
+`0"You better run" `2he yells`l`l`l
+ @do move 16 18
+ @do write
+`$"Why what are you going to do?? hehehe" `2you snicker.`l`l
+ @key
+ @drawmap
+ @update
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `4"Aaawwww!!! Damn you!! `2The old man shouts.
+
+`k `$"Ha Ha!" `2You better run now....
+
+ `k
+ @end
+
+@if response is 3 then do
+ @begin
+ @show
+ `\`\ `$"Nevermind... I forgot." `2you tell the old man.
+
+ `0"I do that often ..... what did you say?" `2asks the old man.
+
+ `k
+ @end
+@end
+
+@#DRUNK
+@do `p70 is 81
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do move 24 9
+@do write
+������������������������Ŀ
+@do move 24 13
+@do write
+��������������������������
+@do move 24 10
+@do write
+� �
+@do move 24 11
+@do write
+� �
+@do move 24 12
+@do write
+� �
+@do move 25 10
+@do `v01 is 1
+@choice
+Let me have some of that
+Are you drunk
+Nevermind
+@if response is 2 then do
+ @begin
+ @do move 23 15
+ @do write
+`4"Nop... I ani't drink..." hontest.`l`l`l`l`l`l
+ @do move 33 17
+ @do write
+`$"Ha Ha!"`l`l`l`l`l`\
+ @key
+ @drawmap
+ @update
+ @end
+
+@if response is 3 then do
+ @begin
+ @do move 23 15
+ @do write
+`$"Nevermind... "`2you tell the drunk man.`l`l`l
+ @do move 25 17
+ @do write
+`0"Wht dif yu say?" `2asks the old man.`l`l`l
+@key
+@drawmap
+@update
+ @end
+@if response is 1 then do
+@begin
+@if `p96 > 15 then do
+ @begin
+ @drawmap
+ @update
+ @do saybar
+`4You are already drunk!
+ @closescript
+ @end
+ @show
+`c
+`\`\ `0"Umm sure... guess. so. Just don't dirk it oll ..."
+
+
+`k `$You chug the bottle...
+
+ `k
+@drawmap
+@update
+@DO SAYBAR
+@do moveback
+@do `p30 random 4 1
+@if `p30 is 1 then do
+@begin
+@do saybar
+`2You drink the stuff and you throw-up... But, get 1 dodge point.
+@do `p96 + 3
+@do `p05 + 1
+@do `p02 / 15
+@end
+
+@if `p30 is 2 then do
+@begin
+@do saybar
+`2You drink the stuff and you get 2 muscle points but loose 1 doge point.
+@do `p96 + 5
+@do `p04 + 2
+@do `p05 - 1
+@end
+
+@if `p30 is 3 then do
+@begin
+@do saybar
+`2You drink the stuff and you get 5 More MAX Hit Point's but loose 1 dodge point.
+@do `p96 + 5
+@do `p03 + 5
+@do `p05 - 1
+@end
+
+@if `p30 is 4 then do
+@begin
+@do saybar
+`2You drink the stuff and you start to look better you get 1 charm!
+@do `p96 + 4
+@do `p08 + 1
+@end
+
+@end
+
+@#HOTLADY
+@do `p70 is 82
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`$Go away... Don't touch me i am carring mace...
+@do moveback
+
+@#DRUNKLADY
+@do `p70 is 83
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`2Hey hot suff.. Want some of this??
+@do moveback
+@end
+
+@#healers
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%The Healers
+
+`2 Devin 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," `2Devin 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," `2Devin laughs.
+
+`k
+@drawmap
+@update
+
+@#bartender
+@do moveback
+@if `p09 < 3 then do
+ @begin
+ @do saybar
+`0Brandon: `4Get the hell outta here I've never heard of you!
+ @closescript
+ @end
+@do `v01 is 1
+@show
+`r0`c `r1 Talking to the brandon `r0
+
+ `0"What do ya want, punk?"
+
+@do write
+`x`x
+@choice
+Get a drink
+Conduct business with the brandon
+Trade in gems
+Leave
+@if responce is 1 then do
+ @begin
+ @show
+
+ I just ran out of drinks.
+
+ @key
+ @end
+@if responce is 2 then do
+ @begin
+ @do `p20 is 10
+ @run getquest in quest.ref
+ @end
+@if response is 3 then do
+@begin
+;3 gems for `i54 Silver potion, 3 gems for `i53 Gold, `i52 red.
+ @if `p19 < 3 then do
+ @begin
+ @show
+`\`\ `0"Hey, you need at least three gems to get a potion!"
+`\`k
+ @do goto bartender
+ @end
+ @do `v01 is 1
+ @show
+`\`\ `0"Okay, what kind a potion you want?"`2
+
+ @do write
+ `x`x
+ @choice
+Silver Potion
+Gold Potion
+Red Potion
+ @if response is 1 then do
+ @begin
+ @do `p19 - 3
+ @do `i54 + 1
+ @show
+`\`\ `0"Allright, there you go"`2
+`\`k
+ @end
+ @if response is 2 then do
+ @begin
+ @do `p19 - 3
+ @do `i53 + 1
+ @show
+`\`\ `0"Allright, there you go"`2
+`\`k
+ @end
+ @if response is 3 then do
+ @begin
+ @do `p19 - 3
+ @do `i52 + 1
+ @show
+`\`\ `0"Allright, there you go"`2
+`\`k
+ @end
+ @end
+@drawmap
+@update
+@end
+
+@#DEALER
+@offmap
+@do moveback
+@do `v01 is 1
+@label abstart
+@show
+`r0`c `4X-Acutioner's Weapon's And Armour
+
+`2 You lots of weapons and things... You walk up to X-Acutioner... He opens
+ His Jacket and shows you his stuff...
+
+@do write
+`x`x
+@choice
+Examine his wares.
+Nevermind
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 9
+ 12
+ 13
+ 14
+ 15
+ 16
+ 34
+ 36
+ 37
+ 49
+ @end
+
+@if responce not 2 then goto abstart
+@drawmap
+@update
+
+@#MAID
+@do `p70 is 84
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`$Hello how may I help you??
+@end
diff --git a/xtrn/lord2/cnw/scvngr.num b/xtrn/lord2/cnw/scvngr.num
new file mode 100644
index 0000000000000000000000000000000000000000..e8e30a1acb5ac4de393a8a3cea7e7fd005e8b61c
--- /dev/null
+++ b/xtrn/lord2/cnw/scvngr.num
@@ -0,0 +1 @@
+57
diff --git a/xtrn/lord2/cnw/scvngr.ref b/xtrn/lord2/cnw/scvngr.ref
new file mode 100644
index 0000000000000000000000000000000000000000..035256703f6118d539e3a060b0d21d5f52eef9a7
--- /dev/null
+++ b/xtrn/lord2/cnw/scvngr.ref
@@ -0,0 +1,1781 @@
+; Script file SCVNGR.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:28 2001
+
+@DECLARE done 000001004
+@DECLARE store 000001015
+@DECLARE pixie 000001265
+@DECLARE pix 000001847
+@DECLARE horn 000001908
+@DECLARE hornwin 000002589
+@DECLARE dragon 000002664
+@DECLARE scale 000003367
+@DECLARE talon1 000003518
+@DECLARE scale1 000003610
+@DECLARE bblade 000003697
+@DECLARE talon 000003776
+@DECLARE bsword 000003927
+@DECLARE found1 000004064
+@DECLARE codhat 000004276
+@DECLARE codknob 000004458
+@DECLARE codhelm 000004651
+@DECLARE regknob 000004850
+@DECLARE vomit 000005373
+@DECLARE cleric 000005498
+@DECLARE sign 000009018
+@DECLARE sign2 000009115
+@DECLARE slip 000009218
+@DECLARE whore 000009272
+@DECLARE trashman 000011220
+@DECLARE thing 000012728
+@DECLARE codax 000016898
+@DECLARE getquest 000017073
+@DECLARE gone 000022406
+@DECLARE finish 000022605
+@DECLARE youlose 000029361
+@NOCHECK
+; End of .REF index
+
+;Scavenger Hunt by Codax and Dragon's Den Ultd v 1.03
+@#done
+
+@#store
+@offmap
+@do moveback
+@show
+`r0`c `r1 A secret Shop `r0`2
+
+ `0"Welcome to my secret shop!"`2 says a small man behind a counter
+ `0"What would you like?"
+
+@buymanager
+1
+77
+81
+82
+86
+92
+99
+@
+@drawmap
+@update
+
+
+@#pixie
+@fight
+;name
+Trixy the wierd Pixie
+;string said when you see him
+`0"Eat my dust looser"
+;power move kill string
+Someone should have told her to get some Silver Potions!
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+throws pixie dust on you|300
+smacks you|100
+flashes you|50
+Right wings ya|100
+NONE|NONE
+;defense
+10
+;gold reward
+2500
+;experience
+1000
+;hit points
+20500
+;if win: ref file|name or NONE
+SCVNGR.REF|PIX
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#PIX
+@do `i39 + 1
+@do quebar
+You find a crushed `+39
+
+@#horn
+@do `p20 random 50 1
+@if `p20 not 1 then do
+@begin
+@run fight in fightne.ref
+@end
+
+@if `p20 is 1 then do
+@begin
+@fight
+;name
+Bash-Noser
+;string said when you see him
+`0A strage Triceritops charges at you
+;power move kill string
+Your horn will make me some money!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Poops on you|100
+Horn rams ya|150
+Stomps ya|200
+Charges|100
+NONE|NONE
+;defense
+900
+;gold reward
+2000
+;experience
+1500
+;hit points
+5000
+;if win: ref file|name or NONE
+SCVNGR.REF|hornwin
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@end
+
+@#hornwin
+@do `i79 + 1
+@do quebar
+You rip it's horn off as a momento!
+
+@#dragon
+@do `p20 random 2 1
+@if `p20 is 1 then `s01 is TALON1
+@if `p20 is 2 then `s01 is SCALE1
+@fight
+;name
+Green Dragon
+;string said when you see him
+`2You are engulfed in shadow as a `0Green`2 Dragon Flies down to kill you!
+;power move kill string
+You stoped him from dragon his butt elsewhere!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Shoots Acid|500
+Tail smakcs you|100
+Breaths on you|50
+Summons Gail|100
+NONE|NONE
+;defense
+1000
+;gold reward
+5000
+;experience
+1000
+;hit points
+9000
+;if win: ref file|name or NONE
+SCVNGR.REF|`s01
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#scale
+@do `p20 random 50 1
+@if `p20 not 1 then do
+@begin
+@run fight in fightnw.ref
+@end
+
+@if `p20 is 1 then do
+@begin
+@run dragon
+@end
+
+@#talon1
+@do `i79 + 1
+@do quebar
+You tear off one of the dragon's talons as a momento
+
+@#scale1
+@do `i79 + 1
+@do quebar
+You rip some scales off the dragon as a momento
+
+@#bblade
+@do `i79 + 1
+@do quebar
+You find a `i79 just lying on the ground
+
+@#talon
+@do `p20 random 50 1
+@if `p20 not 1 then do
+@begin
+@run fight in fightnw.ref
+@end
+
+@if `p20 is 1 then do
+@begin
+@run dragon
+@end
+
+@#bsword
+@do moveback
+@if `i88 > 0 then do
+@begin
+@do goto found1
+@end
+
+@do `p20 random 5 1
+@if `p20 not 1 then do
+@begin
+@label found1
+@do saybar
+You search through the garbage and find`l.`l.`l.`0Nothing
+@end
+
+@if `p20 is 1 then do
+@begin
+@do `i88 + 1
+@do saybar
+You search through the garbage and find`l.`l.`l.`0a `+88
+@end
+
+@#codhat
+@do `p20 random 50 1
+@if `p20 not 1 then do
+@begin
+@run fight in fightne.ref
+@end
+
+@if `p20 is 1 then do
+@begin
+@do `i89 + 1
+@do quebar
+You find a `+89
+@end
+
+@#codknob
+@do moveback
+@if `i90 > 0 then do
+@begin
+@do saybar
+There is nothing there
+@end
+
+@if `i90 is 0 then do
+@begin
+@do `i90 + 1
+@do saybar
+You find a `+90 in the tree
+@end
+
+@#codhelm
+@do `p20 random 50 1
+@if `p20 not 1 then do
+@begin
+@run fightsw.ref
+@end
+
+@if `p20 is 1 then do
+@begin
+@do `i91 + 1
+@do quebar
+You find a `+91 just lying on the ground!
+@end
+
+@#regknob
+@do moveback
+@if `i93 > 0 then do
+@begin
+@do saybar
+I don't want to do business with you!
+@end
+@if `i93 is 0 then do
+@begin
+@show
+`r0`c `r1 For Sale `r0`2
+
+ "Hey Buddy...." a shady figure says "Would you like a `+93?"
+@do `v01 is 1
+@choice
+<money 100 Yes
+No
+Leave
+@
+@if responce not 1 then do
+@begin
+@drawmap
+@update
+@end
+
+@if responce is 1 then do
+@begin
+@do `i93 + 1
+@show
+`\`\`\`\`2
+Ok Here you are....That's 100 dollars!
+`k
+@do money - 100
+@drawmap
+@update
+@end
+@end
+
+@#vomit
+@do `97 + 1
+@do `p08 - 1
+@do saybar
+Slip in a pile of puke! Some goes into your backpack! Charm goes down
+
+@#cleric
+@do moveback
+@if money less 50 then do
+@begin
+@do saybar
+Leave me alone!
+@run done
+@end
+
+@if money more 49 then do
+@begin
+
+@do `p20 random 25 1
+
+@if `p20 is 25 then do
+@begin
+@do `i98 + 1
+@do saybar
+Take this ancient rune...It is not safe for me to have!
+@end
+
+@if `p20 is 1 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: Every Time you talk to me you loose money
+@end
+
+@if `p20 is 2 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: I'm not really a cleric...but a theif
+@end
+
+@if `p20 is 3 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: I have information about where to find some secret items
+@end
+
+@if `p20 is 4 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: Have you been to the place where the path looks like an
+@key
+@do saybar
+arrow is sticking outta persons head?
+@end
+
+@if `p20 is 5 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: Rarity is found in strange places, like oval mountains!
+@end
+
+@if `p20 is 6 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: I hear you can find bits of Dragons near Arisville!
+@end
+
+@if `p20 is 7 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: There is just about a 1 in 200 chance of finding secrets!
+@end
+
+@if `p20 is 8 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: Thingy and me are friends, he steals more tho!
+@end
+
+@if `p20 is 9 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: I hate Codax so much he looses his stuff everywhere!
+@end
+
+@if `p20 is 10 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: If I could find the Dragon's Talon I might be unstopable!
+@end
+
+@if `p20 is 11 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: Dragon's Den BBS....Nope never heard of it.
+@end
+
+@if `p20 is 12 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: Haha I just stole `$$50`% from you!
+@end
+
+@if `p20 is 13 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: I hear there is a war brewing!
+@end
+
+@if `p20 is 14 then do
+@begin
+@do money - 50
+@do quebar
+Dishonest Cleric: I love stoning that crazy bum, Codax!
+@end
+
+@if `p20 is 15 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: Power is my kinda guy!
+@end
+
+@if `p20 is 16 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: What is it with the Dragon and Phoenix War anyway?!?
+@end
+
+@if `p20 is 17 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: SSlKni asdie noasdf ot!!
+@end
+
+@if `p20 is 18 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: Codax is a Doornob!
+@end
+
+@if `p20 is 19 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: Dragons...Phoenix who cares about their silly war!
+@end
+
+@if `p20 is 20 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: I have to go to "The Pond"...maybe south of "The Pond"!
+@end
+
+@if `p20 is 21 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: You are so strong...I'll bet you have `p04 muscle!
+@end
+
+@if `p20 is 22 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: You have `p18 quest-points! You must know the world!
+@end
+
+@if `p20 is 23 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: Hmmm....a level `p09 warrior pretty strong.
+@end
+
+@if `p20 is 24 then do
+@begin
+@do money - 50
+@do saybar
+Dishonest Cleric: I hate everything!
+@end
+
+@end
+
+@#sign
+@do moveback
+@do saybar
+<----Codax's Scavenger Hunter's Paradise ^Castle Coldrake
+
+@#sign2
+@do moveback
+@do saybar
+Rare Items for a limited time Get them while they're `b`4HOT`%!!!
+
+@#slip
+@do saybar
+You slip in a pile of garbage
+
+@#WHORE
+@if sexmale is 0 then do
+ @begin
+@do moveback
+ @do saybar
+Leave me Alone!
+ @closescript
+ @end
+@if `v06 is 1 then do
+ @begin
+@do moveback
+@do saybar
+Leave me alone
+@closescript
+ @end
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2A kinky looking woman pulls your arm. Speak with her? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is N then do
+ @begin
+ @if `07 < 5 then do
+ @begin
+ @do saybar
+You brutally kick her in the face.
+ @closescript
+ @end
+ @do saybar
+You push her away. Poor lost soul.
+ @closescript
+ @end
+@pauseoff
+@displayfile scvngr3.ans nopause
+@show
+`r0`c `r1`% Close encounters with the whore kind `r0
+
+`0 "Looking for a good time, sir? Only `$$25`0." `2she drolls.
+
+ Not a bad price for a QT like her....but with all the trash
+
+ Every where....well....
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Why not? Daddy needs to relax a little bit.
+Not today.
+@if response is 1 then do
+ @begin
+ @if money < 25 then do
+ @begin
+ @show
+`\`\ `2You lack the funds for a girl right now.
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+ @do money - 25
+ @do `p20 is random 3 1
+ @if `p20 is 1 then do
+ @begin
+ @do `p12 is 1
+ @end
+ @do `p34 + 1
+ @show
+`\`\ `2The two of you lie down on some trashy matress.
+
+`k`c `r1 All Aboard `r0
+
+`2 You remove her garments - her skin is soft and beautiful
+ what a wonderful girl for only $25 dollars!
+
+`k It is over quickly. Your reverie is interrupted by the sound of wretching
+ in a corner. She seems sick.
+
+ `4THERE IS A 33 PERCENT CHANCE THAT YOU JUST CAUGHT SOMETHING.
+
+`k
+ @drawmap
+ @update
+ @do saybar
+You put your pants back on.
+ @closescript
+ @end
+
+@show
+`\`\ `$"I do not desire your services right now, woman," `2you inform
+ her.
+
+`k
+@do moveback
+@drawmap
+@update
+
+@#trashman
+@do moveback
+@show
+`r0`c `r1 Talk about a grunge look! `r0`0
+
+ "Howdy there <HACK> what do you want from me <GHACK>?"`$`\`k
+ "I am on a quest! I have come to the understanding you may have`k
+ something I need!"`0`\`k
+ "Why would you come to me?"`$`\`k
+ "Some wierdo told me you collect Stuff"`0`\`k
+ "Well who ever he is, is right!`l`l`l`l I am TRASHMAN!!!!<GHACK>
+ You name it I got it. As a matter 'o <HACK><SNORT> I'll trade you for
+ some rare stuff!"`k
+
+@do `v01 is 1
+@choice
+>`i79 0 A `+79 for a `+88
+>`i89 0 A `+89 for a `+80
+>`i98 0 A `+98 for a `+86
+>`i92 0 A `+92 for a `+81
+>`i80 0 A `+80 for a `+57
+Leave
+@
+
+@if responce is 1 then do
+@begin
+@do `i79 - 1
+@do `i88 + 1
+@show
+`\`\`\`\`\`\`\
+
+ `0"Here you go! One `+79 for a `+88"`k
+@drawmap
+@update
+@end
+
+@if responce is 2 then do
+@begin
+@do `i89 - 1
+@do `i80 + 1
+@show
+`\`\`\`\`\`\`\`0
+ "Here you go! One `+89 for a `+80"`k
+@drawmap
+@update
+@end
+
+@if responce is 3 then do
+@begin
+@do `i98 - 1
+@do `i86 + 1
+@show
+`\`\`\`\`\`\`\`0
+ "Here you go! One `+98 for a `+86"`k
+@drawmap
+@update
+@end
+
+@if responce is 4 then do
+@begin
+@do `i92 - 1
+@do `i81 + 1
+@show
+`\`\`\`\`\`\`\`0
+ "Here you go! One `+92 for a `+81"`k
+@drawmap
+@update
+@end
+
+@if responce is 5 then do
+@begin
+@do `i80 - 1
+@do `i57 + 1
+@Show
+`\`\`\`\`\`\`\`0
+ "Here you go! One `+80 for a `+57"`k
+@drawmap
+@update
+@end
+
+@if responce is 6 then do
+@begin
+@drawmap
+@update
+@end
+
+@#thing
+@do moveback
+
+@if `p31 less 1 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: I take 500 gold from you, when I feel like it. Sometimes I will
+@key
+@do saybar
+give you advice....but only if you have some quest oppurtunities left!
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p31 more 0 then do
+@begin
+@if money < 500 then do
+@begin
+@do saybar
+Thingy spits on your face!
+@run done
+@end
+
+@if money > 499 then do
+@begin
+
+@do money - 500
+@do `p20 random 20 1
+@if `p20 is 1 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: Codax feeds me very well!
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 2 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: You don't look so tough, you only have `p04 muscle!
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 3 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: Howza bouta kiss? After all you do have `p08 charm!
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 4 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: 19 miles west 1 mile north, maybe?
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 5 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: I hear Trashman collect garbage, and has some neat stuff too!
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 6 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: My master like to sing "The Roof, The Roof, The Roof is on fire.."
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 7 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: My master needs to go to the shrine of, um, Battos, maybe?
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 8 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: Did you know my master is Purple?!?
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 9 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: Hear part of the Legend of the Purple Dragon at Dragon's Den Housing
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 10 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: Be careful when falling into pits.
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 11 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: My master told me not to tell you the code, codax_dragon@juno.com
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 12 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: Help me Obi wan `n`% you're my only hope <bleep>! Like my R2?
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 13 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: Watch out for Trashman's Daughter!
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 14 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: Some guy will give you an ancient rune, use it wisely
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 15 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: 110 north and 265 west of Arrisville Entrance slim chance!
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 16 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: Find the store! It has stuff!
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 17 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: I love Doornobs...I need to go back to BoneTown!
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 18 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: I wonder if Codax will have to go to GreenTree Prison
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 19 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: The way to the Secret shop is....12 west 2 north!
+@key
+@drawmap
+@update
+@run done
+@end
+
+@if `p20 is 20 then do
+@begin
+@displayfile scvngr2.ans nopause
+@do saybar
+Thingy: Dragon's Talon, nope havn't seen it near Dragon Mountains.
+@key
+@drawmap
+@update
+@run done
+@end
+@end
+@end
+
+@#codax
+@do moveback
+@if scvngr.&playernum exists false then do
+@begin
+@run getquest
+@end
+
+@if scvngr.&playernum exists true then do
+@begin
+@run finish
+@end
+
+
+@#getquest
+@if scvngr.num exists false then do
+@begin
+@writefile scvngr.num
+57
+@
+@end
+
+@if scvngr.num exists true then do
+@begin
+@readfile scvngr.num
+`p20
+@
+@displayfile scvngr1.ans NOPAUSE
+@do saybar
+Codax: Hello traveler! I am Codax. I seem to have lost something.....
+@do write
+`r1
+@clearblock 22 24
+@do move 3 22
+@do write
+`r1 `%Will you help me find it?`r0`2 [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is N then do
+@begin
+@clearblock 22 22
+@do saybar
+Codax: Fine! Then go!!
+@key
+@do goto gone
+@end
+
+@if `s01 is Y then do
+@begin
+@do write
+`r1
+@clearblock 22 22
+@do move 3 22
+@do write
+`r1 `%What kind of Reward do you want?`r0`2 [`0M`2oney, m`0U`2scle, `0D`2odge, `0E`2xp] :`x
+@do readspecial `s01 MUDE
+
+@if `s01 is M then `p24 is 0
+@if `s01 is U then `p24 is 1
+@if `s01 is D then `p24 is 2
+@if `s01 is E then `p24 is 3
+
+@do `p28 random 10 1
+@do `p30 is `p01
+@do `p30 / `p18 ;money
+@do `p30 * 10
+@do `p30 * `p28
+
+@do `p28 random 15 5 ;muscle dodge
+
+@do `p27 random `p18 `p09 ;experience
+@do `p27 * 10
+@do `p21 random `p20 1 ;item
+
+@do `p22 random 5 1 ;days
+
+@do `p29 is &time
+
+@do `p29 + `p22 ;date
+
+@if `p24 is 0 then `p25 is `p30
+@if `p24 is 1 then `p25 is `p28
+@if `p24 is 2 then `p25 is `p28
+@if `p24 is 3 then `p25 is `p27
+
+;item chooser routine
+@if `p21 is 1 then `s01 is `+01
+@if `p21 is 2 then `s01 is `+02
+@if `p21 is 3 then `s01 is `+03
+@if `p21 is 4 then `s01 is `+04
+@if `p21 is 5 then `s01 is `+05
+@if `p21 is 6 then `s01 is `+06
+@if `p21 is 7 then `s01 is `+07
+@if `p21 is 8 then `s01 is `+08
+@if `p21 is 9 then `s01 is `+09
+@if `p21 is 10 then `s01 is `+10
+@if `p21 is 11 then `s01 is `+11
+@if `p21 is 12 then `s01 is `+12
+@if `p21 is 13 then `s01 is `+13
+@if `p21 is 14 then `s01 is `+14
+@if `p21 is 15 then `s01 is `+15
+@if `p21 is 16 then `s01 is `+16
+@if `p21 is 17 then `s01 is `+17
+@if `p21 is 18 then `s01 is `+18
+@if `p21 is 19 then `s01 is `+19
+@if `p21 is 20 then `s01 is `+20
+@if `p21 is 21 then `s01 is `+21
+@if `p21 is 22 then `s01 is `+22
+@if `p21 is 23 then `s01 is `+23
+@if `p21 is 24 then `s01 is `+24
+@if `p21 is 25 then `s01 is `+25
+@if `p21 is 26 then `s01 is `+26
+@if `p21 is 27 then `s01 is `+27
+@if `p21 is 28 then `s01 is `+28
+@if `p21 is 29 then `s01 is `+29
+@if `p21 is 30 then `s01 is `+30
+@if `p21 is 31 then `s01 is `+31
+@if `p21 is 32 then `s01 is `+32
+@if `p21 is 33 then `s01 is `+33
+@if `p21 is 34 then `s01 is `+34
+@if `p21 is 35 then `s01 is `+35
+@if `p21 is 36 then `s01 is `+36
+@if `p21 is 37 then `s01 is `+37
+@if `p21 is 38 then `s01 is `+38
+@if `p21 is 39 then `s01 is `+39
+@if `p21 is 40 then `s01 is `+40
+@if `p21 is 41 then `s01 is `+41
+@if `p21 is 42 then `s01 is `+42
+@if `p21 is 43 then `s01 is `+43
+@if `p21 is 44 then `s01 is `+44
+@if `p21 is 45 then `s01 is `+45
+@if `p21 is 46 then `s01 is `+46
+@if `p21 is 47 then `s01 is `+47
+@if `p21 is 48 then `s01 is `+48
+@if `p21 is 49 then `s01 is `+49
+@if `p21 is 50 then `s01 is `+50
+@if `p21 is 51 then `s01 is `+51
+@if `p21 is 52 then `s01 is `+52
+@if `p21 is 53 then `s01 is `+53
+@if `p21 is 54 then `s01 is `+54
+@if `p21 is 55 then `s01 is `+55
+@if `p21 is 56 then `s01 is `+56
+@if `p21 is 57 then `s01 is `+57
+@if `p21 is 58 then `s01 is `+58
+@if `p21 is 59 then `s01 is `+59
+@if `p21 is 60 then `s01 is `+60
+@if `p21 is 61 then `s01 is `+61
+@if `p21 is 62 then `s01 is `+62
+@if `p21 is 63 then `s01 is `+63
+@if `p21 is 64 then `s01 is `+64
+@if `p21 is 65 then `s01 is `+65
+@if `p21 is 66 then `s01 is `+66
+@if `p21 is 67 then `s01 is `+67
+@if `p21 is 68 then `s01 is `+68
+@if `p21 is 69 then `s01 is `+69
+@if `p21 is 70 then `s01 is `+70
+@if `p21 is 71 then `s01 is `+71
+@if `p21 is 72 then `s01 is `+72
+@if `p21 is 73 then `s01 is `+73
+@if `p21 is 74 then `s01 is `+74
+@if `p21 is 75 then `s01 is `+75
+@if `p21 is 76 then `s01 is `+76
+@if `p21 is 77 then `s01 is `+77
+@if `p21 is 78 then `s01 is `+78
+@if `p21 is 79 then `s01 is `+79
+@if `p21 is 80 then `s01 is `+80
+@if `p21 is 81 then `s01 is `+81
+@if `p21 is 82 then `s01 is `+82
+@if `p21 is 83 then `s01 is `+83
+@if `p21 is 84 then `s01 is `+84
+@if `p21 is 85 then `s01 is `+85
+@if `p21 is 86 then `s01 is `+86
+@if `p21 is 87 then `s01 is `+87
+@if `p21 is 88 then `s01 is `+88
+@if `p21 is 89 then `s01 is `+89
+@if `p21 is 90 then `s01 is `+90
+@if `p21 is 91 then `s01 is `+91
+@if `p21 is 92 then `s01 is `+92
+@if `p21 is 93 then `s01 is `+93
+@if `p21 is 94 then `s01 is `+94
+@if `p21 is 95 then `s01 is `+95
+@if `p21 is 96 then `s01 is `+96
+@if `p21 is 97 then `s01 is `+97
+@if `p21 is 98 then `s01 is `+98
+@if `p21 is 99 then `s01 is `+99
+
+@if `p24 is 0 then `s02 is `$Gold
+@if `p24 is 1 then `s02 is `0Muscle
+@if `p24 is 2 then `s02 is `%Dodge
+@if `p24 is 3 then `s02 is `0Experience
+
+@writefile scvngr.&playernum
+`p29
+`p21
+`p24
+`p25
+`s01
+`s02
+@
+
+@clearblock 22 22
+@do saybar
+Codax: Ok now that that is settled......
+@key
+@do saybar
+You will need to find me my `0`s01`% in `0`p22`% days.
+@key
+@do saybar
+Codax: Your reward will be `0`p25 `s02`% if you bring it on time
+@key
+@do saybar
+but if you are late, I will take away `0`p25 `s02`%!
+@key
+@drawmap
+@update
+@do quebar
+Codax: And one more thing, don't touch my pet, Thingy!
+@end
+@end
+
+@#gone
+@drawmap
+@update
+
+;Scvngr.&playernum
+;final date for quest
+;item number
+;type of reward (0=Money, 1=Muscle, 2=Dodge, 3=Experience)
+;amount of reward
+;item string
+;reward string
+
+@#finish
+@do `p30 is 0
+@readfile scvngr.&playernum
+`p20
+`p21
+`p22
+`p23
+`s01
+`s02
+@if `p21 is 1 then do
+@begin
+@if `i01 > 0 then `p30 is 1
+@end
+@if `p21 is 2 then do
+@begin
+@if `i02 > 0 then `p30 is 1
+@end
+@if `p21 is 3 then do
+@begin
+@if `i03 > 0 then `p30 is 1
+@end
+@if `p21 is 4 then do
+@begin
+@if `i04 > 0 then `p30 is 1
+@end
+@if `p21 is 5 then do
+@begin
+@if `i05 > 0 then `p30 is 1
+@end
+@if `p21 is 6 then do
+@begin
+@if `i06 > 0 then `p30 is 1
+@end
+@if `p21 is 7 then do
+@begin
+@if `i07 > 0 then `p30 is 1
+@end
+@if `p21 is 8 then do
+@begin
+@if `i08 > 0 then `p30 is 1
+@end
+@if `p21 is 9 then do
+@begin
+@if `i09 > 0 then `p30 is 1
+@end
+@if `p21 is 10 then do
+@begin
+@if `i10 > 0 then `p30 is 1
+@end
+@if `p21 is 11 then do
+@begin
+@if `i11 > 0 then `p30 is 1
+@end
+@if `p21 is 12 then do
+@begin
+@if `i12 > 0 then `p30 is 1
+@end
+@if `p21 is 13 then do
+@begin
+@if `i13 > 0 then `p30 is 1
+@end
+@if `p21 is 14 then do
+@begin
+@if `i14 > 0 then `p30 is 1
+@end
+@if `p21 is 15 then do
+@begin
+@if `i15 > 0 then `p30 is 1
+@end
+@if `p21 is 16 then do
+@begin
+@if `i16 > 0 then `p30 is 1
+@end
+@if `p21 is 17 then do
+@begin
+@if `i17 > 0 then `p30 is 1
+@end
+@if `p21 is 18 then do
+@begin
+@if `i18 > 0 then `p30 is 1
+@end
+@if `p21 is 19 then do
+@begin
+@if `i19 > 0 then `p30 is 1
+@end
+@if `p21 is 20 then do
+@begin
+@if `i20 > 0 then `p30 is 1
+@end
+@if `p21 is 21 then do
+@begin
+@if `i21 > 0 then `p30 is 1
+@end
+@if `p21 is 22 then do
+@begin
+@if `i22 > 0 then `p30 is 1
+@end
+@if `p21 is 23 then do
+@begin
+@if `i23 > 0 then `p30 is 1
+@end
+@if `p21 is 24 then do
+@begin
+@if `i24 > 0 then `p30 is 1
+@end
+@if `p21 is 25 then do
+@begin
+@if `i25 > 0 then `p30 is 1
+@end
+@if `p21 is 26 then do
+@begin
+@if `i26 > 0 then `p30 is 1
+@end
+@if `p21 is 27 then do
+@begin
+@if `i27 > 0 then `p30 is 1
+@end
+@if `p21 is 28 then do
+@begin
+@if `i28 > 0 then `p30 is 1
+@end
+@if `p21 is 29 then do
+@begin
+@if `i29 > 0 then `p30 is 1
+@end
+@if `p21 is 30 then do
+@begin
+@if `i30 > 0 then `p30 is 1
+@end
+@if `p21 is 31 then do
+@begin
+@if `i31 > 0 then `p30 is 1
+@end
+@if `p21 is 32 then do
+@begin
+@if `i32 > 0 then `p30 is 1
+@end
+@if `p21 is 33 then do
+@begin
+@if `i33 > 0 then `p30 is 1
+@end
+@if `p21 is 34 then do
+@begin
+@if `i34 > 0 then `p30 is 1
+@end
+@if `p21 is 35 then do
+@begin
+@if `i35 > 0 then `p30 is 1
+@end
+@if `p21 is 36 then do
+@begin
+@if `i36 > 0 then `p30 is 1
+@end
+@if `p21 is 37 then do
+@begin
+@if `i37 > 0 then `p30 is 1
+@end
+@if `p21 is 38 then do
+@begin
+@if `i38 > 0 then `p30 is 1
+@end
+@if `p21 is 39 then do
+@begin
+@if `i39 > 0 then `p30 is 1
+@end
+@if `p21 is 40 then do
+@begin
+@if `i40 > 0 then `p30 is 1
+@end
+@if `p21 is 41 then do
+@begin
+@if `i41 > 0 then `p30 is 1
+@end
+@if `p21 is 42 then do
+@begin
+@if `i42 > 0 then `p30 is 1
+@end
+@if `p21 is 43 then do
+@begin
+@if `i43 > 0 then `p30 is 1
+@end
+@if `p21 is 44 then do
+@begin
+@if `i44 > 0 then `p30 is 1
+@end
+@if `p21 is 45 then do
+@begin
+@if `i45 > 0 then `p30 is 1
+@end
+@if `p21 is 46 then do
+@begin
+@if `i46 > 0 then `p30 is 1
+@end
+@if `p21 is 47 then do
+@begin
+@if `i47 > 0 then `p30 is 1
+@end
+@if `p21 is 48 then do
+@begin
+@if `i48 > 0 then `p30 is 1
+@end
+@if `p21 is 49 then do
+@begin
+@if `i49 > 0 then `p30 is 1
+@end
+@if `p21 is 50 then do
+@begin
+@if `i50 > 0 then `p30 is 1
+@end
+@if `p21 is 51 then do
+@begin
+@if `i51 > 0 then `p30 is 1
+@end
+@if `p21 is 52 then do
+@begin
+@if `i52 > 0 then `p30 is 1
+@end
+@if `p21 is 53 then do
+@begin
+@if `i53 > 0 then `p30 is 1
+@end
+@if `p21 is 54 then do
+@begin
+@if `i54 > 0 then `p30 is 1
+@end
+@if `p21 is 55 then do
+@begin
+@if `i55 > 0 then `p30 is 1
+@end
+@if `p21 is 56 then do
+@begin
+@if `i56 > 0 then `p30 is 1
+@end
+@if `p21 is 57 then do
+@begin
+@if `i57 > 0 then `p30 is 1
+@end
+@if `p21 is 58 then do
+@begin
+@if `i58 > 0 then `p30 is 1
+@end
+@if `p21 is 59 then do
+@begin
+@if `i59 > 0 then `p30 is 1
+@end
+@if `p21 is 60 then do
+@begin
+@if `i60 > 0 then `p30 is 1
+@end
+@if `p21 is 61 then do
+@begin
+@if `i61 > 0 then `p30 is 1
+@end
+@if `p21 is 62 then do
+@begin
+@if `i62 > 0 then `p30 is 1
+@end
+@if `p21 is 63 then do
+@begin
+@if `i63 > 0 then `p30 is 1
+@end
+@if `p21 is 64 then do
+@begin
+@if `i64 > 0 then `p30 is 1
+@end
+@if `p21 is 65 then do
+@begin
+@if `i65 > 0 then `p30 is 1
+@end
+@if `p21 is 66 then do
+@begin
+@if `i66 > 0 then `p30 is 1
+@end
+@if `p21 is 67 then do
+@begin
+@if `i67 > 0 then `p30 is 1
+@end
+@if `p21 is 68 then do
+@begin
+@if `i68 > 0 then `p30 is 1
+@end
+@if `p21 is 69 then do
+@begin
+@if `i69 > 0 then `p30 is 1
+@end
+@if `p21 is 70 then do
+@begin
+@if `i70 > 0 then `p30 is 1
+@end
+@if `p21 is 71 then do
+@begin
+@if `i71 > 0 then `p30 is 1
+@end
+@if `p21 is 72 then do
+@begin
+@if `i72 > 0 then `p30 is 1
+@end
+@if `p21 is 73 then do
+@begin
+@if `i73 > 0 then `p30 is 1
+@end
+@if `p21 is 74 then do
+@begin
+@if `i74 > 0 then `p30 is 1
+@end
+@if `p21 is 75 then do
+@begin
+@if `i75 > 0 then `p30 is 1
+@end
+@if `p21 is 76 then do
+@begin
+@if `i76 > 0 then `p30 is 1
+@end
+@if `p21 is 77 then do
+@begin
+@if `i77 > 0 then `p30 is 1
+@end
+@if `p21 is 78 then do
+@begin
+@if `i78 > 0 then `p30 is 1
+@end
+@if `p21 is 79 then do
+@begin
+@if `i79 > 0 then `p30 is 1
+@end
+@if `p21 is 80 then do
+@begin
+@if `i80 > 0 then `p30 is 1
+@end
+@if `p21 is 81 then do
+@begin
+@if `i81 > 0 then `p30 is 1
+@end
+@if `p21 is 82 then do
+@begin
+@if `i82 > 0 then `p30 is 1
+@end
+@if `p21 is 83 then do
+@begin
+@if `i83 > 0 then `p30 is 1
+@end
+@if `p21 is 84 then do
+@begin
+@if `i84 > 0 then `p30 is 1
+@end
+@if `p21 is 85 then do
+@begin
+@if `i85 > 0 then `p30 is 1
+@end
+@if `p21 is 86 then do
+@begin
+@if `i86 > 0 then `p30 is 1
+@end
+@if `p21 is 87 then do
+@begin
+@if `i87 > 0 then `p30 is 1
+@end
+@if `p21 is 88 then do
+@begin
+@if `i88 > 0 then `p30 is 1
+@end
+@if `p21 is 89 then do
+@begin
+@if `i89 > 0 then `p30 is 1
+@end
+@if `p21 is 90 then do
+@begin
+@if `i90 > 0 then `p30 is 1
+@end
+@if `p21 is 91 then do
+@begin
+@if `i91 > 0 then `p30 is 1
+@end
+@if `p21 is 92 then do
+@begin
+@if `i92 > 0 then `p30 is 1
+@end
+@if `p21 is 93 then do
+@begin
+@if `i93 > 0 then `p30 is 1
+@end
+@if `p21 is 94 then do
+@begin
+@if `i94 > 0 then `p30 is 1
+@end
+@if `p21 is 95 then do
+@begin
+@if `i95 > 0 then `p30 is 1
+@end
+@if `p21 is 96 then do
+@begin
+@if `i96 > 0 then `p30 is 1
+@end
+@if `p21 is 97 then do
+@begin
+@if `i97 > 0 then `p30 is 1
+@end
+@if `p21 is 98 then do
+@begin
+@if `i98 > 0 then `p30 is 1
+@end
+@if `p21 is 99 then do
+@begin
+@if `i99 > 0 then `p30 is 1
+@end
+
+@if `p20 < &time then do
+@begin
+@label youlose
+@if `p22 is 0 then money - `p23
+@if `p22 is 1 then `p04 - `p23
+@if `p22 is 2 then `p05 - `p23
+@if `p22 is 3 then `p01 - `p23
+@do `p02 is 1
+@do delete scvngr.&playernum
+@displayfile scvngr1.ans NOPAUSE
+@clearblock 21 24
+@do saybar
+Codax: WHAT HAPPENED? YOU DIDN'T BRING ME WHAT YOU PROMISED!
+@do move 3 22
+@do write
+`r1`%Codax smacks you with his huge Talons!`k
+@drawmap
+@update
+@do quebar
+You feel weak and you lost `0`p23 `s02`%!
+@run done
+@end
+
+
+@if `p20 > &time then do
+@begin
+@do `v01 is 1
+@displayfile scvngr1.ans NOPAUSE
+@clearblock 21 24
+@do move 50 18
+@do write
+`%Codax: Do you have my
+@do move 58 19
+@do write
+`s01
+@do move 3 21
+@choice
+=`p30 1 Yeah
+Not yet, but it's coming
+Sorry, howz about letting me outta the bet?
+@
+@if responce is 2 then do
+@begin
+@run gone
+@end
+
+@if responce is 3 then do
+@begin
+@do goto youlose
+@end
+
+@if responce is 1 then do
+@begin
+@if `p22 is 0 then money + `p23
+@if `p22 is 1 then `p04 + `p23
+@if `p22 is 2 then `p05 + `p23
+@if `p22 is 3 then `p01 + `p23
+
+@if `p21 is 1 then `i01 - 1
+@if `p21 is 2 then `i02 - 1
+@if `p21 is 3 then `i03 - 1
+@if `p21 is 4 then `i04 - 1
+@if `p21 is 5 then `i05 - 1
+@if `p21 is 6 then `i06 - 1
+@if `p21 is 7 then `i07 - 1
+@if `p21 is 8 then `i08 - 1
+@if `p21 is 9 then `i09 - 1
+@if `p21 is 10 then `i10 - 1
+@if `p21 is 11 then `i11 - 1
+@if `p21 is 12 then `i12 - 1
+@if `p21 is 13 then `i13 - 1
+@if `p21 is 14 then `i14 - 1
+@if `p21 is 15 then `i15 - 1
+@if `p21 is 16 then `i16 - 1
+@if `p21 is 17 then `i17 - 1
+@if `p21 is 18 then `i18 - 1
+@if `p21 is 19 then `i19 - 1
+@if `p21 is 20 then `i20 - 1
+@if `p21 is 21 then `i21 - 1
+@if `p21 is 22 then `i22 - 1
+@if `p21 is 23 then `i23 - 1
+@if `p21 is 24 then `i24 - 1
+@if `p21 is 25 then `i25 - 1
+@if `p21 is 26 then `i26 - 1
+@if `p21 is 27 then `i27 - 1
+@if `p21 is 28 then `i28 - 1
+@if `p21 is 29 then `i29 - 1
+@if `p21 is 30 then `i30 - 1
+@if `p21 is 31 then `i31 - 1
+@if `p21 is 32 then `i32 - 1
+@if `p21 is 33 then `i33 - 1
+@if `p21 is 34 then `i34 - 1
+@if `p21 is 35 then `i35 - 1
+@if `p21 is 36 then `i36 - 1
+@if `p21 is 37 then `i37 - 1
+@if `p21 is 38 then `i38 - 1
+@if `p21 is 39 then `i39 - 1
+@if `p21 is 40 then `i40 - 1
+@if `p21 is 41 then `i41 - 1
+@if `p21 is 42 then `i42 - 1
+@if `p21 is 43 then `i43 - 1
+@if `p21 is 44 then `i44 - 1
+@if `p21 is 45 then `i45 - 1
+@if `p21 is 46 then `i46 - 1
+@if `p21 is 47 then `i47 - 1
+@if `p21 is 48 then `i48 - 1
+@if `p21 is 49 then `i49 - 1
+@if `p21 is 50 then `i50 - 1
+@if `p21 is 51 then `i51 - 1
+@if `p21 is 52 then `i52 - 1
+@if `p21 is 53 then `i53 - 1
+@if `p21 is 54 then `i54 - 1
+@if `p21 is 55 then `i55 - 1
+@if `p21 is 56 then `i56 - 1
+@if `p21 is 57 then `i57 - 1
+@if `p21 is 58 then `i58 - 1
+@if `p21 is 59 then `i59 - 1
+@if `p21 is 60 then `i60 - 1
+@if `p21 is 61 then `i61 - 1
+@if `p21 is 62 then `i62 - 1
+@if `p21 is 63 then `i63 - 1
+@if `p21 is 64 then `i64 - 1
+@if `p21 is 65 then `i65 - 1
+@if `p21 is 66 then `i66 - 1
+@if `p21 is 67 then `i67 - 1
+@if `p21 is 68 then `i68 - 1
+@if `p21 is 69 then `i69 - 1
+@if `p21 is 70 then `i70 - 1
+@if `p21 is 71 then `i71 - 1
+@if `p21 is 72 then `i72 - 1
+@if `p21 is 73 then `i73 - 1
+@if `p21 is 74 then `i74 - 1
+@if `p21 is 75 then `i75 - 1
+@if `p21 is 76 then `i76 - 1
+@if `p21 is 77 then `i76 - 1
+@if `p21 is 78 then `i78 - 1
+@if `p21 is 79 then `i79 - 1
+@if `p21 is 80 then `i80 - 1
+@if `p21 is 81 then `i81 - 1
+@if `p21 is 82 then `i82 - 1
+@if `p21 is 83 then `i83 - 1
+@if `p21 is 84 then `i84 - 1
+@if `p21 is 85 then `i85 - 1
+@if `p21 is 86 then `i86 - 1
+@if `p21 is 87 then `i87 - 1
+@if `p21 is 88 then `i88 - 1
+@if `p21 is 89 then `i89 - 1
+@if `p21 is 90 then `i90 - 1
+@if `p21 is 91 then `i91 - 1
+@if `p21 is 92 then `i92 - 1
+@if `p21 is 93 then `i93 - 1
+@if `p21 is 94 then `i94 - 1
+@if `p21 is 95 then `i95 - 1
+@if `p21 is 96 then `i96 - 1
+@if `p21 is 97 then `i97 - 1
+@if `p21 is 98 then `i98 - 1
+@if `p21 is 99 then `i99 - 1
+@do delete scvngr.&playernum
+@clearblock 21 24
+@do saybar
+Codax: You brought my `s01`%!!!!! Thank you so much!!!
+@key
+@do saybar
+Codax: Now for your reward...that would be `0`p23 `s02!`% Here ya go!
+@key
+@drawmap
+@update
+@do quebar
+Codax: Thanx again!
+@end
+@end
diff --git a/xtrn/lord2/cnw/scvngr1.ans b/xtrn/lord2/cnw/scvngr1.ans
new file mode 100644
index 0000000000000000000000000000000000000000..3eb8dc3c02f196bd099e87bed910e3dbe9f97117
--- /dev/null
+++ b/xtrn/lord2/cnw/scvngr1.ans
@@ -0,0 +1,25 @@
+[?7h[40m[2J[40m
+[0;1m[11C[0;35m�[10C�[18C�[11C�
+[12C��� oo ������������������ [30mo[35moo[5C��
+[14C� [30m������[35moooooooo[30m����[35mooooooooo[30m������[35m��
+[14C�� oooo ����� o ����� oooo�� � � � � � �
+[15C��ooo � � o � � oooo���������������������������������
+[16C��oo � ���� o � ���� ooo��>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+[17C�� o � ��� o o � ��� oo��>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+[19C��o ������o o������ ooo�>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+[19C�ooooooooo[5Coooooooooo�>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+[18C��oooooooooooooooooooooooo��>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
+[17C��oooo������������������oooo���������������������>>>>>>>>>>>>>
+[16C��oooooooooooooooooooooooooooo��[17C��������������
+[15C��oooooooooooooooooooooooooooooo��
+[15C�� ooooooooooooooooooooooooooooo��
+[16C��ooooooooo��oooooo��ooooooooo��
+[17C��oooooooo�ooooooo�ooooooooo��
+[18C����������������������������
+[20C[5m��[31m���������������������[35m��
+[21C��[31m�������������������[35m��
+[21C�����������������������
+
+
+
+[0m[255D
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/scvngr2.ans b/xtrn/lord2/cnw/scvngr2.ans
new file mode 100644
index 0000000000000000000000000000000000000000..6be33565a294781a6354cb33f1fcfcad9720312b
--- /dev/null
+++ b/xtrn/lord2/cnw/scvngr2.ans
@@ -0,0 +1,3 @@
+[?7h[40m[2J[0;32;42m [37m�����������������[2;1H �����������������[3;1H �����������������[4;1H �����������������[5;1H �����������������[6;1H �����������������[7;1H �����������������[8;1H �����������������[9;1H �����������������[10;1H �����������������[11;1H �����������������[12;1H [1m����������� [0;42m�����[30m�������[37m�����[13;1H [1;47m�[42m ���[47m�[40m����[47m���[42m�� [47m�[42m [0;42m�����[30m�������[37m�����[14;1H [1;47m�����[40m�����[47m�����[42m���[47m�����[42m [0;42m�����[30m�������[37m�����[15;1H [1;47m�[42m ���[47m��[0;5;30;47m���[0;1;47m��[42m��� [47m�[42m [0;42m�����������������[16;1H [1m���[47m�������[42m��� [0;42m�����������������[17;1H [1m���[47m�[42m���[47m�[42m��� [0;42m�����������������[18;1H [1;47m�[42m [30;40m�[42m)-o-o-o-o-o-o-o-o-o-o-o-([0;42m�����������������[19;1H [1;47m���[42m [47m���[42m [0;42m�����������������[20;1H [21;1H [22;1H [23;1H[40m
+
+[0m[255D
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/scvngr3.ans b/xtrn/lord2/cnw/scvngr3.ans
new file mode 100644
index 0000000000000000000000000000000000000000..929fffbeb1c618c3fd259966833b4f77f16accad
--- /dev/null
+++ b/xtrn/lord2/cnw/scvngr3.ans
@@ -0,0 +1,25 @@
+[?7h[255D[48C[0;1;36m�[46m�[1C[40m��[41m�����[40m�[46m���[40m���[46m��[0;36m�
+[39C[1;37m��������[31m���[36m��[41m [31m�[36m�[31m����[36m�[0;36m��[1;31m�[41m�[36m�[46m��[0;36m�
+[38C[1;37m������[47m���[31m�[41m��[0;31m�[1;36m�[31;41m�[47m�[44m�[41m۲[47m�[44m�[41m��[40m�[41m��[36;46m���[40m
+[5C[37mThe Young Girl Smiles[12C�����[47m���[0m�[31m�� �[1;41m���߲��[37m�[40m�[47m��[36;46m���[40m
+[40C[37m����[47m۲�[40m� [36m�[41m�[31m����[0;31m�[1;37m��[47m��[0m�[1;36;46m��[0;36m�
+[9C[1;37mInvitingly.....[18C�����������[36;46m�[31;40m�[41m��[0;31m��[1;37m�[47m���[0m�[1;36m�[46m�[40m
+[44C[37m��[47m��[40m�[47m�[40m��[31;47m�[41m�۲��[0;31m�[1;37;47m۲��[0m� [36m�
+[13C[1;37mYou are almsost sure[14C[0m�[1;47m���[40m�[31;47m�[41m۲��[37m�[40m�[47m���[0m���
+[47C[1m������������[47m۲�[0m���
+[19C[1mshe wants something.... ����������[47m������[0m���
+[47C[1m�������[47m�������[0m���
+[49C[1m������[47m��� [0m���
+[50C[1m������[47m���[0m���
+[50C[1m��������[47m���[0m��
+[50C[1m�����[43m���������[0;33m�
+[49C[1;37m�[43m�������������[0;33m�[31m�
+[49C[1;37;43m��[0;33;47m������[1;37m����[0;33;41m�� [31;40m��
+[49C[1;37;43m�[31m�[37;41m�[40m��������[31;41m۲�� [0;31m���
+[49C[1;37;43m�[31;41m��[37m�[40m������[41m�[31m�۲�� [0;31m��
+[49C[1;37;43m�[31;41m���[37m�[40m�����[31;41m��۲�� [0;31m���
+
+
+
+
+[0m[255D
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/sea01.ans b/xtrn/lord2/cnw/sea01.ans
new file mode 100644
index 0000000000000000000000000000000000000000..f3e95e917f910225a907f9eabcb3ed086e7f1d97
--- /dev/null
+++ b/xtrn/lord2/cnw/sea01.ans
@@ -0,0 +1,15 @@
+[?7h[255D[40m
+[0;1m[34C[33m|
+[37mThe Children (Young and[9C[33m--[5m [D[0;1;33m--
+ [37mOld) are around the tree[9C[42m [40m
+ Singing.[22C[42m [40m
+[32C[42m [33m [40m
+[37mThe Tabby Cat is asleep[8C[42m [32m [D [40m
+ [37mby the fireplace.[9C[42m [33m [40m
+[29C[42m [31m [D [32m [D [31m [D [40m
+[37mFarmer Joe is giving[8C[42m [40m
+ all of his apples[8C[42m [32m [D [31m [D [33m [40m
+[5C[37mto the childern[6C[42m [8C[34;40m [D[20C [D
+[25C[42m [31m� [33m [32m [D [31m [D [9C[37;40mJoy to the World
+[24C[42m [33m [9C[37;40m\ The Dragon is Dead. [34m [A[79C[25C[33m [D [34m�� [43m [4C[33;40m [D [16C[37m\
+[25C[31m�� [34m��[33m [D [43m [1C[34;40m� [32m�� �[11C[35m [D[34m [D[0m [D[1;33m [D[32m [D[35m [D[0m [D[1;34m [D[0m [D[1;33m [D[35m [D[32m [D[34m [D [0m [D[1;34m [D[32m [D[0m [D[1;34m [D[35m [D[0m
diff --git a/xtrn/lord2/cnw/seasons.ref b/xtrn/lord2/cnw/seasons.ref
new file mode 100644
index 0000000000000000000000000000000000000000..907fd326cd3a18a3917b7b329fb95182073c13a3
--- /dev/null
+++ b/xtrn/lord2/cnw/seasons.ref
@@ -0,0 +1,390 @@
+; Script file SEASONS.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:38 2001
+
+@DECLARE reset 000000547
+@DECLARE sign 000000578
+@DECLARE rabbit 000000661
+@DECLARE box 000003555
+@DECLARE donation 000004139
+@DECLARE orphan 000004773
+@DECLARE empty 000007390
+@DECLARE nopres 000007892
+@DECLARE green 000008327
+@DECLARE blue 000008406
+@DECLARE red 000008483
+@DECLARE white 000008561
+@DECLARE snack 000008641
+@DECLARE craft 000008720
+@DECLARE thankyou 000009000
+@DECLARE leaving 000009223
+@NOCHECK
+; End of .REF index
+
+@#reset
+@do `v40 = 0
+@end
+
+@#sign
+@do moveback
+@do saybar
+`0The Children's Shelter. Please come in.
+
+@#Rabbit
+@DO moveback
+@SHOW
+`r0 `c
+`%Rabbit: `0Merry Xmas to all! Welcome to the Children's Shelter, `N.
+Please remember to help out the needy at this time of year. Many times we
+forget how lucky we are.
+`k
+`2 Have you ever given to a charity before?
+@do `V01 is 1
+@Choice
+Yes
+No
+
+@if response is 1 then do
+@begin
+@pauseoff
+@clear screen
+@SHOW
+`r0 [255D[1C[0;1;36m*%\*/*%$%*\*/*%$%*\*/*%$%*\*/*%$%*\[33m^[36m/*%$%*\*/*%$%*\*/*%$%*\*/*%$%*\*/*%*
+ *[6C[31mO[7CO[7CO[7CO [33m.|. [31mO[7CO[7CO[7CO[7C[36m*
+ *[33C[33m-[37m*[33m-[34C[36m*
+ * [37mAthbhliain Faoi Mhaise![7C[33m'|'[11C_ [37mHappy New Year! [36m*
+ * [37mFrohliche Weihnachten![8C[32m*[33m:[32m*[10C[33m([37m"[33mD[5C[37mChag Sameach! [36m*
+ * [37mSarbatori Fericite![10C[32m* [33m. [32m*[8C[33m~(=r[6C[37mBoas Festas! [36m*
+ * [37mJoyous Solstice![12C[32m** ** [33m.../__\[7C[37mGut Yontif! [36m*
+ * [37mMele Kurisumasu![10C[32m*** [31mo [32m***[5C[33m[[37mMJ[33m][7C[37mIyi YIllar! [36m*
+ * [37mMerry Christmas![10C[32m** [35m\\ [32m**[12C[37mVelelykh Svyat! [36m*
+ * [37mHappy Hanukkah![9C[32m*** [35m\\ [32m***[8C[37mStastny Novy Rok! [36m*
+ * [37mPari Dzounount![10C[32m* [31mo[5C[35m\\ [32m*[8C[37mKelemes Unnepeket! [36m*
+ * [37mHappy Holidays![9C[32m** [31mO [35m\\[32m**[6C[37mSeason's Greetings! [36m*
+ * [37mVeseli Vanoce![8C[32m***[35m\\[7C[31mo [35m\[32m***[5C[37mGung Hay Fat Choy! [36m*
+ * [37mFeliz Navidad![9C[32m* [35m\\ [31mo[7C[32m*[7C[37mFelican Jarfinon! [36m*
+ * [37mJoyeux Noel![10C[32m** [31mo [35m\\ [31mO [32m**[7C[37mJoy to the World [36m*
+ * [37mBom Natal![9C[32m****[8C[35m\\[5C[31mo [32m****[6C[37m- And to All a [36m*
+ * [37mGod Jul![13C[32m** [31mo[5Co [35m\\ [31mo [32m**[11C[37mGood Night! [36m*
+ * [37mCheers![12C[32m***[5C[31mO[7C[35m\\ [32m***[23C[36m*
+ * [37m*:D[7Co_[5C[32m*****************************[6C[37me[0m***************
+ [1;36m*[5C[37m_[6C<' )~[6C[0;33m___[6C##### [1;37m_v_[12C[0m***[1;34m"""""""""""""[36m*
+ * [37m/<~ ["""] V o [___] _*_ [0;33m#####[1;37m__|~|_ A[8C[33m*" [34m___ ___________
+ [36m* [37m%'= *|HHH|[~] U |\ /|/^^^\[0;33m##[1;37m[{}{}{}{](") ! [34mII__[[33mw[34m] | [[33mi[34m] [[33mz[34m] |[0m
+`k
+`0I am glad that you have given to the Needy.
+`0Please remember that even though this is the time for giving
+help is needed year round!
+`k
+@pauseon
+@Drawmap
+@update
+@closescript
+@end
+
+@if response is 2 then do
+@begin
+@DO moveback
+@SHOW
+`\ `\
+`0You really need to think about giving to the Needy. With out our
+help they have `%no help`0 at all.
+`k
+@Drawmap
+@update
+@closescript
+@end
+
+@#box
+@do moveback
+@clear screen
+@show
+`0You see a wooden box. There is a slot in the top, and the hand-painted
+sign on the front says...
+
+ ��������������������������������Ŀ
+ �`@HelP SaPPorT Teh ChlDrN'S ShlTR!`0�
+ ����������������������������������
+@key
+@clear screen
+@show
+`0Do you drop some money in?
+
+@do `v01 is 1
+@choice
+`%No
+`%Yes
+@if response is 1 the do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@clear screen
+@show
+
+`0How wonderful of you to be so generous!
+@key
+@do goto donation
+@#donation
+@show
+
+`@How much will you donate?
+@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 donation
+@end
+@if `v40 = 0 then do
+@begin
+@show
+
+
+`0It's too bad you changed your mind. These kids could really use the help!
+@key
+@drawmap
+@update
+@closescript
+@end
+@if `v40 < 0 then do
+@begin
+@show
+
+
+`0Steal money from the kids?! Not only is that truly dispicable, but it's not
+very bright, considering that Rabbit is watching you.
+@key
+@drawmap
+@update
+@closescript
+@end
+@drawmap
+@update
+@closescript
+
+@#ORPHAN
+@do moveback
+@datanewday seasons.idf
+@dataload seasons.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do saybar
+`%The children are all asleep. Try again tomorrow.
+@closescript
+@end
+@offmap
+@pauseoff
+@SHOW
+`r0 `c
+`0As you approach the shelter you're greeted by the sight of smiling faces
+through the windows...
+`L
+`@Candles are burning to celebrate the season that is at hand...
+`L`L`L`L
+`0The aroma of roasting Dragon hangs in the air. The feast must be about
+to begin...
+`L`L`L`L`L
+`@Bells are ringing.. stars are sparkling.. snow is squeaking under your
+feet..
+`L`L`L`L`L
+`0A wonderful feeling envelopes you as you enter into the shelter.
+`L`L`L`L`L`L
+`@`k
+`r0 `c
+@DISPLAYFILE SEA01.ANS NOPAUSE
+@SHOW
+`k
+`r0 `c
+`0You hug all of your new found friends...
+`L`L`L`L`L`L
+`0You laugh,`L`L you smile,`L`L you eat....
+`L`L`L
+You look at some of the cards that the Messenger brought to the shelter.
+`L`L`L`L`L`L
+One in particular catches your eye...
+`L`L`L`L`L`L
+A very crudely drawn picture, but it is the message that is important...
+`k
+`r0 `c
+`0The note simply states....
+
+`@ "THNK YUO"
+
+`0and crayoned in at the bottom in big block letters...
+
+`@ "FRM AlL ThE CihlDrn THAT wErE HELPD LAst YeaR"
+
+`0You wipe your eyes and remember that only a few gold pieces can and do
+work wonders.....
+
+`L`@.`L`0.`L`@.`L`0.`L`@.`L`0.`L`@.`L`0.`L`@.`L`0.`@.
+
+`0 The little children run up to you and tug you over to the tree, to
+show you all the packages that you have.
+`k
+`r0`c
+`0You look up at the tree and low and behold The Jolly Fat Warrior has
+indeed visited the children!
+
+The stockings are filled to the Brim, and the tree is overflowing with
+presents.
+
+`@ Would you like to open your present or look in your stocking?
+
+@do `V01 is 1
+@Choice
+`%Open my present
+`%Look in my stocking
+@if response is 1 then do
+@begin
+@clear screen
+@SHOW
+
+`0One of the children brings a small package to you.
+@key
+@show
+
+`@You open it carefully. Inside you find`L`0. `L`@. `L`0.
+@if `v40 is 0 then goto nopres
+@do `v40 / `p09
+@if `v40 > 100 then goto snack
+@if `v40 > 50 then goto white
+@if `v40 > 20 then goto red
+@if `v40 > 10 then goto blue
+@if `v40 > 5 then goto green
+@do goto craft
+@end
+@if response is 2 then do
+@begin
+@if `v40 is 0 then goto empty
+@do `v40 / `p09
+@do `v40 / 10
+@if `v40 is 0 then `v40 is 1
+@clear screen
+@show
+
+`0You dig down deep into your stocking and find`L`@. `L`0. `L`@.
+
+ `@`v40 `0gems!
+@key
+@do `p19 + `v40
+@do goto thankyou
+@end
+
+@#empty
+@show
+
+
+`0You dig down deep into your stocking and find`L`@. `L`0. `L`@.
+
+`@A sweet little clay something. You are not sure what it was supposed to be,
+but you can see tiny fingerprints in the soft clay.
+@key
+@show
+
+`0A tear forms in your eye as you think of the tiny hands that made it for you.
+@key
+@clear screen
+@show
+`0Without your support these children cannot afford food. They certainly
+cannot afford expensive presents for strangers.
+@key
+@do goto thankyou
+
+@#nopres
+@show
+
+
+`0A sweet little clay something. You are not sure what it was supposed to be,
+but you can see tiny fingerprints in the soft clay.
+@key
+@show
+
+`@A tear forms in your eye as you think of the tiny hands that made it for you.
+@key
+@clear screen
+@show
+`0Without your support these children cannot afford food. They certainly
+cannot afford expensive presents for strangers.
+@key
+@do goto thankyou
+
+
+@#green
+@show
+
+`0A green potion!
+@key
+@do `i05 + 1
+@do goto thankyou
+
+@#blue
+@show
+
+`0A blue potion!
+@key
+@do `i40 + 1
+@do goto thankyou
+
+@#red
+@show
+
+`0A red potion!
+@key
+@do `i52 + 1
+@do goto thankyou
+
+@#white
+@show
+
+`0A white potion!
+@key
+@do `i55 + 1
+@do goto thankyou
+
+@#snack
+@show
+
+`0A Koshi Snack!
+@key
+@do `i66 + 1
+@do goto thankyou
+
+@#craft
+@show
+
+`0A sweet little clay something. You are not sure what it was supposed to be,
+but you can see tiny fingerprints in the soft clay.
+@key
+@show
+
+`@A tear forms in your eye as you think of the tiny hands that made it for you.
+@key
+@do goto thankyou
+
+@#thankyou
+@clear screen
+@show
+
+`0You express your thanks to the children, and vow to yourself that you will
+never let them go hungry!
+@key
+@do goto leaving
+
+@if response is 2 then do
+@begin
+@SHOW
+`k
+@end
+
+@#leaving
+@pauseon
+@datasave seasons.idf &playernum 1
+@drawmap
+@update
+@do saybar
+`0Thanks for visiting the Children's Shelter!
+@closescript
diff --git a/xtrn/lord2/cnw/shark.ref b/xtrn/lord2/cnw/shark.ref
new file mode 100644
index 0000000000000000000000000000000000000000..bbccf7aef0c3ceaf881e97a563fdd54edee07f4e
--- /dev/null
+++ b/xtrn/lord2/cnw/shark.ref
@@ -0,0 +1,546 @@
+; Script file SHARK.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:22 2001
+
+@DECLARE man 000000542
+@DECLARE woman 000001461
+@DECLARE lake 000002220
+@DECLARE bank 000002969
+@DECLARE bankstart 000003041
+@DECLARE bankagain 000004139
+@DECLARE deposit 000005592
+@DECLARE withdraw 000006142
+@DECLARE closescript 000007010
+@DECLARE shop 000007024
+@DECLARE shstart 000007078
+@DECLARE heal 000007478
+@DECLARE travel 000009202
+@NOCHECK
+; End of .REF index
+
+;.Ref for Sharks' Tooth Island
+;(C) 1997 ShroomTrip Software
+
+@#MAN
+@do moveback
+@do `p20 random 10 1
+@if `p20 is 1 then saybar
+`%Whatup `N`%? My name is `0E`!lric `%& I wrote this IGM!
+@if `p20 is 2 then saybar
+`0E`!lric `%: Eat, Drink & be `N`%!
+@if `p20 is 3 then saybar
+`0E`!lric `%: I would like to thank `0Seth Able `%for creating LORD 2.
+@if `p20 is 4 then saybar
+`0E`!lric `%: I'm going to be a Father soon!
+@if `p20 is 5 then saybar
+`0E`!lric `%: Have you visited the Faerie Glade yet?
+@if `p20 is 6 then saybar
+`0E`!lric `%: I love to program random sayings into my IGM's :)
+@if `p20 is 7 then saybar
+`0E`!lric `%: Your Sysop should get `0LORD 2: Beyond Imagination`%. It Rocks!
+@if `p20 is 8 then saybar
+`0E`!lric `%: I have to credit this island to Ben Tiefert. Thanx man.
+@if `p20 is 9 then saybar
+`0E`!lric `%: Go away, there's nobody here, I'm a hologram.
+@if `p20 is 10 then saybar
+`0E`!lric `%: Hey `7NightAvenger`%! Your Tea is done.
+
+
+@#WOMAN
+@do moveback
+@do `p20 random 9 1
+@if `p20 is 1 then saybar
+`%Hello `N`%. I'm `0E`!lric`%'s wife `$Angelhair`%. How are you today?
+@if `p20 is 2 then saybar
+`$Angelhair `%: Bring me an shrubbery.
+@if `p20 is 3 then saybar
+`$Angelhair `%: You've got issues!
+@if `p20 is 4 then saybar
+`$Angelhair `%: I'm not a steak. You can't order me.
+@if `p20 is 5 then saybar
+`$Angelhair `%: If they called them Sad Meals(TM) then nobody'd buy them.
+@if `p20 is 6 then saybar
+`$Angelhair `%: As long as your up getting a drink, why don't you wash the car?
+@if `p20 is 7 then saybar
+`$Angelhair `%: Go wash!
+@if `p20 is 8 then saybar
+`$Angelhair `%: STICK IT IN!
+@if `p20 is 9 then saybar
+`$Angelhair `%: Your Ad Here for only `$$20 `%a Week!
+
+
+@#LAKE
+@do moveback
+@do `p20 random 9 1
+@if `p20 is 1 then saybar
+`7NightAvenger `%: We get our Drinking Water from this spring.
+@if `p20 is 2 then saybar
+`7NightAvenger `%: Holy Hippospit! It's `N`%! Run Away! Run Away!
+@if `p20 is 3 then saybar
+`7NightAvenger `%: Have you been to `7The NightAvenger's Cove `%yet?
+@if `p20 is 4 then saybar
+`7NightAvenger `%: Ni!
+@if `p20 is 5 then saybar
+`7NightAvenger `%: Do I type like I care?
+@if `p20 is 6 then saybar
+`7NightAvenger `%: Censorship sucks.
+@if `p20 is 7 then saybar
+`7NightAvenger `%: Star Wars RULES! It RULES!
+@if `p20 is 8 then saybar
+`7NightAvenger `%: Have you seen Slipoka?
+@if `p20 is 9 then saybar
+`7NightAvenger `%: Clucky was a hairball who lived in my nose.
+
+@#BANK
+@do `p30 is 15
+@do `v01 is 1
+@offmap
+@do moveback
+@label bankstart
+@show
+`r0`c `r1 `%Last Bank Of The Shark `r0
+
+`2 A young clerk eyes you cooly.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdraw.
+=&bank 0 Apply for an account here.
+Leave
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The cool man asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last question?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means YOU." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'Cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookkeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+
+
+@drawmap
+@update
+@#CLOSESCRIPT
+
+
+
+@#SHOP
+@offmap
+@do moveback
+@do `v01 is 1
+@label shstart
+@show
+`r0`c `% Sharks' Tooth Blue Light Sales
+
+`0You see a wide variety of items for sale here. What are ya gonna do `N`0?
+
+@do write
+`x`x
+@choice
+Buy Something
+Go outside
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+ @buymanager
+ 3
+ 5
+ 6
+ 14
+ 16
+ 35
+ 37
+ 38
+ 40
+ 43
+ 55
+ @end
+
+@if responce not 2 then goto shstart
+@drawmap
+@update
+
+
+
+
+@#HEAL
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%Sharks' Tooth Healers
+
+`2 Jimmy 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 person who doesn't work," `2Jimmy 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," `2Jimmy laughs.
+
+`k
+@drawmap
+@update
+
+
+
+
+@#TRAVEL
+@DO MOVEBACK
+@OFFMAP
+@DO `v01 is 1
+@SHOW
+`r0`c `r1`% Sharks' Tooth Travel `r0
+
+ `0"Welcome to Shraks' Tooth Travel, how may I help you?" `2Asks a receptionist.
+@DO WRITE
+`x`x
+@CHOICE
+Purchase a world map
+Buy a ticket for somewhere
+Leave
+@IF RESPONSE IS 1 THEN DO
+@Begin
+@Show
+`\`\ `$"I'd like to get a map,"`2 you reply.
+`\`k `0"Okay that'll be 20 gold,"`2 she states.
+
+@if money < 20 then do
+ @BEGIN
+ @show
+ `2You don't have that much, so naturally you take it out on her.
+
+`k `$"Look you stupid wench, since when do maps cost that much?!?! You just
+ lost a customer, lady!" `2you scream.
+
+`k `2You see tears in her eyes as you storm out the door.
+`\`k
+ @DRAWMAP
+ @UPDATE
+ @CLOSESCRIPT
+ @End
+@show
+`2 You plop down the money.`\`\`k
+@do money - 20
+@do `i20 + 1
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+
+@IF RESPONSE IS 2 THEN DO
+@Begin
+@Show
+`\`\ `$"I need to get out of town," `2you say. She smiles, `0"Okay where
+ would you like to go?" `2You review your choices.
+
+`k
+@show
+`r0`c `r1 `%Sharks' Tooth Booking Center
+
+
+@buymanager
+26
+27
+32
+33
+@do goto TRAVEL
+@End
+
+
+@IF RESPONSE IS 3 THEN DO
+@Begin
+@Show
+`\`\ `$"Sorry wrong building,"`2 you say as you saunter out the door.
+`\`k
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
diff --git a/xtrn/lord2/cnw/shell.ans b/xtrn/lord2/cnw/shell.ans
new file mode 100644
index 0000000000000000000000000000000000000000..bf05a377442be00f1eca4c05770823ca7ca794b1
--- /dev/null
+++ b/xtrn/lord2/cnw/shell.ans
@@ -0,0 +1,10 @@
+[?7h[40m[2J[2;1H[27C[0;1;44m Makeing A Choice [3;1H[4;1H[40m[s
+[u[10C[32m"Please choose a shell," [0;32mthe employee tells you.
+[5;1H[6;1H[7;1H[8;1H[8C[1;35m1[29C[32m2[31C[36m3[9;1H[5C����[s
+[u���[23C[35m�������[25C[32m�������[10;1H [36m�����۲��[21C[s
+[u[35m�����۲��[23C[32m�����۲��[11;1H [36m�������۲��[19C[35m[s
+[u�������۲��[21C[32m�������۲��[12;1H [36m���������۲��[17C[35m[s
+[u���������۲��[19C[32m���������۲��[13;1H [36m�����������۲��[15C[s
+[u[35m�����������۲��[17C[32m�����������۲��[14;1H[15;1H[16;1H
+[17;1H[18;1H[19;1H[20;1H[21;1H[22;1H[23;1H[24;1H[25;1H[0m[A
+[255D
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/shell.ref b/xtrn/lord2/cnw/shell.ref
new file mode 100644
index 0000000000000000000000000000000000000000..256844cd20185340e7b3c03b8ded49585874130e
--- /dev/null
+++ b/xtrn/lord2/cnw/shell.ref
@@ -0,0 +1,244 @@
+; Script file SHELL.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:40 2001
+
+@DECLARE game3 000000306
+@DECLARE g3 000000317
+@DECLARE shell 000001692
+@DECLARE guess 000002054
+@DECLARE g3help 000003589
+@DECLARE nogame 000003935
+@DECLARE nomore 000004190
+@NOCHECK
+; End of .REF index
+
+@#game3
+@label g3
+@if `p33 is 0 then do
+ @begin
+ @do goto nogame
+ @end
+@do `v01 is 1
+@do `p28 is 0
+@do `p30 is money
+@show
+`r0`c `r1 `%A Game Of 3 Shells `r0
+
+ `0How much would you like to bet?
+ `2(you have `$$`p30 `2and `0`p33 `2gambles left)
+
+@do write
+`x`x
+@choice
+Bet $5
+Bet $10
+Bet $20
+Bet $50
+Bet $100
+Ask for help on 3 Shells
+Return to the Other Games Menu
+Leave
+@if responce is 8 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 7 then do
+ @begin
+ @run othergames in knuckle.ref
+ @end
+
+@if responce is 6 then do
+ @begin
+ @do goto g3help
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do `p33 - 1
+ @do `p28 is 5
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do goto shell
+ @end
+
+@if responce is 2 then do
+ @begin
+ @do `p33 - 1
+ @do `p28 is 10
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do goto shell
+ @end
+
+@if responce is 3 then do
+ @begin
+ @do `p33 - 1
+ @do `p28 is 20
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do goto shell
+ @end
+
+@if responce is 4 then do
+ @begin
+ @do `p33 - 1
+ @do `p28 is 50
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do goto shell
+ @end
+
+@if responce is 5 then do
+ @begin
+ @do `p33 - 1
+ @do `p28 is 100
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do goto shell
+ @end
+
+@#shell
+@do `p25 random 3 1
+@if `p25 is 1 then do
+ @begin
+ @do `p20 is 1
+ @do `p21 is 0
+ @do `p22 is 0
+ @do goto guess
+ @end
+@if `p25 is 2 then do
+ @begin
+ @do `p21 is 1
+ @do `p20 is 0
+ @do `p22 is 0
+ @do goto guess
+ @end
+@if `p25 is 3 then do
+ @begin
+ @do `p22 is 1
+ @do `p20 is 0
+ @do `p21 is 0
+ @do goto guess
+ @end
+
+@#guess
+@pauseoff
+@displayfile shell.ans
+@pauseon
+@do `v01 is 1
+@do move 2 16
+@show
+@choice
+Shell #1
+Shell #2
+Shell #3
+@if responce is 1 then do
+ @begin
+ @if `p20 is 1 then do
+ @begin
+ @show
+`r0`c `r1 `%Way To Go! `r0
+
+ `0"Good choice, S&sir. You win `$$`p28`0," `2the employee tells you.
+
+`k
+ @do money + `p28
+ @do goto game3
+ @end
+ @if `p20 is 0 then do
+ @begin
+ @show
+`r0`c `r1 `%I'm Sorry! `r0
+
+ `0"Ohh, bad choice, S&sir. You lose `$$`p28`0," `2the employee tells you.
+
+`k
+ @do money - `p28
+ @do goto game3
+ @end
+ @end
+
+@if responce is 2 then do
+ @begin
+ @if `p21 is 1 then do
+ @begin
+ @show
+`r0`c `r1 `%Way To Go! `r0
+
+ `0"Good choice, S&sir. You win `$$`p28`0," `2the employee tells you.
+
+`k
+ @do money + `p28
+ @do goto game3
+ @end
+ @if `p21 is 0 then do
+ @begin
+ @show
+`r0`c `r1 `%I'm Sorry! `r0
+
+ `0"Ohh, bad choice, S&sir. You lose `$$`p28`0," `2the employee tells you.
+
+`k
+ @do money - `p28
+ @do goto game3
+ @end
+ @end
+
+@if responce is 3 then do
+ @begin
+ @if `p22 is 1 then do
+ @begin
+ @show
+`r0`c `r1 `%Way To Go! `r0
+
+ `0"Good choice, S&sir. You win `$$`p28`0," `2the employee tells you.
+
+`k
+ @do money + `p28
+ @do goto game3
+ @end
+ @if `p22 is 0 then do
+ @begin
+ @show
+`r0`c `r1 `%I'm Sorry! `r0
+
+ `0"Ohh, bad choice, S&sir. You lose `$$`p28`0," `2the employee tells you.
+
+`k
+ @do money - `p28
+ @do goto game3
+ @end
+ @end
+
+@#g3help
+@show
+`r0`c `r1`%Help On 3 Shells `r0
+
+ `03 Shells is a game of chance. A ball is hidden under a shell, the
+ shells are moved around, and then you must try to guess which shell
+ the ball is hidden under. If you guess correctly, then you win your
+ bet. Otherwise, you lose your bet. Good luck.
+
+`k
+@do goto game3
+
+@#nogame
+@show
+`r0`c `r1 `%Our Apologies `r0
+
+ `0"I'm sorry, but we can't allow you to gameble anymore today," `2a
+ casino employee tells you.
+
+ Looks like you're out of gambles. You'll have to come back tomorrow.
+
+`k
+@drawmap
+@update
+
+@#nomore
diff --git a/xtrn/lord2/cnw/ship.ref b/xtrn/lord2/cnw/ship.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c7f65bb134fd6cd53a3f1d8dc4faf69f683ffaeb
--- /dev/null
+++ b/xtrn/lord2/cnw/ship.ref
@@ -0,0 +1,905 @@
+; Script file SHIP.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:34 2001
+
+@DECLARE map 000000691
+@DECLARE hammock 000000774
+@DECLARE ship 000000879
+@DECLARE shipstart 000000913
+@DECLARE showship 000001206
+@DECLARE mybank 000005326
+@DECLARE pilot 000008265
+@DECLARE healme 000009493
+@DECLARE doorguard 000009719
+@DECLARE startg 000009748
+@DECLARE sign 000013077
+@DECLARE guardchat 000013375
+@DECLARE enter 000014194
+@DECLARE done 000015518
+@DECLARE letmein 000017186
+@DECLARE done 000017265
+@DECLARE port? 000017276
+@DECLARE letmein 000018928
+@DECLARE cabinguard 000019015
+@DECLARE letmein 000020752
+@DECLARE done 000020833
+@NOCHECK
+; End of .REF index
+
+@#map
+@do saybar
+`2You study the map carefully to plot your course.
+@end
+
+@#hammock
+@do saybar
+`2The hammock could easily rock you to sleep, with the motion of the waves.
+@end
+
+@#ship
+@do moveback
+
+@label shipstart
+@show
+`r0`c `r1 `2You have reached the top of the mountain! `r0
+
+@choice
+`3Head on back.
+`2Look out over the ocean.
+@If response is 2 then do
+@begin
+@routine showship
+@do goto shipstart
+@end
+
+@if response is 1 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+
+@#showship
+@pauseoff
+@show
+[?7h[40m[2J[0;1;44m [36m����� [40m[s
+[u[44m [2;1H ���� [40m[s
+[u[44m ����� [0;31;44m������[43m [44m [40m[s
+[u[44m [1;36m������ [3;1H ������� [40m[s
+[u[44m �� [0;33;44m����������[30;43m�[33;44m��������[40m[s
+[u[44m�� [1;36m��������� [4;1H ������� [40m[s
+[u[44m [0;31;44m�����[43m [44m [1;30m�[47m [40m[s
+[u[47m �[44m� [36m�������� [5;1H ������� [40m[s
+[u[44m [0;33;44m������������[30;43m�[33;44m��������[1;30;43m[40m[s
+[u[43m�[47m� �[44m� [37m������� [40m
+[6;1H[44m [36m��� [30m�[47m� � [40m[s
+[u[47m [44m� [37m���� [7;1H [40m[s
+[u[44m [30m�[47m� � ��� [40m[s
+[u[47m [44m� [37m�� [8;1H [36m��� [40m[s
+[u[44m [30;47m� �� ���[44m��[43m���[44m �[40m[s
+[u[44m��[47m����[44m� [9;1H [36m���[40m[s
+[u[44m���� [30m�[47m� ����� [0;43m�[1;30m�[0;33;44m[40m[s
+[u[44m�[1;30;43m��[0;33;44m����[30;43m�����[33;44m�������[40m[s
+[u[1;30;43m�[0;33;44m� [10;1H [40m[s
+[u[44m[1;36m������ [30m�[40m�[47m��[44m����[43m [44m �[40m[s
+[u[44m�[47m�[40m�[47m�� �[44m� [40m[s
+[u[44m [11;1H [36m��� [0;33;44m�[1;30;43m�[40m[s
+[u[0;33;44m��������[30;43m���[33;44m��������[1;30;47m� [40m[s
+[u[47m �[44m� [0;33;44m� [12;1H [40m[s
+[u[44m [1;30m�[47m�[0;47m�������������������[1;30m�[40m[s
+[u[47m� �[44m �[47m�[0;33;47m�[44m� �� [40m[s
+[u[44m [13;1H [1;30m�[47m� [40m[s
+[u[47m � [44m� �[47m� [0;33;47m�[44m� �[40m[s
+[u[44m� [14;1H [1;30;47m� [40m[s
+[u[47m � �[44m� [47m� [0;33;47m�[40m[s
+[u[44m� [15;1H [31m������� [1;30m�[47m [40m[s
+[u[47m � ����� [44m� [40m�[47m [40m[s
+[u[0;33;47m�[44m� [16;1H [31m�[43m [1;33m [D[40m[s
+[u[43m [D [0;31m�[44m [1;30m�[47m� ���[43m����[47m��� [40m[s
+[u[47m ����[44m���[43m �[44m����[47m�����[44m� �[47m� [40m[s
+[u[47m [0;33;47m�[44m� [17;1H [31m�[43m [40m[s
+[u[43m[1;33m [D [D [0;31m�[44m [1;30;47m��[44m���� [40m[s
+[u[43m [44m ���[47m�[44m��� [43m [0;30;43m������ͻ[40m[s
+[u[44m [1;40m�[44m ��[0;33;44m��[1;30m�[47m� �[44m� [40m[s
+[u[0;33;44m�� [18;1H [40m�[30;43m������[1m�[40m[s
+[u[0;33;44m����� [43m [44m [1;30;43m�[0;33;44m�����[40m[s
+[u[30;43m����������������[1;44m��[0;33;44m�� [1;30m�[40m�[s
+[u[47m ��[44m�� [19;1H[46m [34m� � [0;33m�[43m[40m[s
+[u[43m [30m� � � � ������������ � � � � � � � � � � �[1;46m�[40m[s
+[u[46m ��� ��� [34m� � [20;1H � � [0;33m�[43m [40m[s
+[u[43m [30m�[1;46m��� [40m[s
+[u[46m[34m� � � � [21;1H � � �[0;33m�[43m [40m[s
+[u[43m [30m�[1;34;46m� � [40m[s
+[u[46m � � � [22;1H � � � � � � �[40m[s
+[u[46m � � � � � � � � �[23;1H � [40m[A
+[9C[46m� � � � � � � � � � � � [40m[A
+[68C[46m � � � [0m[255D `k
+`c `\`\`\`\`\`\`\`\`!You gaze at the mighty ship and vow that one day you will sail the Eight Seas
+with her yourself.
+ `k
+@#MYBANK
+;team treasury
+@do moveback
+@do `p20 is 0
+@if shiptres.dat exist true then do
+ @begin
+ @readfile shiptres.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`$You find the hidden safe and carefully open it.`\`\
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @clearblock 22 24
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+@clearblock 22 26
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile shiptres.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete shiptres.dat
+ @writefile shiptres.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile ship$.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0The Sea Serpent Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @clearblock 21 24
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile shiptres.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete shiptres.dat
+ @writefile shiptres.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile ship$.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0The Sea Serpent Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+
+
+@#PILOT
+;lets them warp to a view places
+@offmap
+@do moveback
+@show
+`r0`c `r1 Sailor `r0
+
+ `0"Greetings, s&sir! Where can we drop you off today?" `2a smartly dressed
+ sailor asks.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Flagcity Docks
+ArrisVille
+PortTown
+Sosen Village
+I'll stay here, thanks
+@if response not 5 then do
+ @begin
+@show
+`\`\ `0"We shall leave at once!" he shouts importantly.
+
+`k `2The ship comes to life as the crew raises anchor and sets sail!
+
+ `2You never knew it could feel so good to be in charge of a magnificent
+ vessel such as this one. You arrive safely.`\`\`\
+ `0"I bid you a goodday s&sir, and await your return."
+
+ `2It feels great to be alive.
+
+`k
+@if responce is 1 then do
+ @begin
+ ;Flagcity Docks
+ @do x is 42
+ @do y is 15
+ @do map is 71
+ @end
+
+@if responce is 2 then do
+ @begin
+ ;ArrisVille
+ @do x is 67
+ @do y is 19
+ @do map is 444
+ @end
+
+@if responce is 3 then do
+ @begin
+ ;Porttown
+ @do x is 42
+ @do y is 3
+ @do map is 152
+ @end
+
+@if responce is 4 then do
+ @begin
+ ;Sosen Village
+ @do x is 41
+ @do y is 18
+ @do map is 536
+ @end
+
+ @loadmap &map
+ @end
+@drawmap
+@update
+
+@#HEALME
+;free heal
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Healers `r0
+
+ `2The ship's surgeon looks you over for wounds carefully.
+
+ `%YOU ARE COMPLETEY HEALED.
+
+`k
+@do `p02 is `p03
+@drawmap
+@update
+
+@#doorguard
+@do moveback
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the ship, as well as sell it
+;back or transfer ownership.
+@if ship$.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to vacate this ship!" `2the guard barks.
+ @closescript
+ @end
+
+@readfile ship$.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the guard, nice of him to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The huge guard snaps to attention when he sees you are going to
+ address him.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+Leave
+@
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$50000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your ship to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete ship$.dat
+ @writefile ship$.dat
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of The Sea Serpent to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%The Sea Serpent`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your ship back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete ship$.dat
+ @do money + 50000
+ @show
+`\`\ `%SHIP SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%The Sea Serpent`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete ship$.dat
+ @writefile ship$.dat
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#sign
+@do moveback
+
+ @if ship$.dat exist false then do
+ @begin
+ @do saybar
+Seay Serpent - For sale cheap, enquire inside.
+ @end
+
+@if ship$.dat exist true then do
+ @begin
+@readfile ship$.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+@#guardchat
+@show
+`c
+ `3The guard looks you up and down and decides you worthy enough of a reply.
+ He proceeds to tell you about the splendid looking ship that is floating
+ majestically on the ocean before you. He says:`\`\
+ `2"The Sea Serpent is the pride of the Eight Seas. Never has she failed her
+ captain. Not only will you be envied by all who live on The New World
+ `#(Seth Able himself would give his right arm to own her)`2, you will also
+ gain the following bonuses.`\`\
+ `7Drop of points at `@FlagCity, PortTown, Sosen Village, and Arrisvile.
+ `7Not only will she drop you off but the crew will wait until you are ready
+ to depart.`\
+ The Sea Serpent also comes with her own ship's surgeon and a secret vault
+ where you can keep all your gold.`\
+ `!Well worth the asking price of $100,000
+ `k
+
+@#enter
+@do moveback
+@offmap
+@if ship$.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2The Sea Serpent is a magnificient vessel that has sailed the Eight Seas
+ and beyond. It has beheld many adventures and is ready for many more.
+
+ Buy now and be the proud owner of your own ship.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 99999 Purchase it.
+Why should I Buy this old Tub?
+Have another look at the ship.
+<&money 100000 Sigh wistfully and leave since you don't have enough.
+>&money 99999 Leave.
+@
+
+@if response is 2 then do
+ @begin
+ @routine guardchat
+ @do goto enter
+ @end
+
+@if response is 3 then do
+ @begin
+ @routine showship
+ @do goto enter
+ @end
+
+@if responce is 1 then do
+ @begin
+ @if ship$.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile ship$.dat
+&playernum
+NONE
+ @do money - 100000
+ @do addlog
+ `0`n `2buys `%The fabled Sea Serpent`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, Captain `N! `r0
+`\`2 Nice job! You now own this great ship!
+
+ `2Enjoy your many adventures.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile ship$.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete ship$.dat
+ @do addlog
+ `%The Sea Serpent`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2The guard bars your way.
+
+ `0"Captain `s02`0 has declared that `4NO`0 visitors shall be allowed!"
+ `2he says viciously.
+
+ `4Ouch!
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A guard bars your way. `0"Halt, you! What business have you with
+ Captain `s02`0?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+What is the Pass word?
+Never mind.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome aboard the guard salutes as he lets you by.`\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `0The Sea Serpent Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2That ain't it, now piss off afore I skittle your gizzards.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein
+@do x is 20
+@do y is 10
+@do map is 801
+@loadmap 801
+@do goto done
+@#done
+
+@#port?
+ @if ship$.dat exist false then do
+ @begin
+ @do saybar
+Sorry this section of the dock is reserved for Guests of The Sea Serpent.
+ @end
+@if ship$.dat exist true then do
+ @begin
+
+@readfile ship$.dat
+`p20
+`s01
+@
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+ voice calls from behind the wall.
+
+ `4Ouch!
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A guard bars your way.. `0"Halt, you! What business have you with
+ `@Captain `s02`0?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+What is the Pass word?
+Never Mind.
+
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Sorry but `@Captain `S02 `0had to sail. Your gonna have to hoof it from here. `\`\`\`k
+ `2You then notice that the ship indeed has sailed without you, and turn
+ to continue your quest on foot.`\`\`\`k
+ @drawmap
+ @do moveback
+ @update
+ @do goto done
+ @do goto letmein
+ @end
+
+ @show
+`\`\ `2Good try matey, now piss off!`\`\`k
+ @drawmap
+ @do moveback
+ @update
+ @do goto done
+
+ @do goto done
+ @end
+
+ @drawmap
+ @do moveback
+ @update
+ @do goto done
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein
+@do x is 20
+@do y is 10
+@do map is 801
+@loadmap 801
+@do goto done
+
+@#cabinguard
+@readfile ship$.dat
+`p20
+`s01
+@
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 None shall pass `r0
+
+ `2You pound on the door for some time before you get an answer.
+
+ `0"Captain`s02`0 has declared that `4NO`0 one is allowed beyond this `2a
+ point" says the burly guard.
+
+ `4Ouch!
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Stand and unfold thyself `r0
+
+`2 A guard bars your way.. `0"Halt, you! What business have you with
+ `@Captain `s02`0?" `2he asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+What is the Pass word?
+Never Mind.
+
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Sorry but this area is restricted. `@Captain `S02 `0is the only person
+ allowed behind this door.`\`\
+ `2You feel it prudent not to press the point and to wait for your
+ journey's end.`\`\`\`\`\`k
+
+ @drawmap
+ @do moveback
+ @update
+ @do goto done
+ @do goto letmein
+ @end
+
+ @show
+`\`\ `4Shit, you got the pass word wrong. `2The guard sounds a warning! You are
+ picked up by 4 burly sailors and are thrown overboard.`\`\`\
+ `3You swim for your life. You finally manage to swim to safety. You pull
+ yourself up on the beach and thank your lucky stars you were close to shore. `\`\`k
+ @do x is 8
+ @do y is 10
+ @do map is 945
+ @loadmap 945
+ @do goto done
+ @end
+
+ @drawmap
+ @do moveback
+ @update
+ @do goto done
+ @do goto done
+
+ @end
+
+ ;let him in
+@label letmein
+@do x is 40
+@do y is 14
+@do map is 721
+@loadmap 721
+@do goto done
+
+@#done
diff --git a/xtrn/lord2/cnw/shipwrk.ref b/xtrn/lord2/cnw/shipwrk.ref
new file mode 100644
index 0000000000000000000000000000000000000000..625ea5456d133e899c104d3c1db751984aea0d03
--- /dev/null
+++ b/xtrn/lord2/cnw/shipwrk.ref
@@ -0,0 +1,963 @@
+; Script file SHIPWRK.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:22 2001
+
+@DECLARE ghost 000001097
+@DECLARE water 000001651
+@DECLARE shark 000002182
+@DECLARE lever 000002809
+@DECLARE lever1 000003058
+@DECLARE wizard 000005187
+@DECLARE wizardtalk 000005410
+@DECLARE leverdone 000008061
+@DECLARE hatch 000008122
+@DECLARE hatchopen 000008315
+@DECLARE shipswheel 000008409
+@DECLARE mast 000008561
+@DECLARE wetbed 000008631
+@DECLARE window 000008692
+@DECLARE gunner 000013126
+@DECLARE cannon 000013200
+@DECLARE cannon1 000013277
+@DECLARE firegun 000013340
+@DECLARE fish 000013730
+@DECLARE captain 000013793
+@DECLARE trade 000016001
+@DECLARE selling 000016404
+@DECLARE quest 000018773
+@DECLARE barrel 000019094
+@DECLARE empty 000019396
+@DECLARE barrel1 000019453
+@DECLARE barrel2 000019662
+@DECLARE barrel3 000019890
+@DECLARE barrel4 000020106
+@DECLARE exit 000020312
+@DECLARE teleport 000020494
+@DECLARE travel 000021293
+@DECLARE arris 000021599
+@DECLARE ferry 000021861
+@DECLARE nomore 000022230
+@NOCHECK
+; End of .REF index
+
+;Shipwreck IGM
+
+@#ghost
+@pauseoff
+@SHOW
+[1;1H[0m
+
+
+[40C[44m[40m
+[1;1H[0m
+
+
+[40C[44m [40m
+[1;1H[0m
+
+
+[41C[44m [40m
+[1;1H[0m
+
+
+[42C[44m [40m
+[1;1H[0m
+
+
+[43C[44m [40m
+[1;1H[0m
+
+
+[44C[44m [40m
+[1;1H[0m
+
+
+[45C[44m [40m
+[1;1H[0m
+
+
+[46C[33m�[37;44m[40m
+[1;1H[0m
+
+
+[47C[44m [40m
+[1;1H[0m
+
+
+[48C[44m [40m
+[1;1H[0m
+
+
+[49C[44m [40m
+[1;1H[0m
+
+
+[50C[44m [40m
+[1;1H[0m
+
+
+[50C[44m [40m
+@end
+
+@do saybar
+`7`$Man! Was that a ghost?
+@update
+@end
+
+@#WATER
+@dataload canoe.idf &playernum `p21
+@IF `p21 MORE 0 THEN DO
+@BEGIN
+@do saybar
+Glad you have a canoe to make this short trip, those sharks look hungry!
+@END
+
+@IF `p21 LESS 1 THEN DO
+@BEGIN
+@do `p20 random 5 1
+@if `p20 is 1 then saybar
+`$Hope this doesn't rust the armour.
+@if `p20 is 2 then saybar
+`$Wonder if there are any sharks in this water?
+@if `p20 is 3 then saybar
+`$Ewww!! Some fish went potty in the water.
+@if `p20 is 4 then goto shark
+@do `p20 is 0
+@END
+@do `p02 - 5
+@CLOSESCRIPT
+@END
+
+
+@#SHARK
+@fight
+;name
+Large shark
+;string said when you see him
+A triangular shaped fin approaches you...
+;power move kill string
+You shudder at what might have happened.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+slaps you with a powerful tail|30
+rams into you with its nose|35
+grabs your leg and pulls you under|40
+slashes your arm with it's teeth|42
+NONE|NONE
+;defense
+25
+;gold reward
+103
+;experience
+77
+;hit points
+80
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#lever
+@do moveback
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2There is a lever on the wall. Pull it? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+@if `s01 is Y then goto lever1
+@drawmap
+@update
+@closescript
+@end
+
+@#lever1
+@DATANEWDAY SHIPWRK.idf
+@DATALOAD SHIPWRK.idf &PLAYERNUM `p21
+@do moveback
+@if `p21 is 1 THEN GOTO LEVERDONE
+@pauseoff
+@show
+[1;1H[0m
+
+
+
+
+[18C[30m�[37m
+[18C[33m�[37m
+[14C[33m�����[37m
+[10C[33m����
+[A[14C[1;30;47m [40m
+[A[15C[0;34;47m[40m
+[A[16C[1;30;47m [40m
+[A[18C[0;33m�[37m
+[10C[33m����
+[A[14C[1;30;47m [40m
+[A[18C[0;33m�[37m
+[14C[33m�����[37m
+[18C[33m�[37m
+[10C[30m���������[37m
+[1;1H[0m
+
+
+
+
+[18C[30m�[37m
+[18C[33m�[37m
+[14C[33m�����[37m
+[10C[33m����
+[A[14C[1;30;47m [40m
+[A[18C[0;33m�[37m
+[10C[33m����
+[A[14C[1;30;47m [40m
+[A[15C[0;34;47m[40m
+[A[16C[1;30;47m [40m
+[A[18C[0;33m�[37m
+[14C[33m�����[37m
+[18C[33m�[37m
+[10C[30m���������[37m
+[1;1H[0m
+
+
+
+
+[18C[30m�[37m
+[18C[33m�[37m
+[14C[33m�����[37m
+[10C[33m����
+[A[14C[1;30;47m [40m
+[A[18C[0;33m�[37m
+[10C[33m����
+[A[14C[1;30;47m [40m
+[A[16C[0;34;47m[40m
+[A[17C[1;30;47m [40m
+[A[18C[0;33m�[37m
+[14C[33m�����[37m
+[18C[33m�[37m
+[10C[30m���������[37m
+[1;1H[0m
+
+
+
+
+[18C[30m�[37m
+[18C[33m�[37m
+[14C[33m�����[37m
+[10C[33m����
+[A[14C[1;30;47m [40m
+[A[18C[0;33m�[37m
+[10C[33m����
+[A[14C[1;30;47m [40m
+[A[17C[0;34;47m[40m
+[A[18C[33m�[37m
+[14C[33m�����[37m
+[18C[33m�[37m
+[10C[30m���������[37m
+[1;1H[0m
+
+
+
+
+[18C[30m�[37m
+[18C[33m�[37m
+[14C[33m�����[37m
+[10C[33m����
+[A[14C[1;30;47m [40m
+[A[18C[0;33m�[37m
+[10C[33m����
+[A[14C[1;30;47m [40m
+[A[18C[0;34;47m[37;40m
+[14C[33m�����[37m
+[18C[33m�[37m
+[10C[30m���������[37m
+[1;1H[0m
+
+
+
+
+[18C[30m�[37m
+[18C[33m�[37m
+[14C[33m�����[37m
+[10C[33m����
+[A[14C[1;30;47m [40m
+[A[18C[0;33m�[37m
+[10C[33m����
+[A[14C[1;30;47m [40m
+[A[19C[0;34;47m[37;40m
+[14C[33m�����[37m
+[18C[33m�[37m
+[10C[30m���������[37m
+@DATASAVE SHIPWRK.IDF &playernum 1
+@DO SAYBAR
+`7Out of no where an old man appears to your left.
+@closescript
+@end
+
+@#WIZARD
+@DATANEWDAY SHIPWRK.idf
+@DATALOAD SHIPWRK.idf &PLAYERNUM `p21
+@do moveback
+@if `p21 is 1 THEN GOTO WIZARDTALK
+@DO SAYBAR
+`$You hear faint noises on the other side of the wall.
+@CLOSESCRIPT
+@END
+
+@LABEL WIZARDTALK
+@SHOW
+`r0`c `%`r1 Talking with the wizard `r0
+`\`2 Before you is a rather ancient looking man. His bearing is rather
+ haughty but you figure you could take him with one hand. Never the less
+ you decide you will play it safe.`\
+@DATANEWDAY SHIPWRK2.idf
+@DATALOAD SHIPWRK2.idf &PLAYERNUM `p23
+@DO `v01 is 1
+@DO WRITE
+`x`x
+@CHOICE
+Whoaa...who are you and where did you come from
+What is the deal with this ship
+>`p23 0 Say, can you teleport people
+Sorry, I didn't realize anyone was here
+@IF RESPONSE IS 1 THEN DO
+@BEGIN
+@SHOW
+`r0`c `%`r1 Talking with the wizard `r0
+`\`\`2 "`0Who am I? Why I am Larkin. The most powerful wizard ever. Master of
+ the ancient mysteries. Mentor to the realms greatest warriors. Slayer
+ of the Red Dragon...
+
+`k`2 By now you realize he is a nut.
+
+`k`0 ... Builder of great empires.`2" he says. "`0 How I got here is beyond
+ your puny minds ability to comprehend`2."
+
+`k`2 You idly wonder how his superior mind would comprehend a slight
+ intrusion by your s&weapon, but let it slide for the moment.
+
+`k
+@DO GOTO WIZARDTALK
+@END
+
+@IF RESPONSE IS 2 THEN DO
+@BEGIN
+@DATALOAD SHIPWRK.idf &PLAYERNUM `p21
+@SHOW
+`r0`c `%`r1 Talking with the wizard `r0
+`\`\`2 "`0This is the merchant vessal PRIDE OF ARRIS. We were in route to her
+ home port of Arrisville when a storm forced us on these rocks`2."
+
+`k`2 "`0Currently the crew is working to repair the damage. In the meantime
+ the captain has set up shop on the upper decks and is doing a little trading
+ to offset his loses. Unfortunately business is brisk and I suspect he is
+ delaying the repairs to take advantage of it and delaying me in the process`2."
+
+`k`2 "`$I see. So, ummm, how do I get up to see the captain`2?"
+
+`k`2 The wizard doesn't look please with your request but closes his eyes in
+ concentration. Somewhere behind you you hear a click. Larkin points to the
+ stairwell... `L`L`L`L`Land then just disappears as if he never existed.
+
+`k`2 Maybe bashing his head with your s&weapon wouldn't have been such a good
+ idea after all. You are glad you waited.
+
+`k
+@datasave shipwrk.idf &playernum 2
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@IF RESPONSE IS 3 THEN GOTO TELEPORT
+@END
+
+@END
+
+@IF RESPONSE IS 4 THEN DO
+@BEGIN
+@DATALOAD SHIPWRK.idf &PLAYERNUM `p21
+@SHOW
+`r0`c `%`r1 Talking with the wizard `r0
+`\`\`2 The old man does not look amused. He promptly disappears as if he was
+ never there. Maybe you made the right decision.
+
+`k
+@do `p21 is 0
+@datasave shipwrk.idf &playernum 0
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+
+@LABEL LEVERDONE
+@do saybar
+`$You have already pulled the lever.
+
+@#HATCH
+@DATANEWDAY SHIPWRK.idf
+@DATALOAD SHIPWRK.idf &PLAYERNUM `p21
+@if `p21 is 2 THEN GOTO HATCHOPEN
+@do moveback
+@DO SAYBAR
+`$The hatch seems to be locked.
+@CLOSESCRIPT
+@END
+
+@#HATCHOPEN
+@LOADMAP 871
+@DO x IS 50
+@DO y IS 7
+@DRAWMAP
+@UPDATE
+@closescript
+@end
+
+@#SHIPSWHEEL
+@DO MOVEBACK
+@DO SAYBAR
+`%You foolishly spin the ship's wheel and shout "Heave Ho you scurvy dogs".
+@DO QUEBAR
+`%You feel kind of silly.
+
+@#MAST
+@DO SAYBAR
+`%Looks like they need to replace this mast.
+
+@#WETBED
+@DO SAYBAR
+`$Eewwwww.... That isn't sea water.
+
+@#WINDOW
+@DO MOVEBACK
+@CLEAR SCREEN
+@PAUSEOFF
+@SHOW
+`r1`1
+[0m[30;43m ��������������������������������������������������������������[40m
+[A[63C[43m��������������ͻ[40m
+[A[79C[30;43m � [37;40m[4C[5;1;30m.[0m[8C.[5C[5m.[0m[3C
+[A[26C[1;30m.[0m [5;1;30m.[0m[3C[1;30m.[0m[4C[5;1;30m.
+[A[38C[0;30;43m � [37;40m[9C[1m.[0m [1m.[0m . [5;1;30m.[0m[4C
+[A[62C[1;30m.[0m[7C. .[5;1;30m.[0m[3C[30;43m �[40m
+[A[79C[30;43m � [37;40m .[7C[1m.[0m[3C[1;30m.[0m[12C[1m.
+[A[31C[0m [1;30m.[0m[4C[30;43m � [37;40m [1;30m.[0m[3C.[13C
+[A[60C.[4C[5;1;30m.[0m[5C[1;30m.[0m [5m.[0m [30;43m �[40m
+[A[79C[30;43m � [1;40m.[0m[4C. [1m.[0m [1;30m.[0m
+[A[16C[5;1;30m.[0m [1;30m.[0m[6C [1m.[0m [1m.[0m [1m.[0m[3C
+[A[38C[30;43m � [37;40m [1;30m.[0m[7C[1m.[0m[10C[1m.[0m[3C
+[A[66C[1;30m.[0m[3C[1m.[0m [5;1;30m.[0m [1;30m.[0m [30;43m[40m
+[A[77C[43m �[40m
+[A[79C[30;43m � [37;40m [1;30m.[0m[3C[1;30m.[0m .[3C[1;30m
+[A[15C.[0m[8C.[12C[1m.[0;30;43m � [37;40m[4C[5;1;30m.[0m[22C
+[A[68C[1m.[0m [1m..[0m[5C[30;43m �[40m
+[A[79C[30;43m � [37;40m[3C[5;1;30m.[0m[3C[1;30m.[0m[4C[1m.
+[A[16C[0m [1;30m.[0m[6C[1;30m.[0m[11C[1;30m.[0;30;43m � [37;40m[4C
+[A[45C.[17C[1;30m.[0m [5;1;30m.[0m[4C[1m.[0m [1m.[0m
+[A[77C[30;43m �[40m
+[A[79C[30;43m � [37;40m[6C.[1;30m.[0m[3C[1;30m.[0m [1m.
+[A[18C[0m [1;30m.[0m[7C[1;30m.[0m[4C[1;30m.[0m[5C[30;43m �[40m
+[A[40C[43m [37;40m [1;30m.[0m[18C[1;30m.[0m[7C[1m.[0m[6C
+[A[77C[30;43m �[40m
+[A[79C[30;43m � [37;40m[3C[1;30m.[0m[8C[1;30m.[0m [1m.[0m[3C
+[A[22C[1;30m.[0m [1;30m.[0m.[4C[5;1;30m.[0m .[5;1;30m.[0m[3C
+[A[38C[30;43m � [37;40m .[1;30m.[0m[3C[1;30m.[37m.[5;30m.[0m[3C
+[A[53C[1;30m.[0m[5C[1;30m.[0m[5C[5;1;30m.[0m[4C[1;30m.[0m[5C
+[A[76C[5;1;30m.[0;30;43m �[40m
+[A[79C[30;43m � [37;40m .[1;30m.[0m[3C[1;30m.[0m [1;30m.[0m[6C
+[A[20C[1;30m.[0m[3C[5m.[0m[5C[1;30m..[0m[5C.[30;43m � [40m
+[A[41C[37m [1;30m.[0m[8C.[1;30m.[0m[3C[1;30m.[0m[5C[1;30m
+[A[63C.[0m[5C[1;30m.[0m[3C.[3C[30;43m �[40m
+[A[79C[30;43m �����������������������������������������������������[40m
+[A[54C[43m�����������������������[40m
+[A[79C[30;43m � [37;40m [1;30m.[0m[4C.[5;1;30m.[0m[8C.[5C
+[A[25C[5;1;30m..[0m[3C[1;30m.[0m[4C[5;1;30m.[0m [30;43m � [37;40m[4C
+[A[45C[5m.[0m [5;1;30m.[0m[7C[1;30m.[0m[18C[1;30m.[0m
+[A[77C[30;43m �[40m
+[A[79C[30;43m � [37;40m.[1;30m.[0m[3C[1;30m.[0m [5m.[0m
+[A[14C[5;1;30m.[0m[3C..[5;1;30m.[0m[8C.[1;30m.[0m[7C[30;43m[40m
+[A[38C[43m � [37;40m [1;30m..[0m [1;30m.[0m[3C.[1;30m.[0m[3C
+[A[56C[1;30m.[0m[3C[1;30m.[0m[15C[1;30m.[0;30;43m �[40m
+[A[79C[30;43m � [37;40m [1;30m.[0m[10C[1;30m.[0m[5C[5m.[0m[3C
+[A[25C[1;30m.[0m[4C[1;30m.[0m[7C[30;43m � [37;40m[11C[1;30m
+[A[52C.[0m[4C[5;1;30m.[0m[16C[1m.[0m [30;43m �[40m
+[A[79C[30;43m � [37;40m[4C[1;30m.[0m[3C[1;30m.[0m[4C[1;30m
+[A[16C.[0m[7C[5;1;30m.[0m[8C[1;30m.[0m[4C[30;43m � [37;40m
+[A[42C[1;30m.[0m[3C[1;30m.[0m[8C[1;30m.[0m [1;30m.[0m[5C
+[A[63C[5m.[0m[5C.[5C[1;30m.[0m [30;43m �[40m
+[A[79C[30;43m � [34;40m�����������������������������������[30;43m[40m
+[A[38C[43m � [34;40m������������������������������������[30;43m �[40m
+[A[79C
+[A[79C[30;43m � [34;40m�����������������������������������[30;43m[40m
+[A[38C[43m � [34;40m������������������������������������[30;43m �[40m
+[A[79C
+[A[79C[30;43m � [34;40m�����������������������������������[30;43m[40m
+[A[38C[43m � [34;40m������������������������������������[30;43m �[40m
+[A[79C
+[A[79C[30;43m � [34;40m�����������������������������������[30;43m[40m
+[A[38C[43m � [34;40m����������������������[44m [40m��������[44m [40m
+[A[74C���[30;43m �[40m
+[A[79C[30;43m �����������������������������������������������������[40m
+[A[54C[43m�����������������������ͼ[40m
+[A[79C[30;43m
+@END
+;@PAUSEON
+@SHOW
+
+`r0`! Strange. The sun was shinning bright when you came in?!?!?!
+@KEY
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#GUNNER
+@DO SAYBAR
+`$First Mate: "Don't touch! This one is loaded."
+
+@#CANNON
+@DO SAYBAR
+`$Sure are a lot of cannons for a merchant vessal.
+
+@#CANNON1
+@DO SAYBAR
+`$You could rule BoneTown with this.
+
+@#FIREGUN
+@DO MOVEBACK
+@pauseoff
+@SHOW
+[1;1H[0m
+
+
+
+[42C[44m�[40m
+[1;1H[0m
+
+
+[42C[44m�[40m
+[42C[44m [40m
+[1;1H[0m
+
+[42C[44m�[40m
+[42C[44m [40m
+[1;1H[0m
+[42C[44m�[40m
+[42C[44m [40m
+[1;1H[0m[42C[44m�[40m
+[42C[44m [40m
+[1;1H[0m[42C[44m [40m
+@end
+
+@do saybar
+`7`$First Mate: "You're a College s&boy ain't you."
+@update
+@end
+
+@#FISH
+@DO SAYBAR
+`$Fresh fish. Must be someone here.
+
+@#CAPTAIN
+@BUSY
+@DO MOVEBACK
+@SHOW
+`\
+`r0`c `%`r1 Talking to the captain `r0
+`\`2 From the quality of his clothes you figure this must be the captain.
+ He welcomes you with a cheerful hello.
+
+@DO `v01 IS 1
+@DO WRITE
+`x`x
+@CHOICE
+So Captain how long you gonna be here
+Is the wizard below as powerful as he says
+What's with that window down below
+How about a little trade
+Maybe you will catch him later
+@IF RESPONSE IS 1 THEN DO
+@BEGIN
+@SHOW
+`r0`c `%`r1 Talking to the captain `r0
+
+`\`2 "`0Depends. We still have quite a few repairs to finish as you can see.
+ We haven't been working to hard though, what with the trade we have been
+ doing here`2."
+
+`k `2"`$So what might you be in the market for`2?"
+
+`k `2"`0Nothing you could be carrying in that bag of yours unless you have
+ something in there to eat other then fish`2."
+
+`k
+@DO GOTO CAPTAIN
+@END
+
+@IF RESPONSE IS 2 THEN DO
+@BEGIN
+@DATANEWDAY SHIPWRK2.idf
+@DATALOAD SHIPWRK2.idf &PLAYERNUM `p23
+@SHOW
+`r0`c `%`r1 Talking to the captain `r0
+
+`\`2 "`0Who Larkin? Haw! That feeble minded old fish face? He is the reason
+ we are here. Tried to conjure up a wind to get us to port faster. Instead
+ we end up here on this rock. You would think that the flagship of the
+ Arrisville fleet would rate someone a little more competant`2."
+
+`k`2 "`$So why do you keep him around`2?"
+
+`k`2 "`0Well to be honest with you he is a powerful wizard. The problem is he
+ isn't as young as he once was and anytime he starts to feel his age he crawls
+ inside a bottle. Keep that in mind if he offers to teleport you somewhere`2."
+
+`k
+@DATASAVE SHIPWRK2.IDF &playernum 1
+@DO GOTO CAPTAIN
+@END
+
+@IF RESPONSE IS 3 THEN DO
+@BEGIN
+@SHOW
+`r0`c `%`r1 Talking to the captain `r0
+
+`\`2 "`0That's that lunkhead Larkin again. After he conjured up the storm that
+ put us here he figured he would to fix it. Only thing he managed to cast a
+ spell on was the window. I thought he looked a little tipsy that evening`2."
+
+`k
+@DO GOTO CAPTAIN
+@END
+
+@IF RESPONSE IS 4 THEN GOTO TRADE
+@END
+
+@IF RESPONSE IS 5 THEN DO
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@END
+
+@#TRADE
+@OFFMAP
+@SHOW
+`r0`c `r1 `%Trading with the Captain `r0
+
+ `2The Captain's whole demeanor changes as he sets his mind to business.
+
+@DO `v01 IS 1
+@DO WRITE
+`x`x
+@CHOICE
+Buy something
+Sell something
+Leave
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @do write
+`\`\
+ @BUYMANAGER
+ 05
+ 40
+ 55
+ 66
+ 36
+ @DO GOTO TRADE
+ @end
+
+@IF RESPONSE IS 2 THEN DO
+ @BEGIN
+ @LABEL SELLING
+ @SHOW
+`r0`c `r1 Trading with the Captain `r0
+
+`2 "`0Before you start let me make one thing clear, NO FISH`2!"
+
+ `2You open your pack to show him what you have.
+
+ `2You are holding `$$&money`2.
+
+@DO WRITE
+`x`x
+@DO `v01 IS 1
+@CHOICE
+<`i08 1 <`i43 1 <`i51 1 <`p15 6 You have nothing to sell.
+>`i08 0 Sell a Berry pie for `$$20`%. `2(you have `0`i08`2)
+>`i43 0 Sell a chicken egg for `$$15`%. `2(you have `0`i43`2)
+>`i51 0 Sell a small fuzzy animal for `$$1000`%. `2(you have `0`i51`2)
+>`p15 5 Sell your Arrisville quest `2(Current value is `0$`p16`2)
+>`i08 0 >`i43 0 >`i51 0 >`p15 5 Sell nothing.
+>`i08 0 <`i43 1 <`i51 1 <`p15 6 Sell nothing.
+<`i08 1 >`i43 0 <`i51 1 <`p15 6 Sell nothing.
+<`i08 1 <`i43 1 >`i51 0 <`p15 6 Sell nothing.
+<`i08 1 <`i43 1 <`i51 1 >`p15 5 Sell nothing.
+>`i08 0 >`i43 0 <`i51 1 <`p15 6 Sell nothing.
+>`i08 0 <`i43 1 >`i51 0 <`p15 6 Sell nothing.
+>`i08 0 <`i43 1 <`i51 1 >`p15 5 Sell nothing.
+<`i08 1 >`i43 0 >`i51 0 <`p15 6 Sell nothing.
+<`i08 1 <`i43 1 >`i51 0 >`p15 5 Sell nothing.
+<`i08 1 >`i43 0 <`i51 1 >`p15 5 Sell nothing.
+>`i08 0 >`i43 0 >`i51 0 <`p15 6 Sell nothing.
+>`i08 0 >`i43 0 <`i51 1 >`p15 5 Sell nothing.
+>`i08 0 <`i43 1 >`i51 0 >`p15 5 Sell nothing.
+<`i08 1 >`i43 0 >`i51 0 >`p15 5 Sell nothing.
+@IF RESPONSE IS 2 THEN DO
+ @BEGIN
+ @SHOW
+`\`\ `0"Ahhhh, just like home. Thank you s&sir!"
+
+`k
+ @DO MONEY + 20
+ @DO `i08 - 1
+ @DO GOTO SELLING
+ @END
+@IF RESPONSE IS 3 THEN DO
+ @BEGIN
+ @SHOW
+`\`\ `0"Seems like years since I had one of those."
+
+`k
+ @DO MONEY + 15
+ @DO `i43 - 1
+ @DO GOTO SELLING
+ @END
+@IF RESPONSE IS 4 THEN DO
+ @BEGIN
+ @SHOW
+`\`\ `0"Careful now, I have people that would kill for one of those."
+
+`k
+ @DO MONEY + 1000
+ @DO `i51 - 1
+ @DO GOTO SELLING
+ @END
+@IF RESPONSE IS 5 THEN DO
+ @BEGIN
+ @DO `p25 is `p16
+ @DO `p25 / 4
+ @DO `p25 * 3
+ @SHOW
+`r0`c `%`r1 Trading with the Captain `r0
+`\`\`2 "`0I can complete your quest for you. I will give you `$$`p25`0 and save
+ you the trip`2." `2(Current value is `0$`p16`2)
+
+`k
+@do write
+`r0 `2Allow the Captain to finish you quest? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+@if `s01 is Y then goto QUEST
+@DO GOTO SELLING
+@drawmap
+@update
+@closescript
+@end
+
+@drawmap
+@update
+@closescript
+@end
+
+@drawmap
+@update
+@closescript
+@end
+
+
+@#QUEST
+;reset quest stuff
+;give money
+@do money + `p25
+;add one to quests completed var
+@do `p18 + 1
+@do `p14 is 0
+@do `p15 is 0
+@do `p16 is 0
+@do `p17 is 0
+@do `i44 is 0
+@do `i45 is 0
+@do `i46 is 0
+@do `i47 is 0
+@do `i48 is 0
+@DO GOTO SELLING
+@END
+
+@DO GOTO TRADE
+
+@END
+@DRAWMAP
+@UPDATE
+@END
+
+@#BARREL
+@BUSY
+@DO MOVEBACK
+@DATANEWDAY SHIPWRK1.idf
+@DATALOAD SHIPWRK1.idf &PLAYERNUM `p22
+@IF `p22 IS 1 THEN GOTO EMPTY
+@DO `p20 RANDOM 4 1
+@IF `p20 IS 1 THEN GOTO BARREL1
+@IF `p20 IS 2 THEN GOTO BARREL2
+@IF `p20 IS 3 THEN GOTO BARREL3
+@IF `p20 IS 4 THEN GOTO BARREL4
+@CLOSESCRIPT
+@END
+
+@#EMPTY
+@DO SAYBAR
+`$There is nothing here.
+@END
+
+@#BARREL1
+@SHOW
+`r0`c `r1 `%Pirates treasure maybe? `r0
+`\`\`2 A sparkle catches your eye.
+
+`k `2You find a `$GEM
+
+`k
+@DO `p19 + 1
+@datasave shipwrk1.idf &playernum 1
+@DRAWMAP
+@UPDATE
+@END
+
+@#BARREL2
+@SHOW
+`r0`c `r1 `%Pirates treasure maybe? `r0
+`\`\`2 A movement catches your eye.
+
+`k `2You find a `0Sparking Green Salmon
+
+`k
+@DO `i30 + 1
+@datasave shipwrk1.idf &playernum 1
+@DRAWMAP
+@UPDATE
+@END
+
+@#BARREL3
+@SHOW
+`r0`c `r1 `%Pirates treasure maybe? `r0
+`\`\`2 A sparkle catches your eye.
+
+`k `2You find a `0Red Potion
+
+`k
+@DO `i52 + 1
+@datasave shipwrk1.idf &playernum 1
+@DRAWMAP
+@UPDATE
+@END
+
+@#BARREL4
+@SHOW
+`r0`c `r1 `%Pirates treasure maybe? `r0
+`\`\`2 A sparkle catches your eye.
+
+`k `2You find a `$GEM
+
+`k
+@DO `p19 + 1
+@datasave shipwrk1.idf &playernum 1
+@DRAWMAP
+@UPDATE
+@END
+
+@#EXIT
+@DATALOAD SHIPWRK.idf &PLAYERNUM `p21
+@DO `p21 IS 0
+@datasave shipwrk.idf &playernum 0
+@LOADMAP 950
+@DO x IS 46
+@DO y IS 8
+@DRAWMAP
+@UPDATE
+@closescript
+@end
+
+@#TELEPORT
+@SHOW
+`r0`c `%`r1 Talking with the wizard `r0
+`\`\`2 After a slight hesitation he says "`0I am not a side show magician doing
+ parlor tricks to impress people little s&boy. A wizard of my calibre demands
+ a high price. I can transport you to Arrisville for no less then `$$6,000`2."
+
+`k`2 A ticket in PortTown cost $8,000. You remember what the captain has told
+ you and wonder if it is worth the chance.
+
+`k
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 5999 Give him the money. `!(You have `$$&money`!)
+<&money 6000 Sorry but that is more then I can afford.
+>&money 5999 Leave.
+@IF RESPONSE IS 1 THEN GOTO TRAVEL
+@END
+
+@IF RESPONSE IS 2 THEN GOTO WIZARDTALK
+@END
+
+@IF RESPONSE IS 3 THEN GOTO WIZARDTALK
+@END
+
+;@DRAWMAP
+;@UPDATE
+;@CLOSESCRIPT
+@END
+
+@#TRAVEL
+;YOU HAVE PAID YOUR MONEY
+@DATANEWDAY SHIPWRK.idf
+@DATALOAD SHIPWRK.idf &PLAYERNUM `p21
+@DO `p21 IS 0
+@datasave shipwrk.idf &playernum 0
+@do `p20 random 4 1
+@IF `p20 IS 1 THEN GOTO ARRIS
+@IF `p20 IS 2 THEN GOTO ARRIS
+@IF `p20 IS 3 THEN GOTO ARRIS
+@IF `p20 IS 4 THEN GOTO FERRY
+@END
+
+
+@#ARRIS
+@SHOW
+`r0`c `%`r1 Teleporting `r0
+`\`\`2 The walls of the ship seem to fad around you...
+
+`k`2 As your vision clears you realize you have arrived safely.
+
+`k
+@DO MONEY - 6000
+@LOADMAP 444
+@DO x IS 66
+@DO y IS 18
+@DRAWMAP
+@UPDATE
+@END
+
+@#FERRY
+@SHOW
+`r0`c `%`r1 Teleporting `r0
+`\`\`2 The walls of the ship seem to fad around you...
+
+`k`2 <Buuuurp>
+
+`k`2 Larkin chooses that moment to uncork a huge belch and you realize that
+ you may be in trouble.
+
+`k
+@DO QUEBAR
+`$ Well we made it half way. Could have been worse.
+@LOADMAP 215
+@DO x IS 59
+@DO y IS 15
+@DRAWMAP
+@UPDATE
+@END
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/show.ref b/xtrn/lord2/cnw/show.ref
new file mode 100644
index 0000000000000000000000000000000000000000..4457e15a4a1ec0330416d7568c3d217a448926e0
--- /dev/null
+++ b/xtrn/lord2/cnw/show.ref
@@ -0,0 +1,960 @@
+; Script file SHOW.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:32 2001
+
+@DECLARE sign2 000000580
+@DECLARE sign1 000000644
+@DECLARE greeter 000000731
+@DECLARE armor 000003001
+@DECLARE weapon 000003142
+@DECLARE item 000003325
+@DECLARE sell 000003533
+@DECLARE chances 000003641
+@DECLARE chancee 000007597
+@DECLARE skills 000007628
+@DECLARE skiller 000008471
+@DECLARE skillss 000011838
+@DECLARE warp 000011869
+@DECLARE warps 000011919
+@DECLARE warpd 000016276
+@DECLARE warpl 000018267
+@NOCHECK
+; End of .REF index
+
+;SpringFang's House of Wonders
+@#sign2
+@do moveback
+@do saybar
+`2Created by Thos Swallow
+
+@#sign1
+@do moveback
+@do saybar
+`3Spr`7ing`4Fa`6ng`2's House of Wonders `5v1.9
+
+@#greeter
+@do moveback
+@busy
+@offmap
+@clear screen
+@show
+`c
+
+ `2Welcome to `3Spr`7ing`4Fa`6ng`2's House of Wonders. There are four other
+ floors here, all interconnected to each other. Just so you won't
+ get confused or lost, each floor can be identified by the color of
+ the stairs leading to them. Let me tell you about each floor.
+ `k
+ `c
+ `@The Place of Purchases `2is a wonderful place. You can reach it
+ by taking the `%white `2stairs. You can buy nearly every weapon, armour,
+ or item there. There is also a place to sell your bulky items. As
+ well as all this, you can also buy more chances at doing things, and
+ you can also buy skills.
+ `k
+ `c
+ `8If you look on the `@Fightin' `8floor, there is a statue of the once
+ famed `4K`5C`8D, the one who destroyed the `4Red Dragon`8! It is said that if
+ you can beat his spirit in battle, you will gain the ultimate weapon.
+ `2But that's just a rumor. It is accessed by using the `1blue `2stairs.
+
+ `2The magical Mystic Eye is also supposed to be located there. It
+ allows you to transport back here at any time. Also, check out the
+ special level-up booth, and the monster booth. If you have any
+ questions about them, consult the info man that is there.
+ `k
+ `c
+ `@The Warp Zone `2is where you can purchase a membership and warp to
+ practically any town, city, shack, shanty, or any other notable place.
+ It is definitely worth your money. You can find it by taking the nice
+ `#pink `2stairs.
+ `k
+ `c
+ `2Finally, `3Spr`7ing`4Fa`6ng`@'s Lair `2is the home of our kind and generous
+ ruler. You can deposit money with him, have him heal you, go and
+ socialize with him, worship him, and have him declare you as the
+ `$Greatest Warrior in the Land`2, though, of course, everyone knows
+ that he is truly the greatest. You can see him by taking the `$yellow
+ `2stairs.
+ `k
+ `c
+ `2Well, that's the low-down on this magical, mysterious place. Hope
+ that all of your questions have been answered.
+
+ `4Enjoy your stay!
+
+`\`k
+@drawmap
+@update
+@closescript
+
+@#armor
+@offmap
+@do moveback
+@clear screen
+@show
+`c
+`\
+@buymanager
+ 10
+ 12
+ 13
+ 14
+ 37
+ 59
+ @end
+@drawmap
+@update
+
+@#weapon
+@offmap
+@do moveback
+@clear screen
+@show
+`c
+`\
+@buymanager
+ 1
+ 6
+ 4
+ 9
+ 15
+ 16
+ 60
+ 38
+ 35
+ 36
+ 49
+ 39
+ 59
+ 58
+ @end
+@drawmap
+@update
+
+@#item
+@offmap
+@do moveback
+@clear screen
+@show
+`c
+`\
+@buymanager
+ 1
+ 3
+ 5
+ 43
+ 20
+ 11
+ 17
+ 40
+ 29
+ 55
+ 66
+ 50
+ 28
+ 30
+ 32
+ 33
+ 27
+ 26
+ @end
+@drawmap
+@update
+
+@#sell
+@offmap
+@do moveback
+@clear screen
+@show
+`c
+`\
+ @sellmanager
+ @end
+@drawmap
+@update
+
+@#chances
+@do moveback
+@datanewday money.shw
+ @do `p20 is money
+ @do `p20 + bank
+@dataload money.shw &playernum `p21
+@if `p21 < `p20 then do
+@begin
+@datasave money.shw &playernum `p20
+@end
+@if `p20 < `p21 then `p20 is `p21
+ @do `p20 / 10
+ @do `p21 is `p20
+ @if `p21 < 1000 then `p21 is 1000
+ @do `p20 * 10
+ @do `p20 / 13
+ @do `p22 is `p20
+ @if `p22 < 5000 then `p22 is 5000
+ @do `p20 * 13
+ @do `p20 / 750
+ @do `p23 is `p20
+ @if `p23 < 30 then `p23 is 30
+ @do `p20 * 750
+ @do `p20 / 15
+ @do `p25 is `p20
+ @if `p25 < 500 then `p25 is 500
+ @do `p20 * 15
+ @do `p20 / 20
+ @do `p24 is `p20
+ @if `p24 < 300 then `p24 is 300
+ @do `p20 * 20
+ @do `p20 / 5
+ @if `p20 < 10000 then `p20 is 10000
+@show
+`c
+`r0`c `%`r1 The Chances Shop `r0
+
+ `2This is where you can buy more chances at "once a day" sorts of
+ things. Select what you would like another chance at. Each item
+ costs a certain percentage of the max amount of money you have had
+ today. There is, however, a minimum amount.
+
+`8You have $&money.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Gaining a level. `#(`2$`p20`#)
+Fighting in the arena. `#(`2$`p21`#)
+Going in Barak's house. `#(`2$`p22`#)
+Fishing. `#(`2$`p23`#)
+Quests. `#(`2$`p24`#)
+Turns. `#(`2$`p25 `5for 100 turns`#)
+Leave.
+@if responce is 1 then do
+ @begin
+ @if `T04 is 0 then do
+ @begin
+ @show
+ `c
+ `2"`@You haven't failed today yet! Fool!`2"
+ `\`k
+ @do goto chancee
+ @end
+ @if money LESS `p20 then do
+ @begin
+ @show
+ `c
+ `2"`@Try comeing back when you have enough money, you reject!`2"
+ `\`k
+ @do goto chancee
+ @end
+ @show
+ `c
+ `2"`@Let's just hope you don't screw up this time...`2"
+ `\`k
+ @do `T04 is 0
+ @do money - `p20
+ @end
+@if responce is 2 then do
+ @begin
+ @if bitcheck `t12 7 0 then do
+ @begin
+ @show
+ `c
+ `2"`@You haven't lost in the arena yet!`2"
+ `\`k
+ @do goto chancee
+ @end
+ @if money < `p21
+ @begin
+ @show
+ `c
+ `2"`@Um, you need at LEAST `0$`p21`@...`2"
+ `\`k
+ @do goto chancee
+ @end
+ @show
+ `c
+ `2"`@All done! Now you can fight in the Arena again!`2"
+ `\`k
+ @bitset `t12 7 0
+ @do money - `p21
+ @do goto chancee
+ @end
+@if responce is 3 then do
+ @begin
+ @dataload barmom.idf &playernum `p20
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `c
+ `2"`@Barak's mother hasn't thrown you out yet!`2"
+ `\`k
+ @do goto chancee
+ @end
+ @if money < `p22 then do
+ @begin
+ @show
+ `c
+ `2"`@You don't quite have the cash to pay for this.`2"
+ `\`k
+ @do goto chancee
+ @end
+ @datasave barmom.idf &playernum 0
+ @show
+ `c
+ `2"`@Now you can go and pick that lock again!`2"
+ `\`k
+ @do money - `p22
+ @do goto chancee
+ @end
+@if responce is 4 then do
+ @begin
+ @if money < `p23 then do
+ @begin
+ @show
+ `c
+ `2"`@You are truly sad. You don't even have `0`p23 `@measly dollars...`2"
+ `\`k
+ @do goto chancee
+ @end
+ @show
+ `c
+ `2"`@Well, there's one more fish you can catch... Hope it's a `0Sparkling
+ Green Salmon`@!`2"
+ `\`k
+ @do `T10 + 1
+ @do money - `p23
+ @do goto chancee
+ @end
+@if responce is 5 then do
+ @begin
+ @if money < `p24 then do
+ @begin
+ @show
+ `c
+ `2"`@It's `0$`p24 `@per quest, and I won't take anything less.`2"
+ `\`k
+ @do goto chancee
+ @end
+ @show
+ `c
+ `2"`@There's one more quest for ya!`2"
+ `\`k
+ @do `p31 + 1
+ @do money - `p24
+ @do goto chancee
+ @end
+@if responce is 6 then do
+ @begin
+ @if money < `p25 then do
+ @begin
+ @show
+ `c
+ `2"`0`p25 `@dollars isn't too much, is it?!?!?`2"
+ `\`k
+ @do goto chancee
+ @end
+ @show
+ `c
+ `2"`@One hundred more turns, coming right up!`2"
+ `\`k
+ @do `p11 + 100
+ @do money - `p25
+ @do goto chancee
+ @end
+@do goto chancee
+
+@#chancee
+@drawmap
+@update
+
+@#skills
+@do moveback
+ @do `p20 is money
+ @do `p20 + bank
+@datanewday money.shw
+ @do `p20 is money
+ @do `p20 + bank
+@dataload money.shw &playernum `p21
+@if `p21 < `p20 then do
+@begin
+@datasave money.shw &playernum `p20
+@end
+@if `p20 < `p21 then `p20 is `p21
+ @do `p20 / 10
+ @do `p21 is `p20
+ @if `p21 < 1000 then `p21 is 1000
+ @do `p20 * 10
+ @do `p20 / 6
+ @do `p22 is `p20
+ @if `p22 < 2000 then `p22 is 2000
+ @do `p20 * 6
+ @do `p20 / 20
+ @do `p23 is `p20
+ @if `p23 < 300 then `p23 is 300
+ @do `p20 * 20
+ @do `p20 / 20
+ @do `p25 is `p20
+ @if `p25 < 750 then `p25 is 750
+ @do `p20 * 20
+ @do `p20 / 5
+ @do `p24 is `p20
+ @if `p24 < 3000 then `p24 is 3000
+ @do `p20 * 5
+ @do `p20 / 18
+ @do `p95 is `p20
+ @if `p95 < 1000 then `p95 is 1000
+ @do `p20 * 18
+ @do `p20 / 19
+ @if `p20 < 500 then `p20 is 500
+
+@label skiller
+@show
+`c
+`r0`c `%`r1 The Skills Shop `r0
+
+ `2Level ups too slow for ya? Then this is the place for you. Just
+ show us the cash and we'll give you the stats. Each thing costs a
+ certain percent of the max cash you have had today.
+
+`8You have $&money.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Hit Points. `# (`2$`p21 `5per point`#)
+Positive Alignment. `# (`2$`p23 `5per point`#)
+Negative Alignment. `# (`2$`p23 `5per point`#)
+Strength. `# (`2$`p22 `5per point`#)
+Defense. `# (`2$`p24 `5per point`#)
+Quests. `# (`2$`p25 `5per point`#)
+Charm. `# (`2$`p20 `5per point`#)
+Gems. `# (`2$`p95 `5per gem`#)
+Leave.
+@if responce is 1 then do
+ @begin
+ @if money < `p21 then do
+ @begin
+ @show
+ `c
+ `2"`@Hey, cheapskate! I need `0`p21 `@bucks first!`2
+ `\`k
+ @do goto skiller
+ @end
+ @show
+ `c
+ `2"`@One more hit point for you!`2"
+ `\`k
+ @do `p03 + 1
+ @do money - `p21
+ @do goto skiller
+ @end
+@if responce is 2 then do
+ @begin
+ @if money < `p23 then do
+ @begin
+ @show
+ `c
+ `2"`@Alignment doesn't come that cheaply, freak!`2"
+ `\`k
+ @do goto skiller
+ @end
+ @show
+ `c
+ `2"`@Here's your alignment point!`2"
+ `\`k
+ @do `p07 + 1
+ @do money - `p23
+ @do goto skiller
+ @end
+@if responce is 3 then do
+ @begin
+ @if money < `p23 then do
+ @begin
+ @show
+ `c
+ `2"`@Alignment doesn't come that cheaply, freak!`2"
+ `\`k
+ @do goto skiller
+ @end
+ @show
+ `c
+ `2"`@We'll just subtract one alignment point, now.`2"
+ `\`k
+ @do `p07 - 1
+ @do money - `p23
+ @do goto skiller
+ @end
+@if responce is 4 then do
+ @begin
+ @if money < `p22 then do
+ @begin
+ @show
+ `c
+ `2"`@Strength is expensive round here...`2"
+ `\`k
+ @do goto skiller
+ @end
+ @show
+ `c
+ `2"`@You want strength? You got it!`2"
+ `\`k
+ @do `p04 + 1
+ @do money - `p22
+ @do goto skiller
+ @end
+@if responce is 5 then do
+ @begin
+ @if money < `p24 then do
+ @begin
+ @show
+ `c
+ `2"`@Dodge points are a precious commodity! Don't rip me off!`2"
+ `\`k
+ @do goto skiller
+ @end
+ @show
+ `c
+ `2"`@You oughta be able to dodge those monsters now!`2"
+ `\`k
+ @do `p05 + 1
+ @do money - `p24
+ @do goto skiller
+ @end
+@if responce is 6 then do
+ @begin
+ @if money < `p25 then do
+ @begin
+ @show
+ `c
+ `2"`@Come back when you've got the dough!`2"
+ `\`k
+ @do goto skiller
+ @end
+ @show
+ `c
+ `2"`@Now you've got a quest point, you cheater...`2"
+ `\`k
+ @do `p18 + 1
+ @do money - `p25
+ @do goto skiller
+ @end
+@if responce is 7 then do
+ @begin
+ @if money < `p20 then do
+ @begin
+ @show
+ `c
+ `2"`@You ugly jerk! I need `0$`p20`@!`2"
+ `\`k
+ @do goto skiller
+ @end
+ @show
+ `c
+ `2"`@My, my! You're a good lookin' one!`2"
+ `\`k
+ @do `p08 + 1
+ @do money - `p20
+ @do goto skiller
+ @end
+@if responce is 8 then do
+ @begin
+ @if money < `p95 then do
+ @begin
+ @show
+ `c
+ `2"`@You ain't getting any gems from me with that kind of money!`2"
+ `\`k
+ @do goto skiller
+ @end
+ @show
+ `c
+ `2"`@Yer a rich kid, now.`2"
+ `\`k
+ @do `p19 + 1
+ @do money - `p95
+ @do goto skiller
+ @end
+@if responce is 9 then do
+ @do goto skillss
+
+@#skillss
+ @drawmap
+ @update
+
+@#warp
+@offmap
+@do moveback
+@do goto warps
+
+@#warps
+@dataload swarp.shw &playernum `p20
+@if `p20 is 0 then do
+ @begin
+ @clear screen
+ @show
+ `c
+ `2You step up the the counter, and the man asks for your name.
+
+ `2"`$`n`2," you proudly state.
+
+ `2"`3Who?`2" He looks at you for a moment. "`3It would seem that you
+ do not have a membership yet. For a measly `0$5000 `3you can buy 30
+ warps.`2"
+
+ He eyes you once again. "`3Um, maybe that's a little steep for
+ the likes of you. You must understand, however, that from here you
+ can warp to any city or shack. Quests become a piece of cake once
+ you've bought a membership here, and found the Mystic Eye.`2" He stops
+ suddenly, clearing his throat. "`3Well, what will it be?`2"
+
+
+ @do `v01 is 1
+ @choice
+ Sounds good, man.
+ P'shah. I don't think so.
+ @if responce is 2 then do
+ @begin
+ @do goto warpl
+ @end
+ @if responce is 1 then do
+ @begin
+ @if money < 5000 then do
+ @begin
+ @show
+ `c
+ `2"Fool! You need `0$5000`2!!!" the man screams.
+ `\`k
+ @do goto warps
+ @end
+ @do money - 5000
+ @do `p20 is 30
+ @datasave swarp.shw &playernum `p20
+ @show
+ `c
+ `2"`3I'm glad you came to your senses, s&man. You now have a total of
+ `030 `3warps. Now, then. Where would you like to go?`2"
+ `\`k
+ @end
+ @end
+ @clear screen
+@show
+`c
+`r0`c `%`r1 The Warp Zone `r0
+ `0`p20 `8warps left.
+@do write
+`x`x
+@do `v01 is 1
+@choice
+StoneBrook Village
+StoneBrook
+Greentree
+Porttown
+Runion Castle
+Shrine of Babos
+Uncle's Cabin
+East Graveyard
+West Graveyard
+Snowypass - East
+Snowypass - West
+Flagcity
+Bonetown
+Sosen Village
+ArrisVille
+Dark Forest gate
+More...
+Forget it.
+@if response is 17 then do
+ @begin
+ @do goto warpd
+ @end
+@if response is 18 then do
+ @begin
+ @do goto warpl
+ @end
+@do `p20 - 1
+@datasave swarp.shw &playernum `p20
+@show
+`c
+`\`\ `0"`2Okay s&sir, here we go, compliments of `3Spr`7ing`4Fa`6ng`2!`0"
+
+ `2Quite suddenly, you are there!
+`\`k
+@if response is 1 then do
+ @begin
+ @do x is 1
+ @do y is 12
+ @do map is 1360
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 2 then do
+ @begin
+ @do x is 36
+ @do y is 7
+ @do map is 1359
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 3 then do
+ @begin
+ @do x is 48
+ @do y is 14
+ @do map is 1356
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 4 then do
+ @begin
+ @do x is 38
+ @do y is 14
+ @do map is 956
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 5 then do
+ @begin
+ @do x is 27
+ @do y is 17
+ @do map is 1274
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 6 then do
+ @begin
+ @do x is 52
+ @do y is 12
+ @do map is 1193
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 7 then do
+ @begin
+ @do x is 64
+ @do y is 12
+ @do map is 1595
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 8 then do
+ @begin
+ @do x is 46
+ @do y is 12
+ @do map is 1594
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 9 then do
+ @begin
+ @do x is 27
+ @do y is 10
+ @do map is 1593
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 10 then do
+ @begin
+ @do x is 3
+ @do y is 15
+ @do map is 1591
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 11 then do
+ @begin
+ @do x is 76
+ @do y is 12
+ @do map is 1497
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 12 then do
+ @begin
+ @do x is 71
+ @do y is 17
+ @do map is 1092
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 13 then do
+ @begin
+ @do x is 39
+ @do y is 18
+ @do map is 1572
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 14 then do
+ @begin
+ @do x is 32
+ @do y is 8
+ @do map is 456
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 15 then do
+ @begin
+ @do x is 26
+ @do y is 11
+ @do map is 523
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 16 then do
+ @begin
+ @do x is 31
+ @do y is 9
+ @do map is 1354
+ @loadmap &map
+@drawmap
+@update
+ @end
+@end
+
+@#warpd
+@show
+`c
+`r0`c `%`r1 The Warp Zone `r0
+ `0`p20 `8warps left.
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Tree House
+Music Cabin
+East Ferry
+West Ferry
+Koshi Entrance
+Dragon Tooth Castle
+Wizard Tower
+Castle ColdDrake
+StonePass Lodge
+Jack's Restaurant
+Back...
+Forget it.
+@end
+@if response is 11 then do
+ @begin
+ @do goto warps
+ @end
+@if response is 12 then do
+ @begin
+ @do goto warpl
+ @end
+@do `p20 - 1
+@datasave swarp.shw &playernum `p20
+@show
+`c
+`\`\ `0"`2Okay s&sir, here we go, compliments of `3Spr`7ing`4Fa`6ng`2!`0"
+
+ `2Quite suddenly, you are there!
+`\`k
+@if response is 1 then do
+ @begin
+ @do x is 37
+ @do y is 13
+ @do map is 1279
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 2 then do
+ @begin
+ @do x is 44
+ @do y is 8
+ @do map is 360
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 3 then do
+ @begin
+ @do x is 52
+ @do y is 12
+ @do map is 215
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 4 then do
+ @begin
+ @do x is 43
+ @do y is 14
+ @do map is 203
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 5 then do
+ @begin
+ @do x is 34
+ @do y is 12
+ @do map is 196
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 6 then do
+ @begin
+ @do x is 48
+ @do y is 10
+ @do map is 706
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 7 then do
+ @begin
+ @do x is 75
+ @do y is 4
+ @do map is 1255
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 8 then do
+ @begin
+ @do x is 46
+ @do y is 9
+ @do map is 320
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 9 then do
+ @begin
+ @do x is 35
+ @do y is 13
+ @do map is 880
+ @loadmap &map
+@drawmap
+@update
+ @end
+@if response is 10 then do
+ @begin
+ @do x is 14
+ @do y is 18
+ @do map is 1278
+ @loadmap &map
+@drawmap
+@update
+ @end
+
+@#warpl
+@drawmap
+@update
+
diff --git a/xtrn/lord2/cnw/show2.ref b/xtrn/lord2/cnw/show2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..de057d11d03f75ee7948a83b24f32aed5ca3b6b8
--- /dev/null
+++ b/xtrn/lord2/cnw/show2.ref
@@ -0,0 +1,649 @@
+; Script file SHOW2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:32 2001
+
+@DECLARE sstart 000000496
+@DECLARE kfirst 000002112
+@DECLARE ksecond 000002778
+@DECLARE send 000003417
+@DECLARE lair 000009870
+@DECLARE stuff 000010426
+@DECLARE challenge 000010462
+@DECLARE enter 000015048
+@DECLARE exit 000015431
+@DECLARE read 000015812
+@DECLARE readmore 000015912
+@DECLARE whoop 000016125
+@DECLARE pooh 000016422
+@DECLARE runner 000016722
+@NOCHECK
+; End of .REF index
+
+@#sstart
+ @do moveback
+ @offmap
+ @datanewday seye.shw
+ @clear screen
+ @dataload seye.shw &playernum `p20
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `c
+ `2The huge eye looms in front of you. You look at it for a moment,
+ and then touch it. Suddenly, in the air in front of you, some words
+ appear. You begin to read them...
+
+ `8Step lightly, friend, and not on one, but two.
+ If in the right order, then to the end with you.
+
+ `2Hmmm... Wonder what that means...
+
+ `\`k
+ @datasave seye.shw &playernum 1
+ @do goto stuff
+ @end
+ @if `p20 is 10 then do
+ @begin
+ @show
+ `c
+ `2You touch the eye, but nothing happens. You touch it again. Still,
+ nothing happens. Frustrated, you kick it. Suddenly, a strange and
+ painful light surrounds you.
+
+ `%Hit points go down to `#1`%!!
+
+ `\`k
+ @do `p02 = 1
+ @do goto stuff
+ @end
+ @if `p20 is 4 then do
+ @begin
+ @show
+ `c
+ `2You gently touch the huge eye. Nothing happens. You sit glumly
+ sit around for a moment before you realise that you've already solved
+ this puzzle.
+
+ `\`k
+ @do goto stuff
+ @end
+ @if `p20 > 0 then do
+ @begin
+ @show
+ `c
+ `2You reach out again and touch the eye. Some words appear again,
+ but this time, they appear to be different...
+
+ `8Only fools try to re-start something before they've finished it.
+ Try again later, once you've learned a little more.
+
+ `\`k
+ @datasave seye.shw &playernum 10
+ @do goto stuff
+ @end
+
+@#kfirst
+ @datanewday seye.shw
+ @dataload seye.shw &playernum `p20
+ @if `p20 is 1 then do
+ @begin
+ @do saybar
+ Nothing bad happens... You got the first one right!
+ @datasave seye.shw &playernum 2
+ @end
+ @if `p20 > 1 then do
+ @begin
+ @offmap
+ @clear screen
+ @show
+`c `2You step on the tile again, and a shock runs through your body.
+ You lose 15 hit points! And what's worse, the puzzle reset! You
+ won't be able to try again today!
+
+
+ `\`k
+ @do `p02 - 15
+ @if `p02 < 1 then do
+ @begin
+ @do `p02 is 1
+ @end
+ @datasave seye.shw &playernum 10
+ @do goto stuff
+ @end
+
+@#ksecond
+ @datanewday seye.shw
+ @dataload seye.shw &playernum `p20
+ @if `p20 is 2 then do
+ @begin
+ @do saybar
+ You've got them both! Now what?
+ @datasave seye.shw &playernum 3
+ @end
+ @if `p20 > 2 then do
+ @begin
+ @offmap
+ @clear screen
+ @show
+`c `2You step on the tile again, and a shock runs through your body.
+ You lose 15 hit points! And what's worse, the puzzle reset! You
+ won't be able to try again today!
+
+
+ `\`k
+ @do `p02 - 15
+ @if `p02 < 1 then do
+ @begin
+ @do `p02 is 1
+ @end
+ @datasave seye.shw &playernum 10
+ @do goto stuff
+ @end
+
+@#send
+ @do moveback
+ @offmap
+ @datanewday seye.shw
+ @clear screen
+ @dataload seye.shw &playernum `p20
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `c
+ `2The huge eye looms in front of you. You look at it for a moment,
+ and then touch it. Suddenly, in the air in front of you, some words
+ appear. You begin to read them...
+
+ `8You are too anxious. Patience is a virtue best learned
+ through pain. Here, warrior, is your first lesson.
+
+ `2Suddenly, thousands of stinging spiders come at you from within
+ the eye. They crawl all over, and continue to bite long after you've
+ died.
+`\`k
+ @do X is 27
+ @do Y is 7
+ @do money / 2
+ @do `p02 is `p03
+ @do `p20 is `p01
+ @do `p20 / 5
+ @do `p01 - `p20
+ @do MAP is 155
+ @do dead is 1
+ @update_update
+
+ @do addlog
+ `r5 `r0 `0`n`2 was a tad too anxious in the eye puzzle. `r5 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@pauseoff
+@show
+`r0`c
+[34C[0m���������������
+[29C���[1;30;47m����[0;47m�[1;30m�[0;47m�����������[40m�
+[28C�[1;30;47m����[0;47m������������������[40m�
+[27C�[1;30;47m����[0;47m��������[1;30m��[0;47m���������[40m�
+[19C��[5C�[1;30;47m����[0;47m����������[1;30m����[0;47m�����[40m
+[A[50C[47m[1;30m�[0m��
+[18C���� [1;30;47m�����[0;47m�����[1;30m� �[0;47m�[1;30m���[40m
+[A[43C[0;47m�����[1;30m�ܲ[0m�[47m�[1C[40m�[1;47m��[40m�
+[17C[30m�[47m�[0;47m��[1m�[0m� [1;30;47m���� [0;47m��[1;30m�[40m
+[A[34C[0;47m�[1;30m�����߰�[0;47m�[1;30m�[0;47m����[1;30m߲�[40m
+[A[52C[47m[0m�[1;30m�[47m�[0;47m�[1m�[40m�
+[17C[30;47m���[0;47m��[1m��[0m� [1;30m�[0m��� [1;30m�߲[47m[40m
+[A[37C[47m����[40m���[5C[0m��[1;30;47m�[40m�[47m��[0m� �
+[18C[1;30m���[47m��[0;47m� [1;30m�[1C[0m� [31m� [1;30m��
+[A[38C[47m���[40m� [0;31m� [37m��[1;30;47m�[40m�
+[23C[0m�[1;30;47m��[40m�[0m���� ��[1;30;47m�[0m��[1;30m�
+[A[41C[47m�[0m�� ��[1;47m�[0m�[1;30m�
+[25C[47m�[40m�[0m�[1;30;47m� [0;47m��[1;30m�����[0m� [1;30m� [0m�
+[A[42C[1;30;47m����[0;47m����[1m��[0m�
+[26C�[1;30;47m�[0;47m����[1;30mܲ��[0;47m�[2C[1;30;40m�� [47m��[40m
+[A[44C[47m�[0;47m�����[40m��
+[27C���[1;30;47m��[40m���[47m�[0m��[1;30;47m�����[40m��[0m� ����
+[29C[1;30m�� �� [0m��[1;30m�� �[0m�[1;30m� �� [47m��[0m�
+[27C�[1;30;47m���[40m� � [47m�[0m�[1;47m��[40m��[0m��[1;30;47m[40m
+[A[43C[47m�[40m� � [47m��[0;47m�[40m�
+[22C[1m� [47m��[30m��[40m� [0m� [1;30m� [0m� �[1m� �[0m� �
+[A[45C[1;30m��[47m�[1C[0m�[47m [1m�[40m���
+[19C�[47m�����[30m�[0m�� ���[1;30;47m�[0;47m�[40m�� ����� ��
+[A[45C[1;30;47m��[0;47m��[40m� �[1;30;47m�[37m��[40m�[47m�[40m
+[19C[0;31m� [37m���[1;30;47m�[40m�[0;33mܲ�� [37m�[1;47m��[30m[40m
+[A[34C[47m�[0;47m���[1;30m��[0;47m���� [1m��[0m� [33m���[1;30m�
+[A[53C[47m�[0m��[31m�
+[17C�����[37m�[1;30m�[0;31m���[33;41m����[40m� [37m�[1;47m�[40m
+[A[35C[0;47m��[1;30mܱ[40m�[47m��[40m�[47m�[37m�[0m� [31m�
+[A[48C[33;41m���[31;40m��[1;30m�[0;31m��۲��
+
+ `%You have made an error, s&boy.
+
+`k
+ @if `v03 is 0 then do
+ @begin
+ ;rules.ref file says unlimited deaths not allowed, so we will boot them
+ ;till tomorrow
+
+ ;take them off the map
+ @do map is 1
+ @halt
+ @end
+
+ @pauseon
+
+ @do dead is 0
+
+ @if `p07 less 0 then do
+ @begin
+ @show
+`r0`c`% `r1IT FEELS KINDA WARM IN HERE?`r0
+
+ `4You open your eyes.
+
+`k `4There are naked screaming people all around you. A little boy with
+ a ghastly face begins to gnaw on your leg.
+
+`k `6"Din, leave the newcomer alone. S&he isn't staying." `4a slow voice that
+ can only be described as an abomination dolefully states.
+
+`k `2You feel yourself floating away... faster and faster.
+ @end
+
+ @if `p07 more -1 then do
+ @begin
+ @show
+`r0`c`% `r1APPARENTLY DEATH ISN'T THE END.`r0
+
+ `2You open your eyes.
+
+`k `2You are lying on a table of solid rock in a marble room. Hundreds of
+ soft voices are murmuring all around you, but you see no one.
+
+`k `%"Send s&him back." `2a voice whispers, this one louder than the others.
+
+`k `2You feel yourself floating away... faster and faster.
+
+`k
+ @end
+
+
+@show
+`c `r1`%AWAKENING.`r0
+
+ `0"Can you hear me, `n?" `2a stressed voice shouts.
+
+ `$"Yeah. Christ mom, lemmie up, I'm fine." `2you assure your mother.
+
+ `0"You're alive!! The elders brought your body here yesterday, you must
+ have fainted out there." `2your mother shouts, tears of joy streaming down
+ her wrinkled face.
+
+ `$"Ok, ok - nice little happy reunion and all that, but I gotta hit the
+ road now. Buhbye." `2you tell her. Afterall, you need to make the most of
+ this new lease on life.
+
+ `2You lose `4half`2 the gold you were carrying and `4`p20`2 experience.
+
+`k
+ @loadmap map
+ @drawmap
+ @update
+
+ @datasave seye.shw &playernum 10
+ @end
+ @if `p20 is 10 then do
+ @begin
+ @show
+ `c
+ `2You touch the eye, but nothing happens. You touch it again. Still,
+ nothing happens. Frustrated, you kick it. Suddenly, a strange and
+ painful light surrounds you.
+
+ `%Hit points go down to `#1`%!!
+
+ `\`k
+ @do `p02 = 1
+ @do goto stuff
+ @end
+ @if `p20 is 4 then do
+ @begin
+ @show
+ `c
+ `2You gently touch the huge eye. Nothing happens. You sit glumly
+ sit around for a moment before you realise that you've already solved
+ this puzzle.
+
+ `\`k
+ @do goto stuff
+ @end
+ @if `p20 is 3 then do
+ @begin
+ @show
+ `c
+ `2You almost fondle the eye, and some words appear in the air.
+
+ `8You have done well, warrior. You have found the two triggers,
+ and in the right order. Now, can you find your prize?
+
+ `\`k
+ @datasave seye.shw &playernum 4
+ @do goto stuff
+ @end
+ @if `p20 > 0 then do
+ @begin
+ @show
+ `c
+ `2You reach out again and touch the eye. Some words appear again,
+ but this time, they appear to be different...
+
+ `8Only fools try to end something before it's actually finished.
+ Try again later, once you've learned a little more.
+
+ `\`k
+ @datasave seye.shw &playernum 10
+ @do goto stuff
+ @end
+
+@#lair
+ @do moveback
+ @if x is 48 then do
+ @begin
+ @if y is 3 then do
+ @begin
+ @offmap
+ @datanewday seye.shw
+ @clear screen
+ @dataload seye.shw &playernum `p20
+ @if `p20 is 4 then do
+ @begin
+ @show
+ `c
+ `2Searching along the wall, you discover a switch. Somewhat cautiously,
+ you flip it. The wall in front of you opens up, and some strange force
+ pulls you inside...
+
+ `\`k
+ @do x is 40
+ @do y is 17
+ @do map is 250
+ @loadmap &map
+ @drawmap
+ @update
+ @end
+ @end
+ @end
+
+@#stuff
+ @drawmap
+ @update
+
+@#challenge
+ @offmap
+ @do moveback
+ @datanewday seye.shw
+ @datanewday seyes.shw
+ @clear screen
+ @dataload seye.shw &playernum `p20
+ @if `p20 is 4 then do
+ @begin
+ @if `i83 is 0 then do
+ @begin
+ @show
+ `c
+ `2As you approach the man, he begins to stare into your eyes. You
+ almost swear that he was staring straight into your soul... You shake
+ visibly. He smiles at you and begins to speak.
+
+ "`8Hello there, young `0`n`8. My name is `4K`5C`8D, surely you've
+ heard of me...?`2"
+
+`k `2You gasp. `2"`$I..is it really you?`2"
+
+ "`8Yes, but I'm not the same as I used to be. I have grown old and
+ tired. I have passed on all my secrets and strengths to `3Spr`7ing`4Fa`6ng`8.
+ Though, he was hardly in need of them.`2"
+
+ "`$But I thought that statue on the Fightin' floor was a memorial to your
+ death?`2"
+
+ He laughs. "`8Yes, I had it built to make people believe that I truly
+ am dead. I wish for only intelligent, not neccessarily strong, people to
+ find me. Clearly, you are one of those people. Here, let me give you
+ something.`2"
+
+ @do `i83 is 1
+ @show
+`k He doesn't make a move, but your bag suddenly feels heavier...
+
+`k "`8I have given you the `0Mystic Eye`8. With it, you can travel back to
+ the lobby of this place at any time. Well, let's get on with it."
+ `\`k
+ @end
+ @if `i83 is 1 then do
+ @begin
+ @show
+ `c
+`r0`c `%`r1 KCD's Challenge Area `r0
+
+
+ `2"`8Welcome to the `@Challenge Area`8! How may I help you?`2"
+
+@do `v01 is 1
+@choice
+I want to challenge someone!
+See list of available competitors.
+Challenge Area? What is it?
+Leave.
+@if responce is 2 then do
+ @begin
+ @do goto read
+ @end
+ @if responce is 3 then do
+ @begin
+ @show
+ `c
+ `2"`8Ah, yes. The `@Challenge Area`8. It is where you can challenge
+ absolutely anyone who has ever entered `3Spr`7ing`4Fa`6ng`2's House of
+ Wonders`8. You will fight them right here, even if they are dead! If
+ you manage to defeat them, they won't actually lose any gold or
+ experience, but you will gain some. Also, if you lose, you won't really
+ die. It is wonderful! Only problems are that you can only challenge
+ the people who have entered, and that if they haven't come in in a
+ while, their stats will be out of date. Sorry.`2"
+
+ `\`k
+ @do goto challenge
+ @end
+@if responce is 4 then do
+ @begin
+ @do goto stuff
+ @end
+@if responce is 1 then do
+ @begin
+ @dataload seyes.shw &playernum `p20
+ @if `p20 < 5 then do
+ @begin
+ @show
+ `c
+ `2"`8Well, then. Who would you like to challenge?`2"
+
+ @chooseplayer `p22
+ @if `p22 is 0 then do
+ @begin
+ @show
+ `k
+ @do goto challenge
+ @end
+ @if `p22 is &playernum then do
+ @begin
+ @show
+ `c
+ `4K`5C`8D `2chuckles. "`8You can't challenge yourself. Sorry.`2"
+ `\`k
+ @do goto challenge
+ @end
+ @if challeng.`p22 exists true then do
+ @begin
+@do `s01 is getname `p22
+ @dataload challeng.`p22 3 `p21
+ @dataload challeng.`p22 6 `p24
+ @dataload challeng.`p22 4 `p20
+ @dataload challeng.`p22 5 `p23
+ @dataload challeng.`p22 2 `p95
+
+@do `p24 / 10
+@do `p22 random `p24 500
+
+@do `p91 random `p24 1000
+
+@do `p24 random `p20
+@do `p24 random `p20
+
+@do `p24 random `p20
+@do `p24 / 5
+@do `p20 - `p24
+
+@fight
+;name
+`s01
+;string said when you see him
+Now is your chance...
+;power move kill string
+You've destroyed them... Sort of...
+;sex - 1 is male, 2 is female, 3 is it
+`p95
+;weapon and strength for the weapon, up to 5
+hurts you|`p20
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+`p91
+;experience
+`p22
+;hit points
+`p21
+;if win: ref file|name or NONE
+SHOW2.REF|WHOOP
+;if lose: ref file|name or NONE
+SHOW2.REF|POOH
+;if runs: ref file|name or NONE
+SHOW2.REF|RUNNER
+ @end
+@do goto stuff
+@end
+@end
+
+@show
+`c
+ `2"`8Sorry, `0`n`8, but you have already had your `05`8 chances for
+ the day. Come back tomorrow.`2"
+
+ `\`k
+ @do goto stuff
+ @end
+ @end
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `c
+ `2You have either cheated to get in this room, or slept here for a
+ night. In either case, this man doesn't want to talk to you. In fact,
+ it doesn't look like he's going to want to see you until tomorrow...
+
+ `\`k
+ @datasave seye.shw &playernum 10
+ @routine meye in items.ref
+ @end
+
+ @do goto stuff
+
+@#enter
+ @datasave challeng.&playernum 1 &playernum
+ @datasave challeng.&playernum 2 sexmale
+ @datasave challeng.&playernum 3 `p03
+ @datasave challeng.&playernum 4 `p04
+ @datasave challeng.&playernum 5 `p05
+ @do `p29 is 1
+ @if sexmale is 0 then `p29 is 2
+ @datasave challeng.&playernum 6 `p29
+
+ @do x is 40
+ @do y is 17
+ @do map is 245
+ @loadmap &map
+ @do goto stuff
+
+@#exit
+ @datasave challeng.&playernum 1 &playernum
+ @datasave challeng.&playernum 2 sexmale
+ @datasave challeng.&playernum 3 `p03
+ @datasave challeng.&playernum 4 `p04
+ @datasave challeng.&playernum 5 `p05
+ @do `p29 is 1
+ @if sexmale is 0 then `p29 is 2
+ @datasave challeng.&playernum 6 `p29
+
+ @do x is 42
+ @do y is 3
+ @do map is 55
+ @loadmap &map
+ @do goto stuff
+
+@#read
+ @clear screen
+ @do `p21 is 1
+ @do `p25 is &totalaccounts
+ @do `p25 + 1
+ @label readmore
+ @if challeng.`p21 exist TRUE then do
+ @begin
+ @do `s01 is getname `p21
+ @show
+`s01
+ @end
+ @do `p21 + 1
+ @if `p21 < `p25 then goto readmore
+@show
+ `k
+@do goto challenge
+
+@#whoop
+ @do `p02 is `p03
+@dataload seyes.shw &playernum `p20
+@do `p20 + 1
+@datasave seyes.shw &playernum `p20
+
+ @do addlog
+ `r5 `r0 `0`n`2 has challenged `0`s01 `2and `!won`2! `r5 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@do goto stuff
+
+
+
+@#pooh
+ @do `p02 is `p03
+@dataload seyes.shw &playernum `p20
+@do `p20 + 1
+@datasave seyes.shw &playernum `p20
+
+ @do addlog
+ `r5 `r0 `0`n`2 has challenged `0`s01 `2and `!lost`2! `r5 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@do goto stuff
+
+
+
+@#runner
+ @do `p02 is `p03
+@dataload seyes.shw &playernum `p20
+@do `p20 + 1
+@datasave seyes.shw &playernum `p20
+
+ @do addlog
+ `r5 `r0 `0`n`2 has challenged `0`s01 `2and `!RAN AWAY`2!!! `r5 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@do goto stuff
diff --git a/xtrn/lord2/cnw/show3.ref b/xtrn/lord2/cnw/show3.ref
new file mode 100644
index 0000000000000000000000000000000000000000..1db40d9bb485fe19a775503201e7c6e3dfc58892
--- /dev/null
+++ b/xtrn/lord2/cnw/show3.ref
@@ -0,0 +1,767 @@
+; Script file SHOW3.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:33 2001
+
+@DECLARE springfang 000000385
+@DECLARE bankstart 000001430
+@DECLARE bankagain 000002644
+@DECLARE deposit 000003910
+@DECLARE withdraw 000004430
+@DECLARE turnstart 000005552
+@DECLARE dept 000006364
+@DECLARE withd 000007107
+@DECLARE spring 000015581
+@NOCHECK
+; End of .REF index
+
+@#springfang
+ @do moveback
+ @offmap
+ @datanewday show1.shw
+ @datanewday show2.shw
+ @clear screen
+ @show
+ `c
+ `2You approach the throne and see `3Spr`7ing`4Fa`6ng `2sitting there, looking
+ dangerous, kind, mean, and caring all at the same time. You remember
+ all the tales you've heard of him throughout your life, of how he was
+ the only apprentice of `4K`5C`8D `2that actually bested him in a duel.
+
+ "`4What can I do for you today, `0`n`4?`2" `3Spr`7ing`4Fa`6ng `2smiles warmly.
+
+ "`$Uh, um, well.... I want to`2"
+
+@do `v01 is 1
+@choice
+be healed.
+use the bank.
+do something with you.
+worship you!
+be declared as the greatest warrior!
+conduct business.
+do nothing.
+@if responce is 2 then do
+ @begin
+ @show
+ `c
+ `2"`4Would you like to use the turn bank or the money bank?`2"
+
+ @do `v01 is 1
+ @choice
+ Money Bank
+ Turn Bank
+ @if responce is 1 then do
+ @begin
+ @show
+ `c
+ `2"`4Sure thing. Here, let me bring up your account...`2"
+ `\`k
+ @label bankstart
+ @do `v01 is 1
+ @show
+`r0`c `r1 `%SpringFang's International Coffers `r0
+
+`2 `3Spr`7ing`4Fa`6ng `2looks at you expectantly.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with us.
+
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdraw.
+=&bank 0 Apply for an account here.
+Leave.
+@if response is 4 then goto springfang
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `3Spr`7ing`4Fa`6ng `2asks you to sit down.
+
+ `0"`4Your full name, s&boy?`0"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"`4Your current residence?`0"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"`4Your net income yearly?`0"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 2857365 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last question?!?? You only made `b2857365`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"`4How much would you like to open your account with?`0" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `3Spr`7ing`4Fa`6ng `2looks at you, dumbfounded.
+
+ `0"`4Listen, s&boy. You need at least `0$50 `4to open an account ANYWHERE.
+ Didn't you know that?`0"
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"`4Well, then. We'll be anxiously awaiting your return!`0"
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"`4S&Boy, `$$50 `0is required to open a new account!`0"
+ @do goto bankagain
+ @end
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"`4Very good, s&boy! Your new account has been opened!`0"
+
+`k
+ @do goto bankstart
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"`4Deposit how much, s&boy?`0"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"`4Withdraw how much, s&boy?`0"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookkeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"`4Very well, s&boy! This will close your account with us, are you sure you wish
+ to do that?`0" `3Spr`7ing`4Fa`6ng `2states calmly.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+No. I don't know WHAT I was thinking.
+Yes. I am an idiot.
+@if response is 1 then goto bankstart
+
+ @end
+
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+ @end
+@end
+@end
+@end
+@end
+ @if responce is 2 then do
+ @begin
+ @show
+ `c
+ `2"`4Sure thing. Here, let me bring up your account...`2"
+ `\`k
+ @do `p22 is money
+ @do `p22 + bank
+ @do `p22 / 5
+ @if `p22 < 750 then `p22 is 750
+ @label turnstart
+ @dataload sturn.shw &playernum `p20
+
+ @do `v01 is 1
+ @show
+`r0`c `r1 `%SpringFang's Turn Bank `r0
+
+`2 `3Spr`7ing`4Fa`6ng `2looks at you expectantly.
+
+@if `p20 more 0 then do
+ @begin
+ @show
+`2 You have `$`p11 `2turns, your account is at `$`p20 `2turns.
+
+ @end
+
+@if `p20 is 0 then do
+ @begin
+ @show
+`2 You have `$`p11 `2turns, you don't have an account.
+
+ @end
+
+ @show
+ `2 It will cost you `0$`p22 `2to make a withdrawl or deposit.
+ `8 You have $&money.
+
+@do write
+`x`x
+@choice
+Make a deposit.
+Make a withdraw.
+Leave.
+@if response is 3 then goto springfang
+@if response is 1 then do
+ @begin
+ @if money < `p22 then do
+ @begin
+ @show
+ `c
+ `2You don't have enough money!
+ `\`k
+ @do goto springfang
+ @end
+ @show
+ `c
+
+
+ @do write
+`\
+ @label dept
+ @do write
+`\ `0"`4Deposit how many turns, s&boy?`0"`\`\`x`x
+ @do readnum 10 `p11
+ @if `v40 more `p11 then do
+ @begin
+ @show
+`\`\ `2You don't have that many turns...
+ @do goto dept
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto dept
+ @end
+
+ @if `v40 is 0 then do
+ @begin
+ @do goto turnstart
+ @end
+
+ @do `p11 - `v40
+ @do `p20 + `v40
+ @do money - `p22
+ @datasave sturn.shw &playernum `p20
+ @do goto turnstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @if money < `p22 then do
+ @begin
+ @show
+ `c
+ `2You don't have enough money!
+ `\`k
+ @do goto springfang
+ @end
+ @show
+ `c
+
+ @do write
+`\
+ @label withd
+ @do write
+`\ `0"`4Withdraw how many turns, s&boy?`0"`\`\`x`x
+ @do `p21 is `p20
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more `p20 then do
+ @begin
+ @show
+`\`\ `2Your account isn't that large!
+ @do goto withd
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withd
+ @end
+
+ @if `v40 is 0 then do
+ @begin
+ @do goto turnstart
+ @end
+
+ @do `p11 + `v40
+ @do `p20 - `v40
+ @do money - `p22
+ @datasave sturn.shw &playernum `p20
+ @do goto turnstart
+ @end
+@end
+@end
+@end
+@end
+
+@if responce is 1 then do
+ @begin
+ @do `v01 is 1
+ @show
+`r0`c `%`r1 SpringFang the Healer `r0
+
+`2 `3Spr`7ing`4Fa`6ng `2looks you over for wounds.
+
+@do write
+`x`x
+@if `p02 = `p03 then do
+ @begin
+@show
+`0"`4You have no ailments, come back later,`0" `3Spr`7ing`4Fa`6ng `2states.
+
+`k
+ @do goto springfang
+ @end
+
+@if `p02 < `p03 then do
+ @begin
+@do `p20 is `p03
+@do `p20 - `p02
+@do `p20 / 2
+
+
+ @show
+`0"`4You don't look so good, friend! I'll fix ya up for `$`p20`0 gold, ok?`0"
+
+@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"`4Sorry s&boy, I can't do it for free.`0"
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @do goto springfang
+ @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
+ @drawmap
+ @update
+ @closescript
+ @end
+ @end
+ @drawmap
+ @update
+ @closescript
+ @do goto springfang
+@end
+
+ @if responce is 6 then do
+ @begin
+ @do `p20 is 9
+ @run getquest in quest.ref
+ @end
+@if responce is 3 then do
+ @begin
+ @dataload show1.shw &playernum `p20
+ @if `p20 is 1 then do
+ @begin
+ @show
+ `c
+ `2You've already done all you can with him today.
+ `\`k
+ @do goto springfang
+ @end
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `c
+ `2He thinks for a while and then says:
+
+ "`4Well, all right. What would you like to do?`2"
+`\`k
+ @do `p20 random 3 1
+ @if `p20 is 1 then do
+ @begin
+ @show
+ `c
+ `2You decide to go have a picnic in GreenTree. You both have lots
+ of fun and become good friends.
+
+ `2Just as he leaves, `3Spr`7ing`4Fa`6ng `2gives you 3 gems!
+
+ `^You gain 3 gems!
+ `\`k
+ @do `p19 + 3
+ @datasave show1.shw &playernum 1
+ @do x is 32
+ @do y is 15
+ @do map is 147
+ @loadmap &map
+ @do goto spring
+ @end
+ @if `p20 is 2 then do
+ @begin
+ @show
+ `c
+ `2You decide to go have a walk on the beach. `3Spr`7ing`4Fa`6ng `2shows
+ you the best spots, and you stop at the observation deck.
+
+ `2He suddenly has to go, but gives you his best wishes and $500!
+
+ `^You gain 500 gold!
+ `\`k
+ @do money + 500
+ @datasave show1.shw &playernum 1
+ @do x is 55
+ @do y is 9
+ @do map is 800
+ @loadmap &map
+ @do goto spring
+ @end
+ @if `p20 is 3 then do
+ @begin
+ @if sexmale is 0 then do
+ @begin
+ @show
+ `c
+ `2You decide to go swimming. You swim all over and have quite an
+ experience! `3Spr`7ing`4Fa`6ng shows you some of the better ways to
+ enjoy swimming.
+
+ `^You gain 4 charm!
+ `\`k
+ @do `p08 + 4
+ @datasave show1.shw &playernum 1
+ @do x is 60
+ @do y is 12
+ @do map is 1033
+ @loadmap &map
+ @do goto spring
+ @end
+ @if sexmale is 1 then do
+ @begin
+ @show
+ `c
+ `2You go down to the Red Dragon Inn and he buys you a drink. You
+ notice that he doesn't drink at all. He must care more about his image
+ than you do about yours. Hmmmm...
+
+ `^You gain 4 charm!
+ `\`k
+ @do `p08 + 4
+ @datasave show1.shw &playernum 1
+ @do x is 26
+ @do y is 5
+ @do map is 159
+ @loadmap &map
+ @do goto spring
+ @end
+ @end
+ @end
+ @end
+@if responce is 4 then do
+ @begin
+ @dataload show2.shw &playernum `p20
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `c
+ `2You fall on your knees in front of `3Spr`7ing`4Fa`6ng `2and begin to
+ worship him.
+
+ `2He rushes over and lifts you up.
+
+ "`4There's no need for that! Here, though, let me reward you...`2"
+
+ @do `p20 random 3 1
+ @if `p20 is 1 then do
+ @begin
+ @show
+ `^You gain 5 hit points!
+ `\`k
+ @do `p03 + 5
+ @end
+ @if `p20 is 2 then do
+ @begin
+ @show
+ `^You gain 2 strength!
+ `\`k
+ @do `p04 + 2
+ @end
+ @if `p20 is 3 then do
+ @begin
+ @show
+ `^You gain 1 dodge!
+ `\`k
+ @do `p05 + 1
+ @end
+ @datasave show2.shw &playernum 1
+ @do addlog
+ `r5 `r0 `0`n`2 has been seen worshiping `3Spr`7ing`4Fa`6ng`2! `r5 `r0
+ @writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+ @do goto springfang
+ @end
+ @if `p20 is 1 then do
+ @begin
+ @show
+ `c
+ `2You've already humiliated yourself enough today...
+ `\`k
+ @end
+ @do goto springfang
+ @end
+@if responce is 5 then do
+ @begin
+ @dataload grshow.shw 1 `p20
+ @if `p20 not 0 then do
+ @begin
+ @if `p20 not &playernum then do
+ @begin
+ @dataload grshow.shw 2 `p95
+ @do `s01 is getname `p20
+ @show
+ `c
+ `2"`4I'm sorry, friend, but `0`s01 `4is currently the greatest warrior in
+ the land. You will have to defeat them before you can claim the title.
+ If you do, you will win `0$`p95`4.`2"
+ `\`k
+ @do goto springfang
+ @end
+ @end
+ @if &playernum is `p20 then do
+ @begin
+ @dataload grshow.shw 2 `p95
+ @show
+ `c
+ `2"`4Oh, my poor, sad `0`n`4. Don't you realise that I have already
+ proclaimed you as the greatest? You will retain the title until someone
+ actually kills you.`2"
+
+ `2"`4The prize for beating you is currently set at `0$`p95`4!`2"
+
+
+
+ @do `v01 is 1
+ @choice
+ Oh, heh, silly me...
+ I wish to withdraw the title.
+ @if responce is 1 then do
+ @begin
+ @do goto springfang
+ @end
+ @if responce is 2 then do
+ @begin
+ @show
+ `c
+ `2"`4Very well. The title `$Greatest Warrior in the Land `4is now up
+ for grabs. You are just a lowly nothing. Oh, here is your money.`2"
+
+ `2You get your `p95 dollars back.
+ `\`k
+ @do money + `p95
+ @do delete grshow.shw
+ @do addlog
+ `r5 `r0 `0`n`2 has withdrawn s&his title of `$Greatest Warrior in the Land`2! `r5 `r0
+ @writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+ @do goto springfang
+ @end
+ @end
+ @show
+ `c
+ `2"`4Ah. You wish to proclaim yourself as the greatest? Well, you
+ know then that you must give me some money to give you the title. You
+ choose the amount. If someone finds you and kills you, they will get
+ the money, and you will lose your title. The title will then be
+ available for anyone else who thinks that they deserve it. Um, do you
+ wish to continue?`2"
+
+
+ @do `v01 is 1
+ @choice
+ Yes, I already knew all that!
+ No. Sounds like a death wish.
+ @if responce is 2 then do
+ @begin
+ @do goto springfang
+ @end
+ @if responce is 1 then do
+ @begin
+ @show
+ `c
+ `2"`4How much money are you willing to stake on this title?`2"
+
+
+
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+ `2You need to put in SOMETHING!
+ `\`k
+ @do goto springfang
+ @end
+ @if `v40 more money then do
+ @begin
+ @show
+
+ `2You don't have that much money! I guess you don't really want the
+ title?
+ `\`k
+ @do goto springfang
+ @end
+ @datasave grshow.shw 1 &playernum
+ @datasave grshow.shw 2 `v40
+ @do `s01 is `n
+ @do money - `v40
+ @show
+ `c
+ `2"`4It is done. `0`n, `4you are now the `$Greatest Warrior in the Land`4.
+ At least, you have the title, but I'd watch my back if I were you...`2"
+ `\`k
+ @do addlog
+ `r5 `r0 `0`n`2 is now the `$Greatest Warrior in the Land`2! `r5 `r0
+ @writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@end
+@do goto springfang
+@end
+ @if responce is 7 then do
+ @begin
+ @do goto spring
+ @end
+
+@#spring
+ @drawmap
+ @update
diff --git a/xtrn/lord2/cnw/show4.ref b/xtrn/lord2/cnw/show4.ref
new file mode 100644
index 0000000000000000000000000000000000000000..408c9ddb51e2aba47c48278d39ad096f450c6638
--- /dev/null
+++ b/xtrn/lord2/cnw/show4.ref
@@ -0,0 +1,520 @@
+; Script file SHOW4.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:33 2001
+
+@DECLARE info 000000626
+@DECLARE infos 000002498
+@DECLARE raises 000002546
+@DECLARE startfights 000003813
+@DECLARE springy1 000004192
+@DECLARE win 000004784
+@DECLARE die 000005321
+@DECLARE wakeup 000005525
+@DECLARE levelup 000005725
+@DECLARE levels 000005838
+@DECLARE ok 000005867
+@DECLARE statue 000005898
+@DECLARE stat 000008150
+@DECLARE statue1 000008184
+@DECLARE statue2 000008718
+@DECLARE statue3 000009292
+@DECLARE won1 000009809
+@DECLARE won2 000010076
+@DECLARE won3 000010386
+@NOCHECK
+; End of .REF index
+
+@#info
+@do moveback
+@busy
+@offmap
+@clear screen
+@show
+`c
+ `2This is the fightin' zone! To my left is the level up castle, and
+ to my right is the monster cave. Which would you like to learn more
+ about?
+
+@do `v01 is 1
+@choice
+Level Up Castle
+Monster Cave
+Neither
+@if responce is 1 then do
+ @begin
+ @show
+ `c
+ `2That is simply a place where you can level up, just like Barak's
+ Training Center. If you fail here, though, it won't count as a failure
+ at Barak's.
+
+ `3Spr`7ing`4Fa`6ng `2doesn't believe in that stupid Nightmare Dream leveling
+ crap. He prefers to fight you himself, so that he can truly judge if
+ you are worthy or not. Don't worry though, he won't go at you with all
+ his might. He's really very kind.
+ `\`k
+ @do goto infos
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+ `c
+ `2At the monster cave, you enter a dank, dark, deadly, and mysterious
+ cavern, where there are several random monsters and events for you to run
+ into. Each time you enter it, you lose 5 turns. Plus, some of the events
+ do some really horrible things. Some are good though. Anyway, about the
+ monsters you fight...
+
+ There are three groups of monsters, each consisting of 7 individual
+ monsters. You can fight the first group from level 1 to level 20, the
+ second from 21 to 40, and the third from 41 on. You will still fight the
+ monsters from the earlier groups, as well as encounter the same events,
+ when you are on the harder groups. There will just be some new ones as
+ well. Oh, and yes, you CAN really die there. It saves you the problem
+ of haveing to walk around and waste tons of turns trying to get in a
+ fight.
+
+ `\`k
+ @do goto infos
+ @end
+@if responce is 3 then do
+ @do goto infos
+
+@#infos
+ @drawmap
+ @update
+ @closescript
+
+@#raises
+;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 exactly `%`p21`0 more experience before your next level raise!"
+
+ `2Man, that SUCKS!!
+
+`k
+@run levels
+@closescript
+@end
+
+ @dataload show3.shw &playernum `p20
+ @if `p20 is 1 then do
+ @begin
+ @show
+
+
+ `0"You can try again tomorrow."
+
+ `2You glumly leave...
+
+`k
+@do goto levels
+@closescript
+@end
+
+
+ @show
+
+
+ `0"You have been sitting at level `p09 long enough."
+
+@if `p09 IS 1 then do
+ @begin
+ @show
+ `$"Cool! So where is the master I fight?" `2you beam with pride.
+
+`k `0"Master? Why, you get to fight `3Spr`7ing`4Fa`6ng`0 himself!" `2the booth
+ master exclaims.
+
+ `2Alright! A chance against the master himself!
+
+@end
+@show
+`k
+`c `r1`4 HAVING FUN WITH SPRINGFANG `r0
+
+`2 The Booth master leads you into the throne room.
+
+ "This s&boy thinks they can defeat you and become a s&man!"
+
+`k `3Spr`7ing`4Fa`6ng `2looks up. `2"`4Well, we'll have to go easy on s&him, then!`2"
+
+ He comes at you hog-tied. This should be easy!
+
+`k
+@do goto startfights
+@closescript
+
+@#startfights
+
+;do math to create monster
+
+@do `p21 is `p03
+@do `p25 is `p09
+;@do `p25 * `p25
+@do `p25 random `p25
+@do `p21 + `p25
+
+@do `p22 is S&wep_num
+@do `p22 + `p04
+
+@do `p23 is S&arm_num
+@do `p23 + `p05
+
+@do `p24 random `p22
+@do `p21 + `p24
+@do `p24 random `p22
+@do `p21 - `p24
+
+@do `p24 random `p22
+@do `p24 / 5
+@do `p22 - `p24
+
+@routine springy1
+
+@#springy1
+@fight
+;name
+`3Spr`7ing`4Fa`6ng
+;string said when you see him
+Man, he doesn't look so tough NOW...
+;power move kill string
+You catch him off guard and send him to the floor!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+slashes you|`p22
+hops on you|`p22
+chokes you|`p22
+slaps you|`p22
+hurts you|`p22
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+SHOW4.REF|WIN
+;if lose: ref file|name or NONE
+SHOW4.REF|DIE
+;if runs: ref file|name or NONE
+SHOW4.REF|WAKEUP
+@closescript
+
+@#WIN
+
+@do `p21 is 5
+@do `p03 + `p21
+
+@do `p22 is 2
+@do `p04 + `p22
+
+@do `p23 is 1
+@do `p05 + `p23
+
+
+@do `p09 + 1
+
+@do addlog
+ `r5 `r0 `0`n`2 has beaten `3Spr`7ing`4Fa`6ng `2and become level `p09! `r5 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@do `p02 is `p03
+@show
+`r0`c `r1 YOU HAVE FACED A HOG-TIED MAN AND TRIUMPHED! `r0
+
+ `2You feel proud.
+
+ `%YOU ARE NOW LEVEL `p09.
+
+ `2You gain `0`p21`2 hitpoints,`0 `p22`2 muscle and `0`p23`2 dodge.
+
+`k
+@run levels
+
+@#DIE
+@do `p02 is 1
+@datasave show3.shw &playernum 1
+@show
+`r0`c `r4 YOUR HOG-TIED BETTER HAS BESTED YOU `r0
+
+ `2You scream as you hit the ground.
+
+ You have failed.
+
+`k
+@run levels
+
+@#WAKEUP
+@datasave show3.shw &playernum 1
+@show
+`r0`c `r4 YOU ESCAPE - THE ONLY WAY YOU KNOW HOW `r0
+
+ `2You run away, as `3Spr`7ing`4Fa`6ng `2sits there and laughs...
+
+`k
+@run levels
+
+@#levelup
+ @do moveback
+ @busy
+ @offmap
+ @datanewday show3.shw
+ @clear screen
+ @run raises
+ @end
+
+@#levels
+ @drawmap
+ @update
+
+@#ok
+@drawmap
+@update
+
+@#statue
+ @do moveback
+ @offmap
+ @dataload statue.shw &playernum `p20
+ @clear screen
+ @show
+ `c
+ `2You gaze upon the great statue of `4K`5C`8D`2. You can't help but stand
+ in awe of his carved majesty. It almost seems as if it could come
+ to life... There is an inscription on the base. It reads:
+
+ `6Whoever shall touch the hilt of `4K`5C`8D`6's sword and prove
+ s&himself worthy shall gain the greatest weapon of all.
+
+@if `i83 is 0 then do
+ @begin
+ @show
+ `2Below the inscription is a hole. It looks as if you need to put
+ something in it before anything will happen...
+
+ `2You don't have it yet. Come back later...
+
+ @end
+
+@if `i83 is 1 then do
+ @begin
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2The `0Mystic Eye `2fits inside the hole perfectly. Do you want
+ to touch the hilt?
+
+ @end
+@end
+ @if `p20 is 1 then do
+ @begin
+ @show
+ `2The armour is nice, but don't you want the `0sword`2?
+
+ @end
+@if `p20 is 2 then do
+ @begin
+ @show
+ `2You've already gotten the Armour and the Sword. There isn't
+ anything else.
+
+ @end
+ @do `v01 is 1
+ @choice
+=`i83 1 <`p20 2 Heck no!
+=`p20 2 I'm done here...
+=`i83 0 I can't do anything right now...
+=`i83 1 =`p20 0 Touch the hilt!
+=`i83 1 =`p20 1 Um... Sure....
+@if responce is 4 then do
+ @begin
+ @show
+ `c
+ `2You reach up confidently and touch the sword hilt.
+
+ Nothing happens.
+
+ Suddenly, the huge statue turns toward you and, oddly enough,
+ it begins to taunt you...
+ `\`k
+ @drawmap
+ @update
+ @do goto statue2
+ @end
+@if responce is 5 then do
+ @begin
+ @show
+ `c
+ `2Hesitatingly, you finger the sword hilt. The statue appears to break
+ apart, and `4K`5C`8D`2(?) comes at you from inside of it!
+
+ `2"`8So, you think that you are worthy of this sword. Let us see how
+ well you do against it!`2"
+
+ Suddenly, he raises his sword and charges you!
+ `\`k
+ @drawmap
+ @update
+ @do goto statue3
+ @end
+@if responce is 1 then do
+ @begin
+ @do goto stat
+ @end
+@if responce is 2 then do
+ @begin
+ @do goto stat
+ @end
+@if responce is 3 then do
+ @begin
+ @do goto stat
+ @end
+
+@#stat
+ @drawmap
+ @update
+
+@#statue1
+@fight
+;name
+`4K`5C`8D`2's Spirit
+;string said when you see him
+Oh crap...
+;power move kill string
+The spirit vanishes...
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+possesses you|700
+screeches|625
+slashes at you|676
+flits around|701
+does stuff|686
+;defense
+650
+;gold reward
+1000
+;experience
+1500
+;hit points
+3000
+;if win: ref file|name or NONE
+SHOW4.REF|WON1
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#statue2
+@fight
+;name
+`4K`5C`8D`2's Statue
+;string said when you see him
+Did that statue just move?
+;power move kill string
+It crumbles, but comes back together...
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+lands on you|700
+starts an earthquake|725
+throws rocks|776
+jumps around|801
+sits down|786
+;defense
+800
+;gold reward
+2000
+;experience
+3000
+;hit points
+6000
+;if win: ref file|name or NONE
+SHOW4.REF|WON2
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#statue3
+@fight
+;name
+`4K`5C`8D
+;string said when you see him
+I thought he was dead...?
+;power move kill string
+What a wimp! HA!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+attacks|1000
+slices|925
+dices|986
+juliennes|910
+laughs at you|975
+;defense
+1000
+;gold reward
+20000
+;experience
+10000
+;hit points
+10000
+;if win: ref file|name or NONE
+SHOW4.REF|WON3
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#won1
+ @do addlog
+ `r5 `r0 `0`n`2 has beaten `4K`5C`8D`2's Spirit! `r5 `r0
+ @writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@show
+`c
+ `2You didn't get anything! Maybe you NEED something?
+ `\`k
+@do goto stat
+
+@#won2
+ @do addlog
+ `r5 `r0 `0`n`2 has beaten `4K`5C`8D`2's Statue! `r5 `r0
+ @writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@show
+`c
+ `2You get the `4K`5C`8D `2Armor!
+ `\`k
+ @do `i84 is 1
+ @datasave statue.shw &playernum 1
+@do goto stat
+
+@#won3
+@do `i85 is 1
+ @datasave statue.shw &playernum 2
+ @do addlog
+ `r5 `r0 `0`n`2 has beaten `4K`5C`8D`2!!!!!!!!!! `r5 `r0
+ @writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@show
+`c
+ `2You get the `4K`5C`8D `2Sword!
+ `\`k
+@do goto stat
+
diff --git a/xtrn/lord2/cnw/show5.ref b/xtrn/lord2/cnw/show5.ref
new file mode 100644
index 0000000000000000000000000000000000000000..6e1fd5d3a404ef627aab42612a1db0affabe6448
--- /dev/null
+++ b/xtrn/lord2/cnw/show5.ref
@@ -0,0 +1,952 @@
+; Script file SHOW5.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:33 2001
+
+@DECLARE up 000000974
+@DECLARE monsters 000001007
+@DECLARE show1 000001692
+@DECLARE show2 000002220
+@DECLARE show3 000002745
+@DECLARE show4 000003280
+@DECLARE show5 000003802
+@DECLARE show6 000004311
+@DECLARE show7 000004827
+@DECLARE show11 000005354
+@DECLARE show12 000005877
+@DECLARE show13 000006407
+@DECLARE show14 000006935
+@DECLARE show15 000007477
+@DECLARE show16 000007990
+@DECLARE show17 000008505
+@DECLARE show21 000009004
+@DECLARE show22 000009525
+@DECLARE show23 000010062
+@DECLARE show24 000010624
+@DECLARE show25 000011170
+@DECLARE show26 000011673
+@DECLARE show27 000012193
+@DECLARE show8 000012735
+@DECLARE show9 000013428
+@DECLARE show10 000014211
+@DECLARE show18 000014592
+@DECLARE show19 000014965
+@DECLARE show20 000015527
+@DECLARE show28 000016144
+@DECLARE show29 000016692
+@DECLARE show30 000017368
+@NOCHECK
+; End of .REF index
+
+@#up
+@drawmap
+@update
+
+@#monsters
+ @show
+ `c
+`r0`c `%`r1 Monster Cave `r0
+
+
+ `2"`3Welcome to the Monster Cave! What would you like to do?`2"
+
+ @do `v01 is 1
+ @choice
+ Explore the dank, dark, deadly, and mysterious cave!
+ Leave.
+ @if responce is 2 then do
+ @begin
+ @do goto up
+ @end
+
+ @if responce is 1 then do
+ @begin
+ @clear screen
+ @do `p11 - 5
+ @if `p09 < 21 then do
+ @begin
+ @do `p20 random 10 1
+ @do goto show`p20
+ @end
+
+ @if `p09 > 20 then do
+ @begin
+ @if `p09 < 41 then do
+ @begin
+ @do `p20 random 20 1
+ @do goto show`p20
+ @end
+ @end
+
+ @if `p09 > 40 then do
+ @begin
+ @do `p20 random 30 1
+ @do goto show`p20
+ @end
+ @end
+
+@#show1
+@fight
+;name
+Square
+;string said when you see him
+What's that block approaching?
+;power move kill string
+You carve it into a triangle! HA!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+corners you|30
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+30
+;gold reward
+30
+;experience
+30
+;hit points
+30
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show2
+@fight
+;name
+Skipping School Child
+;string said when you see him
+You hear singing?
+;power move kill string
+Let's see him skip now!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+skips on your head|56
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+78
+;gold reward
+5
+;experience
+70
+;hit points
+70
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show3
+@fight
+;name
+Mr. Piano Man
+;string said when you see him
+Bad chords coming this way...
+;power move kill string
+You chop him into firewood.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+bangs some chords|100
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+50
+;gold reward
+78
+;experience
+89
+;hit points
+100
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show4
+@fight
+;name
+Weakling
+;string said when you see him
+Here comes a wimp!
+;power move kill string
+Eh, he wasn't much of a challenge.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+feebly strikes|20
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+10
+;gold reward
+50
+;experience
+47
+;hit points
+350
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show5
+@fight
+;name
+Painting
+;string said when you see him
+Ach! It hurts your eyes!
+;power move kill string
+Hmph! Modern art!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+spews fumes|70
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+60
+;gold reward
+50
+;experience
+40
+;hit points
+80
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show6
+@fight
+;name
+Mouse
+;string said when you see him
+Something scurries over.
+;power move kill string
+One more tail for ya!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+nibbles your toes|50
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+100
+;gold reward
+89
+;experience
+78
+;hit points
+100
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show7
+@fight
+;name
+Piece of Carpet
+;string said when you see him
+Is that shag you see?
+;power move kill string
+"I prefer hardwood!" you scream.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+carpet burns|10
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+11
+;gold reward
+12
+;experience
+13
+;hit points
+9
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show11
+@fight
+;name
+Sage
+;string said when you see him
+Aw, here comes a cute little doggy...
+;power move kill string
+You lob off her head.
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+bites you|300
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+250
+;gold reward
+100
+;experience
+75
+;hit points
+200
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show12
+@fight
+;name
+Fritz
+;string said when you see him
+A cow-like cat approaches...
+;power move kill string
+You throw the bloody carcass....far.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+scratches|250
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+217
+;gold reward
+115
+;experience
+68
+;hit points
+150
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show13
+@fight
+;name
+Twilight
+;string said when you see him
+The evening approaches...
+;power move kill string
+Night will never come again...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+frightens you|319
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+265
+;gold reward
+15
+;experience
+100
+;hit points
+225
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show14
+@fight
+;name
+Griffin
+;string said when you see him
+Hmmmm... Never seen one of those before...
+;power move kill string
+You cut off its head as a trophy.
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+slashes|200
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+270
+;gold reward
+150
+;experience
+17
+;hit points
+100
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show15
+@fight
+;name
+Jeckyl
+;string said when you see him
+A bird flies in.
+;power move kill string
+Hmmm... Pretty feathers...
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+pecks at you|300
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+255
+;gold reward
+100
+;experience
+100
+;hit points
+50
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show16
+@fight
+;name
+Zoe
+;string said when you see him
+That's strange...
+;power move kill string
+You are putting an end to oddities!
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+runs around|50
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+500
+;gold reward
+97
+;experience
+80
+;hit points
+20
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show17
+@fight
+;name
+Hex
+;string said when you see him
+Programming code...?
+;power move kill string
+Binary is best!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+confuses you|20
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+500
+;gold reward
+80
+;experience
+97
+;hit points
+50
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show21
+@fight
+;name
+Reindeer of Pain
+;string said when you see him
+Uh oh...
+;power move kill string
+You slice off its bloody antlers...
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+gores you|500
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+425
+;gold reward
+500
+;experience
+350
+;hit points
+666
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show22
+@fight
+;name
+`4K`5C`8D`2's Apprentice
+;string said when you see him
+One of the few of the best...
+;power move kill string
+Now for the real one!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+does stuff|525
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+450
+;gold reward
+500
+;experience
+400
+;hit points
+700
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show23
+@fight
+;name
+Little Thing
+;string said when you see him
+Hawhawhaw! Look at that!
+;power move kill string
+You crushed it!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+flits through your nose|650
+flits through your ears|650
+flits through your eyes|650
+NONE|NONE
+NONE|NONE
+;defense
+525
+;gold reward
+200
+;experience
+400
+;hit points
+5
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show24
+@fight
+;name
+Annoyance
+;string said when you see him
+Uh oh... Here comes something bad...
+;power move kill string
+"I am not amused!" you state bravely.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+annoys you|580
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+500
+;gold reward
+478
+;experience
+500
+;hit points
+678
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show25
+@fight
+;name
+You
+;string said when you see him
+My, you are handsome!
+;power move kill string
+You feel odd...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+mirrors you|496
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+475
+;gold reward
+300
+;experience
+200
+;hit points
+510
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show26
+@fight
+;name
+Mittens
+;string said when you see him
+Oh, sweetums!
+;power move kill string
+You cut off its paw for good luck...
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+looks sweet|500
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+450
+;gold reward
+400
+;experience
+375
+;hit points
+300
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show27
+@fight
+;name
+BIG Square
+;string said when you see him
+And you thought the first one was trouble...
+;power move kill string
+What a blockhead... HA!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+lands on you|700
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+700
+;gold reward
+700
+;experience
+700
+;hit points
+700
+;if win: ref file|name or NONE
+SHOW5.REF|MONSTERS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SHOW5.REF|MONSTERS
+
+@#show8
+@show
+`c
+`r0`c `%`r1 An Event! `r0
+
+
+ `2As you walk through the dark room, you bump into something...
+
+ "`5Arrr... Who be there?`2"
+
+ As you open your mouth to answer, a long, tentacled, squishy thing
+ flies into it, and down your throat. You are lifted off the ground,
+ and blood pours and squirts from every opening in your body. Your
+ eyes burst, and your muscles all gelatinize. This isn't too cool...
+
+ After a few hours of torture and pain, the thing finally lets you
+ go.
+
+ `%Your hitpoints go down to 1! You lost 15 turns!
+`k
+@do `p11 - 15
+@if `p11 < 1 then `p11 is 1
+@do `p02 = 1
+@do goto monsters
+
+@#show9
+@show
+`c
+`r0`c `%`r1 An Event! `r0
+
+
+ `2As you walk through the dark room, you bump into something...
+
+ "`!Hello, friend! Good to see you!`2"
+
+ A hand is suddenly shaking yours.
+
+ "`!Let me help you out!`2"
+
+ You are led around and around for a long time. Eventually, you
+ come upon a ghastly creature. You fight it for a long time, and
+ you are victorious! This fight seemed a little more profitable than
+ most...
+
+ `%You lost 25 hitpoints! You lost 100 turns!
+ `%You gained 3 maximum hitpoints! You gained 500 experience and gold!
+`k
+@do `p11 - 100
+@if `p11 < 1 then `p11 is 1
+@do `p02 - 25
+@if `p02 < 1 then `p02 is 1
+@do `p03 + 3
+@do `p01 + 500
+@do money + 500
+@do goto monsters
+
+@#show10
+@show
+`c
+`r0`c `%`r1 An Event! `r0
+
+
+ `2As you walk through the dark room, you bump into something...
+
+ It turns out to be a spike. It rips through your chest, but
+ fortunately it didn't hit anything vital...
+
+ `%Hit points are at 1! You lost 2 max hp!
+`k
+@do `p03 - 2
+@if `p03 < 1 then `p03 is 1
+@do `p02 = 1
+@do goto monsters
+
+@#show18
+@do `p20 random 6 1
+@show
+`c
+`r0`c `%`r1 An Event! `r0
+
+
+ `2Something rips into your foot.
+
+ You spend several minutes nursing your foot. However, the thing
+ that ripped into your foot turns out to be a bag of gems!
+
+ `%You lost 8 hitpoints!
+ `%You gained `p20 gems!
+`k
+@do `p02 = 1
+@do `p19 +`p20
+@do goto monsters
+
+@#show19
+@show
+`c
+`r0`c `%`r1 An Event! `r0
+
+
+ `2You've come upon some kind of maze... You decide to go on in.
+
+ You walk around for a LOOOOOOONG time, when you finally come upon
+ something. It's a dead bird.
+
+ "`$Man, this sucks! Nothing ever goes my way. Now I've got to
+ get out of here!`2"
+
+ You kick the bird and stomp out of the room. Strangely enough,
+ you are suddenly outside of the maze...
+
+ `%You lost 1000 turns!
+`k
+@do `p11 - 1000
+@if `p11 < 1 then `p11 is 1
+@do goto monsters
+
+@#show20
+@show
+`c
+`r0`c `%`r1 An Event! `r0
+
+ `2There is a mirror in front of you. On it are the following words,
+ written in blood:
+
+ `4`n `4is a dead s&man. S&he will regret the day that s&he found
+ this place.... HAHAHAHAHAHA!!!!
+
+ `2Suddenly, the mirror molds into a strange, human-like shape, and
+ comes at you. You attempt to fight it, but you cannot harm it. After
+ several hours, you lose. Hehehehe...
+
+ `%You lost 350 turns! You died!!!!
+`k
+@do `p11 - 350
+@if `p11 < 1 then `p11 is 1
+@do enemy is Mirror`xMan
+@routine DIE in GAMETXT.REF
+
+@#show28
+@show
+`c
+`r0`c `%`r1 An Event! `r0
+
+ `2Something beckons to you from the dark. You stupidly walk towards
+ it...
+
+ "`7Hello! I hate you! Wouldn't you like to die?`2"
+
+ "`$I most certainly would not, fiend!`2"
+
+ You jump at the thing and beat on it for a while. After a few
+ hours, you are done.
+
+ After a search of the body, you find nothing.
+
+ `%You lost 200 turns!
+ `%You gained 2000 experience!
+`k
+@do `p11 - 200
+@if `p11 < 1 then `p11 is 1
+@do goto monsters
+
+@#show29
+@show
+`c
+`r0`c `%`r1 An Event! `r0
+
+
+ `2You've come upon some kind of maze... You decide to go on in.
+
+ You walk around for a while, when you find an old man.
+
+ "`0Please, sit`2"
+
+ You do so obligingly. He offers you a cup with some strange drink
+ in it. Courageously, you take a sip. You feel slightly energized, so
+ you take another. You soon finish the cup.
+
+ "`$Thanks, old man!`2" you say, and run off.
+
+ `%You lost 10 turns!
+ `%You gained 5 max hitpoints! You were completely healed!
+`k
+@do `p11 - 10
+@if `p11 < 1 then `p11 is 1
+@do `p03 + 5
+@do `p02 is `p03
+@do goto monsters
+
+@#show30
+@show
+`c
+`r0`c `%`r1 An Event! `r0
+
+ `2Something isn't right here. There isn't any ground beneath you,
+ but you are still able to walk. It is very strange.
+
+ You continue to walk for a while when you come upon a large, black,
+ rectangular, um, monolith. It is strange and beautiful. You look at
+ it for a while, and then turn to leave.
+
+ Something is totally wrong. You turn around, and the monolith is
+ right behind you. Frightened, you run, but you go nowhere. Suddenly,
+ the monolith falls over onto you. This really sucks.
+
+ `%You lost 734 turns! You lost 38 hp! You lost 237 gold!
+ `%You gained 487 experience!
+`k
+@do `p11 - 734
+@if `p11 < 1 then `p11 is 1
+@do `p02 - 38
+@if `p02 < 1 then `p02 is 1
+@do money - 237
+@if money < 0 then money is 0
+@do `p01 + 487
+@do goto monsters
+
diff --git a/xtrn/lord2/cnw/sl.ref b/xtrn/lord2/cnw/sl.ref
new file mode 100644
index 0000000000000000000000000000000000000000..3102eae108d5f15e3f92047a7c60b628151f90b7
--- /dev/null
+++ b/xtrn/lord2/cnw/sl.ref
@@ -0,0 +1,109 @@
+; Script file SL.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:22 2001
+
+@DECLARE spring 000000437
+@DECLARE swim 000000730
+@DECLARE mount 000000808
+@DECLARE sign1 000001082
+@DECLARE sign2 000001147
+@DECLARE sign3 000001206
+@DECLARE pers1 000001274
+@DECLARE pers2 000001581
+@DECLARE pers3 000001871
+@DECLARE nomore 000002241
+@NOCHECK
+; End of .REF index
+
+;REF file for Shangri La IGM By Nicholas Morrissey
+
+@#SPRING
+@datanewday sl.idf
+@dataload sl.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+ @do `p03 + 1
+ @do `p02 is `p03
+ @do saybar
+ `4You feel refreshed. You get an extra hitpoint.
+ @datasave sl.idf &playernum 1
+ @closescript
+ @end
+@do saybar
+`4You can't get anymore things
+
+@#SWIM
+ @do saybar
+ `4You see someone swimming. You wish you could join
+
+@#MOUNT
+@datanewday sl.idf
+@dataload sl.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+ @do `p04 + 1
+ @do saybar
+ `4You climb to a higher place and gain 1 muscle
+ @datasave sl.idf &playernum 1
+ @closescript
+ @end
+@do saybar
+`4You can't get anymore things
+
+@#SIGN1
+ @do saybar
+ `%You see a spring enclosed in a fence
+
+@#SIGN2
+ @do saybar
+ `%You see a small mountain ahead
+
+@#SIGN3
+ @do saybar
+ `%You see a swimming pool in front of you
+
+@#PERS1
+@datanewday sl.idf
+@dataload sl.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+ @do `p07 + 1
+ @do saybar
+ `0Person: `4You seem like a helpful person, I'll help you. (Alignment up by one)
+ @datasave sl.idf &playernum 1
+ @closescript
+ @end
+@do saybar
+`4You can't get anymore things
+
+@#PERS2
+@datanewday sl.idf
+@dataload sl.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+ @do `p08 + 1
+ @do saybar
+ `0Person: `4You are such a charming younging. (Charm up by one)
+ @datasave sl.idf &playernum 1
+ @closescript
+ @end
+@do saybar
+`4You can't get anymore things
+
+@#PERS3
+@datanewday sl.idf
+@dataload sl.idf &playernum `p20
+@if `p20 not 1 then do
+ @begin
+ @do `p05 + 1
+ @show
+ `0Person: `4 Hey Look out
+ `5WHHHHHUUUUUUUUUMMMMMMMMMPPPPPPPPPPPPPPP
+ `$You dodge a rock and it lands next to you.
+ `4YOU GAIN ONE DODGE POINT
+ @datasave sl.idf &playernum 1
+ @closescript
+ @end
+@do saybar
+`4You can't get anymore things
+
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/slayer.ref b/xtrn/lord2/cnw/slayer.ref
new file mode 100644
index 0000000000000000000000000000000000000000..15a30c21cdae0faa43ec16c2bc3bdfffffc7eb3a
--- /dev/null
+++ b/xtrn/lord2/cnw/slayer.ref
@@ -0,0 +1,996 @@
+; Script file SLAYER.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:40 2001
+
+@DECLARE shop 000001027
+@DECLARE potion 000001248
+@DECLARE man1 000001428
+@DECLARE gareth 000002507
+@DECLARE pawn 000002636
+@DECLARE slayer 000002823
+@DECLARE beatslayer 000003568
+@DECLARE tree 000003901
+@DECLARE man2 000004180
+@DECLARE bank 000004626
+@DECLARE bankstart 000004794
+@DECLARE bankagain 000005913
+@DECLARE deposit 000007408
+@DECLARE withdraw 000007979
+@DECLARE healers 000008873
+@DECLARE stables 000010674
+@DECLARE stabletop 000010782
+@DECLARE door 000013624
+@DECLARE toilet 000013669
+@DECLARE barman1 000013731
+@DECLARE barman2 000013789
+@DECLARE barman3 000013866
+@DECLARE barman4 000013928
+@DECLARE deathraise 000014000
+@DECLARE death 000014834
+@DECLARE deathstart 000014891
+@DECLARE win 000015533
+@DECLARE die 000016091
+@DECLARE wakeup 000016265
+@DECLARE arena 000016526
+@DECLARE master 000016729
+@DECLARE startfight 000017324
+@DECLARE nomore 000017739
+@NOCHECK
+; End of .REF index
+
+@#shop
+;SLAYER's Shop
+@do moveback
+@offmap
+@busy
+@show
+`r0`c `r1SLAYER's Shop`r0
+
+What would you like to buy?
+
+
+@buymanager
+62
+64
+68
+70
+@drawmap
+@update
+
+@closescript
+@end
+
+@#potion
+@do moveback
+@offmap
+@busy
+@show
+`r0`c `r1The Potion Shop`r0
+
+What do ya want to buy?
+
+
+@buymanager
+5
+40
+55
+50
+66
+@drawmap
+@update
+
+@#man1
+@dataload coolness.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do saybar
+`3Cool`!NesS: `%Hello again.
+@closescript
+@end
+
+@do moveback
+@offmap
+@busy
+@show
+`r0`c `r1Strange Man`r0
+
+
+`0"Hello warrior." `2Says the strange man.
+
+`$"Who are you?" `2You ask.
+
+`0"I am `!Cool`3NesS`0! Friend to `1S`4L`!A`3Y`@E`%R`0, the greatest warrior ever!
+Are you interested im money and power?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Of course.
+No, I'm already rich and powerful.
+@if responce is 1 then do offmap
+@offmap
+@begin
+@datasave coolness.idf &playernum 1
+@datasave slay.idf &playernum 1
+@busy
+@show
+`r0`c
+
+`0"This will be pretty flippin hard! You will need the best weapon and armour,
+and plenty of hit points, muscle and dodge. To find him go right as far as
+you can, then down three times and over once. I wasn't supposed to let you
+know that, so don't tell `1S`4L`!A`3Y`@E`%R`0!"
+
+`$"Ok." `2You say excitedly.
+@key nodisplay
+@update
+@end
+
+@if response is 2 then do end
+@end
+@drawmap
+@update
+
+
+
+@#gareth
+@do moveback
+
+@do saybar
+`9Gareth: `0Follow the path to `9S`4L`!A`3Y`@E`%R`0's Domain
+
+@closescript
+@end
+
+@#pawn
+@do moveback
+@offmap
+@busy
+@show
+`r0`c `r1SLAYER's Pawn Shop`r0
+
+So, what would you like to sell?
+
+
+@sellmanager
+
+@drawmap
+@update
+
+@#slayer
+@do moveback
+@dataload slayer.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do saybar
+`%You pay your respects to `9S`4L`!A`3Y`@E`%R`%.
+@closescript
+@end
+
+@busy
+@fight
+;name
+`9S`4L`!A`3Y`@E`%R`2
+;string when you see him
+You draw your `0s&weapon `2and prepare for the battle of a lifetime.
+;powermove kill string
+You deliver the final blow to this great warrior.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and weapon strength, up to 5
+chops with his Death Axe|800
+casts a death spell|800
+lunges with his Dragon Rapier|800
+none|none
+none|none
+;defense
+700
+;gold reward
+9000
+;experience
+3000
+;hit points
+1000
+;if win
+SLAYER.REF|BEATSLAYER
+;if lose
+GAMETXT.REF|DIE
+;if run
+NONE|NONE
+
+@#BEATSLAYER
+@datasave slayer.idf &playernum 1
+@show
+`c `r1 YOU WERE VICTORIOUS! `r0
+
+`0"Nice fight!" `2Says `1S`4L`!A`3Y`@E`%R`2.
+
+`%(YOU GET 5 QUEST POINTS!)
+
+@key nodisplay
+@do `p18 + 5
+@drawmap
+@update
+@do addlog
+ `n has been victorious at `1S`4L`!A`3Y`@E`%R`0's domain!
+@run seperate in gametxt.ref
+
+
+@#tree
+@do moveback
+@dataload tree.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do saybar
+There is nothing in the tree.
+@closescript
+@end
+
+@datasave tree.idf &playernum 1
+@do saybar
+`%You find a silver potion! Wasn't I nice to give you that?
+@do `i54 + 1
+
+@#man2
+ @do moveback
+ @do `p20 random 5 1
+ ; now `p20 is a random # between 1 and 5
+
+ @if `p20 is 1 then saybar
+`4Aaron: `% Talk to that guy in the casino!
+ @if `p20 is 2 then saybar
+`4Aaron: `%That purple tree's got something!
+ @if `p20 is 3 then saybar
+`4Aaron: `9S`4L`!A`3Y`@E`%R's a real tough fighter!
+ @if `p20 is 4 then saybar
+`4Aaron: `%Get drunk!!
+ @if `p20 is 5 then saybar
+`4Aaron: `%I'll kick your ass!
+
+@#bank
+@do `p30 27
+@do `v01 is 1
+@do `p22 is 0
+@do `p24 is 0
+@do `p25 is 0
+@offmap
+@do moveback
+@do `s09 is slayer
+@routine DONEQUEST in VAULTS.REF
+@label bankstart
+@show
+`r0`c `r1 `3Cool`!NesS`% Bank `r0
+
+`2 A large male clerk glares at you.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdraw.
+=&bank 0 Apply for an account here.
+Leave
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The stalky man asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last question?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The big man eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @do `p30 is 27
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @do `p30 is 27
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookkeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the man asks.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @do `p30 is 27
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+
+
+@drawmap
+@update
+
+@#healers
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%The Healers
+
+ `4Reap`1er `2inspects your wounds.
+
+@do write
+`x`x
+@if `p02 < `p03 then do
+ @begin
+@do `p20 is `p03
+@do `p20 - `p02
+@do `p20 / 2
+
+
+ @show
+`0"You look pretty crappy! Fix ya up for `$`p20`0 gold, ok?"
+
+@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," `4Reap`1er`2 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 `p30 is 27
+ @do `v40 is `p20
+ @routine deposit in vaults.ref
+@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," `4Reap`1er `2Cackles.
+
+`k
+@drawmap
+@update
+
+@#STABLES
+;lets them warp to a few places
+;added by CNW: buy a horse here.
+@offmap
+@do moveback
+@label stabletop
+@clear screen
+@do move 1 1
+@show
+`r0 `r1 `9S`4L`!A`3Y`@E`%R's Stables `r0
+
+ `0"Greetings, s&sir! We sell horses here, we no longer offer transport
+ `0services.
+
+@do `v01 is 1
+@do move 15 9
+@choice
+`#Why a horse? `%
+-`t79 1 `$Buy a horse `%
++`t79 1 `4Sell your horse`%
+`%Leave `%
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `0A horse you ask?`\
+ If your horse is healthy and well kept, you can get to your
+ destinations much quicker than by foot.
+
+ You MUST take good care of your horse if you want to keep it
+ around, or resell someplace else.
+
+ `7<To mount your horse, press "`%Z`7" from the map screen>
+ @key
+ @do goto stabletop
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ `0It costs `$$8,000 `0here for a healthy horse.
+`\ Do you still want to buy it?`\
+@choice
+`$Forget it
+>&money 7999 `$Yes
+@if responce is 2 then do
+ @begin
+ @do money - 8000
+ @do `t80 is 255
+ @bitset `t79 1 1
+ @show
+`\`0Ok, you now have a healthy horse. Have fun!`\`k
+ @end
+ @do goto stabletop
+ @end
+@if responce is 3 then do
+ @begin
+ @do `p21 is `v10
+ @do `p21 / 2
+ @do `p22 is `v11
+ @if `t80 > 50 then do
+ @begin
+ @do `p20 is 55
+ @end
+ @if `t80 > 75 then do
+ @begin
+ @do `p20 is 510
+ @end
+ @if `t80 > 100 then do
+ @begin
+ @do `p20 is 1100
+ @end
+ @if `t80 > 125 then do
+ @begin
+ @do `p20 is 2100
+ @end
+ @if `t80 > 150 then do
+ @begin
+ @do `p20 is 3100
+ @end
+ @if `t80 > 175 then do
+ @begin
+ @do `p20 is 4100
+ @end
+ @if `t80 > 200 then do
+ @begin
+ @do `p20 is 5100
+ @end
+ @if `t80 > 225 then do
+ @begin
+ @do `p20 is 7100
+ @end
+
+ @if `p22 < `p21 then do
+ @begin
+ @if `t80 > 200 then do
+ @begin
+ @do `p20 + 500
+ @end
+ @if `t80 > 100 then do
+ @begin
+ @do `p20 + 250
+ @end
+ @end
+ @if `p22 > `p21 then do
+ @begin
+ @if `t80 > 200 then do
+ @begin
+ @do `p20 + 600
+ @end
+ @if `t80 > 100 then do
+ @begin
+ @do `p20 + 290
+ @end
+ @end
+
+ @routine horsehp in vehicle.ref
+ @show
+`\`\ `0I will buy your `%`s02 `0horse for `$`p20.
+`\ Do you still want to sell it?`\
+@do `v01 is 1
+@choice
+`$Forget it
+`$Yes
+@if responce is 2 then do
+ @begin
+ @do money + `p20
+ @do `t80 is 0
+ @bitset `t79 1 0
+ @show
+`\`0Thanks! Come again.`\`k
+ @end
+ @do goto stabletop
+ @end
+@drawmap
+@update
+
+@#door
+@do saybar
+`%It squeeks open.
+
+@#toilet
+@do saybar
+`%That toilet does not smell good.
+
+@#barman1
+@do saybar
+`%Brad: Ha, this games rules!
+
+@#barman2
+@do saybar
+`0Enzo: `%Hello, I'm so cool! I know I'm cool!!
+
+@#barman3
+@do saybar
+`%Drunk: ::BURP:: Have a drink!!
+
+@#barman4
+@do saybar
+`!Toilet `$Duck: `%This IGM is so cool!!
+
+@#deathraise
+;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!"
+
+ `2Your face falls - damn!
+
+`k
+@run deathstart
+@closescript
+@end
+
+ @if `t04 > 0 then do
+ @begin
+ @show
+
+
+ `0"You already failed once today, `n. I cannot let you try again
+ tomorrow," `4Death `2tells you
+
+ `2Your face falls - what a bummer!
+
+`k
+@run death
+@closescript
+@end
+
+
+ @show
+
+
+ `0"You have been sitting at level `p09 long enough."
+
+@show
+`k
+`c `r1`4 PEPARING FOR BATTLE `r0
+
+`4 Death`2 escorts to a small room.
+
+ `k
+@run startfight in slayer.ref
+@closescript
+
+
+@#DEATH
+@offmap
+@do moveback
+@do `v01 is 1
+@label deathstart
+@show
+`r0`c `4Death`%'s Training centre
+
+`2 This is a great training centre, created by `1S`4L`!A`3Y`@E`%R`2 himself.
+
+ `4Death `2salutes as you come in.
+
+@do write
+`x`x
+@choice
+Ask for a level raise.
+Talk to Master Death.
+Leave
+@if responce is 1 then do
+ @begin
+ @run deathraise
+ @do goto deathstart
+ @end
+
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `%Talking to Master `4Death
+
+ `0"Hello `n I am a student of `1S`4L`!A`3Y`@E`%R`0, I will raise your level
+ in a duel with me."
+
+ `$"Okay, that sounds cool!"
+
+
+`k
+ @do goto deathstart
+ @end
+
+@drawmap
+@update
+
+;training
+@#WIN
+
+@do `p21 is 5
+@do `p03 + `p21
+
+@do `p22 is 2
+@do `p04 + `p22
+
+@do `p23 is 1
+@do `p05 + `p23
+
+
+@do `p09 + 1
+
+@do addlog
+ `r4 `r0 `0`n`2 has beaten `0`e`2 and become level `p09! `r4 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@do `p02 is `p03
+@show
+`r0`c `r1 YOU HAVE FACED DEATH AND TRIUMPHED! `r0
+
+ `2You get a free heal after the duel.
+
+ `%YOU ARE NOW LEVEL `p09.
+
+ `2You gain `0`p21`2 hitpoints,`0 `p22`2 muscle and `0`p23`2 dodge.
+
+`k
+@run death in slayer.ref
+
+@#DIE
+@do `p02 is 1
+@do `t04 is 1
+@show
+`r0`c `r4 DEATH HAS BESTED YOU `r0
+
+ `2You fall unconcious.
+
+ You have failed.
+
+`k
+@run death in slayer.ref
+
+@#WAKEUP
+@do `t04 is 1
+@show
+`r0`c `r4 YOU RUN AWAY REALLY FAST `r0
+
+ `2You get away from the fight. Wiping the beads of sweat from your brow,
+ you wonder how you could have thought you were ready for this...
+
+`k
+@run death in slayer.ref
+
+
+@#arena
+@show
+`c `r1 `4HELL `r0
+
+ `@Your body shoots down to a very warm place.
+
+ You land and see `4Death `@waiting for you.
+
+@
+
+
+@#master
+@show
+ `4Death `2prepares to fight you.
+
+`k
+@fight
+;name
+`4Death
+;string said when you see him
+Death draws his scythe.
+;power move kill string
+You've killed `4Death`2!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+swings his scythe|`p22
+spits on you|`p22
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+SLAYER.REF|WIN
+;if lose: ref file|name or NONE
+SLAYER.REF|DIE
+;if runs: ref file|name or NONE
+SLAYER.REF|WAKEUP
+@closescript
+
+@#startfight
+
+;do math to create monster
+
+@do `p21 is `p03
+@do `p25 is `p09
+;@do `p25 * `p25
+@do `p25 random `p25
+@do `p21 + `p25
+
+@do `p22 is S&wep_num
+@do `p22 + `p04
+
+@do `p23 is S&arm_num
+@do `p23 + `p05
+
+@do `p24 random `p22
+@do `p21 + `p24
+@do `p24 random `p22
+@do `p21 - `p24
+
+@do `p24 random `p22
+@do `p24 / 5
+@do `p22 - `p24
+
+@routine arena `p20
+
+@routine master `p20
+
+
+@#NOMORE
+
+
+
+
+
diff --git a/xtrn/lord2/cnw/slayer2.ref b/xtrn/lord2/cnw/slayer2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..638cc505dc5319acf94463bb25996ffaa0e10ed0
--- /dev/null
+++ b/xtrn/lord2/cnw/slayer2.ref
@@ -0,0 +1,777 @@
+; Script file SLAYER2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:41 2001
+
+@DECLARE qman 000000693
+@DECLARE matt 000002520
+@DECLARE monster 000003177
+@DECLARE monster1 000003235
+@DECLARE monster2 000003590
+@DECLARE mattfin 000003894
+@DECLARE beatmatt 000004310
+@DECLARE where 000004709
+@DECLARE mattrun 000004768
+@DECLARE ran 000007901
+@DECLARE toilet 000008114
+@DECLARE danger 000008200
+@DECLARE danger1 000008256
+@DECLARE danger2 000008586
+@DECLARE danger3 000008985
+@DECLARE danger4 000009390
+@DECLARE danger5 000009715
+@DECLARE sign 000010043
+@DECLARE rock 000010110
+@DECLARE rock2 000010246
+@DECLARE nomore 000010320
+@NOCHECK
+; End of .REF index
+
+@#qman
+@dataload qman.idf &playernum `p20
+@if `p20 is 1 then do
+@do moveback
+@begin
+@do saybar
+`%Seek Matt!
+@closescript
+@end
+
+@dataload head.idf &playernum `p20
+@if `p20 is 1 then do
+@do moveback
+@begin
+@show
+`r0`c`0"Excellent, you have returned with Matt's Head!! Here is your reward
+as promised."
+
+`%10 quest points
+10 hitpoints
+1000 experience
+5 muscle
+3 dodge
+@key nodisplay
+@do `p01 + 1000
+@do `p18 + 10
+@do `p03 + 10
+@do `p02 is `p03
+@do `p04 + 5
+@do `p05 + 3
+@datasave head.idf &playernum 0
+@datasave done.idf &playernum 1
+@drawmap
+@update
+@do addlog
+ `2`n has killed `0Matt`2 and been rewarded by `!The Ben`2!
+@run seperate in gametxt.ref
+@closescript
+@end
+
+
+@dataload done.idf &playernum `p20
+@if `p20 is 1 then do
+@do moveback
+@begin
+@do saybar
+`%You Rock `n`%!
+@closescript
+@end
+
+@do moveback
+@offmap
+@busy
+@show
+`r0`c `8Shadow Man
+
+
+`0"Hello `n`0." `2Says the man.
+
+`$"Who are you?" `2You ask.
+
+`0"I am The Ben, I was a great warrior, until I was killed by Matt,
+a dirty, cheap and cheating warrior! I want you to find him and avenge my
+death! I will reward you, but you must bring back his head."
+
+`$"But how can you be dead if I'm talking to you?"
+
+`0"Nevermind that! Do you accept?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Sure pal.
+No, do it yourself.
+@if responce is 1 then do offmap
+@offmap
+@begin
+@datasave qman.idf &playernum 1
+@datasave matt.idf &playernum 1
+@busy
+@show
+`r0`c
+
+`0"This will be very hard, so be warned: once you encounter Matt there is no
+way out but death if you fail! He is living in a house near the shrine, and
+don't forget his head!"
+
+`$"Ok." `2You say excitedly.
+@key nodisplay
+@update
+
+@if responce is 2 then do
+@end
+@drawmap
+@update
+
+@#matt
+@do moveback
+@dataload matt.idf &playernum `p20
+@if `p20 not 1 then do
+@begin
+@do saybar
+`%Get out of here. Now!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+@closescript
+@end
+
+@dataload dead.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do saybar
+`%Matt's headless corpse lies still.
+@closescript
+@end
+
+@busy
+@show
+
+`r0`c`$"I'll kill you Matt`$" `2You say angrily.
+
+`0"Ach, The Ben must have sent you!! Well, if we are going to fight, we do it
+my way! Ha ha! Prepare to die `n!"
+
+`2Matt disappears, you start to feel pretty funny......
+@key nodisplay
+@loadmap 172
+@do x is 6
+@do y is 17
+@drawmap
+@update
+
+@#monster
+@do `p20 random 2 1
+@do goto monster`p20
+
+@#monster1
+@fight
+;name
+Matt Clone
+;string when seen
+God! He looks like Matt!!
+;powermove string
+What a nut!
+;sex
+1
+;weapons
+breathes on you|500
+screams at you|500
+claws you|500
+cheaps shots you|500
+throws a rock|500
+;defense
+400
+;gold
+3
+;experience
+3
+;hitpoints
+2500
+;win
+NONE|NONE
+;lose
+GAMETXT.REF|DIE
+;runs
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Matt's Guard
+;string
+Another Matt goon?!?!
+;power
+Die!!!!!!!!!!!!
+;sex
+1
+;weapons
+wacks you hard|450
+drop kicks you|469
+flips on you|438
+NONE|NONE
+NONE|NONE
+;defense
+398
+;gold
+3
+;exp
+3
+;hits
+2387
+;win
+NONE|NONE
+;lose
+GAMETXT.REF|DIE
+;run
+NONE|NONE
+
+@#mattfin
+@do moveback
+@fight
+;name
+Matt
+;string
+`0"You caught me, now you fight me!" `2Screams Matt.
+;power string
+Cripes, what a loser!
+;sex
+1
+;weapons
+kicks you in the head|600
+slaps you|600
+whines at you|600
+throws a bad punch|600
+wallops you a good one|600
+;defense
+500
+;gold
+1000
+;experience
+900
+;HP
+3000
+;win
+SLAYER2.REF|BEATMATT
+;lose
+GAMETXT.REF|DIE
+;run
+SLAYER2.REF|RAN
+
+@#beatmatt
+@busy
+@show
+`r0`c`$"Take that you nutsack!"
+
+`2Matt lies dead, never to rise again. You are victotious. You rip his head
+off to take it back to The Ben. Then you get that weird feeling again......
+
+
+@key nodisplay
+@datasave head.idf &playernum 1
+@datasave qman.idf &playernum 0
+@datasave dead.idf &playernum 1
+@loadmap 332
+@do x is 23
+@do y is 11
+@drawmap
+@update
+
+@#where
+@do saybar
+`%Where the heck are you now???
+
+@#mattrun
+@busy
+@show
+`r0`c
+
+`2Matt runs.`l.`l.`l.`l.`l.`l.`l
+You run after him.`l.`l.`l.`l.`l.`l.`l
+@drawmap
+@update
+@do move 60 5
+@do write
+`w`0
+@do move 60 5
+@do write
+`w`x
+@do move 61 5
+@do write
+`0
+@do move 61 5
+@do write
+`w`x
+@do move 62 5
+@do write
+`0
+@do move 62 5
+@do write
+`w`x
+@do move 63 5
+@do write
+`0
+@do move 63 5
+@do write
+`w`x
+@do move 64 5
+@do write
+`0
+@do move 64 5
+@do write
+`w`x
+@do move 65 5
+@do write
+`0
+@do move 65 5
+@do write
+`w`x
+@do move 66 5
+@do write
+`0
+@do move 66 5
+@do write
+`w`x
+@do move 67 5
+@do write
+`0
+@do move 67 5
+@do write
+`w`x
+@do move 68 5
+@do write
+`0
+@do move 68 5
+@do write
+`w`x
+@do move 69 5
+@do write
+`0
+@do move 69 5
+@do write
+`w`x
+@do move 70 5
+@do write
+`0
+@do move 70 5
+@do write
+`w`x
+@do move 71 5
+@do write
+`0
+@do move 71 5
+@do write
+`w`x
+@do move 72 5
+@do write
+`0
+@do move 72 5
+@do write
+`w`x
+@do move 73 5
+@do write
+`0
+@do move 73 5
+@do write
+`w`x
+@do move 74 5
+@do write
+`0
+@do move 74 5
+@do write
+`w`x
+@do move 75 5
+@do write
+`0
+@do move 75 5
+@do write
+`w`x
+@do move 76 5
+@do write
+`0
+
+@do move 45 5
+@do write
+`w`%
+@do move 45 5
+@do write
+`w`x
+@do move 46 5
+@do write
+`%
+@do move 46 5
+@do write
+`w`x
+@do move 47 5
+@do write
+`%
+@do move 47 5
+@do write
+`w`x
+@do move 48 5
+@do write
+`%
+@do move 48 5
+@do write
+`w`x
+@do move 49 5
+@do write
+`%
+@do move 49 5
+@do write
+`w`x
+@do move 50 5
+@do write
+`%
+@do move 50 5
+@do write
+`w`x
+@do move 51 5
+@do write
+`%
+@do move 51 5
+@do write
+`w`x
+@do move 52 5
+@do write
+`%
+@do move 52 5
+@do write
+`w`x
+@do move 53 5
+@do write
+`%
+@do move 53 5
+@do write
+`w`x
+@do move 54 5
+@do write
+`%
+@do move 54 5
+@do write
+`w`x
+@do move 55 5
+@do write
+`%
+@do move 55 5
+@do write
+`w`x
+@do move 56 5
+@do write
+`%
+@do move 56 5
+@do write
+`w`x
+@do move 57 5
+@do write
+`%
+@do move 57 5
+@do write
+`w`x
+@do move 58 5
+@do write
+`%
+@do move 58 5
+@do write
+`w`x
+@do move 59 5
+@do write
+`%
+@do move 59 5
+@do write
+`w`x
+@do move 60 5
+@do write
+`%
+@do move 60 5
+@do write
+`w`x
+@do move 61 5
+@do write
+`%
+@do move 61 5
+@do write
+`w`x
+@do move 62 5
+@do write
+`%
+@do move 62 5
+@do write
+`w`x
+@do move 63 5
+@do write
+`%
+@do move 63 5
+@do write
+`w`x
+@do move 64 5
+@do write
+`%
+@do move 64 5
+@do write
+`w`x
+@do move 65 5
+@do write
+`%
+@do move 65 5
+@do write
+`w`x
+@do move 66 5
+@do write
+`%
+@do move 66 5
+@do write
+`w`x
+@do move 67 5
+@do write
+`%
+@do move 67 5
+@do write
+`w`x
+@do move 68 5
+@do write
+`%
+@do move 68 5
+@do write
+`w`x
+@do move 69 5
+@do write
+`%
+@do move 69 5
+@do write
+`w`x
+@do move 70 5
+@do write
+`%
+@do move 70 5
+@do write
+`w`x
+@do move 71 5
+@do write
+`%
+@do move 71 5
+@do write
+`w`x
+@do move 72 5
+@do write
+`%
+@do move 72 5
+@do write
+`w`x
+@do move 73 5
+@do write
+`%
+@do move 73 5
+@do write
+`w`x
+@do move 74 5
+@do write
+`%
+@do move 74 5
+@do write
+`w`x
+@do move 75 5
+@do write
+`%`l`l
+@run mattfin in slayer2.ref
+
+
+@#ran
+@show
+`r0`c`0"You think I'll let you run that easily? No way s&boy!" `2Says Matt
+
+TheBen told you death was the only way if you failed`l.`l.`l.`l.`l.`l.`l.`l.`l.
+
+
+@run die in gametxt.ref
+
+@#toilet
+@do moveback
+@do saybar
+`%I wouldn't use Matt's toilet if I were you.
+
+@#danger
+@do `p20 random 5 1
+@do goto danger`p20
+
+@#danger1
+@fight
+;name
+Serial Killer
+;string
+Yikes, that guy looks nuts!
+;power
+You killed the bastard
+;sex
+1
+;weapons
+shoots you|150
+tortures you|100
+stabs you repeatedly|200
+NONE|NONE
+NONE|NONE
+;defense
+100
+;gold
+200
+;exp.
+250
+;hits
+379
+;win
+NONE|NONE
+;if lose
+GAMETXT.REF|DIE
+;if run
+NONE|NONE
+
+@#danger2
+@fight
+;name
+Rapper
+;string when seen
+You can tell that this dude sucks.
+;powermove string
+Shut the hell up!
+;sex
+1
+;weapons and strenghts
+raps a crappy song at you|170
+hits you with his microphone|100
+calls out his pals|200
+NONE|NONE
+NONE|NONE
+;defense
+300
+;gold
+400
+;experience
+300
+;hits
+1000
+;if win
+NONE|NONE
+;if lose
+GAMETXT.REF|DIE
+;if run
+NONE|NONE
+
+@#danger3
+@fight
+;name
+`9S`4L`!A`3Y`@E`%R`2 Wannabe
+;string
+This dudes not as good as the real `1S`4L`!A`3Y`@E`%R`0!
+;power string
+You kill this stupid wannabe!
+;sex
+1
+;weapons
+swings his short sword|200
+chops his axe|189
+throws a dagger|300
+NONE|NONE
+NONE|NONE
+;defense
+400
+;gold
+567
+;experience
+321
+;hits
+326
+;if win
+NONE|NONE
+;if lose
+GAMETXT.REF|DIE
+;if run
+NONE|NONE
+
+@#danger4
+@fight
+;name
+Backstreet Boys
+;string
+Man these dudes are scary!
+;powermove
+Don't ever sing again!
+;sex
+3
+;weapons
+sing a song|300
+get down|150
+talk to you|100
+NONE|NONE
+NONE|NONE
+;defense
+200
+;gold
+600
+;exp
+321
+;hits
+501
+;if win
+NONE|NONE
+;if lose
+GAMETXT.REF|DIE
+;if run
+NONE|NONE
+
+@#danger5
+@fight
+;name
+Extorsionist
+;string
+That guy looks pissed.
+;powermove
+And don't ever try that again!
+;sex
+1
+;weapons
+jumps on you|140
+knifes you|190
+kicks your ass|99
+NONE|NONE
+NONE|NONE
+;defense
+89
+;gold
+267
+;exp
+190
+;hits
+231
+;if win
+NONE|NONE
+;if lose
+GAMETXT.REF|DIE
+;if run
+NONE|NONE
+
+@#sign
+@do moveback
+@do saybar
+`%Danger Zone ahead, BEWARE!
+
+@#rock
+@dataload slay.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@loadmap 775
+@do x is 2
+@do y is 5
+@drawmap
+@update
+
+@#rock2
+@loadmap 856
+@do x is 79
+@do y is 5
+@drawmap
+@update
+
+
+@#nomore
+
+
+
+
+
+
+
diff --git a/xtrn/lord2/cnw/sobank.ref b/xtrn/lord2/cnw/sobank.ref
new file mode 100644
index 0000000000000000000000000000000000000000..d4fbcf0fbbc9f0a610fc979eb93f8f45ec19a73a
--- /dev/null
+++ b/xtrn/lord2/cnw/sobank.ref
@@ -0,0 +1,252 @@
+; Script file SOBANK.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:22 2001
+
+@DECLARE bank 000000321
+@DECLARE bankstart 000000446
+@DECLARE bankagain 000001746
+@DECLARE deposit 000003199
+@DECLARE withdraw 000003749
+@NOCHECK
+; End of .REF index
+
+; Sosen Village Bank .REF File for use with LORD 2.
+
+@#bank
+@do `p30 is 5
+@do `v01 is 1
+@offmap
+@do moveback
+@do `s09 is sobank
+@routine DONEQUEST in VAULTS.REF
+@label bankstart
+@show
+`r0`c `r1 `%4th Bank Of Sosen `r0
+
+`2 A young clerk eyes you nervously.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+@do `p27 is 0
+@dataload taxes.idf &playernum `p23
+@if `p23 > 0 then `p27 is 1
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdrawal.
+=&bank 0 Apply for an account here.
+=`p27 1 Pay the taxes
+Leave
+@if responce is 4 then do
+ @begin
+ @routine bank in taxes.ref
+ @end
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last questions?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+
+
+@drawmap
+@update
diff --git a/xtrn/lord2/cnw/sold.ref b/xtrn/lord2/cnw/sold.ref
new file mode 100644
index 0000000000000000000000000000000000000000..3429e3412df0b071aabc50c901f19340f5ad9d5c
--- /dev/null
+++ b/xtrn/lord2/cnw/sold.ref
@@ -0,0 +1,234 @@
+; Script file SOLD.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:37 2001
+
+@DECLARE treasure 000000633
+@DECLARE guard1 000000714
+@DECLARE guard2 000000770
+@DECLARE notnilc 000000834
+@DECLARE fightrd 000001393
+@DECLARE winred 000001914
+@DECLARE fight 000002590
+@DECLARE monster0 000002741
+@DECLARE drguard 000003168
+@DECLARE sci4 000003228
+@DECLARE whatis 000003341
+@DECLARE sci1 000003405
+@DECLARE sci2 000003502
+@DECLARE sci3 000003583
+@DECLARE helper 000003656
+@DECLARE locked 000003750
+@DECLARE guild 000003805
+@DECLARE spy 000004422
+@DECLARE screen 000004538
+@NOCHECK
+; End of .REF index
+
+@#treasure
+@do moveback
+@do saybar
+Treasure fills the room behind this door.
+
+@#Guard1
+@do moveback
+@do saybar
+`2Hail Soldacar!
+
+@#Guard2
+@do moveback
+@do saybar
+`2SoldaCar kicks ass.
+
+
+@#Notnilc
+@dataload df.idf &playernum `p98
+@if `p98 is 1 then do
+@begin
+@show
+`r0`c`r1 The Red Dragon `r0
+
+ `2Dr. Notnilc stands to greet you, but he knows your intentions.
+ `2Please let me tell you something first...
+ `2
+ `3"What?" you ask, annoyed.
+ `3
+ `2The dog, Matt's dog.... She was a mean one she was... We couldn't
+ `2Get her to mutate properly... We had to burn her body... Hahahahaha!
+
+
+@key
+@run FightRd in sold.ref
+@end
+@if `p98 is 2 then do
+@do saybar
+`4You spit on his corpse.
+@end
+
+@#FightRD
+@fight
+;name
+`4Dr. Notnilc
+;string said when you see him
+I AM A GOD!!!
+;power move kill string
+How the Godly have fallen!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+smacks you|627
+shots you|634
+Kicks you|692
+Shoots fire|655
+NONE|NONE
+;defense
+600
+;gold reward
+1000
+;experience
+50000
+;hit points
+5000
+;if win: ref file|name or NONE
+SOLD.REF|WINRed
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#WinRed
+@busy
+@show
+`r0`c`r1 `%Death to the evil one! `r0
+
+ `2You stand next to the bloody remains of Dr. Notnilc. This mission
+ `2has opened your eyes so much to what the true evil is doing out
+ `2here. That you nearly forgot about the Koshi, and the Dragon
+ `2Tooth Clan... But you must be brave... You must go back to HQ.
+
+ `5You give Notnilc one more swift kick before leaving. Some god he
+ `5was...
+@key
+@do addlog
+ `r1 `r0 `0`n`% has KILLED the `4Dr. Notnilc`%!`r1 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+
+@datasave df.idf &playernum 2
+
+@drawmap
+@update
+@closescript
+
+
+@#FIGHT
+@do `p20 random 12 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@busy
+@do `p20 random 1
+@do goto monster`p20
+
+@#monster0
+@fight
+;name
+Guard
+;string said when you see him
+Two guards move in on you.
+;power move kill string
+DarkForest Forever!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+Shoots you|470
+Night Sticks you|402
+Kicks you|491
+NONE|NONE
+NONE|NONE
+;defense
+580
+;gold reward
+1000
+;experience
+1000
+;hit points
+1000
+;
+NONE|NONE
+;
+GAMETXT.REF|DIE
+;
+NONE|NONE
+
+
+@#DRGUARD
+@do moveback
+@do saybar
+Guard: `2Who are you?!
+
+@#sci4
+@do moveback
+@do saybar
+`2This test subject isn't reacting like "it" should. Hmmmm... I wonder...
+
+@#Whatis
+@do moveback
+@do saybar
+`4 WHAT THE HELL IS THAT?!
+
+@#sci1
+@do moveback
+@do saybar
+Scientist: `2We are near a breakthrough in human mutations!
+
+@#sci2
+@do moveback
+@do saybar
+Man: `2 We will create the Ultimate Weapon!
+
+@#sci3
+@do moveback
+@do saybar
+Woman: `2Something isn't right...
+
+@#Helper
+@do moveback
+@do saybar
+`3Mam: I was the last spy. Please help me! I'm scared!
+
+@#Locked
+@do moveback
+@do saybar
+`2It's Locked...
+
+@#Guild
+@do moveback
+@busy
+@show
+`r0`c `%`r1 A Computer Image `r0
+
+ `3You walk up to the computer to ask for directions. Suddenly the blank
+ screen turns into a face of a man.
+
+ `2"Upstairs is for employes only. So, please do not go up those stairs.
+ `2 To the West of you, many high ranking employes are in a meeting.
+ `2 Sadly, Dr. Notnilc could not attend that meeting because he is
+ `2 Working on a secret project to destroy DarkForest Software.
+ `2 THANK YOU!
+
+
+ `3"Thanks... er..."
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#Spy
+@do moveback
+@do saybar
+`2If you havn't already gone to DarkForest HQ, Go there. Look at the screen.
+
+@#Screen
+@do moveback
+@do saybar
+DarkForest HQ located in the Big Forest, NorthEast of Sosen Village.
diff --git a/xtrn/lord2/cnw/sorry.ref b/xtrn/lord2/cnw/sorry.ref
new file mode 100644
index 0000000000000000000000000000000000000000..bbb5ba3ff7c0ca508999106475618f5bc63e53f3
--- /dev/null
+++ b/xtrn/lord2/cnw/sorry.ref
@@ -0,0 +1,135 @@
+; Script file SORRY.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:21 2001
+
+@DECLARE stickcinnamon 000000426
+@DECLARE doorpass 000000587
+@DECLARE hotspot1 000000726
+@DECLARE through 000001068
+@DECLARE hotspot2 000001096
+@DECLARE finished 000001409
+@DECLARE hotspot3 000001437
+@DECLARE hotspot4 000001830
+@DECLARE hotspot5 000002126
+@DECLARE cinnamon 000002233
+@NOCHECK
+; End of .REF index
+
+@#stickcinnamon
+@do `s06 is Stick`|of`|cinnamon
+@do `s07 is cinnamon
+@do `s08 is sorry.ref
+@do `s09 is cinnamon.idf
+@run install in install.ref
+@closescript
+
+@#doorpass
+@do `s06 is Doorpass
+@do `s07 is nouse
+@do `s08 is item99.ref
+@do `s09 is NIL
+@run install in install.ref
+@closescript
+
+@#hotspot1
+@do `p29 is &playernum
+@routine Doorpass in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 is 1 then do
+ @begin
+ @do saybar
+Your Doorpass gains you admission!
+ @do x is 25
+ @do y is 7
+ @update
+ @end
+@if `p20 is 0 then do
+ @begin
+ @do moveback
+ @do saybar
+You must have a Doorpass to pass through
+ @end
+@label through
+@closescript
+
+@#hotspot2
+@do moveback
+@do `p29 is &playernum
+@routine Doorpass in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 is 0 then do
+ @begin
+ @routine giveitem in item99.ref
+ @do saybar
+You just found a Doorpass!
+ @do goto finished
+ @end
+@do saybar
+You see a spot where something used to be.
+@label finished
+@closescript
+
+@#hotspot3
+@do moveback
+@do `p29 is &playernum
+@routine Stick`xof`xcinnamon in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 is 0 then do
+ @begin
+ @routine giveitem in item99.ref
+ @datasave cinnamon.idf &playernum 0
+ @end
+@dataload cinnamon.idf &playernum `p30
+@do `p30 + 1
+@datasave cinnamon.idf &playernum `p30
+@do saybar
+You find a stick of cinnamon!
+@closescript
+
+@#hotspot4
+@do moveback
+@do `p29 is &playernum
+@routine Doorpass in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 is 1 then do
+ @begin
+ @routine takeitem in item99.ref
+ @do saybar
+You surrender your Doorpass upon exiting
+ @end
+@do x is 29
+@do y is 7
+@update
+@closescript
+
+@#hotspot5
+@do moveback
+ @do saybar
+ Doorpass is required to enter.
+ @end
+@update
+@closescript
+
+
+@#cinnamon
+@dataload cinnamon.idf &playernum `p30
+@if `p30 less 1 then do
+ @begin
+ @run errorC in item99.ref
+ @end
+@do `p30 - 1
+@datasave cinnamon.idf &playernum `p30
+@clearblock 13 23
+@do move 1 14
+@show
+ You chew a stick of cinnamon......
+
+ -Mmm! It's delicious!
+
+ (you now have `p30 of 'em)
+`k
+@if `p30 is 0 then do
+ @begin
+ @routine takeitem in item99.ref
+ @run menu in item99.ref
+ @end
+@run getname in item99.ref
+@closescript
diff --git a/xtrn/lord2/cnw/spider.ref b/xtrn/lord2/cnw/spider.ref
new file mode 100644
index 0000000000000000000000000000000000000000..7c81c7e52aa03a493fb876a11efa5ab3205114f9
--- /dev/null
+++ b/xtrn/lord2/cnw/spider.ref
@@ -0,0 +1,204 @@
+; Script file SPIDER.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:32 2001
+
+@DECLARE spiderfight 000000335
+@DECLARE monster1 000000947
+@DECLARE monster2 000001522
+@DECLARE monster3 000002103
+@DECLARE monster4 000002633
+@DECLARE monster5 000003203
+@DECLARE spider 000003737
+@NOCHECK
+; End of .REF index
+
+@#SPIDERFIGHT
+@offmap
+@fight
+;name
+Spider King
+;string said when you see him
+This is the largest spider you've ever seen
+;power move kill string
+You light him on fire for good measure
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+sinks it's fangs in you|295
+hypnotizes you|250
+spins you up in a web|286
+NONE|NONE
+NONE|NONE
+;defense
+250
+;gold reward
+2050
+;experience
+500
+;hit points
+1008
+;if win: ref file|name or NONE
+QUESTER.REF|FINQUEST
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+QUESTER.REF|ENDQUEST
+
+
+@#MONSTER1
+@fight
+;name
+Giant Spiderling
+;string said when you see him
+A nasty looking giant spiderling descends out of a web
+;power move kill string
+You send it back to hell.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+sinks it's fangs in you|95
+hypnotizes you|50
+feasts on your eyes|86
+NONE|NONE
+NONE|NONE
+;defense
+138
+;gold reward
+562
+;experience
+210
+;hit points
+125
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#MONSTER2
+@fight
+;name
+Giant Black Widow
+;string said when you see him
+That red hour glass on her stomach is as big as you
+;power move kill string
+You send her straight to hell
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+spins a web over you|75
+gaffs you with her leg|61
+sinks in her fangs|91
+NONE|NONE
+NONE|NONE
+;defense
+134
+;gold reward
+628
+;experience
+158
+;hit points
+145
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#MONSTER3
+@fight
+;name
+Giant Tarantula
+;string said when you see him
+What a big hairy Spider
+;power move kill string
+You cut off all eight legs
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Tramples you|45
+Bites you|95
+Spins you up in a web|54
+NONE|NONE
+NONE|NONE
+;defense
+141
+;gold reward
+925
+;experience
+171
+;hit points
+265
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#MONSTER4
+@fight
+;name
+Giant Two Headed Spider
+;string said when you see him
+That spider's got two heads, yuck!
+;power move kill string
+You chop off both heads !
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+chomps down with both heads|80
+scares you half to death|95
+Paralyzes you|78
+NONE|NONE
+NONE|NONE
+;defense
+145
+;gold reward
+815
+;experience
+200
+;hit points
+351
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#MONSTER5
+@fight
+;name
+Giant Brown Spider
+;string said when you see him
+This Spider looks hungry.
+;power move kill string
+Don't come round here no more
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+sprays venom on you|84
+smothers you|98
+bites you|87
+NONE|NONE
+NONE|NONE
+;defense
+125
+;gold reward
+526
+;experience
+165
+;hit points
+542
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#SPIDER
+@busy
+@do `p20 random 5 1
+@do goto monster`p20
diff --git a/xtrn/lord2/cnw/srdtower.ref b/xtrn/lord2/cnw/srdtower.ref
new file mode 100644
index 0000000000000000000000000000000000000000..1272c7cdb7ad8d0dcddfc52677d3e4ecb93dcccc
--- /dev/null
+++ b/xtrn/lord2/cnw/srdtower.ref
@@ -0,0 +1,939 @@
+; Script file SRDTOWER.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:28 2001
+
+@DECLARE marbles 000000854
+@DECLARE marbles 000001014
+@DECLARE thug 000001136
+@DECLARE startgambl 000001430
+@DECLARE crapsign 000002422
+@DECLARE slotsign 000002494
+@DECLARE super 000002562
+@DECLARE startsing 000003141
+@DECLARE superwin 000003739
+@DECLARE questsign 000004421
+@DECLARE quest 000004515
+@DECLARE talk 000004743
+@DECLARE found 000006595
+@DECLARE toilet 000006676
+@DECLARE treasure 000006752
+@DECLARE tower 000009547
+@DECLARE doorguard 000009656
+@DECLARE startg 000009685
+@DECLARE sign 000013261
+@DECLARE enter 000013574
+@DECLARE done 000014504
+@DECLARE letmein 000016177
+@DECLARE done 000016258
+@DECLARE heal 000016268
+@DECLARE wizard 000016475
+@NOCHECK
+; End of .REF index
+
+;Added by CNW, Marbles is no an EXT ITEM.
+@#Marbles
+@do `s06 is Marbles
+@do `s07 is MARBLES
+@do `s08 is SRDTOWER.REF
+@do `s09 is NIL
+@run install in install.ref
+@closescript
+;<---end of CNW--->
+@#MARBLES
+@do `s01 is You`xcant`xthink`xof`xany`xway`xto`xuse`xthis`xitem!
+@routine display in item99.ref
+@closescript
+
+@#Thug
+@do `p70 is 110
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@datanewday srdgambl.idf
+@dataload srdgambl.idf &playernum `p20
+@if `p20 not 1 then goto startgambl
+
+@do moveback
+@do saybar
+"I can only sell gambles once a day!"
+@closescript
+
+@label startgambl
+@do moveback
+@offmap
+@show
+`r0`c `r1 Talking with stranger `r0
+
+`2"Psst, hey kid, you all out of gambles for today?"
+"Well, then i've got the perfect deal for you my friend"
+`k
+`2"I'll give you 10 extra gambles for a fair price of
+only 200 gold pieces, deal?" asks the stranger
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+DEAL!
+Get away from me stranger!
+@show
+`\
+@if responce is 2 then do
+@begin
+@drawmap
+@update
+@do saybar
+"You're making a mistake" the stranger says
+@closescript
+@end
+
+@if responce is 1 then do
+@begin
+@if money < 200 then do
+@begin
+@drawmap
+@update
+@do saybar
+"You don't have 200 kid" says the stranger
+@closescript
+@end
+
+@if money > 200 then do
+@begin
+@do money - 200
+@do `p33 + 10
+@datasave srdgambl.idf &playernum 1
+@drawmap
+@update
+@do saybar
+"Good dealin' wit' ya kid, go use your new gambles!"
+@dataload npc/npcgold.idf `p70 `p22
+@do `p22 + 200
+@datasave npc/npcgold.idf `p70 `p22
+@closescript
+@End
+@end
+
+@#crapsign
+@do moveback
+@do saybar
+\`2C`0R`2A`0P`2S
+@closescript
+
+@#slotsign
+@do moveback
+@do saybar
+`2S`0L`2O`0T`2S
+@closescript
+
+@#Super
+@do moveback
+@do `p29 is &playernum
+@routine Marbles in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 is 1 then do
+ @begin
+ @do Saybar
+The Super-Human's dead body lies rotting
+ @closescript
+ @end
+@if bitcheck `t93 5 1 then do
+ @begin
+ @do Saybar
+The Super-Human's dead body lies rotting
+ @closescript
+ @end
+@datanewday srdtower.idf
+@dataload srdtower.idf &playernum `p20
+@if `p20 not 1 then goto startsing
+@do saybar
+It takes em' at least a day to regenerate!
+@closescript
+
+@label startsing
+@fight
+;name
+Super-Human
+;string said when you see him
+You see a glowing figure dart towards you!
+;power move kill string
+"You aren't very super!" you say stupidly
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+throws a glowing ball of energy at you|900
+sets you on fire|700
+freezes you|800
+NONE|NONE
+NONE|NONE
+;defense
+500
+;gold reward
+1
+;experience
+2000
+;hit points
+6000
+;if win: ref file|name or NONE
+srdtower.ref|superwin
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#Superwin
+@begin
+@offmap
+@show
+`r0`c `r1 Defeated Super-human `r0
+
+`2The Super-human's bloody body falls to the hard ground..
+`k
+`2You quickly run up to his body and search his clothing
+for Abel's marbles.
+`k
+`2You find that`l.`l.`l.`l.
+@do `p20 random 4 1
+@if `p20 is 1 then do
+@begin
+@show
+`%It was the real Super-human, you find the marbles!!!
+`k
+@do `p29 is &playernum
+@routine Marbles in extitems.ref
+@routine bitcheck in item99.ref
+@routine giveitem in item99.ref
+@datasave srdtower.idf &playernum 1
+@drawmap
+@update
+@end
+
+@if `p20 not 1 then do
+@begin
+@show
+`4It was a decoy Super-human, no marbles here, damn!
+`k
+@drawmap
+@update
+@end
+
+@#Questsign
+@do moveback
+@do saybar
+Caves condemned - The Sword Castle Assoc.
+@closescript
+
+@#Quest
+@do moveback
+@do `p29 is &playernum
+@routine Marbles in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 is 1 then do
+@begin
+@do goto found
+@end
+
+@if `p20 not 1 then do
+@begin
+@do goto talk
+@end
+
+@label talk
+@offmap
+@show
+`r0`c `r1 Talking with Abel `r0
+
+`2You see an old man weeping like a baby. You
+approach him to find out what his problem is.
+`k
+`0"My marbles, I lost me marbles, boo hoo..."
+`k
+`%"You sure did (snicker), is there anything I can do?" you ask
+`k`c
+`0"Yes, you could find my marbles for me, i'm too old to go down in
+those caves and look for them. But if you do choose to help me be
+careful down in the caves, only a strong warrior should go down there
+because of all the monsters. The marbles were taken from me by a
+super-human, who gaurds the marbles with his life, you will have to
+kill the super-human before getting my marbles, there are also
+decoy super-humans who don't really have the marbles, so choose the
+right path. The cave opening is in the east tower of the castle.
+`k`k
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Hear story again
+Give Abel his marbles
+Leave
+@show
+`\
+@if responce is 3 then do
+@begin
+@drawmap
+@update
+@end
+
+@if responce is 1 then do
+@begin
+@do goto talk
+@end
+
+@if responce is 2 then do
+@begin
+@do `p29 is &playernum
+@routine Marbles in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 not 1 then do
+@begin
+@drawmap
+@update
+@do saybar
+You don't have my marbles!
+@closescript
+@end
+
+@if `p20 is 1 then do
+@begin
+@offmap
+@show
+`r0`c `r1 Returning Abel's marbles `r0
+
+`2"THANK YOU SO MUCH, YOU FOUND THEM!!!!!"
+`k
+`2"I'll give you a quite generous reward!"
+`k
+`0The old man walks out of the tower, then runs
+back towards you.
+`k
+`%He gives you `9100 Gems`%, `2100,000 Gold pieces`%,
+and a `0Moonstone`%!!!
+`k
+@do `p19 + 100
+@do money + 100000
+@do `i57 + 1
+@bitset `t93 5 1
+@do `p29 is &playernum
+@routine Marbles in extitems.ref
+@routine bitcheck in item99.ref
+@routine takeitem in item99.ref
+@drawmap
+@update
+@end
+
+@label found
+@do saybar
+Thanks again for finding my marbles, `n
+@closescript
+
+
+@#Toilet
+@do moveback
+@do saybar
+Ahhh.... Much better
+@closescript
+
+@#treasure
+@do moveback
+@do `p20 is 0
+@if srdtres.dat exist true then do
+ @begin
+ @readfile srdtres.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile srdtres.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete srdtres.dat
+ @writefile srdtres.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile srdtower.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0The Sword Castle Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile srdtres.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete srdtres.dat
+ @writefile srdtres.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile srdtower.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0The Sword Castle Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+
+@#TOWER
+;Tower in the castle
+@DO SAYBAR
+`2The tower on this castle is not ready yet.
+@do moveback
+
+@#doorguard
+@do moveback
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+@if srdtower.dat exist false then do
+ @begin
+ @do saybar
+`0"You have 5 minutes to vacate this tower!" `2the guard barks.
+ @closescript
+ @end
+
+@readfile srdtower.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+You wave to the door guard, nice of him to let you in.
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The huge doorguard snaps to attention when he sees you are going to
+ address him.
+
+@do write
+`x`x
+@choice
+Set password to gain entrance (currently is `0`s01`%)
+Ownership options
+`%Make `#Sword Castle `%your home
+Leave
+@if responce is 3 then do
+ @begin
+ @do `p69 is 21
+ @show
+`r0`c
+
+ `#Sword Castle `%is now your registered home.
+
+ @key
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$10,000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your tower to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete srdtower.dat
+ @writefile srdtower.dat
+`p20
+`s01
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of The Sword Castle Tower to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%The Sword Castle Tower`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your tower back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete srdtower.dat
+ @do money + 10000
+ @show
+`\`\ `%TOWER SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%The Sword Castle Tower`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete srdtower.dat
+ @writefile srdtower.dat
+&playernum
+`s01
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#sign
+@do moveback
+
+ @if srdtower.dat exist false then do
+ @begin
+ @do saybar
+The Sword Castle Tower - For sale cheap, enquire inside.
+ @end
+
+@if srdtower.dat exist true then do
+ @begin
+@readfile srdtower.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+@#enter
+@do moveback
+@offmap
+@if srdtower.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 For Sale `r0
+
+`2The Sword Castle Tower is a great value for the asking price,
+it comes complete with free healing, wizard to transport you
+places, and more!
+
+It is for sale at 20,000 gold pieces.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 19999 Purchase it.
+<&money 20000 Sigh wistfully and leave since you don't have enough.
+>&money 19999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if srdtower.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile srdtower.dat
+&playernum
+NONE
+ @do money - 20000
+ @do addlog
+ `0`n `2buys `%The Sword Castle Tower`2!
+ @routine seperate in gametxt.ref
+
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile srdtower.dat
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete srdtower.dat
+ @do addlog
+ `%The Sword Castle Tower`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @show
+`r0`c `r1 No entrance `r0
+
+`0"Master `s02`0 has declared that `4NO`0 visitors shall be allowed!" `2a
+voice calls from behind the wall.
+
+`k
+ @do goto done
+ @end
+
+ @show
+`r0`c `r1 Identify yourself `r0
+
+`2A head pops over the gate. `0"Halt, you! What business have you with
+my lord and master, `%`s02`0?" `2the door guard asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation.
+Visit later.
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Welcome to `%The Sword Castle Tower`0,"`2
+ the guard smiles as he opens the gate.`\`\`k
+ @do goto letmein
+ @end
+ @writefile mail\mail`p20.dat
+ `0The Sword Castle Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The guard doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+ @end
+
+;let him in
+@label letmein
+@do x is 79
+@do y is 10
+@do map is 1468
+@loadmap 1468
+@do goto done
+@#done
+
+@#Heal
+@do moveback
+@offmap
+@show
+`r0`c `r1 Your personal Doc `r0
+
+`2The doc carefully looks you over for wounds.
+`k
+`%You are completely healed.
+
+`k
+`k
+@do `p02 = `p03
+@drawmap
+@update
+
+
+@#wizard
+@do moveback
+@offmap
+@show
+`r0`c `r1 Your personal Wizard `r0
+
+`2"Hello Master, where would you like to go today?"
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Greentree
+Stonebrook
+Porttown
+Flagcity
+Arrisville
+Bone Town
+Sosen Village
+Leave
+@show
+`\`\
+@if responce is 8 the do
+@begin
+@drawmap
+@update
+@end
+
+@if responce not 8 then do
+@begin
+@show
+`2Ok, let me just grab my spell book....
+`k
+`2Ok, here we go....`9RAFNAR, ECRAGS, MERCERRULZ...
+
+`2Before you know it, you are there.
+@end
+
+@if responce is 1 then do
+@begin
+@do map is 1356
+@do x is 44
+@do y is 7
+@loadmap 1356
+@drawmap
+@update
+@end
+
+@if responce is 2 then do
+@begin
+@do map is 1359
+@do x is 46
+@do y is 15
+@loadmap 1359
+@drawmap
+@update
+@end
+
+@if responce is 3 then do
+@begin
+@do map is 152
+@do x is 42
+@do y is 17
+@loadmap 152
+@drawmap
+@update
+@end
+
+@if responce is 4 then do
+@begin
+@do map is 1092
+@do x is 73
+@do y is 18
+@loadmap 1092
+@drawmap
+@update
+@end
+
+@if responce is 5 then do
+@begin
+@do map is 523
+@do x is 22
+@do y is 17
+@loadmap 523
+@drawmap
+@update
+@end
+
+@if responce is 6 then do
+@begin
+@do map is 1572
+@do x is 41
+@do y is 15
+@loadmap 1572
+@drawmap
+@update
+@end
+
+if responce is 7 then do
+@begin
+@do map is 456
+@do x is 27
+@do y is 11
+@loadmap 456
+@drawmap
+@update
+@end
diff --git a/xtrn/lord2/cnw/stable.clr b/xtrn/lord2/cnw/stable.clr
new file mode 100644
index 0000000000000000000000000000000000000000..22a5af2b40039d9b58c323c3f3c9171aafd3acb2
--- /dev/null
+++ b/xtrn/lord2/cnw/stable.clr
@@ -0,0 +1,13 @@
+[?7h[255D[66C[0;1;33m��� �������
+[64C���������������
+[64C���������������
+[62C����[31m�����������[33m��
+[62C� ��[31m�[37m�[0;36m�[1;37m�[31m���[37m�[0;36m�[1;37m�[31m�[33m��
+[62C�� [31m�[41m���[40m���[41m���[40m�[33m��
+[67C[31m��[41m��[40m�[41m��[40m�� [33m�
+[67C[31m����[41m�[40m����
+[64C[0;33m��� [1;31m��[37m���[31m�� [0;33m���
+[62C��� � [1;31m����[33m�[31m�� [0;33m��
+[62C� �� � [1m�� [0;33m���
+[63C� ��� ����[1m�[0;33m�� ��
+[73C[1m�Į��
diff --git a/xtrn/lord2/cnw/stime.dat b/xtrn/lord2/cnw/stime.dat
new file mode 100644
index 0000000000000000000000000000000000000000..0cf9d94d8266bc010153fe95a8cdae21b9732618
--- /dev/null
+++ b/xtrn/lord2/cnw/stime.dat
@@ -0,0 +1 @@
+2031
diff --git a/xtrn/lord2/cnw/stoneb.ref b/xtrn/lord2/cnw/stoneb.ref
new file mode 100644
index 0000000000000000000000000000000000000000..324a8e123f81fffc199d1d51e035ef7f5cfce0f1
--- /dev/null
+++ b/xtrn/lord2/cnw/stoneb.ref
@@ -0,0 +1,1253 @@
+; Script file STONEB.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:12 2001
+
+@DECLARE inn 000001070
+@DECLARE jack 000001136
+@DECLARE jackstart 000001357
+@DECLARE showworm 000005016
+@DECLARE jacksign 000010481
+@DECLARE jackseat 000010560
+@DECLARE coatrack 000010627
+@DECLARE cavesign 000010686
+@DECLARE bird 000010781
+@DECLARE chest1 000011899
+@DECLARE chest2 000012108
+@DECLARE fall 000012295
+@DECLARE snake 000012684
+@DECLARE cave 000012872
+@DECLARE oldwoman 000013045
+@DECLARE oldstart 000013100
+@DECLARE grocery 000019210
+@DECLARE grab 000019261
+@DECLARE healers 000019560
+@DECLARE winthrog 000021431
+@DECLARE rog1 000021482
+@DECLARE pawn 000022354
+@DECLARE pawn1 000022406
+@DECLARE tree 000023237
+@DECLARE nothing 000024516
+@DECLARE sign1 000024525
+@DECLARE sign2 000024628
+@DECLARE greensign 000024739
+@DECLARE fightned 000024836
+@DECLARE nebrun 000025418
+@DECLARE beatneb 000025557
+@DECLARE neb 000026028
+@DECLARE nothing 000027730
+@NOCHECK
+; End of .REF index
+
+;stoneb.ref, for the town of Stonebrook and nearby.
+@#INN
+@DO SAYBAR
+`@Renovations in progress. Come back soon.
+
+@#JACK
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c`% `r1 Jack's Restaurant `r0
+
+`2 You grab a seat and wait for some service.
+
+`k A stocky man with curly hair appears to take your order.
+
+`k
+
+@label jackstart
+@show
+`r0`c`% `r1 Time to tempt your tummy `r0
+
+`2 Jack fiddles with his pencil while waiting for you.
+
+@do write
+`x`x
+@choice
+Look at the menu.
+Order something
+Stand up
+@
+
+@if response is 1 then do
+ @begin
+ @show
+`r0`c `%Welcome to Jack's!
+
+ `5For your dining pleasure we offer several specialties not found
+ anywhere else. You will want to try 'em all!
+
+`k `#Spider Soup (`$$20`#)
+
+ `5The delicate Black Widow spider not only makes a great pet `#-`5 but also
+ makes a delicious lunch. Grown especially for Jack's, they are always
+ the biggest, plumpest and juiciest you'll find anywhere!
+
+ `#Earwig Souffl� (`$$30`#)
+
+ `5You'll die of satisfaction when you taste this fabulous dessert! Created
+ with NightHawk egg whites and topped with crunchy earwig body parts, this
+ scrumptious delight will leave you breathless!
+
+ `#Whole Gloworm (`$$50`#)
+
+ `5Extremely rare and famous for the light they give off after biting into
+ one, these magical crawlers will squiggle in your mouth providing fun
+ incandescent entertainment for the whole family! Yummy!
+
+`k
+@do goto jackstart
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\`\ `2Order what? (`0You have `$&money`2)`\`\`x`x
+ @do `v01 is 1
+ @choice
+`#Spider Soup (`$$20`#)
+`#Earwig Souffl� (`$$30`5)
+`#Whole Gloworm (`$$50`5)
+`#Nuthin'
+ @
+
+ @if response is 1 then do
+ @begin
+ @if money < 20 then do
+ @begin
+ @show
+`\`\ `4You can't afford that, poor s&boy.`\`\`k
+ @do `v01 is 2
+ @do goto jackstart
+ @end
+ @do money - 20
+ @show
+`r0`c `r1 Chow Time `r0`\`\ `2Jack brings out the bowl of soup. You pick at it
+ carefully with your spoon `0-`2 looks ok. You slurp some up.
+`\`k `4A spider tries to crawl out of your mouth!
+`\`k `%But you kind of like it!!! Yum.
+`\`k
+ @end
+
+ @if response is 2 then do
+ @begin
+ @if money < 30 then do
+ @begin
+ @show
+`\`\ `4You can't afford that, poor s&boy.`\`\`k
+ @do `v01 is 2
+ @do goto jackstart
+ @end
+ @do money - 30
+ @show
+`r0`c `r1 Chow Time `r0`\`\ `2Jack brings out the Souffl�.
+`\ You see tiny earwigs crawling in and out of it!
+`\`k `4The earwigs crunch noisily!
+`\`k `%You enjoy the sensation!!!! What fun!
+`\`k
+ @end
+
+ @if response is 3 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+`\`\ `4You can't afford the gloworm.`\`\`k
+ @do `v01 is 2
+ @do goto jackstart
+ @end
+ @do money - 50
+ @show
+`r0`c `r1 Chow Time `r0`\`\ `2Jack brings out the Gloworm.
+`\ You take a close look at the little guy.
+`\`k
+ @routine showworm
+ @show
+`k`r0`c `r1 GOOD GOD! `r0
+`\ `4The worm is ugly as sin!
+`\`k `2Are you sure you wanna eat this thing?`\
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Chomp on him
+Put him in your pocket for later
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2You carefully put the squirming worm between your lips, being careful
+ `2not to let it bite you.
+`\`k `2You play with the morsel with your tongue, oooh, it tickles!
+`\`k `0You finally decide the fun is over and bite the worm in half. Juices
+ pour into your mouth, hey look, your mouth is glowing! Yay!
+`\`k
+ @do `v01 is 2
+ @do goto jackstart
+ @end
+ @show
+`\`\ `2You carefully put the worm in your pocket. You never know when you
+ might need it.
+`\`k
+ @do `i17 + 1
+ @do `v01 is 2
+ @do goto jackstart
+ @end
+
+
+
+ @do `v01 is 2
+ @do goto jackstart
+ @end
+
+@drawmap
+@update
+
+@#SHOWWORM
+@pauseoff
+@show
+`c[255D[0;35m����[1;37;45m�� [0;35m���[1;30m��[0m�[35m����[45m [40m
+[A[22C[45m[1;37m�� [0;35;42m��[1;32m���������[40m����������
+[A[48C[0;32m���[1m��[0;35m����[45m [1;37m������[0;35m����
+[A[77C��
+[A[79C[1;30m�[0;35m����[45m [1;37m�[0;35m���[1;30m�[0m�
+[A[17C[35m����[45m [1;37m�[0;35;42m��[1;32m�����[40m��������������
+[A[44C������[0;32m�����[1m��[0;35m���[45m [40m����[45m [1;37m�[40m
+[A[70C[45m� [0;35m���[1;37;45m�� [40m
+[A[79C[0;35m�������[45m [1;37m���� [0;35m���[42m��[1;32m������[40m
+[A[26C[42m[40m�������������������[0;32m���������������[1m��[0;35m��
+[A[64C�����������[45m [40m
+[A[79C[45m [1;37m�� [0;35m��[1;30m�[0m�[35m��[45m [1;37m�� [40m
+[A[17C[45m[0;35;42m��[1;32m����[40m��������������������[0;32m������
+[A[49C�������������[1m�[0;35m���������[45m [1;37m� [40m
+[A[79C[0;35m�[45m [40m������[45m [42m�[1;37m�[32m����[40m���
+[A[21C� [37m����[6C[0;32m����[1m�����[0;32m����� [1;37m����[5C
+[A[58C[0;32m��������[1m��[0;35m��[45m [1;37m����� [0;35m�
+[A[79C�[45m [42m�[1;37m�[32m���[40m����[37m�� [0;31m�
+[A[26C���� [1;37m���[0;32m�����[1m��[0;32m����� [1;37m��� [0;31m��
+[A[53C�������[32m�������[1m��[0;35m��[45m [1;37m� [0;35m���
+[A[79C[1;30m�[45m [37m�� [0;35;42m��[1;32m���[40m��[37m�
+[A[19C[0;31m��������������� [1;37m��[0;32m������[1;37m�� [0;31m����
+[A[50C������������۰[32m�����[1m��[0;35m�������[1;30m�
+[A[79C[0m�[1;45m����� [0;35;42m��[1;32m��[40m�[37m� [0;31m���
+[A[20C���������������� [1;37m.[0;32m����[1;37m� [0;31m������������
+[A[56C[1;41m�[0;31m۱۱�[1;41m�[0;31m�[1;41m�[0;31m�[32m���[1m��
+[A[71C[0;35m��������
+[A[79C�[45m [1;37m�� [0;35m�����[45m [30;41m�[2C[31;40m�������
+[A[23C��������������� [32m��[1;37m�[0;31m�������������[1;41m�[0;31m
+[A[56C�[1;41m� �����[37m��[0;31m��[35m�����������
+[A[79C�[45m [40m����[1;30m�[0;35m����[45m [30;41m��[C[1;31m��[40m
+[A[18C[41m[0;31m�[1;41m�[0;31m�[1;41m�[0;31m�[1;41m�[0;31m�
+[A[25C[1;41m�[37m�[0;31m�[1;41m� � � �[37m��[0;31m� [32m��[1;37m
+[A[41C�[0;31m�[1;41m��[0;31m�[1;41m�[0;31m�[1;41m�[0;31m�[1;41m�[40m
+[A[51C[41m[0;31m�[1;41m�[0;31m�[1;41m�[0;31m�[1;41m�[37m�[31m�[40m
+[A[59C[41m[0;31m�[1;41m���[37m���[0;31m��[35m��[45m [1;37m�� [40m
+[A[75C[45m[0;35m����
+[A[79C������[1;30m�[0;35m����[45m [30;41m��[C[1;31m����[0;31m�
+[A[22C[1;41m�[0;31m�[1;41m��[37m�� [31m� �[37m��[0;30;41m��[40m
+[A[36C[41m[32;40m��[1;37;42m�[32m�[40m�[0;32m���[31m��[1;41m����[40m
+[A[50C[41m[0;31m�[1;41m� � � [37m�[31m����[37m���[0;31m��[35m���
+[A[70C[45m [1;37m�[40m
+[A[79C[0;31;45m�[35;40m�[1;37;45m�� [0;30;41m��[1;31m�[40m
+[A[20C[41m�[37m�����۲���[0;30;41m�[32;40m����[1;42m��[40m��
+[A[40C[0;32m��������[31m��[1;41m��[37m�����۲���[0;31m���[35m�����
+[A[70C�������[45m [1;37m�[40m
+[A[79C[45m �� [0;35m���[45m [42m�[30;41m�[1;31m���[37m[40m
+[A[23C[41m������[0;30;41m�[32;40m�����[1;37;42m�[32m�[2C[40m�
+[A[40C[0;32m� [1m��[0;32m�����[31m��[1;41m���[37m�����[0;31m���
+[A[63C[1;32m�[0;35m����[45m [40m���[1;30m�[0;35m����
+[A[79C��[45m [1;37m������ [0;35m������[45m [42m��[32;40m�����
+[A[26C[1;37;41m�[0;32m�����[1;42m�[40m����[0;32m�������������������
+[A[56C�[1;37;41m�[0;32m��[1m��[0;35m����[45m [40m���[1;30m��
+[A[75C[0m�[35m���
+[A[79C���[45m [1;37m�� [0;35m���[1;30m�[0;35m���[45m [42m��[40m
+[A[22C[42m[1;32;40m����[37;42m�[32;40m���[37;42m�[32;40m�����
+[A[36C[0;32m����������������������[1m��[0;35m����[45m [40m���
+[A[72C[1;30m���[0m��[35m��
+[A[79C��������������[1;30m�[0;35m���[45m [42m��[1;32;40m���
+[A[27C[42m�[40m��[37;42m�[32;40m��[0;30;47m�[1;37m� [0;30;47m�[40m
+[A[37C[47m[1;37m� [0;30;47m�[1;37m� [0;30;47m�[1;37m� [0;30;47m�[40m
+[A[46C[47m[C[32;40m���������[1m��[0;35m����[45m [40m���
+[A[73C[1;30m���[0m���
+[A[79C��[35m�����������[1;30m�[0;35m���[45m [40m��[45m [42m�[40m
+[A[26C[42m�[1;32;40m����[42m�[C[0;30;47m�[1;37m��[0;30;47m�[5C�[40m
+[A[43C[47m[1;37m��[0;30;47m�[2C[32;40m�����[1m��[30m��[0m�[35m�
+[A[59C��[45m [1;37m�� [0;35m���[1;30m��[0m���
+[A[79C���[35m���������[1;30m�[0;35m���[1;37;45m�� [0;35m����[45m[40m
+[A[24C[45m [42m��[1;32;40m�[37;42m�[4C[0;30;47m�[1;37m� [40m
+[A[39C[47m[0;30;47m�[1;37m� [0;30;47m�[5C[32;40m��[1m��[0;35m���
+[A[55C�[1;30m��[0m��[35m���[45m [40m���[1;30m���[0m�
+[A[79C������[1;30m����[0;35m���[1;37;45m�� � [0;35m�����[45m [40m
+[A[27C[45m[1;37m� [0;35;42m��[1;32m�[40m�����������[0;32m����[1m
+[A[48C��[0;35m����[45m [40m���[1;30m��[0m���[35m���[45m [40m
+[A[71C[45m[1;37m� [0;35m���[1;30m��
+[A[79C[0m����������[1;30m�[0;35m���[45m [1;37m��� [0;35m����
+[A[25C[45m [1;37m���[0;35m���[45m [42m��[1;32m��[40m��������
+[A[45C[0;32m��[35m�����[45m [1;37m� [0;35m���[1;30m��[0m���
+[A[65C[35m���[45m [1;37m����� [0;35m��
+[A[79C�`%
+@pauseon
+
+@#JACKSIGN
+@do moveback
+@do saybar
+`6<--- This way to Jack's Restaurant.
+
+@#JACKSEAT
+@do moveback
+@do saybar
+`6Please seat yourself.
+
+
+@#COATRACK
+@do moveback
+@do saybar
+Nice coat rack.
+
+
+@#CAVESIGN
+@do moveback
+@do saybar
+`6Cave condemned, stay out. - City council of Stonebrook
+
+@#BIRD
+@do moveback
+@if `t08 not 0 then do
+ @begin
+ ;already got the bird
+ @do saybar
+The nest is empty, save some bird crap.
+ @closescript
+ @end
+
+@if `t05 < 4 then do
+ @begin
+ ;doesn't know about Hector yet
+ @do saybar
+You see a nest... Hmm, whatever lives here must be out.
+ @closescript
+ @end
+
+
+
+@show
+`r0`c `r1 `0POLLY WANTS A CRACKER `r0
+
+`2 You find a nest! There is a parrot in it! It looks at you fearfully
+ in an almost human way.
+
+ `0"Awk! Leave me alone! Awk!"
+
+`k You squint at the parrot. `$"What is your name, bird?"
+
+ `0"I'm Hector - an old witch cast an enchantment on me! Awk!"
+
+ `2You look at the bird skeptically.
+
+ `0"She wants to eat me! Awk! I have been hiding from her for years!"
+
+`k `$"Why didn't you just fly away, silly?" `2you ask.
+
+`0 "She clipped my wings every week - maybe I could now...Awk."
+
+`k `$"Tough luck. You're coming with me!" `2you laugh as you scoop
+ the bewildered parrot up.
+
+ `%YOU HAVE THE PARROT! (AND 3 MORE QUEST POINTS!)
+
+`k
+@do `i18 is 1
+@do `t08 is 1
+@do `p18 + 3
+@drawmap
+@update
+
+@#CHEST1
+ @do moveback
+ @if `t06 is 0 then do
+ @begin
+ @do `t06 is 1
+ @do money + 35
+ @do saybar
+`0You find `$35 `0gold pieces!
+ @closescript
+ @end
+
+ @do saybar
+`0The chest is empty.
+
+
+
+@#CHEST2
+ @do moveback
+ @if `i07 is 0 then do
+ @begin
+ @do `i07 is 1
+ @do saybar
+`0You find an Ancient flute!
+ @closescript
+ @end
+
+ @do saybar
+`0The chest is empty.
+
+
+
+@#FALL
+
+ @do X is 20
+ @do Y is 9
+ @do map is 1518
+ @loadmap 1518
+
+@show
+`r0`c `4OH NO.
+
+`2 You have tripped and banged your head a good one `0-`2 just when you were
+ doing so good! Maybe if you had some light, you would have avoided that
+ hole.. Haw!
+
+`k `2You wake up a few hours later outside. Strange, who could have helped
+ you?
+
+`k
+@drawmap
+@update
+
+@#SNAKE
+ @do saybar
+`2Ouch! A snake bit you for `b5`2 damage!
+ @do `p02 - 5
+ @if `p02 < 1 then do
+ @begin
+ @do enemy is a`xsnake
+ @run die in gametxt.ref
+ @end
+
+
+@#CAVE
+ @do X is 39
+ @do Y is 19
+ @do map is 1289
+ @loadmap 1289
+ @drawmap
+ @update
+ @do saybar
+Arg! You can't see a thing, it's pitch black in here!
+
+@#OLDWOMAN
+@offmap
+@do moveback
+@do `v01 is 1
+@label oldstart
+@show
+`r0`c `%`r1 THE OLD WOMAN'S HOUSE `r0
+
+`2 You are greeted by the smell of decay and rot.
+@if `t05 is 0 then do
+ @begin
+ @show
+`\ `2You hear a voice from the back. `0"Come in, dearie!!!"
+ @end
+
+@if `t05 is 1 then do
+ @begin
+ @show
+`\ `2The old woman is looking at you expectantly.
+ @end
+
+@if `t05 is 2 then do
+ @begin
+ @show
+`\ `2The old woman is tidying up the shack.
+ @end
+
+
+@do write
+`\`x`x
+@choice
+=`t05 0 Whatup, ugly hag?
+=`t05 0 Hi. Damn you're ugly!
+=`t05 0 Good lord, woman!! What happened to your face?
+=`t05 1 Ask to taste her brew.
+=`t05 1 >`i11 0 <`p07 -5 `4Offer your little friend as an ingredient.
+=`t05 1 >`i01 0 Offer some wildberries as an ingredient.
+=`t05 1 >`i08 0 Offer momma's pie as an ingredient.
+=`t05 1 >`i03 0 Offer milk as an ingredient.
+=`t05 2 Ask to taste her stew.
+=`t05 3 Hector? Who the hell is Hector?
+=`t05 4 Talk to the woman.
+=`t08 3 =`t05 4 Um yeah.. I sort of let Hector fly away. Ya mad?
+=`i18 1 Hey. I brought your damn bird.
+=`t05 5 =`t08 0 Anything new, old woman?
+=`t05 5 =`t08 3 Anything new, old woman?
+=`t05 1 >`i43 0 Offer an Egg as an ingredient.
+Leave
+@
+
+
+@if `v01 is 1 then do
+ @begin
+ @show
+`\`\ `0"Not much, young man! I'm merely cooking my stew!" `2she cackles.
+
+`k
+ @do `t05 is 1
+ @do goto oldwoman
+ @end
+
+@if `v01 is 2 then do
+ @begin
+ @show
+`\`\ `0"Thankyou for noticing that. Wanna test my stew?" `2she asks.
+
+ `4CHARM GOES DOWN BY ONE.
+`k
+ @do `t05 is 1
+ @do `p08 - 1
+ @do goto oldwoman
+ @end
+
+@if `v01 is 3 then do
+ @begin
+ @show
+`\`\ `0"My face? How do you mean? No mind! I'm making stew!" `2she exclaims.
+
+ `4CHARM GOES DOWN BY ONE.
+`k
+ @do `t05 is 1
+ @do `p08 - 1
+ @do goto oldwoman
+ @end
+
+@if `v01 is 5 then do
+ @begin
+ @do `i11 is 0
+ @do `p07 - 2
+ @do `t06 + 2
+ @show
+`\`\ `0"Ahh! Fresh meat!" `2the woman screams. She takes the struggling
+ small child from you and prepares her for the stew.
+
+ You wonder why your heart has grown so cold.
+
+ `4ALIGNMENT GOES DOWN BY TWO.
+ `4CHARM GOES UP BY ONE.
+`k
+ @do `p08 + 1
+ @do goto oldwoman
+ @end
+
+@if `v01 is 6 then do
+ @begin
+ @do `i01 - 1
+ @do `t06 + 1
+ @show
+`\`\ `0"Wildberries? Ok!" `2the woman takes your berries and throws them
+ into the evil looking brew.
+
+`k
+ @do goto oldwoman
+ @end
+
+@if `v01 is 16 then do
+ @begin
+ @do `i43 - 1
+ @do `t06 + 1
+ @show
+`\`\ `0"An egg? Ok!" `2the woman takes the egg and throws it
+ into the evil looking brew.
+
+`k
+ @do goto oldwoman
+ @end
+
+
+@if `v01 is 7 then do
+ @begin
+ @do `i08 - 1
+ @do `t06 + 1
+ @show
+`\`\ `0"A pie? Ok!" `2the woman takes your pie and smashes it up - then
+ sprinkles the goo into the iron cauldron.
+
+`k
+ @do goto oldwoman
+ @end
+
+@if `v01 is 8 then do
+ @begin
+ @do `i03 - 1
+ @do `t06 + 1
+ @show
+`\`\ `0"Milk? Ok!" `2the ever-so-wrinkled woman carefully empties your
+ bottle of milk into the bubbling liquid.
+
+ `4CHARM GOES UP BY ONE.
+`k
+ @do `p08 + 1
+ @do goto oldwoman
+ @end
+
+
+
+@if `v01 is 4 then do
+ @begin
+@show
+`\`\ `0"Sure! How is it?" `2the elderly one dips a stained ladle into the
+ boiling broth and offers it to you.
+
+ `0After carefully blowing on it, you slurp it up.
+
+@
+
+
+
+ @if `t06 is 0 then do
+ @begin
+
+ @do `p02 - 2
+ @if `p02 < 1 then `p02 is 1
+ @show
+`k `4It tastes horrible. `$"GAWD WOMAN!" `2you scream, `$"LEARN HOW TO
+ COOK!!!"
+
+`2 The old woman's face falls. `0"I must still be missing a few
+ ingredients... Just you wait, this will eventually be the best stew
+ you've ever tasted!"
+
+ `2Amused at her antics you forgive her for the pain in your stomach.
+
+`k
+ @end
+
+ @if `t06 is 1 then do
+ @begin
+ @show
+`k `2It tastes like crap basically.. but not quite as bad as before...
+`\`k
+ @end
+
+
+ @if `t06 > 1 then do
+ @begin
+ @do `p03 + 5
+ @do `p02 is `p03
+ @do `t06 is 0
+ @do `t05 is 2
+ @show
+`k `%IT TASTES GREAT. `$"Old woman! I love this!" `2you tell her.
+
+`k`0 "Thank you so much, dearie! Would you like some more?" `2she smiles.
+
+ `2You finish off the pot.
+
+ `%HEALTH RAISED BY 5.
+
+`\`k
+ @end
+
+
+ @do goto oldwoman
+ @end
+
+@if response is 9 then do
+ @begin
+ @show
+`\`\ `0"Sorry s&boy, you have already drank the last of it." `2the old woman
+ tells you sadly.
+
+ `$"Well, make more! Now!" `2you demand.
+
+ `0"I can't!"`2 cries the woman, `0"Not without my Hector!"
+`\`k
+ @do `t05 is 3
+ @do goto oldwoman
+ @end
+
+@if response is 10 then do
+ @begin
+ @show
+`\`\ `0"Hector is my friend. He disappeared a few months ago - I need him!"
+
+ `$"Geez... Someone like you really needs friends, I'll do everything in
+ my power to find 'em for ya, ma'am," `2you console her.
+
+`k
+ @do `t05 is 4
+ @do goto oldwoman
+ @end
+
+@if response is 11 then do
+ @begin
+ @show
+`\`\ `0"Where is Hector?!?! Where is he?!"
+
+ `$"Um, I'll be right back...With Hector!" `2you lie glibly.
+
+`k
+ @do goto oldwoman
+ @end
+
+@if response is 12 then do
+ @begin
+ @show
+`\`\ `0"YOU LET HIM FLY AWAY!!?!? I HATE YOU!! GET OUT!"
+
+`2 It looks like she means it. You decide to take off.
+
+`k
+@do `t05 is 5
+ @end
+
+@if response is 13 then do
+ @begin
+ @show
+`\`\ `0"Ahhh! You found my little friend!"
+
+`2 She puts him in a cage and starts a cookin' away.
+
+ `$"Cool, are you gonna put him in your brew for some special sauce or
+ something?" `2you ask.
+
+`k `0"Of course not!! That would be inhumane. He just inspires me!! Here,
+ try this.."
+
+ `%THE FOOD GIVES YOU 2 EXTRA MUSCLE!
+
+`k
+@do `t05 is 5
+@do `p04 + 2
+@do `i18 is 0
+ @do goto oldwoman
+ @end
+
+@if response is 14 then do
+ @begin
+ @show
+`\`\ `0"No, not really. Same old crap." `2she sighs.
+
+`k
+ @do goto oldwoman
+ @end
+@if response is 15 then do
+ @begin
+ @show
+`\`\ `0"Get out, homewrecker!" `2she screams, throwing pots and pans at you!
+
+ `4CHARM GOES DOWN BY ONE.
+`k
+ @do `p08 - 1
+ @end
+
+
+@drawmap
+@update
+
+
+
+@#grocery
+@offmap
+@do moveback
+@do `v01 is 1
+@label grab
+@show
+`r0`c `%The Stonebrook Grocery
+
+`2 The store is nice and cool inside.
+
+@do write
+`x`x
+@choice
+Buy some groceries.
+Go outside.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 3
+ 1
+ @end
+
+@if responce not 2 then goto grab
+@drawmap
+@update
+
+
+@#healers
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%The Healers
+
+`2 You see a sign on the wall that says healing cost 1/2 gold per hitpoint
+ needed.
+
+`2 Gretchen 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, 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, whore!
+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 her dress
+@show
+
+
+@if response is 4 then do
+ @begin
+ @show
+ `0"That's a good lad, now get along with you!" `2 she laughs.
+
+`k
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+ `0"How dare you say that to me! Get out!!!!" `2 she screams.
+
+`k
+ @end
+@if response is 2 then do
+ @begin
+ @show
+ `0"I'd rather kiss a troll." `2 she informs you.
+
+`k
+ @end
+@if response is 3 then do
+ @begin
+ @do `p02 = 1
+ @show
+ `0"How 'bout I show you my fists?" `2 she yells as she sticks a needle in you!
+
+ `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`$!" `2Gretchen exclaims.
+
+`k
+@drawmap
+@update
+
+
+@#winthrog
+@offmap
+@do moveback
+@do `v01 is 1
+@label rog1
+@show
+`r0`c `%Winthrog's Weapons
+
+`2 An elderly man sits, absently playing with knife.
+
+@do write
+`x`x
+@choice
+Examine his wares.
+Ask him to buy some of your stuff.
+Gossip with Winthrog
+Go outside.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+ @clearblock 8 14
+ @do move 1 7
+ @buymanager
+ 4
+ 9
+ @end
+
+@if responce is 2 then do begin
+ @begin
+@show
+ `!"I don't think so - Go sell it to the Pawn Shop - I do all my business
+ with them!" `2the codger relates.
+
+`k
+@do goto rog1
+ @end
+
+@if responce is 3 then do begin
+ @begin
+@show
+ `!"Gossip, eh? Well, I heard a crazy old man lives in a shack south of
+ here... "
+
+ `$"Really? What else?" `2you ask.
+
+ `!"That old shack has a fake wall section somewhere inside..."
+
+`k
+@do goto rog1
+ @end
+
+
+@if responce not 4 then goto winthrog
+@drawmap
+@update
+
+@#pawn
+@offmap
+@do moveback
+@do `v01 is 1
+@label pawn1
+@show
+`r0`c `%The Pawn Shop
+
+`2 Hagar motions you to approach. He reeks of wine.
+
+@do write
+`x`x
+@choice
+Examine his wares.
+Ask him to buy some of your stuff.
+Gossip with Hagar
+Go outside.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+ @clearblock 8 14
+ @do move 1 7
+ @buymanager
+ 5
+ 6
+ 20
+ @end
+
+@if responce is 2 then do begin
+ @begin
+ @clearblock 8 14
+ @do move 1 7
+ @sellmanager
+ @end
+
+@if responce is 3 then do begin
+ @begin
+@show
+ `0"Wanna know something really strange? I heard there is a tree on
+ Neb's Road that has magical powers..."
+
+ `2You stare at him in disbelief. `$"Yeah right, quit telling me stories,
+ Hagar! You ain't exactly the most trustworthy man in town, ya know."
+
+`k
+ @end
+
+
+
+@if responce not 4 then goto pawn1
+@drawmap
+@update
+
+@#tree
+@offmap
+@do moveback
+@show
+`r0`c `%The Tree Hollow
+
+`2 You find a hollow in a tree.
+
+@if `p98 is 0 then do begin
+ @begin
+ @show
+ There is a chest here. What could it be?
+
+ @end
+
+@if `p98 more 0 then do begin
+ @begin
+ @show
+ There is an open chest here. It is empty.
+
+ @end
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+-`t13 1 Open the chest - something good must be inside, baby!
++`t13 1 Kick the crappy chest.
+-`t13 1 Carefully open the thing. Could be a trap?
+Leave.
+@show
+
+
+@if response is 1 then do begin
+ @begin
+ @bitset `t13 1 1
+ @do money + 25
+
+ @show
+ `2You find the chest opens easily.
+
+ `%YOU FIND 25 GOLD PIECES!
+
+ `2You exit the hollow to find yourself in the sunlight once again.
+
+`k
+ @end
+
+@if response is 3 then do begin
+ @begin
+ @bitset `t13 1 1
+ @do money + 25
+
+ @show
+ `2You spend half an hour opening a harmless chest. Isn't a damn trap!
+
+ `%YOU FIND 25 GOLD PIECES!
+
+ `2You exit the hollow to find yourself in the sunlight once again.
+
+`k
+ @end
+
+
+
+@if response is 2 then do begin
+ @begin
+ @show
+ `2You defiantly strike the chest with your foot. Satisfaction is
+ gained.
+
+ Actually, you feel kind of stupid and decide to take off.
+
+`k
+ @end
+
+
+@drawmap
+@update
+@#nothing
+@#sign1
+
+@do saybar
+`2Sign reads: `0`4Danger! `0This area is not safe. Run. Run!
+@do moveback
+
+@#sign2
+@do saybar
+`2Sign reads: `0Welcome to `%Stonebrook`0 - the quaintly small town!
+@do moveback
+
+@#greensign
+@do saybar
+`2Sign reads: `0 <-- Greentree StoneBrook -->
+@do moveback
+
+
+@#fightned
+@fight
+;name
+Neb Stringly
+;string said when you see him
+You lunge at Neb, your `0s&weapon `2ready!
+;power move kill string
+You cleanly cut off one of Neb's hands!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+punches you in the face|10
+low blows you|15
+socks you in the jaw|7
+NONE|NONE
+NONE|NONE
+;defense
+5
+;gold reward
+50
+;experience
+20
+;hit points
+25
+;if win: ref file|name or NONE
+STONEB.REF|BEATNEB
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;If runs: ref file|name or NONE
+STONEB.REF|NEBRUN
+
+@#NEBRUN
+@show
+`c `r1 YOU WEENIED OUT `r0
+
+ `2Neb kicks you in the seat of your pants as you scurry away.
+
+`k
+@DRAWMAP
+@UPDATE
+@#BEATNEB
+@do `s01 is BITCH
+@if `v06 is 1 then `s01 is punk
+;clean mode fix
+@show
+`c `r1 YOU CRUSHED THE NEBSTER `r0
+
+ `$"Whatup, `s01?" `2you ask Neb as he struggles to get up. You finally
+ take your foot off his neck.
+
+ `2Neb scrambles to his feet. `0"Geez s&man, what's wrong with you? I waz
+ jes' joking with ya's anyway!"
+
+ `2You can't help but laugh, what a fool. `%(YOU GET 5 QUEST POINTS!)
+
+`k
+@do `p18 + 5
+@do `t03 is 2
+@drawmap
+@update
+@#NEB
+@if `t03 more 1 then do
+ @begin
+ @do saybar
+`2Neb meekly lets you pass.
+ @closescript
+ @end
+
+@if &lastx is 9 then do
+ @begin
+ @do x is 11
+ @do saybar
+`2Neb trips you as you walk by!
+ @closescript
+ @end
+
+@do moveback
+@busy
+@show
+`r0`c `r1 NEB STRINGLY `r0
+
+@if `t03 is 0 then do
+ @begin
+ @do `t03 is 1
+ @show
+ `0"STOP RIGHT THERE, KID!" `2a tall and gangly youth with some serious
+ acne problems shouts.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Who me? Am I in the way?
+May I please pass? I have important business.
+Shutup crater face before I knock your head off.
+@show
+
+
+ `0"I'm Neb Stringly and you will do what I say!" `2he commands.
+
+`k `2You roll your eyes. Who IS this freak?
+
+`k`c `r1`% MEETING NEB `r0
+
+@end
+@show
+ `0"Alright you! This is MY road and no one crosses without my permission."
+
+ `$"And just how would I get that?" `2you ask sarcastically.
+
+ `0"Pay me `$50 `0gold pieces, you bumwisket!"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+>&money 49 Pay the man.
+<&money 50 Offer Neb the `$$&money `%you are holding.
+Beat the @#$% out of 'em.
+Find something else to do.
+@if response is 3 then do
+ @begin
+ @do goto fightned
+ @end
+
+@if response is 2 then do
+ @begin
+ @do money is 0
+ @show
+
+
+ `0"Thanks kid," `2Neb laughs - `2as he `bsteals`2 all your gold!
+
+ `$"You'll pay for this Neb! I don't know how and I don't know where, but
+ someday... you might." `2you finish rather impotently.
+
+`k
+ @end
+
+@if response is 1 then do
+ @begin
+ @do money - 50
+ @show
+
+
+ `0"Thanks kid," `2Neb laughs as you quickly move past him.
+
+`k
+ @do x is 9
+ @end
+
+
+@drawmap
+@update
+@#nothing
diff --git a/xtrn/lord2/cnw/stonep.ref b/xtrn/lord2/cnw/stonep.ref
new file mode 100644
index 0000000000000000000000000000000000000000..9c4c4662918861ea8c0919bac087665b138c57f9
--- /dev/null
+++ b/xtrn/lord2/cnw/stonep.ref
@@ -0,0 +1,1234 @@
+;File for the Eastern Stone Path area & stuff.
+
+@#lodgeansi
+@pauseoff
+@show
+`r0[2J[0;1;34;44m��[0;34m�������������۲��[37m [34m [37m [1;31m [3C
+[A[27C[30m�[0m [34m��[30;44m�[34;40m�������������������[37m [33m
+[A[53C�ܰ[37m [33mܲ�[37m [33m�� [37m [33m��[1;30m� [0;33m
+[34m���������������[30;44m�[34;40m�[1;30m�[44m�[40m�[0;33m [34m
+[A[22C[33m [34m [33m�[1;30m��[0;30;44m�[34;40m�[30;44m [34;40m�
+[A[32C���������������� [33m ߰[1;30m�[0;33m��[1;30m�[0m [33m���
+[A[60C[1;30m�[0;33m��� [37m [33m��[1;30m��[0;33m��[37m [33m
+[34m����������������� [1;30m� [0;34m ��ܲ������������������ܲ��
+[A[51C[37m [33m�[37m [1;30m��[0m [33m�[3C�[37m [1;30m��[0m
+[A[67C[1;30m�[0m [1;30m�[0m [1;30m��[0m [1;30m�
+[0;34m��������������[30;44m�[34;40m�[37m �[1;30m�[3C[0m�[1;30m�
+[A[24C[0m [34m�[1;44m��[0;34m���������������������[11C[1;30m �
+[A[66C�
+[0;34m����������������[37m [1;30m��[8C[0;34m������[1;44m�[0;34m���
+[A[38C��������������[37m �[1;30m�[6C�[0m�[1m�[0m � [1;30m�
+[0;34m������� [37m [34m [1;30m�[6C �[0m [31m [33m�ܰ[37m
+[A[29C[33m��[1;43m�[0;33m�[37m [33m���[37m [34m�������������[37m
+[A[51C [1;30m�[6C�[37;47m���[0m [1;47m�[36m�[0m�[1;30m��
+[0;34m��[1;44m�[0;34m��[3C[33m��� �[1;30m���[31;43m�[0;33m۲��
+[A[21C[37m [33m��۲ [37m [33m����� [1;31;43m�[0;33m�[1;37;43m�[40m
+[A[38C[43m[0;33m��[1;43m�[37m�[0;33m��[37m [33m��[34m ���[37m
+[A[52C[1;30m�[7C[0;33m�[1;37m�[0m��[1m [0m��� [1;30m�
+[0;34m��� [37m [1;30m߰[31;43m�[0;33m���� [37m [33m�߱��[37m
+[A[22C[1;30m߰�[3C[0m [33m �[37m [33m� ��[37m [33m���� ���
+[A[48C[1;43m�[37m�[0;33m�[37m [33m����[37m [4C�[1;47m�[40m�[0m
+[A[64C [1;47m��[0m�[1;30m�
+[0;34m�� [1;30m�[0m [1;30m��[0;33m��[37m [1;30m��[4C[0;33m���
+[A[21C[37m [33m����۲[37m [33m��ܲ�[37m [33m��[3C� [3C���[3C�
+[A[54C��[1;43m�[37m�[0;33m�[37m [33m��[37m �
+[34m��[1;30m�[3C�[0m [33m��[1;31;43m�[0;33m���[37m [33m߲
+[A[17C[1;31;43m�[0;33m۲�[37m [33m�����[37m [33m��[1;31;43m�[40m
+[A[32C[43m[0;33m���[37m [33m�[1;31;43m�[0;33m����[37m [33m��
+[A[45C[1;43m�[0;33m��[3C�[3C��[3C߰[37m [33m��
+[1;34;44m�[0;34m [1;30m�[0;34m [37m [1;30m�[0m [33m�����[37m
+[A[14C[1;30m�[0m [33m����[37m [33m�[6C�[37m [33m��[6C߰[4C��
+[A[47C[37m [33m ����[37m [33m��[37m [33m�[4C��[37m [33m߱�
+[A[71C[37m ��
+[34m� [1;30m�[0;34m [3C[1;30m�[0;33m߰[4C[1;31;43m�[0;33m��[5C�
+[A[23C[1;31;43m�[0;33m���[37m [33m����[37m [33m�[1;31;43m�[0;33m
+[A[35C��[1;30m [0;33m����[37m [1;31;43m�[0;33m�� ���[37m [33m��
+[A[54C[37m [33m���[37m [1;31;43m�[33m�[0;33m�[37m [33m�[3C��
+[34m� [1;30m��[0;34m [5C[33m�[1;30m [0m [33m�۲��[37m [33m��[3C
+[A[24C��[3C���[37m [33m����[37m [33m ���[37m [33m���[37m [33m��
+[A[49C�[37m [33m���[37m [33m � [37m [33m��[6C
+[34m����[4C[1;30m�[5C[0;33m��[12C[1;30m��[3C�[0m [33m�[37m
+[A[38C[1;30m�[0;33m�[37m [1;30m��[0m [33m�[3C�[3C���[37m [33m
+[A[57C��[4C[37m
+[34m��[1;44m�[0;34m�[4C[1;33m�[0m [1;33m�[11C[30m��[26C��[3C���
+[A[58Cܰ�[0;34m [1;30m�[C[0m
+[34m�[1;44m�[0;34m��[37m [33m�[1m�[43m�[40m���[0m [1;30m�[6C�
+[A[22C�[3C[0m [15C[34m [19C[37m
+[A[79C [34m�[37m [34m�[37m [3C[33m�[1m�[5C[30m�[7C[33m��[0m
+[A[25C� [1;33m��[9C[30m�[10C [0;34m [33m�[34m [1;30m [4C
+[A[63C[0m
+[34m�[37m �[34m�[37m [1;30m�[9C�[5C[0m�[1;33m�[37;43m��[33;40m�
+[A[26C�[43m�[40m�[0m�[19C[34m [1;30m [33m��[37;41m�[0;34m
+[A[55C[1;33m�[0m�߰[3CYou see a warm
+[34m�[37m [34m�[37m [1;30m�[6C[0m [33m�[37m [1;30m�[4C[0;33m
+[A[21C�[1m���[0m�[1;33m �߰[17C�[0m [33m�[34m [1;33;41m�[40m���
+[A[55C�[37;41m�[33m�[0;34m [3C[37mlittle Lodge!
+[34m�[37m [34m� [7C[37mܰ[8C[1;33m��[37;43m�[33;40m��[37;43m�[40m
+[A[28C[43m[33;40m�[0m [33m�[37m [1;33m�[15C[30m [33m���[0m�
+[A[54C[34m [1;33m��[30m [0;33m�
+[34m [37m [34m�[1;33m [30m�[8C[0;33m�[37m [1;30m�[4C[33m�
+[A[23C[43m�[40m�[0m [1;33m�[43m�[40m�[0m [1;30m��[12C��[0m
+[A[50C[1;33m�[43m�[37;41m�[33;40m��[43m�[40m�[0;33m�[37m�[3CYum
+[A[65C, something
+[34m [37m [34m�[10C[33m�[37m [1;30m�[4C[0;33m� ��[37m [33mܰ�
+[A[30C[3C[1;30m��[14C[33m [0m�[1;33m�� [0;34m [1;33m��[0;34m
+[A[59C[3C[37msmells good[C
+[A[79C [5C[1;30m�[8C[0;33m�[37m [1;30m�[9C[0;33m [20C[34m
+[A[51C[37m [33m��߰��[34m [3C[37minside! `k
+@
+
+
+
+@#cloudtable
+@do moveback
+@if `i34 > 0 then do
+ @begin
+ @do saybar
+`%Your hand passes through the table. It is empty.
+ @closescript
+ @end
+
+@do saybar
+`%You find a Cloud Sword on the table! (AND 5 QUEST POINTS!)
+@do `i34 = 1
+@do `p18 + 5
+@#showangel
+@pauseoff
+@show
+[2J[0m������������������� [35m��[1m�[0;35m�[1;45m������[0;35m�
+[A[32C[1;45m���[0;35m���[1;30;45m��[0m [35m�[37m [35m���������
+[A[52C[1;45m���[0;35m�[1;45m�[0;35m��[1;45m�[0;35m��[1;45m����[40m
+[A[66C[45m[0;35m��[37m [1;35;45m��[0;35m�����[1;30;45m��[0m
+[A[79C[1;30m�[0m�����������������[1;47m [0m� [1;35;45m�������[40m
+[A[28C[45m[0;35m�����[1;45m�[0;35m���[1;30;45m���[0;35m��[37m
+[A[43C[35m�[4C[33m���[3C[35m���[1;45m��[0;35m��� [1;45m���[40m
+[A[66C[45m[0;35m�[1;45m�[0;35m��[1;45m�[0;35m������[1;45m�[0;35m�
+[A[79C[37m ������������������ [1;35m [45m�۲���[0;35m� [1;45m���[40m
+[A[31C[45m[0;35m��� [33m [35m �[1;30;45m�[0;35m����[37m [33m��
+[A[46C[1;31;43m���[40m�[43m�۲[40m��[3C[0;35m�[1;45m�[0;35m����
+[A[64C[1;45m��� [0;35m�[37m [1;35;45m�[0;35m�[1;30;45m�[0;35m���
+[A[76C[1;45m���[40m
+[A[79C[0;35m�[37m������������������ [1;35m�[45m۲��[0;35m�[1m�
+[A[26C[45m���[34m [35m [0;35m��� [33m��[35m [37m [33m��[1;31m�
+[A[43C������[47m���[40m���[43m�[0;33mܰ[37m [35m�[1;45m�[0;35m�
+[A[63C[1m�[45m�����[0m [1;35;45m��[0;35m ����[1;45m��[40m
+[A[79C[45m�[0m������������������ [1;35m�[45m�[0;35m�[1;45m��[40m�
+[A[25C�[45m���[0;35m��[1;45m�[0;35m���[37m [1;31;43m���[40m������
+[A[45C���[47m���[40m������[43m�[0;33mܰ[37m [35m�[1m�[45m۲���[40m
+[A[69C[45m[0m [1;35;45m�[0;35m��[1;30;45m�[0;35m����[1;45m�[40m
+[A[79C[45m�[0m������������������ [1;35m�[45m�[40m�[45m�[0;35m�
+[A[24C[1;45m�۲��[0;35m��[1;45m��[0m [35m��[33m�[1;31;43m�[40m��
+[A[40C��������������������[0;33m�[37m [1;35;45m�۲��[0;35m���
+[A[71C[1;45m�[0;35m����[37m [1;35;45m��[40m
+[A[79C[45m�[0m������������������ [1;35;45m�[0;35m�ݰ[1;45m�۲��[40m
+[A[29C[45m[34m [0;35m [1;45m�[0;33m ܱ[35m�[33m�[1;31;43m�[40m�
+[A[39C���������[0m [1;35m�[0;35m�����[1;43m�[31;45m�[40m���[43m�[40m
+[A[61C[43m[0;33m�[37m [1;35m�[45m�۲[0;35m��[34;45m�[35;40m�����
+[A[75C���[1;45m�[40m
+[A[79C[0;34;45m�[1;37;47m�� [0m�������������� [1;35;45m���[0;35m�
+[A[24C [1;45m��� [0;35m ��[1;30m�[0;35m���[1;31m����[43m�[40m���
+[A[45C[35;43m�[0;35m�����[34m�[37m [1;31m [0;35m����[1;31m���
+[A[61C[43m�[0;33m�[37m [1;35;45m���[0;35m�[33m�[35m ���[1;45m�[40m
+[A[74C[45m[0;35m�����
+[A[79C[1;30;45m�[0m�[1;47m�����������[0m�����[1;47m [0m� [35m�
+[A[21C[1;45m�[0;35m�ݲ[1;45m���[0;35m�[1;30m�[0;33m�[35m��[1;30m
+[A[33C�[0;34m�[1m�[37m [0;35m��[1;31m������ [0m ߲ [1;34m�[0;34m
+[A[51C�[37m [1m�[34m�[0m �[1;31m ���[43m��[0m [1;35;45m���[0m
+[A[68C[33m��[37m [34;45m�[1;35m�[0;35m����[1;45m�[0;35m�
+[A[79C�[1;37;47m������������� [0m�[1;47m����[0m [1;35;45m�[0;35m
+[A[23C�[1m�[0;35m�[1;45m�[34m�[0;35m [1;30m�[0;33m [35m��[1;34m
+[A[33C�[0;34m [1m [0m�� [1;31m����۲�������[0m [34m�[1;31m ������
+[A[61C�[0;33m�[35m�[1;45m��[0;35m�[33m߰��[35m� �� ��[1;30;45m�[40m
+[A[79C[0m [1;47m�������������������[40m�[0m [35m�����[1;45m��[40m
+[A[28C[45m[0;35m [1;31m [0;33m�[1;35;45m�[0m [1;31m���������
+[A[43C[43m�[40m�����������[43m��[40m�����[0;33m�[35m�[1;45m�[40m
+[A[65C[45m[0;35m��[33m�[37m [1;31;43m�[0m [35m���[1;45m�[0;35m�
+[A[76C[1;45m�[0;35m��
+[A[79C[37m [1;47m��������۲����������[0m [35m� ���[1;45m�[0;35m�
+[A[30C[33m�[1;31;43m�[0;35m��[1;31m�[43m�[40m�����[47m�[40m�
+[A[43C[43m��[40m�������[47m��[40m�������[43m�[0;33m�[1;35;45m�[40m
+[A[64C[45m[0;35m��[37m [1;31m�[0;33m�[1;31;43m�[0;35m�[34;45m�[40m
+[A[72C[45m[37;40m [1;35;45m���[0;35m��[34;45m�[40m
+[A[79C[35m�[1;37;47m��������������������[40m�[0m [35m�� ��[1;45m��[40m
+[A[29C[45m[0;35m [37m [33m��[35m�[1;31m����������[43m��[40m�����
+[A[51C���[47m������[40m�[43m�[0;33m�[1;35;45m��[0m [1;31m�[43m�[40m
+[A[69C[43m[40m�[0;34;45m�[35;40m �[1;45m�[0;35m� ��[1;45m�[40m
+[A[79C[45m�[37;47m��[0m�����[1;47m��������������[40m�[0m [35m�
+[A[24C[37m [35m���[1;45m�[0;35m [37m [33m�[1;31;43m��[40m������
+[A[41C[43m�[0;33m��[1;31m������������[47m���[40m��[43m�[35;40m�
+[A[63C[45m�[0;35m�[1;31m �[43m�[40m�[0m [35m��� � �[1;30;45m��[40m
+[A[79C[35;45m�[37;47m�[40m��[47m���[0m�[1;47m� ��������������[40m
+[A[23C�[0m [35m� ��[4C[33m��[1;31;43m�[40m����[43m�[40m��������
+[A[50C�������[47m��[40m��[43m�[0;35m�[1;45m�[0m [33m��[37m
+[A[69C[35m�[37m [35m����� �[1;45m�[40m
+[A[79C[0;35m�[1;37;47m������� ��� � [0m��[1;47m������[40m�[0m
+[A[26C[35m�[1;45m�[0;35m �[4C[37m [33m�[1;31m��������[0;31m
+[A[46C[33m�[31m [1m �������[47m�[40m���[43m�[0;33m�[35m� [33mܲ
+[A[66C[1;31;43m�[0;33m��[35m��[34;45m�[35;40m�[37m [35m�����
+[A[79C[1;30;45m�[37;47m�������� ���۲�����[0m���[1;47m��[0m
+[A[27C[1;35;45m�[0;35m� � [37m [1m��[31m [0;33m�[1;31;43m�[40m�
+[A[40C��[0;31m ߰ ܰ[33m�[31m�[1m���������[0;33m�[35m��[33m�
+[A[64C[1;31m��[43m��[0;33m�[37m [35m�[37m [34;45m��[35;40m��
+[A[76C[1;45m�[0;35m�[1;30;45m�[40m
+[A[79C[45m�[37;47m�����������������������[0m��� [35m�[1;45m�[0;35m
+[A[29C � [1;37m��[0m [33m�[1;31;43m��[40m����������������[43m�[40m
+[A[58C[43m[40m�[0;33m �[35m�[33m�[1;31;43m�[40m����[43m�[0m
+[A[71C[35m����[1;45m���[0;35m�
+[A[79C[1;30;45m�[37;47m�����������������������ݰ[0m� [35m�[37m
+[A[31C[1m��[0m [1m���[0m [1m��[0m [33m��[1;31;43m��[40m�������
+[A[52C[43m�۲�[40m�[0m [33m�[1;31;43mܲ�[40m�[43m��[47m�[43m��[40m
+[A[69C[43m[40m�[0m [35m����[1;45m�[0;35m��
+[A[79C[1;45m�[37;47m�۲۲�������������������ܲ[40m�[0m [35m��[37m
+[A[31C[1m������[0m [1m����[0m [33m���[1;31;43m�����[0;33m��
+[A[54C[1;31m�[0m [33m�[1;31;43m�������[47m���[40m��[4C[0;35m���
+[A[77C��
+[A[79C[1;30;45m�[37;47m�������������������������[40m���[0m [35m�
+[A[30C[37m [1m�����������[0m [3C[33m��[1;31;43m�ܲ��[40m�
+[A[62C����[47m��[40m���[3C[0;35m�[34;45m�[35;40m� [1;30;45m�[40m
+[A[79C[45m�[46C[0;33m�[37m [33m��[1;31;43m���[40m�������������
+[A[69C���[0m [34;45m��[1;35m�[30m��[40m
+[A[79C[45m�[40m��������������������������������������������� ��
+`k
+@pauseon
+
+@#CLOUDRAN
+@do saybar
+`7The cloud feels light and airy under your feet.
+
+@#CLOUD
+@do moveback
+@do `v01 is 1
+@busy
+@label cloudstart
+@show
+`r0`c `r1 `%The City In The Sky `r0
+
+ `7You can't believe your eyes! A naked woman stands before you - (this
+ isn't what is strange, you've seen quite a few of those) she has tiny
+ wings protruding from the small of her back.
+
+ `%"Greetings, `n.`% We've been expecting you," `7her voice
+ echoes in your head.
+
+@do write
+`x`x
+@choice
+Please, oh naked angel, send me back
+What is this sanctuary?
+How did you know my name?
+Look at her
+>`i34 0 What good is this Sword?
+Leave
+@if responce is 4 then do
+ @begin
+ @routine showangel
+ @do goto cloudstart
+ @end
+
+@if responce is 5 then do
+ @begin
+ @show
+`\`\ `$"Look at this sword I sto..I mean found. What good is it?" `2you
+ ask her.
+
+`k `0"We left that for you. You are not required to use it, but it is
+ your key to our high mountain palace - west of Arrisville - you must
+ NEVER lose it."
+
+`k
+ @do goto cloudstart
+ @end
+
+@if response is 6 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 `%There IS a heaven.. of sorts. `r0
+
+ `%"We are the Koshi. This is a magical place we've created for emergencies
+ that our people have, we were very suprised to see YOU were the one who
+ invoked the magic in our staff."
+
+`k `$"I'll invoke another staff if you don't put some clothes on," `7you laugh
+ merrily.
+
+ `7The girls face turns sad. `%"Your people hate us - they just don't
+ understand. But you may be different..."
+
+`k
+ @do goto cloudstart
+ @end
+
+@if responce is 3 then do
+ @begin
+ @show
+`r0`c `r1 `%The Koshi `r0
+
+ `%"You wouldn't understand, human. Sometimes we know things.. Know things
+ before they happen."
+
+ `$"So you are a witch then?!" `7you accuse.
+
+`k `%"No! We are telepathic - our ancestors are very different than yours."
+
+`k
+ @do goto cloudstart
+ @end
+
+;if they got here, they want to leave
+ @show
+`r0`c `r1 `%The Vacation Is Over `r0
+
+ `$"I wanna leave! You have totally weirded me out here," `7you explain.
+
+ `%"We will not keep any soul against their will. Where would you like
+ to return?" `7she asks sorrowfully - while looking down at the world beneath.
+
+@do write
+`x`x
+@choice
+Stonebrook
+Greentree
+Porttown
+Stay here
+@if response is 4 then do
+ @begin
+ @do goto cloud
+ @end
+
+@show
+`\`\ `%"Alright but.." `7she suddenly giggles.
+
+ `$"What is so funny?" `7you demand.
+
+`k `%"No one is going to believe you were here!" `7she smiles.
+
+ `7Before you can reply, she shoves you over the edge.
+
+`k
+ @if response is 1 then do
+ @begin
+ @do map is 1359
+ @loadmap 1359
+ @do x is 50
+ @do y is 6
+ @end
+
+ @if response is 2 then do
+ @begin
+ @do map is 1356
+ @loadmap 1356
+ @do x is 27
+ @do y is 5
+ @end
+
+ @if response is 3 then do
+ @begin
+ @do map is 956
+ @loadmap 956
+ @do x is 11
+ @do y is 14
+ @end
+
+@drawmap
+@update
+
+@#BEACHSIGN
+;Sign overlooking the beach
+@DO SAYBAR
+`2Beach observation deck.
+@do moveback
+
+@#BLOOK
+;Looking off the beach deck
+@DO SAYBAR
+`2The view of the sea is breathtaking.
+
+@#BDOOR
+;Back door to the lodge
+@DO SAYBAR
+`2A sign reads: Exit Only
+@do moveback
+
+@#ATREE
+;Lookin at the apple tree stumps
+@DO SAYBAR
+`2Hmm ... someone's been cutting down apple trees.
+@do moveback
+
+
+@#BRIDGE
+;Stupid guard on the bridge that doesn't let u pass.
+
+@IF &lasty is 12 then do
+@BEGIN
+@DO SAYBAR
+`2The lazy guard seems content sitting on a rock.
+@CLOSESCRIPT
+@END
+
+@BUSY
+@Do MOVEBACK
+@DO `v01 is 1
+@SHOW
+`r0`c `r1 The Bridge guard `r0
+
+ `2A rather bulky looking guard looks sitting down looks up at you. `0"Hey
+ you got anything to eat? I'm just starving up here on patrol. Oh, maybe
+ you're interested in passing the bridge eh? Well it'll cost ya, 200 up
+ front."
+
+@DO WRITE
+`x`x
+@CHOICE
+>&money 200 Pay him the dough `$(you have &money)
+>`i19 0 Give him an apple
+Sorry I don't have anything
+>`i01 0 Give him some berries
+>`i03 0 Offer him some milk
+@IF RESPONSE IS 1 THEN DO
+@Begin
+ @do `p30 is 25
+ @do `v40 is 200
+ @routine deposit in vaults.ref
+@do money - 200
+@Show
+`\`\ `$"Here, let me show you the money," `2you say as you hand over the cash.
+`\`k
+@DRAWMAP
+@UPDATE
+@DO SAYBAR
+`2The bridge creaks as you pass over it.
+@Do y - 2
+@CLOSESCRIPT
+@End
+@IF RESPONSE IS 2 THEN DO
+@Begin
+@do `i19 - 1
+@Show
+`\`\ `$"Here you go buddy,"`2 you say and throw the apple to the guard.
+`\`k
+@DRAWMAP
+@UPDATE
+@DO SAYBAR
+`2The bridge creaks as you pass over it.
+@Do y - 2
+@CLOSESCRIPT
+@End
+@IF RESPONSE IS 3 THEN DO
+@Begin
+@Show
+`\`\ `2You wonder where you could find something for him...
+`\`k
+@label bdone
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+@IF RESPONSE IS 4 THEN DO
+@Begin
+@Show
+`\`\ `2The guard looks at you funny, `0"I don't want that crap," `2he barks.
+`\`k
+@do goto bdone
+@End
+@IF RESPONSE IS 5 THEN DO
+@Begin
+@Show
+`c`\`\ `2The guard looks at you funny, `0"I don't want that crap," `2he barks.
+`\`k
+@do goto bdone
+@End
+
+@#APPLE
+;Getting the apple for the bridge guard
+@If `i19 > 0 then do
+@BEGIN
+@DO SAYBAR
+`2You don't need another apple.
+@do moveback
+@CLOSESCRIPT
+@END
+@DO SAYBAR
+`2Hey, you find an apple up here in the tree!
+@DO `i19 + 1
+
+@#BED
+;Bed's in the StonePass lodge (tm)
+@DO SAYBAR
+`2A nice comfortable bed!
+
+@#BEDAM
+;Bed with amulet under it in StonePass lodge (tm)
+@IF `i31 > 0 then do
+ @begin
+ @DO SAYBAR
+`2A nice comfortable bed!
+ @closescript
+ @end
+@DO SAYBAR
+`2Hey, there's an amulet under this bed!!
+@Do `i31 + 1
+@end
+
+@#LODGE
+;Fun at the StonePass lodge (tm)
+@do `p22 is 0
+@if ninn5a.dat exist false then do
+ @begin
+ @writefile ninn5a.dat
+40
+0
+0
+ @end
+@if ninn5.dat exist false then do
+ @begin
+ @do `p22 is 1
+ @end
+
+@offmap
+@Do MOVEBACK
+@routine lodgeansi
+@DO `v01 is 1
+@do move 1 1
+@clear screen
+@SHOW
+`r0 `r1`% StonePass Lodge `r0
+
+ `2You step inside the lodge door and the heat inside engulfs you. In the
+ corner of the big wooden room is a piano piping out merry tunes for the
+ patrons. Adventurers adorne the lodge engaging in their tales and food.
+ What do you want to do?
+
+ `2(you have `$$&money`2)
+
+@DO WRITE
+`x`x
+@CHOICE
+>&money 10 Buy a $10 meal
+>&money 20 Buy the $20 `3BIG `%meal
+Take a seat & listen a while
+>&sex 0 =`v06 0 Flirt with the local women
+Get a room for the night
+=`p22 1 I'd like to buy this place!
+=`p22 0 How's the owner?
+Leave this place
+@IF RESPONSE IS 7 THEN DO
+ @BEGIN
+ @do move 1 1
+ @clear screen
+ @SHOW
+`\`\ `$"How's the owner to this hardy, fun-loving place?" `2you ask astutely.
+
+ `2There are grunts and groans from around the room. After some hard
+ looks and loud whispers, three very large men approach you.
+
+ `0"The owner's awright. But the toilet water's great!"
+
+ `2..how odd.
+
+`k
+ @do goto lodge
+ @end
+@IF RESPONSE IS 6 THEN DO
+ @BEGIN
+ @do move 1 1
+ @clear screen
+ @SHOW
+`\`\ `$"I'd like to buy this hardy, fun-loving place!" `2you say astutely.
+
+`k `2There are grunts and groans from around the room. After some hard
+ looks and loud whispers, three very large men approach you.
+
+ `0"You want to buy this place?" `2one of them says to you.
+
+`k `$"Yes!" `2you say confidently. `$"And I pay good salary."
+
+`k `0"The price will be high," `2they say to you. `0"Real high!"
+
+`k `$"How high's real high?"
+
+`k`c`\`\ `0"We'll sell it to you for `%$100,000`0?
+
+ @do `v01 is 1
+ @choice
+>&money 99999 I'll take it!
+That IS real high. No thanks.
+ @if response is 2 then do
+ @begin
+ @do goto lodge
+ @end
+ @if response is 1 then do
+ @begin
+ @if ninn5.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto lodge
+ @end
+ @writefile ninn5.dat
+&playernum
+NONE
+ @do `p30 is 25
+ @do `v40 is 100000
+ @routine deposit in vaults.ref
+ @do money - 100000
+ @do addlog
+ `0`n `2buys `%StonePass Lodge `2!
+ @routine seperate in gametxt.ref
+ @show
+`r0`c `r1 `%The StonePass Men, your Employees and Friends `r0
+`\`2 Nice job! You now own their Inn!
+
+ `2Enjoy your new home.
+
+`k
+
+ @label POTIOND
+ @do move 1 1
+ @clear screen
+ @show
+`c`\
+ `2What would you like your toilet water to be made out of?
+
+ @do `v01 is 1
+ @choice
+Silver Potion
+Gold Potion
+Red Potion
+What!?!
+ @if response is 4 then do
+ @begin
+ @do move 1 1
+ @clear screen
+ @show
+`\`\ `2Let's explain, shall we...
+
+ `0In your private room, there will be a toilet. In it, there will be water.
+ What kind of water is your choice. This water will be available to drink
+ once per day by yourself and whomever you allow inside your private room.
+
+ `2Types of Water:
+
+ `$-`0Silver Potion`2: Dodge goes up by 1!
+ `$-`0Gold Potion`2: Muscle goes up by 2!
+ `$-`0Red Potion`2: Max HP goes up by 5!
+
+ `2That's what we're talking about...
+
+`k
+
+ @do goto POTIOND
+ @end
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Silver Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @do delete ninnw5.DAT
+ @writefile ninnw5.DAT
+1
+Silver Potion
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Gold Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @do delete ninnw5.DAT
+ @writefile ninnw5.DAT
+2
+Gold Potion
+ @end
+ @if response is 3 then do
+ @begin
+ @show
+`\`\ `0"Okay," `2He says, and pours the contents of a Red Potion into
+ your toilet water. `0"I'll refill it once a day."
+
+`k
+ @do delete ninnw5.DAT
+ @writefile ninnw5.DAT
+5
+Red Potion
+ @end
+ @end
+ @end
+@IF RESPONSE IS 1 THEN DO
+ @Begin
+ @do money - 10
+ @readfile ninn5a.dat
+`p25
+`p26
+`p27
+ @do `p26 + 10
+ @writefile ninn5a.dat
+`p25
+`p26
+`p27
+ @Show
+`\`\ `$"One order of clam soups," `2you say getting a taste of the cuisine.
+
+ `%YOU FEEL PARTIALLY REFRESHED
+`\`k
+ @do `p02 + 5
+ @if `p02 > `p03 then `p02 is `p03
+ @do goto lodge
+ @End
+@IF RESPONSE IS 2 THEN DO
+ @Begin
+ @do money - 20
+ @readfile ninn5a.dat
+`p25
+`p26
+`p27
+ @do `p26 + 20
+ @writefile ninn5a.dat
+`p25
+`p26
+`p27
+ @Show
+`\`\ `$"Give me an order of shark ribs," `2you indulge in the sea cuisine.
+
+ `%YOU FEEL FULLY REFRESHED
+`\`k
+ @if `p02 < `p03 then `p02 is `p03
+ @do goto lodge
+ @End
+@IF RESPONSE IS 3 THEN DO
+ @Begin
+ @Show
+`\`\ `2You grab a chair by the fire and listen to local fisherman's tales...
+`\`k
+ @do `p20 random 5 1
+ @routine story`p20
+ @do goto lodge
+ @End
+@IF RESPONSE IS 4 THEN DO
+ @Begin
+ @Show
+`\`\ `2You smile at a rather voluptuous waitress, `$"Hey baby, when do you
+ get off?" `2She turns to look at you and `l.`l.`l.
+ @do write
+`\`k
+ @do `p20 random 6 1
+ @IF `p20 is 1 then do
+ @Begin
+ @Show
+ `0"Same time you do baby," `2she smiles. All right!
+`\`k
+ @do goto lodge
+ @End
+ @IF `p20 is 2 then do
+ @Begin
+ @Show
+ `0"Not 'till two hours into it," `2she smiles. You Stallion!
+`\`k
+ @do goto lodge
+ @End
+ @IF `p20 is 3 then do
+ @Begin
+ @Show
+ `0"Whenever you want me to big boy," `2she smiles. Go man!
+`\`k
+ @do goto lodge
+ @End
+ @Show
+ `2Slaps you across the face. Guess not any time soon.
+`\`k
+ @do goto lodge
+ @End
+@IF RESPONSE IS 5 THEN DO
+ @Begin
+ @pauseoff
+ @do `v01 is 1
+ @readfile ninn5.dat
+`p20
+`s01
+ @do `s02 is getname `p20
+ @do `p21 is deleted `p20
+
+ @if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete ninn5.dat
+ @do addlog
+ `%StonePass Lodge`2 is put on the market today.
+ @routine seperate in gametxt.ref
+ @end
+ @if `p20 is &playernum then do
+ @begin
+ @do x = 27
+ @do y = 9
+ @loadmap 70
+ @do map = 70
+ @drawmap
+ @update
+ @do saybar
+`!Stonepass Men: `$Welcome back, boss.
+ @closescript
+ @end
+ @readfile ninn5a.dat
+`p25
+ @do move 1 1
+ @clear screen
+ @Show
+`\`\ `$"Pardon me sir, I'm interested in a room for the night."
+ `0"A room here will cost ya only `p25."
+
+ @DO WRITE
+`x`x
+ @do `v01 is 1
+ @CHOICE
+>&money `p25 Go ahead and get a room
+Forget this place
+ @IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @do money - `p25
+ @readfile ninn5a.dat
+`p25
+`p26
+`p27
+ @do `p26 + `p25
+ @writefile ninn5a.dat
+`p25
+`p26
+`p27
+ @do x = 27
+ @do y = 9
+ @loadmap 70
+ @do map = 70
+ @drawmap
+ @update
+ @closescript
+ @END
+
+ @IF RESPONSE IS 2 THEN DO
+ @do goto lodge
+ @End
+@drawmap
+@update
+@closescript
+
+
+@#GATE
+;Gate to StonePass
+
+@IF &lasty is 14 then do
+@BEGIN
+@DO SAYBAR
+`2The guard nods as you pass.
+@CLOSESCRIPT
+@END
+
+@BUSY
+@DO `v01 is 1
+@SHOW
+`r0`c `r1 You approach the hulking gates `r0
+
+ `2The guard yells `0"Halt!! Citizen, you must have a travel pass to continue
+ beyond this point. The land of GreenTree cannot be resposible for your
+ safety if you continue this way."
+
+@DO WRITE
+`x`x
+@CHOICE
+>`i21 0 Show him your travel pass
+You don't have one, guess you'll leave
+@IF RESPONSE IS 1 THEN DO
+@Begin
+@Show
+`\`\ `$"Here you go,"`2 you say and show the pass to the guard.
+`\`k
+@DRAWMAP
+@UPDATE
+@DO SAYBAR
+`2You feel the beach breeze as you pass the gate.
+@CLOSESCRIPT
+@End
+@IF RESPONSE IS 2 THEN DO
+@Begin
+@Show
+`\`\ `2You wonder where you could find a pass...
+`\`k
+@DO MOVEBACK
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@End
+
+@#STORY1
+@Show
+`c `r1`% A Dark Monster from the past `r0
+
+ `2One of the older sailors speaks up. `0"I remember when we used to sail
+ these seas without worries of pirates or harsh weathers, just the worry of
+ one thing ... The great giant Squid." `2You hear the crowd around you ooh
+ to his story, the piano dies down a bit.
+
+`k `0"I've heard that he was as big as PortTown, able to crush the biggest
+ galleons under his grasp. More tentacles than ships have crew hands, and
+ each as powerfull as an arm of the Red Dragon!" `2The crowd falls into a
+ dead silence.
+
+`k The old fisherman slowly raises his mug. `0"A drink, for that nobody here
+ ever has the horrible punishment to encounter that beast."
+ `$"Here Here," `2 shouts the crowd.
+`\`k
+@
+
+@#STORY2
+@Show
+`c `r1`% High Seas Legend `r0
+
+ `2A scruffy looking fellow stands up. He has no arm and a patch over his
+ left eye. His voice is raspy, `0"I know of a man who's name should be
+ known. McCarith the Vile ..."
+
+`k `0"The law of the land hates and fears him, passing him off as only a
+ ruffian of the sea. Without mercy or purpose, killing, destroying and
+ questing only for money and goods. But he is truly a man of honor, a
+ man who vows to those who struggle in the world, ally to those who are
+ made to suffer from a greater evil."
+
+`k `2You hear the rowdy ones in the tavern cheer in the background. `0"Yes
+ speak up and be proud of this man. If your ship ever falls under his prey
+ show your good not to the crown, not to him, but to the good men of the sea
+ and maybe ... just maybe he'll spare you." `2The crowd around you begins
+ to roar with praise, guess this McCarith is a popular guy.
+`\`k
+@
+
+@#STORY3
+@Show
+`c `r1`% Lands of the West `r0
+
+ `2Slowly a beautiful women stands from the crowd. Her eyes seem to glow
+ with happiness and mystery. She speaks with a soft voice. `0"I ... I
+ know of a land, a hidden land. Where the light grows and people strive to
+ a better life for all." `2The crowd begins to quiet and the room seems to
+ become soothing & warm.
+
+`k `0"To the west it lies, high in the mountains there. The people who
+ inhabit it are ... mysterious to outsiders. But they are peaceful and kind
+ - they know much about the world and answers to our questions. If you see
+ these people, befriend them for they may aid you greatly on you quest in
+ life." `2She smiles and sits.
+`\`k `2One older sailer stands up. `0"Oh Wanda! You know that's a load of
+ crap!" `2He then promptly sits down.
+`\`k
+@
+
+@#STORY4
+@if `v06 is 1 then do
+ @begin
+ @show
+`c `r1`% Woman better have my Money `r0
+
+ `2This story has been `bcensored`2, the game is running in clean mode.
+
+`k
+ @closescript
+ @end
+
+@Show
+`c `r1`% Bitch better have my Money `r0
+
+ `2A man with a rather large hat stands. He is adorned with what looks like
+ exotic furs and golds. He has a certain .. flavor to himself. He speaks.
+
+`k `0"Bitch better have my money. She should have it good and true.
+ Bitch better have my money, else you don't wanna know what I'll do to you.
+ Bitch better have my money, rolled and ready to go.
+ Bitch better have my money, or else I'm gonna slap you ho."
+`\`k
+@
+
+@#STORY5
+@Show
+`c `r1`% Fear Denied `r0
+
+ `2A man who looks pale as a ghost stands. He seems to have wounds on his
+ body, they seem fairly recent. He speaks.
+
+`k `0"The Dragon still is alive my friends. Take care in your quests for he
+ does exist. I was captured by the Dragon Tooth Cult, they .. they showed
+ me that he was alive. The Dragon .. will be coming soon! You must ..."
+
+ `2He begins to babble and become lost. A few men from the bar stand and
+ him outside. One of the elders in the lodge stands.
+
+ `0"My friends, do not worry of what he speaks. Nearly a drunk with an
+ active imagination. I assure you, the Dragon is gone ..."
+`\`k
+@
+
+@#STORY6
+;whoever added this story, tell me who you are!!! (Seth and Pap don't know?!)
+@Show
+`c `r1`% The Sand Cat `r0
+ `2Here we go said the pussy
+`\`k
+@
+
+;ALL MONSTERS ARE BELOW HERE!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+@#monster1
+@fight
+;name
+Beached Pirate
+;string said when you see him
+A constant "arr" sound comes from behind you.
+;power move kill string
+`$"Say hi to Davey Jones for me," `2 you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+slices your arm with his cutlass|14
+backstabs you|44
+gets a hold with his garrot|54
+NONE|NONE
+NONE|NONE
+;defense
+20
+;gold reward
+76
+;experience
+98
+;hit points
+75
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Thief
+;string said when you see him
+A man in a cloak approches you, with a dagger in each hand.
+;power move kill string
+He should know, you've got insurance.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+jabs with his daggers|17
+gets a good gash in your leg|10
+cuts your arm|12
+blows a strange powder into your eyes|32
+NONE|NONE
+;defense
+9
+;gold reward
+187
+;experience
+65
+;hit points
+60
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+STONEP.REF|THIEF
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Sand Worm
+;string said when you see him
+The sand in front of you begins to move
+;power move kill string
+`$"Go in the ground and stay there," `2 you command.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+draws blood with its teeth|43
+wraps around & squeezes you legs|14
+gets ahold with his sucker|27
+NONE|NONE
+NONE|NONE
+;defense
+12
+;gold reward
+0
+;experience
+189
+;hit points
+102
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Vagabond Cutthroat
+;string said when you see him
+Suddenly a mad heckling yell approches.
+;power move kill string
+That's one less bum on the beach.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+slices a with his saber|32
+throws a handfull of sand in your eyes|16
+gets you in a strangle hold|26
+throws a rock|23
+NONE|NONE
+;defense
+19
+;gold reward
+103
+;experience
+127
+;hit points
+83
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Beached Man o' War
+;string said when you see him
+Foolishly you approach a blubbery organism
+;power move kill string
+`$"I think it's really dead this time," `2you hope.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+touches you with a blubbery tentacle|30
+leashes out with smile|35
+rubs against your leg with paralysing poison|40
+rolls into you|42
+NONE|NONE
+;defense
+25
+;gold reward
+103
+;experience
+77
+;hit points
+80
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster6
+@fight
+;name
+Giant Crab
+;string said when you see him
+You see a rather large looking crab, but it also sees you!
+;power move kill string
+`$"I had a bad case of crabs, but killed em."
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+snaps at your leg|15
+cracks into your leg|18
+grabs your hand with a pincher|25
+tramples into you|12
+NONE|NONE
+;defense
+12
+;gold reward
+45
+;experience
+72
+;hit points
+50
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster7
+@fight
+;name
+Rogue Bard
+;string said when you see him
+You hear really crappy music approaching you...
+;power move kill string
+Shut up, please just shut that thing up!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+sings about his past loves|10
+attempts to dance for you|15
+smacks you with his lute|13
+NONE|NONE
+NONE|NONE
+;defense
+15
+;gold reward
+34
+;experience
+26
+;hit points
+40
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#FIGHT
+@do `p20 random 6 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@busy
+@do `p20 random 7 1
+@do goto monster`p20
+
+@#THIEF
+@do money / 4
+@do money * 3
+@SHOW
+`r0`c `r1`% Defeat by the Thief `r0
+
+ `2The Thief raises his dagger to deliver the blow to your skull...
+
+`k `0"Don't worry, I'm not all about killing, I'm about money. So I'm sure
+ you'll understand if I relieve you of a little." `2He proceeds to raid
+ your gold bag. But at least you have your life.
+
+`4 You lose `b1/4th`4 of your loot.
+
+`k
+@do `p02 is 5
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+
+@#done
diff --git a/xtrn/lord2/cnw/store.clr b/xtrn/lord2/cnw/store.clr
new file mode 100644
index 0000000000000000000000000000000000000000..6c3e1c3d347724a88fc49c2209acd936b3349e2f
--- /dev/null
+++ b/xtrn/lord2/cnw/store.clr
@@ -0,0 +1,15 @@
+[?7h[255D[61C[0;33m��[11C��
+[61C[30;43m��[11C��[33;40m�
+[61C�[30;43m�[33;40m��� ��[5C�[30;43m�[33;40m���
+[61C�[30;43m���[33;40m��[30;43m��[33;40m� �[30;43m�[33;40m��[30;43m�[40m
+[61C[33m�[30;43m���[33;40m���[30;43m�[33;40m���� �[30;43m��[33;40m�[30;43m�[40m
+[61C[33m��[30;43m�[33;40m�[47m������������[30;43m��[40m
+[61C[33m��[30;43m�[47m [33;40m�[30;43m��[40m
+[61C[33m�[30;43m��[47m StoreRoom [33;40m�[30;43m��[40m
+[61C[33m�[30;43m��[47m [33;40m�[30;43m�[33;40m�
+[61C�[30;43m�[33;47m������������[40m��[30;43m�[33;40m�
+[61C�[30;43m�[33;40m��[30;43m�[33;40m��[30;43m�[33;40m�[30;43m�[33;40m����[30;43m�[33;40m���
+[61C�[30;43m�[1C[33;40m�[30;43m�[33;40m��[30;43m�[33;40m�[30;43m�[33;40m�[43m [40m� [30;43m�[2C[33;40m�
+[62C� ��[30;43m�[33;40m���[30;43m�[33;40m� �
+[67C�[30;43m�[2C[33;40m�[30;43m�[33;40m�
+[68C� �
diff --git a/xtrn/lord2/cnw/sword.ref b/xtrn/lord2/cnw/sword.ref
new file mode 100644
index 0000000000000000000000000000000000000000..b82021e9ba722fbcd558c01f6f4f43d94d5fe8c2
--- /dev/null
+++ b/xtrn/lord2/cnw/sword.ref
@@ -0,0 +1,247 @@
+; Script file SWORD.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:30 2001
+
+@DECLARE start 000000427
+@DECLARE pulledsword 000004161
+@DECLARE person1 000004279
+@DECLARE person2 000004394
+@DECLARE person3 000004522
+@DECLARE treasure 000004631
+@DECLARE end2 000005090
+@DECLARE sign 000005153
+@DECLARE ending 000005269
+@DECLARE armour 000005398
+@DECLARE arstart 000005452
+@NOCHECK
+; End of .REF index
+
+@#Start
+
+@do moveback
+
+@if `t87 is 2 then do
+@begin
+ @do goto pulledsword
+ ;Help people who got killed
+ ;after pulling sword, before
+ ;treasure was gained.
+@end
+
+@if `t87 not 0 then do
+@begin
+ @do goto ending
+ ;Already have sword.
+ ;Get lost!
+@end
+
+@IF `P04 < 100 THEN DO
+@begin
+ @DO SAYBAR
+ You aren't yet strong enough to even think about moving it!
+ @closescript
+@end
+ ;Players that get here in script
+ ;are strong enough.
+
+@datanewday sword.idf
+@dataload sword.idf &playernum `p20
+
+@if `p20 is 1 then do
+@begin
+ @do saybar
+ Try again tomorrow
+ @closescript
+ ;Already tried today. Goodbye!
+@end
+
+@offmap
+@show
+`r0`c `7The `%$word `7in the `8$tone
+
+
+ `2You walk up to the white glistening sword and
+ see something engraved on the handle.
+`k
+ `2It reads:
+ `2He who pulls this sword from this stone
+ is hereby granted the lost treasure of the main-
+ land, Stone Brook!
+`k
+ `%Hey, I live in Stone Brook, and I've never seen
+ any treasure! `2you protest.
+`k
+ `3Maybe that's because it is the LOST treasure of
+ Stone Brook! `2The sword rumbles.
+`k
+ `%A talking sword?, and a rude sword I might add,
+ after I pull you out, I'm going to have to use
+ you to scratch my behind! `2You snap.
+`k
+ `3NO!!, I'm sorry, anything but that! `2The
+ sword pleads.
+`k
+ `%Ok, just be good and let me TRY to pull you out
+ of this stone, I want my treasure!
+`k
+`c
+@do `v01 is 1
+ ;Always set the default choice in range.
+@do write
+`x`x
+@choice
+Attempt to pull out the sword
+Leave it be
+@show
+`\
+@if responce is 2 then do
+@begin
+ @drawmap
+ @update
+ @do saybar
+ "You're a weak warrior, you shouldn't even survive!" the Sword taunts.
+ @closescript
+@end
+
+@show
+`r0`c
+`2You place your hands on the handle of the sword, you make sure you
+`k
+have a tight grip, you take a deep breath, look around to make sure
+`k
+everyone is watching, and then you give it a mighty heave upwards..
+`k
+you`l.`l.`l.`l.
+@do `p20 random 8 1
+
+@if `p20 < 8 then do
+@begin
+ ; 7 out od 8 they fail.
+ @show
+`r0`c
+`4Don't budge the huge sword`2 The surrounding people laugh at you as you
+start back towards the steps.
+`k
+ @do goto end2
+@end
+
+@if `p20 is 8 then do
+@begin
+ @show
+`r0`c
+`%Remove the sword from the stone!! `2The surrounding people are
+amazed that you triumphed! Now that you think about it so are you!
+`k
+`4SUDDENLY THE SWORD IS SUCKED FROM YOUR HANDS! HEY WHAT HAPPENED!!?!?
+`k
+`2Our deal was you get the treasure, NO SWORD!
+`k
+`%I knew there were strings attached! `2you exclaim.
+`k
+`2Congrats' `5`n`% you have removed the sword!!!, I will now tele-
+port you to Stone Brook, and highlight the path to get to the treasure
+I have closed all of the buildings, so don't try to go into any houses!
+Just follow the white path and open the chest!, you will then be tele-
+ported back here...
+`k
+ @do `t87 is 2
+ ;Keeps smackrod users from getting the treasure
+ ;by just going there without pulling the sword.
+
+@label pulledsword
+
+ @do x is 37
+ @do y is 12
+ @do map is 1568
+ @loadmap 1568
+ @drawmap
+ @update
+@end
+
+
+@#person1
+@do moveback
+@do saybar
+If you pull the sword from the stone, you'll get a treasure!
+@closescript
+
+@#Person2
+@do moveback
+@do saybar
+IT CAN'T BE DONE!, I'm the strongest man in the world, and I can't do it!
+@closescript
+
+@#person3
+@do moveback
+@do saybar
+`%Hey `5`n`%, you need more than 100 strength to try!
+@closescript
+
+@#treasure
+@offmap
+@do moveback
+@if `t87 is 2 then do
+@begin
+ ;We checked, they pulled the sword
+ ;and don't have the sword now. (`t87)
+ @show
+`r0`c
+`2You slowely unlatch the chest and open it. You find `$15,000 GOLD`2, and
+`012 Gems`2!!!!!!!!
+`k
+ @do money + 15000
+ @do `p19 + 12
+ @do `t87 = 1
+ @do x is 14
+ @do y is 12
+ @do map is 1517
+ @loadmap 1517
+@end
+
+@label end2
+@datasave sword.idf &playernum 1
+@drawmap
+@update
+
+@#SIGN
+@do moveback
+@do saybar
+`%$word `2in the `8$tone`2, by MeRcEr (Michael Naeseth)
+@closescript
+
+
+@label ending
+@do moveback
+@do saybar
+There was only one sword here, and you have it, so quit trying to pull air!
+@closescript
+
+@#Armour
+@offmap
+@do moveback
+@do `v01 is 1
+@label arstart
+@show
+`r0`c `%Mercer's Armour
+
+`2 You see defense items hanging all over the walls in the shop.
+
+@do write
+`x`x
+@choice
+Look at Mercer's Armour
+Leave
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 10
+ 12
+ 13
+ 14
+ 59
+ @end
+
+@if responce not 2 then goto arstart
+@drawmap
+@update
+
diff --git a/xtrn/lord2/cnw/swordcas.ref b/xtrn/lord2/cnw/swordcas.ref
new file mode 100644
index 0000000000000000000000000000000000000000..cad389aa5b1f2355a58b686682c2607ef0b232d0
--- /dev/null
+++ b/xtrn/lord2/cnw/swordcas.ref
@@ -0,0 +1,1395 @@
+; Script file SWORDCAS.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:29 2001
+
+@DECLARE pawn 000000910
+@DECLARE locations 000001313
+@DECLARE sign 000001591
+@DECLARE sign2 000001693
+@DECLARE sing 000001803
+@DECLARE startsing 000002000
+@DECLARE fishing 000003286
+@DECLARE start 000003484
+@DECLARE armory 000004662
+@DECLARE armory 000004677
+@DECLARE man1 000005310
+@DECLARE man2 000005507
+@DECLARE whore 000005698
+@DECLARE hotel 000005798
+@DECLARE aqua 000006511
+@DECLARE fishsell 000007174
+@DECLARE fishend 000007952
+@DECLARE wizard 000007989
+@DECLARE wiz 000011516
+@DECLARE table 000012253
+@DECLARE real 000012446
+@DECLARE bank 000013675
+@DECLARE bankstart 000013803
+@DECLARE bankagain 000014932
+@DECLARE deposit 000016385
+@DECLARE withdraw 000016935
+@DECLARE bartender 000017803
+@DECLARE fishin 000017999
+@DECLARE attention 000022674
+@NOCHECK
+; End of .REF index
+
+@#Pawn
+@do moveback
+@OFFMAP
+@Show
+`r0`c `r1 Selling your items `r0
+
+`2"How's it goin' there boy?, Have anything I might be interested in?
+
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Pawn Item(s)
+Leave
+@if responce is 2 then do
+@begin
+@drawmap
+@update
+@end
+
+@if responce is 1 then do
+@begin
+@show
+`2"What do ya want to part with kid??"
+
+@sellmanager
+@drawmap
+@update
+@end
+
+@#LOCATIONS
+@do moveback
+@offmap
+@show
+`r0`c `r1 Wizard Locations `r0
+
+`01. `91 mile west of Porttown
+`02. `91 mile east of Sosen Village
+`03. `94 miles north and 2 miles west of Arrisville
+`04. `91 miles north of and 1 mile east of Bonetown
+
+`k
+`k
+@drawmap
+@update
+
+@#SIGN
+@do moveback
+@do saybar
+The Sword Castle V1.1 by MeRcEr (Michael Naeseth)
+@closescript
+
+@#SIGN2
+@do moveback
+@do saybar
+There are nothing but Sparkling Green Salmon in this lake!
+@closescript
+
+@#SING
+@datanewday swordca3.idf
+@dataload swordca3.idf &playernum `p20
+@if `p20 not 1 then goto startsing
+
+@do moveback
+@do saybar
+You can only sing once a day!
+@closescript
+
+
+@label startsing
+@offmap
+@do moveback
+@show
+`r0`c `r1 Puttin' on a show! `r0
+
+`2You step up to the mic as nervous as sin.
+`k
+`2You try to think of a sing as fast as you can before
+`k
+`2the audience gets impatient....
+`k
+`2You sing`l.`l.`l.`l.
+
+@do `p20 random 4 1
+
+@if `p20 is 1 then do
+@begin
+@show
+`r0
+`4A BARNEY SONG :( ,`%The crowd throws everything in sight at you!
+`4YOU ARE TOO DIZZY TO MOVE MUCH MORE, YOU LOSE 500 TURNS!
+`k
+@do `p11 - 500
+@datasave swordca3.idf &playernum 1
+@drawmap
+@update
+@end
+
+@if `p20 is 2 then do
+@begin
+@show
+`r0
+`%A PUFF DADDY SONG, THE CROWD APPLAUDS YOU, FROM HIGH SPIRIT YOU
+`%GAIN 500 TURNS!
+`k
+@do `p11 + 500
+@datasave swordca3.idf &playernum 1
+@drawmap
+@update
+@end
+
+@if `p20 is 3 then do
+@begin
+@show
+`r0
+`%A BEATLES SONG!, THE CROWD CLAPS A LITTLE, BUT THE OLD BARKEEP,
+`%JAMIE LOVED THE SONG, HE GIVES YOU 12 GEMS!
+`k
+@do `p19 + 12
+@datasave swordca3.idf &playernum 1
+@drawmap
+@update
+@end
+
+@if `p20 is 4 then do
+@begin
+@show
+`r0
+`4A MARILYN MANSON SONG :( NOT ONLY DO THEY SERIOUSLY BEAT YOUR ASS,
+`4THEY KICK YOU STRAIGHT OUT OF THE SWORD CASTLE!!
+`k
+@do `p02 = 1
+@datasave swordca3.idf &playernum 1
+@do map is 1463
+@do x is 40
+@do y is 7
+@loadmap 1463
+@drawmap
+@update
+@end
+
+@#FISHING
+@do moveback
+@datanewday swordca2.idf
+@dataload swordca2.idf &playernum `p20
+@if `p20 not 1 then goto start
+
+@do saybar
+You can only go fishing here once a day!
+@closescript
+
+@label start
+@offmap
+@show
+`r0`c `r1 Goin' Fishin' `r0
+
+`%WOW, you see nothing but Sparkling Green Salmon in this lake!, you bet
+yourself that you could catch at least 10!
+
+`2So, what you gonna' do?
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Go Fishin'
+Leave
+@if responce not 1 then do
+@begin
+@drawmap
+@update
+@end
+
+
+
+@if responce is 1 then do
+@begin
+@show
+`r0`c
+
+`2You stick your `%s&weapon `2into the water hoping to stab
+some fish for food or money, you catch`l.`l.`l.`l.
+
+@do `p20 random 4 1
+@if `p20 is 1 then do
+@begin
+@show
+`r0
+`%4 SPARKLING GREEN SALMON!
+`k
+@do `i30 + 4
+@datasave swordca2.idf &playernum 1
+@drawmap
+@update
+@end
+
+@if `p20 is 2 then do
+@begin
+@show
+`r0
+`%2 SPARKLING GREEN SALMON!
+`k
+@DO `i30 + 2
+@datasave swordca2.idf &playernum 1
+@drawmap
+@update
+@end
+
+@if `p20 is 3 then do
+@begin
+@show
+`r0
+`4A SHARK!, IT BITES YOU! (HIT POINTS GO DOWN, WAAAAY DOWN!)
+`k
+@do `p02 = 2
+@datasave swordca2.idf &playernum 1
+@drawmap
+@update
+@end
+
+@if `p20 is 4 then do
+@begin
+@show
+`r0
+`9A FISHING POLE?!?! `%HOW IRONIC!
+`k
+@do `i28 + 1
+@datasave swordca2.idf &playernum 1
+@drawmap
+@update
+@end
+
+
+@#ARMORY
+@label armory
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Armory `r0
+
+`2A rusted old man by the name of Renip walks
+up to you, "`9May I help you my friend?`2" asks
+the old man.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Chat with Renip
+Look at Renip's wares
+Leave!
+@if responce is 1 then do
+@begin
+@show
+`2"I have nothing to say to you `%`n`2!" He snaps
+`k
+`2"`%What an ass!`2" you mumble to yourself
+`k
+@do goto armory
+@end
+
+
+@if responce is 2 then do
+@begin
+@clear screen
+@buymanager
+9
+16
+36
+49
+58
+14
+37
+59
+70
+62
+
+@do goto armory
+@end
+
+@if responce is 3 then do
+@begin
+@drawmap
+@update
+@end
+
+
+@#MAN1
+@do `p70 is 111
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+Mann, I don't have the guts to go up there and embarass myself..
+@closescript
+@end
+
+@#man2
+@do `p70 is 112
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+Mordin: The bartender's drinks are the best in the world!
+@closescript
+@end
+
+@#WHORE
+@do moveback
+@do saybar
+This building was banned from the Stone Castle.
+@closescript
+
+@#hotel
+@offmap
+@do moveback
+@show
+`r0`c `r1 Getting a room `r0
+
+`2"What can I do ya for sonney?" an old man asks
+`2"Would you like a room?, only $50 and there
+are special bonuses in the rooms!" he exclaims
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Get a room
+Leave
+@if responce is 2 then do
+@begin
+@drawmap
+@update
+@end
+
+@if responce is 1 then do
+@begin
+@if money < 50 then do
+@begin
+@drawmap
+@update
+@do saybar
+`%You don't have enough gold!
+@closescript
+@end
+@show
+
+`2"That'll be fifty bucks please"
+`k
+`%You slap the dough on the counter
+`k
+`2"Thank you go right on in"
+`k
+@do money - 50
+@do map is 1466
+@do x is 30
+@do y is 14
+@loadmap 1466
+@drawmap
+@update
+@end
+
+@#aqua
+@offmap
+@do `p70 is 113
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@show
+`r0`c
+`2"Hello `n, what can I do ya for?" Aquaman asks
+`k
+`%"Where the heck do you get a name like Aquaman?" you ask
+`k
+`2"Hmmm....let's see... I live in water you doof!" says Aquaman sarcastically
+`2"So what do ya' want you bafoon?" asks Aquaman
+
+`k
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Conduct business with Aquaman
+Sell fish
+Leave
+@if responce is 3 then do
+@begin
+@drawmap
+@update
+@end
+
+@if responce is 1 then do
+ @begin
+ @do `p20 is 7
+ @run getquest in quest.ref
+ @end
+
+@if responce is 2 then do
+@begin
+@label fishsell
+@show
+`r0`c `r1 Selling fish `r0
+
+`2"So how much fish ya got here kid??" asks Aquaman
+`0(You have `9&money`0)
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+<`i29 1 <`i30 1 You have no fish to sell.
+>`i29 0 Sell a Salmon for `$$50`%. `2(you have `0`i29`2)
+>`i30 0 Sell a Sparking Green Salmon for `$$250`%. `2(you have `0`i30`2)
+>`i29 0 <`i30 1 Sell nothing
+>`i30 0 <`i29 1 Sell nothing
+>`i30 0 >`i29 0 Sell nothing
+@if responce is 2 then do
+@begin
+@show
+
+`2"Thanks kid."
+
+`k
+ @do money + 50
+ @do `i29 - 1
+ @do goto fishsell
+ @end
+@if responce is 3 then do
+@begin
+@show
+
+`2"Damn!, now that is a nice lookin' fish!" exclaims Aquaman
+
+`k
+ @do money + 250
+ @do `i30 - 1
+ @do goto fishsell
+ @end
+
+ @do goto fishend
+
+ @end
+
+@label fishend
+@drawmap
+@update
+@end
+
+@#WIZARD
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Wizard `r0
+
+`%"Hey, where is your boat at?" You ask
+`k
+`2"I don't use boats, obviously I am a wizard and have
+the power to warp people places!" he yells
+`k
+`%"Sorry I asked!" you say
+`k
+`2"So, can I help ya or not?"
+`k
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Buy warp to Greentree for $500
+Buy warp to Porttown for $600
+Buy warp to Sosen Village for $650
+Buy warp to Arrisville for $2,000
+Buy warp to Flagcity for $600
+Buy warp to a random secret place for $2,000
+Leave
+@if responce is 7 then do
+@begin
+@drawmap
+@update
+@end
+
+@if responce is 1 then do
+@begin
+@if money < 500 then do
+@begin
+@drawmap
+@update
+@do saybar
+You don't have enough gold
+@closescript
+@end
+
+@show
+`r0`c
+`2"Ok, let me just grab my spell book here, hold on..."
+`k
+`2"Ok, got it here we go `l`9RAFNAR `lETOOW `lMERCERROCKS`l.`l.
+
+`2Before you know it you are there!
+`k
+@do money - 500
+@do map is 1356
+@do x is 24
+@do y is 6
+@loadmap 1356
+@drawmap
+@update
+@end
+
+@if responce is 2 then do
+@begin
+@if money < 600 then do
+@begin
+@drawmap
+@update
+@do saybar
+You don't have enough gold
+@closescript
+@end
+
+@show
+`r0`c
+`2"Ok, let me just grab my spell book here, hold on..."
+`k
+`2"Ok, got it here we go `l`9RAFNAR `lETOOW `lMERCERROCKS`l.`l.
+
+`2Before you know it you are there!
+`k
+@do money - 600
+@do map is 956
+@do x is 38
+@do y is 15
+@loadmap 956
+@drawmap
+@update
+@end
+
+@if responce is 3 then do
+@begin
+@if money < 650 then do
+@begin
+@drawmap
+@update
+@do saybar
+You don't have enough gold
+@closescript
+@end
+
+@show
+`r0`c
+`2"Ok, let me just grab my spell book here, hold on..."
+`k
+`2"Ok, got it here we go `l`9RAFNAR `lETOOW `lMERCERROCKS`l.`l.
+
+`2Before you know it you are there!
+`k
+@do money - 650
+@do map is 456
+@do x is 17
+@do y is 7
+@loadmap 456
+@drawmap
+@update
+@end
+
+@if responce is 4 then do
+@begin
+@if money < 2000 then do
+@begin
+@drawmap
+@update
+@do saybar
+You don't have enough gold
+@closescript
+@end
+
+@show
+`r0`c
+`2"Ok, let me just grab my spell book here, hold on..."
+`k
+`2"Ok, got it here we go `l`9RAFNAR `lETOOW `lMERCERROCKS`l.`l.
+
+`2Before you know it you are there!
+`k
+@do money - 2000
+@do map is 523
+@do x is 11
+@do y is 11
+@loadmap 523
+@drawmap
+@update
+@end
+
+@if responce is 5 then do
+@begin
+@if money < 600 then do
+@begin
+@drawmap
+@update
+@do saybar
+You don't have enough gold
+@closescript
+@end
+
+@show
+`r0`c
+`2"Ok, let me just grab my spell book here, hold on..."
+`k
+`2"Ok, got it here we go `l`9RAFNAR `lETOOW `lMERCERROCKS`l.`l.
+
+`2Before you know it you are there!
+`k
+@do money - 600
+@do map is 1092
+@do x is 79
+@do y is 18
+@loadmap 1092
+@drawmap
+@update
+@end
+
+@if responce is 6 then do
+@begin
+@if money < 2000 then do
+@begin
+@drawmap
+@update
+@do saybar
+You don't have enough gold
+@closescript
+@end
+
+@show
+`r0`c
+`2"Ok, let me just grab my spell book here, hold on..."
+`k
+`2"Ok, got it here we go `l`9RAFNAR `lETOOW `lMERCERROCKS`l.`l.
+
+`2Before you know it you are there!
+`k
+@do `p20 random 3 1
+
+@if `p20 is 1 then do
+@begin
+@do money - 2000
+@do map is 146
+@do x is 32
+@do y is 13
+@loadmap 146
+@drawmap
+@update
+@end
+
+@if `p20 is 2 then do
+@begin
+@do money - 2000
+@do map is 1514
+@do x is 76
+@do y is 12
+@loadmap 1514
+@drawmap
+@update
+@end
+
+@if `p20 is 3 then do
+@begin
+@do money - 2000
+@do map is 558
+@do x is 37
+@do y is 4
+@loadmap 558
+@drawmap
+@update
+@end
+
+@#WIZ
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Wizard `r0
+
+`2"I'll warp ya to The Sword Castle for $850"
+`2"What do ya say?"
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes, warp me to The Sword Castle
+No, i'm outta here
+@if responce is 2 then do
+@begin
+@drawmap
+@update
+@end
+
+@if responce is 1 then do
+@begin
+@if money < 850 then do
+@begin
+@drawmap
+@update
+@do saybar
+You don't have enough gold
+@closescript
+@end
+
+@show
+`r0`c
+ `2"Ok, let me just grab my spell book here, hold on..."
+`k
+ `2"Ok, got it here we go `l`9RAFNAR `lETOOW `lMERCERROCKS`l.`l.
+
+ `2Before you know it you are there!
+`k
+@do money - 850
+@do map is 1463
+@do x is 38
+@do y is 7
+@loadmap 1463
+@drawmap
+@update
+@end
+
+@#TABLE
+@do moveback
+@datanewday swordcas.idf
+@dataload swordcas.idf &playernum `p20
+@if `p20 not 1 then goto real
+
+@do saybar
+There is nothing else there....
+@closescript
+@end
+
+@label real
+@offmap
+@show
+`r0`c
+`2You glide your hand along the tables smooth surface, and find`l.`l.`l.`l.
+@do `p20 random 6 1
+
+@if `p20 is 1 then do
+@begin
+@show
+`r0
+`%A KOSHI SNACK!
+`k
+@do `i66 + 1
+@datasave swordcas.idf &playernum 1
+@drawmap
+@update
+@end
+
+@if `p20 is 2 then do
+@begin
+@show
+`r0
+`%A SILVER POTION!
+`k
+@do `i54 + 1
+@datasave swordcas.idf &playernum 1
+@drawmap
+@update
+@end
+
+@if `p20 is 3 then do
+@begin
+@show
+`r0
+`%A FUZZY LITTLE ANIMAL
+`k
+@do `i51 + 1
+@datasave swordcas.idf &playernum 1
+@drawmap
+@update
+@end
+
+@if `p20 is 4 then do
+@begin
+@show
+`r0
+`%A BOOK!
+`k
+`%YOU READ THE BOOK AND FEEL SMARTER (1000 EXPERIANCE GAINED)
+`k
+@do `p01 + 1000
+@datasave swordcas.idf &playernum 1
+@drawmap
+@update
+@end
+
+@if `p20 is 5 then do
+@begin
+@show
+`r0
+`%A HAMMERSTONE?
+`k
+`2"What's this for?" you ask
+`k
+`%OH YEAH, YOU BREAK IT IN HALF WITH YOUR S&WEAPON!
+`k
+`%STRENGTH RAISED BY 5!
+`k
+@do `p04 + 5
+@datasave swordcas.idf &playernum 1
+@drawmap
+@update
+@end
+
+@if `p20 is 6 then do
+@begin
+@show
+`r0
+`%500 GOLD PIECES!!
+`k
+`%SOMEONE MUST HAVE BEEN IN A HURRY!
+`k
+@do money + 500
+@datasave swordcas.idf &playernum 1
+@drawmap
+@update
+@end
+
+@#bank
+@do `p30 is 20
+@do `v01 is 1
+@offmap
+@do moveback
+@do `s09 is swordcas
+@routine DONEQUEST in VAULTS.REF
+@label bankstart
+@show
+`r0`c `r1 `%The Sword Castle Bank `r0
+
+`2 A young clerk eyes you nervously.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+ s
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdraw.
+=&bank 0 Apply for an account here.
+Leave
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last question?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookkeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+
+ @end
+
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+
+
+
+@drawmap
+@update
+
+@#BARTENDER
+@datanewday swordca1.idf
+@dataload swordca1.idf &playernum `p20
+@if `p20 not 1 then goto fishin
+
+@do saybar
+Sorry, you have already purchased from me today...
+@closescript
+
+@label fishin
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1 Talking with barkeep `r0
+
+`2"Would you like a menu today, `9`n`2?"
+`k
+`2"`%OK, send it this way.."
+`%You start reading
+`k`c
+ `9MENU
+
+ `3DRINKS:
+ `2Beer............... $10.00
+
+ `2Ale................ $25.00
+
+ `2Koshi Juice........ $55.00
+
+ `2Dragon Blood....... $55.00
+
+ `3FOOD:
+ `2Jumping Beans...... $50.00
+
+ `2Liver.............. $25.00
+
+ `2Book Worm.......... $50.00
+
+
+`k`c
+
+`r1 Talking with Barkeep `r0
+
+`2"So, what'll it be?"
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Buy Beer for $10.00
+Buy Ale for $25.00
+Buy Koshi Juice for $55.00
+Buy Dragon Blood for $55.00
+Buy Jumping Beans for $50.00
+Buy Liver for $25.00
+Buy Book Worm for $50.00
+Leave
+@if responce is 1 then do
+@begin
+@if money < 10 then do
+@begin
+@drawmap
+@update
+@do saybar
+You don't have enough gold!
+@closescript
+@end
+
+@show
+`r0`c
+`2"Coming right up!" Shouts the barkeep
+
+`2He comes back a few minutes later with your order.
+`k
+`2"Well, try it" he says
+`k
+`2You slurp down your beer in a few seconds, your gut tingles
+`k
+`%You gain 10 health
+`k
+@do money - 10
+@drawmap
+@update
+@datasave swordca1.idf &playernum 1
+@do `p96 + 2
+@drawmap
+@update
+@end
+
+@if responce is 2 then do
+@begin
+@if money < 25 then do
+@begin
+@drawmap
+@update
+@do saybar
+You don't have enough gold!
+@closescript
+@end
+
+@show
+`r0`c
+`2"Coming right up!" Shouts the barkeep
+
+`2He comes back a few minutes later with your order.
+`k
+`2"Well, try it" he says
+`k
+`2You feel the contents of the glass sliding down your throat
+`k
+`%You are fully healed!
+`k
+@do money - 25
+@do `p96 + 4
+@drawmap
+@update
+@datasave swordca1.idf &playernum 1
+@drawmap
+@update
+@end
+
+@if responce is 3 then do
+@begin
+@if money < 55 then do
+@begin
+@drawmap
+@update
+@do saybar
+You don't have enough gold!
+@closescript
+@end
+
+@show
+`r0`c
+`2"Coming right up!" Shouts the barkeep
+
+`2He comes back a few minutes later with your order.
+`k
+`2"Well, try it" he says
+`k
+`2You hesitantly sip on the green liquid, you feel good
+`k
+`%You gain 5 alignment!
+`k
+@do money - 55
+@do `p07 + 5
+@do `p96 + 12
+@drawmap
+@update
+@datasave swordca1.idf &playernum 1
+@drawmap
+@update
+@end
+
+@if responce is 4 then do
+@begin
+@if money < 55 then do
+@begin
+@drawmap
+@update
+@do saybar
+You don't have enough gold!
+@closescript
+@end
+
+@show
+`r0`c
+`2"Coming right up!" Shouts the barkeep
+
+`2He comes back a few minutes later with your order.
+`k
+`2"Well, try it" he says
+`k
+`2The redness of the liquid is compelling, you guzzle it down!
+`k
+`4Alignment lowered by 5
+`k
+@do money - 55
+@do `p07 - 5
+@do `p96 + 15
+@drawmap
+@update
+@datasave swordca1.idf &playernum 1
+@drawmap
+@update
+@end
+
+
+@if responce is 5 then do
+@begin
+@if money < 50 then do
+@begin
+@drawmap
+@update
+@do saybar
+You don't have enough gold!
+@closescript
+@end
+
+@show
+`r0`c
+`2"Coming right up!" Shouts the barkeep
+
+`2He comes back a few minutes later with your order.
+`k
+`2"Well, try em'" he says
+`k
+`2You toss some jumping beans in your mouth, mmmmm...
+`k
+`%You gain 4 Dodge!
+`k
+@do money - 50
+@do `p05 + 4
+@do `p96 + 18
+@drawmap
+@update
+@datasave swordca1.idf &playernum 1
+@drawmap
+@update
+@end
+
+@if responce is 6 then do
+@begin
+@if money < 25 then do
+@begin
+@drawmap
+@update
+@do saybar
+You don't have enough gold!
+@closescript
+@end
+
+@show
+`r0`c
+`2"Coming right up!" Shouts the barkeep
+
+`2He comes back a few minutes later with your order.
+`k
+`2"Well, try it" he says
+`k
+`2You smack on the liver, eeewwwww!!!
+`k
+`%Max hitpoints raised by 10
+`k
+@do money - 25
+@do `p03 + 10
+@do `p96 + 23
+@drawmap
+@update
+@datasave swordca1.idf &playernum 1
+@drawmap
+@update
+@end
+
+
+@if responce is 7 then do
+@begin
+@if money < 50 then do
+@begin
+@drawmap
+@update
+@do saybar
+You don't have enough gold!
+@closescript
+@end
+
+@show
+`r0`c
+`2"Coming right up!" Shouts the barkeep
+
+`2He comes back a few minutes later with your order.
+`k
+`2"Well, try it" he says
+`k
+`2You chomp on the worm, hehehe, it tickles your throat...
+`k
+`%You gain 300 experience, guess it's true what they say bout'
+book worms
+`k
+@do money - 50
+@do `p01 + 300
+@do `p96 + 25
+@drawmap
+@update
+@datasave swordca1.idf &playernum 1
+@drawmap
+@update
+@end
+
+@if responce is 8 then do
+@begin
+@drawmap
+@update
+@end
+
+@#attention
+@do moveback
+@do saybar
+Pay no attention to the nut in the fountain - The Sword Castle Assoc.
+@closescript
diff --git a/xtrn/lord2/cnw/sysop.ref b/xtrn/lord2/cnw/sysop.ref
new file mode 100644
index 0000000000000000000000000000000000000000..be4f4d23f094818bba471a8bb9da1ceda6b20651
--- /dev/null
+++ b/xtrn/lord2/cnw/sysop.ref
@@ -0,0 +1,1137 @@
+; Script file SYSOP.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:34 2001
+
+@DECLARE install 000001023
+@DECLARE job 000001159
+@DECLARE fight 000001389
+@DECLARE monster1 000001496
+@DECLARE monster2 000001580
+@DECLARE monster3 000001666
+@DECLARE monster4 000001754
+@DECLARE monster5 000001840
+@DECLARE monster6 000001926
+@DECLARE monster7 000002041
+@DECLARE monster8 000002625
+@DECLARE heal 000003190
+@DECLARE sign 000003327
+@DECLARE sysop 000003465
+@DECLARE sysoptalk 000004823
+@DECLARE findjob 000009411
+@DECLARE findjob2 000010133
+@DECLARE guards 000014069
+@DECLARE oops 000015369
+@DECLARE guard 000016326
+@DECLARE jail1 000017259
+@DECLARE start 000017534
+@DECLARE window 000018706
+@DECLARE taxes 000020269
+@DECLARE taxowe 000021293
+@DECLARE bounty 000022299
+@DECLARE howtax 000022377
+@DECLARE paytax 000023154
+@NOCHECK
+; End of .REF index
+
+; Updated by CNW to handle the java telnet app
+; CNW added the Taxes IGM in SYSOP.REF
+;
+;
+;
+; SYSOP.REF V1.2 by Don Kinney
+;
+@#INSTALL
+@do `s06 is Treasure`|Chest
+@do `s07 is JOB
+@do `s08 is sysop.ref
+@do `s09 is NIL
+@run install in install.ref
+@closescript
+@#JOB
+@do write
+`#It has the royal crest of the SYSOP.
+@do write
+`#It must be delivered to `s01.
+
+
+; **************random monster/event gen***************
+;
+;This is called randomly in the sysop underground screen
+;
+@#fight
+@busy
+@do `p20 random 8 1
+@do goto monster`p20
+; =========================================
+@#MONSTER1
+@run FINDKID in FIGHT.REF
+; =========================================
+@#MONSTER2
+@run FINDMONEY in FIGHT.REF
+; =========================================
+@#MONSTER3
+@run MONSTER10 in FIGHTSW.REF
+; =========================================
+@#MONSTER4
+@run MONSTER22 in FIGHT.REF
+; =========================================
+@#MONSTER5
+@run MONSTER15 in FIGHT.REF
+; =========================================
+@#MONSTER6
+@do money + `p20
+@do saybar
+`2You find a GREEN POTION!
+; =========================================
+@#MONSTER7
+@fight
+;name
+Rat
+;string said when you see him
+A tiny brown thing shoots between your legs!
+;power move kill string
+Beter than a rattrap.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites your toes|2
+prickles you|1
+rolls over your feet|2
+NONE|NONE
+NONE|NONE
+;defense
+7
+;gold reward
+10
+;experience
+33
+;hit points
+90
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+;====================================================
+@#MONSTER8
+@fight
+;name
+Bunch of Worms
+;string said when you see him
+YUCK.
+;power move kill string
+No way you're getting worms.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+touches you|3
+gets slime on you|6
+attaches to your leg|7
+NONE|NONE
+NONE|NONE
+;defense
+1
+;gold reward
+1
+;experience
+19
+;hit points
+999
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+
+; *******************HEAL*****************************
+@#HEAL
+@do `p02 is `p03
+@do `p02 + 10
+@do saybar
+`2 you RELLY feel BETTER!
+
+; *****************sign *****************************
+@#SIGN
+@do moveback
+@displayfile SYSOP.MAP
+@drawmap
+@update
+
+; *****************SYSOP*****************************
+@#SYSOP
+@do `s02 is &realname
+@if `s02 not SYSOP then do
+ @begin
+ @do moveback
+ @end
+@DO SAYBAR
+`2 ZZZZZZZZ- ZZZZZZZ - ZZZZZZ (...King Sysop is asleep)`l`k
+@do move 1 1
+@clear screen
+@dataload sysopqst.idf &playernum `p20
+@if `p20 > 99 then do
+ @begin
+ @show
+
+ `$ The SYSOP jumps awake yellin, `2"ARREST THIS S&MAN!!"
+
+`l`l`l`l`l
+ @drawmap
+ @update
+ @do write
+`l`l`l`l
+ @DO GOTO OOPS
+ @closescript
+ @end
+@show
+
+ `$ You see the SYSOP sleeping like a baby:
+
+ `2 One of the guards see you and says:
+ `2 ...QUIET! His highness the all mighty SYSOP is asleap...
+
+ `k
+
+@do `v01 is 1
+@choice
+ Humbly say your sorry...
+ Wake up the SYSOP!
+ Start making lots of noise!
+ @IF RESPONCE IS 1 THEN DO
+ @begin
+ @drawmap
+ @update
+ @do saybar
+ `2WHEW! That was close!
+ @closescript
+ @end
+
+ @IF RESPONCE IS 3 THEN DO
+ @begin
+ @do move 1 1
+ @clear screen
+ @show
+`r0 `r1 `%SYSOP `r0
+
+ `$ The SYSOP wakes up and screams:
+
+ `2 ...GET THIS $#@##$ PERSON OUT OF HERE!
+
+ `l`l`l`l`l
+
+ @drawmap
+ @update
+ @do write
+`l`l`l`l
+ @DO GOTO OOPS
+ @end
+
+@do move 1 1
+@clear screen
+@show
+`r0 `r1 `%SYSOP `r0
+
+ `$ The SYSOP wakes up.
+
+@key
+@label sysoptalk
+@do move 1 1
+@clear screen
+@show
+`r0 `r1 `%SYSOP `r0
+
+ `$How can I help you?
+
+@do `v01 is 1
+@choice
+What up Op?
+>`p07 50 Check Vault Balances
+Request a job
+Nah, nothing
+@if responce is 1 then do
+ @begin
+ @do move 1 1
+ @clear screen
+ @show
+`\Nothing much.`\
+ @key
+ @end
+@if responce is 3 then do
+ @begin
+ @do move 1 1
+ @clear screen
+ @do `p20 is 0
+ @do `p29 is &playernum
+ @routine Treasure`xChest in extitems.ref
+ @routine bitcheck in item99.ref
+ @if `p20 is 1 then do
+ @begin
+ @dataload sysopqst.idf &playernum `p20
+ @if `p20 is 3 then do
+ @begin
+ @dataload sysopgld.idf &playernum `p22
+ @if money < `p22 then do
+ @begin
+ @do `p23 is money
+ @do `p22 - `p23
+ @do money is 0
+ @datasave sysopgld.idf &playernum `p22
+ @dataload vaults.idf 1 `p23
+ @do `p23 + `p22
+ @datasave vaults.idf 1 `p23
+ @show
+`r0`c `r1 `%SYSOP `r0
+
+ `2"Where is the rest of the gold? Return it to me at once! You've got
+ till the end of the DAY!"
+
+ `2"You still owe me `$`p22 gold`2"
+
+ @key bottom
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`r0`c `r1 `%SYSOP `r0
+
+`2 "Thank-you..thank-you"`0 the SYSOP jumps for joy.
+ `k
+`$ You pass the `$`p22 gold over to the clerk.
+`k
+ `5Your BONUS:
+ `#+5 Quest Points
+ `#+3000 Experience
+ `#+4 Alignment
+
+ @do `p01 + 3000
+ @do `p18 + 5
+ @do `p07 + 4
+ @datasave sysopqst.idf &playernum 0
+ @dataload sysopgld.idf &playernum `p21
+ @do money - `p21
+ @datasave sysopgld.idf &playernum 0
+ @datasave sysopday.idf &playernum 0
+ @dataload vaults.idf 1 `p22
+ @do `p22 + `p21
+ @datasave vaults.idf 1 `p22
+ @do `p29 is &playernum
+ @routine Treasure`xChest in extitems.ref
+ @routine bitcheck in item99.ref
+ @routine takeitem in item99.ref
+ @key bottom
+ @drawmap
+ @update
+ @closescript
+ @end
+ @show
+`\ `0You already have a delivery to make.
+Are you going to give up on the job right now? `7[n/Y]
+ @do readspecial `s02 NY
+ @if `s02 is Y then do
+ @begin
+ @show
+`\ Ok no problem. Some s&boys can't take the presure. Come back and try
+another time, when you're more confident.
+ @datasave sysopdes.idf &playernum 0
+ @datasave sysopday.idf &playernum 0
+ @datasave sysopgld.idf &playernum `p21
+ @datasave sysopgld.idf &playernum 0
+ @do money - `p21
+ @dataload vaults.idf 1 `p22
+ @do `p22 + `p21
+ @datasave vaults.idf 1 `p22
+ @do `p29 is &playernum
+ @routine Treasure`xChest in extitems.ref
+ @routine bitcheck in item99.ref
+ @routine takeitem in item99.ref
+ @key bottom
+ @end
+ @do goto sysoptalk
+ @end
+ @show
+`\ If you've been good to society, I can offer you some Royal Guard duties,
+that only a few can successfully handle.
+
+Have you been loyal?
+
+ @do `v01 is 1
+ @choice
+>`p07 20 Yes, I'm your s&man
+No, i don't think so
+@
+ @if responce is 1 then do
+ @begin
+ @show
+`\`\ `$Ok, good, I see that you should be able to handle this.`k
+ @do `p20 is 2
+ @label findjob
+ @dataload movegold.idf `p20 `p21
+ @if `p21 is 0 then do
+ @begin
+ @do `p20 + 1
+ @if `p20 < 199 then goto findjob
+ @end
+ @if `p21 < 1 then do
+ @begin
+ @show
+`\ `$But, I am very sorry, I have no jobs available right now.
+ @key
+ @do goto sysoptalk
+ @end
+ @dataload vaults.idf 1 `p28
+ @if `p28 < `p21 then do
+ @begin
+ @do `p20 is 2
+ @label findjob2
+ @dataload vaults.idf `p20 `p24
+ @if `p24 < `p21 then do
+ @begin
+ @do `p21 + 1
+ @if `p21 < 199 then goto findjob2
+ @if `p21 > 198 then do
+ @begin
+ @show
+`\`\ `0I'm very sorry, the realm is going through some bad times.
+ There is not enough gold in the banks and in any of the realm vaults
+ to go around to the people. We will need to collect more taxes and
+ start asking for donations.
+
+ Please help bring people to the tax offices and get everyone up
+ to date on their taxes. Thanks.
+ @key bottom
+ @drawmap
+ @update
+ @closescript
+ @end
+ @end
+ @routine banklist in vaults.ref
+ @show
+`\`\ `0Heres the mission, my vault here needs more gold. I need you to
+ go to `5`s01`0 and pick up `$`p21 gold`0.
+ Deliver it back to me before tonight. If you do not deliver the package,
+ on time you will be placed on the bounty list by me personally, and I
+ will send out my own bounties out to get you everyday until you complete
+ the delivery or pay the realm back the amount you were delivering.
+
+ Just show this chest with my special seal to the bank clerk and they
+ will pass you the required amount.
+ @datasave sysopday.idf &playernum &time
+ @datasave sysopgld.idf &playernum `p21
+ @datasave sysopdes.idf &playernum `p20
+ ;<--quest type-->
+ @datasave sysopqst.idf &playernum 2
+ @do `p29 is &playernum
+ @routine Treasure`xChest in extitems.ref
+ @routine bitcheck in item99.ref
+ @routine giveitem in item99.ref
+ @key bottom
+ @drawmap
+ @update
+ @closescript
+ @end
+ @datasave movegold.idf `p20 0
+ @routine banklist in vaults.ref
+ @show
+`\`\ `0Heres the mission, you deliver this `$`p21 gold `0to the
+ `5`s01 `0before tonight. If you do not deliver the package,
+ on time, you will be placed on the bounty list by me personally,
+ and I will send out my own bounties out to get you everyday until
+ you complete the delivery or pay the realm back the amount you were
+ delivering.
+
+ Just bring this special chest with my personal seal on it to the
+ bank, they will recognize it right away.
+
+ @dataload vaults.idf 1 `p22
+ @do `p22 - `p21
+ @do money + `p21
+ @datasave vaults.idf 1 `p22
+ @datasave sysopgld.idf &playernum `p21
+ @datasave sysopday.idf &playernum &time
+ @datasave sysopdes.idf &playernum `p20
+ @datasave sysopqst.idf &playernum 1
+ @do `p29 is &playernum
+ @routine Treasure`xChest in extitems.ref
+ @routine bitcheck in item99.ref
+ @routine giveitem in item99.ref
+ @key
+ @drawmap
+ @update
+ @closescript
+ @end
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 2 then do
+ @begin
+ @run listvaults in vaults.ref
+ @end
+
+@drawmap
+@update
+@closescript
+
+
+
+; ********************** guards *****************************
+@#guards
+@do move 1 1
+@show
+`r0`c `r1 `%ROYAL GUARD `r0
+
+ `$ The ROYAL GUARD grabs you and says:
+
+ `2 ...QUIET! His highness the all mighty SYSOP is asleap...
+
+ `k
+
+@CHOICE
+ Humbly say your sorry...
+ INSULT the ROYAL GUARD!
+ Start making lots of noise!
+ @IF RESPONCE IS 1 THEN DO
+ @begin
+ @do moveback
+ @drawmap
+ @update
+ @do saybar
+ `2WHEW! That was close!
+ @closescript
+ @end
+; ----- DO BATTLE! -----------------
+@IF RESPONCE IS 2 THEN DO
+ @begin
+@do move 1 1
+@show
+`r0`c `r1 `%ROYAL GUARD `r0
+
+ `$ The ROYAL GUARD says:
+
+ `2 ...THAT wasnt very smart!
+
+ `k
+
+
+@fight
+;name
+ROYAL GUARD
+;string said when you see him
+He suddenly charges you.
+;power move kill string
+`$"MESS with me will you!!" `2you shout.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+charges you|10
+beats you|50
+practice with his sword on you|15
+attempt to trample you|20
+NONE|NONE
+;defense
+20
+;gold reward
+14
+;experience
+10
+;hit points
+200
+;if win: ref file|name or NONE
+SYSOP.REF|OOPS
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+SYSOP.REF|OOPS
+
+@drawmap
+@update
+ @closescript
+ @end
+
+@DO goto oops
+@closescript
+
+; *****otherwise go to jail!*****
+@#OOPS
+@do move 1 1
+@show
+ `r0`c `r1 `%ROYAL GUARD `r0
+
+ `$ The other ROYAL GUARD grabs you again and this time hauls you
+ off to the jail... You didnt even have a chance to fight!
+
+ `k
+
+ `$...VERY WELL, you can stay n here till you prove you will
+ behave yourself! I want you to write "I WILL BEHAVE MYSELF"
+ 10 times before I let you out!
+
+ `2 (This is as bad as being sent to your room!)
+
+ `2A few minutes later he leaves....Your experience increases
+ by 10 but you dont feel so good (1/2 hit points).
+
+
+ `k
+
+ @do `p01 + 10
+ @do `p02 / 2
+ @do x is 16
+ @do y is 5
+; ^^^ <--------warp past guard over return warp
+; @do map is 863
+; @loadmap 863
+; ^^^ <-------- move to another map?
+ @drawmap
+ @update
+ @do saybar
+`% THAT was a mistake....you stomp arround and scream!
+ @closescript
+
+; ********************** guard *****************************
+@#guard
+@do move 1 1
+@show
+`r0`c `r1 `%ROYAL GUARD `r0
+
+ `$ The ROYAL GUARD grabs you and says:
+
+ `2 NOW ARE YOU GOING TO BEHAVE YOURSELF?
+
+ `k
+
+@CHOICE
+ Humbly say "yes Sir"
+ INSULT the ROYAL GUARD!
+ Start making lots of noise!
+ @IF RESPONCE IS 1 THEN DO
+ @begin
+ @drawmap
+ @update
+ @do saybar
+ `2WHEW! That was close!
+ @closescript
+ @end
+
+
+; -----otherwise get smacked--------
+
+@do move 1 1
+ @show
+ `r0`c `r1 `%ROYAL GUARD `r0
+
+ `$0 The ROYAL GUARD grabs you again and RUFFS you up and
+ hits you for -10 hitpoints)
+
+
+
+
+
+ `k
+
+
+ @do `p02 - 10
+ @if `p02 less 1 then do
+ @begin
+
+ @do enemy is ROYAL GUARD
+ @run DIE in GAMETXT.REF
+ @closescript
+ @end
+
+ @do moveback
+ @drawmap
+ @update
+ @do saybar
+`% OUCH! That HURT!
+ @closescript
+
+; **************************JAIL1*******************************
+@#JAIL1
+@do `p50 is 10
+@do `s09 is length 20
+@do `s09 is I`xWILL`xBEHAVE`xMYSELF
+@do move 1 1
+@show
+`c`r0
+
+`2 You sit down at the desk and fiddle arround with a pen and
+paper.
+
+`0 The Guard comes over and says:
+ NOW... write " `s09 " `p50 times!
+
+
+`k
+@label START
+@CHOICE
+ Get up and do something else
+ Start Writing!
+@if response is 1 then do
+ @begin
+ @do moveback
+ @drawmap
+ @update
+ @do saybar
+ You get up from the desk
+ @closescript
+ @end
+@do readstring 20 NIL `s10
+@do strip `s10
+@do upcase `s10
+
+;-----------WRONG!------------
+@if `s10 not `s09 then do
+ @begin
+@do move 1 1
+ @show
+ `c`r0
+
+ `0 You entered that line wrong!
+ Try AGAIN!
+
+ `0 If you quit now you will just have start all over again
+
+
+ `k
+ @do goto start
+ @end
+
+;----------wright--------------
+ @do `p50 - 1
+
+@if `p50 more 0 then do
+ @begin
+@do move 1 1
+ @show
+ `c`r0
+
+ `0 Thats GOOD `N!
+ You have `p50 more to go!
+
+ `0 If you quit now you will just have to start all over again
+
+
+ `k
+ @do goto start
+ @end
+
+; --------done-------------------
+
+@do move 1 1
+@show
+ `c`r0
+
+ `0 Well its about time you finished!
+
+ `2 The guard lets you outside and resumes his post...
+
+
+ `k
+@do x is 19
+@do y is 5
+@drawmap
+@update
+@do saybar
+ FREE AT LAST!..... well maby...
+@closescript
+
+; ********************** window *****************************
+@#WINDOW
+@do move 1 1
+@show
+`r0`c `r1 `%WINDOW `r0
+
+ `$ You climb up on a barrel and look out at freedom:
+
+ `2 These bars look a bit weak. If you bang your head against
+ them they MIGHT break before your head does. (10% chance)
+
+ `2 You notice the barrel is kinda tippy, It must be something
+ its sitting on.
+
+
+
+ `k
+
+@CHOICE
+ NEVERMIND - continue searching the room
+ Bang your head against the bars for -10 hitpoints
+ LOOK under the barrel
+
+@IF RESPONCE IS 1 THEN DO
+ @begin
+ @do moveback
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+; -----use your head--------
+@IF RESPONCE is 2 then do
+ @begin
+ @do `p02 - 10
+ @if `p02 less 1 then do
+ @begin
+ @do enemy is JAIL BARS
+ @run DIE in GAMETXT.REF
+ @closescript
+ @end
+
+ @do `p20 random 9 1
+ @if `p20 is 1 then do
+ @begin
+ @show
+
+ `$0 YOU fall through the bars !
+
+
+
+
+
+ `k
+ @do saybar
+ FREE! at last!
+ @do x is 5
+ @do y is 5
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+@do saybar
+ OUCH! that HURT ME more than the window!
+@do moveback
+@drawmap
+@update
+@closescript
+@end
+
+; --------------------------------
+@do move 1 1
+@show
+ `c
+
+ `$ You see a hole in the floor under the barrel
+
+
+ AND
+
+ `k
+
+ FALL
+
+ `k
+
+ THROUGH
+
+ `k
+
+ THE DAMM HOLE!
+
+
+ `k
+ @do x is 7
+ @do y is 5
+ @do map is 1198
+ @loadmap 1198
+ @drawmap
+ @update
+ @do saybar
+`% OUCH! That HURT!
+ @closescript
+
+@#taxes
+@do moveback
+@do move 1 1
+@show
+`c `r1 Tax Collector `r0
+
+ Weclome, how my I help you s&sir?
+
+@do move 14 9
+@do write
+`r2`$ڳ\�����������������������/��`r0
+@do move 14 10
+@do write
+`r2`$�`r0 `r2`$�`r0
+@do move 14 11
+@do write
+`r2`$�`r0 `r2`$�`r0
+@do move 14 12
+@do write
+`r2`$�`r0 `r2`$�`r0
+@do move 14 13
+@do write
+`r2`$�`r0 `r2`$�`r0
+@do move 14 14
+@do write
+`r2`$�`r0 `r2`$�`r0
+@do move 14 15
+@do write
+`r2`$��/�����������������������\��`r0
+@do move 15 10
+@do `v01 is 1
+@choice
+`$How much do I owe in taxes?`$
+`$Claim or check bounty list `$
+`$ How do taxes work? `$
+`$ Pay taxes `$
+`$ Leave `$
+@if responce is 1 then goto taxowe
+@if responce is 2 then goto bounty
+@if responce is 3 then goto howtax
+@if responce is 4 then goto paytax
+@drawmap
+@update
+@closescript
+
+@#taxowe
+@routine getplace in myhome.ref
+@dataload taxes.idf &playernum `p20
+@do move 1 1
+@show
+`c `r1 Tax Collector `r0
+
+ `$Tax Collector: `%What is your name, s&sir?`l`l`l`l`l
+
+ `$`N: `%`N!`l`l`l`l
+
+ `$Tax Collector: `%One moment `N, as I find your files.`l`l
+
+ `%<`l.`l.`l.`l>`l
+
+@if `p20 > 0 then do
+ @begin
+ @show
+ `$Tax Collector: `%Here we go, s&sir, `N of `s01.
+ `%According to your record, you owe a tribute to the realm of
+ `$`p20 `%gold coins.
+
+ `%Please make your tribute before the middle of the year,
+ `%or you will be charged interest each day being late.
+ @end
+@if `p20 < 1 then do
+ @begin
+ @show
+ `$Tax Collector: `%Here we go, s&sir, `N of `s01.
+ `%According to this, you do not owe any tribute
+ `%to our fine realm. Thanks for stopping by.
+ @end
+@show
+`x
+`x
+@key
+@do goto taxes
+
+@#bounty
+@do `p30 is 1
+@routine bountylist in bounty.ref
+@do goto taxes
+
+@#howtax
+@do move 1 1
+@show
+`c`r0
+`$
+- Taxes are payable at SysOp Castle, or out on the road via another
+ tax collector.
+
+- The current tax rate is `%`v15%`$.
+
+- Taxes are calculated once every year, at the beginning of each new year.
+
+- If taxes are not paid by the middle of the year. There is an interest
+ rate of `%`v16%`$ per day. If taxes are over `%`v17`$ gold and the date is after
+ half the year, a bounty will be put out on that person.
+
+- EVERYONE MUST pay their taxes.
+
+- If you are unable to afford your taxes, you will be sent to the GreenTree
+ Prison to work on grinding stones.
+
+- All taxes collected are stored in about 200 various secured vaults
+ through-out the realm.
+
+@key
+@do goto taxes
+
+@#paytax
+@if bitcheck `t50 3 1 then do
+ @begin
+ @dataload npc/npctaxes.idf `p71 `p20
+ @do `p70 is `p71
+ @routine getname in npcname.ref
+@do move 1 1
+ @show
+`c `r1 Tax Collector `r0
+
+ `$Tax Collector: `%What is your name, s&sir?`l`l`l`l`l
+
+ `$`s01: `%`s01!`l`l`l`l
+
+ `$Tax Collector: `%One moment `s01, as I find your files.`l`l
+
+ `%<`l.`l.`l.`l>`l
+
+ `$Tax Collector: `%Okay, you must pay tribute of `$`p20 `%gold
+ to our fine realm.
+
+ @dataload npc/npcgold.idf `p71 `p22
+ @if `p22 < `p20 then do
+ @begin
+ @show
+ `$`s01: `%Hold on a second sir.`l`l
+
+ `%<`s01 turns to you>
+
+ `$`s01: `%`N, do you have `$`p20 `%gold I could borrow to pay my debts
+ to the mighty king Sysop?
+
+ @if money < `p20 then do
+ @begin
+ @show
+ `$`N: `%I am soo sorry, I can not afford your dues either, you'll have
+ to come by here again sometime soon.`l`l
+
+ `$`s01: `%Okay, sir, tax collector guy, I'll be back another day to pay
+ my dues, please be patient on me. Thank-you.`l`l
+
+ `%<`s01 turns to the tax collector>
+
+ `$Tax Collector: `%`s01, as long as you don't let it get too high. BYE.`l
+
+ @key
+ @do goto taxes
+ @end
+ @show
+ `%<Y/n>
+
+ @do readspecial `s05 YN
+ @if `s05 is Y then do
+ @begin
+ @show
+ `$`N: `%Yah sure, I'll cover for you this time.
+ `%Here take my `$`p20 `%gold.`l`l
+
+ `$`s01: `%Thank you so much s&sir, I am forever in your debts.
+
+ `%<`s01 turns to the tax collector>
+
+ `$`s01: `%Sir, I have the gold for my devine sire and realm.
+ `% Will you accept?
+
+ `$Tax Collector: `%Of course, thank-you, the realm will not forget
+ `%you generous deeds today.
+
+ `%<`s01 turns back to YOU>
+
+ `$`s02: `%Please take me home and I'll give you some stuff. I promise.
+
+ @datasave npc/npctaxes.idf `p71 0
+ @do money - `p20
+ @dataload vault.idf 1 `p23
+ @do `p23 + `p20
+ @datasave vault.idf 1 `p23
+ @bitset `t50 3 0
+ @bitset `t50 4 1
+ @bitset `t50 7 1
+ @key
+ @do goto taxes
+ @end
+ @if `s05 is N then do
+ @begin
+ @show
+ `$`s01: `%I am sorry sir tax collector, I will have to return with
+ `%more money, as I am not carrying enough gold with me.
+
+ `$Tax Collector: `%Okay sure no problem, come back when you do.
+
+ @bitset `t50 7 1
+ @key
+ @do goto taxes
+ @end
+ @key
+ @do goto taxes
+ @end
+
+ @show
+ `$`s01: `%Okay sir, here I've got the `$`p20 `%gold.
+
+ `%<`s01 hands over the `$`p20 `%gold to the tax collector>
+ @do `22 - `p20
+ @datasave npc/npcgold.idf `p71 `p22
+ @dataload vaults.idf 1 `p21
+ @do `p21 + `p20
+ @datasave vaults.idf 1 `p21
+ @datasave taxes.idf &playernum `p21
+ @if bounty.`p71 exist TRUE then do
+ @begin
+ @readfile bounty.`p71
+`p20
+`p21
+`p22
+ @if `p20 is 201 then do
+ @begin
+ @do delete bounty.`p71
+ @end
+ @end
+ @key
+ @do goto taxes
+ @end
+
+@do `p24 is &playernum
+@dataload taxes.idf `p24 `p20
+@do move 1 1
+@show
+`c `r1 Tax Collector `r0
+
+ `$Tax Collector: `%What is your name, s&sir?`l`l`l`l`l
+
+ `$`N: `%`N!`l`l`l`l
+
+ `$Tax Collector: `%One moment `N, as I find your files.`l`l
+
+ `%<`l.`l.`l.`l>`l
+
+ `$Tax Collector: `%Okay, you must pay tribute of `$`p20 `%gold
+ to our fine realm.
+
+@if money < `p20 then do
+ @begin
+ @show
+ `$`N: `%Sorry, I will have to return with more money, as I am not
+ carrying enough gold.
+ @key
+ @do goto taxes
+ @end
+@show
+ `$`N: `%Okay sir, here I've got the `$`p20 `%gold.
+
+ `%<you hand over `$`p20 `%gold>
+@do money - `p20
+@bitset `t19 7 0
+@dataload vaults.idf 1 `p21
+@do `p21 + `p20
+@datasave vaults.idf 1 `p21
+@datasave taxes.idf `p24 0
+@if bounty.&playernum exist TRUE then do
+ @begin
+ @readfile bounty.&playernum
+`p20
+`p21
+`p22
+ @if `p20 is 201 then do
+ @begin
+ @do delete bounty.&playernum
+ @end
+ @end
+@key
+@do goto taxes
+
+#@NOMORE
+
diff --git a/xtrn/lord2/cnw/talk.ref b/xtrn/lord2/cnw/talk.ref
new file mode 100644
index 0000000000000000000000000000000000000000..39759240980442544a59ab8c7f344c3b564be0b4
--- /dev/null
+++ b/xtrn/lord2/cnw/talk.ref
@@ -0,0 +1,848 @@
+; Script file TALK.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:14 2001
+
+@DECLARE talk 000003745
+@DECLARE talk2 000011108
+@DECLARE gossip 000017155
+@DECLARE findrapest 000020985
+@DECLARE notalk 000024392
+@DECLARE flirt 000024441
+@DECLARE give 000024532
+@DECLARE givegold 000025133
+@DECLARE givegems 000026132
+@DECLARE giveitem 000027113
+@DECLARE fight 000027207
+@DECLARE vd 000027419
+@DECLARE leave 000027653
+@DECLARE leave2 000027723
+@DECLARE leave3 000027863
+@DECLARE leave4 000028159
+@DECLARE leave5 000028292
+@DECLARE nomore 000028355
+@NOCHECK
+; End of .REF index
+
+;
+; NPC Talking v0.8.0
+;
+; This is a very complicated and extensive IGM for the NPCs.
+;
+; Below are ALL the IDF files used for the IGM data.
+;
+;npc-###.idf -NPC relations with players, var#=player num, value=charmed
+; -NPC goals in life-
+; The lower the #, the easier to get
+;npc\npcreqc1.idf -charm requirements on npc for 1st date
+;npc\npcreqc2.idf -for grab ass
+;npc\npcreqc3.idf -for 1st kiss
+;npc\npcreqc4.idf -for official boyfriend/girlfriend (going steady)
+;npc\npcreqc5.idf -for a lay
+;npc\npcreqc6.idf -for engagement
+;npc\npcreqc7.idf -for marriage
+;npc\npcreqc8.idf -for planned kids
+;npc\npclays.idf -lays of the NPCs
+;npc\laynp###.idf -lay history of NPC with which players
+;npc\laypl###.idf -lay history of players with which players
+;npc\laypn###.idf -lay history of players with which npcs
+;npc\npcvd.idf -VD Y/N info on all NPCs, or other diseases. 1=VD
+;npc\npcgreed.idf -greedy? how much 0-255, 0=not at all 255=very greedy
+; (more greedy=likes more money and gifts, less=wants an occasional flower)
+;npc\npctouch.idf -keep in touch requriments 0-255, 255=nothing 0=every day 1=1 day pass
+; (visit npc\npc, send flowers, send letter, send cash, send gift)
+;npc\npcdy###.idf &playernum -last day player kept in touch with NPC (### = npc#)
+;npc\npcage.idf -age of npc\npc
+;npc\npcslut.idf -pay to sleep with me number (slut value) (this one is really mean) hehe
+; (0=not a slut, 255=total cheap slut) eg255 wants 10g for a lay.
+;npc\npcloyal.idf -npc\npc loyalty level towards lovers. 0=not loyal, 255=very loyal
+;npc\npclbs.idf -weight of npc\npc (+100)
+;npc\npchange.idf -how easy to change personality, most are 0-5. 255=total wacko
+;npc\npcgendr.idf -0=female+straight 1=male+straight 2=female+les
+ 3=male+gay 4=female+bi 5=male+bi
+;npc\npcstat.idf -0=available, 1=dating many ppl, 2=serious dating, 4=engaged,
+; 3=pregnantnotmarried, 6=married 7=pregnantmarried, 10=dead
+;npc\npcstat2.idf npc# &playernum - associated with.
+;npc\npcagep.idf -age difference preference, eg, NPC=5, it'll only accept
+; flirts from 5 years older or 5 years younger.
+;npc\npctimes.idf -times you can flirt with NPC/day
+;npc\npcfl###.idf -current flirts today
+;npc\npchere.idf -Is the npc here or with which player (0=here) (#=playernum)
+;npc\npcdead.idf -which day the npc will return to life. (0=alive) (#=&time)
+;npc\npctaxes.idf -npc's taxes
+;npc\npcgems.idf -the amount of gems they have
+;npc\npclost.idf npc# map# -if the npc is lost someplace.. this can be done
+; randomly or when a player looses the npc.
+;npc\npclost2.idf npc# playernum -which player lost this npc.. cuz player
+; can not find npc right away.
+;
+;npc\npcjob.idf npc# ### - are they for hire? 0 = yes, 1 = has misc job, 2 = whore 3 = guard, 4 =
+;
+;
+;<-- Example to make a CNW NPC active. -->
+;@do `p70 is NPC#
+;@do moveback
+;@routine talk in talk.ref
+;@if `p20 is 0 then do
+;@begin
+; <-- original npc actions here -->
+;@end
+
+
+@#talk
+; check the game style first.
+@if `v30 > 8 then goto notalk
+@busy
+;@routine getname in npcname.ref ; <--- I need this to work!?!?! :(
+; -Then I could get rid of this section below!!! :)
+@if `p70 is 0 then `s01 is Nobody
+@if `p70 is 1 then `s01 is Violet
+@if `p70 is 2 then `s01 is Seth`xAble
+;East StoneBrook
+@if `p70 is 3 then `s01 is Wryn
+@if `p70 is 4 then `s01 is Kess
+@if `p70 is 5 then `s01 is Sherra
+@if `p70 is 6 then `s01 is Hattie
+@if `p70 is 7 then `s01 is Ninna
+@if `p70 is 8 then `s01 is Georgie
+@if `p70 is 9 then `s01 is Nicki
+@if `p70 is 10 then `s01 is Gei
+@if `p70 is 11 then `s01 is Sally
+@if `p70 is 12 then `s01 is Yowli
+@if `p70 is 13 then `s01 is Chip
+@if `p70 is 14 then `s01 is Mrs`xJenkins
+;GreenTree
+@if `p70 is 15 then `s01 is Laura
+@if `p70 is 16 then `s01 is Sheep`xMan
+@if `p70 is 17 then `s01 is Elle
+@if `p70 is 18 then `s01 is Ma
+@if `p70 is 19 then `s01 is Estella
+@if `p70 is 20 then `s01 is Lango
+;porttown
+@if `p70 is 21 then `s01 is Guy
+;Voodoo Temple
+@if `p70 is 22 then `s01 is Mickey
+@if `p70 is 23 then `s01 is Aerith
+@if `p70 is 24 then `s01 is Invisible`xMan
+@if `p70 is 25 then `s01 is Rudy
+@if `p70 is 26 then `s01 is Julia
+@if `p70 is 27 then `s01 is Kita
+@if `p70 is 28 then `s01 is Elay
+;Gypsy Camp
+@if `p70 is 29 then `s01 is Lilliana
+@if `p70 is 30 then `s01 is Chandler
+@if `p70 is 31 then `s01 is Lela
+@if `p70 is 32 then `s01 is Mirella
+@if `p70 is 33 then `s01 is Sherif
+@if `p70 is 34 then `s01 is Viollica
+@if `p70 is 35 then `s01 is Gimi
+;South of FlagCity
+@if `p70 is 36 then `s01 is Spence
+@if `p70 is 37 then `s01 is Lost`xMan
+@if `p70 is 38 then `s01 is Chance
+@if `p70 is 39 then `s01 is Johnny
+@if `p70 is 40 then `s01 is Old`xWarrior
+;Sosin Village
+@if `p70 is 41 then `s01 is Matt`xLongsword
+@if `p70 is 42 then `s01 is Wiscard
+@if `p70 is 43 then `s01 is Basil
+@if `p70 is 44 then `s01 is Somebody
+@if `p70 is 45 then `s01 is Somebody
+@if `p70 is 46 then `s01 is Somebody
+@if `p70 is 47 then `s01 is Somebody
+;PawnShop
+@if `p70 is 48 then `s01 is Somebody
+@if `p70 is 49 then `s01 is Nick
+;Far North
+@if `p70 is 50 then `s01 is Prince`xCorin
+@if `p70 is 51 then `s01 is Somebody
+@if `p70 is 52 then `s01 is Somebody
+@if `p70 is 53 then `s01 is Somebody
+@if `p70 is 54 then `s01 is Somebody
+@if `p70 is 55 then `s01 is Somebody
+@if `p70 is 56 then `s01 is Somebody
+@if `p70 is 57 then `s01 is Somebody
+@if `p70 is 58 then `s01 is Somebody
+@if `p70 is 59 then `s01 is Somebody
+; Loki Inn
+@if `p70 is 60 then `s01 is Loki`xGuard
+@if `p70 is 61 then `s01 is oDiN
+@if `p70 is 62 then `s01 is Hilda
+@if `p70 is 63 then `s01 is Somebody
+@if `p70 is 64 then `s01 is Somebody
+@if `p70 is 65 then `s01 is Somebody
+@if `p70 is 66 then `s01 is Somebody
+@if `p70 is 67 then `s01 is Somebody
+@if `p70 is 68 then `s01 is Somebody
+@if `p70 is 69 then `s01 is Somebody
+@if `p70 is 70 then `s01 is Somebody
+@if `p70 is 71 then `s01 is Somebody
+@if `p70 is 72 then `s01 is Somebody
+@if `p70 is 73 then `s01 is Somebody
+@if `p70 is 74 then `s01 is Somebody
+@if `p70 is 75 then `s01 is Gorilla`xGirl
+; GreenTree (again)
+@if `p70 is 76 then `s01 is Minister
+@if `p70 is 77 then `s01 is Somebody
+@if `p70 is 78 then `s01 is Somebody
+@if `p70 is 79 then `s01 is Somebody
+;Scorpian's Den
+@if `p70 is 80 then `s01 is Old`xMan`xScorp
+@if `p70 is 81 then `s01 is Famous`xDrunk
+@if `p70 is 82 then `s01 is Scorpian`xLady
+@if `p70 is 83 then `s01 is Drunk`xLady
+@if `p70 is 84 then `s01 is Scorpian`xMaid
+@if `p70 is 85 then `s01 is Somebody
+@if `p70 is 86 then `s01 is Somebody
+@if `p70 is 87 then `s01 is Somebody
+@if `p70 is 88 then `s01 is Somebody
+@if `p70 is 89 then `s01 is Somebody
+;desert figaro's castle
+@if `p70 is 90 then `s01 is Chancellor
+@if `p70 is 91 then `s01 is Edgar
+@if `p70 is 92 then `s01 is Edgars`xGuard
+@if `p70 is 93 then `s01 is Edgars`xGuard
+@if `p70 is 94 then `s01 is Forga
+@if `p70 is 95 then `s01 is Fatiguel
+@if `p70 is 96 then `s01 is Somebody
+@if `p70 is 97 then `s01 is Somebody
+@if `p70 is 98 then `s01 is Somebody
+;Sandcity
+@if `p70 is 99 then `s01 is Maverick
+;KnotWood
+@if `p70 is 100 then `s01 is Andrew
+@if `p70 is 101 then `s01 is Mr.`xAndrew
+@if `p70 is 102 then `s01 is Mrs.`xAndrew
+;Wizards Castle (near StoneBrook)
+@if `p70 is 103 then `s01 is Violetta
+@if `p70 is 104 then `s01 is Sand`xTiger
+@if `p70 is 105 then `s01 is Direct
+;path from stonebrook to greentree and around greentree
+@if `p70 is 106 then `s01 is Begger
+@if `p70 is 107 then `s01 is Sherie
+@if `p70 is 108 then `s01 is Grizelda
+@if `p70 is 109 then `s01 is Edward
+;Sword Castle
+@if `p70 is 110 then `s01 is Thug
+@if `p70 is 111 then `s01 is Mann
+@if `p70 is 112 then `s01 is Mordin
+@if `p70 is 113 then `s01 is Aqua
+@if `p70 is 114 then `s01 is Somebody
+@if `p70 is 115 then `s01 is Somebody
+;BoneTown
+@if `p70 is 116 then `s01 is Dad
+@if `p70 is 117 then `s01 is Rich`xWoman
+@if `p70 is 118 then `s01 is Jesse
+@if `p70 is 119 then `s01 is Boy
+@if `p70 is 120 then `s01 is John
+@if `p70 is 121 then `s01 is Big`xMa
+@if `p70 is 122 then `s01 is Kelley ;a whore
+@if `p70 is 123 then `s01 is Selena
+@if `p70 is 124 then `s01 is Drunk`xMan
+@if `p70 is 125 then `s01 is Bouncer
+@if `p70 is 126 then `s01 is D.J.
+@if `p70 is 127 then `s01 is Somebody
+@if `p70 is 128 then `s01 is Somebody
+@if `p70 is 129 then `s01 is Somebody
+;PortTown - Odin's Keep area
+@if `p70 is 130 then `s01 is Grey`xMan
+@if `p70 is 131 then `s01 is Jennie
+@if `p70 is 132 then `s01 is Rosie
+@if `p70 is 133 then `s01 is Somebody
+;Resort + Glendale near StoneBrook
+@if `p70 is 134 then `s01 is Happy`xPappy
+@if `p70 is 135 then `s01 is Dan
+@if `p70 is 136 then `s01 is Don
+@if `p70 is 137 then `s01 is Lone
+@if `p70 is 138 then `s01 is Dance
+@if `p70 is 139 then `s01 is Somebody
+@if `p70 is 140 then `s01 is Somebody
+@if `p70 is 141 then `s01 is Somebody
+@if `p70 is 142 then `s01 is Somebody
+@if `p70 is 143 then `s01 is Somebody
+@if `p70 is 144 then `s01 is Somebody
+@if `p70 > 144 then `s01 is Somebody
+;--All the Whores!--
+; Female
+@if `p70 is 170 then `s01 is Kelli
+@if `p70 is 171 then `s01 is Karen
+@if `p70 is 172 then `s01 is Mundin
+@if `p70 is 173 then `s01 is Mulan
+@if `p70 is 174 then `s01 is Pocahontas
+@if `p70 is 175 then `s01 is Samira
+@if `p70 is 176 then `s01 is Linda
+@if `p70 is 177 then `s01 is White
+@if `p70 is 178 then `s01 is Red
+@if `p70 is 179 then `s01 is Jasmine
+@if `p70 is 180 then `s01 is Marilyn
+@if `p70 is 181 then `s01 is Yewanda
+@if `p70 is 182 then `s01 is Karlita
+@if `p70 is 183 then `s01 is Kelly
+@if `p70 is 184 then `s01 is Sheila
+@if `p70 is 185 then `s01 is Bibianna
+@if `p70 is 186 then `s01 is Yuko
+@if `p70 is 187 then `s01 is Lisa
+@if `p70 is 188 then `s01 is Kina
+@if `p70 is 189 then `s01 is Kiko
+@if `p70 is 190 then `s01 is Kimbery
+@if `p70 is 191 then `s01 is Cindy
+@if `p70 is 192 then `s01 is Yurri
+@if `p70 is 193 then `s01 is Tina
+@if `p70 is 194 then `s01 is Tanya
+@if `p70 is 195 then `s01 is Saby
+@if `p70 is 196 then `s01 is Asada
+;@if `p70 is 197 then `s01 is Nobody
+@if `p70 is 198 then `s01 is Fast`xFreddy
+@if `p70 is 199 then `s01 is SysOp
+;;now 125
+@datasave npc\npcdy`p70.idf &playernum &time
+
+@label talk2
+@dataload npc/npchere.idf `p70 `p21
+@if `p21 > 0 then do
+ @begin
+ @if `p21 is &playernum then do
+ @begin
+ @if bitcheck `t50 7 1 then do
+ @begin
+ @do saybar
+`$`s01: `%Thank you for bringing me back home safely.`k
+ @datasave npc/npchere.idf `p70 0
+ @if bitcheck `t50 1 1 then do
+ @begin
+ @do saybar
+`%You get `@1 `%QUEST point.`k
+ @do `p18 + 1
+ @bitset `t50 1 0
+ @end
+ @if bitcheck `t50 4 1 then do
+ @begin
+ @do `p21 is 0
+ @do saybar
+`$`s01: `%As promised, I might have gifts for you...let me look`l`l`k
+ @dataload npc/npcgold.idf `p70 `p23
+ @dataload npc/npcgems.idf `p70 `p24
+ @dataload npc/npcgreed.idf `p70 `p25
+ @if `p23 > 0 then do
+ @begin
+ @do `p26 random `p25 1
+ @do `p27 random 5 1
+ @if `p26 > 50 then `p23 / `p27
+ @do `p21 + 1
+ @do saybar
+`$`s01: `%here take `$`p23 `%gold...`l`l`k
+ @do money + `p23
+ @dataload npc/npcgold.idf `p70 `p27
+ @do `p27 - `p23
+ @datasave npc/npcgold.idf `p70 `p27
+ @bitset `t50 4 0
+ @end
+ @if `p24 > 0 then do
+ @begin
+ @do `p26 random `p25 1
+ @do `p27 random 5 1
+ @if `p26 > 50 then `p24 / `p27
+ @do `p21 + 1
+ @do saybar
+`$`s01: `%here take `@`p24 `%gems...`l`l`k
+ @do `p19 + `p24
+ @dataload npc/npcgems.idf `p70 `p27
+ @do `p27 - `p24
+ @datasave npc/npcgems.idf `p70 `p27
+ @bitset `t50 4 0
+ @end
+ @if `p21 > 0 then do
+ @begin
+ @do `p01 + 200
+ @do `p18 + 1
+ @do quebar
+You also earned 200 experience points and another quest point.`k
+ @end
+ @if `p21 is 0 then do
+ @begin
+ @do saybar
+`$`s01: `%Sorry, I have nothing to give you right now...`l`l`k
+ @do saybar
+`$`s01: `%I will not forget about you, just come back another time...`l`l`k
+ @end
+ @end
+ @dataload npc/npc-`p70.idf &playernum `p22
+ @do `p22 + 6
+ @datasave npc/npc-`p70.idf &playernum `p22
+ @do `p70 is 0
+ @do `p71 is 0
+ @bitset `t50 7 0
+ @do goto leave
+ @end
+ @end
+ @if `p71 is `p70 then do
+ @begin
+ @do saybar
+`$`s01: `%Thanks for bringing me home safely.`k
+ @do `p71 is 0
+ @datasave npc/npchere.idf `p70 0
+ @do goto leave
+ @end
+ @do saybar
+`$`s01 is NOT here at the moment.
+ @do goto leave
+ @end
+@if `p71 is `p70 then do
+ @begin
+ @do saybar
+`$`s01: `%Thanks for bringing me home safely.`k
+ @datasave npc/npchere.idf `p70 0
+ @do `p71 is 0
+ @do goto leave
+ @end
+
+
+@dataload npc/npcdead.idf `p70 `p22
+@if `p22 > 0 then do
+ @begin
+ @if `p22 < &time then do
+ @begin
+ @datasave npc/npcdead.idf `p70 0
+ @do goto talk
+ @end
+ @if `p22 is &time then do
+ @begin
+ @datasave npc/npcdead.idf `p70 0
+ @do goto talk
+ @end
+ @do saybar
+`$`s01 is currently being healed and will return soon.
+ @closescript
+ @end
+
+@do move 63 2
+@do write
+`r4`$����������������Ŀ
+@do move 64 2
+@do write
+`r4`%`s01
+@do move 63 3
+@do write
+`r4`$�`r0 `r4�
+@do move 63 4
+@do write
+`r4`$�`r0 `r4�
+@do move 63 5
+@do write
+`r4`$�`r0 `r4�
+@do move 63 6
+@do write
+`r4`$�`r0 `r4�
+@do move 63 7
+@do write
+`r4`$�`r0 `r4�
+@do move 63 8
+@do write
+`r4`$������������������
+@do move 65 3
+@DO `V01 IS 1
+@choice
+`!Gossip
+<`v30 5 `!Flirt
+<`v30 9 `!Fight
+<`v30 7 `!Give
+`!Leave
+@if response is 1 then goto Gossip
+@if response is 2 then goto Flirt
+@if response is 3 then goto Fight
+@if response is 4 then goto Give
+@if response is 5 then goto Leave
+@closescript
+
+;bug with loading more than 2 REFs, will not go back with @routine.
+;@#Gossip
+;@routine Gossip in npcgosip.ref
+;@do goto leave
+
+@#Gossip
+@dataload npc/npcvd.idf `p70 `p21
+@if `p21 > 0 then do
+ @begin
+;Don't ALWAYS have to tell the player this. ;-) let them get VD, mohahaha!
+ @if `p71 > 0 then do ;can't take 2 npcs so forget telling.
+ @begin
+ @do goto notalk
+ @end
+ @Do `p21 random 5 1
+ @if `p21 is 1 then do
+ @begin
+ @do saybar
+`$`s01: `%I have `@VD`% `!:`@( `k
+ @do saybar
+`$`s01: `%Can you please bring me to a healer that can help me? [Y/n]
+ @DO READSPECIAL `s03 YN
+ @if `s03 is Y then do
+ @begin
+ @do saybar
+`$`s01: `%Thank-you very much, take me there now please.`k
+ @datasave npc/npchere.idf `p70 &playernum
+ @bitset `t50 2 1
+ @do `p71 is `p70
+ @end
+ @do `p20 is 1
+ @drawmap
+ @do moveback
+ @update
+ @closescript
+ @end
+ @end
+;
+; Elle's Quest to find rapest.
+;
+@if bitcheck `t11 5 1 then do
+ @begin
+ @if `p70 is 39 then goto notalk
+ @if `p70 is 17 then goto notalk
+ @if `p70 is 18 then goto notalk
+ @if `p70 is 19 then goto notalk
+ @if `p70 is 15 then goto notalk
+ @if `p70 is 109 then goto notalk
+ @do `p21 random 3 1
+ @if `p21 is 1 then goto notalk
+ @if `p21 is 2 then goto notalk
+ @dataload npc/ellequst.idf &playernum `p21
+ @if `p21 > 3 then do
+ @begin
+ @do saybar
+`0`N `2: `%Do know anything on what happened with Elle?`l`k
+ @do `p22 random 10 1
+ @if `p22 is 1 then do
+ @begin
+ @if `p21 > 4 then do
+ @begin
+ @do `p21 - 4 <--which npc knows?
+ @if `p70 is `p21 then do <--talking to who knows what happened!
+ @begin
+ @do `s02 is `s01
+ @do `p70 is `t82 <--who did it!
+ @routine getname in npcname.ref
+ @do saybar
+`0`s02 `2: `%Yah, I know what happened.`l`k
+ @do saybar
+`0`s02 `2: `%I over heard `s01 bragging about it at the Red Dragon Inn to his friend.`l`k
+ @do saybar
+`0`N `2: `%What did `s01 exactly say he did?`l`k
+ @do saybar
+`0`s02 `2: `%He said he grabbed her just outside the gates and fucked her silly.`l`k
+ @do saybar
+`0`N `2: `%Thanks for the info `s02.`l`k
+ @do quebar
+`8< `%Perfect, this is the evidence you needed! `8>
+ @bitset `t11 6 1
+ @datasave npc/ellequst.idf &playernum
+ @do `p20 is 1
+ @closescript
+ @end
+ @do `p22 random 10 1
+ @if `p22 is 1 then do
+ @begin
+ @do `s02 is `s01
+ @do `p21 is `p70
+ @routine getname in npcname.ref
+ @do saybar
+`0`s02 `2: `%I heard `s01 say something about it.`l`k
+ @do `p20 is 1
+ @closescript
+ @end
+ @end
+ @if `p21 is 4 then do
+ @begin
+ @label findrapest
+ @do `p22 random 200 1
+ @if `p22 is `p70 then goto findrapest <--Can't be the one your talking to!
+ @if `p22 is 39 then goto findrapest <--Johnny doesn't know!
+ @if `p22 is 18 then goto findrapest <--can't be Ma!
+ @if `p22 is 17 then goto findrapest <--can't be Elle!
+ @if `p22 is 19 then goto findrapest <--can't be Estella!
+ @if `p22 is 109 then goto findrapest <--can't be Edward!
+ @if `p22 is 15 then goto findrapest <--can't be Laura either!
+ @do `s02 is `s01
+ @do `p70 is `p22
+ @routine getname in npcname.ref
+ @if `s01 is Somebody then goto findrapest <--can't be nobody!
+ @do `p22 + 4
+ @datasave npc/ellequst.idf &playernum `p22
+ @do saybar
+`0`s02 `2: `%I heard `s01 say something about it, ask `$`s01.`l`k
+ @do `p20 is 1
+ @closescript
+ @end
+ @end
+ @if `p22 is 2 then saybar
+`0`s01 `2: `%Sorry, all I know is she lives in GreenTree.`l`k
+ @if `p22 is 3 then saybar
+`0`s01 `2: `%She's Ma's daughter, right?`l`k
+ @if `p22 is 4 then saybar
+`0`s01 `2: `%Sorry, I don't know who you are talking about.`l`k
+ @if `p22 is 5 then saybar
+`0`s01 `2: `%Who? what happened?`l`k
+ @if `p22 is 6 then saybar
+`0`s01 `2: `%Humm, sorry, I don't think I could help you.`l`k
+ @if `p22 is 7 then saybar
+`0`s01 `2: `%What did she do?`l`k
+ @if `p22 is 8 then saybar
+`0`s01 `2: `%What happened to her?`l`k
+ @if `p22 is 9 then saybar
+`0`s01 `2: `%Humm, sorry, I don't think I could help you.`l`k
+ @if `p22 is 10 then saybar
+`0`s01 `2: `%Humm, sorry, I don't think I could help you.`l`k
+ @do `p20 is 1
+ @update
+ @closescript
+ @end
+ @end
+
+@dataload npc/npctaxes.idf `p70 `p21
+@if `p21 > 0 then do
+ @begin
+ @if `p71 > 0 then do ;can't take 2 npcs so forget telling.
+ @begin
+ @do goto notalk
+ @end
+ @dataload npc/npc-`p71.idf &playernum `p27
+ @if `p27 < 2 then do ;will not talk with strangers.
+ @begin
+ @do goto notalk
+ @end
+ @Do `p21 random 4 1
+ @if `p21 is 1 then do
+ @begin
+ @do saybar
+`$`s01: `%I haven't paid my taxes yet, i need help getting there.`!:`@( `k
+ @do saybar
+`$`s01: `%Would you please bring me to the place to pay taxes? [Y/n]
+ @DO READSPECIAL `s03 YN
+ @if `s03 is Y then do
+ @begin
+ @do saybar
+`$`s01: `%Thank-you very much, take me there now please.`k
+ @datasave npc/npchere.idf `p70 &playernum
+ @bitset `t50 3 1
+ @do `p71 is `p70
+ @end
+ @do `p20 is 1
+ @drawmap
+ @do moveback
+ @update
+ @closescript
+ @end
+ @end
+
+@label notalk
+@do `p20 is 0
+@update
+@closescript
+
+@#Flirt
+@do `t72 is 0
+@do `t71 is `p70
+@routine flirt in npcflrt2.ref
+@do goto leave
+
+@#Give
+@do `p20 is 1
+@do moveback
+@update
+
+@do move 63 3
+@do write
+`r4`$�`r0 `r4�
+@do move 63 4
+@do write
+`r4`$�`r0 `r4�
+@do move 63 5
+@do write
+`r4`$�`r0 `r4�
+@do move 63 6
+@do write
+`r4`$�`r0 `r4�
+@do move 63 7
+@do write
+`r4`$�`r0 `r4�
+@do move 65 3
+@DO `V01 IS 1
+@choice
+`$ Gold `%
+`@ Gems `%
+`% Items `%
+`! Nothing `%
+@if response is 1 then goto GIVEGOLD
+@if response is 2 then goto GIVEGEMS
+@if response is 3 then goto GIVEITEM
+@if response is 4 then goto Leave
+@closescript
+
+@#GIVEGOLD
+@do move 63 3
+@do write
+`r4`$�`r0 `r4�
+@do move 63 4
+@do write
+`r4`$�`r0 `r4�
+@do move 63 5
+@do write
+`r4`$�`r0 `r4�
+@do move 63 6
+@do write
+`r4`$�`r0 `r4�
+@do move 63 7
+@do write
+`r4`$�`r0 `r4�
+@do move 65 3
+@do write
+`$How much?
+@do move 65 5
+@do readnum 10
+@if `v40 < 1 then do
+ @begin
+ @do saybar
+`4You decide to not give anything.
+ @closescript
+ @end
+@if `v40 > money then do
+ @begin
+ @do saybar
+`4You don't have that much
+ @closescript
+ @end
+@do saybar
+`$You give `s01 `v40 gold.
+@do quebar
+`$`s01: `%Thanks!
+@do money - `v40
+@do `p22 is `v40
+@do `p22 / 100
+@if `p22 > 5 then `p22 is 5
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 + `p22
+@datasave npc/npc-`p70.idf &playernum `p29
+@dataload npc/npcgold.idf &playernum `p29
+@do `p29 + `v40
+@datasave npc/npcgold.idf &playernum `p29
+@closescript
+
+@#GIVEGEMS
+@do move 63 3
+@do write
+`r4`$�`r0 `r4�
+@do move 63 4
+@do write
+`r4`$�`r0 `r4�
+@do move 63 5
+@do write
+`r4`$�`r0 `r4�
+@do move 63 6
+@do write
+`r4`$�`r0 `r4�
+@do move 63 7
+@do write
+`r4`$�`r0 `r4�
+@do move 65 3
+@do write
+`$How much?
+@do move 65 5
+@do readnum 10
+@if `v40 < 1 then do
+ @begin
+ @do saybar
+`4You decide to not give anything.
+ @closescript
+ @end
+@if `v40 > `p19 then do
+ @begin
+ @do saybar
+`4You don't have that many
+ @closescript
+ @end
+@do saybar
+`$You give `s01 `v40 gems.
+@do quebar
+`$`s01: `%Thanks!
+@do `p19 - `v40
+@do `p22 is `v40
+@if `p22 > 5 then `p22 is 5
+@dataload npc/npc-`p70.idf &playernum `p29
+@do `p29 + `p22
+@datasave npc/npc-`p70.idf &playernum `p29
+@dataload npc/npcgold.idf &playernum `p29
+@do `p29 + `v40
+@datasave npc/npcgold.idf &playernum `p29
+@closescript
+
+@#GIVEITEM
+@do saybar
+`$`s01: `%I do not want anything yet. Thanks anyways.
+@closescript
+
+
+@#fight
+@do saybar
+`@Are you sure you want to fight `s01? `7[y/N]:
+@do readspecial `s02 NY
+@if `s02 is Y then do
+ @begin
+ @routine startfight in npcfight.ref
+ @end
+@do goto leave
+
+
+@#VD
+@dataload npc\npcvd.idf `p71 `p24
+@if `p24 is 1 then do
+ @begin
+ @do `p12 is 1
+ @end
+@if `p12 is 1 then do
+ @begin
+ @datasave npc\npcvd.idf `p71 1
+ @end
+@closescript
+
+@label leave
+@do `p20 is 1
+;@do moveback
+@update
+@closescript
+
+@label leave2
+@do `p20 is 1
+;@drawmap
+@do saybar
+`$Your CONSCIENCE: `%Don't over due it buddy.
+;@do moveback
+@update
+@closescript
+
+@label leave3
+@do `p20 is 1
+@dataload npc/npc-`p70.idf &playernum `p21
+@do `p22 random 10 1
+@do `p21 - `p22
+@datasave npc/npc-`p70.idf &playernum `p21
+;@drawmap
+@do saybar
+`$`s01: `%HAHAHA!`k
+@do saybar
+`$`s01: `%YOU DON'T HAVE ENOUGH, GET OUT!
+;@do moveback
+@update
+@closescript
+
+@label leave4
+@do `p20 is 1
+;@drawmap
+@do saybar
+`$`N: `%No thanks, maybe another time.
+;@do moveback
+@update
+@closescript
+
+@label leave5
+@do `p20 is 1
+;@do moveback
+@update
+@closescript
+@#NOMORE
+
diff --git a/xtrn/lord2/cnw/talquiz.ref b/xtrn/lord2/cnw/talquiz.ref
new file mode 100644
index 0000000000000000000000000000000000000000..c0d0191bfcb00e8d92dcbf31c419548f6b790256
--- /dev/null
+++ b/xtrn/lord2/cnw/talquiz.ref
@@ -0,0 +1,353 @@
+; Script file TALQUIZ.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:34 2001
+
+@DECLARE sign 000000802
+@DECLARE greeter 000000895
+@DECLARE id1 000000975
+@DECLARE id2 000001042
+@DECLARE id3 000001097
+@DECLARE ben 000001205
+@DECLARE benhost 000001297
+@DECLARE bguest1 000001549
+@DECLARE bguest2 000001633
+@DECLARE drawguy 000001741
+@DECLARE startgame 000003231
+@DECLARE sitfem 000005715
+@DECLARE sitwrong 000005818
+@DECLARE situhoh 000006810
+@DECLARE sithost 000006926
+@DECLARE guest1 000007167
+@DECLARE guest2 000007269
+@DECLARE guest3 000007378
+@DECLARE guest4 000007744
+@DECLARE sidekick 000007995
+@DECLARE mainguest 000008098
+@DECLARE bubhost 000008853
+@DECLARE band1 000008957
+@DECLARE bumba 000009038
+@DECLARE nomore 000009528
+@NOCHECK
+; End of .REF index
+
+@#SIGN
+@DO MOVEBACK
+@DO SAYBAR
+`7Sign: `%The future is HERE! Scry programming here!
+
+@#GREETER
+@DO MOVEBACK
+@DO SAYBAR
+`7Hi! The shows are broadcast to the right.
+
+@#ID1
+@DO SAYBAR
+`7Overhead notice: O'Bubba show filmed below
+
+@#ID2
+@DO SAYBAR
+`7Overhead notice: Win His Money
+
+@#ID3
+@DO SAYBAR
+`7Overhead notice: SIT ON IT! filmed below
+
+;--- WIN HIS MONEY section---------------
+@#BEN
+@DO MOVEBACK
+@DO SAYBAR
+`7Ben: `%I don't dance. But I will defend my money!
+
+@#BENHOST
+@DO MOVEBACK
+@DO SAYBAR
+`7Host: `%Ben, you've sworn that you don't know any of the answers?
+@KEY
+@DO sayBAR
+`7Ben: `%Yes, I have no idea what's going on.
+@key
+@DO sayBAR
+`7Host: `%Good, then we're ready! Contestant, take your seat.
+@#BGUEST1
+@DO MOVEBACK
+@DO SAYBAR
+`$Audience member: `7I heard he doesn't sing.
+@#BGUEST2
+@DO MOVEBACK
+@DO SAYBAR
+`$Audience member: `7Well, I heard that he doesn't do magic tricks.
+
+@#DRAWGUY
+@show
+`c
+
+
+[23C[0;1;33m�
+[16C[0;33m���[1;37m� [33m����� [37m� [33m������[37m� �[33m���� [37m� [33m���� [37m�[33m���� [0;33m���
+[15C���� [1m� � � �[6C� �� � �� � �� [0;33m�۲�
+[15C۲��[1;37m�[33m�� � [37m� � �[33m���� [37m� [33m� [37m�[33m�[37m�[33m�[37m�[33m�[37m� [33m� � � [37m�[33m�[37m�[33m� [0;33m�۲�
+[15C�۲� [1m����[8C�� � �� � � �� � � � � [0;33m�۲�
+[15C����[1;37m�[33m�[37m� [33m� [37m�[33m�[37m� � � � [33m� ��� [37m�[33m�[37m�[33m���[37m� [33m� ��[37m� �[33m� [0;33m����
+[15C���� [1m������ ����� ������ ������ ������ [0;33m۲��
+[8C[1m�����[10C�
+[7C����[31;44m��[27C[30;40m�����[6C�� �
+[8C[33m�[31m���� [0m���[20C�[43m�����[40m� [1;30m�����۰�
+[8C[0;34m������ [37m�[1;30;47m1[0m�[21C[43m � [4C[1;30;40m��������۱
+[8C[0;34m������� [44m [1;31m��[22C[43m [6C[30;40m���������
+[8C[0;34m�[1;31m�[0;31m�����[44m���[40m��[19C������� [1;30m�[0;34m�������� [1;30m�
+[8C[0;34m�[31m� �[37;44mBob [31;40m� �[19C� [36mB [31m� [34m� [36mG [34m� [1;30m�
+[9C[0;31m� ������� �[19C� [36mE [31m� [34m� [36mU [34m�[1;30m�
+[9C[0;31m� ���� �[19C� [36mN [31m� [34m� [36mE [34m� [1;30m��
+[9C[0;31m� ��� �[19C�[5C� [34m� [36mS [34m�
+[9C[31m�[5C��� �[19C�[5C� [34m� [36mT [34m�[1;30m� �
+[9C[0;31m�����������[19C� ��� � [34m� ��� � [1;30m�
+@#STARTGAME
+@DO MOVEBACK
+@DATANEWDAY TALQUIZ.IDF
+@DATALOAD TALQUIZ.IDF &playernum `p97
+@IF `p97 is 1 then do
+ @begin
+ @do saybar
+`3Bob: `!Sorry, you can only play once a day.
+@closescript
+ @end
+@do `p97 is 1
+@DATASAVE TALQUIZ.IDF &playernum `p97
+@DO SAYBAR
+`3Bob: `!Remember all your answer must be in UPPER CASE... thanks Seth! =(
+@KEY
+@ROUTINE DRAWGUY
+@DO `p27 RANDOM 8 1
+@IF `p27 is 1 then do
+ @begin
+ @DO `S01 is SOSEN VILLAGE
+ @DO `S02 is Where is Basil?
+ @DO `S03 is Flagcity
+ @end
+@IF `p27 is 2 then do
+ @begin
+ @DO `S01 is BARAK'S DIARY
+ @DO `S02 is What exonerates Turgon?
+ @do `s02 is [xxxxx'S xxxxx]
+ @do `s03 is Fiend'S guile
+ @end
+@IF `p27 is 3 then do
+ @begin
+ @do `s01 is KOSHI
+ @do `s02 is Your father was
+ @do `s02 ADD a what [xxxxx]?
+ @do `s03 is thief
+ @end
+@if `p27 is 4 then do
+ @begin
+ @do `s01 is SMACKROD
+ @do `s02 is What do the
+ @do `s02 ADD Dragon.Tooth want? [xxxxxxxx]
+ @do `s03 is problems
+ @end
+@if `p27 is 5 then do
+ @begin
+ @do `s01 is SPIKED SHIRT
+ @do `s02 is What is an
+ @do `s02 ADD Weapon AND armour?
+ @do `s02 ADD [xxxxxx xxxxx]
+ @do `s03 is DONKEY REARS
+ @end
+@if `p27 is 6 then do
+ @begin
+ @do `s01 is WILD BERRIES
+ @do `s02 is What does Mom
+ @do `s02 ADD first want? [xxxx
+ @do `s02 ADD xxxxxxx]
+ @do `s03 is DUMB BUNNIES
+ @end
+@if `p27 is 7 then do
+ @begin
+ @do `s01 is SETH ABLE
+ @do `s02 is Who is the
+ @do `s02 ADD moron behind Lord?
+ @do `s02 ADD [xxxx xxxx]
+ @do `s03 is Dave Duma
+ @end
+@if `p27 is 8 then do
+ @begin
+ @do `s01 is JEWEL
+ @do `s02 is The best singer
+ @do `s02 ADD is? [xxxxx]
+ @do `s03 is Not me!
+ @end
+@DO MOVE 1 1
+@SHOW
+`3Bob: `!`s02
+`3Ben: `!`s03
+`3Bob: Sorry, Ben, but that's wrong. `N?
+@DO READSTRING 15 DUH.. `s04
+@if `s04 is `s01 then do
+ @begin
+@DO `p97 is 50
+@DO `p97 * `p09
+@DO `p97 * `p09
+ @show
+`\`3Bob: `!CORRECT!!! You win `$`p97`!!!!
+@do addlog
+`$ -$$- `2`N `2won `p97`2 today in Win His Money! `$ -$$-
+@DO money + `p97
+@key
+ @drawmap
+ @update
+ @closescript
+ @end
+@show
+`\`3Bob: `!Wrong!
+@key
+@drawmap
+@update
+
+;--- SIT ON IT section-------------------
+@#SITFEM
+@DO MOVEBACK
+@DO SAYBAR
+`#Contestant: `6I don't know about you, sugah, but this is fun.
+@#SITWRONG
+@DO MOVEBACK
+@DO `p20 RANDOM 9 1
+@IF `p20 is 1 then do
+ @begin
+ @DO SAYBAR
+`@Con`4fused Con`5testant: `7I know, its a barbie doll!
+ @end
+@IF `p20 is 2 then do
+ @begin
+ @DO SAYBAR
+`@Con`4fused Con`5testant: `7Ooh, its... the Washington Monument!
+ @end
+@IF `p20 is 3 then do
+ @begin
+ @DO SAYBAR
+`@Con`4fused Con`5testant: `7Ben, Ben is that you?!
+ @end
+@IF `p20 is 4 then do
+ @begin
+ @DO SAYBAR
+`@Con`4fused Con`5testant: `7Whatever it is, its two sizes too big!
+ @end
+@IF `p20 is 5 then do
+ @begin
+ @DO SAYBAR
+`@Con`4fused Con`5testant: `7I've got it this time -- its the Venus de Milo!
+ @end
+@IF `p20 is 7 then do
+ @begin
+ @DO SAYBAR
+`@Con`4fused Con`5testant: `7Blood.. is that blood I feel?!
+ @end
+@IF `p20 is 8 then do
+ @begin
+ @DO SAYBAR
+`@Con`4fused Con`5testant: `7Hey, I thought you said no sheep!
+ @end
+@IF `p20 is 9 then do
+ @begin
+ @DO SAYBAR
+`@Con`4fused Con`5testant: `7I... just don't know. Lemme ram it up my nostrils.
+ @end
+@#SITUHOH
+@DO MOVEBACK
+@DO SAYBAR
+`8Frowning Contestant: `7>sniff sniff< Hmm... Hhhmmm... where's the bathroom?
+@#SITHOST
+@DO MOVEBACK
+@DO SAYBAR
+`%Grinning Jim: `7Hey, look, its our contestant for our next episode!
+@key
+@DO sayBAR
+`7You figure to sneak away before he starts forcing you to sit on stuff
+;--- OBUBBA section----------------------
+@#GUEST1
+@DO MOVEBACK
+@DO SAYBAR
+`$Yogi: `7I wonder if Conan O'Bubba has any pic-i-nic baskets...
+@#GUEST2
+@DO MOVEBACK
+@DO SAYBAR
+`@F`4iend: `7Yeah, well, sometimes he's really amusing. And he's Irish.
+@#GUEST3
+@DO MOVEBACK
+@DO SAYBAR
+`#B`5eth`7: Hey, you represent the U.S.A., `@F`4iend`3, so act normal!
+@key
+@DO sayBAR
+`@F`4iend`7: We're in LA. In California. In the USA. To whom do I represent?
+@key
+@DO sayBAR
+`#B`5eth`7: Everything is a joke to you, huh?
+@key
+@DO sayBAR
+`@F`4iend`7: Just what we had. That and your clothing. Fashionably green, eh?
+@#GUEST4
+@DO MOVEBACK
+@DO SAYBAR
+`#Em`7: It will be a cold day where Judas rots before those two stop.
+@key
+@DO saybar
+`@F`4iend`7: Yeah, but we all know its her fault -- and I don't normally say that.
+
+;------OBUBBA KEY PLAYERS-----------
+@#SIDEKICK
+@DO MOVEBACK
+@DO SAYBAR
+`$Andy: `%Well, howdy. Nice to meet our new guest, `8George C.
+@#MAINGUEST
+@DO MOVEBACK
+@DO SAYBAR
+`8George C.: `%Hey, nice to hear you got your movie re-released, what was it?
+@key
+@DO sayBAR
+`!Conan: `7Uh, it turns out that is the wrong scroll. I HATE Dirty Duncing.
+@key
+@DO sayBAR
+`$Andy: `%Liz, could we see the text?
+@key
+@DO sayBAR
+`8George C.: `%Actually, I've gotta teleport soon, so...
+@key
+@DO sayBAR
+`!Conan: `7It was Flashdunce I wanted re-released.. the one with the town...
+@key
+@DO sayBAR
+`$Andy: `%Uh, I bust you on that one, too. Flashdunce doesn't have a town.
+@key
+@DO sayBAR
+`!Conan: `3>frustrated sigh<
+@key
+@DO sayBAR
+`$Andy: `%Yeah, I know. I was kinda confused, but its YOUR show, so...
+@key
+@DO sayBAR
+`8George C.: `%So, anyway, my Seven Dirty Words routine goes...
+@#BUBHOST
+@DO MOVEBACK
+@DO SAYBAR
+`!Conan: `3And now, a word from our sponsors. `L`LWe have sponsors?
+@#BAND1
+@DO MOVEBACK
+@DO SAYBAR
+rap tap tap tap rap ratatatatarap rap rap...
+@#BUMBA
+@DO MOVEBACK
+@DO SAYBAR
+`6Bamba: `@You threatened to fire me if they didn't re-release that scroll.
+@key
+@DO sayBAR
+`!Conan: `3Yeah, well, lucky they did!
+@key
+@DO sayBAR
+`6Bamba: `@I was going to kill you.
+@key
+@DO sayBAR
+`!Conan: `3That's nice, but I was just kidd...
+@key
+@DO sayBAR
+`6Bamba: `@No, really. I went and bought a crossbow. I was goin' ta kill you.
+@key
+@DO sayBAR
+`!`L`LConan: `3Well, `L>adjusts tie<so, `8George`3, tell us about your routine...
+@#NOMORE
diff --git a/xtrn/lord2/cnw/taxes.chk b/xtrn/lord2/cnw/taxes.chk
new file mode 100644
index 0000000000000000000000000000000000000000..3bf2ba9388a65410f02e924534a18cfecbe42ec4
Binary files /dev/null and b/xtrn/lord2/cnw/taxes.chk differ
diff --git a/xtrn/lord2/cnw/taxes.idf b/xtrn/lord2/cnw/taxes.idf
new file mode 100644
index 0000000000000000000000000000000000000000..68865850f85f68a3b41e3a27f5e8a297df890ef9
Binary files /dev/null and b/xtrn/lord2/cnw/taxes.idf differ
diff --git a/xtrn/lord2/cnw/taxes.ref b/xtrn/lord2/cnw/taxes.ref
new file mode 100644
index 0000000000000000000000000000000000000000..5c14bc5b804da59f673f35acdb54de77a0518eca
--- /dev/null
+++ b/xtrn/lord2/cnw/taxes.ref
@@ -0,0 +1,568 @@
+; Updated by CNW to handle the java telnet app
+;
+; Taxes. v1.3
+;
+; created by: Joel Gathercole
+; Last Modified on Mar 6, 2000
+; An official CNW IGM,
+; currently will only work in CNW.
+;
+; All payable at SysOp Castle and some banks
+;
+; - Some guidelines for the taxes-
+;taxes are calculated yearly.. and must be paid before the next round of
+; taxes is calculated.
+; If taxes are not paid by the middle of the year. There is an interest
+; rate of `v16 per day. If taxes are over $10,000 and after half the year,
+; a bounty will be put out on that person.
+;
+; Both players and NPCs MUST pay their taxes.
+;
+; On occasion in the daily random events of the npcs. they will try to
+; pay their taxes automaticly.. but everyone may not get a chance to, or
+; may not be able to afford it.
+;
+; All taxes collected are stored in secured vaults through-out the realm.
+; Guarded and unguarderd.
+;
+; Players can get quest points by bringing NPCs to the SysOp Castle so
+; the NPC can pay their taxes. If NPC does not have enough cash, they
+; will ask the player for help. If player helps.. special other bonuses.
+; if the npc taxes are not able to be paid, there is no bonus and the
+; npc still owes. No de-credit to player. It was the NPC's responsibility.
+;
+;
+; Vault #200 is the GIVE-A-WAY flag, if is more than 0 then the realm
+; will give away money to 1 lucky player or npc the next day.
+;
+@#playertaxes
+;1st check if player is old enuf to pay taxes!
+@do `p22 is `v18
+@if `p39 < `p22 then do
+ @begin
+ @datasave taxyear.idf &playernum `v12
+ @closescript
+ @end
+
+@do `p20 is 0
+@do `p29 is 0
+@do `p28 is 2000000000
+@do `p28 / `v15
+@datanewday taxes.chk
+@dataload taxes.chk 1 `p20
+@dataload taxyear.idf &playernum `p29
+@if `p29 < 0 then `p29 is 0 ; just in case it went to a neg. it happened before.
+
+@if `p29 < `v12 then do
+ @begin
+ @do `p29 + 1
+ @datasave taxyear.idf &playernum `p29
+ @do addlog
+`%Royals of the King SysOp has calculated `N taxes for last year.
+ @do `p23 is `p09
+ @do `p23 * 100
+ @do `p24 is &money
+ @do `p25 is &bank
+ @do `p24 + `p25
+ @if `p24 > `p28 then `p24 is `p28
+ @do `p24 * `v15
+ @do `p24 / 100
+ @do `p23 + `p24
+ @datasave taxes.idf &playernum `p23
+ @run FINDPROP in TAXES2.REF
+ @label doneprops
+ @dataload taxes.idf &playernum `p23
+ @dataload taxyear.idf &playernum `p29
+ @writefile mail\mail&playernum.dat
+ `0Tax Office:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `%You're taxes for year `p29 is `$`p23 `%gold. Please
+ pay at the amount at the Sysop castle or at a bank before the
+ middle of the year.
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`k
+ @dataload taxes.idf &playernum `p26
+ @if `p23 > 1000000000 then `p23 is 1000000000
+ @if `p26 > 1000000000 then `p26 is 1000000000
+ @do `p23 + `p26
+ @if `p23 > 2000000000 then `p23 is 2000000000
+ @end
+@closescript
+
+@#npctaxes
+@do `p20 is 0
+@do `p29 is 0
+@do `p28 is 2000000000
+@do `p28 / `v15
+
+@dataload npc/taxyear.idf 1 `p29
+
+@if `p29 < 0 then `p29 is 0 ; just in case it went to a neg. it happened before.
+
+@if `p29 < `v12 then do
+ @begin
+ @do `p29 + 1
+ @datasave npc/taxyear.idf 1 `p29
+ @do `p29 is 0
+ @label npctaxloop
+ @do `p29 + 1
+
+ ;1st check if NPC is old enuf to pay taxes!
+ @dataload npc/npcage.idf `p29 `p20
+ @if `p20 < `v18 then do
+ @begin
+ @do goto npctaxloop
+ @end
+
+ @dataload npc/npcgold.idf `p29 `p24
+ @if `p24 > `p28 then do
+ @begin
+ @do `p24 is `p28
+ @end
+ @do `p24 * `v15
+ @do `p24 / 100
+ @dataload npc/npctaxes.idf `p29 `p23
+ @if `p23 > 1000000000 then `p23 is 1000000000
+ @if `p24 > 1000000000 then `p24 is 1000000000
+ @do `p23 + `p24
+ @datasave npc/npctaxes.idf `p29 `p23
+ @if `p29 > 199 then goto npctaxdone
+ @do goto npctaxloop
+ @end
+
+@label npctaxdone
+@if `p20 is 0 then do
+ @begin
+ @do `p22 is `v10
+ @do `p22 / 2
+ @if `p22 > `v11 then do
+ @begin
+ @show
+`\ `%Royals of the SysOp are checking if citizens paid taxes.
+ @datasave taxes.chk 1 1
+ @do `p21 is 1
+ @do goto interest
+ @end
+ @datasave taxes.chk 1 1
+ @end
+@closescript
+@end
+
+;adds interest to owed taxes if not paid.
+;if taxes over $10,000, a royal bounty is put out on player or NPC.
+@#interest
+@do `p28 is 2000000000
+@do `p28 / `v16
+@dataload taxes.idf `p21 `p20
+@dataload npc/npctaxes.idf `p21 `p23
+@if `p20 > 1 then do
+ @begin
+ @do `p22 is `p20
+ @if `p22 > `p28 then do
+ @begin
+ @do `p22 is `p28
+ @end
+ @do `p22 * `v16
+ @do `p22 / 100
+ @do `p20 + `p22
+ @end
+@if `p23 > 1 then do
+ @begin
+ @do `p22 is `p23
+ @if `p22 > `p28 then do
+ @begin
+ @do `p22 is `p28
+ @end
+ @do `p22 * `v16
+ @do `p22 / 100
+ @do `p23 + `p22
+ @end
+@datasave taxes.idf `p21 `p20
+@datasave npc/npctaxes.idf `p21 `p23
+@if `p20 > `v17 then do
+ @begin
+; Bad PLAYER ... did not pay taxes!
+ @do `s01 is getname `p21
+ @do addlog
+`$ROYAL TAX BUREAU: `%"`5`s01 did not pay their taxes,
+ @do addlog
+ `5a reward of `p20 gold is out for them, alive.`%"
+ @IF bounty.`p21 EXISTS TRUE THEN do
+ @begin
+ @readfile bounty.`p21
+`p26
+`p27
+ @if `p27 > 1000000000 then `p27 is 1000000000
+ @if `p20 > 1000000000 then `p20 is 1000000000
+ @do `p20 + `p27
+ @DO DELETE bounty.`p21
+ @end
+ @writefile bounty.`p21
+399
+`p20
+1
+ @end
+@if `p23 > `v17 then do
+ @begin
+; Bad NPC.. did not pay taxes!
+ @do `p70 is `p21
+ @routine getname in npcname.ref
+ @do addlog
+`$ROYAL TAX BUREAU: `%"`5`s01 did not pay their taxes,
+ @do addlog
+ `5a reward of `p23 gold is out for them, alive.`%"
+ @do `p21 + 200
+ @IF bounty.`p21 EXISTS TRUE THEN do
+ @begin
+ @readfile bounty.`p21
+`p26
+`p27
+ @if `p27 > 1000000000 then `p27 is 1000000000
+ @if `p23 > 1000000000 then `p23 is 1000000000
+ @do `p23 + `p27
+ @DO DELETE bounty.`p21
+ @end
+ @writefile bounty.`p21
+399
+`p23
+1
+ @end
+
+@do `p21 + 1
+@if `p21 > 200 then goto nomore
+@do goto interest
+@closescript
+@end
+
+@#npcpay
+@do `p20 random 5 1
+@if `p20 is 2 then do
+ @begin
+@do `p20 random 199 1
+@dataload npc/npctaxes.idf `p20 `p21
+@if `p21 > 0 then do
+ @begin
+ @dataload npc/npcgold.idf `p20 `p24
+ @if `p24 < `p21 then goto nomore
+ @dataload vaults.idf 1 `p26
+ @do `p26 + `p21
+ @datasave vaults.idf 1 `p26
+ @do `p24 - `p21
+ @do `p70 is `p20
+ @routine getname in npcname.ref
+ @do `p40 random 10 1
+ @if `p40 is 1 then `s02 is joyfully
+ @if `p40 is 2 then `s02 is disgustedly
+ @if `p40 is 3 then `s02 is has
+ @if `p40 is 4 then `s02 is has
+ @if `p40 is 5 then `s02 is has
+ @if `p40 is 6 then `s02 is has
+ @if `p40 is 7 then `s02 is quickly
+ @if `p40 is 8 then `s02 is quietly
+ @if `p40 is 9 then `s02 is quietly
+ @if `p40 is 10 then `s02 is quietly
+ @do addlog
+ `!`s01 `s02 paid tribute to thy realm today.
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave npc/npctaxes.idf `p20 0
+ @datasave npc/npcgold.idf `p20 `p24
+ @end
+ @end
+@closescript
+
+@#movemoney
+@if vaults.idf exists false then do
+ @begin
+ @do `p21 is 0
+
+ @label makenew
+ @do `p21 + 1
+ @if `p21 > 199 then goto donenew
+ @do `p20 random 2000 100
+ @datasave vaults.idf `p21 `p20
+ @do goto makenew
+
+ @label donenew
+ @datasave vaults.idf 1 10000
+ @datasave vaults.idf 199 20000000
+ @datasave vaults.idf 200 0
+ @end
+
+@dataload vaults.idf 1 `p20
+
+@if `p20 > 1000 then do
+ @begin
+ @do `p25 random 12 1
+ @do `p21 random `p20 1
+ @dataload vaults.idf `p25 `p26
+ @do `p26 + `p21
+ @do `p20 - `p21
+ @datasave vaults.idf 1 `p20
+ @datasave vaults.idf `p25 `p26
+ @end
+
+@if `p20 > 1000000 then do
+ @begin
+ @do `p23 is 1000000
+ @do `p21 random 199 1
+ @if `p21 is 1 then `p21 is 2
+ @dataload vaults.idf `p21 `p22
+ @do `p29 is 0
+ @label toomuch
+ @if `p22 > 5000000 then do
+ @begin
+ @do `p29 + 1
+ @if `p29 is 100 then goto giveaway
+ @do `p21 + 1
+ @if `p21 > 199 then `p21 is 3
+ @dataload vaults.idf `p21 `p22
+ @if `p22 > 5000000 then goto toomuch
+ @end
+
+ @do `p20 - `p23
+ @if `p22 > 1000000000 then `p22 is 1000000000
+ @if `p23 > 1000000000 then `p23 is 1000000000
+ @do `p22 + `p23
+ @if `p22 > 2000000000 then `p22 is 2000000000
+ @datasave vaults.idf `p21 `p22
+ @datasave vaults.idf 1 `p20
+ @end
+
+@if `p20 > 50000 then do
+ @begin
+ @do `p23 is `p20
+ @do `p21 random 199 1
+ @if `p21 is 1 then `p21 is 2
+ @dataload vaults.idf `p21 `p22
+ @do `p20 - `p23
+ @if `p22 > 1000000000 then `p22 is 1000000000
+ @if `p23 > 1000000000 then `p23 is 1000000000
+ @do `p22 + `p23
+ @if `p22 > 2000000000 then `p22 is 2000000000
+ @datasave vaults.idf `p21 `p22
+ @datasave vaults.idf 1 `p20
+ @end
+
+@do `p20 random 199 1
+@do `p21 random 199 1
+@if `p21 is `p20 then do
+ @begin
+ @do `p21 is 1
+ @do `p20 is 2
+ @end
+@dataload vaults.idf `p20 `p22
+@dataload vaults.idf `p21 `p23
+@if `p22 > 60000 then do
+ @begin
+ @do `p24 is `p22
+ @end
+@if `p22 < 60000 then do
+ @begin
+ @do `p24 random `p22 1
+ @end
+@if `p22 is 60000 then do
+ @begin
+ @do `p24 random `p22 1
+ @end
+@do `p22 - `p24
+@if `p23 > 1000000000 then `p23 is 1000000000
+@if `p24 > 1000000000 then `p24 is 1000000000
+@do `p23 + `p24
+@if `p22 > 2000000000 then `p22 is 2000000000
+@if `p23 > 2000000000 then `p23 is 2000000000
+@datasave vaults.idf `p20 `p22
+@datasave vaults.idf `p21 `p23
+@closescript
+
+@#giveaway
+@writefile lognow.txt
+`$King SysOp proclaims there is too much money in the royal treasurey.
+`$We will be hosting a lottery tommorow for
+ `2-`0=`2-`%=`2-`0=`2-
+@dataload vaults.idf 200 `p21
+@do `p21 + 1
+@datasave vaults.idf 200 `p21
+
+@#vault
+
+@#bank
+;playing paying at the bank.
+@if bitcheck `t50 3 1 then do
+ @begin
+ @dataload npc/npctaxes.idf `p71 `p20
+ @do `p70 is `p71
+ @routine getname in npcname.ref
+ @do move 1 1
+ @show
+`c `r1 Bank Tax Collector `r0
+
+ `$Banker: `%What is your name, s&sir?`l`l`l`l`l
+
+ `$`s01: `%`s01!`l`l`l`l
+
+ `$Banker: `%One moment `s01, as I find your files.`l`l
+
+ `%<`l.`l.`l.`l>`l
+
+ `$Banker: `%Okay, you must pay tribute of `$`p20 `%gold
+ to our fine realm.
+`l`l`k
+ @dataload npc/npcgold.idf `p71 `p22
+ @if `p22 < `p20 then do
+ @begin
+ @show
+ `$`s01: `%Hold on a second sir.`l`l
+`l`l`k
+ `%<`s01 turns to you>
+`l`l`k
+ `$`s01: `%`N, do you have `$`p20 `%gold I could borrow to pay my debts
+ to the mighty king Sysop?
+
+`l`l`k
+ @if money < `p20 then do
+ @begin
+ @show
+ `$`N: `%I am soo sorry, I can not afford your dues either, you'll have
+ to come by here again sometime soon.`l`l
+`l`l`k
+ `$`s01: `%Okay, sir, tax collector guy, I'll be back another day to pay
+ my dues, please be patient on me. Thank-you.`l`l
+`l`l`k
+ `%<`s01 turns to the tax collector>
+`l`l`k
+ `$Banker: `%`s01, as long as you don't let it get too high. BYE.`l
+`l`l`k
+ @key
+ @closescript
+ @end
+ @show
+ `%<Y/n>
+
+ @do readspecial `s05 YN
+ @if `s05 is Y then do
+ @begin
+ @show
+ `$`N: `%Yah sure, I'll cover for you this time.
+ `%Here take my `$`p20 `%gold.`l`l
+`l`l`k
+ `$`s01: `%Thank you so much s&sir, I am forever in your debts.
+`l`l`k
+ `%<`s01 turns to the tax collector>
+`l`l`k
+ `$`s01: `%Sir, I have the gold for my devine sire and realm.
+ `% Will you accept?
+`l`l`k
+ `$Tax Collector: `%Of course, thank-you, the realm will not forget
+ `%you generous deeds today.
+`l`l`k
+ `%<`s01 turns back to YOU>
+`l`l`k
+ `$`s02: `%Please take me home and I'll give you some stuff. I promise.
+
+ @datasave npc/npctaxes.idf `p71 0
+ @do money - `p20
+ @dataload vault.idf `p30 `p23
+ @do `p23 + `p20
+ @datasave vault.idf `p30 `p23
+ @bitset `t50 3 0
+ @bitset `t50 4 1
+ @bitset `t50 7 1
+ @key
+ @closescript
+ @end
+ @if `s05 is N then do
+ @begin
+ @show
+ `$`s01: `%I am sorry sir tax collector, I will have to return with
+ `%more money, as I am not carrying enough gold with me.
+`l`l`k
+ `$Banker: `%Okay sure no problem, come back when you do.
+ `l`l`k
+
+ @bitset `t50 7 1
+ @key
+ @closescript
+ @end
+ @key
+ @closescript
+ @end
+
+ @show
+ `$`s01: `%Okay sir, here I've got the `$`p20 `%gold.
+
+ `%<`s01 hands over the `$`p20 `%gold to the tax collector>
+ @do `22 - `p20
+ @datasave npc/npcgold.idf `p71 `p22
+ @dataload vaults.idf `p30 `p21
+ @do `p21 + `p20
+ @datasave vaults.idf `p30 `p21
+ @datasave taxes.idf &playernum `p21
+ @if bounty.`p71 exist TRUE then do
+ @begin
+ @readfile bounty.`p71
+`p20
+`p21
+`p22
+ @if `p20 is 201 then do
+ @begin
+ @do delete bounty.`p71
+ @end
+ @end
+ @key
+ @closescript
+ @end
+
+@do `p24 is &playernum
+@dataload taxes.idf `p24 `p20
+@do move 1 1
+@show
+`c `r1 Bank Tax Collector `r0
+
+ `$Banker: `%What is your name, s&sir?`l`l`l`l`l
+
+ `$`N: `%`N!`l`l`l`l
+
+ `$Banker: `%One moment `N, as I find your files.`l`l
+
+ `%<`l.`l.`l.`l>`l
+
+ `$Banker: `%Okay, you must pay tribute of `$`p20 `%gold
+ to our fine realm.`l`l`k
+
+@if money < `p20 then do
+ @begin
+ @show
+ `$`N: `%Sorry, I will have to return with more money, as I am not
+ carrying enough gold.
+ `l`l`k
+ @key
+ @closescript
+ @end
+@show
+ `$`N: `%Okay sir, here I've got the `$`p20 `%gold.
+`l`l`k
+ `%<you hand over `$`p20 `%gold>
+ `l`l`k
+
+@bitset `t19 7 0
+@do money - `p20
+@dataload vaults.idf `p30 `p21
+@do `p21 + `p20
+@datasave vaults.idf `p30 `p21
+@datasave taxes.idf `p24 0
+@if bounty.&playernum exist TRUE then do
+ @begin
+ @readfile bounty.&playernum
+`p20
+`p21
+`p22
+ @if `p20 is 201 then do
+ @begin
+ @do delete bounty.&playernum
+ @end
+ @end
+@key
+@closescript
+@#nomore
+
diff --git a/xtrn/lord2/cnw/taxes2.ref b/xtrn/lord2/cnw/taxes2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..4c10d3772ef49f2ff642800593baa20df8299e68
--- /dev/null
+++ b/xtrn/lord2/cnw/taxes2.ref
@@ -0,0 +1,963 @@
+;
+; Property TAXES routine.
+;
+; You dont want a player to own too much land with-out pay the taxes,
+; right? :)
+;
+;
+@#DOTAXES
+@do `p21 is `v15
+@do `p21 * `p22
+@do `p21 / 100
+@dataload taxyear.idf &playernum `p29
+@writefile mail\mail&playernum.dat
+ `0Tax Office:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `%You're taxes for the property `$`s08 for year `p29 is
+`$`p21 `%gold. It has been added to your final taxes owed.
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`k
+@dataload taxes.idf &playernum `p24
+@do `p24 + `p21
+@datasave taxes.idf &playernum `p24
+@#FINDPROPS
+@if qcastle.dat exist true then do
+ @begin
+ @readfile qcastle.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile qtres.dat
+`p30
+ @do `s08 is QFortress`xDeed
+ @do `p22 is 50000
+ @do `p23 is 25000
+ @routine dotaxes
+ @end
+ @end
+
+@if keep.dat exist true then do
+ @begin
+;Odins Keep
+ @readfile keep.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Odins`xKeep`xDeed
+ @do `p22 is 50000
+ @do `p23 is 25000
+ @routine dotaxes
+ @end
+ @end
+@if tlhouse4.dat exist true then do
+ @begin
+ @readfile tlhouse4.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile tltres4.dat
+`p30
+ @do `s08 is Team`xHouse`x4`xDeed
+ @routine dotaxes
+ @end
+ @end
+
+@if tlhouse5.dat exist true then do
+ @begin
+ @readfile tlhouse5.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile tltres5.dat
+`p30
+ @do `s08 is Team`xHouse`x5`xDeed
+ @do `p22 is 10000
+ @do `p23 is 5000
+ @routine dotaxes
+ @end
+ @end
+
+;Underground City
+@if pass1.dat exist true then do
+ @begin
+ @readfile pass1.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile pastre1.dat
+`p30
+ @do `s08 is Underground`xCity`x-`xHome`x#1
+ @do `p22 is 20000
+ @do `p23 is 10500
+ @routine dotaxes
+ @end
+ @end
+
+@if pass2.dat exist true then do
+ @begin
+ @readfile pass2.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile pastre2.dat
+`p30
+ @do `s08 is Underground`xCity`x-`xHome`x#2
+ @do `p22 is 20000
+ @do `p23 is 10500
+ @routine dotaxes
+ @end
+ @end
+
+@if pass3.dat exist true then do
+ @begin
+ @readfile pass3.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile pastre3.dat
+`p30
+ @do `s08 is Underground`xCity`x-`xHome`x#3
+ @do `p22 is 20000
+ @do `p23 is 10500
+ @routine dotaxes
+ @end
+ @end
+
+;jasminita's deed
+@if castle77.dat exist true then do
+ @begin
+ @readfile castle77.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Jasminita's`xDeed`x-`xDragon`xHousing
+ @do `p22 is 15000
+ @do `p23 is 7500
+ @routine dotaxes
+ @end
+ @end
+
+;Esperanto's deed
+@if castle79.dat exist true then do
+ @begin
+ @readfile castle79.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Esperanto's`xDeed`x-`xDragon`xHousing
+ @do `p22 is 25000
+ @do `p23 is 15500
+ @routine dotaxes
+ @end
+ @end
+
+@if tlhouse1.dat exist true then do
+ @begin
+ @readfile tlhouse1.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile tltres1.dat
+`p30
+ @do `s08 is Team`xHouse`x1`xDeed
+ @do `p22 is 10000
+ @do `p23 is 5000
+ @routine dotaxes
+ @end
+ @end
+
+
+@if tlhouse3.dat exist true then do
+ @begin
+ @readfile tlhouse3.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile tltres3.dat
+`p30
+ @do `s08 is Team`xHouse`x3`xDeed
+ @do `p22 is 10000
+ @do `p23 is 5000
+ @routine dotaxes
+ @end
+ @end
+
+
+;Gumtown Castle
+@if gumcast.dat exist true then do
+ @begin
+ @readfile gumcast.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile gumtres.dat
+`p30
+ @do `s08 is Gumtown`xCastle`xDeed
+ @do `p22 is 200000
+ @do `p23 is 100000
+ @routine dotaxes
+ @end
+ @end
+@if castle4.dat exist true then do
+ @begin
+ @readfile castle4.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile tres4.dat
+`p30
+ @readfile castle4a.dat
+`p26
+`p24
+ @readfile ninnw6.dat
+`s04
+`s04
+ @readfile ninn1b.dat
+`p25
+`p27
+ @do `p27 + `p24
+ @do `p22 is 25000
+ @do `p23 is 10000
+ @do `s08 is Sosen`xInn`xDeed
+ @routine dotaxes
+ @end
+ @end
+
+;IceLord
+@if castle1.dat exist true then do
+ @begin
+ @readfile castle1.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is IceLord`xKeep`xDeed
+ @readfile tres1.dat
+`p30
+ @do `p22 is 50000
+ @do `p23 is 25000
+ @routine dotaxes
+ @end
+ @end
+
+
+;other castles
+
+@if castle2.dat exist true then do
+ @begin
+ @readfile castle2.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Castle`xColdrake
+ @readfile tres2.dat
+`p30
+ @do `p22 is 20000
+ @do `p23 is 10000
+ @routine dotaxes
+ @end
+ @end
+
+@if castle3.dat exist true then do
+ @begin
+ @readfile castle3.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Wizard's`xTower`xDeed
+ @readfile tres3.dat
+`p30
+ @do `p22 is 40000
+ @do `p23 is 20000
+ @routine dotaxes
+ @end
+ @end
+
+;cottage inn
+@if cott.dat exist true then do
+ @begin
+ @readfile cott.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Cottage`xInn`xDeed
+ @readfile cotta.dat
+`p26
+`p27
+ @do `p22 is 65000
+ @do `p23 is 40000
+ @routine dotaxes
+ @end
+ @end
+
+@if tlhouse2.dat exist true then do
+ @begin
+ @readfile tlhouse2.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile tltres2.dat
+`p30
+ @do `s08 is Team`xHouse`x2`xDeed
+ @do `p22 is 10000
+ @do `p23 is 5000
+ @routine dotaxes
+ @end
+ @end
+
+
+@if NINN1.dat exist true then do
+;Ma's Boarding house
+ @begin
+ @readfile ninn1.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile ninn1a.dat
+`p26
+`p24
+ @readfile ninn1b.dat
+`p25
+`p27
+ @readfile ninnw1.DAT
+`s04
+`s04
+ @readfile ninnt1.DAT
+`p30
+ @do `p27 + `p24
+ @do `s06 is Inside`xGreenTree. East`xend.
+ @routine dotaxes
+ @end
+ @end
+
+
+@if NINN2.dat exist true then do
+;Sea Hag Hotel
+ @begin
+ @readfile ninn2.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile ninn2a.dat
+`p26
+`p24
+ @readfile ninn2b.dat
+`p25
+`p27
+ @readfile ninnw2.DAT
+`s04
+`s04
+ @readfile ninnt2.DAT
+`p30
+ @do `p22 is 65000
+ @do `p23 is 30000
+ @do `p27 + `p24
+ @do `s08 is Sea`xHag`xHotel`xDeed
+ @routine dotaxes
+ @end
+ @end
+
+;The Woodlog Inn
+@if NINN3.dat exist true then do
+ @begin
+ @readfile ninn3.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile ninn3a.dat
+`p26
+`p24
+ @readfile ninn3b.dat
+`p25
+`p27
+ @readfile ninnw3.DAT
+`s04
+`s04
+ @readfile ninnt3.DAT
+`p30
+ @do `p22 is 65000
+ @do `p23 is 30000
+ @do `p27 + `p24
+ @do `s08 is The`xWoodlog`xInn`xDeed
+ @routine dotaxes
+ @end
+ @end
+
+;FlagCity Inn
+@if NINN4.dat exist true then do
+ @begin
+ @readfile ninn4.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile ninn4a.dat
+`p26
+`p24
+ @readfile ninn4b.dat
+`p25
+`p27
+ @readfile ninnw4.DAT
+`s04
+`s04
+ @readfile ninnt4.DAT
+`p30
+ @do `p22 is 65000
+ @do `p23 is 30000
+ @do `p27 + `p24
+ @do `s08 is Flag`xCity`xInn`xDeed
+ @routine dotaxes
+ @end
+ @end
+
+@if room1.dat exist true then do
+ @begin
+ @readfile room1.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x101
+ @do `p22 is 15000
+ @routine dotaxes
+ @end
+ @end
+
+@if room2.dat exist true then do
+ @begin
+ @readfile room2.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x102
+ @do `p22 is 15000
+ @routine dotaxes
+ @end
+ @end
+
+@if room3.dat exist true then do
+ @begin
+ @readfile room3.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x103
+ @do `p22 is 15000
+ @routine dotaxes
+ @end
+ @end
+@if room4.dat exist true then do
+ @begin
+ @readfile room4.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `p22 is 15000
+ @do `s08 is Loki`xInn`x-`xRoom`x104
+ @do `p22 is 15000
+ @routine dotaxes
+ @end
+ @end
+
+@if room5.dat exist true then do
+ @begin
+ @readfile room5.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x105
+ @do `p22 is 15000
+ @routine dotaxes
+ @end
+ @end
+
+@if room6.dat exist true then do
+ @begin
+ @readfile room6.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x106
+ @do `p22 is 15000
+ @routine dotaxes
+ @end
+ @end
+
+@if room7.dat exist true then do
+ @begin
+ @readfile room7.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x107
+ @do `p22 is 15000
+ @routine dotaxes
+ @end
+ @end
+@if room8.dat exist true then do
+ @begin
+ @readfile room8.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x108
+ @do `p22 is 15000
+ @routine dotaxes
+ @end
+ @end
+
+@if room9.dat exist true then do
+ @begin
+ @readfile room9.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x109
+ @do `p22 is 15000
+ @routine dotaxes
+ @end
+ @end
+
+@if room10.dat exist true then do
+ @begin
+ @readfile room10.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x110
+ @do `p22 is 20000
+ @routine dotaxes
+ @end
+ @end
+
+@if room11.dat exist true then do
+ @begin
+ @readfile room11.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x111
+ @do `p22 is 20000
+ @routine dotaxes
+ @end
+ @end
+@if room12.dat exist true then do
+ @begin
+ @readfile room12.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x112
+ @do `p22 is 20000
+ @routine dotaxes
+ @end
+ @end
+
+@if room13.dat exist true then do
+ @begin
+ @readfile room13.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x113
+ @do `p22 is 20000
+ @routine dotaxes
+ @end
+ @end
+
+@if room14.dat exist true then do
+ @begin
+ @readfile room14.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x114
+ @do `p22 is 20000
+ @routine dotaxes
+ @end
+ @end
+@if room15.dat exist true then do
+ @begin
+ @readfile room15.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x115
+ @do `p22 is 20000
+ @routine dotaxes
+ @end
+ @end
+
+@if room16.dat exist true then do
+ @begin
+ @readfile room16.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x116
+ @do `p22 is 20000
+ @routine dotaxes
+ @end
+ @end
+
+@if room17.dat exist true then do
+ @begin
+ @readfile room17.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x117
+ @do `p22 is 20000
+ @routine dotaxes
+ @end
+ @end
+
+@if castle71.dat exist true then do
+ @begin
+ @readfile castle71.dat
+`p20
+`p29
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Little`xShack`x-`xDragon`xHousing
+ @do `p22 is 1
+ @routine dotaxes
+ @end
+ @end
+
+@if castle72.dat exist true then do
+ @begin
+ @readfile castle72.dat
+`p20
+`p29
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Little`xShack`x-`xDragon`xHousing
+ @do `p22 is 1
+ @routine dotaxes
+ @end
+ @end
+
+@if castle73.dat exist true then do
+ @begin
+ @readfile castle73.dat
+`p20
+`p29
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Little`xShack`x-`xDragon`xHousing
+ @do `p22 is 1
+ @routine dotaxes
+ @end
+ @end
+
+@if castle74.dat exist true then do
+ @begin
+ @readfile castle74.dat
+`p20
+`p29
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Little`xShack`x-`xDragon`xHousing
+ @do `p22 is 1
+ @routine dotaxes
+ @end
+ @end
+
+@if castle75.dat exist true then do
+ @begin
+ @readfile castle75.dat
+`p20
+`p29
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is House`x-`xDragon`xHousing
+ @do `p22 is 1
+ @routine dotaxes
+ @end
+ @end
+
+@if castle76.dat exist true then do
+ @begin
+ @readfile castle76.dat
+`p20
+`p29
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Beautiful`xHouse`x-`xDragon`xHousing
+ @do `p22 is 5
+ @routine dotaxes
+ @end
+ @end
+
+@if castle78.dat exist true then do
+ @begin
+ @readfile castle78.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Royal's`xDeed`x-`xDragon`xHousing
+ @do `s06 is Just`xeast`xof`xGreenTree.
+ @do `p22 is 20000
+ @do `p23 is 10000
+ @routine dotaxes
+ @end
+ @end
+
+@if house1.dat exist true then do
+ @begin
+ @readfile house1.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is GreenTree`xManor
+ @readfile bucket.dat
+`p30
+ @do `p22 is 5000
+ @do `p23 is 2500
+ @routine dotaxes
+ @end
+ @end
+
+@if ffhouse1.dat exist true then do
+ @begin
+ @readfile ffhouse1.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is House`x#1`x-`xFortress`xFear
+ @do `p22 is 20000
+ @do `p23 is 15000
+ @routine dotaxes
+ @end
+ @end
+@if ffhouse2.dat exist true then do
+ @begin
+ @readfile ffhouse2.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is House`x#2`x-`xFortress`xFear
+ @do `p22 is 20000
+ @do `p23 is 15000
+ @routine dotaxes
+ @end
+ @end
+
+@if ffhouse3.dat exist true then do
+ @begin
+ @readfile ffhouse3.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is House`x#3`x-`xFortress`xFear
+ @do `p22 is 20000
+ @do `p23 is 15000
+ @routine dotaxes
+ @end
+ @end
+
+@if ffhouse4.dat exist true then do
+ @begin
+ @readfile ffhouse4.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is House`x#4`x-`xFortress`xFear
+ @do `p22 is 20000
+ @do `p23 is 15000
+ @routine dotaxes
+ @end
+ @end
+@if ffhouse5.dat exist true then do
+ @begin
+ @readfile ffhouse5.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is House`x#5`x-`xFortress`xFear
+ @do `p22 is 20000
+ @do `p23 is 15000
+ @routine dotaxes
+ @end
+ @end
+
+@if jcastle.dat exist true then do
+ @begin
+ @readfile jcastle.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Torin`xCastle
+ @do `p22 is 50000
+ @do `p23 is 25000
+ @routine dotaxes
+ @end
+ @end
+@if 1stclass.dat exist true then do
+ @begin
+ @readfile 1stclass.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Extacy's`x1st`xClass`xHouse
+ @do `p22 is 7000
+ @do `p23 is 3000
+ @routine dotaxes
+ @end
+ @end
+@if myst1.dat exist true then do
+ @begin
+ @readfile myst1.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @readfile myst1a.dat
+`p26
+`p27
+ @do `s08 is Myst`xInn
+ @do `p22 is 50000
+ @do `p23 is 10000
+ @routine dotaxes
+ @end
+ @end
+@if felhouse.dat exist true then do
+ @begin
+ @readfile felhouse.dat
+`p20
+`p26
+`p27
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Felicity`xGuest`xHouse
+ @do `p22 is 7000
+ @do `p23 is 5000
+ @routine dotaxes
+ @end
+ @end
+@if blackdgn.dat exist true then do
+ @begin
+ @readfile blackdgn.dat
+`p20
+`s01
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Black`xDragon`xCastle
+ @do `p22 is 100000
+ @do `p23 is 50000
+ @readfile dragtres.dat
+`p30
+ @routine dotaxes
+ @end
+ @end
+@if ship$.dat exist true then do
+ @begin
+ @readfile ship$.dat
+`p20
+`s01
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is
+ @do `p22 is 100000
+ @do `p23 is 50000
+ @readfile shiptres.dat
+`p30
+ @do `s08 is The`xSea`xSerpent
+ @routine dotaxes
+ @end
+ @end
+@if camelot.dat exist true then do
+ @begin
+ @readfile camelot.dat
+`p20
+`s01
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is
+ @do `p22 is 60000
+ @do `p23 is 30000
+ @readfile cam.dat
+`p30
+ @do `s08 is Castle`xCamelot
+ @routine dotaxes
+ @end
+ @end
+@if hong3.dat exist true then do
+ @begin
+ @readfile hong3.dat
+`p20
+`s01
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is
+ @do `p22 is 20000
+ @do `p23 is 10000
+ @readfile hong3a.dat
+`p25
+`p27
+ @readfile tres5.dat
+`p30
+ @do `s08 is Hong`xKong`xStudio
+ @routine dotaxes
+ @end
+ @end
+@if room18.dat exist true then do
+ @begin
+ @readfile room18.dat
+`p20
+`s03
+ @if `p20 is &playernum then do
+ @begin
+ @do `s08 is Loki`xInn`x-`xRoom`x118
+ @do `p22 is 20000
+ @routine dotaxes
+ @end
+ @end
+@run doneprops in taxes.ref
+
diff --git a/xtrn/lord2/cnw/tense1.ref b/xtrn/lord2/cnw/tense1.ref
new file mode 100644
index 0000000000000000000000000000000000000000..d6eb328652855243d468674708ffa1c2e8ff3f6c
--- /dev/null
+++ b/xtrn/lord2/cnw/tense1.ref
@@ -0,0 +1,170 @@
+; Script file TENSE1.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:28 2001
+
+@DECLARE tmoonroof 000000381
+@DECLARE tmoonlab 000000650
+@DECLARE tmoonstair 000000904
+@DECLARE tmoonwater 000001180
+@DECLARE sign1 000001446
+@DECLARE sign2 000001540
+@DECLARE sign3 000001649
+@DECLARE smackrod 000001911
+@DECLARE pot 000002885
+@NOCHECK
+; End of .REF index
+
+@#TMOONROOF
+@do `p20 is 0
+@dataload TENSEMN1.DAT &playernum `p20
+@if `p20 > 0 then do
+@begin
+@do saybar
+`%The roof is beautiful here.
+@closescript
+@end
+@do saybar
+`%You find a Moonstone on the roof.
+@do `i57 + 1
+@datasave TENSEMN1.DAT &playernum 1
+@end
+
+@#TMOONLAB
+@do `p20 is 0
+@dataload TENSEMN2.DAT &playernum `p20
+@if `p20 > 0 then do
+@begin
+@do saybar
+`%There is nothing here.
+@closescript
+@end
+@do saybar
+`%You find a Moonstone!
+@do `i57 + 1
+@datasave TENSEMN2.DAT &playernum 1
+@end
+
+@#TMOONSTAIR
+@do `p20 is 0
+@dataload tensemn3.dat &playernum `p20
+@if `p20 > 0 then do
+@begin
+@do saybar
+`%There is nothing here.
+@closescript
+@end
+@do saybar
+`%You find a Moonstone underneath the stairs.
+@do `i57 + 1
+@datasave tensemn3.dat &playernum 1
+@end
+
+@#TMOONWATER
+@do `p20 is 0
+@dataload tensemn4.dat &playernum `p20
+@if `p20 > 0 then do
+@begin
+@do saybar
+`%There is nothing here.
+@closescript
+@end
+@do saybar
+`%You find a Moonstone in the waterfall.
+@do `i57 + 1
+@datasave tensemn4.dat &playernum 1
+@end
+
+@#SIGN1
+@do moveback
+@do saybar
+`%House of the Incredible Tensions `7by `8Chris Yeates
+
+@#SIGN2
+@do moveback
+@do saybar
+`!A Proud Production of The Loose Screw BBS `7(`$801`7)`$561`7-`$4780
+
+@#SIGN3
+@do moveback
+@if TENSE.TXT exist false then do
+ @begin
+@do saybar
+`!The sign is blank. Apparently no one has been through the house alive yet.
+ @closescript
+ @end
+
+@show
+`r0`c
+@displayfile TENSE.TXT
+@show
+
+`k
+@drawmap
+@update
+
+@#SMACKROD
+@if `i73 < 1 then do
+ @begin
+ @do saybar
+`!Smackrod Inspector: `$Move along...`k
+ @do x is 37
+ @do y is 19
+ @do map is 735
+ @loadmap 735
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@do `p20 is `i73
+@do `v01 is 1
+@show
+`r0`c `r1`% Smackrod Inspector `r0
+
+ `0"Hello there, sir," `2he says to you and salutes. `0"I am the smackrod
+ inspector. Apparently, you're carrying `$`p20 `0smackrod(s). If you'd please
+ deposit it here with me, you can pick it back up over there in that pot..."
+
+@DO WRITE
+`x`x
+@CHOICE
+Deposit your smackrod
+No way!
+@IF RESPONSE IS 1 THEN DO
+ @begin
+ @drawmap
+ @update
+ @datasave TENSEDP.DAT &playernum `p20
+ @do `p20 is `i73
+ @do `i73 - `p20
+ @do saybar
+`!You deposit your `p20 smackrod(s)`k
+ @do saybar
+`!Smackrod Inspector: `$Move along...`k
+ @do x is 37
+ @do y is 19
+ @do map is 735
+ @loadmap 735
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@do moveback
+@drawmap
+@update
+@end
+
+@#POT
+@do moveback
+@do `p20 is 0
+@dataload TENSEDP.DAT &playernum `p20
+@if `p20 is 0 then do
+ @begin
+ @do saybar
+`!There's nothing in here.
+ @closescript
+ @end
+
+@do `i73 + `p20
+@do saybar
+`!You retrieve your `p20 smackrod(s)
+@datasave TENSEDP.DAT &playernum 0
diff --git a/xtrn/lord2/cnw/tense2.ref b/xtrn/lord2/cnw/tense2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..1414cda5e1ac8eab59a570a37c4b1bf9c9a3e3e6
--- /dev/null
+++ b/xtrn/lord2/cnw/tense2.ref
@@ -0,0 +1,2108 @@
+; Script file TENSE2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:38 2001
+
+@DECLARE neccessite 000001594
+@DECLARE dungshow 000003986
+@DECLARE hintwoman 000004088
+@DECLARE saybar1 000004750
+@DECLARE saybar2 000004830
+@DECLARE saybar3 000004924
+@DECLARE saybar4 000005007
+@DECLARE saybar5 000005077
+@DECLARE saybar6 000005171
+@DECLARE saybar7 000005270
+@DECLARE saybar8 000005371
+@DECLARE saybar9 000005444
+@DECLARE saybar10 000005526
+@DECLARE labman 000005616
+@DECLARE key1 000007785
+@DECLARE key1check 000008475
+@DECLARE key2 000008727
+@DECLARE key2check 000009423
+@DECLARE key3 000009675
+@DECLARE key3check 000010365
+@DECLARE marty 000010618
+@DECLARE doc 000013044
+@DECLARE plateauman 000015072
+@DECLARE plateauman2 000016194
+@DECLARE bridge 000017106
+@DECLARE woman1 000017577
+@DECLARE woman1a 000019416
+@DECLARE finish1 000020217
+@DECLARE prisoner1 000021931
+@DECLARE prisoner2 000023601
+@DECLARE keydoor 000025227
+@DECLARE woman2 000025477
+@DECLARE woman2a 000027431
+@DECLARE finish2 000028213
+@DECLARE woman3 000029905
+@DECLARE woman3a 000031894
+@DECLARE finish3 000032711
+@DECLARE slaves 000034438
+@DECLARE slave1 000034505
+@DECLARE slave2 000034560
+@DECLARE slave3 000034654
+@DECLARE slave4 000034739
+@DECLARE slave5 000034833
+@DECLARE slavegive 000034934
+@DECLARE collector 000035401
+@DECLARE collector2 000036759
+@DECLARE woman4 000037926
+@DECLARE woman4a 000040243
+@DECLARE finish4 000041060
+@DECLARE neccessite2 000042912
+@DECLARE necc2 000045641
+@DECLARE tensepass 000049051
+@NOCHECK
+; End of .REF index
+
+@#NECCESSITE
+@do `p21 is 0
+@dataload TENSEFIN.DAT &playernum `p21
+@if `p21 > 0 then do
+@begin
+@do moveback
+@do saybar
+`!Neccessite: `$I know you're a hero, but I still hate you!
+@closescript
+@end
+
+@do `p20 is 0
+@dataload TENSEWMN.DAT &playernum `p20
+@if `p20 is 4 then do
+ @begin
+ @do goto NECCESSITE2
+ @closescript
+ @end
+@if `p20 is 5 then do
+ @begin
+ @do goto TENSEPASS
+ @closescript
+ @end
+
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% Neccessite, Guardian of the Thing `r0
+
+ `2Although she is quite beautiful, you refuse to trust her.
+ `2Perhaps it is the falseness of her smile, or the fingers crossed
+ behind her back, or the extremely long (but beautiful) length of
+ her nose.
+
+ `2Nonetheless, she blows you a kiss and welcomes you.
+
+ `0"Welcome to the Thing. I am Neccessite, Guardian of the Thing."
+
+@DO WRITE
+`x`x
+@CHOICE
+What is this thing?
+See ya' Babe!
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"What is this thing?"
+`k `0"This thing is ancient, and very still. It hardly moves. "
+
+`k `$"I noticed. It has a damn long tongue, too?"
+
+`k `0"That's because its throat is a passage...I mean, yes, yes it does
+ have a long tongue, doesn't it? I'd never really noticed that it did.
+ Being here for so long, I must have taken it for granted...how the tongue
+ acts as a pathway and all. I mean, you'd almost think you could walk
+ inside...not that you can! No! No, of course not! That would be silly."
+
+`k `$"You're lying. But, I feel the plot must develop throughout the
+ adventure in this house so I'll change the subject. Whose house is this?"
+
+`k `0"This is the ancient house of the Tensions. Four of which are women.
+ Very powerful women, with strange motives. They did a terrible deed
+ awhile back. And so they were scattered, and imprisoned secretly throughout
+ this house -- to insure that any terrible deeds would not happen again.
+
+`k `$"Were they hot?"
+
+`k `0"Beauty beyond belief. But evil, evil unimaginable. If, upon your
+ journeys in this house, you come upon any of the four, leave them be.
+ Do not rescue them, or store them inside you. Believe me, the forces
+ you deal with are incomprehensible.
+
+ Plus, if you don't, I'll go out with you. You're kind of cute."
+
+`k `$"Thanks!"
+`\`k
+ @do goto NECCESSITE
+ @END
+
+@drawmap
+@update
+@end
+
+@#DUNGSHOW
+@do saybar
+`%The Nicely Decorated Tension Dungeon: Most of these poor men are dead.
+
+@#HINTWOMAN
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% Helga, the Hinting Woman `r0
+
+ `2An elderly, poorly dressed woman is crouched in front of you.
+ `2She meditates well, and is very indifferent to your presence.
+
+ `2In front of her is a sign. It reads: `$"Hints for free: Only 500$"
+
+ `2You find it very confusing.
+
+@DO WRITE
+`x`x
+@CHOICE
+>&money 499 Pay the free fee! (500 gold)
+Leave the old codger
+@IF RESPONSE IS 1 THEN DO
+ @begin
+ @do money - 500
+ @drawmap
+ @update
+ @do `p25 random 10 1
+ @run saybar`p25
+ @end
+
+ @drawmap
+ @update
+ @end
+
+@#saybar1
+@do saybar
+`!Helga: `$There are 8 moonstones hidden in this house.
+@#saybar2
+@do saybar
+`!Helga: `$There is a moonstone beneath the stairs on the main floor.
+@#saybar3
+@do saybar
+`!Helga: `$There is a moonstone hidden in that labaratory.
+@#saybar4
+@do saybar
+`!Helga: `$There is a moonstone on the roof.
+@#saybar5
+@do saybar
+`!Helga: `$There is a moonstone beneath the stairs on the main floor.
+@#saybar6
+@do saybar
+`!Helga: `$There is a walk-through wall on the green-walled indoor island.
+@#saybar7
+@do saybar
+`!Helga: `$Don't go opening doors without money, food, or strong damn armor.
+@#saybar8
+@do saybar
+`!Helga: `$The tension women are easily charmed.
+@#saybar9
+@do saybar
+`!Helga: `$There is a moonstone hidden in the waterfall.
+@#saybar10
+@do saybar
+`!Helga: `$There is a walk-through wall near the dragon slaves.
+
+@#LABMAN
+@do `p20 is 0
+@dataload TENSEKEY.DAT &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @do moveback
+ @dataload TENSEKB.DAT &playernum `p21
+ @if `p21 is 1 then do
+ @begin
+ @do saybar
+`!Lebby: `$You've got the key shaped like a stupid heart.
+ @end
+ @if `p21 is 2 then do
+ @begin
+ @do saybar
+`!Lebby: `$You've got the key shaped like a stupid diamond.
+ @end
+ @if `p21 is 3 then do
+ @begin
+ @do saybar
+`!Lebby: `$You've got the key shaped like a stupid spade.
+ @end
+ @do saybar
+`!Lebby: `$Go ahead and grab a key!
+ @closescript
+ @end
+
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% Labreticulus, the Lab Man `r0
+
+ `2In front of you is a very old fellow, not to mention a little senile,
+ stupid, and scarniferous. You approach him cautiously, but he yells in
+ your face!
+
+ `0"Hey there! Hey! Welcome to Lebby's Keys! Just 5 moonstones!" `2he yells.
+
+@DO WRITE
+`x`x
+@CHOICE
+Did you say '5' moonstones!?!?
+>`i57 4 Give him your moonstones.
+Leave
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @SHOW
+`\`\ `$"Did you say `%5`$ moonstones!?!?!"
+
+`k `0"Yup! 5. No more, no less. That's right. 5! Moonstones."
+
+`k `$"Do you have any idea how hard those things are to come by!?!"
+
+`k `0"Oh, yes. That's why I'm asking so much for my keys."
+
+`k `$"Why?!?!"
+
+`k `0"Because I'm hungry!"
+
+`k `$"What the hell does that have to do with moonstones?!?!"
+
+`k `0"I eat moonstones."
+
+`k `$"Oh. Well." `2You breathe deeply. `$"You make keys, right?"
+
+`k `0"Oh, no. Nothing like that. I have keys, you see, to this house.
+ For 5 moonstones to feed my starving self, I'll let you take them out
+ ONE at a time...of course, you'll have to leave some collateral. And,
+ oh yes, of course you won't be getting any of it back. I guess, in a
+ way, I'm just really overcharing you! But, hey, you won't be able
+ to get very far in this house without participating..."
+
+`k `$"Uh-huh..."
+
+@do goto LABMAN
+@end
+
+@if response is 2 then do
+@begin
+@do `i57 - 5
+@drawmap
+@update
+@do saybar
+@datasave TENSEKEY.DAT &playernum 1
+`!Lebby: `$Thanks!
+@end
+
+@drawmap
+@update
+@end
+
+@#KEY1
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% The Key Obviously Shaped like a Heart `r0
+
+ `2As you pick it up, you think, `$"Damn, ASCII codes suck. I have a
+ stupid key shaped like a heart."
+
+ `2You take it over to Lebby. `$"I'd like this key, please."
+
+ `0"That will be `%$10,000 `0please."
+
+@DO WRITE
+`x`x
+@CHOICE
+>&money 9999 Pay the overcharging man (10,000 gold)
+I don't have that kind of money.
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @drawmap
+ @update
+ @do money - 10000
+ @datasave TENSEKB.DAT &playernum 1
+ @do saybar
+`!You have the stupid key shaped like a heart!
+ @closescript
+ @end
+
+ @drawmap
+ @update
+ @end
+
+@#KEY1CHECK
+@do `p20 is 0
+@dataload TENSEKB.DAT &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @do saybar
+`!You use the stupid key and go through the stupid door.
+ @closescript
+ @end
+
+ @do moveback
+ @do saybar
+`!It's locked, damnit.
+ @end
+
+@#KEY2
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% The Key Obviously Shaped like a Diamond `r0
+
+ `2As you pick it up, you think, `$"Damn, ASCII codes suck. I have a
+ stupid key shaped like a diamond."
+
+ `2You take it over to Lebby. `$"I'd like this key, please."
+
+ `0"That will be `%$10,000 `0please."
+
+@DO WRITE
+`x`x
+@CHOICE
+>&money 9999 Pay the overcharging man (10,000 gold)
+I don't have that kind of money.
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @drawmap
+ @update
+ @do money - 10000
+ @datasave TENSEKB.DAT &playernum 2
+ @do saybar
+`!You have the stupid key shaped like a diamond!
+ @closescript
+ @end
+
+ @drawmap
+ @update
+ @end
+
+@#KEY2CHECK
+@do `p20 is 0
+@dataload TENSEKB.DAT &playernum `p20
+@if `p20 is 2 then do
+ @begin
+ @do saybar
+`!You use the stupid key and go through the stupid door.
+ @closescript
+ @end
+
+ @do moveback
+ @do saybar
+`!It's locked, damnit.
+ @end
+
+@#KEY3
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% The Key Obviously Shaped like a Spade `r0
+
+ `2As you pick it up, you think, `$"Damn, ASCII codes suck. I have a
+ stupid key shaped like a spade."
+
+ `2You take it over to Lebby. `$"I'd like this key, please."
+
+ `0"That will be `%$10,000 `0please."
+
+@DO WRITE
+`x`x
+@CHOICE
+>&money 9999 Pay the overcharging man (10,000 gold)
+I don't have that kind of money.
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @drawmap
+ @update
+ @do money - 10000
+ @datasave TENSEKB.DAT &playernum 3
+ @do saybar
+`!You have the stupid key shaped like a spade!
+ @closescript
+ @end
+
+ @drawmap
+ @update
+ @end
+
+@#KEY3CHECK
+@do `p20 is 0
+@dataload TENSEKB.DAT &playernum `p20
+@if `p20 is 3 then do
+ @begin
+ @do saybar
+`!You use the stupid key and go through the stupid door.
+ @closescript
+ @end
+
+ @do moveback
+ @do saybar
+`!It's locked, damnit.
+ @end
+
+@#MARTY
+ @do `p22 is 0
+ @dataload TENSEQZ.DAT &playernum `p22
+ @if `p22 > 2 then do
+ @begin
+ @do saybar
+`!Marty: `$We've already given you the almanac.
+ @closescript
+ @end
+ @do `p21 is 0
+ @dataload TENSEQZ1.IDF &playernum `p21
+ @if `p21 is 1 then do
+ @begin
+ @do moveback
+ @do saybar
+`!Marty: `$If you haven't already, try talking to Doc.
+ @closescript
+ @end
+
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% Heavy Marty `r0
+
+ `2You approach him carefully, as you are quite intimidated by his
+ stylish orange vest that rather resembles a life vest.
+
+ `$"Hey, kid. You jump ship?" `2you say to him. He doesn't laugh.
+
+ `0"My name's Marty. And I have something you need. Gray's Sports
+ Almanac. I'll give it to you if you can answer my one question, and
+ Doc's one question, correctly. Is that a deal?"
+
+@DO WRITE
+`x`x
+@CHOICE
+Give his question a shot!
+Sorry, daddio. No time for this.
+@IF RESPONSE is 2 THEN DO
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"I'll give your question a shot."
+
+`k `2He approaches you slowly. `0"All right, listen closely. I don't
+ like to repeat myself. My question involves simple algebra. If you have
+ one number, x, divided by another number y, and it is multiplied by
+ another number, z, which is the result of an equation, ab + cd = z,
+ and cd is equal to 12, and x is 80 more than 12 + ab, divided by z,
+ and, you know, I am just kidding you. I mean, what does this have to do
+ with Lord II?" `2He smiles.
+
+`k `$"I failed algebra."
+
+`k `0"Me, too. I was a slacker.
+
+`k
+`c`0 Your real question is this: Who was framed by his student and
+ thrown out of his training institution?"
+
+@DO WRITE
+`x`x
+@CHOICE
+Barak
+Nickabrick
+Turgon
+Selena
+Abdul
+@IF RESPONSE IS 3 then do
+ @begin
+ @drawmap
+ @update
+ @datasave TENSEQZ1.IDF &playernum 1
+ @do `p20 is 0
+ @dataload TENSEQZ.DAT &playernum `p20
+ @if `p20 is 1 then do
+ @begin
+ @do saybar
+`!Marty: `$That's right! Here's the sports almanac!
+ @do `p20 + 1
+ @datasave TENSEQZ.DAT &playernum `p20
+ @closescript
+ @end
+ @drawmap
+ @update
+ @datasave TENSEQZ.DAT &playernum 1
+ @do saybar
+`!Marty: `$That's right! Talk to Doc now!
+ @closescript
+ @end
+
+ @drawmap
+ @update
+ @datasave TENSEQZ1.IDF &playernum 1
+ @do saybar
+`!Marty: `$Sorry, that wasn't exactly the right answer.
+
+@#DOC
+ @do `p22 is 0
+ @dataload TENSEQZ.DAT &playernum `p22
+ @if `p22 > 2 then do
+ @begin
+ @do saybar
+`!Doc: `$We've already given you the almanac.
+ @closescript
+ @end
+ @do `p21 is 0
+ @dataload TENSEQZ2.IDF &playernum `p21
+ @if `p21 is 1 then do
+ @begin
+ @do moveback
+ @do saybar
+`!Doc: `$If you haven't already...great scott! Talk to Marty!
+ @closescript
+ @end
+
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% Great Scott Doc `r0
+
+ `2This crazy-haired scientist apparently has a concetrated disorder.
+ He can't stop yelling or walking or moving or waving his wild eyes
+ wildly.
+
+ `$"Great scott! I've got a question for you. You want the sports
+ almanac don't you?"
+
+@DO WRITE
+`x`x
+@CHOICE
+Give his question a shot!
+Sorry, daddio. No time for this.
+@IF RESPONSE is 2 THEN DO
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"I'll give your question a shot."
+
+`k `2He dances around you. `0"Damn. Damn. Damn. Kid, did I ever tell
+ you that story? That one story? Did I? About when I slipped and hit
+ my head on a toilet or something like that. I came up with the flux
+ capacitor!"
+
+`k `$"Does my question have to do with the flux capacitor?"
+
+`c`0 "Your real question is this: What is your best friend's name?"
+
+@DO WRITE
+`x`x
+@CHOICE
+Barak
+Nickabrick
+Turgon
+Wendle
+Abdul
+@IF RESPONSE IS 4 then do
+ @begin
+ @drawmap
+ @update
+ @datasave TENSEQZ2.IDF &playernum 1
+ @do `p20 is 0
+ @dataload TENSEQZ.DAT &playernum `p20
+ @if `p20 is 1 then do
+ @begin
+ @do saybar
+`!Doc: `$That's right! Great scott! Here's the sports almanac!
+ @do `p20 + 1
+ @datasave TENSEQZ.DAT &playernum `p20
+ @closescript
+ @end
+ @drawmap
+ @update
+ @datasave TENSEQZ.DAT &playernum 1
+ @do saybar
+`!Doc: `$That's right! Great scott, talk to Marty now!
+ @closescript
+ @end
+
+ @drawmap
+ @update
+ @datasave TENSEQZ2.IDF &playernum 1
+ @do saybar
+`!Doc: `$Great scott, that was the wrong answer!
+
+@#PLATEAUMAN
+@do `p21 is 0
+@dataload TENSEQZ.DAT &playernum `p21
+@If `p21 is 3 then do
+ @begin
+ @do saybar
+`!Paul: `$I have no more need of you. Leave me to read!
+ @closescript
+ @end
+
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% Paul, the Plateau Man `r0
+
+ `2He's not really very attractive, incredible, unique, or remarkable.
+ `2He just is. And seemingly very useless, at that.
+
+ `0"My name's Paul. People call me boring. Can I help you?"
+
+@do `p20 is 0
+@dataload TENSEQZ.DAT &playernum `p20
+@if `p20 is 2 then do
+ @begin
+ @do goto PLATEAUMAN2
+ @closescript
+ @end
+
+@DO WRITE
+`x`x
+@CHOICE
+I don't know. Can you help me?
+See ya, guy.
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"Maybe you can help me."
+
+`k `0"I don't think so. I need something to read up here on this plateau."
+
+`k `$"You want me to get you a book?"
+
+`k `0"A book. A magazine. Anything. Anything to read. If you do, I might
+ give you this self-exctracting bridge I've got in my pocket here."
+
+`k `$"You got it!"
+
+`k
+ @do goto PLATEAUMAN
+ @end
+
+ @drawmap
+ @update
+ @end
+
+@#PLATEAUMAN2
+@DO WRITE
+`x`x
+@CHOICE
+I don't know. Can you help me?
+I've got this Sport's Almanac!
+See ya, guy.
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"Maybe you can help me."
+
+`k `0"I don't think so. I need something to read up here on this plateau."
+
+`k `$"You want me to get you a book?"
+
+`k `0"A book. A magazine. Anything. Anything to read. If you do, I might
+ give you this self-exctracting bridge I've got in my pocket here."
+
+`k `$"You got it!"
+
+`k
+ @do goto PLATEAUMAN
+ @end
+
+@IF RESPONSE IS 2 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"I've got this sports almanac. Will that do?"
+
+`k `0"That's perfect! Wonderful! I can even place a few bets. Here's that
+ self-extracting bridge I promised you. Put it in your pocket."
+
+ `@YOU HAVE A SELF-EXTRACTING BRIDGE (IN YOUR POCKET)!
+
+`k
+
+ @datasave TENSEQZ.DAT &playernum 3
+ @drawmap
+ @update
+ @end
+
+@#BRIDGE
+@do `p20 is 0
+@dataload TENSEQZ.DAT &playernum `p20
+@if `p20 is 3 then do
+ @begin
+ @do saybar
+`!This is a nice self-extracting bridge. Very userful!
+ @closescript
+ @end
+
+@show
+`r0`c `r1A falling out `r0
+
+`2 You step back - your foot finds nothing but air.
+
+`k You fall.. and fall. After what seems like hours pass you finally hit
+ bottom.
+
+`k Your hands feels warm and sticky. You stop breathing.
+
+`k
+@run die in gametxt.ref
+
+@#WOMAN1
+@do `p20 is 0
+@dataload TENSEW1.DAT &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @do saybar
+`!Only her body remains.
+ @closescript
+ @end
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% An Incredible Tension Woman `r0
+
+ `2An indescribably beautiful woman looms before you. She whispers,
+ `0"You have found me. For the one who finds me, I am responsible thereof
+ to let my spirit loose inside of. I thank you for finding me. It has been
+ a long time, and I am lonely."
+
+@if sexmale is 1 then do
+ @begin
+ @do goto WOMAN1A
+ @end
+
+@DO WRITE
+`x`x
+@CHOICE
+Talk with her
+Take her spirit inside you
+Leave her here to rot
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"Who are you?"
+
+`k `0"My name is Anasie. I am one of the four Tension women. I thank you
+ for finding me."
+
+`k `$"Yeah. Yeah. I know. Listen, I heard you were evil. I heard that you
+ did something terrible a long while back. What was it?"
+
+`k `0"The four of us Tension women were responsible for the creation of
+ the legendary Red Dragon. We admired only its beauty, and power. We do
+ not consider ourselves evil, though a great many others will try to
+ convince you that we are. The day the dragon died was a sad day for us.
+
+`k
+ @do goto WOMAN1
+ @end
+
+@IF RESPONSE is 2 THEN DO
+ @BEGIN
+ @drawmap
+ @update
+ @do `p20 is 0
+ @dataload TENSEWMN.DAT &playernum `p20
+ @do `p20 + 1
+ @datasave TENSEWMN.DAT &playernum `p20
+ @datasave TENSEW1.DAT &playernum 1
+ @do saybar
+`!Her spirit flies inside you. Only her body remains.
+@do addlog
+ `0`n`2 has released one of the `0Tension Women
+@writefile lognow.txt
+ `2at the `%House of the Incredible Tensions.
+ `2-`0=`2-`%=`2-`0=`2-
+ @closescript
+ @end
+
+@drawmap
+@update
+@closescript
+@end
+
+@#WOMAN1A
+@DO WRITE
+`x`x
+@CHOICE
+Talk with her
+Take her spirit inside you
+Sleep with her
+Leave her here to rot
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"Who are you?"
+
+`k `0"My name is Anasie. I am one of the four Tension women. I thank you
+ for finding me."
+
+`k `$"Yeah. Yeah. I know. Listen, I heard you were evil. I heard that you
+ did something terrible a long while back. What was it?"
+
+`k `0"The four of us Tension women were responsible for the creation of
+ the legendary Red Dragon. We admired only its beauty, and power. We do
+ not consider ourselves evil, though a great many others will try to
+ convince you that we are. The day the dragon died was a sad day for us.
+
+`k
+ @do goto WOMAN1
+ @end
+
+@IF RESPONSE is 2 THEN DO
+ @BEGIN
+ @label FINISH1
+ @drawmap
+ @update
+ @do `p20 is 0
+ @dataload TENSEWMN.DAT &playernum `p20
+ @do `p20 + 1
+ @datasave TENSEWMN.DAT &playernum `p20
+ @datasave TENSEW1.DAT &playernum 1
+ @do saybar
+`!Her spirit flies inside you. Only her body remains.
+@do addlog
+ `0`n`2 has released one of the `0Tension Women
+@writefile lognow.txt
+ `2at the `%House of the Incredible Tensions.
+ `2-`0=`2-`%=`2-`0=`2-
+ @closescript
+ @end
+
+@if RESPONSE is 3 THEN DO
+ @begin
+ @show
+`\`\ `$"Who are you?"
+
+`k `0"My name is Anasie. I am one of the four Tension women. I thank you
+ for finding me."
+
+`k `$"Yeah. Yeah. I know. Listen, I heard you were evil. I heard that you
+ did something terrible a long while back. What was it?"
+
+`k `0"The four of us Tension women were responsible for the creation of
+ the legendary Red Dragon. We admired only its beauty, and power. We do
+ not consider ourselves evil, though a great many others will try to
+ convince you that we are. The day the dragon died was a sad day for us.
+
+`k `$"Will you sleep with me?"
+
+`k `0"Of course," `2she says, and reaches for your belt buckle.
+
+`k `2A few hours later, you feel completely refreshed. You love these
+ Tension women!
+
+ `@Maximum HP improved by 5!
+ `@Charm increased by 10!
+
+`k `0"For your request, I am required to be inside you."
+
+`k
+@do addlog
+ `0`n`2 has gotten laid with one of the `0Tension Women
+@writefile lognow.txt
+ `2at the `%House of the Incredible Tensions.
+ `2-`0=`2-`%=`2-`0=`2-
+ @do `p03 + 5
+ @do `p08 + 10
+ @do goto FINISH1
+ @end
+
+@drawmap
+@update
+@closescript
+@end
+
+@#PRISONER1
+@do moveback
+@do `p21 is 0
+@dataload TENSEP1.DAT &playernum `p21
+@if `p21 is 1 then do
+ @begin
+ @closescript
+ @end
+@do `v01 is 1
+@show
+`r0`c `r1`% Some Dying Prisoner `r0
+
+ `2He gasps at you.
+
+ `0"I'm dying here, man. I'm dying. You got some food or something. Please.
+ I mean, more specifically something made from berries. Damn, I miss those
+ good Stonebrook berries. But I can't eat 'em plain. I mean, I hate to be
+ paticular, starving and all, but I really miss those berries mixed into
+ stuff. If only I had something to eat like that, I could give you this
+ key!"
+
+@DO WRITE
+`x`x
+@CHOICE
+>`i08 0 Give him a berry pie!
+Sorry, pal. Maybe later.
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @do `i08 - 1
+ @Show
+`\`\ `2You hand him the pie. `$"There you go, dying dude. Now, how about
+ that key?"
+
+`k `0"Oh, sure, sure. Here you go," `2he says and hands you half a key.
+
+`k `$"Hey, you shithead. You trying to cheat me? This is only half a key.
+ Where's the other half?"
+
+`k `2But it's too late. He choked on the pie trying to eat it too fast.
+ `$"Damnit," `2you say and kick the dead body. Where could that other
+ half be?
+
+`k
+ @drawmap
+ @update
+ @datasave TENSEP1.DAT &playernum 1
+ @do `p20 is 0
+ @dataload TENSEPK.DAT &playernum `p20
+ @if `p20 is 1 then do
+ @begin
+ @do saybar
+`!You fix the key halves together! You have a whole key!
+ @do `p20 + 1
+ @datasave TENSEPK.DAT &playernum `p20
+ @closescript
+ @end
+ @do `p20 + 1
+ @datasave TENSEPK.DAT &playernum `p20
+ @do saybar
+`!You have half a key! Yay...
+ @closescript
+ @end
+
+@drawmap
+@update
+@end
+
+@#PRISONER2
+@do moveback
+@do `p21 is 0
+@dataload tensep2.dat &playernum `p21
+@if `p21 is 1 then do
+ @begin
+ @closescript
+ @end
+@do `v01 is 1
+@show
+`r0`c `r1`% Some Dying Prisoner `r0
+
+ `2He gasps at you.
+
+ `0"I'm dying here, man. I'm dying. You got some food or something. Please.
+ I mean, more specifically something made from chickens. Damn, I miss those
+ good Stonebrook chickens. I mean, I hate to be paticular, starving and all,
+ but I really miss those chickens. If only I had something to eat like that,
+ I could give you this key!"
+
+@DO WRITE
+`x`x
+@CHOICE
+>`i43 0 Give him a chicken egg.
+Sorry, pal. Maybe later.
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @do `i43 - 1
+ @Show
+`\`\ `2You hand him the egg. `$"There you go, dying dude. Now, how about
+ that key?"
+
+`k `0"Oh, sure, sure. Here you go," `2he says and hands you half a key.
+
+`k `$"Hey, you shithead. You trying to cheat me? This is only half a key.
+ Where's the other half?"
+
+`k `2But it's too late. He choked on the egg trying to eat it too fast.
+ `$"Damnit," `2you say and kick the dead body. Where could that other
+ half be?
+
+`k
+ @drawmap
+ @update
+ @datasave tensep2.dat &playernum 1
+ @do `p20 is 0
+ @dataload TENSEPK.DAT &playernum `p20
+ @if `p20 is 1 then do
+ @begin
+ @do saybar
+`!You fix the key halves together! You have a whole key!
+ @do `p20 + 1
+ @datasave TENSEPK.DAT &playernum `p20
+ @closescript
+ @end
+ @do `p20 + 1
+ @datasave TENSEPK.DAT &playernum `p20
+ @do saybar
+`!You have half a key! Yay...
+ @closescript
+ @end
+
+@drawmap
+@update
+@end
+
+@#KEYDOOR
+@do `p20 is 0
+@dataload TENSEPK.DAT &playernum `p20
+@if `p20 is 2 then do
+@begin
+@do saybar
+`!That door is no longer locked.
+@closescript
+@end
+
+@do moveback
+@do saybar
+`!The door is locked, like all the rest it seems. Damn!
+
+@#WOMAN2
+@if `p08 < 10 then do
+ @begin
+ @do saybar
+`!Tension Woman: `$I will not talk to someone so uncharming...
+ @closescript
+ @end
+
+@do `p20 is 0
+@dataload TENSEW2.DAT &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @do saybar
+`!Only her body remains.
+ @closescript
+ @end
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% An Incredible Tension Woman `r0
+
+ `2An indescribably beautiful woman looms before you. She whispers,
+ `0"You have found me. For the one who finds me, I am responsible thereof
+ to let my spirit loose inside of. I thank you for finding me. It has been
+ a long time, and I am lonely."
+
+@if sexmale is 1 then do
+ @begin
+ @do goto WOMAN2A
+ @end
+
+@DO WRITE
+`x`x
+@CHOICE
+Talk with her
+Take her spirit inside you
+Leave her here to rot
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"Who are you?"
+
+`k `0"My name is Tebbie. I am one of the four Tension women. I thank you
+ for finding me."
+
+`k `$"Yeah. Yeah. I know. Listen, what is in the belly of that thing?"
+
+`k `0"The legendary red dragon came from inside that thing. Inside his
+ belly is the unknown Valley of the Dragons. There are many more like
+ that one there. We feel they are a beautiful species, and have spent most
+ of our time studying them and their behavior. It is dangerous in his belly,
+ however. I would not go there."
+
+`k
+ @do goto WOMAN2
+ @end
+
+@IF RESPONSE is 2 THEN DO
+ @BEGIN
+ @drawmap
+ @update
+ @do `p20 is 0
+ @dataload TENSEWMN.DAT &playernum `p20
+ @do `p20 + 1
+ @datasave TENSEWMN.DAT &playernum `p20
+ @datasave TENSEW2.DAT &playernum 1
+ @do saybar
+`!Her spirit flies inside you. Only her body remains.
+@do addlog
+ `0`n`2 has released one of the `0Tension Women
+@writefile lognow.txt
+ `2at the `%House of the Incredible Tensions.
+ `2-`0=`2-`%=`2-`0=`2-
+ @closescript
+ @end
+
+@drawmap
+@update
+@closescript
+@end
+
+@#WOMAN2A
+@DO WRITE
+`x`x
+@CHOICE
+Talk with her
+Take her spirit inside you
+Sleep with her
+Leave her here to rot
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"Who are you?"
+
+`k `0"My name is Tebbie. I am one of the four Tension women. I thank you
+ for finding me."
+
+`k `$"Yeah. Yeah. I know. Listen, what is in the belly of that thing?"
+
+`k `0"The legendary red dragon came from inside that thing. Inside his
+ belly is the unknown Valley of the Dragons. There are many more like
+ that one there. We feel they are a beautiful species, and have spent most
+ of our time studying them and their behavior. It is dangerous in his belly,
+ however. I would not go there."
+
+`k
+ @do goto WOMAN2
+ @end
+
+@IF RESPONSE is 2 THEN DO
+ @BEGIN
+ @label FINISH2
+ @drawmap
+ @update
+ @do `p20 is 0
+ @dataload TENSEWMN.DAT &playernum `p20
+ @do `p20 + 1
+ @datasave TENSEWMN.DAT &playernum `p20
+ @datasave TENSEW2.DAT &playernum 1
+ @do saybar
+`!Her spirit flies inside you. Only her body remains.
+@do addlog
+ `0`n`2 has released one of the `0Tension Women
+@writefile lognow.txt
+ `2at the `%House of the Incredible Tensions.
+ `2-`0=`2-`%=`2-`0=`2-
+ @closescript
+ @end
+
+@if RESPONSE is 3 THEN DO
+ @begin
+ @show
+`\`\ `$"Who are you?"
+
+`k `0"My name is Tebbie. I am one of the four Tension women. I thank you
+ for finding me."
+
+`k `$"Yeah. Yeah. I know. Listen, what is in the belly of that thing?"
+
+`k `0"The legendary red dragon came from inside that thing. Inside his
+ belly is the unknown Valley of the Dragons. There are many more like
+ that one there. We feel they are a beautiful species, and have spent most
+ of our time studying them and their behavior. It is dangerous in his belly,
+ however. I would not go there."
+
+`k `$"Will you sleep with me?"
+
+`k `0"Of course," `2she says, and reaches for your belt buckle.
+
+`k `2A few hours later, you feel completely refreshed. You love these
+ Tension women!
+
+ `@Maximum HP improved by 5!
+ `@Charm increased by 10!
+
+`k `0"For your request, I am required to be inside you."
+
+`k
+@do addlog
+ `0`n`2 has gotten laid with one of the `0Tension Women
+@writefile lognow.txt
+ `2at the `%House of the Incredible Tensions.
+ `2-`0=`2-`%=`2-`0=`2-
+ @do `p03 + 5
+ @do `p08 + 10
+ @do goto FINISH2
+ @end
+
+@drawmap
+@update
+@closescript
+@end
+
+@#WOMAN3
+@if `p08 < 20 then do
+ @begin
+ @do saybar
+`!Tension Woman: `$I will not talk to someone so uncharming...
+ @closescript
+ @end
+
+@do `p20 is 0
+@dataload tensew3.dat &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @do saybar
+`!Only her body remains.
+ @closescript
+ @end
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% An Incredible Tension Woman `r0
+
+ `2An indescribably beautiful woman looms before you. She whispers,
+ `0"You have found me. For the one who finds me, I am responsible thereof
+ to let my spirit loose inside of. I thank you for finding me. It has been
+ a long time, and I am lonely."
+
+@if sexmale is 1 then do
+ @begin
+ @do goto WOMAN3A
+ @end
+
+@DO WRITE
+`x`x
+@CHOICE
+Talk with her
+Take her spirit inside you
+Leave her here to rot
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"Who are you?"
+
+`k `0"My name is Lendriatie. I am one of the four Tension women. I thank you
+ for finding me."
+
+`k `$"Yeah. Yeah. I know. Listen, what exactly IS that thing?"
+
+`k `0"The thing is a portal we created to reach the valley of the dragons.
+ We are old women, though we make look young and beautiful. Three-hundred
+ years ago we set out to find, study, and admire a very real dragon. We
+ created this house to harness the power of the Tension family, and together
+ we created the thing so we could reach the valley of the dragons."
+
+`k
+ @do goto WOMAN3
+ @end
+
+@IF RESPONSE is 2 THEN DO
+ @BEGIN
+ @drawmap
+ @update
+ @do `p20 is 0
+ @dataload TENSEWMN.DAT &playernum `p20
+ @do `p20 + 1
+ @datasave TENSEWMN.DAT &playernum `p20
+ @datasave tensew3.dat &playernum 1
+ @do saybar
+`!Her spirit flies inside you. Only her body remains.
+@do addlog
+ `0`n`2 has released one of the `0Tension Women
+@writefile lognow.txt
+ `2at the `%House of the Incredible Tensions.
+ `2-`0=`2-`%=`2-`0=`2-
+ @closescript
+ @end
+
+@drawmap
+@update
+@closescript
+@end
+
+@#WOMAN3A
+@DO WRITE
+`x`x
+@CHOICE
+Talk with her
+Take her spirit inside you
+Sleep with her
+Leave her here to rot
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"Who are you?"
+
+`k `0"My name is Lendriatie. I am one of the four Tension women. I thank you
+ for finding me."
+
+`k `$"Yeah. Yeah. I know. Listen, what exactly IS that thing?"
+
+`k `0"The thing is a portal we created to reach the valley of the dragons.
+ We are old women, though we make look young and beautiful. Three-hundred
+ years ago we set out to find, study, and admire a very real dragon. We
+ created this house to harness the power of the Tension family, and together
+ we created the thing so we could reach the valley of the dragons."
+
+`k
+ @do goto WOMAN3
+ @end
+
+@IF RESPONSE is 2 THEN DO
+ @BEGIN
+ @label FINISH3
+ @drawmap
+ @update
+ @do `p20 is 0
+ @dataload TENSEWMN.DAT &playernum `p20
+ @do `p20 + 1
+ @datasave TENSEWMN.DAT &playernum `p20
+ @datasave tensew3.dat &playernum 1
+ @do saybar
+`!Her spirit flies inside you. Only her body remains.
+@do addlog
+ `0`n`2 has released one of the `0Tension Women
+@writefile lognow.txt
+ `2at the `%House of the Incredible Tensions.
+ `2-`0=`2-`%=`2-`0=`2-
+ @closescript
+ @end
+
+@if RESPONSE is 3 THEN DO
+ @begin
+ @show
+`\`\ `$"Who are you?"
+
+`k `0"My name is Lendriatie. I am one of the four Tension women. I thank you
+ for finding me."
+
+`k `$"Yeah. Yeah. I know. Listen, what exactly IS that thing?"
+
+`k `0"The thing is a portal we created to reach the valley of the dragons.
+ We are old women, though we make look young and beautiful. Three-hundred
+ years ago we set out to find, study, and admire a very real dragon. We
+ created this house to harness the power of the Tension family, and together
+ we created the thing so we could reach the valley of the dragons."
+
+`k `$"Will you sleep with me?"
+
+`k `0"Of course," `2she says, and reaches for your belt buckle.
+
+`k `2A few hours later, you feel completely refreshed. You love these
+ Tension women!
+
+ `@Maximum HP improved by 5!
+ `@Charm increased by 10!
+
+`k `0"For your request, I am required to be inside you."
+
+`k
+@do addlog
+ `0`n`2 has gotten laid with one of the `0Tension Women
+@writefile lognow.txt
+ `2at the `%House of the Incredible Tensions.
+ `2-`0=`2-`%=`2-`0=`2-
+ @do `p03 + 5
+ @do `p08 + 10
+ @do goto FINISH3
+ @end
+
+@drawmap
+@update
+@closescript
+@end
+
+@#SLAVES
+ @do moveback
+ @do `p25 random 5 1
+ @run SLAVE`p25
+
+@#SLAVE1
+@do saybar
+`!Slave: `$Never kill a dragon.
+@#SLAVE2
+@do saybar
+`!Slave: `$The Tension Women locked us in here for kiling the dragons.
+@#SLAVE3
+@do saybar
+`!Slave: `$Most of us are dying. There is nothing you can do.
+@#SLAVE4
+@do saybar
+`!Slave: `$One of us has a red dragon scale. But he is highly secured.
+@#SLAVE5
+@do saybar
+`!Slave: `$The Tension Women are babes, but, boy, do they love dragons!
+
+@#SLAVEGIVE
+@do `p20 is 0
+@dataload tensescl.dat &playernum `p20
+@if `p20 > 0 then do
+ @begin
+ @do saybar
+`!It's the poor dead guy who gave you the dragon scale.
+ @closescript
+ @end
+
+@show
+`r0`c `r1`% A Dying Dragon Slave `r0
+
+ `0"Listen," `2he says to you, and grabs your arm. `0"Take this. Please."
+
+ `2And he falls down dead. Sad, but...
+
+ `@YOU HAVE A DRAGON SCALE
+
+`k
+@datasave tensescl.dat &playernum 1
+@drawmap
+@update
+@end
+
+@#COLLECTOR
+@do `p20 is 0
+@dataload tensescl.dat &playernum `p20
+@if `p20 is 3 then do
+ @begin
+ @do moveback
+ @do saybar
+`!Screwy: `$I'm not worthy, oh dragon-slayer!
+ @closescript
+ @end
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% Screwy, the Collector `r0
+
+ `2A scrawny, ratty-bearded fellow stands before you. All over this
+ room are plastered posters, dragon flags, t-shirts, baseball caps,
+ tennis shoes, all of which in some way or another read, "I killed the
+ red dragon!"
+
+ `0"Hi! I'm Screwy, the Collector. I collect anything having to do with
+ the red dragon."
+
+@do `p20 is 0
+@dataload tensescl.dat &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @do goto COLLECTOR2
+ @end
+
+@DO WRITE
+`x`x
+@CHOICE
+Chat with this nerd
+Screw Off...er, leave
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"You're obsessed with Lord II."
+
+`k `0"I know. I know. I've got everything I could, except something real.
+ I tell you, what I'd give for a real piece of the dragon, or to meet the
+ man who killed the dragon. What I'd give! I tell you. I'd give ANYTHING.
+ Well, not anything, but whatever I could. I'm a nerd."
+
+`k `$"And a bastard!"
+
+`k `0"And a bastard, yes. Oh. Lovely. I'm all done talking..."
+
+`k
+@do goto COLLECTOR
+@closescript
+@end
+
+@drawmap
+@update
+@closescript
+@end
+
+@#COLLECTOR2
+@DO WRITE
+`x`x
+@CHOICE
+Chat with this nerd
+Give him the dragon scale
+Screw Off...er, leave
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"You're obsessed with Lord II."
+
+`k `0"I know. I know. I've got everything I could, except something real.
+ I tell you, what I'd give for a real piece of the dragon, or to meet the
+ man who killed the dragon. What I'd give! I tell you. I'd give ANYTHING.
+ Well, not anything, but whatever I could. I'm a nerd."
+
+`k `$"And a bastard!"
+
+`k `0"And a bastard, yes. Oh. Lovely. I'm all done talking..."
+
+`k
+@do goto COLLECTOR
+@end
+
+@IF RESPONSE is 2 then do
+ @begin
+ @Show
+`\`\ `$"Here, take this dragon scale," `2you say, and hand it to him.
+
+`k `0"This is perfect! Does this mean you killed the dragon?"
+
+`k `$"Uh, yeah!"
+
+`k `0"Wow! Listen, for you, I've got something special." `2He walks over
+ to the corner and opens a chest. `0"This key! I have no idea what it's
+ to. Maybe you can figure it out."
+
+ `@YOU HAVE SOME USELESS KEY
+
+`k
+ @datasave tensescl.dat &playernum 3
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@drawmap
+@update
+@end
+
+@#WOMAN4
+@do `p20 is 0
+@dataload TENSESCL.DAT &playernum `p20
+@if `p20 < 3 then do
+@begin
+@do moveback
+@do saybar
+`!It's locked, of course!
+@closescript
+@end
+
+
+@if `p08 < 30 then do
+ @begin
+ @do saybar
+`!Tension Woman: `$I will not talk to someone so uncharming...
+ @closescript
+ @end
+
+@do `p20 is 0
+@dataload tensew4.dat &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @do moveback
+ @do saybar
+`!Only her body remains in this tower.
+ @closescript
+ @end
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% An Incredible Tension Woman inside a Tower `r0
+
+ `2An indescribably beautiful woman looms before you. She whispers,
+ `0"You have found me. For the one who finds me, I am responsible thereof
+ to let my spirit loose inside of. I thank you for finding me. It has been
+ a long time, and I am lonely."
+
+@if sexmale is 1 then do
+ @begin
+ @do goto WOMAN4A
+ @end
+
+@DO WRITE
+`x`x
+@CHOICE
+Talk with her
+Take her spirit inside you
+Leave her here to rot
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"Who are you?"
+
+`k `0"My name is Tina. I am one of the four Tension women. I thank you
+ for finding me."
+
+`k `$"Yeah. Yeah. I know. Listen, how do I get passed Neccessite?"
+
+`k `0"The guardian is strong, but she is easily distracted. If you combine
+ the four of us Tension Women spirits together, then, not only will some
+ sort of silly Feminist message be revealed, but also will we be able to
+ open once again the throat of the thing, and you can see one of the
+ legendary dragons for yourself!"
+
+`k `$"You mean I can go to the valley of the dragons, myself?"
+
+`k `0"Of course."
+
+`k `$"How do I get out?"
+
+`k `0"Through the sphincter muscle."
+
+`k
+ @do goto WOMAN4
+ @end
+
+@IF RESPONSE is 2 THEN DO
+ @BEGIN
+ @drawmap
+ @update
+ @do `p20 is 0
+ @dataload TENSEWMN.DAT &playernum `p20
+ @do `p20 + 1
+ @datasave TENSEWMN.DAT &playernum `p20
+ @datasave tensew4.dat &playernum 1
+ @do saybar
+`!Her spirit flies inside you. Only her body remains.
+@do addlog
+ `0`n`2 has released one of the `0Tension Women
+@writefile lognow.txt
+ `2at the `%House of the Incredible Tensions.
+ `2-`0=`2-`%=`2-`0=`2-
+ @closescript
+ @end
+
+@drawmap
+@update
+@closescript
+@end
+
+@#WOMAN4A
+@DO WRITE
+`x`x
+@CHOICE
+Talk with her
+Take her spirit inside you
+Sleep with her
+Leave her here to rot
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"Who are you?"
+
+`k `0"My name is Lendriatie. I am one of the four Tension women. I thank you
+ for finding me."
+
+`k `$"Yeah. Yeah. I know. Listen, what exactly IS that thing?"
+
+`k `0"The thing is a portal we created to reach the valley of the dragons.
+ We are old women, though we make look young and beautiful. Three-hundred
+ years ago we set out to find, study, and admire a very real dragon. We
+ created this house to harness the power of the Tension family, and together
+ we created the thing so we could reach the valley of the dragons."
+
+`k
+ @do goto WOMAN4
+ @end
+
+@IF RESPONSE is 2 THEN DO
+ @BEGIN
+ @label FINISH4
+ @drawmap
+ @update
+ @do `p20 is 0
+ @dataload TENSEWMN.DAT &playernum `p20
+ @do `p20 + 1
+ @datasave TENSEWMN.DAT &playernum `p20
+ @datasave tensew4.dat &playernum 1
+ @do saybar
+`!Her spirit flies inside you. Only her body remains.
+@do addlog
+ `0`n`2 has released one of the `0Tension Women
+@writefile lognow.txt
+ `2at the `%House of the Incredible Tensions.
+ `2-`0=`2-`%=`2-`0=`2-
+ @closescript
+ @end
+
+@if RESPONSE is 3 THEN DO
+ @begin
+ @show
+`\`\ `$"Who are you?"
+
+`k `0"My name is Tina. I am one of the four Tension women. I thank you
+ for finding me."
+
+`k `$"Yeah. Yeah. I know. Listen, how do I get passed Neccessite?"
+
+`k `0"The guardian is strong, but she is easily distracted. If you combine
+ the four of us Tension Women spirits together, then, not only will some
+ sort of silly Feminist message be revealed, but also will we be able to
+ open once again the throat of the thing, and you can see one of the
+ legendary dragons for yourself!"
+
+`k `$"You mean I can go to the valley of the dragons, myself?"
+
+`k `0"Of course."
+
+`k `$"How do I get out?"
+
+`k `0"Through the sphincter muscle."
+
+`k `$"Will you sleep with me?"
+
+`k `0"Of course," `2she says, and reaches for your belt buckle.
+
+`k `2A few hours later, you feel completely refreshed. You love these
+ Tension women!
+
+ `@Maximum HP improved by 5!
+ `@Charm increased by 10!
+
+`k `0"For your request, I am required to be inside you."
+
+`k
+@do addlog
+ `0`n`2 has gotten laid with one of the `0Tension Women
+@writefile lognow.txt
+ `2at the `%House of the Incredible Tensions.
+ `2-`0=`2-`%=`2-`0=`2-
+ @do `p03 + 5
+ @do `p08 + 10
+ @do goto FINISH4
+ @end
+
+@drawmap
+@update
+@closescript
+@end
+
+@#NECCESSITE2
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% Neccessite, Guardian of the Thing `r0
+
+ `2Although she is quite beautiful, you refuse to trust her.
+ `2Perhaps it is the falseness of her smile, or the fingers crossed
+ behind her back, or the extremely long (but beautiful) length of
+ her nose.
+
+ `2Nonetheless, she blows you a kiss and welcomes you.
+
+ `0"Welcome to the Thing. I am Neccessite, Guardian of the Thing."
+
+@if sexmale is 1 then do
+ @begin
+ @do goto NECC2
+ @end
+
+@DO WRITE
+`x`x
+@CHOICE
+What is this thing?
+Unleash the power of the Incredible Tension Women
+See ya' Babe!
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"What is this thing?"
+
+`k `0"This thing is ancient, and very still. It hardly moves. "
+
+`k `$"I noticed. It has a damn long tongue, too?"
+
+`k `0"That's because its throat is a passage...I mean, yes, yes it does
+ have a long tongue, doesn't it? I'd never really noticed that it did.
+ Being here for so long, I must have taken it for granted...how the tongue
+ acts as a pathway and all. I mean, you'd almost think you could walk
+ inside...not that you can! No! No, of course not! That would be silly."
+
+`k `$"You're lying. But, I feel the plot must develop throughout the
+ adventure in this house so I'll change the subject. Whose house is this?"
+
+`k `0"This is the ancient house of the Tensions. Four of which are women.
+ Very powerful women, with strange motives. They did a terrible deed
+ awhile back. And so they were scattered, and imprisoned secretly throughout
+ this house -- to insure that any terrible deeds would not happen again.
+
+`k `$"Were they hot?"
+
+`k `0"Beauty beyond belief. But evil, evil unimaginable. If, upon your
+ journeys in this house, you come upon any of the four, leave them be.
+ Do not rescue them, or store them inside you. Believe me, the forces
+ you deal with are incomprehensible.
+
+ Plus, if you don't, I'll go out with you. You're kind of cute."
+
+`k `$"Thanks!"
+`\`k
+ @do goto NECCESSITE
+ @END
+
+@if reponse is 2 then do
+ @begin
+ @show
+`\`\ `2You unleash the spirits of the Tension Women. Neccessite screams.
+
+`k `0"What are you doing?" `2she screams. `0"You're insane. I trusted you."
+
+`k `$"I'm sorry. But I have to see these red dragons. The ending to Lord 2
+ was kind of disappointing, and I'm hoping this will make up for it."
+
+`k `2The Tension Women swarm around Neccessite. She screams`0, "I hate you!,"
+ `2and runs down the tongue and out the door, out of the Tension's lives
+ forever...
+
+ @datasave TENSEWMN.DAT &playernum 5
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@drawmap
+@update
+@closescript
+@end
+
+@#NECC2
+@DO WRITE
+`x`x
+@CHOICE
+What is this thing?
+Unleash the power of the Incredible Tension Women
+Sleep with Neccessite
+See ya' Babe!
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"What is this thing?"
+
+`k `0"This thing is ancient, and very still. It hardly moves. "
+
+`k `$"I noticed. It has a damn long tongue, too?"
+
+`k `0"That's because its throat is a passage...I mean, yes, yes it does
+ have a long tongue, doesn't it? I'd never really noticed that it did.
+ Being here for so long, I must have taken it for granted...how the tongue
+ acts as a pathway and all. I mean, you'd almost think you could walk
+ inside...not that you can! No! No, of course not! That would be silly."
+
+`k `$"You're lying. But, I feel the plot must develop throughout the
+ adventure in this house so I'll change the subject. Whose house is this?"
+
+`k `0"This is the ancient house of the Tensions. Four of which are women.
+ Very powerful women, with strange motives. They did a terrible deed
+ awhile back. And so they were scattered, and imprisoned secretly throughout
+ this house -- to insure that any terrible deeds would not happen again.
+
+`k `$"Were they hot?"
+
+`k `0"Beauty beyond belief. But evil, evil unimaginable. If, upon your
+ journeys in this house, you come upon any of the four, leave them be.
+ Do not rescue them, or store them inside you. Believe me, the forces
+ you deal with are incomprehensible.
+
+ Plus, if you don't, I'll go out with you. You're kind of cute."
+
+`k `$"Thanks!"
+`\`k
+ @do goto NECCESSITE
+ @END
+
+@if reponse is 2 then do
+ @begin
+ @show
+`\`\ `2You unleash the spirits of the Tension Women. Neccessite screams.
+
+`k `0"What are you doing?" `2she screams. `0"You're insane. I trusted you."
+
+`k `$"I'm sorry. But I have to see these red dragons. The ending to Lord 2
+ was kind of disappointing, and I'm hoping this will make up for it."
+
+`k `2The Tension Women swarm around Neccessite. She screams`0, "I hate you!,"
+ `2and runs down the tongue and out the door, out of the Tension's lives
+ forever...
+
+`k
+ @datasave TENSEWMN.DAT &playernum 5
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if response is 3 then do
+ @begin
+ @show
+`\`\ `$"Listen, you said if I was good and didn't do anything with the
+ Tension women, you'd date me."
+
+`k `0"Yes?" `2She says to you with a smile.
+
+`k `$"Well, I was kind of wondering if maybe we could skip the whole
+ dating thing and just get it on, right here on the tongue...?"
+
+`k `2She giggles. `0"Okay, sure."
+
+`k `2In the heat of the moment, so to speak, you realize you have
+ distracted Neccessite easily enough. With your passions completely
+ misplaced, you decide you really want to see these dragons and...
+
+`k `2You unleash the spirits of the Tension Women. Neccessite screams.
+
+`k `0"What are you doing?" `2she screams. `0"You're insane. I trusted you."
+
+`k `$"I'm sorry. But I have to see these red dragons. The ending to Lord 2
+ was kind of disappointing, and I'm hoping this will make up for it."
+
+`k `2The Tension Women swarm around Neccessite. She screams`0, "I hate you!,"
+ `2and runs down the tongue and out the door, out of the Tension's lives
+ forever...
+
+`k
+ @datasave TENSEWMN.DAT &playernum 5
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@drawmap
+@update
+@end
+
+@#TENSEPASS
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% The Tension Women Spirits `r0
+
+ `0"Listen closely," `2they say to you. `0"If you proceed, you will
+ lose everything. Your backpack will be cleared, as will your gold.
+ Such items do not digest well in the stomach of the thing."
+
+ `4You will lose:
+
+ `@-`4All items
+ `@-`4All gold
+
+ `4You will gain:
+ `@-`4An opportunity to beat the game, kill the red dragon, and become
+ a hero.
+
+ `0"Lastly," `2they say to you, `0"You will not be able to come out of this
+ place easily. Only through the sphincter can you pass..."
+
+@DO WRITE
+`x`x
+@CHOICE
+Let me in!
+Not ready quite yet
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @do money is 0
+ @do `i01 is 0
+ @do `i02 is 0
+ @do `i03 is 0
+ @do `i04 is 0
+ @do `i05 is 0
+ @do `i06 is 0
+ @do `i07 is 0
+ @do `i08 is 0
+ @do `i09 is 0
+ @do `i10 is 0
+ @do `i11 is 0
+ @do `i12 is 0
+ @do `i13 is 0
+ @do `i14 is 0
+ @do `i15 is 0
+ @do `i16 is 0
+ @do `i17 is 0
+ @do `i18 is 0
+ @do `i19 is 0
+ @do `i20 is 0
+ @do `i21 is 0
+ @do `i22 is 0
+ @do `i23 is 0
+ @do `i24 is 0
+ @do `i25 is 0
+ @do `i26 is 0
+ @do `i27 is 0
+ @do `i28 is 0
+ @do `i29 is 0
+ @do `i30 is 0
+ @do `i31 is 0
+ @do `i32 is 0
+ @do `i33 is 0
+ @do `i34 is 0
+ @do `i35 is 0
+ @do `i36 is 0
+ @do `i37 is 0
+ @do `i38 is 0
+ @do `i39 is 0
+ @do `i40 is 0
+ @do `i41 is 0
+ @do `i42 is 0
+ @do `i43 is 0
+ @do `i44 is 0
+ @do `i45 is 0
+ @do `i46 is 0
+ @do `i47 is 0
+ @do `i48 is 0
+ @do `i49 is 0
+ @do `i50 is 0
+ @do `i51 is 0
+ @do `i52 is 0
+ @do `i53 is 0
+ @do `i54 is 0
+ @do `i55 is 0
+ @do `i56 is 0
+ @do `i57 is 0
+ @do `i58 is 0
+ @do `i59 is 0
+ @do `i60 is 0
+ @do `i61 is 0
+ @do `i62 is 0
+ @do `i63 is 0
+ @do `i64 is 0
+ @do `i65 is 0
+ @do `i66 is 0
+ @do `i67 is 0
+ @do `i68 is 0
+ @do `i69 is 0
+ @do `i70 is 0
+ @do `i71 is 0
+ @do `i72 is 0
+ @do `i73 is 0
+ @do `i74 is 0
+ @do `i75 is 0
+ @do `i76 is 0
+ @do `i77 is 0
+ @do `i78 is 0
+ @do `i79 is 0
+ @do `i80 is 0
+ @do `i81 is 0
+ @do `i82 is 0
+ @do `i83 is 0
+ @do `i84 is 0
+ @do `i85 is 0
+ @do `i86 is 0
+ @do `i87 is 0
+ @do `i88 is 0
+ @do `i89 is 0
+ @do `i90 is 0
+ @do `i91 is 0
+ @do `i92 is 0
+ @do `i93 is 0
+ @do `i94 is 0
+ @do `i95 is 0
+ @do `i96 is 0
+ @do `i97 is 0
+ @do `i98 is 0
+@do addlog
+ `0`n`2 is trapped in the `@Valley of the Red Dragons
+@writefile lognow.txt
+ `2inside the belly of the thing at the `%House of the Incredible Tensions.
+ `2-`0=`2-`%=`2-`0=`2-
+ @do map is 739
+ @do x is 38
+ @do y is 7
+ @loadmap &map
+ @update
+ @end
+
+@drawmap
+@update
+@end
diff --git a/xtrn/lord2/cnw/tense3.ref b/xtrn/lord2/cnw/tense3.ref
new file mode 100644
index 0000000000000000000000000000000000000000..2ed41164bd5ca1291adc6ab8b179d95d77d93441
--- /dev/null
+++ b/xtrn/lord2/cnw/tense3.ref
@@ -0,0 +1,1662 @@
+; Script file TENSE3.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:28 2001
+
+@DECLARE healers 000001246
+@DECLARE toughbad1 000002934
+@DECLARE badwin1 000004284
+@DECLARE toughbad2 000004344
+@DECLARE badwin2 000005757
+@DECLARE toughbad3 000005818
+@DECLARE badwin3 000007212
+@DECLARE toughbad4 000007273
+@DECLARE badwin4 000008672
+@DECLARE toughbad5 000008732
+@DECLARE badwin5 000010131
+@DECLARE fail 000010186
+@DECLARE dragon 000010307
+@DECLARE dragondie 000011286
+@DECLARE wizard 000015737
+@DECLARE getweapon 000015809
+@DECLARE casey 000016298
+@DECLARE cbuy 000017143
+@DECLARE jason 000018264
+@DECLARE mike 000019386
+@DECLARE ryan 000020728
+@DECLARE ryanstart 000020784
+@DECLARE win 000023427
+@DECLARE die 000024027
+@DECLARE wakeup 000024219
+@DECLARE missionary 000024400
+@DECLARE mission2 000026979
+@DECLARE dragongate 000029579
+@DECLARE chest1 000029810
+@DECLARE intestinal 000030356
+@DECLARE mansay1 000030422
+@DECLARE mansay2 000030507
+@DECLARE mansay3 000030601
+@DECLARE mansay4 000030696
+@DECLARE mansay5 000030783
+@DECLARE chest2 000030880
+@DECLARE chest3 000031146
+@DECLARE mother 000031412
+@DECLARE motherrun 000033277
+@DECLARE motherwin 000033313
+@NOCHECK
+; End of .REF index
+
+@#healers
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%The Tension Healers
+
+`2 Ted Tension 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 `$1000`0 gold, ok?"
+
+@do write
+`x`x
+@choice
+>&money 999 Heal yourself for `$1000
+Limp on out.
+@show
+`\
+@if response is 1 then do begin
+ @begin
+ @if money < 1000 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," `2Ted 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 - 1000
+@do `p02 = `p03
+@show
+ `2You feel much better as your hitpoints are restored.
+
+`k
+ @end
+ @drawmap
+ @update
+ @closescript
+@end
+
+@show
+`0"You have no ailments, come back later," `2Ted laughs.
+
+`k
+@drawmap
+@update
+
+@#TOUGHBAD1
+@offmap
+;do math to create monster
+
+@do `p21 is `p03
+@do `p25 is `p09
+
+@do `p22 is S&wep_num
+@do `p22 + `p04
+@do `p26 is `p04
+@do `p26 / 6
+@do `p22 - `p26
+
+@do `p23 is S&arm_num
+@do `p23 + `p05
+@do `p26 is `p05
+@do `p26 / 8
+@do `p23 - `p26
+
+;@do `p24 random `p22
+;@do `p21 + `p24
+;@do `p24 random `p22
+;@do `p21 - `p24
+;
+;@do `p24 random `p22
+;@do `p24 / 5
+;@do `p22 - `p24
+
+
+;pick arena
+;@do `p20 random 3 1
+;@routine arena`p20
+;pick master
+;@do `p20 random 3 1
+;@routine master`p20
+
+@show
+`r0`c `r1 `4The Illusion of Wendle `r0
+
+ `9In front of you stands your good friend, Wendle. It's going to be tough
+ fighting him, but remember, it is just an illusion.
+
+`k
+@drawmap
+@update
+
+@fight
+;name
+Wendle
+;string said when you see him
+He taunts you ridiculously.
+;power move kill string
+Well, you just killed your best friend...kind of.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+punches you|`p22
+bites you|`p22
+painfully prods you|`p22
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+TENSE3.REF|BADWIN1
+;if lose: ref file|name or NONE
+TENSE3.REF|FAIL
+;if runs: ref file|name or NONE
+NONE|NONE
+@closescript
+
+@#BADWIN1
+@do x is 53
+@do y is 2
+@drawmap
+@update
+
+@#TOUGHBAD2
+@offmap
+;do math to create monster
+
+@do `p21 is `p03
+@do `p25 is `p09
+
+@do `p22 is S&wep_num
+@do `p22 + `p04
+@do `p26 is `p04
+@do `p26 / 5
+@do `p22 - `p26
+
+@do `p23 is S&arm_num
+@do `p23 + `p05
+;@do `p26 is `p05
+;@do `p26 / 5
+;@do `p23 - `p26
+
+;@do `p24 random `p22
+;@do `p21 + `p24
+;@do `p24 random `p22
+;@do `p21 - `p24
+;
+;@do `p24 random `p22
+;@do `p24 / 5
+;@do `p22 - `p24
+
+
+;pick arena
+;@do `p20 random 3 1
+;@routine arena`p20
+;pick master
+;@do `p20 random 3 1
+;@routine master`p20
+
+@show
+`r0`c `r1 `4The Illusion of your Mother `r0
+
+ `9Your mother stands in front of you, holding a lethal berry pie. You shake
+ in your shoes as you approach her...remembering it is only an illusion.
+
+`k
+@drawmap
+@update
+@fight
+;name
+Mother
+;string said when you see him
+She throws a berry pie at you.
+;power move kill string
+Well, you just killed your mother...sort of.
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+tosses a berry pie at you|`p22
+kicks a berry pie at you|`p22
+drops a berry pie down your pants|`p22
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+TENSE3.REF|BADWIN2
+;if lose: ref file|name or NONE
+TENSE3.REF|FAIL
+;if runs: ref file|name or NONE
+NONE|NONE
+@closescript
+
+@#BADWIN2
+@do x is 26
+@do y is 13
+@drawmap
+@update
+
+@#TOUGHBAD3
+@offmap
+;do math to create monster
+
+@do `p21 is `p03
+@do `p25 is `p09
+
+@do `p22 is S&wep_num
+@do `p22 + `p04
+;@do `p26 is `p04
+;@do `p26 / 5
+;@do `p22 - `p26
+
+@do `p23 is S&arm_num
+@do `p23 + `p05
+@do `p26 is `p05
+@do `p26 / 6
+@do `p23 - `p26
+
+;@do `p24 random `p22
+;@do `p21 + `p24
+;@do `p24 random `p22
+;@do `p21 - `p24
+;
+;@do `p24 random `p22
+;@do `p24 / 5
+;@do `p22 - `p24
+
+
+;pick arena
+;@do `p20 random 3 1
+;@routine arena`p20
+;pick master
+;@do `p20 random 3 1
+;@routine master`p20
+
+@show
+`r0`c `r1 `4The Illusion of Barak `r0
+
+ `9In front of you stands the infamous Barak, looking as infamous as ever.
+ As you approach him, you remind yourself...it is only an illusion.
+
+`k
+@drawmap
+@update
+@fight
+;name
+Barak
+;string said when you see him
+It is the infamous Barak.
+;power move kill string
+Well, you just killed Barak...sort of.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+tosses a berry pie at you|`p22
+kicks a berry pie at you|`p22
+drops a berry pie down your pants|`p22
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+TENSE3.REF|BADWIN3
+;if lose: ref file|name or NONE
+TENSE3.REF|FAIL
+;if runs: ref file|name or NONE
+NONE|NONE
+@closescript
+
+@#BADWIN3
+@do x is 46
+@do y is 11
+@drawmap
+@update
+
+@#TOUGHBAD4
+@offmap
+;do math to create monster
+
+@do `p21 is `p03
+@do `p25 is `p09
+
+@do `p22 is S&wep_num
+@do `p22 + `p04
+;@do `p26 is `p04
+;@do `p26 / 5
+;@do `p22 - `p26
+
+@do `p23 is S&arm_num
+@do `p23 + `p05
+@do `p26 is `p05
+@do `p26 / 15
+@do `p23 - `p26
+
+;@do `p24 random `p22
+;@do `p21 + `p24
+;@do `p24 random `p22
+;@do `p21 - `p24
+;
+;@do `p24 random `p22
+;@do `p24 / 5
+;@do `p22 - `p24
+
+
+;pick arena
+;@do `p20 random 3 1
+;@routine arena`p20
+;pick master
+;@do `p20 random 3 1
+;@routine master`p20
+
+@show
+`r0`c `r1 `4The Illusion of Turgon `r0
+
+ `9In front of you stands that old friend and mentor, Turgon. He doesn't
+ really look very dangerous, but then...it is only an illusion.
+
+`k
+@drawmap
+@update
+@fight
+;name
+Turgon
+;string said when you see him
+Your old friend and mentor stands before you.
+;power move kill string
+Well, you just killed Turgon...sort of.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+munches on your nards|`p22
+drop-kicks your face|`p22
+punches you a billion times|`p22
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+TENSE3.REF|BADWIN4
+;if lose: ref file|name or NONE
+TENSE3.REF|FAIL
+;if runs: ref file|name or NONE
+NONE|NONE
+@closescript
+
+@#BADWIN4
+@do x is 35
+@do y is 7
+@drawmap
+@update
+
+@#TOUGHBAD5
+@offmap
+;do math to create monster
+
+@do `p21 is `p03
+@do `p21 * 2
+@do `p25 is `p09
+
+@do `p22 is S&wep_num
+@do `p22 + `p04
+@do `p26 is `p04
+@do `p26 / 15
+@do `p22 - `p26
+
+@do `p23 is S&arm_num
+;@do `p23 + `p05
+@do `p26 is `p05
+@do `p26 / 90
+@do `p23 - `p26
+
+;@do `p24 random `p22
+;@do `p21 + `p24
+;@do `p24 random `p22
+;@do `p21 - `p24
+;
+;@do `p24 random `p22
+;@do `p24 / 5
+;@do `p22 - `p24
+
+
+;pick arena
+;@do `p20 random 3 1
+;@routine arena`p20
+;pick master
+;@do `p20 random 3 1
+;@routine master`p20
+
+@show
+`r0`c `r1 `4The Illusion of the Red Dragon `r0
+
+ `9My God, in front of you stands the red dragon. Its teeth drip acid, its
+ scales shine like fire. You can only hope this is an illusion.
+
+`k
+@drawmap
+@update
+@fight
+;name
+Red Dragon Illusion
+;string said when you see him
+It snarls at you.
+;power move kill string
+Well, you just killed the Red Dragon...sort of...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+spits fire on you|`p22
+whips you with its tail|`p22
+steps on you quickly|`p22
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+TENSE3.REF|BADWIN5
+;if lose: ref file|name or NONE
+TENSE3.REF|FAIL
+;if runs: ref file|name or NONE
+NONE|NONE
+@closescript
+
+@#BADWIN5
+@do x is 4
+@do y is 10
+@drawmap
+@update
+
+@#FAIL
+@do x is 68
+@do y is 11
+@drawmap
+@update
+@do `p02 is 1
+@do saybar
+`!Looks like you lost that battle.
+
+@#DRAGON
+@offmap
+@do `p27 random 50 1
+@do `p28 random 1500 1
+
+@do `p21 is `p03
+@do `p25 is `p09
+@do `p25 random `p25
+@do `p21 + `p25
+
+@do `p22 is S&wep_num
+@do `p22 + `p04
+
+@do `p23 is S&arm_num
+@do `p23 + `p05
+
+@do `p24 random `p22
+@do `p21 + `p24
+@do `p24 random `p22
+@do `p21 - `p24
+
+@do `p24 random `p22
+@do `p24 / 5
+@do `p22 - `p24
+
+@fight
+;name
+Red Dragon
+;string said when you see him
+It growls at you, snarls at you, terrifies you...
+;power move kill string
+Well, you just killed your best friend...kind of.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you savagely|`p22
+swings its tail at you|`p22
+blows fire at you|`p22
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+`p27
+;experience
+`p28
+;hit points
+`p21
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+TENSE3.REF|DRAGONDIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@closescript
+
+@#DRAGONDIE
+@do move 3 24
+@do write
+`r0 `x
+
+ @do X is 38
+ @do Y is 7
+ @do `p28 random 50 1
+ @do `p29 random `p28
+ @do money - `p29
+ @do `p29 / 2
+ @do money + `p29
+ @do `p02 is `p03 (give 'em max hit points)
+ @do `p20 is `p01
+ @do `p20 / 5
+ @do `p29 random `p20
+ @do `p01 - `p29
+ @do MAP is 739
+ @do dead is 1
+ @update_update
+
+ @do talk `4Newsflash:`0`x`n`x`2was`xdefeated`xby`x`@`e`2! all
+ @do addlog
+ `0`n`2 was whipped up on by `@`e`2
+ @do addlog
+ `2inside the belly of the thing at the `%House of the Incredible Tensions.
+ @routine seperate in gametxt.ref
+@do move 3 24
+@do write
+`4You've been killed. `k
+
+@pauseoff
+@show
+`r0`c
+[34C[0m���������������
+[29C���[1;30;47m����[0;47m�[1;30m�[0;47m�����������[40m�
+[28C�[1;30;47m����[0;47m������������������[40m�
+[27C�[1;30;47m����[0;47m��������[1;30m��[0;47m���������[40m�
+[19C��[5C�[1;30;47m����[0;47m����������[1;30m����[0;47m�����[40m
+[A[50C[47m[1;30m�[0m��
+[18C���� [1;30;47m�����[0;47m�����[1;30m� �[0;47m�[1;30m���[40m
+[A[43C[0;47m�����[1;30m�ܲ[0m�[47m�[1C[40m�[1;47m��[40m�
+[17C[30m�[47m�[0;47m��[1m�[0m� [1;30;47m���� [0;47m��[1;30m�[40m
+[A[34C[0;47m�[1;30m�����߰�[0;47m�[1;30m�[0;47m����[1;30m߲�[40m
+[A[52C[47m[0m�[1;30m�[47m�[0;47m�[1m�[40m�
+[17C[30;47m���[0;47m��[1m��[0m� [1;30m�[0m��� [1;30m�߲[47m[40m
+[A[37C[47m����[40m���[5C[0m��[1;30;47m�[40m�[47m��[0m� �
+[18C[1;30m���[47m��[0;47m� [1;30m�[1C[0m� [31m� [1;30m��
+[A[38C[47m���[40m� [0;31m� [37m��[1;30;47m�[40m�
+[23C[0m�[1;30;47m��[40m�[0m���� ��[1;30;47m�[0m��[1;30m�
+[A[41C[47m�[0m�� ��[1;47m�[0m�[1;30m�
+[25C[47m�[40m�[0m�[1;30;47m� [0;47m��[1;30m�����[0m� [1;30m� [0m�
+[A[42C[1;30;47m����[0;47m����[1m��[0m�
+[26C�[1;30;47m�[0;47m����[1;30mܲ��[0;47m�[2C[1;30;40m�� [47m��[40m
+[A[44C[47m�[0;47m�����[40m��
+[27C���[1;30;47m��[40m���[47m�[0m��[1;30;47m�����[40m��[0m� ����
+[29C[1;30m�� �� [0m��[1;30m�� �[0m�[1;30m� �� [47m��[0m�
+[27C�[1;30;47m���[40m� � [47m�[0m�[1;47m��[40m��[0m��[1;30;47m[40m
+[A[43C[47m�[40m� � [47m��[0;47m�[40m�
+[22C[1m� [47m��[30m��[40m� [0m� [1;30m� [0m� �[1m� �[0m� �
+[A[45C[1;30m��[47m�[1C[0m�[47m [1m�[40m���
+[19C�[47m�����[30m�[0m�� ���[1;30;47m�[0;47m�[40m�� ����� ��
+[A[45C[1;30;47m��[0;47m��[40m� �[1;30;47m�[37m��[40m�[47m�[40m
+[19C[0;31m� [37m���[1;30;47m�[40m�[0;33mܲ�� [37m�[1;47m��[30m[40m
+[A[34C[47m�[0;47m���[1;30m��[0;47m���� [1m��[0m� [33m���[1;30m�
+[A[53C[47m�[0m��[31m�
+[17C�����[37m�[1;30m�[0;31m���[33;41m����[40m� [37m�[1;47m�[40m
+[A[35C[0;47m��[1;30mܱ[40m�[47m��[40m�[47m�[37m�[0m� [31m�
+[A[48C[33;41m���[31;40m��[1;30m�[0;31m��۲��
+
+ `%You have made an error, s&boy.
+
+`k
+; @if `v03 is 0 then do
+; @begin
+ ;rules.ref file says unlimited deaths not allowed, so we will boot them
+ ;till tomorrow
+
+ ;take them off the map
+; @do map is 739
+; @halt
+; @end
+
+ @pauseon
+
+ @do dead is 0
+
+ @if `p07 less 0 then do
+ @begin
+ @show
+`r0`c`% `r1IT FEELS KINDA WARM IN HERE?`r0
+
+ `4You open your eyes.
+
+`k `4There are naked screaming people all around you. A little boy with
+ a ghastly face begins to gnaw on your leg.
+
+`k `6"Din, leave the newcomer alone. S&he isn't staying." `4a slow voice that
+ can only be described as an abomination dolefully states.
+
+`k `2You feel yourself floating away... faster and faster.
+ @end
+
+ @if `p07 more -1 then do
+ @begin
+ @show
+`r0`c`% `r1APPARENTLY DEATH ISN'T THE END.`r0
+
+ `2You open your eyes.
+
+`k `2You are lying on a table of solid rock in a marble room. Hundreds of
+ soft voices are murmuring all around you, but you see no one.
+
+`k `%"Send s&him back." `2a voice whispers, this one louder than the others.
+
+`k `2You feel yourself floating away... faster and faster.
+
+`k
+ @end
+
+
+@show
+`c `r1`% AWAKENING `r0
+
+ `2You awaken on that cold rock once again, alone, afraid, and damn
+ excited to be here among all the red dragons.
+
+ You lost a bunch of gold and a bunch of experience...
+
+`k
+ @loadmap &map
+ @drawmap
+ @update
+ @closescript
+
+@#WIZARD
+@do moveback
+@do saybar
+`!Wizard: `$Ever play Zelda?
+
+@#GETWEAPON
+@do `p20 is 0
+@dataload TENSEWPN.DAT &playernum `p20
+@if `p20 > 0 then do
+ @begin
+ @closescript
+ @end
+
+;@if `p07 < 0 then do
+; @begin
+; @do saybar
+;`!You find (and hold above your head) a Dragon Sword!
+; @do `i71 + 1
+; @datasave TENSEWPN.DAT &playernum 1
+; @closescript
+; @end
+
+;@if `p07 > 0 then do
+; @begin
+; @do saybar
+;`!You find (and hold above your head) a Koshi sword!
+; @do `i65 + 1
+; @datasave TENSEWPN.DAT &playernum 1
+; @closescript
+; @end
+
+@#CASEY
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% Casey's Place `r0
+
+ `2A very attractive young lady stands at the other side of the
+ counter. Her dark brown eyes and hair make you smile.
+
+ `0"Welcome to Casey's. How can I help you?"
+
+@DO WRITE
+`x`x
+@CHOICE
+Chat with Casey
+Buy some of her stuff
+See ya' Babe!
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"How'd you get down here?"
+
+`k `0"A long time ago, the thing went absolutely wild. It was tired of
+ sitting still, I guess. It ran a rampage across the Greentree valley,
+ and I was gobbled down in the process. Most of this village was."
+
+`k `$"Do you have a boyfriend?"
+
+`k `0"Yes!" `2she screams. `0"And one day, he'll come rescue me. Just you
+ wait and see..."
+
+`k
+@do goto CASEY
+@end
+
+@if response is 2 then do
+@begin
+@label CBUY
+@do `v01 is 1
+@show
+`r0`c `r1 Casey's Potions `r0
+
+@do write
+`x`x
+@choice
+Buy a Green Potion (1 gold)
+Buy a Blue Potion (15 gold)
+Buy a White Potion (50 gold)
+Nothing, thanks babe!
+@if response is 1 then do
+@begin
+@do `i05 + 1
+@do money - 1
+@show
+
+`\`0 "Thanks for your business," `2Casey says to you. `0"Wall-Mart has better
+ deals, though. God I miss that place." `2She sighes heavily.
+
+ `@YOU BUY ONE GREEN POTION!
+
+`k
+@do goto cbuy
+@end
+@if response is 2 then do
+@begin
+@do `i40 + 1
+@do money - 15
+@show
+
+`\`0 "Thanks for your business," `2Casey says to you. `0"Wall-Mart has better
+ deals, though. God I miss that place." `2She sighes heavily.
+
+ `@YOU BUY ONE BLUE POTION!
+
+`k
+@do goto cbuy
+@end
+@if response is 3 then do
+@begin
+@do `i55 + 1
+@do money - 50
+@show
+
+`\`0 "Thanks for your business," `2Casey says to you. `0"Wall-Mart has better
+ deals, though. God I miss that place." `2She sighes heavily.
+
+ `@YOU BUY ONE WHITE POTION!
+
+`k
+@do goto cbuy
+@end
+
+@do goto casey
+@end
+
+@drawmap
+@update
+@end
+
+@#JASON
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`%Jason's Healing Hospital `r0
+
+`2 You see a sign on the wall that says: `%Healing Real Cheap! Will work
+ for sex!
+
+`2 Jason 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
+@do `p20 / 2
+@do `p20 / 2
+ @show
+`0"You don't look so good, white trash! I'll fix ya up for `$`p20`0 gold, ok?"
+
+@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, trash head, I'm not gonna perform those services for free. Shit!"
+
+`k
+ @do goto JASON
+ @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
+
+ @drawmap
+ @update
+ @end
+
+@show
+`0"You look abso-friggin-lutely fine, white trash!" `2Jason says, and plays his
+ horn.
+
+`k
+@drawmap
+@update
+@end
+
+@#MIKE
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% Mike's Muscle Building Emporium `r0
+
+ `2A stud-like young man stands near a mirror flexing his muscles.
+ He is surprised to see you as you walk in.
+
+ `0"How can I help you, you scrawny weakling?"
+
+@DO WRITE
+`x`x
+@CHOICE
+>&money 499 Use the weight room! (500 gold)
+>&money 399 Use the excercise bike! (400 gold)
+Too expensive for me, He-Man...
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @do money - 500
+ @Show
+`\`\ `2Mike escorts you into his personal weight room. `0"Here is where
+ the magic happens," `2he says, kissing one of his biceps again. `0"You
+ get fifteen minutes! If you want longer, you'll have to pay me again."
+
+ `2Fifteen minutes later, you feel a little sore and whole load stronger!
+
+ `@MUSCLE INCREASED BY 5!
+
+`k
+ @do `p04 + 5
+ @do goto MIKE
+ @end
+@IF RESPONSE IS 2 THEN DO
+ @BEGIN
+ @do money - 400
+ @Show
+`\`\ `2Mike escorts you to his personal excercise bike. `0"Here is where
+ the magic happens," `2he says, kissing one of his thighs again. `0"You
+ get fifteen minutes! If you want longer, you'll have to pay me again."
+
+ `2Fifteen minutes later, you feel a little sore and whole load quicker!
+
+ `@DODGE INCREASED BY 5!
+
+`k
+ @do `p05 + 5
+ @do goto MIKE
+ @end
+
+@drawmap
+@update
+@end
+
+@#RYAN
+@offmap
+@do moveback
+@do `v01 is 1
+@label ryanstart
+@show
+`r0`c `r1`% Ryan's Retchid Training Center `r0
+
+`2 This place is drop-dead empty. But then, you realize there probably
+ aren't a lot of visitors in the stomach acid and intestines of the thing.
+
+ Ryan runs over to you, looking quite excited.
+
+ `0"Oh dear me! Business! This is great. Welcome to Ryan's Training Center.
+ My name's Ryan, and I'll be your trainer. Things work a little different
+ around here. As you can see, this place is dead, and I need to make a
+ living...so it's going to cost you every time you want to fight me!"
+
+@do write
+`x`x
+@choice
+>&money 99 Ask for a level raise (100 gold)
+Talk to Master Ryan
+Leave
+@if responce is 1 then do
+ @begin
+@do money - 100
+@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!"
+
+ `2Your face falls - what a bummer!
+
+`k
+ @do goto ryanstart
+ @end
+
+ @show
+
+
+ `0"You have been sitting at level `p09 long enough," `2Ryan says.
+
+`k
+`c `r1`4 Dueling with Master Ryan `r0
+
+`2 Ryan stands before you, looking a little nervous.
+
+`k
+
+@do `p21 is `p03
+@do `p25 is `p09
+@do `p25 random `p25
+@do `p21 + `p25
+
+@do `p22 is S&wep_num
+@do `p22 + `p04
+
+@do `p23 is S&arm_num
+@do `p23 + `p05
+
+@do `p24 random `p22
+@do `p21 + `p24
+@do `p24 random `p22
+@do `p21 - `p24
+
+@do `p24 random `p22
+@do `p24 / 5
+@do `p22 - `p24
+
+@fight
+;name
+Master Ryan
+;string said when you see him
+He is standing and ready for a fight.
+;power move kill string
+He sobs uncontrollably.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+kicks your shins|`p22
+kicks your chin|`p22
+slaps you stupid|`p22
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+TENSE3.REF|WIN
+;if lose: ref file|name or NONE
+TENSE3.REF|DIE
+;if runs: ref file|name or NONE
+TENSE3.REF|WAKEUP
+@closescript
+@end
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1`% Talking to Master Ryan `r0
+
+ `0"Make it fast kid, I'm busy!"
+
+`k `$"No, you're not," `2you say rudely.
+
+`k `0"I know. I know. Business is really slow down here. God, how I miss
+ the real world. I hate being down here in the stomach of this thing.
+ Plus, it stinks! I mean, his stomach acid rivers and bowels and what-not
+ stinks! And boy is there a wind-storm when he burps..."
+
+`k
+ @do goto RYAN
+ @end
+
+@drawmap
+@update
+@end
+
+@#WIN
+
+@do `p21 is 5
+@do `p03 + `p21
+
+@do `p22 is 2
+@do `p04 + `p22
+
+@do `p23 is 1
+@do `p05 + `p23
+
+
+@do `p09 + 1
+
+@do addlog
+ `r4 `r0 `0`n`2 has beaten `0`e`2 and become level `p09! `r4 `r0
+@do addlog
+ `2inside the belly of the thing at the `%House of the Incredible Tensions.
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@do `p02 is `p03
+@show
+`r0`c `r1 YOU HAVE FACED RETCHID RYAN AND TRIUMPHED! `r0
+
+ `%YOU ARE NOW LEVEL `p09.
+
+ `2You gain `0`p21`2 hitpoints,`0 `p22`2 muscle and `0`p23`2 dodge.
+
+`k
+@do goto RYAN
+
+@#DIE
+@do `p02 is 1
+@show
+`r0`c `r4 RYAN HAS BESTED YOU `r0
+
+ `2You sob uncontrollably under the unremarkable size of Ryan's body.
+
+ You have failed.
+
+`k
+@do goto RYAN
+
+@#WAKEUP
+@show
+`r0`c `r4 YOU RUN LIKE A CHICKEN SHIT `r0
+
+ `2You race out the door, hearing Ryan's bellowing laugther behind you.
+
+`k
+ @drawmap
+ @update
+ @end
+
+@#MISSIONARY
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% The Missionary `r0
+
+ `2Alone, here in the garden, stands a man in a dark robe.
+ `2He talks quietly.
+
+ `0"You're like me, aren't you, `n`0? `0Of course. Of course.
+ Not like the rest of these poor fools who were swallowed up during the
+ thing's rampage. No, like yourself, I came here to see the dragons.
+ To kill the dragons. The Tension Women don't like me much, them being
+ all in favor of the dragons being alive and what-not...
+ But it was a mistake..."
+
+@DO WRITE
+`x`x
+@do `p20 is 0
+@dataload TENSEC1.DAT &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @do goto MISSION2
+ @end
+@CHOICE
+What was a mistake?
+So am I betraying the Tension Women?
+Leave
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"What was a mistake?"
+
+`k `0"Coming down here in the first place. I thought I could be a hero.
+ I thought I could kill myself a dragon. But I was wrong...I was wrong."
+
+`k `$"You're one shitty warrior. I've already killed a few of them."
+
+`k `0"You mean those? The little dragons that run all over the place
+ and attack you like ants. That isn't the dragon, kid. Those are the
+ offspring. No, sir. This is like the Aliens movie. There is a mother
+ dragon. A mother red dragon. The mother of all red dragons. She lives
+ at the far south corner of the thing's stomach. She guards the
+ sphincter muscle, the only way out of this hell hole."
+
+`k `$"Now that's what I came to see! The mother of all dragons!"
+
+`k `0"Kid, listen. You won't stand a chance. That thing is a hundred times
+ your size."
+
+`k `$"Too late, matcho missionary! I'm marked for destiny."
+
+`k `0"Kid, you can't get in there without the key. And I have the key."
+
+`k `$"Well give it to me!"
+
+`k `0"Never..."
+
+`k
+
+@do goto MISSIONARY
+@end
+
+@IF RESPONSE IS 2 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"I'm betraying the Tension Women?"
+
+`k `0"The women created the thing, nurtured it, as a portal to the
+ valley of the dragons. It's all very complicated. Not really very
+ realistic at all. So, now you're here, stuck in the stomach of the
+ thing, which is also the valley of the dragons. The women created
+ the thing only to observe, not to destroy..."
+
+`k `$"Too bad! I'm here to slaugther them and be a hero!"
+
+`k `0"Kid, in order to be a hero, you have to save someone or something.
+ The red dragons here are harmless. You're just being cruel."
+
+`k
+
+@do goto MISSIONARY
+@end
+
+@drawmap
+@update
+@closescript
+@end
+
+@label MISSION2
+@CHOICE
+What was a mistake?
+So am I betraying the Tension Women?
+Give him the photograph
+Leave
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"What was a mistake?"
+
+`k `0"Coming down here in the first place. I thought I could be a hero.
+ I thought I could kill myself a dragon. But I was wrong...I was wrong."
+
+`k `$"You're one shitty warrior. I've already killed a few of them."
+
+`k `0"You mean those? The little dragons that run all over the place
+ and attack you like ants. That isn't the dragon, kid. Those are the
+ offspring. No, sir. This is like the Aliens movie. There is a mother
+ dragon. A mother red dragon. The mother of all red dragons. She lives
+ at the far south corner of the thing's stomach. She guards the
+ sphincter muscle, the only way out of this hell hole."
+
+`k `$"Now that's what I came to see! The mother of all dragons!"
+
+`k `0"Kid, listen. You won't stand a chance. That thing is a hundred times
+ your size."
+
+`k `$"Too late, matcho missionary! I'm marked for destiny."
+
+`k `0"Kid, you can't get in there without the key. And I have the key."
+
+`k `$"Well give it to me!"
+
+`k `0"Never..."
+
+`k
+
+@do goto MISSIONARY
+@end
+
+@IF RESPONSE IS 2 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"I'm betraying the Tension Women?"
+
+`k `0"The women created the thing, nurtured it, as a portal to the
+ valley of the dragons. It's all very complicated. Not really very
+ realistic at all. So, now you're here, stuck in the stomach of the
+ thing, which is also the valley of the dragons. The women created
+ the thing only to observe, not to destroy..."
+
+`k `$"Too bad! I'm here to slaugther them and be a hero!"
+
+`k `0"Kid, in order to be a hero, you have to save someone or something.
+ The red dragons here are harmless. You're just being cruel."
+
+`k
+
+@do goto MISSIONARY
+@end
+
+@if response is 3 then do
+ @begin
+ @Show
+`\`\ `$"Here, is this yours?" `2you say and hand the strange missionary
+ the photograph of the womand and child.
+
+`k `2He stumbles for words. `0"Where...where...where did you find this?
+ I thought I'd lost it. This is my wife. And my son. Oh, God what I'd
+ give to see them again."
+
+`k `$"Yeah. Yeah. So, about that key?"
+
+`k `0"My friend, I owe you. I regret giving you this, but can tell it
+ is truly a death wish you have. Here." `2He hands you the key.`0"Do be
+ careful, my friend. Please."
+
+ `@YOU HAVE THE KEY TO THE MOTHER OF ALL DRAGONS!
+
+`k
+ @datasave TENSEC1.DAT &playernum 3
+ @end
+
+@drawmap
+@update
+@end
+
+@#DRAGONGATE
+@do `p20 is 0
+@dataload TENSEC1.DAT &playernum `p20
+@if `p20 is 3 then do
+@begin
+@do saybar
+`!You're nearly pissing your pants now.
+@closescript
+@end
+
+@do moveback
+@do saybar
+`!It's locked. How unusual...
+
+@#CHEST1
+@do `p20 is 0
+@dataload TENSEC1.DAT &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do saybar
+`!There is nothing there.
+@closescript
+@end
+
+@do `v01 is 1
+@show
+`r0`c `r1`% A Photograph `r0
+
+ `2It looks like somebody dropped a photograph.
+ `2You stare at it and see a lovely woman holding a strapping young man.
+
+ For a moment, you'd like to return home...
+
+`k `@YOU HAVE A PHOTOGRAPH!
+
+`k
+@drawmap
+@update
+@datasave TENSEC1.DAT &playernum 1
+@do saybar
+`!You put the picture in your pocket.
+@end
+
+@#INTESTINAL
+@do moveback
+@do `p20 random 5 1
+@run mansay`p20
+
+@#mansay1
+@do saybar
+`!Intestinal Man: `$Do not go south until you are strong.
+
+@#mansay2
+@do saybar
+`!Intestinal Man: `$You cannot run from the mother of all dragons.
+
+@#mansay3
+@do saybar
+`!Intestinal Man: `$Do not rush to fight the mother of all dragons.
+
+@#mansay4
+@do saybar
+`!Intestinal Man: `$Call The Loose Screw BBS (801)561-4780!
+
+@#mansay5
+@do saybar
+`!Intestinal Man: `$If you can kill the mother, you have won the game!
+
+@#CHEST2
+@do `p20 is 0
+@dataload TENSEC2.DAT &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do saybar
+`!There is nothing here.
+@closescript
+@end
+
+@do `p25 random 500 300
+@do saybar
+`!You find `$`p25 `!gold pieces!
+@datasave TENSEC2.DAT &playernum 1
+
+@#CHEST3
+@do `p20 is 0
+@dataload tensec3.dat &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do saybar
+`!There is nothing here.
+@closescript
+@end
+
+@do `p25 random 500 300
+@do saybar
+`!You find `$`p25 `!gold pieces!
+@datasave tensec3.dat &playernum 1
+
+@#MOTHER
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r1`% The Mother of Red Dragons `r0
+
+ `2You gape into its giant mouth, staring idly at its dripping teeth.
+
+`k `2It roars, and attacks...
+
+ ...you think to yourself, `0"My death has begun."
+
+ `2You've got a chance here to take your last drink. What'll it be?
+
+@do write
+`x`x`x`x`x
+@choice
+>`i05 0 Drink a Green Potion
+>`i40 0 Drink a Blue Potion
+>`i55 0 Drink a White Potion
+Don't got nothing to drink, damnit!
+@if response is 1 then do
+ @begin
+ @do `p02 + 10
+ @do `i05 - 1
+ @end
+@if response is 2 then do
+ @begin
+ @do `p02 + 50
+ @do `i40 - 1
+ @end
+@if response is 3 then do
+ @begin
+ @do `p02 + 200
+ @do `i55 - 1
+ @end
+
+ @if `p02 > `p03 then do
+ @begin
+ @do `p02 is `p03
+ @end
+
+@drawmap
+@update
+
+@do `p21 is `p03
+
+@do `p22 is S&wep_num
+@do `p22 + `p04
+
+@do `p23 is S&arm_num
+@do `p23 + `p05
+
+@do `p26 random `p05
+@do `p27 random `p04
+
+@do `p21 * 4
+@do `p26 random `p05
+@do `p23 - `p26
+@do `p22 - `p27
+@do `p26 random `p05
+@do `p27 random `p04
+@do `p22 - `p27
+@do `p23 - `p26
+@do `p27 random `p04
+@do `p23 - `p27
+@do `p27 random `p04
+@do `p23 - `p27
+@do `p27 random `p04
+@do `p23 - `p27
+@fight
+;name
+Mother Dragon
+;string said when you see him
+It stares at you as if you were a speck of dust...
+;power move kill string
+My hell...talk about luck!
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+blows fire at you|`p22
+swings its tail at you|`p22
+catches you between its teeth|`p22
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+300000
+;experience
+15000
+;hit points
+`p21
+;if win: ref file|name or NONE
+TENSE3.REF|MOTHERWIN
+;if lose: ref file|name or NONE
+TENSE3.REF|DRAGONDIE
+;if runs: ref file|name or NONE
+TENSE3.REF|MOTHERRUN
+@closescript
+@end
+
+@#MOTHERRUN
+@do goto MOTHER
+
+
+@#MOTHERWIN
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `r4`% THE DRAGON FALLS `r0
+
+ `2Despite you're disbelief, the dragon falls into the muck and stomach acid
+ of the thing. Slain, it twists on its side, contorts its eyebrows in agony,
+ roars and vomits, spits blood -- at last staring you in the eyes, its last
+ breath wheezes out like thick urine.
+
+ `!YOU HAVE BEAT THE MOTHER OF ALL RED DRAGONS!
+
+`k `2The sphincter behind it opens, and, in what may very well be the greatest
+ shit of all time, you, Mike, Ryan, Casey, Jason, and the Missionary squirt
+ out flailing in grotesque juice and land head-first beneath the belly of the
+ thing.
+
+ `k `2The Tension Women were upset with you, but the mob from the surrounding
+ towns of Greentree, Stonebrook, and Porttown, had them legally imprisoned
+ once again in their own house.
+
+ `!YOU ARE DECLARED A HERO...
+
+ `2...for saving Mike, Ryan, Casey, and Jason. For returning the Missionary
+ to his home and family. And for, of course, killing that beast, that
+ dreaded terror, `0The Mother of all Red Dragons.
+
+ `k
+
+ `2You mother is proud. Your father would be, too.
+ You are an idol.
+ You are a God.
+ You are `$`n`2!
+
+ `2You are also very tired. What an adventure...
+
+ `%Hitpoints Increased by 50
+ `$Experience increased by 15,000!
+ `!Gold increased by 300,000!
+
+ `@Quest points increased by 1000!
+
+ `2...thank you for playing `%House of the Incredible Tensions `2by
+ Chris Yeates (`0The Loose Screw BBS `2(`0801`2)`0561`2-`04780!
+
+ @do `p03 + 50
+ @do money + 300000
+ @do `p01 + 15000
+ @do `p18 + 1000
+ @do `p02 is `p03
+ @do map is 815
+ @do x is 37
+ @do y is 18
+ @datasave TENSEFIN.DAT &playernum 1
+@writefile lognow.txt
+`4-`@= `r0`$`n`% has slaughtered `@The Mother of all Red Dragons `% and
+`4-`@= `%become a legendary hero. He has saved those enslaved in the belly of
+`4-`@= `%the thing, and surrendered a new hope to the people of this world.
+
+`4-`@= `$The Red Dragons will never be feared again!
+
+ `7All this and more at the `%House of the Incredible Tensions
+ `2-`0=`2-`%=`2-`0=`2-
+@if TENSE.TXT exist false then do
+ @begin
+ @writefile TENSE.TXT
+[?7h[255D[0;1;30m�[0mĴ [1mHouse of the Incredible Tensions
+ [0mWho's Passed the Game Listing
+ [1;33m�[30m�����������������������������������������������������������������������[33m�
+
+ @end
+ @writefile TENSE.TXT
+ `0`n`2 found and slaughtered the `@Mother of all Red Dragons `2on day `0&time!
+ @loadmap &map
+ @drawmap
+ @update
+ @end
+
+
diff --git a/xtrn/lord2/cnw/tensem.ref b/xtrn/lord2/cnw/tensem.ref
new file mode 100644
index 0000000000000000000000000000000000000000..e4e4b1de3a8b21a6df49cf7f55b2aee1e8a7a638
--- /dev/null
+++ b/xtrn/lord2/cnw/tensem.ref
@@ -0,0 +1,572 @@
+; Script file TENSEM.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:38 2001
+
+@DECLARE monster1 000000445
+@DECLARE monster2 000001687
+@DECLARE monster3 000002957
+@DECLARE monster4 000004199
+@DECLARE monster5 000005462
+@DECLARE monster6 000006689
+@DECLARE monster7 000007959
+@DECLARE monster8 000009225
+@DECLARE monster9 000010506
+@DECLARE monster10 000011787
+@DECLARE fight 000013050
+@NOCHECK
+; End of .REF index
+
+@#monster1
+@if `i73 > 0 then do
+ @begin
+ @do `p20 is `i73
+ @show
+`r0`c `r1`% Smackrod Inspector `r0
+
+ `0"Hello there, sir," `2he says to you and salutes. `0"I am the smackrod
+ inspector. Apparently, you're carrying `$`p20 `0smackrod(s). If you'd please
+ deposit it here with me, you can pick it back up just outside in the pot..."
+
+`k `0"Perhaps I'm not being clear," `2the Inspector says to you. `0"You
+ have NO choice. I will take your smackrods now. You can pick them back up
+ when you leave!"
+
+`k
+@do `p20 is `i73
+@drawmap
+@update
+@datasave TENSEDP.DAT &playernum `p20
+@do `i73 - `p20
+@do saybar
+`!You give the inspector your `p20 smackrod(s)
+@closescript
+@end
+
+@fight
+;name
+Strange Tension Child
+;string said when you see him
+A quite furry kid munches on your ankles.
+;power move kill string
+You just hate kids.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+tears your tongue out|48
+bites at your crotch|55
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+54
+;gold reward
+289
+;experience
+122
+;hit points
+80
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@if `i73 > 0 then do
+ @begin
+ @do `p20 is `i73
+ @show
+`r0`c `r1`% Smackrod Inspector `r0
+
+ `0"Hello there, sir," `2he says to you and salutes. `0"I am the smackrod
+ inspector. Apparently, you're carrying `$`p20 smackrod(s). If you'd please
+ deposit it here with me, you can pick it back just outside in the pot..."
+
+`k `0"Perhaps I'm not being clear," `2the Inspector says to you. `0"You
+ have NO choice. I will take your smackrods now. You can pick them back up
+ when you leave!"
+
+`k
+@do `p20 is `i73
+@drawmap
+@update
+@datasave TENSEDP.DAT &playernum `p20
+@do `i73 - `p20
+@do saybar
+`!You give the inspector your `p20 smackrod(s)
+@closescript
+@end
+@fight
+;name
+Tension Reaper
+;string said when you see him
+`0"I'm like Death, but different!" `2this thing says.
+;power move kill string
+He disappears, maybe into oblivion...
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+stabs at you with his fingers|106
+breathes on you|86
+headbutts you|105
+NONE|NONE
+NONE|NONE
+;defense
+29
+;gold reward
+386
+;experience
+98
+;hit points
+346
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+STONEP.REF|THIEF
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@if `i73 > 0 then do
+ @begin
+ @do `p20 is `i73
+ @show
+`r0`c `r1`% Smackrod Inspector `r0
+
+ `0"Hello there, sir," `2he says to you and salutes. `0"I am the smackrod
+ inspector. Apparently, you're carrying `$`p20 smackrod(s). If you'd please
+ deposit it here with me, you can pick it back just outside in the pot..."
+
+`k `0"Perhaps I'm not being clear," `2the Inspector says to you. `0"You
+ have NO choice. I will take your smackrods now. You can pick them back up
+ when you leave!"
+
+`k
+@do `p20 is `i73
+@drawmap
+@update
+@datasave TENSEDP.DAT &playernum `p20
+@do `i73 - `p20
+@do saybar
+`!You give the inspector your `p20 smackrod(s)
+@closescript
+@end
+@fight
+;name
+Tension's Pet Gerbil
+;string said when you see him
+Now that is one damn big gerbil!
+;power move kill string
+You squash its furry hide...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+munches on your crotch|128
+swallows you whole|147
+vomits on you|67
+NONE|NONE
+NONE|NONE
+;defense
+43
+;gold reward
+332
+;experience
+189
+;hit points
+243
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@if `i73 > 0 then do
+ @begin
+ @do `p20 is `i73
+ @show
+`r0`c `r1`% Smackrod Inspector `r0
+
+ `0"Hello there, sir," `2he says to you and salutes. `0"I am the smackrod
+ inspector. Apparently, you're carrying `$`p20 smackrod(s). If you'd please
+ deposit it here with me, you can pick it back just outside in the pot..."
+
+`k `0"Perhaps I'm not being clear," `2the Inspector says to you. `0"You
+ have NO choice. I will take your smackrods now. You can pick them back up
+ when you leave!"
+
+`k
+@do `p20 is `i73
+@drawmap
+@update
+@datasave TENSEDP.DAT &playernum `p20
+@do `i73 - `p20
+@do saybar
+`!You give the inspector your `p20 smackrod(s)
+@closescript
+@end
+@fight
+;name
+Tension Butler
+;string said when you see him
+A stupid looking but very large man approaches you.
+;power move kill string
+You feel kind of bad. Like you killed Lurch or something.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+steps on you|127
+bores you|106
+greets you|189
+NONE|NONE
+NONE|NONE
+;defense
+63
+;gold reward
+287
+;experience
+190
+;hit points
+256
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@if `i73 > 0 then do
+ @begin
+ @do `p20 is `i73
+ @show
+`r0`c `r1`% Smackrod Inspector `r0
+
+ `0"Hello there, sir," `2he says to you and salutes. `0"I am the smackrod
+ inspector. Apparently, you're carrying `$`p20 smackrod(s). If you'd please
+ deposit it here with me, you can pick it back just outside in the pot..."
+
+`k `0"Perhaps I'm not being clear," `2the Inspector says to you. `0"You
+ have NO choice. I will take your smackrods now. You can pick them back up
+ when you leave!"
+
+`k
+@do `p20 is `i73
+@drawmap
+@update
+@datasave TENSEDP.DAT &playernum `p20
+@do `i73 - `p20
+@do saybar
+`!You give the inspector your `p20 smackrod(s)
+@closescript
+@end
+@fight
+;name
+Tension Twins
+;string said when you see him
+Two pyschotic looking kids run at you.
+;power move kill string
+You, uh, kill them...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+squeeze you between them|160
+spit on you|146
+trip you|90
+kiss you|325
+NONE|NONE
+;defense
+42
+;gold reward
+245
+;experience
+146
+;hit points
+160
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster6
+@if `i73 > 0 then do
+ @begin
+ @do `p20 is `i73
+ @show
+`r0`c `r1`% Smackrod Inspector `r0
+
+ `0"Hello there, sir," `2he says to you and salutes. `0"I am the smackrod
+ inspector. Apparently, you're carrying `$`p20 smackrod(s). If you'd please
+ deposit it here with me, you can pick it back just outside in the pot..."
+
+`k `0"Perhaps I'm not being clear," `2the Inspector says to you. `0"You
+ have NO choice. I will take your smackrods now. You can pick them back up
+ when you leave!"
+
+`k
+@do `p20 is `i73
+@drawmap
+@update
+@datasave TENSEDP.DAT &playernum `p20
+@do `i73 - `p20
+@do saybar
+`!You give the inspector your `p20 smackrod(s)
+@closescript
+@end
+@fight
+;name
+Tension Ghost
+;string said when you see him
+A really uncreative enemy approaches you.
+;power move kill string
+In space, no one can hear you scream...what!?!?
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+envelops you|126
+flies inside your soul|116
+takes a ghostly pee on you|195
+NONE|NONE
+NONE|NONE
+;defense
+80
+;gold reward
+525
+;experience
+245
+;hit points
+98
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster7
+@if `i73 > 0 then do
+ @begin
+ @do `p20 is `i73
+ @show
+`r0`c `r1`% Smackrod Inspector `r0
+
+ `0"Hello there, sir," `2he says to you and salutes. `0"I am the smackrod
+ inspector. Apparently, you're carrying `$`p20 smackrod(s). If you'd please
+ deposit it here with me, you can pick it back just outside in the pot..."
+
+`k `0"Perhaps I'm not being clear," `2the Inspector says to you. `0"You
+ have NO choice. I will take your smackrods now. You can pick them back up
+ when you leave!"
+
+`k
+@do `p20 is `i73
+@drawmap
+@update
+@datasave TENSEDP.DAT &playernum `p20
+@do `i73 - `p20
+@do saybar
+`!You give the inspector your `p20 smackrod(s)
+@closescript
+@end
+@fight
+;name
+Tension Dragon
+;string said when you see him
+A small violet dragon approaches you. How cute.
+;power move kill string
+Reminds you of that famous ol' Red Dragon.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+flies up your ass|118
+flies up your pants|90
+flies up your nose|110
+NONE|NONE
+NONE|NONE
+;defense
+55
+;gold reward
+405
+;experience
+135
+;hit points
+146
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster8
+@if `i73 > 0 then do
+ @begin
+ @do `p20 is `i73
+ @show
+`r0`c `r1`% Smackrod Inspector `r0
+
+ `0"Hello there, sir," `2he says to you and salutes. `0"I am the smackrod
+ inspector. Apparently, you're carrying `$`p20 smackrod(s). If you'd please
+ deposit it here with me, you can pick it back just outside in the pot..."
+
+`k `0"Perhaps I'm not being clear," `2the Inspector says to you. `0"You
+ have NO choice. I will take your smackrods now. You can pick them back up
+ when you leave!"
+
+`k
+@do `p20 is `i73
+@drawmap
+@update
+@datasave TENSEDP.DAT &playernum `p20
+@do `i73 - `p20
+@do saybar
+`!You give the inspector your `p20 smackrod(s)
+@closescript
+@end
+@fight
+;name
+Kung-Fu Tension
+;string said when you see him
+These enemies just good more mundane, less creative.
+;power move kill string
+`$"Better go back to the Dojo Wang."
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+judo chops at you neck|124
+throws a fireball|120
+uses his ninja throwing stars|145
+NONE|NONE
+NONE|NONE
+;defense
+48
+;gold reward
+450
+;experience
+110
+;hit points
+145
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster9
+@if `i73 > 0 then do
+ @begin
+ @do `p20 is `i73
+ @show
+`r0`c `r1`% Smackrod Inspector `r0
+
+ `0"Hello there, sir," `2he says to you and salutes. `0"I am the smackrod
+ inspector. Apparently, you're carrying `$`p20 smackrod(s). If you'd please
+ deposit it here with me, you can pick it back just outside in the pot..."
+
+`k `0"Perhaps I'm not being clear," `2the Inspector says to you. `0"You
+ have NO choice. I will take your smackrods now. You can pick them back up
+ when you leave!"
+
+`k
+@do `p20 is `i73
+@drawmap
+@update
+@datasave TENSEDP.DAT &playernum `p20
+@do `i73 - `p20
+@do saybar
+`!You give the inspector your `p20 smackrod(s)
+@closescript
+@end
+@fight
+;name
+Tension Grandfather
+;string said when you see him
+He's ancient, slow, but sturdy...
+;power move kill string
+Quite the grumpy old man...
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+slaps you in the face|119
+slaps you on the hand|90
+slaps you on the ass|105
+slaps you where the sun don't shine|167
+NONE|NONE
+;defense
+60
+;gold reward
+500
+;experience
+130
+;hit points
+165
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster10
+@if `i73 > 0 then do
+ @begin
+ @do `p20 is `i73
+ @show
+`r0`c `r1`% Smackrod Inspector `r0
+
+ `0"Hello there, sir," `2he says to you and salutes. `0"I am the smackrod
+ inspector. Apparently, you're carrying `$`p20 smackrod(s). If you'd please
+ deposit it here with me, you can pick it back just outside in the pot..."
+
+`k `0"Perhaps I'm not being clear," `2the Inspector says to you. `0"You
+ have NO choice. I will take your smackrods now. You can pick them back up
+ when you leave!"
+
+`k
+@do `p20 is `i73
+@drawmap
+@update
+@datasave TENSEDP.DAT &playernum `p20
+@do `i73 - `p20
+@do saybar
+`!You give the inspector your `p20 smackrod(s)
+@closescript
+@end
+@fight
+;name
+Red Dragon Minister
+;string said when you see him
+`2My God, what IS that thing!
+;power move kill string
+`2That was close.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+attacks you with a red-dragon arm|282
+blows red-dragon breath on you|186
+farts red-dragon fart on you|195
+NONE|NONE
+NONE|NONE
+;defense
+58
+;gold reward
+350
+;experience
+165
+;hit points
+160
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#FIGHT
+@do `p20 random 12 1
+@busy
+@do `p20 random 10 1
+@do goto monster`p20
diff --git a/xtrn/lord2/cnw/theif.ref b/xtrn/lord2/cnw/theif.ref
new file mode 100644
index 0000000000000000000000000000000000000000..b2d8d22494d9f38917f85fff7fedeb08211c11de
--- /dev/null
+++ b/xtrn/lord2/cnw/theif.ref
@@ -0,0 +1,336 @@
+; Script file THEIF.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:39 2001
+
+@DECLARE monster1 000000444
+@DECLARE monster2 000001002
+@DECLARE monster3 000001558
+@DECLARE monster4 000002129
+@DECLARE monster5 000002735
+@DECLARE monster6 000003300
+@DECLARE monster7 000003931
+@DECLARE monster8 000004522
+@DECLARE monster9 000005089
+@DECLARE monster10 000005674
+@DECLARE fight 000006262
+@NOCHECK
+; End of .REF index
+
+@#monster1
+@fight
+;name
+Rookie Theif
+;string said when you see him
+"Uhh... I'm gonna rob you."
+;power move kill string
+Uhh... he needs some training.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+stabs you in the leg|67
+smacks you really hard|25
+POWER MOVE: GIRLY SCREAM|90
+NONE|NONE
+NONE|NONE
+;defense
+34
+;gold reward
+289
+;experience
+122
+;hit points
+50
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Normal Theif
+;string said when you see him
+"Stick em up!" says the theif.
+;power move kill string
+He eerily smiles as you take his life.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+stabs you in the leg|68
+hits you really hard|50
+cuts your arm|45
+NONE|NONE
+NONE|NONE
+;defense
+40
+;gold reward
+10
+;experience
+98
+;hit points
+222
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+STONEP.REF|THIEF
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Master Theif
+;string said when you see him
+The bush in front of you begins to move.
+;power move kill string
+The thing has just had its last transformation.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+slashes your throat|45
+POWER MOVE: LOUD SCREAM|77
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+55
+;gold reward
+100
+;experience
+632
+;hit points
+203
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+3 Headed Hydra
+;string said when you see him
+You hear a loud noise coming from the ocean
+;power move kill string
+You take home one of its heads as a gift for ma.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+shoots fire at you|122
+attempts to eat your head|25
+knocks you off into some rocks|66
+NONE|NONE
+NONE|NONE
+;defense
+55
+;gold reward
+1000
+;experience
+1000
+;hit points
+1000
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Roaming Mob
+;string said when you see him
+`0"Hey there s&he is!" `2 you hear.
+;power move kill string
+Just go away you losers!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+chase you down|80
+use their pitchforks and shovels on you|95
+let loose the dogs|78
+NONE|NONE
+NONE|NONE
+;defense
+30
+;gold reward
+480
+;experience
+170
+;hit points
+350
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster6
+@fight
+;name
+Angry Mage
+;string said when you see him
+`2You see a light up ahead, of a fireball headed towards you.
+;power move kill string
+Magic is how long it took me to kick your ass!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+throws a fireball|85
+throws a iceball|100
+calls upon the dead|79
+throws lightning at you|105
+smacks you with his staff|81
+;defense
+27
+;gold reward
+401
+;experience
+156
+;hit points
+480
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster7
+@fight
+;name
+Lost Gladiator
+;string said when you see him
+`0"Hey, have you seen Hawk or Ice?" `2you hear.
+;power move kill string
+`$"I am the greatest!"
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+nails you with a tennis ball|87
+wrestles you down|102
+smashes you with a stick|76
+talks smack to you|88
+NONE|NONE
+;defense
+32
+;gold reward
+550
+;experience
+160
+;hit points
+400
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster8
+@fight
+;name
+Shawn
+;string said when you see him
+`0"My 90 is just as fast as your 133!" `2 you hear.
+;power move kill string
+`$"Over Clock this!"`2
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+smacks you with his keyboard|80
+give you a virus|78
+blows up your chopper|97
+NONE|NONE
+NONE|NONE
+;defense
+33
+;gold reward
+430
+;experience
+160
+;hit points
+210
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster9
+@fight
+;name
+Rogue Officer
+;string said when you see him
+`0"I could help you, but ..." `2 you hear.
+;power move kill string
+So that's the way the man's gonna be?
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits with him mace|85
+boots you in the head|99
+nails you with a poison dart|105
+NONE|NONE
+NONE|NONE
+;defense
+25
+;gold reward
+410
+;experience
+156
+;hit points
+130
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster10
+@fight
+;name
+Mercenary
+;string said when you see him
+`0"I'm looking for a war ..."
+;power move kill string
+`$"Looks like he was pressed for time."
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+jabs you with his spear|97
+connects with his morning star|105
+rams his spear through your arm|115
+NONE|NONE
+NONE|NONE
+;defense
+27
+;gold reward
+760
+;experience
+166
+;hit points
+250
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+
+@#FIGHT
+@do `p20 random 12 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@busy
+@do `p20 random 10 1
+@do goto monster`p20
diff --git a/xtrn/lord2/cnw/thief.ref b/xtrn/lord2/cnw/thief.ref
new file mode 100644
index 0000000000000000000000000000000000000000..ac0cf87797d64bda92a6d6db22f56e2b0b771db9
--- /dev/null
+++ b/xtrn/lord2/cnw/thief.ref
@@ -0,0 +1,511 @@
+; Script file THIEF.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:22 2001
+
+@DECLARE thief1 000001078
+@DECLARE thief2 000001178
+@DECLARE thief3 000001273
+@DECLARE thief4 000001381
+@DECLARE thief5 000001482
+@DECLARE stall 000001590
+@DECLARE vault 000001680
+@DECLARE table 000001769
+@DECLARE house1 000001891
+@DECLARE nightable2 000002704
+@DECLARE nightable3 000003000
+@DECLARE chest1 000003301
+@DECLARE chest2 000003562
+@DECLARE chest3 000003833
+@DECLARE chest4 000004148
+@DECLARE chest5 000004448
+@DECLARE chest6 000004765
+@DECLARE chest7 000005062
+@DECLARE chest8 000005368
+@DECLARE junk 000005673
+@DECLARE nightable1 000005773
+@DECLARE windowfall 000005866
+@DECLARE sign 000006321
+@DECLARE chest9 000006386
+@DECLARE chest 000006457
+@DECLARE nightstand 000006569
+@DECLARE fire 000006669
+@DECLARE door 000006742
+@DECLARE coffer 000006835
+@DECLARE toilet 000006935
+@DECLARE window 000006982
+@DECLARE master 000007070
+@DECLARE ststart 000007124
+@DECLARE desk 000008828
+@DECLARE ststart 000008882
+@NOCHECK
+; End of .REF index
+
+@#thief1
+@do saybar
+`%Did you get your guild license yet? Go to the front desk.
+@do moveback
+
+@#thief2
+@do saybar
+`%What do you want? Can't you see I am busy drinking!!
+@do moveback
+
+@#thief3
+@do saybar
+`%Be carefull with the Master, he can kill you faster you can blink.
+@do moveback
+
+@#thief4
+@do saybar
+`%Only the Master can buy anything that you steal off others.
+@do moveback
+
+@#thief5
+@do saybar
+`%Out of my way, I hear there is a house in Greentree that I can rob.
+@do moveback
+
+@#stall
+@do saybar
+`%If you don't mind? This stall is already taken!!
+@do moveback
+
+@#vault
+@do saybar
+`%Sorry, nobody but the Master goes in the vault!!
+@do moveback
+
+@#TABLE
+@do saybar
+`%There is just food on the table so you try some. `4[25 HP added]
+@do `p02 + 25
+@do moveback
+
+@#house1
+@if `i90 < 1 then do
+ @begin
+ @do saybar
+`%You cannot get in, the door is locked. Look for some lockpicks!!
+ @do moveback
+ @end
+@if `i90 > 0 then do
+ @begin
+ @show
+ `r0`c Picking a Lock
+
+ `8You carefully take your lockpicks out of your
+ `8thieves' tool kit and use it to pick the lock.
+ `8After a couple minutes and without anyone noticing
+ `8what you are doing, you make it inside. Luckily
+ `8the owners are gone for a couple days or you
+ `8might be in deep trouble. This is the place where
+ `8the crime family lives in this town. Now you will
+ `8be the richest crime family. =:-)
+ `k
+ @do map is 1085
+ @loadmap &map
+ @do y is 20
+ @do x is 40
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#NIGHTABLE2
+@if bitcheck `t50 1 0 then do
+ @begin
+ @DO SAYBAR
+`%You find a Vase on the night table and put it in your backpack
+ @bitset `t50 1 1
+ @do `i91 + 1
+ @do moveback
+ @end
+@if bitcheck `t50 1 1 then do
+ @begin
+ @do saybar
+`%This night table is empty.
+ @do moveback
+ @end
+
+@#NIGHTABLE3
+@if bitcheck `t58 1 0 then do
+ @begin
+ @DO SAYBAR
+`%There is a ring sitting on the night table so you stuff it in your pack
+ @bitset `t58 1 1
+ @do `i92 + 1
+ @do moveback
+ @end
+@if bitcheck `t58 1 1 then do
+ @begin
+ @do saybar
+`%This night table is empty.
+ @do moveback
+ @end
+
+@#CHEST1
+@if bitcheck `t59 1 0 then do
+ @begin
+ @DO SAYBAR
+`%You find a gold coffer in this chest!
+ @bitset `t59 1 1
+ @do `i93 + 1
+ @do moveback
+ @end
+@if bitcheck `t59 1 1 then do
+ @begin
+ @do saybar
+`%This chest is empty.
+ @do moveback
+ @end
+
+@#CHEST2
+@if bitcheck `t57 1 1 then do
+ @begin
+ @do saybar
+`%This chest is empty.
+ @do moveback
+ @end
+@if bitcheck `t57 1 0 then do
+ @begin
+ @DO SAYBAR
+`%You find a small bag of jewels in this chest.
+ @bitset `t57 1 1
+ @do `i92 + 1
+ @do moveback
+ @end
+
+
+@#CHEST3
+@if bitcheck `t56 1 0 then do
+ @begin
+ @DO SAYBAR
+`%You find 400 gold and a vase all wrapped up in here so you take it all.
+ @do money + 400
+ @do `i91 + 1
+ @bitset `t56 1 1
+ @do moveback
+ @end
+@if bitcheck `t56 1 1 then do
+ @begin
+ @do saybar
+`%This chest is empty.
+ @do moveback
+ @end
+
+
+@#CHEST4
+@if bitcheck `t55 1 0 then do
+ @begin
+ @DO SAYBAR
+`%This chest has a necklace as well as a couple bracelets so you pocket them
+ @do `i92 + 3
+ @bitset `t55 1 1
+ @do moveback
+ @end
+@if bitcheck `t55 1 1 then do
+ @begin
+ @do saybar
+`%This chest is empty.
+ @do moveback
+ @end
+
+
+@#CHEST5
+@if bitcheck `t54 1 0 then do
+ @begin
+ @DO SAYBAR
+`%You find 154 gold and 3 rings in here but one of them is missing the gem.
+ @do money + 154
+ @do `i92 + 2
+ @bitset `t54 1 1
+ @do moveback
+ @end
+@if bitcheck `t54 1 1 then do
+ @begin
+ @do saybar
+`%This chest is empty.
+ @do moveback
+ @end
+
+
+@#CHEST6
+@if bitcheck `t53 1 0 then do
+ @begin
+ @DO SAYBAR
+`%There is a large Vase in here that looks imported, must be worth a lot!
+ @do `i91 + 1
+ @bitset `t53 1 1
+ @do moveback
+ @end
+@if bitcheck `t53 1 1 then do
+ @begin
+ @do saybar
+`%This chest is empty.
+ @do moveback
+ @end
+
+
+@#CHEST7
+@if bitcheck `t52 1 0 then do
+ @begin
+ @DO SAYBAR
+`%All that is in here is 2 bags of gold [$734], After counting it you pocket it
+ @do money + 734
+ @bitset `t52 1 1
+ @do moveback
+ @end
+@if bitcheck `t52 1 1 then do
+ @begin
+ @do saybar
+`%This chest is empty.
+ @do moveback
+ @end
+
+
+@#CHEST8
+@if bitcheck `t51 1 0 then do
+ @begin
+ @DO SAYBAR
+`%You find another gold coffer in here and 493 gold in that coffer.
+ @do `i93 + 1
+ @do money + 493
+ @bitset `t51 1 1
+ @do moveback
+ @end
+@if bitcheck `t51 1 1 then do
+ @begin
+ @do saybar
+`%This chest is empty.
+ @do moveback
+ @end
+
+@#JUNK
+@do saybar
+`%Everything in this room is useless, you wonder why they keep it all!
+
+@#NIGHTABLE1
+@do saybar
+`%This night table is empty of anything of value.
+@do moveback
+
+@#windowfall
+@show
+`1
+`1
+`1
+`1
+`%[`8You fell out of the window from the top floor, `%]
+`%[`8If you survive this then you must be lucky. But `%]
+`%[`8you might want to watch out for those windows from `%]
+`%[`8now on because you might not be as lucky next time.`%]
+`k
+ @do `p02 - 25
+ @if `p02 < 1 then do
+ @begin
+ @run diefire in gametxt.ref
+ @end
+ @do map is 151
+ @loadmap &map
+ @do y is 10
+ @do x is 60
+ @drawmap
+ @update
+@
+
+@#SIGN
+@DO SAYBAR
+`%Thieves Guild Union 101
+@do moveback
+
+@#CHEST9
+@DO SAYBAR
+`%There is nothing in the chest.
+@do moveback
+
+@#CHEST
+@DO SAYBAR
+`%This chest is locked, the owner must know how to keep thieves out!
+@do moveback
+
+@#nightstand
+@do saybar
+`%The drawers seem to be stuck, there must be something in it!
+@do moveback
+
+@#fire
+@do saybar
+`%You warm your hand over the fire.
+@do moveback
+
+@#door
+@do saybar
+`%The door is, unlocked?!? This only thing here that isn't locked!
+
+@#coffer
+@do saybar
+`%From the looks of this coffer, it must be filled with gold
+@do moveback
+
+@#toilet
+@do saybar
+`%Ah, that felt good.
+
+@#window
+@do saybar
+`%Watch your step, you might fall out next time!
+@do moveback
+
+@#master
+@offmap
+@do moveback
+@do `v01 is 1
+@label ststart
+@show
+`r0`c `%Thieves Guild Union 101
+
+ `%Standing before you is the master to the Thieves Guild Union 101
+ `%and from the looks of him you better watch your step around here.
+
+@do write
+`x`x
+@choice
+>`i91 0 `9Fence a `%Vase `9you stole from some place nearby `@[`$$ `%500`@]
+>`i92 0 `9Fence a `%Necklace `9you stole from some place nearby `@[`$$ `%1500`@]
+>`i93 0 `9Fence a `%Gold Coffer `9you stole from some place nearby `@[`$$ `%5000`@]
+Leave before he kills you.
+@show
+`\
+@if responce is 4 then do begin
+ @begin
+ @do map is 1088
+ @loadmap &map
+ @do y is 7
+ @do x is 24
+ @drawmap
+ @update
+ @do saybar
+ `%Come back later on then.
+ @closescript
+ @end
+@if responce is 3 then do begin
+ @begin
+ @do money + 5000
+ @do `i93 - 1
+ @do map is 1088
+ @loadmap &map
+ @do y is 7
+ @do x is 24
+ @drawmap
+ @update
+ @do saybar
+ `8Thanks for that `%Gold Coffer`8. I may be able to make some money off this!
+ @closescript
+ @end
+@if responce is 2 then do begin
+ @begin
+ @do money + 1500
+ @do `i92 - 1
+ @do map is 1088
+ @loadmap &map
+ @do y is 7
+ @do x is 24
+ @drawmap
+ @update
+ @do saybar
+ `8Thanks for that `%Necklace`8. I may be able to make some money off this!
+ @closescript
+ @end
+@if responce is 1 then do begin
+ @begin
+ @do money + 500
+ @do `i91 - 1
+ @do map is 1088
+ @loadmap &map
+ @do y is 7
+ @do x is 24
+ @drawmap
+ @update
+ @do saybar
+ `8Thanks for that `%Vase`8. I may be able to make some money off this!
+ @closescript
+ @end
+@if responce is 4 then goto ststart
+@if responce is 3 then goto ststart
+@if responce is 2 then goto ststart
+@if responce is 1 then goto ststart
+@drawmap
+@update
+@do moveback
+
+
+@#desk
+@offmap
+@do moveback
+@do `v01 is 1
+@label ststart
+@show
+`r0`c `%Thieves Guild Union 101
+
+ `%You are standing at the front desk to the Thieves' Guild Union 101.
+ `%This is where you can fence your stuff you steal but first you need
+ `%to buy a license. It is only 1000$.
+
+@do write
+`x`x
+@choice
+<`i90 1 `9Purchase a License for thieving on this continant `@[`$$ `%1,000`@]
+<`i20 1 `9Purchase a map of the world `@[`$$ `% 25`@]
+`%Leave before he kills you.
+@show
+`\
+@if responce is 3 then do begin
+ @begin
+ @do map is 1090
+ @loadmap &map
+ @do y is 5
+ @do x is 53
+ @drawmap
+ @update
+ @do saybar
+ `%Come back later on then.
+ @closescript
+ @end
+@if responce is 2 then do begin
+ @begin
+ @do money - 25
+ @do `i20 + 1
+ @do map is 1090
+ @loadmap &map
+ @do y is 5
+ @do x is 53
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 1 then do begin
+ @begin
+ @if money < 1000 then do
+ @begin
+ @show
+ `%"You don't have enough money you dork!"
+ `k
+ @do goto ststart
+ @end
+ @do money - 1000
+ @do `i90 + 1
+ @do map is 1090
+ @loadmap &map
+ @do y is 5
+ @do x is 53
+ @drawmap
+ @update
+ @do saybar
+ `%Have fun thieving!!!
+ @closescript
+ @end
+@if responce is 3 then goto ststart
+@if responce is 2 then goto ststart
+@if responce is 1 then goto ststart
+@drawmap
+@update
+@do moveback
+
diff --git a/xtrn/lord2/cnw/thod.ref b/xtrn/lord2/cnw/thod.ref
new file mode 100644
index 0000000000000000000000000000000000000000..88163485ac618a8e2a6f5370e288d74f165b72cb
--- /dev/null
+++ b/xtrn/lord2/cnw/thod.ref
@@ -0,0 +1,216 @@
+; Script file THOD.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:26 2001
+
+@DECLARE thewall 000000436
+@DECLARE treasure 000000504
+@DECLARE sign 000000778
+@DECLARE dream 000000855
+@DECLARE owner 000004299
+@NOCHECK
+; End of .REF index
+
+;This if the REF file belonging to the IGM The House of Dreams. This IGM
+;is written by Tien Lung and is good for once a day things. This is my
+;first rather simple IGM.
+
+@#thewall
+@if `p09 > 20 then do
+ @begin
+ @do moveback
+ @end
+
+@#treasure
+@datanewday thod1.idf
+@dataload thod1.idf &playernum `p27
+@if `p27 not 1 then do
+ @begin
+ @do saybar
+`2You get ahold of a sack with 3000 gold.
+ @do money + 3000
+ @datasave thod1.idf &playernum 1
+ @closescript
+ @end
+@do saybar
+`2An empty storage case
+
+
+@#sign
+@do saybar
+`0The House of Dreams `2by `@Tien Lung
+@do moveback
+
+@#dream
+@do moveback
+@datanewday thod.idf
+@dataload thod.idf &playernum `p20
+
+@if `p20 not 1 then do
+ @begin
+ @do `p21 random 6 1
+ @if `p21 is 1 then do
+ @begin
+ @show
+`r0`c `r1 `%The Dream `r0
+
+ `2A beautiful `0green `2field surrounds you. Flowers dot the horizon and you
+ feel the beauty within yourself. Birds soar over head and you feel the same
+ energy in yourself. You feel like you have the energy to travel the world.
+ `k
+ `%500 EXTRA TURNS
+ `k
+ @do `p11 + 500
+ @end
+ @if `p21 is 2 then do
+ @begin
+ @show
+`r0`c `r1 `%The Dream `r0
+
+ `2You find yourself siting in the Inn of the `4Red Dragon `2back in `0Greentree
+ `2and notice strange people around. You see warriors, rogues, and wizards
+ sitting about drinking and generally have a good time.
+ `k
+ `2You believe you find yourself in the early days of the `4Red Dragon`2's
+ assault. You feel the rush of adventure and it makes you feel stronger.
+ `k
+ `%MUSCLE GOES UP BY ONE
+ `k
+ @do `p04 + 1
+ @end
+ @if `p21 is 3 then do
+ @begin
+ @show
+`r0`c `r1 `7A Nightmare `r0
+
+ `8Thunder and lightning crash down about you. Demons with decomposing
+ flesh dance about you, raising high their demonic and sickening weapons.
+ Several spit flames at you or stick you with their weapons and the horror
+ and pain make you ache before expected blow.
+ `k
+ `7Could this be your `@Final Nightmare`7?
+ `k
+ `4LOSE ONE DODGE
+ `k
+ @do `p05 - 1
+ @end
+ @if `p21 is 4 then do
+ @begin
+ @show
+`r0`c `r1 `%The Dream `r0
+
+ `2The wild cats of the Northlands run fast, but not as fast as you. You
+ seem to be wearing only enough fur for modesty reasons. Your feet barely
+ touch the ground as they only hit long enough to propel yourself further
+ and faster. Your muscles began to stretch and you seem more agile than
+ ever before.
+ `k
+ `%DODGE GOES UP BY ONE
+ `k
+ @do `p05 + 1
+ @end
+ @if `p21 is 5 then do
+ @begin
+ @show
+`r0`c `r1 `7A Nightmare `r0
+
+ `8A large clawed hand collides with your face, ripping you from where you
+ stand and tossing you over a hundred yards. Before you can get up, the
+ demon leaps the distance and lands on your legs painfully. With an evil
+ grin, it grabs both of your arms and tears them from their sockets. The
+ pain makes your upper body tighten up.
+ `k
+ `7Could this be your `@Final Nightmare`7?
+ `k
+ `4LOSE ONE MUSCLE
+ `k
+ @do `p04 - 1
+ @end
+ @if `p21 is 6 then do
+ @begin
+ @do `p26 is `p09
+ @do `p26 * 100
+ @show
+`r0`c `r1 `%The Dream `r0
+
+ `2The crashing of waves collide with the side of the ship. You are hit by
+ such a huge wave that you are tossed over the side of the ship.
+ `k
+ `2Surprisingly, you find that you can breath the water as you sink to the
+ bottom of the sea. As you touch the sea floor, you notice an old box
+ before you. Its a pirate's treasure.
+ `k
+ `2You quickly break the lock and open the lid to find lots of gold.
+ `k
+ `%`p26 GOLD PIECES ARE FOUND
+ `k
+ @do money + `p26
+ @end
+ @datasave thod.idf &playernum 1
+ @do x is 35
+ @do y is 14
+ @drawmap
+ @update
+ @closescript
+ @end
+@show
+`r0`c `r1 `%The Attempted Dream `r0
+
+ `2You have already dreamed today and so you toss and turn unsuccessfully
+ and remain awake.
+ `k
+ `7Try again Tomorrow.
+ `k
+@do x is 35
+@do y is 14
+@drawmap
+@update
+
+@#owner
+@do moveback
+@busy
+@do `v01 is 1
+@show
+`r0`c `r1 Bradley Aaron `r0
+
+ `2This young man seems to be fully rested and awaiting your words. His eyes
+ look at you with amazement that you stopped by and a smile crosses his lips
+
+ `0"Hello friend, want to dream?" `2he asks.
+
+@do write
+`x`x
+@choice
+First, how about a little more information
+Sure, I could use a nap
+Leave
+@if responce is 1 then do
+ @begin
+ @show
+ `\
+ `0"Always with the information..." `2he mumbles.
+ `0"Okay. First of all, I place you into the bed and make sure you are
+ comfortable. After, I start my spell and send you literally into your
+ dreams."
+ `k
+ `$"And then what happens?"
+ `k
+ `0"Simply put, you enter the dreams you currently have whether it was a
+ good one, or a bad one. Either way, you come out of your dreams just a
+ little different then you did when you went in."
+ `k
+ @do goto owner
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+ `\
+ `0"Then its a nap you shall have." `2he says as his hands begin to glow with
+ a golden light. `0"And soon your dream or nightmare shall become real."
+ `k
+ `2He helps you over to the bed and you get comfortable.
+ `k
+ `0"Let the dream take over..."
+ `k
+ @do goto dream
+ @end
+@drawmap
+@update
+@closescript
diff --git a/xtrn/lord2/cnw/time.dat b/xtrn/lord2/cnw/time.dat
new file mode 100644
index 0000000000000000000000000000000000000000..f33dfa25aa16a97ca941fe1d9cabdc3689179f3f
--- /dev/null
+++ b/xtrn/lord2/cnw/time.dat
@@ -0,0 +1 @@
+1
diff --git a/xtrn/lord2/cnw/tldrag.ref b/xtrn/lord2/cnw/tldrag.ref
new file mode 100644
index 0000000000000000000000000000000000000000..aadd1fb98b7a634e6f25a5816c0c15f0050598ed
--- /dev/null
+++ b/xtrn/lord2/cnw/tldrag.ref
@@ -0,0 +1,81 @@
+; Location added by CNW, removed all those extra REF files.
+
+@#LOCATION
+@If &map is 1274 then `p29 is 1
+@If &map is 1121 then `p29 is 1
+@If &map is 320 then `p29 is 2
+@If &map is 80 then `p29 is 2
+@If &map is 1255 then `p29 is 3
+@If &map is 1175 then `p29 is 3
+@If &map is 1028 then `p29 is 4
+@If &map is 1342 then `p29 is 4
+@If &map is 55 then `p29 is 5
+@If &map is 1340 then `p29 is 5
+
+
+@#VOITTO
+@routine LOCATION
+@do `p20 is 0
+@do `p21 is 0
+@do delete tltpet`p29.dat
+@readfile tlhouse`p29.dat
+`p20
+`s01
+@readfile tltname`p29.dat
+`s06
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0TeamLord Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has slained your pet Dragon
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+@do addlog
+ `0`n`2 has slained `s06's pet Dragon
+ @routine seperate in gametxt.ref
+
+@routine dismounth in vehicle.ref
+@if `p29 is 1 then do
+ @begin
+ @do x is 39
+ @do y is 19
+ @do map is 1121
+ @end
+@if `p29 is 2 then do
+ @begin
+ @do x is 39
+ @do y is 19
+ @do map is 80
+ @end
+@if `p29 is 3 then do
+ @begin
+ @do x is 39
+ @do y is 19
+ @do map is 1175
+ @end
+@if `p29 is 4 then do
+ @begin
+ @do x is 39
+ @do y is 19
+ @do map is 1342
+ @end
+@if `p29 is 5 then do
+ @begin
+ @do x is 39
+ @do y is 19
+ @do map is 1340
+ @end
+
+@loadmap &map
+@drawmap
+@update
+@closescript
+@end
+
+@#JUOKSU
+@drawmap
+@update
+@do saybar
+`$"Aaaarrgghh A Dragooonn!!Heeellp meee!!"`2you scream in pain
+@closescript
+@end
diff --git a/xtrn/lord2/cnw/tlhouse.ref b/xtrn/lord2/cnw/tlhouse.ref
new file mode 100644
index 0000000000000000000000000000000000000000..f980f8e37593563777d1459b96aaa7dac0276867
--- /dev/null
+++ b/xtrn/lord2/cnw/tlhouse.ref
@@ -0,0 +1,1810 @@
+@#LOCATION
+@If &map is 1274 then `p29 is 1
+@If &map is 1121 then `p29 is 1
+@If &map is 320 then `p29 is 2
+@If &map is 80 then `p29 is 2
+@If &map is 1255 then `p29 is 3
+@If &map is 1175 then `p29 is 3
+@If &map is 1028 then `p29 is 4
+@If &map is 1342 then `p29 is 4
+@If &map is 55 then `p29 is 5
+@If &map is 1340 then `p29 is 5
+
+
+@#REGISTER
+@routine LOCATION
+@do moveback
+@busy
+@if `p29 is 1 then `p20 is 11
+@if `p29 is 2 then `p20 is 12
+@if `p29 is 3 then `p20 is 13
+@if `p29 is 4 then `p20 is 14
+@if `p29 is 5 then `p20 is 15
+@routine getplace2 in myhome.ref
+@do saybar
+`$Would you like to make `s01 `$your home? [Y/n]
+@do readspecial `s05 YN
+@if `s05 is N then do
+ @begin
+ @do saybar
+`$No problem, maybe another time you will decide to make this your home.
+ @closescript
+ @end
+@if `s05 is Y then do
+ @begin
+ @do `p69 is `p20
+ @do saybar
+`$GREAT, `s01 `$is now your new home. Have fun.
+ @dataload tlban`p29.idf &playernum `p20
+ @if `p20 > 0 then goto BANNED
+ @datasave tlmember.idf &playernum `p29
+ @update
+ @closescript
+ @end
+@update
+@closescript
+
+
+@#CHATWALL
+@label latexwall
+@routine LOCATION
+@do moveback
+@busy
+@show
+`r0`c `r1 WRITING ON THE BOARD `r0
+
+@if tlchat`p29.txt exist false then do
+ @begin
+ @if `v06 is 1 then do
+ @begin
+ @writefile tlchat`p29.txt
+ `1L`9a`%t`9e`1x `2: `0Get Lost!
+ @end
+ @if `v06 is 0 then do
+ @begin
+ @writefile tlchat`p29.txt
+ `1L`9a`%t`9e`1x `2: `0www.angelfire.com/co/coolhouse
+ `1L`9a`%t`9e`1x `2: `0Coolhouse BBS open 8.00-22.00. Number:(09)827-3726
+ @end
+ @end
+
+@if tlchat`p29.txt exist true then do
+ @begin
+ @displayfile tlchat`p29.txt
+ @end
+
+@show
+@
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter a message or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile tlchat`p29.txt
+ `%`n`2 : `0`s03
+ @do trim tlchat`p29.txt 17
+ @drawmap
+ @update
+@end
+@end
+
+@#ownhouse
+@routine LOCATION
+@show
+`\`\`4You already have a teamhouse
+`k
+@drawmap
+@update
+@closescript
+@end
+
+@#nomoney
+@routine LOCATION
+@do move 20 20
+@do write
+`2HaHa I want to train but I have no money!
+@key bottom
+@drawmap
+@update
+@closescript
+
+@#NOTURNS
+@routine LOCATION
+@do move 20 20
+@do write
+`2HaHa I want to train but I have no time left!
+@key bottom
+@drawmap
+@update
+@closescript
+
+@#Dragon
+@do moveback
+@label tdoor
+@routine LOCATION
+@If tltpet`p29.dat exists false then do
+ @begin
+ @writefile tltpet`p29.dat
+1
+1
+1
+`%
+ @end
+
+@readfile tltpet`p29.dat
+`p20
+`p21
+`p22
+`s01
+@readfile tlhouse`p29.dat
+`p24
+@do `p23 = money
+@if `v05 > 0 then do
+ @begin
+ @do `p28 is `v05
+ @do `p28 / 96
+ @end
+
+@do move 1 1
+@clear screen
+@do `s03 is `p20
+@do `s04 is `p21
+@do `s05 is `p22
+@do pad `s03 8
+@do pad `s04 8
+@do pad `s05 8
+@routine viewdragon in dragons.ref
+@readfile tltpet`p29.dat
+`p20
+`p21
+`p22
+`s01
+@do move 50 1
+@do write
+`r1 `$- `2Train your pet Dragon `$- `r0
+@do move 55 2
+@do write
+`r4`% Strenght : `s03 `r0
+@do move 55 3
+@do write
+`r4`% Defense : `s04 `r0
+@do move 55 4
+@do write
+`r4`% Hitpoints: `s05 `r0
+@do move 55 5
+@do write
+`2Your money : `$$`p23`2
+
+@do `p27 is 7
+@if `p20 > 1000 then `p27 is 17
+@do move 56 `p27
+@do `v01 is 1
+@choice
+Help
+>&money 499 <`p28 `p11 `4Train 1 Strenght `2(`$$500`2)
+>&money 699 <`p28 `p11 `4Train 1 Defense `2(`$$700`2)
+>&money 399 <`p28 `p11 `4Train 1 Hitpoint `2(`$$400`2)
+=`p24 &playernum `s01Change dragon colour
+=`p24 &playernum `%Send dragon out
+`3Get Lost
+@if responce is 6 then do
+ @begin
+ @do move 55 7
+ @do write
+`0Your pet can only be sent
+ @do move 55 8
+ @do write
+`0to TEAMs that are at `@WAR
+ @do move 55 9
+ @do write
+`% `%
+ @do move 55 10
+ @do `p20 is 0
+ @do `p21 is 0
+ @do `p22 is 0
+ @do `p23 is 0
+ @do `p24 is 0
+ @do `p25 is 0
+ @do `s01 is `8-
+ @do `s02 is `8-
+ @do `s03 is `8-
+ @do `s04 is `8-
+ @do `s05 is `8-
+ @if tltname1.dat exists true then do
+ @begin
+ @readfile tltname1.dat
+`s01
+ @do `p24 is `p29
+ @do `p24 + 10
+ @dataload tlrelate.idf `p24 `p20
+ @end
+ @if tltname2.dat exists true then do
+ @begin
+ @readfile tltname2.dat
+`s02
+ @do `p24 is `p29
+ @do `p24 + 20
+ @dataload tlrelate.idf `p24 `p21
+ @end
+ @if tltname3.dat exists true then do
+ @begin
+ @readfile tltname3.dat
+`s03
+ @do `p24 is `p29
+ @do `p24 + 30
+ @dataload tlrelate.idf `p24 `p22
+ @end
+ @if tltname4.dat exists true then do
+ @begin
+ @readfile tltname4.dat
+`s04
+ @do `p24 is `p29
+ @do `p24 + 40
+ @dataload tlrelate.idf `p24 `p23
+ @end
+ @if tltname5.dat exists true then do
+ @begin
+ @readfile tltname5.dat
+`s05
+ @do `p24 is `p29
+ @do `p24 + 50
+ @dataload tlrelate.idf `p24 `p25
+ @end
+ @if `s01 is `8- then `p41 is 1
+ @if `s02 is `8- then `p42 is 1
+ @if `s03 is `8- then `p43 is 1
+ @if `s04 is `8- then `p44 is 1
+ @if `s05 is `8- then `p45 is 1
+ @do `v01 is 1
+ @choice
+!`p29 1 =`p41 0 =`p20 3 `$`s01
+!`p29 2 =`p42 0 =`p21 3 `$`s02
+!`p29 3 =`p43 0 =`p22 3 `$`s03
+!`p29 4 =`p44 0 =`p23 3 `$`s04
+!`p29 5 =`p45 0 =`p25 3 `$`s05
+Forget it
+ @do write
+`\`\`\`\`%Feature currently unavailable.
+ @key bottom
+ @do goto dragon
+ @end
+@if response is 5 then do
+ @begin
+ @readfile tltpet`p29.dat
+`p20
+`p21
+`p22
+`s01
+ @do move 38 15
+ @do write
+`2Which colour do you wish your pet to be?
+ @do move 38 16
+ @do write
+`s01��������������������������������������
+ @do move 38 17
+ @do write
+`s01� `1(1) `4(4) `7(7) `0(0) `#(#)
+ @do move 38 18
+ @do write
+`s01� `2(2) `5(5) `8(8) `!(!) `$($)
+ @do move 38 19
+ @do write
+`s01� `3(3) `6(6) `9(9) `@(@) `%(%)
+ @do move 38 20
+ @do write
+Press the corrisponding colour key :
+ @do readspecial `s01 0123456789!@#$%
+ @do `s02 is `
+ @do `s02 add `s01
+ @do delete tltpet`p29.dat
+ @writefile tltpet`p29.dat
+`p20
+`p21
+`p22
+`s02
+ @do goto tdoor
+ @end
+@if response is 1 then do
+@begin
+@do move 1 1
+@clear screen
+@show
+`r0 `r1 `$- `2Training your pet Dragon `$- `r0
+ `r4`% Strenght : `s03 `r0
+ `r4`% Defense : `s04 `r0
+ `r4`% Hitpoints: `s05 `r0
+
+ `2Help????What help??You need help??
+ Just train your dragon and don't get killed.
+
+ `2- `%It takes 15 minutes to train for 1 point.
+
+ `2- `%Your dragon will protect your members in the
+ house and guard your door.
+
+`r0 `r1 `$- `2Talk to the TeamGuard to see `$- `r0
+ `2- `%A complete list of official members of the team.
+
+ `2- `%Relations with other teams.
+
+ `2- `%If not a member, they can request it.
+
+@key bottom
+@show
+
+ `8[soon in TeamLord]
+`2- Dragon can be sent out to attack other team house dragons.
+`2- Dragon can be sent out to attack other players.
+`2- Team Owner can control who is members and BAN them if they wish.
+`2- If a player is BAN, dragon will chase them down if they enter the house.
+
+
+
+ `8[only in CNW!]
+@key bottom
+@do goto tdoor
+@end
+
+@if response is 2 then do
+ @begin
+ @if money < 500 then do
+ @begin
+ @do goto nomoney
+ @end
+;TURNS, it takes time to train a dragon.
+ @if `v05 > 0 then do
+ @begin
+ @do `p28 is `v05
+ @do `p28 / 96
+ @if `p11 < `p28 then do
+ @begin
+ @do goto noturns
+ @end
+ @do `p11 - `p28
+ @end
+
+ @do money - 500
+ @readfile tltpet`p29.dat
+`p20
+`p21
+`p22
+`s01
+ @do `p20 + 1
+ @do delete tltpet`p29.dat
+ @writefile tltpet`p29.dat
+`p20
+`p21
+`p22
+`s01
+ @do goto tdoor
+ @end
+@if response is 3 then do
+ @begin
+ @if money < 700 then do
+ @begin
+ @do goto nomoney
+ @end
+;TURNS, it takes time to train a dragon.
+ @if `v05 > 0 then do
+ @begin
+ @do `p28 is `v05
+ @do `p28 / 96
+ @if `p11 < `p28 then do
+ @begin
+ @do goto noturns
+ @end
+ @do `p11 - `p28
+ @end
+ @do money - 700
+ @do `p21 + 1
+ @do delete tltpet`p29.dat
+ @writefile tltpet`p29.dat
+`p20
+`p21
+`p22
+`s01
+ @do goto tdoor
+ @end
+@if response is 4 then do
+ @begin
+
+ @if money < 400 then do
+ @begin
+ @do goto nomoney
+ @end
+;TURNS, it takes time to train a dragon.
+ @if `v05 > 0 then do
+ @begin
+ @do `p28 is `v05
+ @do `p28 / 96
+ @if `p11 < `p28 then do
+ @begin
+ @do goto noturns
+ @end
+ @do `p11 - `p28
+ @end
+
+@do money - 400
+@do `p22 + 1
+@do delete tltpet`p29.dat
+@writefile tltpet`p29.dat
+`p20
+`p21
+`p22
+`s01
+@do goto tdoor
+@end
+@drawmap
+@update
+@closescript
+
+
+@#MYBANK
+;team treasury
+@routine LOCATION
+@do moveback
+@do `p20 is 0
+@if tltres`p29.dat exist true then do
+ @begin
+ @readfile tltres`p29.dat
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile tltres`p29.dat
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete tltres`p29.dat
+ @writefile tltres`p29.dat
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile tlhouse`p29.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0TeamLord Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile tltres`p29.dat
+`p20
+ @
+ @do `p20 + `p21
+ @do delete tltres`p29.dat
+ @writefile tltres`p29.dat
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile tlhouse`p29.dat
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0TeamLord Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+
+
+ @end
+
+
+
+
+@#HEALME
+@routine LOCATION
+;free heal
+@offmap
+@do moveback
+@show
+`r0`c `r1 The Healers `r0
+
+ `2The good doctor looks you over for wounds carefully.
+
+ `%YOU ARE COMPLETEY HEALED.
+
+`k
+@do `p02 is `p03
+@drawmap
+@update
+
+
+@#doorguard
+@do moveback
+@busy
+@dataload tlban`p29.idf &playernum `p20
+@if `p20 > 0 then goto FIGHTGUARD
+@label startg
+@routine LOCATION
+@if tlhouse`p29.dat exist false then do
+ @begin
+ @do saybar
+`0"What are thou doing here??" `2the guard barks.
+ @closescript
+ @end
+@readfile tlhouse`p29.dat
+`p20
+`s05
+@readfile tltname`p29.dat
+`s04
+@if `p20 not &playernum then do
+ @begin
+ @do move 1 1
+ @clear screen
+ @show
+`r0`c `r1 `@Team `s04 `r0
+
+ `2"Hi, what can I do for you today?" `1says the Team Guard.
+
+ @do `v01 is 1
+ @do `p24 is 0
+ @dataload tlmember.idf &playernum `p24
+ @dataload tlmember.idf &playernum `p24
+ @choice
+Show me the Team Relations
+List me the Team Members
+Who's running this Operation?
+=`p24 0 Make me a MEMBER!
+=`p24 `p29 Write TeamMail
+Leave
+ @if responce is 6 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+ @if responce is 5 then goto MAILTEAM
+ @if responce is 2 then do
+ @begin
+ @routine MEMBERS
+ @end
+ @if responce is 4 then do
+ @begin
+ @datasave tlmember.idf &playernum `p29
+ @end
+ @if responce is 3 then do
+ @begin
+ @DO `s02 IS GETNAME `p20
+ @show
+`\`\`\ `2"Our Team leader is `s02."
+ @key bottom
+ @end
+ @if responce is 1 then do
+ @begin
+ @do `s09 is doorguard
+ @do `s10 is TLHOUSE.REF
+ @do `p29 is 0
+ @routine STARTREL
+ @end
+ @routine LOCATION
+ @do goto startg
+ @end
+
+
+@do `v01 is 1
+@show
+`r0`c `r1 `@Team LEADER `s04 `@Options `r0
+
+ `2The huge guard snaps to attention when he sees you are going to
+ address him.
+
+@do write
+`x`x
+@choice
+Set Team password (`0`s05`%)
+Ownership options
+Change the Name of the team
+Team Members
+Team Relations
+Write TeamMail
+Leave
+@if responce is 6 then goto MAILTEAM
+@if responce is 4 then do
+ @begin
+ @routine MEMBERS
+ @end
+@if responce is 5 then do
+ @begin
+@label STARTREL
+ @do move 1 1
+ @clear screen
+ @show
+`r4`$��� `%TEAM `$���������`%vs`$���������> `%TEAM `$��������������������> `%STATUS `$��Ŀ
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0 `r1`%Team `r0
+`r4`$�`r0 `r4�`r0 `r1`%Relations`r0
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0
+`r4`$�`r0 `r4�`r0
+`r4`$���������������������������������������������������������������������`r0
+ @do `p20 is 0
+ @do `p25 is -2
+ @do `p26 is 2
+ @do `p21 is 0
+ @do `s01 is `8-
+ @do `s02 is `8-
+ @do `s03 is `8-
+ @do `s04 is `8-
+ @do `s05 is `8-
+ @if tltname1.dat exists true then do
+ @begin
+ @readfile tltname1.dat
+`s01
+ @end
+ @if tltname2.dat exists true then do
+ @begin
+ @readfile tltname2.dat
+`s02
+ @end
+ @if tltname3.dat exists true then do
+ @begin
+ @readfile tltname3.dat
+`s03
+ @end
+ @if tltname4.dat exists true then do
+ @begin
+ @readfile tltname4.dat
+`s04
+ @end
+ @if tltname5.dat exists true then do
+ @begin
+ @readfile tltname5.dat
+`s05
+ @end
+ @do move 2 2
+ @do write
+`%`s01
+ @do move 2 6
+ @do write
+`%`s02
+ @do move 2 10
+ @do write
+`%`s03
+ @do move 2 14
+ @do write
+`%`s04
+ @do move 2 18
+ @do write
+`%`s05
+
+ @do `p26 is 2
+ @do `p25 is 1
+ @label names
+ @if `p25 is 1 then do
+ @begin
+ @if `s01 is `8- then do
+ @begin
+ @do `p26 + 4
+ @do goto SKIPNAME
+ @end
+ @end
+ @if `p25 is 2 then do
+ @begin
+ @if `s02 is `8- then do
+ @begin
+ @do `p26 + 4
+ @do goto SKIPNAME
+ @end
+ @end
+ @if `p25 is 3 then do
+ @begin
+ @if `s03 is `8- then do
+ @begin
+ @do `p26 + 4
+ @do goto SKIPNAME
+ @end
+ @end
+ @if `p25 is 4 then do
+ @begin
+ @if `s04 is `8- then do
+ @begin
+ @do `p26 + 4
+ @do goto SKIPNAME
+ @end
+ @end
+ @if `p25 is 5 then do
+ @begin
+ @if `s05 is `8- then do
+ @begin
+ @do `p26 + 4
+ @do goto SKIPNAME
+ @end
+ @end
+ @if `p25 NOT 1 then do
+ @begin
+ @do move 30 `p26
+ @do write
+`%`s01
+ @do `p24 is `p25
+ @do `p24 + 10
+ @dataload tlrelate.idf `p24 `p21
+ @routine RELATIONS
+ @do move 60 `p26
+ @do write
+`%`s06
+ @do `p24 + 1
+ @do `p26 + 1
+ @end
+ @if `p25 NOT 2 then do
+ @begin
+ @do move 30 `p26
+ @do write
+`%`s02
+ @do `p24 is `p25
+ @do `p24 + 20
+ @dataload tlrelate.idf `p24 `p21
+ @routine RELATIONS
+ @do move 60 `p26
+ @do write
+`%`s06
+ @do `p24 + 1
+ @do `p26 + 1
+ @end
+ @if `p25 NOT 3 then do
+ @begin
+ @do move 30 `p26
+ @do write
+`%`s03
+ @do `p24 is `p25
+ @do `p24 + 30
+ @dataload tlrelate.idf `p24 `p21
+ @routine RELATIONS
+ @do move 60 `p26
+ @do write
+`%`s06
+ @do `p24 + 1
+ @do `p26 + 1
+ @end
+ @if `p25 NOT 4 then do
+ @begin
+ @do move 30 `p26
+ @do write
+`%`s04
+ @do `p24 is `p25
+ @do `p24 + 40
+ @dataload tlrelate.idf `p24 `p21
+ @routine RELATIONS
+ @do move 60 `p26
+ @do write
+`%`s06
+ @do `p24 + 1
+ @do `p26 + 1
+ @end
+ @if `p25 NOT 5 then do
+ @begin
+ @do move 30 `p26
+ @do write
+`%`s05
+ @do `p24 is `p25
+ @do `p24 + 50
+ @dataload tlrelate.idf `p24 `p21
+ @routine RELATIONS
+ @do move 60 `p26
+ @do write
+`%`s06
+ @do `p24 + 1
+ @do `p26 + 1
+ @end
+ @label SKIPNAME
+ @do `p25 + 1
+ @if `p25 < 6 then goto names
+ @if `p29 is 0 then do
+ @begin
+ @key bottom
+ @run `s09 in `s10
+ @closescript
+ @end
+
+ @do move 70 7
+ @do write
+`r0 `r1`$Would `r0
+ @do move 70 8
+ @do write
+`r0 `r1`$you like `r0
+ @do move 70 9
+ @do write
+`r0 `r1`$to change`r0
+ @do move 70 10
+ @do write
+`r0 `r1`$relations`r0
+ @do move 70 11
+ @do write
+`r0 `r1`$ `r0
+ @do move 70 12
+ @do write
+`r0 `r1`7 [N/Y] `r0
+ @do move 72 13
+ @do readspecial `s07 NY
+ @if `s07 is Y then goto RELATECH
+ @do goto startg
+ @end
+@if response is 3 then do
+ @begin
+
+ @do write
+`\`x`x
+ @do readstring 75 NIL `s06
+ @do `p20 is length `s06
+ @if `p20 < 2 then do
+ @begin
+@do goto startg
+@end
+@show
+`\ `0"Alright!"
+
+@do stripbad `s06
+@do delete tltname`p29.dat
+@writefile tltname`p29.dat
+`s06
+@do goto startg
+ @end
+
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$5000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+ @show
+`2 Are you sure you wish to give your castle to `0`s02`2?
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete tlhouse`p29.dat
+ @writefile tlhouse`p29.dat
+`p20
+`s01
+ @writefile mail\mail`p20.dat
+ `0TeamLord note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transferred ownership of TeamHouse #`p29 to you.
+ Password to enter will remain `0"`s01"`2 unless
+ `2you come by and change it.
+
+ @do addlog
+ `0`n`2 has given `%TeamHouse #`p29`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `2Deed transfered. Oh well - it was fun while it lasted.`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your castle back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do `p30 is 2
+ @do `v40 is 5000
+ @routine widthdraw in vaults.ref
+ @do delete tlhouse`p29.dat
+ @do money + 5000
+ @show
+`\`\ `%HOUSE SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%TeamHouse #`p29`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete tlhouse`p29.dat
+ @writefile tlhouse`p29.dat
+&playernum
+`s01
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the guard promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#sign
+@routine LOCATION
+@bitset `t92 1 1
+@do moveback
+
+ @if tlhouse`p29.dat exist false then do
+ @begin
+ @do saybar
+TeamHouse for sale.
+ @end
+
+@if tlhouse`p29.dat exist true then do
+ @begin
+@readfile tltname`p29.dat
+`s06
+@
+@readfile tlhouse`p29.dat
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2TeamHouse of `s06.
+ @end
+
+@#enter
+@routine LOCATION
+@do moveback
+@dataload tlban`p29.idf &playernum `p20
+@if `p20 > 0 then goto BANNED
+@offmap
+@if tlhouse`p29.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2TeamHouse 1.
+ `2 If you want start a team you must buy one of these TeamHouses
+
+ `2The asking price is `$$10,000`2.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+>&money 9999 Start a Team.
+<&money 10000 Sigh wistfully and leave since you don't have enough.
+>&money 9999 Leave.
+@
+
+@if responce is 1 then do
+ @begin
+ @if tlhouse`p29.dat exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+@if `p29 is 1 then `p29 is 2
+@if `p29 is 2 then `p29 is 1
+@if `p29 is 3 then `p29 is 1
+@if `p29 is 4 then `p29 is 1
+@if `p29 is 5 then `p29 is 1
+@if tlhouse`p29.dat exist true then do
+ @begin
+ @readfile tlhouse`p29.dat
+`p20
+`s01
+ @if `p20 is &playernum then do
+ @begin
+ @do goto ownhouse
+ @end
+ @end
+
+@if `p29 is 1 then `p29 is 2
+@if `p29 is 2 then `p29 is 3
+@if tlhouse`p29.dat exist true then do
+ @begin
+ @readfile tlhouse`p29.dat
+`p20
+`s01
+ @if `p20 is &playernum then do
+ @begin
+ @do goto ownhouse
+ @end
+ @end
+
+@if `p29 is 2 then `p29 is 3
+@if `p29 is 3 then `p29 is 4
+@if tlhouse`p29.dat exist true then do
+ @begin
+ @readfile tlhouse`p29.dat
+`p20
+`s01
+ @if `p20 is &playernum then do
+ @begin
+ @do goto ownhouse
+ @end
+ @end
+
+@if `p29 is 3 then `p29 is 4
+@if `p29 is 4 then `p29 is 5
+@if tlhouse`p29.dat exist true then do
+ @begin
+ @readfile tlhouse`p29.dat
+`p20
+`s01
+ @if `p20 is &playernum then do
+ @begin
+ @do goto ownhouse
+ @end
+ @end
+
+@routine LOCATION
+@writefile tlhouse`p29.dat
+&playernum
+NONE
+ @do `p30 is 2
+ @do `v40 is 10000
+ @routine deposit in vaults.ref
+ @do money - 10000
+ @routine LOCATION
+ @do addlog
+ `0`n `2buys `%TeamHouse #`p29`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, landowner! `r0
+`\`2 Nice job! You now own this house!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile tlhouse`p29.dat
+`p20
+`s01
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete tlhouse`p29.dat
+ @do delete tlban`p29.dat
+ @do addlog
+ `%TeamHouse #`p29`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enter
+ @end
+
+@if `p20 not &playernum then do
+ @begin
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @readfile tltname`p29.dat
+`s06
+ @show
+`r0`c `r1 `s06 `r0
+
+`2 A head pops over the gate. `0"Halt, you! What business have you with
+ my lord and master, `%`s02`0?" `2the door guard asks.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Give Password
+Attack the Door Dragon
+Run
+@if response is 2 then do
+@begin
+@label FIGHTDRAG
+@readfile tltpet`p29.dat
+`p20
+`p21
+`p22
+`s01
+@routine VIEWDRAGON in DRAGONS.REF
+@readfile tltpet`p29.dat
+`p20
+`p21
+`p22
+`s01
+@key bottom
+@fight
+;name
+pet Dragon
+;string said when you see him
+`0"Muaarrhhh!!"`2yells the dragon
+;power move kill string
+HaHa!! and now kill all team members!!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+grills you|`p20
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+`p21
+;gold reward
+0
+;experience
+1
+;hit points
+`p22
+;if win: ref file|name or NONE
+TLDRAG.REF|VOITTO
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+TLDRAG.REF|JUOKSU
+@end
+
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @readfile tltname`p29.dat
+`s06
+ @show
+`\`\ `0"Welcome to `%`s06`0,"`2 the guard smiles as he opens the gate.`\`\`k
+ @do goto letmein
+ @end
+ @readfile tltname`p29.dat
+`s06
+ @writefile mail\mail`p20.dat
+ `0`s06 Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to sweet talk the guard by saying
+ `0"`s03"`2. `2He was `bKICKED`2 away.
+
+ @show
+`\`\ `2The guard doesn't look too interested.`\`\`k
+ @do goto done
+ @end
+
+ @do goto done
+
+
+@end
+;let him in
+@label letmein
+@routine dismounth in vehicle.ref
+@if `p29 is 1 then do
+ @begin
+ @do x is 39
+ @do y is 19
+ @do map is 1121
+ @end
+@if `p29 is 2 then do
+ @begin
+ @do x is 39
+ @do y is 19
+ @do map is 80
+ @end
+@if `p29 is 3 then do
+ @begin
+ @do x is 39
+ @do y is 19
+ @do map is 1175
+ @end
+@if `p29 is 4 then do
+ @begin
+ @do x is 39
+ @do y is 19
+ @do map is 1342
+ @end
+@if `p29 is 5 then do
+ @begin
+ @do x is 39
+ @do y is 19
+ @do map is 1340
+ @end
+@loadmap &map
+@drawmap
+@update
+
+@#RELATECH
+@routine LOCATION
+@do move 1 1
+@clear screen
+@SHOW
+ `r1 `$- `%CHANGING RELATIONS `$- `r0
+
+ `2Here you can select your current STATUS with other teams.
+
+ `7�`8/`7�����������������������`8\`7�
+ `7� �
+ `7� �
+ `7� �
+ `7� �
+ `7� �
+ `7�`8\`7�����������������������`8/`7�
+
+@do move 25 6
+@do `v01 is 1
+@do `p41 is 0
+@do `p42 is 0
+@do `p43 is 0
+@do `p44 is 0
+@do `p45 is 0
+@if `s01 is `8- then `p41 is 1
+@if `s02 is `8- then `p42 is 1
+@if `s03 is `8- then `p43 is 1
+@if `s04 is `8- then `p44 is 1
+@if `s05 is `8- then `p45 is 1
+@choice
+!`p29 1 =`p41 0 `$`s01
+!`p29 2 =`p42 0 `$`s02
+!`p29 3 =`p43 0 `$`s03
+!`p29 4 =`p44 0 `$`s04
+!`p29 5 =`p45 0 `$`s05
+`%Do Nothing
+@if responce is 6 then goto startg
+@if responce is 1 then do
+ @begin
+ @do `p24 is `p29
+ @do `p24 + 10
+ @do `s07 is `s01
+ @end
+@if responce is 2 then do
+ @begin
+ @do `p24 is `p29
+ @do `p24 + 20
+ @do `s07 is `s02
+ @end
+@if responce is 3 then do
+ @begin
+ @do `p24 is `p29
+ @do `p24 + 30
+ @do `s07 is `s03
+ @end
+@if responce is 4 then do
+ @begin
+ @do `p24 is `p29
+ @do `p24 + 40
+ @do `s07 is `s04
+ @end
+@if responce is 5 then do
+ @begin
+ @do `p24 is `p29
+ @do `p24 + 50
+ @do `s07 is `s05
+ @end
+
+
+@dataload tlrelate.idf `p24 `p21
+@routine RELATIONS
+@do move 1 13
+@show
+`2 Your current relations with `$`s07 `2is `s06`2.
+`2 How do you wish to change it to.
+ `7�`8/`7�������`8\`7�
+ `7� �
+ `7� �
+ `7� �
+ `7� �
+ `7� �
+ `7�`8\`7�������`8/`7�
+@do move 29 16
+@do `v01 is 1
+@choice
+`8 NONE `%
+`5 PEACE `%
+`$ ALLIES `%
+`@ WAR `%
+`%No change
+@if responce is 1 then do
+ @begin
+ @datasave tlrelate.idf `p24 0
+ @end
+@if responce is 2 then do
+ @begin
+ @datasave tlrelate.idf `p24 1
+ @end
+@if responce is 3 then do
+ @begin
+ @datasave tlrelate.idf `p24 2
+ @end
+@if responce is 4 then do
+ @begin
+ @datasave tlrelate.idf `p24 3
+ @end
+@do goto startg
+
+@#RELATIONS
+@if `p21 is 0 then `s06 is `r0`8NONE
+@if `p21 is 1 then `s06 is `r0`5PEACE
+@if `p21 is 2 then `s06 is `r0`$ALLIES
+@if `p21 is 3 then `s06 is `r0`@WAR
+
+@#MEMTABLE
+@do `p40 is 0
+@do move 1 1
+@clear screen
+@readfile tltname`p29.dat
+`s04
+@show
+ `r0 `r1 `@Team `s04 `@Members `r0
+����������������������������������������������������������������������������Ŀ
+@label members2
+@do write
+� � � �`\
+@do `p40 + 1
+@if `p40 < 15 then goto members2
+@do write
+������������������������������������������������������������������������������`\
+
+@#MEMBERS
+@do `p41 is 0
+@do `p42 is 0
+@routine MEMTABLE
+@do `p25 is 0
+@do `p28 is 0
+@do `p40 is 2
+@do `p41 is 2
+@label MEMBERS1
+@do `p28 + 1
+@DO `p25 IS DELETED `p28
+@if `p25 is 1 then do
+ @begin
+ @datasave tlmember.idf `p28 0
+ @end
+@dataload tlmember.idf `p28 `p27
+@if `p27 is `p29 then do
+ @begin
+ @if `p42 is 15 then `p40 is 28
+ @if `p42 is 31 then `p40 is 54
+ @if `p42 is 46 then do
+ @begin
+ @do `p40 is 2
+ @do `p41 is 2
+ @key bottom
+ @routine memtable
+ @end
+ @do `p41 + 1
+ @do `s03 is getname `p28
+ @do move `p40 `p41
+ @do `p42 + 1
+ @do write
+`%`s03
+ @end
+
+@if `p28 is &totalaccounts then do
+ @begin
+ @readfile tlhouse`p29.dat
+`p20
+ @if `p20 is &playernum then goto MEMOPTION
+ @do move 30 19
+ @do write
+`r1 `@TOTAL MEMBERS: `p42 `r0
+ @key bottom
+ @do goto startg
+ @end
+@do goto MEMBERS1
+
+@#MEMOPTION
+; Only TeamLeader should access these options.
+@do move 50 19
+@do write
+`r1 `@TOTAL MEMBERS: `p42 `r0
+@do move 10 19
+@do `v01 is 1
+@choice
+`%Do Nothing
+`4Kick Someone
+`@Ban Someone
+`7View BAN list
+@if responce is 1 then goto startg
+@if responce is 4 then goto VIEWBANS
+@CLEARBLOCK 19 23
+@do move 10 19
+@CHOOSEPLAYER `p20
+@datasave tlmember.idf `p20 0
+@routine LOCATION
+@readfile tltname`p29.dat
+`s01
+@if responce is 2 then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Team `s01 `0Message:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ `%You have been KICKED from TEAM `s01
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`k
+ @end
+@if responce is 3 then do
+ @begin
+ @datasave tlban`p29.idf `p20 1
+ @writefile mail\mail`p20.dat
+ `0Team `s01 `0Message:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ `%You have been BAN from TEAM `s01
+ `%Do not attempt to return or you will be hunted down.
+ `%If you wish to plea for re-entry, you must contact the
+ `%Team Leader.
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`k
+ @end
+@do goto startg
+
+@#BANNED
+@do move 1 1
+@clear screen
+@run FIGHTDRAG
+
+@#FIGHTGUARD
+; for now just say this
+@do saybar
+`$TeamGuard: `%what are you doing in here?
+@drawmap
+@update
+
+@#VIEWBANS
+@routine LOCATION
+@do `p41 is 0
+@do `p42 is 0
+@routine MEMTABLE
+@do move 1 1
+@readfile tltname`p29.dat
+`s04
+@do write
+ `r0 `r1 `@Team `s04 `@BANS `r0 `%
+@do `p25 is 0
+@do `p28 is 0
+@do `p40 is 2
+@do `p41 is 2
+@label VIEWBANS2
+@do `p28 + 1
+@DO `p25 IS DELETED `p28
+@if `p25 is 1 then do
+ @begin
+ @datasave tlban`p29.idf `p28 0
+ @end
+@dataload tlban`p29.idf `p28 `p27
+@if `p27 > 0 then do
+ @begin
+ @if `p42 is 15 then `p40 is 28
+ @if `p42 is 31 then `p40 is 54
+ @if `p42 is 46 then do
+ @begin
+ @do `p40 is 2
+ @do `p41 is 2
+ @key bottom
+ @routine memtable
+ @end
+ @do `p41 + 1
+ @do `s03 is getname `p28
+ @do move `p40 `p41
+ @do `p42 + 1
+ @do write
+`%`s03
+ @end
+
+@if `p28 is &totalaccounts then do
+ @begin
+ @do move 30 19
+ @do write
+`r1 `@TOTAL BANS: `p42 `r0
+ @do move 2 19
+ @do `v01 is 1
+ @choice
+`%Do Nothing
+`3Un-BAN someone
+`#Un-BAN everyone
+ @if responce is 1 then goto startg
+ @if responce is 3 then do
+ @begin
+ @do delete tlban`p29.idf
+ @do goto startg
+ @end
+ @if responce is 2 then do
+ @begin
+ @CLEARBLOCK 19 23
+ @do move 10 19
+ @CHOOSEPLAYER `p20
+ @datasave tlban`p29.idf `p20 0
+ @routine LOCATION
+ @writefile mail\mail`p20.dat
+ `0Team `s04 `0Message:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+ `%You have been REMOVED from the BAN list.
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`k
+ @end
+ @do goto startg
+ @end
+@do goto VIEWBANS2
+
+@#MAILTEAM
+@do `s01 is `x
+@do `s02 is `x
+@do `s03 is `x
+@do `s04 is `x
+@do `s05 is `x
+@do `s06 is `x
+@do `s07 is `x
+@do `s08 is `x
+@do `s09 is `x
+@do `s10 is `x
+@do write
+`\`\`%Write your message, max of 9 lines. "-" to end`\
+@do write
+`81:`x
+@DO READSTRING 70 - `s02
+@if `s02 is - then goto startg
+@do write
+`\`82:`x
+@DO READSTRING 70 - `s03
+@if `s03 is - then goto writeit
+@do write
+`\`83:`x
+@DO READSTRING 70 - `s04
+@if `s04 is - then goto writeit
+@do write
+`\`84:`x
+@DO READSTRING 70 - `s05
+@if `s05 is - then goto writeit
+@do write
+`\`85:`x
+@DO READSTRING 70 - `s06
+@if `s06 is - then goto writeit
+@do write
+`\`86:`x
+@DO READSTRING 70 - `s07
+@if `s07 is - then goto writeit
+@do write
+`\`87:`x
+@DO READSTRING 70 - `s08
+@if `s08 is - then goto writeit
+@do write
+`\`88:`x
+@DO READSTRING 70 - `s09
+@if `s09 is - then goto writeit
+@do write
+`\`89:`x
+@DO READSTRING 70 - `s10
+@label WRITEIT
+@do `p25 is 0
+@do `p28 is 0
+@do `p40 is 2
+@do `p41 is 2
+@label MAIL2
+@do `p28 + 1
+@DO `p25 IS DELETED `p28
+@if `p25 is 1 then do
+ @begin
+ @datasave tlmember.idf `p28 0
+ @end
+@dataload tlmember.idf `p28 `p27
+@if `p27 is `p29 then do
+ @begin
+ @do `s01 is @MESSAGE`x`N
+ @writefile mail\mail`p28.dat
+`s01
+ @readfile tltname`p29.dat
+`s01
+ @writefile mail\mail`p28.dat
+ `0TeamLord `s01 `0Reports:
+`s02
+ @if `s03 is - then goto endwrite
+ @writefile mail\mail`p28.dat
+`s03
+ @if `s04 is - then goto endwrite
+ @writefile mail\mail`p28.dat
+`s04
+ @if `s05 is - then goto endwrite
+ @writefile mail\mail`p28.dat
+`s05
+ @if `s06 is - then goto endwrite
+ @writefile mail\mail`p28.dat
+`s06
+ @if `s07 is - then goto endwrite
+ @writefile mail\mail`p28.dat
+`s07
+ @if `s08 is - then goto endwrite
+ @writefile mail\mail`p28.dat
+`s08
+ @if `s09 is - then goto endwrite
+ @writefile mail\mail`p28.dat
+`s09
+ @if `s10 is - then goto endwrite
+ @writefile mail\mail`p28.dat
+`s10
+@label endwrite
+ @do `s01 is @DONE
+ @writefile mail\mail`p28.dat
+`s01
+ @do `s01 is @REPLY`x&playernum
+ @writefile mail\mail`p28.dat
+`s01
+ @end
+
+@if `p28 is &totalaccounts then do
+ @begin
+ @do goto startg
+ @end
+@do goto mail2
+
+@#done
diff --git a/xtrn/lord2/cnw/tls1.ref b/xtrn/lord2/cnw/tls1.ref
new file mode 100644
index 0000000000000000000000000000000000000000..01cf12d692899f5d5776bce3acd38fc348771328
--- /dev/null
+++ b/xtrn/lord2/cnw/tls1.ref
@@ -0,0 +1,1794 @@
+; Script file TLS1.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:22 2001
+
+@DECLARE kingkey 000000836
+@DECLARE chattin 000001075
+@DECLARE screwwing 000002767
+@DECLARE chattin2 000003458
+@DECLARE innard 000005165
+@DECLARE innardt 000005219
+@DECLARE gesture 000006432
+@DECLARE blando 000008424
+@DECLARE btalkin 000008784
+@DECLARE win 000010404
+@DECLARE 1stgroon 000010610
+@DECLARE gtrans 000010828
+@DECLARE gtrans2 000015498
+@DECLARE fall 000016696
+@DECLARE sentry 000016740
+@DECLARE stalkin 000016794
+@DECLARE sbehind 000017781
+@DECLARE bartend 000017857
+@DECLARE buybar 000018081
+@DECLARE growl 000019475
+@DECLARE wanted 000019550
+@DECLARE wantfight 000020119
+@DECLARE manwin 000020717
+@DECLARE laya 000020833
+@DECLARE tira 000026255
+@DECLARE violet 000031781
+@NOCHECK
+; End of .REF index
+
+@#KingKey
+@dataload tlsscrew.dat &playernum `p20
+@do moveback
+
+@if `p20 is 8 then do
+ @begin
+ @do saybar
+`$King-Key: `0You've found the screw! A reward! You need a reward!
+ @closescript
+ @end
+
+@offmap
+@do `v01 is 1
+@label chattin
+@show
+`r0`c `r1`% King-Key `r0
+
+ `2You walk up to a rather scrawny, beardless fellow.
+ `2His nicely hand-crafted Guess glasses look rather nerdish.
+ You wonder why he spent so much to look like such a dweeb.
+
+ `2Nonetheless, he greets you with a handshake and a burp!
+
+ `0"Sup white trash! <burp>"
+
+@DO WRITE
+`x`x
+@CHOICE
+Chat with this creep
+Screw off..er...leave
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"One thing I have to say about you -- you look like a nerd!"
+
+`k `0"That's terrible! Just terrible! Everything is terrible! It's awful!
+ You don't understand -- the screw! The screw! It's missing. I mean! It
+ was loose, but now it's gone -- without it, nothing. Nothing! Nothing!
+ Nothing is possible, save maybe sex and breathing and working...and, well,
+ nevermind that. Without it, our life is over!
+
+`k `$"What the hell are you talking about?"
+
+`k `0"The screw, goddamnit! The Loose Screw! It's gone. Vanished. Without
+ a trace. Screwy must have dropped it while he was carrying around our server.
+ (Screwy likes to carry around our server -- just for fun, you see).
+ It's gone! Gone! We can't get back on-line. We can't even put the cover
+ back on without it.
+
+`k `$"That's sad and all. I don't really care, though. You're a nerd.
+
+`k `0"And a bastard!"
+
+`k `$"And a bastard, yes -- but, just out of curiosity, what if I were
+ to find your screw?"
+
+`k `0"Talk to Screwy. I'm too distraught! The screw! Oh, the screw! The
+ horror of it gone...the screw...the screw! The screw!
+
+`\`k
+ @do goto chattin
+ @END
+
+@drawmap
+@update
+@do saybar
+`0That guy needs help.
+@end
+
+@#ScrewWing
+@dataload tlsscrew.dat &playernum `p20
+@do moveback
+
+@if `p20 is 8 then do
+ @begin
+; @if `i94 < 1 then do
+; @begin
+ @offmap
+ @show
+`\
+`r0`c `r1`% Screw-Wing `r0
+ `2He says, `0"Here! Take this --
+
+`k `2He gives you a `$Yellow Potion.
+
+ @key
+;<--removed that item, will put back in if author makes as EXT ITEM. :) -->
+;
+; `2He says, `0"Here! Take this -- it's useless now with the
+; internet around!"
+;
+;`k `2He gives you `$The Loose Screw BBS.
+;
+;`k
+;<--end of CNW-->
+ @do `i94 + 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @do saybar
+`$Screw-Wing: `0Damn the internet!
+ @closescript
+ @end
+
+@offmap
+@do `v01 is 1
+@label chattin2
+@show
+`r0`c `r1`% Screw-Wing `r0
+
+ `2You walk up to a frail, scrawny excuse for a human being.
+ His ratty beard makes you think of spider webs, pubic hair, dust and
+ dustmites all combined together in one spawn of terror.
+
+ `2Nonetheless, he greets you with a handshake and a fart!
+
+ `0"I'm a nerd! <fart>"
+
+@DO WRITE
+`x`x
+@CHOICE
+Chat with this nerd
+Screw off..er...leave
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"You're a computer nerd, aren't you?"
+
+`k `0"What? Computer? Oh yes, a computer...it's hopeless! The computer is
+ useless without the screw. It's my fault. All my fault! I took it out. I
+ thought I'd take it for a walk...but, that man. That crazy Blando man!
+ I'm teribbly frightened of Koshi, and he looks so much like one. I must
+ have dropped it on that cloud somewhere. I was looking for the Myphon
+ Groon. It's somewhere in that city, too, you know. But the screw! Oh!
+ Oh, if you could find the screw. Find the screw Please..."
+
+`k `$"You know. You're a little hyped up over a damn screw."
+
+`k `0"Without it, we can't do anything! I'm a computer nerd, for Christ's
+ sake! What do you expect me to be all hyped up over? World peace? Football?
+ I need that Myphon Groon. With it, one can go anywhere..."
+
+`k `$"You're annoying."
+
+`k `0"Have you ever noticed how the character reponses in Lord II are always
+ rude and insulting?"
+
+`k `$"Fuck you."
+
+`k `0"See! See! That's exactly what I mean. Oh, I'm tired of it. Tired of it
+ all. Find the screw...the screw...the screw....the screw!
+
+`\`k
+ @do goto chattin2
+ @END
+
+@drawmap
+@update
+@do saybar
+`0He annoyed you greatly.
+@end
+
+@#Innard
+@do moveback
+@do `v01 is 1
+@offmap
+@label INNARDT
+@show
+`r0`c `r1`% Experienced Innard and his Experienced Tower `r0
+`\ `2You see just in front of you nothing other than a rat.
+ You feel there is something familiar about this place...
+
+ `0"Found someone you have, yes!" `2gawks Innard.
+
+@DO WRITE
+`x`x`x
+@CHOICE
+Ask Innard about this tower
+Play Innard's Useless Random Gesture
+Leave
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"What the hell are you doing up in this tower? You don't look so wise!"
+
+`k `0"Judge me by my size, do you? You have much to learn..." `2Innard sadly
+ shakes his head, and talks into the air -- `0"This boy has no patience! I
+ cannot teach him."
+
+`k `%"Was I any different?" `2a faintly familiar voice responds.
+
+`k `$"Will you two shut the hell up and teach me something!"
+
+`k `0"Very well. I am easily persuaded, yes. You may use my Useless Random
+ Gesture -- but I warn you. Beware. A dark place is it...your weapons. You
+ will not need them."
+
+`k `$"Shut up with the movie innuendos!"
+
+`k `0"Sorry."
+`\`k
+ @do goto INNARDT
+ @END
+
+@IF RESPONSE IS 2 THEN DO
+ @begin
+ @run gesture
+ @do goto INNARDT
+ @END
+
+@do moveback
+@drawmap
+@update
+@end
+
+@#gesture
+ @do `p22 is 0
+ @busy
+ @datanewday TLSINNRD.idf
+ @dataload tlsinnrd.idf &playernum `p22
+ @if `p22 MORE 0 then do
+ @begin
+ @show
+
+`c `2Innard says to you, `0"Clear your mind of movie quotes. Enough have you
+ done for today..."
+
+`k
+ @run innard
+ @closescript
+ @end
+
+ @show
+ `r0`c `r1 Useless Random Gesture -- Movie Innuendos! `r0
+`\ `2Innard says to you, `0"Say a movie line. Be it, yes, the right one --
+ much may be yours!"
+
+ @if tlsinnrd.txt exist false then do
+ @begin
+ @writefile tlsinnrd.txt
+ `$Marty`2 : `0"This is heavy, Doc" -- Back to the Future
+ `%Han Solo`2 : `0"I've got a bad feeling about this" --Every Star Wars flick
+ `$Sir Screwy`2 : `0"I'm making this up as I go along" -- Indiana Jones
+ @end
+
+ @if tlsinnrd.txt exist true then do
+ @displayfile tlsinnrd.txt
+ @begin
+ @end
+
+@show
+
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Your movie line (enter to quit)`\ `s04
+@DO READSTRING `p21 NIL `s03
+@do stripbad `s03
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@SHOW
+
+ @writefile tlsinnrd.txt
+ `%`n`2 : `0`s03
+ @do addlog
+ `r0 `0`n`2 has left you some wise words at `0The Loose Screw Resort
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+ @DO `p25 random 10 1
+ @DO `p25 * 989
+ @DO `p01 + `p25
+ @show
+
+ `0"My experience, and the tower's experience, are now yours!" `2 Innard says
+ to you with a smile...
+
+ `@Experience goes up by `p25!
+
+`k
+ @datasave tlsinnrd.idf &playernum 1
+ @do trim tlsinnrd.txt 17
+ @if `s03 inside del.txt.now then do
+ @begin
+ @do delete tlsinnrd.txt
+ @end
+
+@run Innard
+@closescript
+ @end
+
+@#BLANDO
+@do `p27 is 0
+@dataload TLSBLAND.DAT &playernum `p27
+ @if `p27 MORE 2 then do
+ @begin
+ ; @do x is 18
+ ; @drawmap
+ @do saybar
+`0Like Neb and so many others, Blando sadly steps aside.
+ @update
+ @closescript
+ @end
+@busy
+@do `v01 is 1
+@do moveback
+@if `p27 LESS 3 then do
+@begin
+@label BTALKIN
+@show
+`r0`c `r1`% Small City in the Small Clouds `r0
+`\ `2In front of you is a very angry looking person...
+
+ `0"You've got a lot of nerve coming back here after what
+you pulled," `2he says to you.
+
+@DO WRITE
+`x`x`x
+@CHOICE
+"Let me passed, bad ass!"
+Beat the snot out of this cranky guy.
+Leave
+@IF RESPONSE IS 1 THEN DO
+ @BEGIN
+ @Show
+`\`\ `$"Let me passed, bad ass."
+
+`k `0"Oh, come here, you old pirate!"
+
+`k `$"Who are you!?!?"
+
+`k `0"Oh, you remember me. We go way back. Me and you. Way back. Don't
+ you remember. My name is Blando. I'm sure I remember you. Maybe you just
+ remind me of someone I once knew."
+
+`k `$"You're one of those Koshi things aren't you?"
+
+`k `0"I may be. Strange that you wouldn't remember. Maybe it was your
+ father. He looked a little like you."
+
+`k `$"Stop talking about him and let me passed you!"
+
+`k `0"Sorry, can't let you do that. This place is sacred."
+
+`k
+@do goto BTALKIN
+@END
+
+@if response is 2 then do
+ @begin
+ @fight
+;name
+`9Blando
+;string said when you see him
+This old pirate doesn't look so friendly.
+;power move kill string
+You're a real hero, buddy...
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+bops you good|78
+slaps you silly|98
+whacks your willy|108
+NONE|NONE
+NONE|NONE
+;defense
+90
+;gold reward
+2500
+;experience
+2000
+;hit points
+562
+;if win: ref file|name or NONE
+TLS1.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@end
+
+@drawmap
+@update
+@closescript
+@end
+
+@#WIN
+@datasave tlsbland.dat &playernum 5
+@show
+
+`\`\ `$Like Neb and so many others, Blando meekly steps aside to let you
+ pass.
+
+`k
+@do x is 18
+@drawmap
+@update
+@closescript
+@end
+
+@#1STGROON
+@if `i95 > 0 then do
+ @begin
+ @do saybar
+`2There ain't much but dust on this table now.
+ @closescript
+ @end
+
+@do saybar
+`#You find a Myphon Groon just lying here on the table!
+@do `i95 is 1
+
+@#GTRANS
+@do `v01 is 1
+@show
+`r0`c `2Believe it or not, a genie appears...
+`\ `2Wait, it isn't a genie. It's an apparition. An older, gray-bearded fellow
+ dressed in a brown tunic whispers something about "Dagobah" and then asks
+ where you'd like to go...
+
+@DO WRITE
+`x`x`x`x`x`x`x`x
+@CHOICE
+Stonebrook
+Greentree
+Porttown
+Flag City
+Sosen Vilage
+Bonetown
+Arrisville
+Dagobah
+No where right now, Obi...
+@IF RESPONSE IS 1 THEN DO
+;Stonebrook
+ @begin
+ @do `p25 is `p11
+ @do `p25 / 5
+ @do `p11 - `p25
+ @show
+`r0`c`\ `2Being that the Myphon Groon is a very non-existent thing, it
+ takes quite a bit of energy to use it...
+
+ You lose `0`p25`2 turns today for rubbing the Groon...
+
+`k
+ @itemexit
+ @do map is 1359
+ @do x is 36
+ @do y is 7
+ @loadmap &map
+ @update
+ @closescript
+ @end
+@IF RESPONSE IS 2 THEN DO
+;Greentree
+ @begin
+ @do `p25 is `p11
+ @do `p25 / 5
+ @do `p11 - `p25
+ @show
+`r0`c`\ `2Being that the Myphon Groon is a very non-existent thing, it
+ takes quite a bit of energy to use it...
+
+ You lose `0`p25`2 turns today for rubbing the Groon...
+
+`k
+ @itemexit
+ @do map is 1356
+ @do x is 10
+ @do y is 15
+ @loadmap &map
+ @update
+ @closescript
+ @end
+@IF RESPONSE IS 3 THEN DO
+;Porttown
+ @BEGIN
+ @do `p25 is `p11
+ @do `p25 / 5
+ @do `p11 - `p25
+ @show
+`r0`c`\ `2Being that the Myphon Groon is a very non-existent thing, it
+ takes quite a bit of energy to use it...
+
+ You lose `0`p25`2 turns today for rubbing the Groon...
+
+`k
+ @itemexit
+ @do map is 956
+ @do x is 38
+ @do y is 15
+ @loadmap &map
+ @update
+ @closescript
+ @end
+@IF RESPONSE IS 4 THEN DO
+;FlagCity
+ @BEGIN
+ @do `p25 is `p11
+ @do `p25 / 5
+ @do `p11 - `p25
+ @show
+`r0`c`\ `2Being that the Myphon Groon is a very non-existent thing, it
+ takes quite a bit of energy to use it...
+
+ You lose `0`p25`2 turns today for rubbing the Groon...
+
+`k
+ @itemexit
+ @do map is 1092
+ @do x is 71
+ @do y is 18
+ @loadmap &map
+ @update
+ @closescript
+ @end
+@IF RESPONSE IS 5 THEN DO
+;Sosen Village
+ @BEGIN
+ @do `p25 is `p11
+ @do `p25 / 5
+ @do `p11 - `p25
+ @show
+`r0`c`\ `2Being that the Myphon Groon is a very non-existent thing, it
+ takes quite a bit of energy to use it...
+
+ You lose `0`p25`2 turns today for rubbing the Groon...
+
+`k
+ @itemexit
+ @do map is 456
+ @do x is 32
+ @do y is 7
+ @loadmap &map
+ @update
+ @closescript
+ @end
+@IF RESPONSE IS 6 THEN DO
+;Bonetown
+ @BEGIN
+ @do `p25 is `p11
+ @do `p25 / 5
+ @do `p11 - `p25
+ @show
+`r0`c`\ `2Being that the Myphon Groon is a very non-existent thing, it
+ takes quite a bit of energy to use it...
+
+ You lose `0`p25`2 turns today for rubbing the Groon...
+
+`k
+ @itemexit
+ @do map is 1572
+ @do x is 50
+ @do y is 18
+ @loadmap &map
+ @update
+ @closescript
+ @end
+@IF RESPONSE IS 7 THEN DO
+;Arrisville
+ @BEGIN
+ @do `p25 is `p11
+ @do `p25 / 5
+ @do `p11 - `p25
+ @show
+`r0`c`\ `2Being that the Myphon Groon is a very non-existent thing, it
+ takes quite a bit of energy to use it...
+
+ You lose `0`p25`2 turns today for rubbing the Groon...
+
+`k
+ @itemexit
+ @do map is 523
+ @do x is 22
+ @do y is 11
+ @loadmap &map
+ @update
+ @closescript
+ @end
+@IF RESPONSE IS 8 THEN DO
+ @BEGIN
+@if tlsyoda1.dat exist true then do
+ @begin
+ @readfile tlsyoda1.dat
+`p20
+`p21
+ @do `s01 is getname `p20
+ @do `s02 is getname `p21
+
+ @if `p20 is &playernum then do
+ @begin
+ @show
+`r0`c`\`\ `2The Groon trembles. Then it denies you...
+
+ `2Yoda's voice bellows. `0"You are not allowed in Dagobah, you are not.
+ A friend of the force you are never. This all because of the good advice
+ of `%`s02`0, it is. A friend of the force is he.."
+
+`k
+ @itemexit
+ @drawmap
+ @update
+ @closescript
+ @end
+ @end
+
+ @do `p21 is 0
+ @do `p20 is 0
+ @datanewday TLSTODAG.DAT
+ @dataload TLSTODAG.DAT &playernum `p20
+ @if `p20 is 2 then do
+ @begin
+ @show
+`c`\`\ `2The Groon feels you have already had a fair chance on Dagobah today.
+
+ Perhaps tomorrow, the force will be more with you...
+
+ `k
+ @itemexit
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @if `p20 is 1 then do
+ @begin
+ @show
+`c`\`\ `2The Groon shakes as you return to Dagobah...
+
+`k
+ @itemexit
+ @do map is 496
+ @do x is 37
+ @do y is 13
+ @loadmap &map
+ @update
+ @do bank + money
+ @do money is 0
+ @closescript
+ @end
+
+ @do goto GTRANS2
+ @closescript
+ @end
+
+ @itemexit
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#GTRANS2
+ @datanewday TLSTURNS.DAT
+ @do `v01 is 1
+ @do `p25 random 500 500
+ @show
+`c`\ `2The Groon shakes ominously. Your hair stands on end. In a quick burst
+ of nothingness, you are transported into a very dull black.
+
+ You can hear the voice of your mentor, friend, and short little troll, Yoda.
+
+ `0"About to enter Dagobah you are, yes. A great much help could you be
+ there, to me, even. Yes. There is a catch: all your money will be deposited
+ in your bank account, it will, yes. There pick it up can you.
+
+ You will be given `%`p25 `0turns today to spend in Dagobah. You must spend
+ them all at once, or never today can you return again...
+
+ There will, of course, be for my services a small fee.
+
+ Do you wish to continue?" `2his voice squawks at you.
+
+@do write
+`x`x
+@choice
+Yes
+No
+@if response is 1 then do
+ @begin
+ @itemexit
+ @do map is 496
+ @loadmap &map
+ @drawmap
+ @update
+ @do x is 37
+ @do y is 13
+ @do bank + money
+ @do money is 0
+ @datasave TLSTURNS.DAT &playernum `p11
+ @datasave TLSTODAG.DAT &playernum 1
+ @do `p11 + `p25
+ @closescript
+ @end
+
+@itemexit
+@drawmap
+@update
+@closescript
+@end
+
+@#FALL
+ @do saybar
+`!Don't fall...
+
+@#SENTRY
+@do moveback
+@do `v01 is 1
+@offmap
+@label STALKIN
+@show
+`r0`c `r1`% Jabba's Hutt and Lounge `r0
+`\ `2A strange guy with coils around his neck approaches you.
+
+ `0"Jabba no bodda," `2he says to you.
+
+@DO WRITE
+`x`x`x
+@CHOICE
+What?
+>&money 250 Let me in! (250 gold)
+Leave
+@IF RESPONSE IS 1 THEN DO
+@begin
+@show
+`\`\ `$"What the hell did you say?"
+
+`k `0"Shhhh," `2the thing whispers`0, "he's aseet!"
+
+`k `$"You mean asleep."
+
+`k `0"No, he's actually dead. Died a few years back. The new owner had
+ him stuffed and mounted in the center of the room. The new owner's great.
+ He turned Jabba's two-bit gambling place into a full out inn! If you want
+ to check it out, it'll be 250 gold!"
+
+`\`k
+@do goto STALKIN
+@END
+
+@IF RESPONSE is 2 THEN DO
+ @begin
+ @do money - 250
+ @do x is 15
+ @drawmap
+ @update
+ @do saybar
+`0Sentry: `2Watch your step in there...
+ @end
+
+@if RESPONSE is 3 THEN DO
+@drawmap
+@update
+@closescript
+@end
+
+@drawmap
+@update
+@closescript
+@end
+
+@#SBEHIND
+ @do x is 18
+ @do saybar
+`0 Sentry: `2See you next time...
+
+@#BARTEND
+@do `p20 is 0
+@dataload tlswant.dat &playernum `p20
+
+ @if `p20 is 1 then do
+ @begin
+ @do goto BUYBAR
+ @end
+
+ @if `p20 is 0 then do
+ @do saybar
+`0Bartender: `$We don't serve your kind here...
+ @end
+
+@#BUYBAR
+ @do `v01 is 1
+ @offmap
+ @show
+`r0`c `r1`% The New Owner's Bar and Grill `r0
+`\ `2This fat fellow looks very apologetic.
+
+ `0"Looks like I misjudged you, `2he says. `0"What'll it be?"
+
+@DO WRITE
+`x`x
+@CHOICE
+>&money 9999 Give me an Android Surprise (10,000 gold)
+>&money 14999 How about an Ewok Shake (15,000 gold)
+>&money 19999 Make it a Moxie Jawa (20,000 gold)
+You charge too much, craphead...
+@IF RESPONSE IS 1 THEN DO
+@begin
+@show
+`\`\ `$"Give me an Android Surprise!"
+
+`k `0"You got it, Mister..."
+
+ `2You guzzle down the frothy liquid and feel somehow a bit more like
+ steel.
+
+ `#Muscle goes up by 8!
+
+`k
+@do `p04 + 8
+@do money - 10000
+@do goto BUYBAR
+@END
+
+@IF RESPONSE IS 2 THEN DO
+@begin
+@show
+`\`\ `$"How about an Ewok Shake, buddy!"
+
+`k `0"You got it, Mister..."
+
+ `2You guzzle down the fuzzy liquid and feel somehow a bit more hairy!
+
+ `@Dodge goes up by 10!
+
+`k
+@do `p05 + 10
+@do money - 15000
+@do goto BUYBAR
+@END
+
+@IF RESPONSE IS 3 THEN DO
+@begin
+@show
+`\`\ `$"Make it a Moxie Jawa!"
+
+`k `0"You got it, Mister..."
+
+`2 You guzzle down the salesman-like solution and feel somehow like you
+ could last a little longer in the desert...
+
+ `@Max Hitpoints raised by 8!
+
+`k
+@do `p03 + 8
+@do money - 20000
+@do goto BUYBAR
+@END
+
+@drawmap
+@update
+@closescript
+@end
+
+@#GROWL
+@do moveback
+@do saybar
+`0He growls gratuitously at you...
+
+@#WANTED
+@do moveback
+@dataload tlswant.dat &playernum `p21
+@if `p21 is 1 then do
+ @begin
+ @do saybar
+`0A Wanted Man: `2You've won everybody's respect, fellow delinquent...
+ @closescript
+ @end
+
+ @show
+`r0`c `r1`% A Wanted Man `r0
+
+ `0"He doesn't like you," `2this guy says to you.
+
+`k `$"I'm sorry!"
+
+`k `0"I don't like you either. I'm a wanted man! I've got the death warrant
+ on twelve systems..."
+
+`k `$"I'll be careful, lard ass..."
+
+`k `0"You'll be dead!"
+
+`\`k
+ @do goto WANTFIGHT
+ @closescript
+ @end
+
+@#WANTFIGHT
+@fight
+;name
+`0A Wanted Man
+;string said when you see him
+Looks like you've got the death warrant...
+;power move kill string
+I don't like YOU, either!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+bops you good|85
+slaps you silly|115
+whacks your willy|135
+NONE|NONE
+NONE|NONE
+;defense
+95
+;gold reward
+25000
+;experience
+3000
+;hit points
+215
+;if win: ref file|name or NONE
+TLS1.REF|MANWIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+@drawmap
+@update
+@closescript
+@end
+
+@#MANWIN
+@datasave tlswant.dat &playernum 1
+@drawmap
+@update
+@do saybar
+`4You didn't win much but respect...
+
+@#LAYA
+@do moveback
+@if &sex is 0 then do
+ @begin
+ do saybar
+`0Sorry, girls. Women's flirting is, as of yet, unfinished...
+ @end
+@if &sex is 1 then do
+ @BEGIN
+ @datanewday tlslaya.idf
+ @dataload tlslaya.idf &playernum `p26
+ @if `p26 is 1 then do
+ @begin
+ @do saybar
+`0You've been suave enough for one day...
+ @closescript
+ @end
+
+@DO `p25 random 12 1
+ @do `v01 is 1
+ @SHOW
+`r0`c `r1`% Princess Laya `r0
+
+`2 This fine-looking specimen smiles dumbly at you.
+
+ `0"Hi! My name's Laya. I'm a princess. Some people like to tease me. I don't
+ like that at ALL! <giggle>. What's your name? You're kinda cute..."
+
+@do write
+`x`x
+@CHOICE
+>`p08 0 Wink at her
+>`p08 15 Kiss her hand
+>`p08 22 Peck her on the lips
+>`p08 43 Slap her on the behind
+>`p08 65 Make out session
+>`p08 87 Bed together!
+Sorry, you're too dumb...even for me.
+@if response is 1 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `2You give princess Laya a good wink!
+
+ She smiles back at you and blows a kiss! Excellent!
+
+ `@Charm goes up by 1.
+`\`k
+
+ @datasave tlslaya.idf &playernum 1
+ @do `p08 + 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlslaya.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@end
+
+@if response is 2 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `2Like the debonaire young man you are, you kiss her on the hand and
+ in a well-fashioned English accent sweet-talk her...
+
+ She kisses you on the cheek. Smooth!
+
+ `@Charm goes up by 1.
+`\`k
+ @do `p08 + 1
+ @datasave tlslaya.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlslaya.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@if response is 3 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `2You sneak in a quick flirtatious peck on the lips and, to your very
+ lucky surprise, she engulfs your peck with a good sloppy wet-one!
+
+ `@Charm goes up by 1.
+`\`k
+ @do `p08 + 1
+@do addlog
+ `r0 `0`n`2 has kissed quite heavily `0Miss Princess Laya
+ @writefile lognow.txt
+ `2at `0The Loose Screw Resort!
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave tlslaya.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlslaya.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@if response is 4 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `2You decide to take the plunge. Very confidently, you sneak your hand
+ around to the princess' backside and with a swift pump whack on her very
+ tight ass...
+
+ She laughs and gives you a kiss!
+
+ `@Charm goes up by 1.
+`\`k
+ @do `p08 + 1
+@do addlog
+ `r0 `0`n`2 has slapped `0Miss Princess Laya`2's ass
+ @writefile lognow.txt
+ `2at `0The Loose Screw Resort!
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave tlslaya.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlslaya.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@if response is 5 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `$"Hey, Laya! I feel like we've gotten to know each other fairly well,
+ don't you? I, well, I...well...I was wondering if you'd make out with me?"
+
+`k `0"Right here?"
+
+`k `$"Yes...you know, if you would...please..."
+
+`k `2Before you can answer, she jumps on top of you. You roll around for a bit
+ and just as you start feeling like more -- she stands up and says thank you.
+
+ `@Charm goes up by 1.
+`\`k
+ @do `p08 + 1
+@do addlog
+ `r0 `0`n`2 has made out with `0Miss Princess Laya
+ @writefile lognow.txt
+ `2at `0The Loose Screw Resort!
+ `2-`0=`2-`%=`2-`0=`2-
+
+ @datasave tlslaya.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlslaya.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@if response is 6 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `2Remembering your good ol' days with Violet, you grab Laya and carry her
+ to the nearest bed you can find.
+
+ `2It is refreshing. It is enlightening. It is, in short, about the third
+ best sex you have ever had...
+
+ `@Charm goes up by 3.
+ `@Lays go up by 1.
+`\`k
+ @do addlog
+ `7-`8= `r0 `0`n`2 has stolen the virginity of `0Miss Princess Laya! `8=`7-
+ @writefile lognow.txt
+ `2at `0The Loose Screw Resort!
+ `2-`0=`2-`%=`2-`0=`2-
+ @do `p02 is `p03
+ @do `p08 + 3
+ @do `p34 + 1
+ @do x is 41
+ @do y is 2
+ @datasave tlslaya.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlslaya.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@drawmap
+@update
+@CLOSESCRIPT
+@END
+
+@#TIRA
+@do moveback
+@if &sex is 0 then do
+ @begin
+ do saybar
+`0Sorry, girls. Women's flirting is, as of yet, unfinished...
+ @end
+@if &sex is 1 then do
+ @BEGIN
+ @datanewday tlstira.idf
+ @dataload tlstira.idf &playernum `p26
+ @if `p26 is 1 then do
+ @begin
+ @do saybar
+`0You've been suave enough for one day...
+ @closescript
+ @end
+
+@DO `p25 random 10 1
+ @do `v01 is 1
+ @SHOW
+`r0`c `r1`% Tira, 2nd only to Violet `r0
+
+`2 This girl is not only beautiful, but as some French poets might say, "Elle
+ a petite ma'chaureuse et chartruesse et oponumen."
+
+`2 It's true that no one knows what this means, but, being that French poets
+ have said it, it is safe to say it describes Tira very well...
+
+ `0"Well, hello there, `N.
+ `0I'd like to get to know you better..."
+
+@do write
+`x`x
+@CHOICE
+>`p08 10 Wink at her
+>`p08 12 Kiss her hand
+>`p08 24 Peck her on the lips
+>`p08 36 Slap her on the behind
+>`p08 52 Make out session
+>`p08 74 Bed together!
+I think I need some charm, baby...
+@if response is 1 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `2You give Tira a good wink!
+
+ She smiles back at you and blows a kiss! Excellent!
+
+ `@Charm goes up by 2.
+`\`k
+
+ @datasave tlstira.idf &playernum 1
+ @do `p08 + 2
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlstira.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@end
+
+@if response is 2 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `2Like the debonaire young man you are, you kiss her on the hand and
+ in a well-fashioned English accent sweet-talk her...
+
+ She kisses you on the cheek. Smooth!
+
+ `@Charm goes up by 2.
+`\`k
+ @do `p08 + 2
+ @datasave tlstira.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlstira.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@if response is 3 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `2You sneak in a quick flirtatious peck on the lips and, to your very
+ lucky surprise, she engulfs your peck with a good sloppy wet-one!
+
+ `@Charm goes up by 2.
+`\`k
+ @do `p08 + 2
+@do addlog
+ `r0 `0`n`2 has kissed quite heavily `0Miss Tira,
+ @writefile lognow.txt
+ `02nd only to Violet`2 at `0The Loose Screw Resort!
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave tlstira.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlstira.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@if response is 4 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `2You decide to take the plunge. Very confidently, you sneak your hand
+ around to the Tira's backside and with a swift pump whack on her very
+ tight ass...
+
+ She laughs and gives you a kiss!
+
+ `@Charm goes up by 2.
+`\`k
+ @do `p08 + 2
+@do addlog
+ `r0 `0`n`2 has slapped `0Miss Tira`2's ass
+ @writefile lognow.txt
+ `2at `0The Loose Screw Resort!
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave tlstira.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlstira.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@if response is 5 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `$"Hey, Tira! I feel like we've gotten to know each other fairly well,
+ don't you? I, well, I...well...I was wondering if you'd make out with me?"
+
+`k `0"Right here?"
+
+`k `$"Yes...you know, if you would...please..."
+
+`k `2Before you can answer, she jumps on top of you. You roll around for a bit
+ and just as you start feeling like more -- she stands up and says thank you.
+
+ `@Charm goes up by 2.
+`\`k
+ @do `p08 + 2
+ @do addlog
+ `r0 `0`n`2 has made out with `0Miss Tira
+ @writefile lognow.txt
+ `2at `0The Loose Screw Resort!
+
+ @datasave tlstira.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlstira.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@if response is 6 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `2Remembering your good ol' days with Violet, you grab Tira and carry her
+ to the nearest bed you can find.
+
+ `2It is refreshing. It is enlightening. It is, in short, about the `0second
+ best `2sex you have ever had...
+
+ `@Charm goes up by 5.
+ `@Lays go up by 1.
+`\`k
+ @do addlog
+ `7-`8= `r0 `0`n`2 has stolen the virginity of `0Miss Tira,
+ @writefile lognow.txt
+ `02nd only to Violet `2at `0The Loose Screw Resort! `8=`7-
+ `2-`0=`2-`%=`2-`0=`2-
+ @do `p02 is `p03
+ @do `p08 + 5
+ @do `p34 + 1
+ @do x is 41
+ @do y is 2
+ @datasave tlstira.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlstira.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@drawmap
+@update
+@CLOSESCRIPT
+@END
+
+@#VIOLET
+@do moveback
+@if &sex is 0 then do
+ @begin
+ do saybar
+`0Sorry, girls. Women's flirting is, as of yet, unfinished...
+ @end
+@if &sex is 1 then do
+ @BEGIN
+ @datanewday tlsvlet.idf
+ @dataload tlsvlet.idf &playernum `p26
+ @if `p26 is 1 then do
+ @begin
+ @do saybar
+`0You've been suave enough for one day...
+ @closescript
+ @end
+
+@DO `p25 random 8 1
+ @do `v01 is 1
+ @SHOW
+`r0`c `r1`% Violet! `r0
+
+`2 Standing before you is the mother of all women. The Venus of all Venuses.
+ The Goddess of all Goddesses...a woman comparable only to the envision of
+ sex, itself. Violet. You think to yourself, "God, I have missed her."
+
+ `0It's been such a long time, `N.
+ `0Perhaps we should get to know each other better..."
+
+@do write
+`x`x
+@CHOICE
+>`p08 16 Wink at her
+>`p08 30 Kiss her hand
+>`p08 54 Peck her on the lips
+>`p08 68 Slap her on the behind
+>`p08 86 Make out session
+>`p08 120 Bed together!
+Not enough charm for you, Violet...
+@if response is 1 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `2You give Violet a good wink!
+
+ She smiles back at you and blows a kiss! Excellent!
+
+ `@Charm goes up by 3.
+`\`k
+
+ @datasave tlsvlet.idf &playernum 1
+ @do `p08 + 6
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlsvlet.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@end
+
+@if response is 2 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `2Like the debonaire young man you are, you kiss her on the hand and
+ in a well-fashioned English accent sweet-talk her...
+
+ She kisses you on the cheek. Smooth!
+
+ `@Charm goes up by 3.
+`\`k
+ @do `p08 + 3
+ @datasave tlsvlet.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlsvlet.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@if response is 3 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `2You sneak in a quick flirtatious peck on the lips and, to your very
+ lucky surprise, she engulfs your peck with a good sloppy wet-one!
+
+ `@Charm goes up by 3.
+`\`k
+ @do `p08 + 3
+@do addlog
+ `r0 `0`n`2 has kissed quite heavily `0Miss Violet
+ @writefile lognow.txt
+ `2at `0The Loose Screw Resort!
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave tlsvlet.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlsvlet.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@if response is 4 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `2You decide to take the plunge. Very confidently, you sneak your hand
+ around to the Violet's backside and with a swift pump whack on her very
+ tight ass...
+
+ She laughs and gives you a kiss!
+
+ `@Charm goes up by 3.
+`\`k
+ @do `p08 + 3
+ @do addlog
+ `r0 `0`n`2 has slapped `0Miss Violet`2's ass
+ @writefile lognow.txt
+ `2at `0The Loose Screw Resort!
+ `2-`0=`2-`%=`2-`0=`2-
+ @datasave tlsvlet.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlsvlet.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@if response is 5 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `$"Hey, Violet! I feel like we've gotten to know each other fairly well,
+ don't you? I, well, I...well...I was wondering if you'd make out with me?"
+
+`k `0"Right here?"
+
+`k `$"Yes...you know, if you would...please..."
+
+`k `2Before you can answer, she jumps on top of you. You roll around for a bit
+ and just as you start feeling like more -- she stands up and says thank you.
+
+ `@Charm goes up by 3.
+`\`k
+ @do `p08 + 3
+@do addlog
+ `r0 `0`n`2 has made out with `0Miss Violet
+ @writefile lognow.txt
+ `2at `0The Loose Screw Resort!
+ @datasave tlsvlet.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlsvlet.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@if response is 6 then do
+ @begin
+ @if `p25 > 5 then do
+ @begin
+ @show
+`\`\ `2Remembering your good ol' days with her, you grab Violet and carry her
+ to the nearest bed you can find.
+
+ `2It is refreshing. It is enlightening. It is, in short, the `0best damn
+ `2sex you have ever had...
+
+ `@Charm goes up by 10
+ `@Lays go up by 1.
+ `@Max Hitpoints go up by 10
+
+`\`k
+ @do addlog
+ `$*`7-`8= `r0 `0`n`2 has stolen the virginity of `0Miss Violet! `8=`7-`$*
+ @writefile lognow.txt
+ `2at `0The Loose Screw Resort!
+ `2-`0=`2-`%=`2-`0=`2-
+ @do `p03 + 10
+ @do `p02 is `p03
+ @do `p08 + 10
+ @do `p34 + 1
+ @do x is 41
+ @do y is 2
+ @datasave tlsvlet.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if `p25 < 6 then do
+ @datasave tlsvlet.idf &playernum 1
+ @show
+`\
+ `0She slaps you silly! Don't you feel like an ass...
+
+`k
+ @drawmap
+ @update
+ @closescript
+@end
+
+@end
+
+@drawmap
+@update
+@CLOSESCRIPT
+@END
diff --git a/xtrn/lord2/cnw/tls2.ref b/xtrn/lord2/cnw/tls2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..1d3d1a90d54078a36467e20a70dc2e646a957a6a
--- /dev/null
+++ b/xtrn/lord2/cnw/tls2.ref
@@ -0,0 +1,433 @@
+; Script file TLS2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:41 2001
+
+@DECLARE sign1 000000570
+@DECLARE sign2 000000660
+@DECLARE sign3 000000778
+@DECLARE worm1 000000858
+@DECLARE worm2 000000929
+@DECLARE worm3 000001001
+@DECLARE worm4 000001071
+@DECLARE worm5 000001143
+@DECLARE worm6 000001214
+@DECLARE getsaber 000001288
+@DECLARE luke 000001685
+@DECLARE whoa 000001952
+@DECLARE greedo 000002018
+@DECLARE screw 000004809
+@DECLARE gscrew 000005126
+@DECLARE gdeath 000005342
+@DECLARE nomore 000011376
+@NOCHECK
+; End of .REF index
+
+@#SIGN1
+@do moveback
+@do saybar
+`0The Loose Screw Resort `2by Chris Yeates `0v1.03
+
+@#SIGN2
+@do moveback
+@do saybar
+`0The Future Headquarters of The Loose Screw BBS `2(`0801`2)`0561`2-`04780 ;)
+
+@#SIGN3
+@do moveback
+@do saybar
+`0Dedicated to a galaxy far, far away...
+
+@#WORM1
+@do saybar
+`9Whoa...wormhole...
+@do x is 21
+@do y is 2
+
+@#WORM2
+@do saybar
+`9Whoa...wormhole...
+@do x is 35
+@do y is 15
+
+@#WORM3
+@do saybar
+`9Whoa...wormhole...
+@do x is 4
+@do y is 4
+
+@#WORM4
+@do saybar
+`9Whoa...wormhole...
+@do x is 76
+@do y is 19
+
+@#WORM5
+@do saybar
+`9Whoa...wormhole...
+@do x is 76
+@do y is 2
+
+@#WORM6
+@do saybar
+`9Whoa...wormhole...
+@do x is 21
+@do y is 2
+
+@#GETSABER
+@if `i96 < 1 then do
+ @begin
+ @if `p18 < 1500 then do
+ @begin
+ @do `p22 is `p18
+ @do `p23 is 1500
+ @do `p23 - `p22
+ @do saybar
+`!You can't pull the light saber out. You need `%`p23 `!more quest points!
+ @closescript
+ @end
+ @do saybar
+`0You find a light saber!
+ @do `i96 + 1
+ @closescript
+ @end
+@if `i96 > 1 then do
+ @begin
+ @do saybar
+`0It's a nice planet...
+ @end
+
+@#LUKE
+@do moveback
+@if `i96 < 1 then do
+ @begin
+ @do saybar
+`@Luke: `0Damnit. I dropped my damn lightsaber somewhere out there...
+ @end
+@if `i96 > 0 then do
+ @begin
+ @do saybar
+`@Luke: `0You can have it. I've decided to enlist in the dark side.
+ @end
+
+@#WHOA
+@do saybar
+`0Whoa...you float off the spaceport...
+
+@#GREEDO
+@do `p20 is 0
+@offmap
+@do `v01 is 1
+@if TLSBUR.DAT exist true then do
+ @begin
+ @readfile TLSBUR.DAT
+`p20
+`p21
+ @do `s01 is getname `p20
+ @do `s02 is getname `p21
+
+ @if `p20 is &playernum then do
+ @begin
+ @do saybar
+`$Burrito: `0If I ever catch you alone, `n...
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 Burrito, brother of Greedo `r0
+
+ `2A guy whose face rather resembles a low-budget green mask, which in turn
+ quite resembles the green mask of an anteater, turns to you from across
+ the table...
+
+ `0"I've got my sights set on `%`s01`0. It was `%`s02`0's
+ request...is this a clear deal or not"? `2he says in a gruff voice.
+
+ @end
+
+@if TLSBUR.DAT exist false then do
+ @begin
+ @show
+`r0`c `r1 Burrito, brother of Greedo `r0
+
+ `2A guy whose face rather resembles a low-budget green mask, which in turn
+ quite resembles the green mask of an anteater, turns to you from across
+ the table...
+
+ `0"Hey there, fellow...name's Burrito, brother of Greedo, son of Lopito and
+ Maria Moreedo. I'm rather paranoid after my brother's death. Know of anyone
+ that should be -- kicking the bucket -- so to speak?"
+
+ @end
+
+@do write
+`x`x
+@choice
+Tell Burrito to let someone have it!
+>`p20 0 Tell Burrito not to be worried about `0`s01.
+Leave
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `0"So, you know who killed my brother...who!?!"
+ @chooseplayer `p22
+ @if `p22 is 0 then do
+ @begin
+ @show
+`k
+ @do goto greedo
+ @end
+ @if `p22 is &playernum then do
+ @begin
+ @show
+ `0"I don't believe you. You don't look like a killer." `\`\`k
+ @do goto greedo
+ @end
+
+ @if TLSBUR.DAT exist true then delete TLSBUR.DAT
+ @writefile TLSBUR.DAT
+`p22
+&playernum
+ @show
+ `0"That bastard. He'll pay. Dropping his cargo on the first site of
+ an Imperial Crusier. I've got my sights set on him", `2Burrito says
+ to you from across the table.
+`\`k
+ @readfile TLSBUR.DAT
+`p20
+`p21
+ @do `s01 is getname `p20
+ @do `s02 is getname `p21
+@do addlog
+ `r0 `7-`!= `0`s02`2 tipped Burrito off about `0`s01
+@writefile lognow.txt
+ `2at `#The Loose Screw Resort `!=`7-
+ `2-`0=`2-`%=`2-`0=`2-
+ @do goto greedo
+ @end
+
+@if responce is 2 then do
+ @begin
+ @if TLSBUR.DAT exist true then delete TLSBUR.DAT
+ @show
+`\`\ `2You tell Burrito he's a paranoid delusional freak.
+ Luckily, he agrees with you and decides that `0`s01`2 should be
+ left alone.
+`\`k
+@do addlog
+ `r0 `7-`!= `0`s02`2 told Burrito to leave `0`s01 `2alone
+@writefile lognow.txt
+ `2at `#The Loose Screw Resort `!=`7-
+ `2-`0=`2-`%=`2-`0=`2-
+ @do goto greedo
+ @end
+
+@drawmap
+@closescript
+@end
+
+@#SCREW
+@dataload tlsscrew.dat &playernum `p20
+
+@if `p20 not 8 then do
+ @begin
+ @do saybar
+`0You find, believe it or not, a screw!
+ @datasave tlsscrew.dat &playernum 8
+ @closescript
+ @end
+
+@if `p20 is 8 then do
+ @begin
+ @do saybar
+`0There is nothing on this table.
+ @closescript
+ @end
+
+@#GSCREW
+ @itemexit
+ @do map is 656
+ @do x is 35
+ @do y is 17
+ @loadmap &map
+; @drawmap
+ @update
+ @do saybar
+'0You find yourself once again stuck in this god-awful place.
+ @closescript
+ @end
+
+@#GDEATH
+@if TLSBUR.DAT exist true then do
+ @begin
+ @readfile TLSBUR.DAT
+`p20
+`p21
+ @do `s01 is getname `p20
+ @do `s02 is getname `p21
+
+ @if `p20 is &playernum then do
+ @begin
+ @show
+`r0`c `r4 Burrito, brother of Greedo, in the Hall `r0
+
+ `0"Going somewhere, `n?" `2Burrito says to you from the end of this
+ dark and musty corridor.
+
+`k `$"What?" `2you answer him irritably. You don't have time for this.
+
+`k `0"This place can't afford to pay a smuggler who drops his cargo at the
+ first site of an Imperial Cruiser," `2he says as he steps carefully towards
+ you, pulling from his holster a silly looking ray-gun.
+
+`k `$"Nice gun, jack ass."
+
+`k `0"And you killed my brother, bastard! You're going to rot in hell
+ with minok's chewing at your genitals!" `2he says, and runs at you.
+
+`k `$"Over my dead body," `2you say with proud confidence.
+
+`k `0"That's the idea..."
+
+`k `2And before you even have a chance to state your confusion, repulsion,
+ and strong dislike for the burden of death, Burrito has shot both your
+ knee-caps off. You stumble around for a bit, before he steps solidly on
+ your head and squashes it like, well, like a squash.
+
+ `0"It's a good thing `!`s02 `0tipped me off about you," `2he says...
+
+ @do X is 27
+ @do Y is 7
+ @do money / 2
+ @do `p02 is `p03 (give 'em max hit points)
+ @do `p20 is `p01
+ @do `p20 / 5
+ @do `p01 - `p20
+ @do MAP is 155
+ @do dead is 1
+ @update_update
+
+ @do talk `4Newsflash:`0`x`n`x`2was`xdefeated`xby`x`0Burrito `2at `0The Loose Screw Resort.
+@show
+ `4You've been killed. `k
+
+@pauseoff
+@show
+`r0`c
+[34C[0m���������������
+[29C���[1;30;47m����[0;47m�[1;30m�[0;47m�����������[40m�
+[28C�[1;30;47m����[0;47m������������������[40m�
+[27C�[1;30;47m����[0;47m��������[1;30m��[0;47m���������[40m�
+[19C��[5C�[1;30;47m����[0;47m����������[1;30m����[0;47m�����[40m
+[A[50C[47m[1;30m�[0m��
+[18C���� [1;30;47m�����[0;47m�����[1;30m� �[0;47m�[1;30m���[40m
+[A[43C[0;47m�����[1;30m�ܲ[0m�[47m�[1C[40m�[1;47m��[40m�
+[17C[30m�[47m�[0;47m��[1m�[0m� [1;30;47m���� [0;47m��[1;30m�[40m
+[A[34C[0;47m�[1;30m�����߰�[0;47m�[1;30m�[0;47m����[1;30m߲�[40m
+[A[52C[47m[0m�[1;30m�[47m�[0;47m�[1m�[40m�
+[17C[30;47m���[0;47m��[1m��[0m� [1;30m�[0m��� [1;30m�߲[47m[40m
+[A[37C[47m����[40m���[5C[0m��[1;30;47m�[40m�[47m��[0m� �
+[18C[1;30m���[47m��[0;47m� [1;30m�[1C[0m� [31m� [1;30m��
+[A[38C[47m���[40m� [0;31m� [37m��[1;30;47m�[40m�
+[23C[0m�[1;30;47m��[40m�[0m���� ��[1;30;47m�[0m��[1;30m�
+[A[41C[47m�[0m�� ��[1;47m�[0m�[1;30m�
+[25C[47m�[40m�[0m�[1;30;47m� [0;47m��[1;30m�����[0m� [1;30m� [0m�
+[A[42C[1;30;47m����[0;47m����[1m��[0m�
+[26C�[1;30;47m�[0;47m����[1;30mܲ��[0;47m�[2C[1;30;40m�� [47m��[40m
+[A[44C[47m�[0;47m�����[40m��
+[27C���[1;30;47m��[40m���[47m�[0m��[1;30;47m�����[40m��[0m� ����
+[29C[1;30m�� �� [0m��[1;30m�� �[0m�[1;30m� �� [47m��[0m�
+[27C�[1;30;47m���[40m� � [47m�[0m�[1;47m��[40m��[0m��[1;30;47m[40m
+[A[43C[47m�[40m� � [47m��[0;47m�[40m�
+[22C[1m� [47m��[30m��[40m� [0m� [1;30m� [0m� �[1m� �[0m� �
+[A[45C[1;30m��[47m�[1C[0m�[47m [1m�[40m���
+[19C�[47m�����[30m�[0m�� ���[1;30;47m�[0;47m�[40m�� ����� ��
+[A[45C[1;30;47m��[0;47m��[40m� �[1;30;47m�[37m��[40m�[47m�[40m
+[19C[0;31m� [37m���[1;30;47m�[40m�[0;33mܲ�� [37m�[1;47m��[30m[40m
+[A[34C[47m�[0;47m���[1;30m��[0;47m���� [1m��[0m� [33m���[1;30m�
+[A[53C[47m�[0m��[31m�
+[17C�����[37m�[1;30m�[0;31m���[33;41m����[40m� [37m�[1;47m�[40m
+[A[35C[0;47m��[1;30mܱ[40m�[47m��[40m�[47m�[37m�[0m� [31m�
+[A[48C[33;41m���[31;40m��[1;30m�[0;31m��۲��
+
+ `%You have made an error, s&boy.
+
+`k
+ @if `v03 is 0 then do
+ @begin
+ ;rules.ref file says unlimited deaths not allowed, so we will boot them
+ ;till tomorrow
+
+ ;take them off the map
+ @do map is 1
+ @halt
+ @end
+
+ @pauseon
+
+ @do dead is 0
+
+ @if `p07 less 0 then do
+ @begin
+ @show
+`r0`c`% `r1IT FEELS KINDA WARM IN HERE?`r0
+
+ `4You open your eyes.
+
+`k `4There are naked screaming people all around you. A little boy with
+ a ghastly face begins to gnaw on your leg.
+
+`k `6"Din, leave the newcomer alone. S&he isn't staying." `4a slow voice that
+ can only be described as an abomination dolefully states.
+
+`k `2You feel yourself floating away... faster and faster.
+ @end
+
+ @if `p07 more -1 then do
+ @begin
+ @show
+`r0`c`% `r1APPARENTLY DEATH ISN'T THE END.`r0
+
+ `2You open your eyes.
+
+`k `2You are lying on a table of solid rock in a marble room. Hundreds of
+ soft voices are murmuring all around you, but you see no one.
+
+`k `%"Send s&him back." `2a voice whispers, this one louder than the others.
+
+`k `2You feel yourself floating away... faster and faster.
+
+`k
+ @end
+
+
+@show
+`c `r1`%AWAKENING.`r0
+
+ `0"Can you hear me, `n?" `2a stressed voice shouts.
+
+ `$"Yeah. Christ mom, lemmie up, I'm fine." `2you assure your mother.
+
+ `0"You're alive!! The elders brought your body here yesterday, you must
+ have fainted out there." `2your mother shouts, tears of joy streaming down
+ her wrinkled face.
+
+ `$"Ok, ok - nice little happy reunion and all that, but I gotta hit the
+ road now. Buhbye." `2you tell her. Afterall, you need to make the most of
+ this new lease on life.
+
+ `2You lose `4half`2 the gold you were carrying and `4`p20`2 experience.
+
+`k
+ @loadmap &map
+ @drawmap
+ @update
+
+ @if TLSBUR.DAT exist true then delete TLSBUR.DAT
+@do addlog
+ `r0 `7-`!= `2Burrito has squished like a squash `0`s01`2's head, thanks to the
+@writefile lognow.txt
+ good advice of `0`s02 `2at `#The Loose Screw Resort `!=`7-
+ `2-`0=`2-`%=`2-`0=`2-
+ @closescript
+ @end
+ @end
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/tls3.ref b/xtrn/lord2/cnw/tls3.ref
new file mode 100644
index 0000000000000000000000000000000000000000..5e79ae90eaaa4dc667628cea1b49f18f4cc6a996
--- /dev/null
+++ b/xtrn/lord2/cnw/tls3.ref
@@ -0,0 +1,803 @@
+; Script file TLS3.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:41 2001
+
+@DECLARE monster1 000000643
+@DECLARE monster2 000001209
+@DECLARE monster3 000001793
+@DECLARE monster4 000002390
+@DECLARE fight 000002932
+@DECLARE yoda 000002986
+@DECLARE yoda2 000007539
+@DECLARE yoda3 000008684
+@DECLARE events 000014494
+@DECLARE event1 000015799
+@DECLARE event2 000016072
+@DECLARE event3 000016336
+@DECLARE event4 000016609
+@DECLARE event5 000016879
+@DECLARE event6 000017136
+@DECLARE event7 000017405
+@DECLARE event8 000017662
+@DECLARE event9 000017928
+@DECLARE event10 000018197
+@NOCHECK
+; End of .REF index
+
+@#monster1
+@fight
+;name
+Ewok
+;string said when you see him
+That pathetic gibbering gets on your nerves.
+;power move kill string
+I will crush you with my foot!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+knaws on your knee|110
+knaws on your numb skull|140
+knaws on your nards|210
+NONE|NONE
+NONE|NONE
+;defense
+40
+;gold reward
+205
+;experience
+135
+;hit points
+120
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Imperial Guard
+;string said when you see him
+`0"Don't these guys ever talk," you think...
+;power move kill string
+`$"Your cool red outfit is mine!"
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+just stands there|135
+just stands here|145
+just stands there and looks scary|210
+NONE|NONE
+NONE|NONE
+;defense
+70
+;gold reward
+250
+;experience
+110
+;hit points
+220
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Stormtrooper
+;string said when you see him
+`2You hear him hit his head on the way in...
+;power move kill string
+`$I bet he can hardly see out of that thing...
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+shoots aimlessly|150
+punches uselessly|170
+at last shoots you|190
+kicks you in the balls|250
+NONE|NONE
+;defense
+65
+;gold reward
+300
+;experience
+180
+;hit points
+150
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Tie Figther
+;string said when you see him
+`2It is buzzing around brainlessly.
+;power move kill string
+`2Stay on target!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+shoots its phasers|115
+shoots a proton torpedo|105
+TIE bombs you|180
+NONE|NONE
+NONE|NONE
+;defense
+135
+;gold reward
+576
+;experience
+656
+;hit points
+875
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#FIGHT
+@do `p20 random 4 1
+@do goto monster`p20
+
+@#YODA
+@if tlsyoda1.dat exist true then do
+ @begin
+ @readfile tlsyoda1.dat
+`p20
+`p21
+ @do `s01 is getname `p20
+ @do `s02 is getname `p21
+
+ @if `p20 is &playernum then do
+ @begin
+ @do moveback
+ @do saybar
+`!Yoda: `$You're not allowed in here!
+ @closescript
+ @end
+@end
+@datanewday TLSTODAG.DAT
+@dataload TLSTODAG.DAT &playernum `p25
+@if `p25 < 1 then do
+ @begin
+ @do moveback
+ @do saybar
+`!Yoda's voice: `$Please use the Groon to come back to Dagobah...
+ @closescript
+ @end
+@do moveback
+@datanewday TLSYODA.DAT
+@do `p20 is 0
+@dataload TLSYODA.DAT &playernum `p20
+@if `p20 is 0 then do
+ @begin
+ @do goto YODA2
+ @end
+
+ @do `p20 is 0
+ @offmap
+ @do `v01 is 1
+ @if tlsyoda1.dat exist true then do
+ @begin
+ @readfile tlsyoda1.dat
+`p20
+`p21
+ @do `s01 is getname `p20
+ @do `s02 is getname `p21
+
+ @if `p20 is &playernum then do
+ @begin
+ @do saybar
+ `!Yoda: `$What are you doing here? Out! Out! Leave!
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 Master Yoda `r0
+
+ `2Master Yoda is in pieces. Literally. His lips speak to you...
+
+ `0"I will not let `%`s01`0 in, yes!. Good `%`s02`0's told me not
+ to. A wise person is he, yes," `2his lips squawk at you.
+
+ @end
+
+@if tlsyoda1.dat exist false then do
+ @begin
+ @show
+`r0`c `r1 Master Yoda `r0
+
+ `2Master Yoda is in pieces. Literally. His lips gawk at you...
+
+ `0"Any of me have you found, yes? No? Found me you have, no...Yes? Hrm.
+ Keep looking. Find something you will, yes."
+
+ @end
+
+@do write
+`x`x
+@choice
+Tell Mater Yoda not to let someone in.
+>`p20 0 Tell Master Yoda to let `0`s01 `%back in.
+Give me some stats while I'm here!
+Give Master Yoda the stuff you've found
+Leave
+@if responce is 1 then do
+ @begin
+ @show
+`\`\ `0"Who do you say cannot come in Dagobah, yes?"
+ @chooseplayer `p22
+ @if `p22 is 0 then do
+ @begin
+ @show
+`k
+ @do goto YODA
+ @end
+ @if `p22 is &playernum then do
+ @begin
+ @show
+ `0"You are yourself, yes. Not no one else, no. Sorry." `\`\`k
+ @do goto YODA
+ @end
+
+ @if tlsyoda1.dat exist true then delete tlsyoda1.dat
+ @writefile tlsyoda1.dat
+`p22
+&playernum
+ @show
+ `0"That person I will not let in here, yes. The Myphon Groon will not
+ let him, of course, yes. No. Thank you for off tipping him, yes.
+ Grateful am I. I am," `2Yoda's lips snicker.
+`\`k
+ @readfile tlsyoda1.dat
+`p20
+`p21
+ @do `s01 is getname `p20
+ @do `s02 is getname `p21
+@do addlog
+ `r0 `7-`!= `0`s02`2 told Mater Yoda to not let `0`s01 `2into Dagobah
+@writefile lognow.txt
+ `2at `#The Loose Screw Resort `!=`7-
+ `2-`0=`2-`%=`2-`0=`2-
+ @do goto YODA
+ @end
+
+@if responce is 2 then do
+ @begin
+ @if tlsyoda1.dat exist true then delete tlsyoda1.dat
+ @show
+`\`\ `2You tell Master Yoda not to be worried. With a swift upper lip,
+ he agrees...
+`\`k
+@do addlog
+ `r0 `7-`!= `0`s02`2 told Master Yoda to let `0`s01 `2back into Dagobah.
+@writefile lognow.txt
+ `2at `#The Loose Screw Resort `!=`7-
+ `2-`0=`2-`%=`2-`0=`2-
+ @do goto yoda
+ @end
+
+@if response is 3 then do
+ @begin
+ @dataload TLSEVE1.DAT &playernum `p20
+ @dataload tlseve2.dat &playernum `p21
+ @dataload tlseve3.dat &playernum `p22
+ @dataload tlseve4.dat &playernum `p23
+ @dataload tlseve5.dat &playernum `p24
+ @dataload tlseve6.dat &playernum `p25
+ @dataload tlseve7.dat &playernum `p26
+ @dataload tlseve8.dat &playernum `p27
+ @dataload tlseve9.dat &playernum `p28
+ @dataload tlseve10.dat &playernum `p29
+
+ @show
+`r0`c`\`\ `0"Looks, it does, like you have the following things:
+
+ `$-`2You are carrying `!`p20 `2fingernails.
+ `$-`2You have `!`p21 `2of Yoda's feet.
+ `$-`2You are carrying `!`p22 `2strands of Yoda's hair.
+ `$-`2You have `!`p23 `2of Yoda's wrinkles.
+ `$-`2You are carrying `!`p24 `2R2 unit(s).
+ `$-`2You have `!`p25 `2of Yoda's tongues.
+ `$-`2You are carrying `!`p26 `2X-Wing(s).
+ `$-`2You have `!`p27 `2of Yoda's ears.
+ `$-`2You are carrying `!`p28 `2of Yoda's canes.
+ `$-`2You have `!`p29 `2Darth Vader head(s).
+
+ @dataload TLSTURNS.DAT &playernum `p20
+ @do `p22 is `p11
+ @do `p22 - `p20
+ @show
+ `0...and it looks like you have `%`p22 `0turns left before leave you must
+ Dagobah until tomorrow."
+
+`k
+ @do goto YODA
+ @end
+
+@if response is 4 then do
+ @begin
+ @do goto YODA3
+ @end
+
+@drawmap
+@update
+@closescript
+@end
+
+@#YODA2
+ @offmap
+ @datanewday TLSEVE1.DAT &playernum `p20
+ @datanewday TLSeve2.dat &playernum `p21
+ @datanewday tlseve3.dat &playernum `p22
+ @datanewday tlseve4.dat &playernum `p23
+ @datanewday Tlseve5.dat &playernum `p24
+ @datanewday tlseve6.dat &playernum `p25
+ @datanewday tlseve7.dat &playernum `p26
+ @datanewday tlseve8.dat &playernum `p27
+ @datanewday tlseve9.dat &playernum `p28
+ @datanewday tlseve10.dat &playernum `p29
+ @do `v01 is 1
+ @show
+`r0`c `r1 Master Yoda `r0
+
+ `2Master Yoda is in pieces. Literally. Some of him on the floor, on
+ the table. His lips talk to you...
+
+ `0"Eee-gad, it was that underwater thing, yes, that chew me up, it did.
+ Myself, I am all over the place. Yes. My body pieces, they are helpful.
+ Yes. Your weapons, you will need them! And this pack. Take this pack and
+ find my body pieces and other things you will. Bring them back here,
+ yes?"
+
+`k `$"I will not fail you."
+
+`k `0"All right. All right. You're very positive, yes. Leave and find my
+ body!"
+
+`k
+
+ @datasave TLSYODA.DAT &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@#YODA3
+ @show
+`r0`c`\`\ `0"If, I find, you have found many of my things, for this
+ shall you be well rewarded," `2Yoda says to you.
+
+`k
+ @dataload TLSEVE1.DAT &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @do `p21 is `p20
+ @do `p21 / 3
+ @do `p22 random `p21 1
+ @do `p22 / 2
+ @do `p23 is `p20
+ @do `p25 random 500 1
+ @do `p23 * `p25
+ @do `p23 / 2
+ @show
+ `$-`0"For finding `!`p20 `0of my fingernails, get you will`l.`l.`l.
+`l
+ `4-`@Muscle increased by `%`p22`@!
+ `@-`$You receive `%`p23 `$gold!
+
+`k
+ @do `p04 + `p22
+ @do money + `p23
+ @datasave TLSEVE1.DAT &playernum 0
+ @do `p20 is 0
+ @end
+ @dataload TLSEVE2.DAT &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @do `p22 is `p20
+ @do `p22 / 4
+ @do `p27 random 200 500
+ @do `p23 is `p20
+ @do `p23 * `p27
+ @do `p23 / 2
+ @show
+ `$-`0"For finding `!`p20 `0of my feet, get you will`l.`l.`l.
+`l
+ `4-`@Dodge increased by `%`p22`@!
+ `@-`$You receive `%`p23 `$gold!
+
+`k
+ @do `p05 + `p22
+ @do money + `p23
+ @datasave TLSEVE2.DAT &playernum 0
+ @do `p20 is 0
+ @end
+ @dataload TLSEVE3.DAT &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @do `p22 is `p20
+ @do `p22 / 7
+ @do `p23 is `p20
+ @do `p24 random 15 8
+ @do `p23 * `p24
+ @do `p23 / 2
+ @show
+ `$-`0"For finding `!`p20 `0strands of my hair, get you will`l.`l.`l.
+`l
+ `4-`@Max HP increased by `%`p22`@!
+ `@-`$You receive `%`p23 `$gold!
+
+`k
+ @do `p03 + `p22
+ @do money + `p23
+ @datasave TLSEVE3.DAT &playernum 0
+ @do `p20 is 0
+ @end
+ @dataload TLSEVE4.DAT &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @do `p22 is `p20
+ @do `p22 / 25
+ @do `p25 random `p22 1
+ @do `p22 - `p25
+ @do `p29 random 5 1
+ @do `p23 is `p20
+ @do `p23 * `p29
+ @do `p26 is `p20
+ @do `p26 / 50
+ @do `p28 random 3 2
+ @do `p26 / `p28
+ @do `p27 is `p20
+ @do `p27 / 70
+ @do `p27 / `p28
+ @do `p23 / 2
+ @do `p23 / 2
+ @show
+ `$-`0"For finding `!`p20 `0of my wrinkles, get you will`l.`l.`l.
+`l
+ `4-`@Max HP increased by `%`p22`@!
+ `4-`@Muscle increased by `%`p26`@!
+ `4-`@Dodge increased by `%`p27`@!
+ `@-`$You receive `%`p23 `$gold!
+
+`k
+ @do `p03 + `p22
+ @do `p04 + `p26
+ @do `p05 + `p27
+ @do money + `p23
+ @datasave TLSEVE4.DAT &playernum 0
+ @do `p20 is 0
+ @end
+ @dataload TLSEVE5.DAT &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @do `p22 is `p20
+ @do `p21 random 2 1
+ @do `p22 * `p21
+ @do `p25 random 10000 5000
+ @do `p23 is `p20
+ @do `p23 * `p25
+ @do `p23 / 2
+ @do `p23 / 2
+ @show
+ `$-`0"For finding `!`p20 `0R2 unit(s), get you will`l.`l.`l.
+`l
+ `5-`#You receive `%`p22 `#gems!
+ `@-`$You receive `%`p23 `$gold!
+
+`k
+ @do `p19 + `p22
+ @do money + `p23
+ @datasave TLSEVE5.DAT &playernum 0
+ @do `p20 is 0
+ @end
+ @dataload TLSEVE6.DAT &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @do `p22 is `p20
+ @do `p23 random 3 1
+ @do `p22 / `p23
+ @show
+ `$-`0"For finding `!`p20 `0of my tongue(s), get you will`l.`l.`l.
+`l
+ `4-`@Charm increased by `%`p22`@!
+
+`k
+ @do `p08 + `p22
+ @datasave TLSEVE6.DAT &playernum 0
+ @do `p20 is 0
+ @end
+ @dataload TLSEVE7.DAT &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @do `p25 random 50000 25000
+ @do `p26 random 25000 1
+ @do `p25 - `p26
+ @do `p26 random 25000 1
+ @do `p25 + `p26
+ @do `p25 * `p20
+ @do `p25 / 2
+ @do `p23 is `p25
+ @do `p23 / 2
+ @show
+ `$-`0"For finding `!`p20 `0X-Wing(s), get you will`l.`l.`l.
+`l
+ `@-`$You receive `%`p23 `$gold!
+
+`k
+ @do money + `p23
+ @datasave TLSEVE7.DAT &playernum 0
+ @do `p20 is 0
+ @end
+ @dataload TLSEVE8.DAT &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @do `p22 is `p20
+ @do `p25 random 7 2
+ @do `p22 / `p25
+ @do `p25 random 5 2
+ @do `p22 / `p25
+ @do `p27 random 200 500
+ @do `p23 is `p20
+ @do `p23 * `p27
+ @do `p23 / 2
+ @show
+ `$-`0"For finding `!`p20 `0of my ears, get you will`l.`l.`l.
+`l
+ `4-`@Dodge increased by `%`p22`@!
+ `@-`$You receive `%`p23 `$gold!
+
+`k
+ @do `p05 + `p22
+ @do money + `p23
+ @datasave TLSEVE8.DAT &playernum 0
+ @do `p20 is 0
+ @end
+ @dataload TLSEVE9.DAT &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @do `p22 is `p20
+ @do `p25 random 100 90
+ @do `p22 * `p25
+ @do `p26 random 40 30
+ @do `p23 is `p20
+ @do `p23 * `p26
+ @do `p23 / 2
+ @show
+ `$-`0"For finding `!`p20 `0of my canes, get you will`l.`l.`l.
+`l
+ `7-`%Experience goes up by `!`p22`%!
+ `@-`$You receive `%`p23 `$gold!
+
+`k
+ @do `p01 + `p22
+ @do money + `p23
+ @datasave TLSEVE9.DAT &playernum 0
+ @do `p20 is 0
+ @end
+ @dataload TLSEVE10.DAT &playernum `p20
+ @if `p20 > 0 then do
+ @begin
+ @show
+ `$-`0"For finding `!`p20 `0Darth Vader Head(s), get you will`l.`l.`l.
+`l
+`r0`c
+
+ `0"Which way do you wish for these heads to affect your allignment?"
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Up
+Down
+@if response is 1 then do
+ @begin
+ @do `p22 is 0
+ @do `p22 + `p20
+ @do `p22 / 2
+ @show
+
+ `8-`7Allignment goes up by `%`p22`7!
+
+ @end
+@if response is 2 then do
+ @begin
+ @do `p22 is 0
+ @do `p22 - `p20
+ @do `p22 / 2
+ @show
+
+ `7-`8Allignment goes down by `%`p22`8!
+
+ @end
+
+@show
+`k
+ @do `p07 + `p22
+ @datasave TLSEVE10.DAT &playernum 0
+ @do `p20 is 0
+ @end
+
+@show
+`r0`c`\`\ `0"Did ever so many body parts you know I have, hrm?" `2Yoda
+ squawks at you. `0"No more do you have to give me. Come back later..."
+
+`k
+
+@do goto YODA
+
+@#EVENTS
+@datanewday TLSTURNS.DAT
+@dataload TLSTURNS.DAT &playernum `p21
+ @do `p25 is `p21
+ @do `p25 + 3005
+@if `p21 is 0 then do
+ @begin
+ @closescript
+ @end
+@if `p11 > `p25 then do
+ @begin
+ @do map is 656
+ @do x is 35
+ @do y is 17
+ @loadmap &map
+ @drawmap
+ @update
+ @do saybar
+`l`!Yoda's Voice: `$Cheating it looks like you have been. In trouble you are.
+ @closescript
+ @end
+@if `p11 < `p21 then do
+ @begin
+ @show
+`r0`c`\`\ `2Yoda's voice once again intrudes upon you.
+
+ `0"You are out of turns. Out of turns you are. Come back again tomorrow,
+ I urge you."
+
+`k
+ @do map is 656
+ @do x is 35
+ @do y is 17
+ @loadmap &map
+ @dataload TLSTODAG.DAT &playernum `p20
+ @if `p20 is 1 then do
+ @begin
+ @do `p28 is &money
+@do addlog
+ `r0 `$$`7-`!= `0`n `2has made `$$`p28 `2inside Dagobah
+@writefile lognow.txt
+ `2at `#The Loose Screw Resort `!=`7-`$$
+ `2-`0=`2-`%=`2-`0=`2-
+ @end
+ @drawmap
+ @update
+ @datasave TLSTODAG.DAT &playernum 2
+ @do saybar
+`!Yoda's Voice: `$May the force be with you...
+ @closescript
+ @end
+
+@datanewday TLSYODA.DAT
+@do `p20 is 0
+@dataload TLSYODA.DAT &playernum `p20
+ @if `p20 is 0 then do
+ @begin
+ @closescript
+ @end
+@do `p29 random 10 1
+@do goto EVENT`p29
+
+@#EVENT1
+ @do `p25 random 5 1
+ @datanewday TLSEVE1.DAT
+ @do `p20 is 0
+ @dataload TLSEVE1.DAT &playernum `p20
+ @do `p20 + `p25
+ @datasave TLSEVE1.DAT &playernum `p20
+@do saybar
+`1:`!You find `$`p25 `!of Yoda's fingernail(s). You now have `$`p20 `!of them.
+
+@#EVENT2
+ @do `p25 random 2 1
+ @datanewday tlseve2.dat
+ @do `p20 is 0
+ @dataload tlseve2.dat &playernum `p20
+ @do `p20 + `p25
+ @datasave tlseve2.dat &playernum `p20
+@do saybar
+`1:`!You find `$`p25 `!of Yoda's feet. You now have `$`p20 `!of them.
+
+@#EVENT3
+ @do `p25 random 50 1
+ @datanewday tlseve3.dat
+ @do `p20 is 0
+ @dataload tlseve3.dat &playernum `p20
+ @do `p20 + `p25
+ @datasave tlseve3.dat &playernum `p20
+@do saybar
+`1:`!You find `$`p25 `!strands of Yoda's hair. You now have `$`p20 `!of them.
+
+@#EVENT4
+ @do `p25 random 500 1
+ @datanewday tlseve4.dat
+ @do `p20 is 0
+ @dataload tlseve4.dat &playernum `p20
+ @do `p20 + `p25
+ @datasave tlseve4.dat &playernum `p20
+@do saybar
+`1:`!You find `$`p25 `!of Yoda's wrinkles. You now have `$`p20 `!of them.
+
+@#EVENT5
+ @do `p25 random 1 1
+ @datanewday tlseve5.dat
+ @do `p20 is 0
+ @dataload tlseve5.dat &playernum `p20
+ @do `p20 + `p25
+ @datasave tlseve5.dat &playernum `p20
+@do saybar
+`1:`!You find `$`p25 `!R2 unit. You now have `$`p20 `!of them.
+
+@#EVENT6
+ @do `p25 random 1 1
+ @datanewday tlseve6.dat
+ @do `p20 is 0
+ @dataload tlseve6.dat &playernum `p20
+ @do `p20 + `p25
+ @datasave tlseve6.dat &playernum `p20
+@do saybar
+`1:`!You find `$`p25 `!of Yoda's tongue(s). You now have `$`p20 `!of them.
+
+@#EVENT7
+ @do `p25 random 1 1
+ @datanewday tlseve7.dat
+ @do `p20 is 0
+ @dataload tlseve7.dat &playernum `p20
+ @do `p20 + `p25
+ @datasave tlseve7.dat &playernum `p20
+@do saybar
+`1:`!You find `$`p25 `!X-Wing!. You now have `$`p20 `!of them.
+
+@#EVENT8
+ @do `p25 random 2 1
+ @datanewday tlseve8.dat
+ @do `p20 is 0
+ @dataload tlseve8.dat &playernum `p20
+ @do `p20 + `p25
+ @datasave tlseve8.dat &playernum `p20
+@do saybar
+`1:`!You find `$`p25 `!of Yoda's ear(s). You now have `$`p20 `!of them.
+
+@#EVENT9
+ @do `p25 random 20 1
+ @datanewday tlseve9.dat
+ @do `p20 is 0
+ @dataload tlseve9.dat &playernum `p20
+ @do `p20 + `p25
+ @datasave tlseve9.dat &playernum `p20
+@do saybar
+`1:`!You find `$`p25 `!of Yoda's cane(s). You now have `$`p20 `!of them.
+
+@#EVENT10
+ @do `p25 random 5 1
+ @datanewday tlseve10.dat
+ @do `p20 is 0
+ @dataload tlseve10.dat &playernum `p20
+ @do `p20 + `p25
+ @datasave tlseve10.dat &playernum `p20
+@do saybar
+`1:`!You find `$`p25 `!Darth Vader head(s). You now have `$`p20 `!of them.
+
diff --git a/xtrn/lord2/cnw/tm.ref b/xtrn/lord2/cnw/tm.ref
new file mode 100644
index 0000000000000000000000000000000000000000..4ea5ab2ee2708e02247feb908b5ae4a0387151c0
--- /dev/null
+++ b/xtrn/lord2/cnw/tm.ref
@@ -0,0 +1,198 @@
+; Script file TM.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:20:27 2001
+
+@DECLARE start 000000382
+@DECLARE lazer 000002967
+@DECLARE worker 000003058
+@DECLARE oldman 000003190
+@DECLARE done 000003874
+@DECLARE gdone 000003960
+@DECLARE tdone 000004046
+@DECLARE rdone 000004078
+@DECLARE locked 000004134
+@DECLARE bad! 000004234
+@NOCHECK
+; End of .REF index
+
+@#Start
+@DO MOVEBACK
+@datanewday Tm.idf
+@dataload Tm.idf &playernum `p21
+@IF `p21 IS 1 THEN DO
+ @BEGIN
+ @DO GOTO LOCKED
+ @END
+@IF `p21 IS 2 THEN DO
+ @BEGIN
+ @DO GOTO BAD!
+ @END
+@Clear Screen
+@SHOW
+ .$.
+ .$$$.
+ .$$$$$.
+ $$$$$$$
+ '$$$$$'
+ '$$$'
+ '$'
+@do `v01 is 1
+@CHOICE
+"Touch the center of the diamond to go back in time."
+"Steal the diamond."
+@IF RESPONCE IS 2 THEN DO
+ @BEGIN
+ @CLEAR SCREEN
+ @SHOW
+
+
+`0You attempt to jump the two workers by surprise but they were to
+ quick for youm you feel a sharp pain in your back and pass out.
+
+ When you awake you feel vary week.
+
+`6 YOU LOSE 2 ALLINMENT
+ YOU GO DOWN TO 1 HITPOINT
+
+ @DO `p02 IS 1
+ @DO `p07 - 2
+ @DO GOTO GDONE
+ @END
+
+@IF RESPONCE IS 1 THEN DO
+ @BEGIN
+ @CLEAR SCREEN
+ @SHOW
+ `0The diamond felt somewhat cool when you touch it but it quicky gets hoter
+ and hotter, so it feels unbarable to touch as you attempt to remove your
+ hands you realize that your hands are being drawn into it.
+
+@do `p20 random 4 1
+@if `p20 is 1 then do
+ @BEGIN
+@SHOW
+ `1 When you awake, you realize that you don't feel great. You also
+ notice that the sun appears to have travelled a good distance to the west.
+ And if all that wasn't bad enough, you smell like burnt toast!
+
+`6 You Lose 500 Turns for Today
+
+@DO `p11 - 500
+ @DO GOTO DONE
+ @END
+
+@if `p20 is 2 then do
+ @BEGIN
+@SHOW
+ `1 When you awake, you Are Reenergized Somwhat. You also
+ notice that the sun appears to have gone some distanceto the EAST.
+
+`5 You Gain 500 Turns for Today
+
+@DO `p11 + 500
+ @DO GOTO DONE
+
+ @END
+
+
+@if `p20 is 3 then do
+ @BEGIN
+@SHOW
+ `1 When you awake, you feel Like a younger person. You also
+ notice that the sun appears to have travelled the wrong way.
+
+`5 You GAIN 1000 Turns for Today
+
+@DO `p11 + 1000
+ @DO GOTO DONE
+
+ @END
+
+
+@if `p20 is 4 then do
+ @BEGIN
+@SHOW
+
+ `1 When you awake, you realize that you feel very very SICK. You also
+ notice that the sun appears to have travelled a good distance to the west.
+ And if all that wasn't bad enough, you smell like burnt toast!
+
+`6 You Lose 1000 Turns for Today
+
+@DO `p11 - 1000
+ @DO GOTO DONE
+
+ @END
+
+@#Lazer
+@DO SAYBAR
+ You see a vary big lazer on the Wall.
+ @DO GOTO TDONE
+ @END
+
+@#Worker
+@DO SAYBAR
+`%Worker:`0Sorry, I'm busy if you want to go back in time, touch the diamond.
+`Y08
+ @DO GOTO TDONE
+ @END
+@#OLDMAN
+@Clear Screen
+@SHOW
+`%Old Man:`0Welcome to my time Machine, would you like to be a Ginipig
+ ..whoops I mean Test Subject with our time Machine were atemping
+ to send somone Back in time?
+
+@do `v01 is 1
+@CHOICE
+"I've come To Use the Time Machine."
+"Whoops, Sorry wrong building."
+@IF RESPONCE IS 1 THEN DO
+ @BEGIN
+ @CLEAR SCREEN
+ @SHOW
+
+`%Old Man: `0Ok Go over to the other side of the building and touch the
+ Diamond
+@KEY BOTTOM
+@DRAWMAP
+`X25
+@do goto Rdone
+ @END
+
+
+@IF RESPONCE IS 2 THEN DO
+ @BEGIN
+ @CLEAR SCREEN
+ @SHOW
+
+`0"Feel free to come back any time."
+`Y06
+ @DO GOTO RDONE
+ @END
+@#DONE
+@datasave TM.idf &playernum 1
+@KEY BOTTOM
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@#GDONE
+@datasave TM.idf &playernum 2
+@KEY BOTTOM
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@#TDONE
+@UPDATE
+@CLOSESCRIPT
+@#RDONE
+@KEY BOTTOM
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@#LOCKED
+@DO SAYBAR
+ You touch the dimond but realize it won't work untill tomorow.
+@CLOSESCRIPT
+@#BAD!
+@Do SAYBAR
+ Sorry you can't use the Time Machine today, because you Tried to steal it!
+@CLOSESCRIPT
diff --git a/xtrn/lord2/cnw/tmhsfrt.ref b/xtrn/lord2/cnw/tmhsfrt.ref
new file mode 100644
index 0000000000000000000000000000000000000000..95183c6fc0ae262cf4abdbf401f9a7bd0a0bab27
--- /dev/null
+++ b/xtrn/lord2/cnw/tmhsfrt.ref
@@ -0,0 +1,1730 @@
+; Script file TMHSFRT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:40 2001
+
+@DECLARE healme 000001105
+@DECLARE hres 000001462
+@DECLARE human2 000001664
+@DECLARE humang 000001788
+@DECLARE matcha 000001885
+@DECLARE tmhsgm 000001936
+@DECLARE sign1 000003331
+@DECLARE guard 000003431
+@DECLARE tbery 000003500
+@DECLARE healers 000003620
+@DECLARE thief 000005626
+@DECLARE posnbery 000005747
+@DECLARE human1 000006246
+@DECLARE mrchst1 000006366
+@DECLARE chst1 000006416
+@DECLARE opend 000008353
+@DECLARE nblesd 000008442
+@DECLARE matchb 000008585
+@DECLARE tmrhre 000008748
+@DECLARE fishsell 000010588
+@DECLARE keepwriting 000012970
+@DECLARE byptins 000013501
+@DECLARE trapdr 000018578
+@DECLARE warpmp 000018631
+@DECLARE map1 000019271
+@DECLARE map2 000021289
+@DECLARE map3 000023323
+@DECLARE koshi1 000025498
+@DECLARE hrdoor 000026529
+@DECLARE dtscmp 000026786
+@DECLARE tooth 000026836
+@DECLARE testel 000026923
+@DECLARE darkfrt 000027365
+@DECLARE monster1 000027734
+@DECLARE bountylist 000028376
+@DECLARE readmore 000028577
+@NOCHECK
+; End of .REF index
+
+@#HEALME
+;free heal
+@offmap
+@do moveback
+@show
+`r0`c `%Frostglint Keep - The Healers.
+
+@if `p07 < 0 then do
+@begin
+@show
+ `2Koshi Healer: "`0Get out you slime!`2"`k
+@drawmap
+@update
+@closescript
+@end
+
+@show
+ `2The Koshi healer looks you over for wounds carefully.
+
+ `%YOU ARE COMPLETEY HEALED!`k
+@do `p02 is `p03
+@drawmap
+@update
+
+@#HRES
+@do moveback
+@if `p07 < 0 then do begin
+@begin
+@do saybar
+`2The March Hare: "`0Get out you slime!`2"
+@closescript
+@end
+@do saybar
+`2The March Hare: "`0Hello!`2"
+@closescript
+@end
+
+@#HUMAN2
+@do moveback
+@do saybar
+`5The March Hare: "`7You can buy almost anything at the keep's market place`5"
+@end
+
+@#HUMANG
+@do moveback
+@do saybar
+`2The March Hare: "`0Welcome to March Hare Keep!`2"
+@end
+
+@#MATCHA
+@do moveback
+@busy
+@do `v01 is 1
+@label TMHSGM
+@show
+`r0`c `%Frostglint Keep - Trading Gems.
+
+ `2"`0You wanna trade some gems for bulk crates of potions?
+ `0 Each crate holds 20 potions.`2"
+
+ `2You Have `0`p19 `2Gems.
+
+ `$- `%Potions `$-
+ `2Red: `0`i52
+ `2Gold: `0`i53
+ `2Silver: `0`i54
+
+@do write
+`x`x
+@choice
+>`p19 39 Trade 40 gems for a 20 red potions.
+>`p19 39 Trade 40 gems for a 20 gold potion.
+>`p19 39 Trade 40 gems for a 20 silver potion.
+Leave.
+@show
+`\
+@if responce is 1 then do begin
+@begin
+@if `p19 < 40 then do begin
+@begin
+@show
+ `2"`0You don't have enough gems!`2"`k
+@do goto TMHSGM
+@closescript
+@end
+@do `p19 - 40
+@do `i52 + 20
+@show
+ `2"`0Okay kid, heres your `%Red Potions`0!`2"`k
+@do goto TMHSGM
+@end
+
+ @end
+
+@if responce is 2 then do begin
+@begin
+@if `p19 < 40 then do begin
+@begin
+@show
+ `2"`0You don't have enough gems!`2"`k
+@do goto TMHSGM
+@closescript
+@end
+@do `p19 - 40
+@do `i53 + 20
+@show
+ `2"`0Okay kid, heres your `%Gold Potions`0!`2"`k
+@do goto TMHSGM
+@end
+
+ @end
+
+@if responce is 3 then do begin
+@begin
+@if `p19 < 40 then do begin
+@begin
+@show
+ `2"`0You don't have enough gems!`2"`k
+@do goto TMHSGM
+@closescript
+@end
+@do `p19 - 40
+@do `i54 + 20
+@show
+ `2"`0Okay kid, heres your `%Silver Potions`0!`2"`k
+@do goto TMHSGM
+@end
+
+ @end
+
+@if responce is 4 then do begin
+@begin
+@do `v01 is 9
+@do goto TMRHRE
+@end
+
+@#SIGN1
+@do moveback
+@do saybar
+`%You are now entering the kingdom of The March Hare...
+@end
+
+@#GUARD
+@do moveback
+@do saybar
+`2Koshi: "`0Zzzzzz...`2"
+@end
+
+@#TBERY
+@do moveback
+@do saybar
+`2The March Hare: "`0Find the flute in a cave south-west of Stonebrook`2"
+@end
+
+@#HEALERS
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%Frostglint Keep - The Healers.
+
+ `2You see a sign on the wall that says healing cost `01/4 `2gold per hitpoint
+ `2needed.
+
+ `2Acadia looks you over for wounds.
+
+@do write
+`x`x
+@if `p02 < `p03 then do
+ @begin
+@do `p20 is `p03
+@do `p20 - `p02
+@do `p20 / 4
+
+
+
+ @show
+`2"`0`n`0, you don't look good at all!`2" Acadia exclaims
+ `2"`0I'll heal your wounds for `$`p20 `0gold, agreed?`2"
+
+@do write
+`x`x
+@choice
+Heal Yourself For `$$`p20`%. `0(`2You Have `$$&money`0)
+Make Your Excuses And Leave.
+@show
+`\
+@if response is 1 then do begin
+@begin
+@if money < `p20 then do
+@begin
+@show
+ `2"`0I apologize, but I cannot perform those services for free!`2"
+
+@if sexmale is 1 then do
+@begin
+@do write
+`x`x
+ @choice
+`2"`$For `$$`p20`$, you better perform some other services too, whore!`2"
+`2"`$How about I pay with my good looks, honey?`2"
+`2"`$How 'bout you and me go in the back and I show you my sword?`2"
+Meekly Accept, And Compliment Her On Her Dress.
+@show
+
+
+@if response is 4 then do
+ @begin
+ @show
+ `2"`0That's a good lad, now get along with you!`2" she laughs.`k
+ @end
+
+@if response is 1 then do
+ @begin
+ @show
+ `2"`0How dare you talk that way to me! Get out!`2" she screams.`k
+ @end
+@if response is 2 then do
+ @begin
+ @show
+ `2"`0I'd rather kiss a troll`2" she informs you.`k
+ @end
+@if response is 3 then do
+ @begin
+ @do `p02 = 1
+ @show
+ `2"`0How about I show ya my fists?`2" she says as she jabs a needle in you!`k
+ @drawmap
+ @update
+ @do saybar
+`bHITPOINTS GO DOWN TO ONE!
+ @closescript
+ @end
+
+
+ @end
+
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@do money - `p20
+@do `p21 = `p03
+@do `p21 - `p02
+@do `p02 = `p03
+@show
+ `2You feel much better after `0`p21 `2hitpoints are restored.`k
+ @end
+ @drawmap
+ @update
+ @closescript
+@end
+
+@show
+`2"`0You are a perfect picture of health, dear `n`0!`2"
+ `2Acadia exclaims.`k
+@drawmap
+@update
+
+@#THIEF
+@do moveback
+@do saybar
+`2The March Hare: "`0Please help yourself to the chest in the backroom`2"
+@end
+
+@#POSNBERY
+@do moveback
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0`2You notice a strange growth of berries. Pick one? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 NY
+@if `s01 is Y then do
+ @begin
+@if `i02 more 0 then do
+ @begin
+@do saybar
+`2Nah, you already have one with you.
+ @closescript
+ @end
+@do `i02 + 1
+@do saybar
+`2You carefully pick a Poisonberry.
+@closescript
+@end
+@if `s01 is N then do
+ @begin
+@do saybar
+`2Maybe later.
+ @closescript
+ @end
+
+@#HUMAN1
+@do moveback
+@do saybar
+`2The March Hare: "`0Look in all the beds at Stonepass Lodge if you go`2"
+@end
+
+@#MRCHST1
+@do moveback
+@busy
+@do `v01 is 1
+@label CHST1
+@show
+`r0`c `%Hidden Chest.
+
+ `2You found the hidden chest!
+
+@do write
+`x`x
+@choice
+Open the chest.
+Leave.
+@show
+`\
+@if responce is 2 then do begin
+@begin
+@drawmap
+@update
+@end
+
+@if responce is 1 then do
+@begin
+;@datanewday TMHSFRV.IDF <-- FUCK NO WAY, THIS IS TOO MUCH, ONLY 1 TIME PLEASE. - CNW
+@dataload TMHSFRV.IDF &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto OPEND
+@end
+
+@datasave TMHSFRV.IDF &playernum 1
+
+@do `p21 random 9 1
+
+@if `p21 is 1 then do
+@begin
+@do `i66 + 500
+@show
+ `2You find`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`l`%500 Koshi SNACK!`k
+@do goto CHST1
+@closescript
+@end
+
+@if `p21 is 2 then do
+@begin
+@do `i68 + 10
+@show
+ `2You find`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`l`%10 Cursed Armors!`k
+@do goto CHST1
+@closescript
+@end
+
+@if `p21 is 3 then do
+@begin
+@do `i57 + 5
+@show
+ `2You find`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`l`%5 Moonstones!`k
+@do goto CHST1
+@closescript
+@end
+
+@if `p21 is 4 then do
+@begin
+@do `i52 + 50
+@show
+ `2You find`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`l`%Fifty Red Potions!`k
+@do goto CHST1
+@closescript
+@end
+
+@if `p21 is 5 then do
+@begin
+@do `i53 + 50
+@show
+ `2You find`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`l`%Fifty Gold Potions!`k
+@do goto CHST1
+@closescript
+@end
+
+@if `p21 is 6 then do
+@begin
+@do `i54 + 50
+@show
+ `2You find`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`l`%Fifty Silver Potions!`k
+@do goto CHST1
+@closescript
+@end
+
+@if `p21 is 7 then do
+@begin
+@do money + 100000
+@show
+ `2You find`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`l`%One Hundred Thousand Gold!`k
+@do goto CHST1
+@closescript
+@end
+
+@if `p21 is 8 then do
+@begin
+@do `p19 + 150
+@show
+ `2You find`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`l`%One Hundred And Fifty Gems!`k
+@do goto CHST1
+@closescript
+@end
+
+@if `p21 is 9 then do
+@begin
+@do `i51 + 1
+@show
+ `2You find`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`l`%A Small Fuzzy Animal!`k
+@do goto CHST1
+@closescript
+@end
+
+@#OPEND
+@busy
+@show
+ `2The chest is empty.`k
+@do goto CHST1
+@closescript
+@end
+
+@#NBLESD
+@busy
+@show
+ `2You have already received a blessing today.`k
+@do goto TMRHRE
+@closescript
+@end
+
+
+;The March Hare Stuff.
+
+@#MATCHB
+@do moveback
+@if `p07 < 0 then do begin
+@begin
+@do saybar
+`2The March Hare: "`0Get out you slime!`2"
+@closescript
+@end
+@busy
+@do `v01 is 1
+@label TMRHRE
+@show
+`r0`c `%Frostglint Keep - The March Hare.
+
+ `2The March Hare: "`0How may I help you?`2"
+
+@do write
+`x`x
+@choice
+Gossip.
+Take a room.
+Buy potions.
+Buy goods.
+Sell goods.
+Sell fish.
+Ask for a blessing.
+View bounty list.
+Make an announcement.
+Trade in gems.
+Leave.
+@show
+`\
+@if responce is 1 then do begin
+@begin
+
+@do `p21 random 2 1
+
+@if `p21 is 1 then do
+@begin
+@show
+ `2"`0Well, I heard a crazy old man lives in a shack south of Stonebrook`2"`k
+
+ `2"`$Really? What else?`2" you ask.`k
+
+ `2"`0That old shack has a fake wall section somewhere inside...`2"`k
+@do goto TMRHRE
+@closescript
+@end
+
+@if `p21 is 2 then do
+@begin
+@show
+ `2"`0You wanna know something really strange? I heard there is a tree on
+ `0Neb's Road that has magical powers...`2"`k
+
+ `2You stare at him in disbelief. `2"`$Yeah right, quit telling me stories,
+ `$you ain't exactly the most trustworthy hare in town, ya know!`2"`k
+@do goto TMRHRE
+@closescript
+@end
+
+@end
+
+@if responce is 2 then do begin
+@begin
+@pauseoff
+@do `v01 is 1
+@Show
+ `2"`$Pardon me sir, I'm interested in a room for the night`2"
+ `2"`0A room here will only cost you 50 gold`2"
+
+@DO WRITE
+`x`x
+@CHOICE
+>&money 50 Go ahead and get a room.
+Forget this place.
+@IF RESPONSE IS 1 THEN DO
+@BEGIN
+@do money - 50
+@do x = 16
+@do y = 8
+@drawmap
+@update
+@closescript
+@END
+@IF RESPONSE IS 2 THEN DO
+@do `v01 is 2
+@do goto TMRHRE
+@End
+
+
+@if responce is 3 then do
+@begin
+@do goto BYPTINS
+@end
+
+@if responce is 4 then do
+@begin
+@show
+`r0`c `%Frostglint Keep - Buying Goods.
+
+@buymanager
+ 64
+ 66
+ 68
+ @do goto TMRHRE
+ @closescript
+ @end
+
+@if responce is 5 then do
+@begin
+@clearblock 8 17
+@do move 9 7
+@sellmanager
+@do goto TMRHRE
+@end
+
+@if responce is 6 then do
+ @begin
+ @label FISHSELL
+ @show
+`r0`c `%March Hare Keep - Selling Fish.
+
+ `2You are holding: `$$&money
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+<`i29 1 <`i30 1 You have no fish to sell.
+>`i29 0 Sell a Salmon for `$$50`%. `2(`0You have `i29`2)
+>`i30 0 Sell a Sparking Green Salmon for `$$250`%. `2(`0You have `i30`2)
+>`i29 0 <`i30 1 Sell nothing.
+>`i30 0 <`i29 1 Sell nothing.
+>`i30 0 >`i29 0 Sell nothing.
+@if responce is 2 then do
+ @begin
+ @show
+`\`\ `2"`0Thank you for the fish, s&sir!`2"
+
+`k
+ @do money + 50
+ @do `i29 - 1
+ @do goto FISHSELL
+ @end
+@if responce is 3 then do
+ @begin
+ @show
+`\`\ `2"`0My God! Where did you catch this!? Thank you!`2"
+
+`k
+ @do money + 250
+ @do `i30 - 1
+ @do goto FISHSELL
+ @end
+
+ @do `v01 is 6
+ @do goto TMRHRE
+
+ @end
+
+@end
+
+@if responce is 7 then do
+@begin
+@datanewday TMHSFRU.IDF
+@dataload TMHSFRU.IDF &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do goto NBLESD
+@end
+
+@datasave TMHSFRU.IDF &playernum 1
+
+@show
+ `2The March Hare blesses you.`k
+
+@do `p21 random 5 1
+
+@if `p21 is 1 then do
+@begin
+@do `p04 + 2
+@show
+ `2You receive`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`%Strength!
+ `2(`0You get 2 Muscle!`2)`k
+@do goto TMRHRE
+@closescript
+@end
+
+@if `p21 is 2 then do
+@begin
+@do `p05 + 1
+@show
+ `2You receive`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`%Dexterity!
+ `2(`0You get 1 Dodge!`2)`k
+@do goto TMRHRE
+@closescript
+@end
+
+@if `p21 is 3 then do
+@begin
+@do `p01 + 500 * `p09
+@show
+ `2You receive`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`%Intelligence!
+ `2(`0You get some Experience!`2)`k
+@do goto TMRHRE
+@closescript
+@end
+
+@if `p21 is 4 then do
+@begin
+@do `p02 + 5
+@do `p03 is `p02
+@show
+ `2You receive`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`%Constitution!
+ `2(`0You get 5 Hitpoints and are completely healed!`2)`k
+@do goto TMRHRE
+@closescript
+@end
+
+@if `p21 is 5 then do
+@begin
+@do `p08 + 1
+@show
+ `2You receive`l.`l.`l.`l.`l.`l.`l.`l.`l.`l.`%Charisma!
+ `2(`0You get 1 Charm!`2)`k
+@do goto TMRHRE
+@closescript
+@end
+
+ @end
+
+@if responce is 8 then do begin
+ @begin
+ @show
+ `2"`0You wanna know about the heat ... I can tell you`2"`%`k
+ @routine BOUNTYLIST
+ @do goto TMRHRE
+ @end
+
+@if response is 9 then do begin
+ @begin
+ @writefile lognow.txt
+ `0`n`2 announces the following from Frostglint Keep:`\`0
+ @show
+ `2Enter your announcement.
+@label keepwriting
+@do write
+`\`x`x
+ @do readstring 75 NIL `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+ @show
+`\ `2Announcement made!`k
+@do goto TMRHRE
+@closescript
+@end
+ @do stripbad `s01
+ @writefile lognow.txt
+ `s01
+ @
+ @do goto keepwriting
+;@closescript
+;@end
+@do goto TMRHRE
+@closescript
+@end
+
+@end
+
+@if responce is 10 then do begin
+@begin
+@do goto MATCHA
+@closescript
+@end
+
+@drawmap
+@update
+
+@#BYPTINS
+@busy
+@show
+`r0`c `%Frostglint Keep - Buying Potions.
+
+ `0(`2G`0)`2reen Potion...................................`$$2
+ `0(`2B`0)`2lue Potion....................................`$$32
+ `0(`2W`0)`2hite Potion...................................`$$150
+ `0(`2T`0)`2ravel Potion..................................`$$250
+ `2g`0(`2O`0)`2ld Potion....................................`$$1,200
+ `0(`2R`0)`2ed Potion.....................................`$$1,200
+ `0(`2S`0)`2ilver Potion..................................`$$1,200
+
+ `0(`2N`0)`2evermind.
+
+@do move 1 15
+@do write
+ `2Your command `0`n`2?:`x
+@do readspecial `s01 NGBWTOSR
+@if `s01 is N then do begin
+@begin
+@do move 1 17
+@do write
+ `2You decide to keep your money - for now anyway.`k
+@do goto TMRHRE
+@closescript
+@end
+@if `s01 is G then do begin
+@begin
+@if money < 2 then do begin
+@begin
+@do move 1 17
+@do write
+ `2You cannot afford a Green Potion.`k
+@do goto BYPTINS
+@end
+@do move 1 17
+@do write
+ `2Are you sure you want to buy a Green Potion for `$$2`2? (`0Y`2/`0N`2) :`x
+@do readspecial `s01 NY
+@if `s01 is N then do
+@begin
+@do move 1 19
+@do write
+ `2The Green Potion has not been placed in your inventory`k
+@do goto BYPTINS
+@closescript
+@end
+@do move 1 19
+@do write
+ `2The Green Potion has been placed in your inventory`k
+@do money - 2
+@do `i05 + 1
+@do goto BYPTINS
+@closescript
+@end
+@if `s01 is B then do begin
+@begin
+@if money < 32 then do begin
+@begin
+@do move 1 17
+@do write
+ `2You cannot afford a Blue Potion.`k
+@do goto BYPTINS
+@end
+@do move 1 17
+@do write
+ `2Are you sure you want to buy a Blue Potion for `$$32`2? (`0Y`2/`0N`2) :`x
+@do readspecial `s01 NY
+@if `s01 is N then do
+@begin
+@do move 1 19
+@do write
+ `2The Blue Potion has not been placed in your inventory`k
+@do goto BYPTINS
+@closescript
+@end
+@do move 1 19
+@do write
+ `2The Blue Potion has been placed in your inventory`k
+@do money - 32
+@do `i40 + 1
+@do goto BYPTINS
+@closescript
+@end
+@if `s01 is W then do begin
+@begin
+@if money < 150 then do begin
+@begin
+@do move 1 17
+@do write
+ `2You cannot afford a White Potion.`k
+@do goto BYPTINS
+@end
+@do move 1 17
+@do write
+ `2Are you sure you want to buy a White Potion for `$$150`2? (`0Y`2/`0N`2) :`x
+@do readspecial `s01 NY
+@if `s01 is N then do
+@begin
+@do move 1 19
+@do write
+ `2The White Potion has not been placed in your inventory`k
+@do goto BYPTINS
+@closescript
+@end
+@do move 1 19
+@do write
+ `2The White Potion has been placed in your inventory`k
+@do money - 150
+@do `i55 + 1
+@do goto BYPTINS
+@closescript
+@end
+@if `s01 is T then do begin
+@begin
+@if money < 250 then do begin
+@begin
+@do move 1 17
+@do write
+ `2You cannot afford a Travel Potion.`k
+@do goto BYPTINS
+@end
+@do move 1 17
+@do write
+ `2Are you sure you want to buy a Travel Potion for `$$250`2? (`0Y`2/`0N`2) :`x
+@do readspecial `s01 NY
+@if `s01 is N then do
+@begin
+@do move 1 19
+@do write
+ `2The Travel Potion has not been placed in your inventory`k
+@do goto BYPTINS
+@closescript
+@end
+@do move 1 19
+@do write
+ `2The Travel Potion has been placed in your inventory`k
+@do money - 250
+@do `i50 + 1
+@do goto BYPTINS
+@closescript
+@end
+@if `s01 is O then do begin
+@begin
+@if money < 1200 then do begin
+@begin
+@do move 1 17
+@do write
+ `2You cannot afford a Gold Potion.`k
+@do goto BYPTINS
+@end
+@do move 1 17
+@do write
+ `2Are you sure you want to buy a Gold Potion for `$$1,200`2? (`0Y`2/`0N`2) :`x
+@do readspecial `s01 NY
+@if `s01 is N then do
+@begin
+@do move 1 19
+@do write
+ `2The Gold Potion has not been placed in your inventory`k
+@do goto BYPTINS
+@closescript
+@end
+@do move 1 19
+@do write
+ `2The Gold Potion has been placed in your inventory`k
+@do money - 1200
+@do `i53 + 1
+@do goto BYPTINS
+@closescript
+@end
+@if `s01 is R then do begin
+@begin
+@if money < 1200 then do begin
+@begin
+@do move 1 17
+@do write
+ `2You cannot afford a Red Potion.`k
+@do goto BYPTINS
+@end
+@do move 1 17
+@do write
+ `2Are you sure you want to buy a Red Potion for `$$1,200`2? (`0Y`2/`0N`2) :`x
+@do readspecial `s01 NY
+@if `s01 is N then do
+@begin
+@do move 1 19
+@do write
+ `2The Red Potion has not been placed in your inventory`k
+@do goto BYPTINS
+@closescript
+@end
+@do move 1 19
+@do write
+ `2The Red Potion has been placed in your inventory`k
+@do money - 1200
+@do `i52 + 1
+@do goto BYPTINS
+@closescript
+@end
+@if `s01 is S then do begin
+@begin
+@if money < 1200 then do begin
+@begin
+@do move 1 17
+@do write
+ `2You cannot afford a Silver Potion.`k
+@do goto BYPTINS
+@end
+@do move 1 17
+@do write
+ `2Are you sure you want to buy a Silver Potion for `$$1,200`2? (`0Y`2/`0N`2) :`x
+@do readspecial `s01 NY
+@if `s01 is N then do
+@begin
+@do move 1 19
+@do write
+ `2The Silver Potion has not been placed in your inventory`k
+@do goto BYPTINS
+@closescript
+@end
+@do move 1 19
+@do write
+ `2The Silver Potion has been placed in your inventory`k
+@do money - 1200
+@do `i54 + 1
+@do goto BYPTINS
+@closescript
+@end
+
+@#TRAPDR
+@offmap
+@do moveback
+@do `v01 is 1
+@label WARPMP
+@show
+`r0`c `%Frostglint Keep - Wizard's House.
+
+@if `p07 < 0 then do
+@begin
+@show
+ `2Koshi Wizard: "`0Get out before I turn you into a newt!`2"`k
+@drawmap
+@update
+@closescript
+@end
+@show
+ `2Koshi Wizard: "`0Where would you like to go today?`2"
+
+@do write
+`x`x
+@choice
+List 1.
+List 2.
+List 3.
+Leave.
+@show
+`\
+@if response is 1 then do
+@begin
+@do goto MAP1
+@closescript
+@end
+
+@if response is 2 then do
+@begin
+@do goto MAP2
+@closescript
+@end
+
+@if response is 3 then do
+@begin
+@do goto MAP3
+@closescript
+@end
+
+@if responce is 4 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+
+@label MAP1
+@show
+`r0`c `%Frostglint Keep - Wizard's House.
+
+ `2Koshi Wizard: "`0Where would you like to go today?`2"
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Stonebrook.
+Greentree.
+Runion (IceLord?) Keep.
+Port Town.
+Stonepass Lodge.
+Castle Coldrake.
+Rocky Alcove.
+Flag City.
+Wizard's Tower.
+Bone Town.
+Sosen Village.
+Arrisville.
+Koshi Village.
+Dragon Tooth Castle.
+Nevermind.
+@show
+`\
+@if response not 15 then do
+@begin
+@show
+ `2"`0Okay, I'll just grab my spellbook!`2"`k
+@if responce is 1 then do
+;Stonebrook
+@begin
+@do x is 36
+@do y is 9
+@do map is 1359
+@end
+
+@if responce is 2 then do
+;Greentree
+@begin
+@do x is 50
+@do y is 14
+@do map is 1356
+@end
+
+@if responce is 3 then do
+;Runion Keep
+@begin
+@do x is 27
+@do y is 18
+@do map is 1274
+@end
+
+@if responce is 4 then do
+;Port Town
+@begin
+@do x is 38
+@do y is 17
+@do map is 956
+@end
+
+@if responce is 5 then do
+;Stonepass Lodge
+@begin
+@do x is 54
+@do y is 17
+@do map is 880
+@end
+
+@if responce is 6 then do
+;Castle Coldrake
+@begin
+@do x is 46
+@do y is 11
+@do map is 320
+@end
+
+@if responce is 7 then do
+;Out Rock (Rocky Alcove)
+@begin
+@do x is 38
+@do y is 13
+@do map is 1019
+@end
+
+@if responce is 8 then do
+;Flag City
+@begin
+@do x is 71
+@do y is 19
+@do map is 1092
+@end
+
+@if responce is 9 then do
+;Wizard's Tower
+@begin
+@do x is 72
+@do y is 5
+@do map is 1255
+@end
+
+@if responce is 10 then do
+;Bone Town
+@begin
+@do x is 42
+@do y is 18
+@do map is 1572
+@end
+
+@if responce is 11 then do
+;Sosen Village
+@begin
+@do x is 38
+@do y is 5
+@do map is 456
+@end
+
+@if responce is 12 then do
+;Arrisville
+@begin
+@do x is 23
+@do y is 11
+@do map is 523
+@end
+
+@if responce is 13 then do
+;Koshi Village
+@begin
+@do x is 36
+@do y is 12
+@do map is 196
+@end
+
+@if responce is 14 then do
+;Dragon Tooth Castle
+@begin
+@do x is 45
+@do y is 10
+@do map is 706
+@end
+
+@loadmap &map
+@drawmap
+@update
+@closescript
+@end
+@do `v01 is 1
+@do goto WARPMP
+@end
+
+@label MAP2
+@show
+`r0`c `%Frostglint Keep - Wizard's House.
+
+ `2Koshi Wizard: "`0Where would you like to go today?`2"
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Forest With Small Mountain.
+Hidden Dark Forest.
+Dark Forest.
+Forest.
+East Forest.
+South Dark Forest.
+Waterfall.
+Oasis.
+Old Man's Rock.
+Split Rock.
+West Forest.
+RockHolm Mountains.
+Tropical Island.
+Bigwood Forest.
+Nevermind.
+@show
+`\
+@if response not 15 then do
+@begin
+@show
+ `2"`0Okay, I'll just grab my spellbook!`2"`k
+@if responce is 1 then do
+;Forest with small mountain
+@begin
+@do x is 41
+@do y is 10
+@do map is 1195
+@end
+
+@if responce is 2 then do
+;Hidden Dark Forest
+@begin
+@do x is 32
+@do y is 11
+@do map is 1514
+@end
+
+@if responce is 3 then do
+;Dark Forest
+@begin
+@do x is 34
+@do y is 7
+@do map is 1354
+@end
+
+@if responce is 4 then do
+;Forest
+@begin
+@do x is 28
+@do y is 11
+@do map is 1271
+@end
+
+@if responce is 5 then do
+;East Forest
+@begin
+@do x is 40
+@do y is 10
+@do map is 1040
+@end
+
+@if responce is 6 then do
+;South Dark Forest
+@begin
+@do x is 37
+@do y is 13
+@do map is 1592
+@end
+
+@if responce is 7 then do
+;Waterfall
+@begin
+@do x is 60
+@do y is 14
+@do map is 1033
+@end
+
+@if responce is 8 then do
+;Oasis
+@begin
+@do x is 25
+@do y is 15
+@do map is 1029
+@end
+
+@if responce is 9 then do
+;Old Man's Rock
+@begin
+@do x is 21
+@do y is 12
+@do map is 1189
+@end
+
+@if responce is 10 then do
+;Split Rock
+@begin
+@do x is 47
+@do y is 15
+@do map is 1024
+@end
+
+@if responce is 11 then do
+;West Forest
+@begin
+@do x is 24
+@do y is 4
+@do map is 1576
+@end
+
+@if responce is 12 then do
+;Rockholm Mountains
+@begin
+@do x is 41
+@do y is 18
+@do map is 398
+@end
+
+@if responce is 13 then do
+;Tropical Island
+@begin
+@do x is 43
+@do y is 13
+@do map is 558
+@end
+
+@if responce is 14 then do
+;Bigwood Forest
+@begin
+@do x is 55
+@do y is 4
+@do map is 379
+@end
+
+@loadmap &map
+@drawmap
+@update
+@closescript
+@end
+@do `v01 is 2
+@do goto WARPMP
+@end
+
+@label MAP3
+@show
+`r0`c `%Frostglint Keep - Wizard's House.
+
+ `2Koshi Wizard: "`0Where would you like to go today?`2"
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+East Stonebrook Village.
+North-east Stonebrook Village.
+Village Forest.
+Jack's Restaurant.
+The Old Woman's House.
+Turgon's Shack.
+Greentree Pawn Shoppe.
+Fishing Dock.
+Uncle Edward's Cabin.
+Waterfall Observation Dock.
+Glimmering Pond.
+West Beach Ferry.
+Arrisland Ferry.
+Seth Able's Music Shoppe.
+Nevermind.
+@show
+`\
+@if response not 15 then do
+@begin
+@show
+ `2"`0Okay, I'll just grab my spellbook!`2"`k
+@if responce is 1 then do
+;East Stonebrook Village
+@begin
+@do x is 3
+@do y is 12
+@do map is 1360
+@end
+
+@if responce is 2 then do
+;North-east Stonebrook Village
+@begin
+@do x is 37
+@do y is 18
+@do map is 1280
+@end
+
+@if responce is 3 then do
+;Village Forest
+@begin
+@do x is 37
+@do y is 14
+@do map is 1279
+@end
+
+@if responce is 4 then do
+;Jack's Restaurant
+@begin
+@do x is 15
+@do y is 19
+@do map is 1278
+@end
+
+@if responce is 5 then do
+;The Old Woman's House
+@begin
+@do x is 27
+@do y is 12
+@do map is 1438
+@end
+
+@if responce is 6 then do
+;Turgon's Shack
+@begin
+@do x is 39
+@do y is 13
+@do map is 1519
+@end
+
+@if responce is 7 then do
+;Greentree Pawn Shoppe
+@begin
+@do x is 29
+@do y is 9
+@do map is 1196
+@end
+
+@if responce is 8 then do
+;Fishing Dock
+@begin
+@do x is 51
+@do y is 11
+@do map is 1116
+@end
+
+@if responce is 9 then do
+;Uncle Edward's Cabin
+@begin
+@do x is 64
+@do y is 13
+@do map is 1595
+@end
+
+@if responce is 10 then do
+;Waterfall
+@begin
+@do x is 30
+@do y is 11
+@do map is 1035
+@end
+
+@if responce is 11 then do
+;Pond
+@begin
+@do x is 38
+@do y is 5
+@do map is 1120
+@end
+
+@if responce is 12 then do
+;West Beach Ferry
+@begin
+@do x is 52
+@do y is 13
+@do map is 215
+@end
+
+@if responce is 13 then do
+;Arrisland Ferry
+@begin
+@do x is 43
+@do y is 15
+@do map is 203
+@end
+
+@if responce is 14 then do
+;Music Shoppe
+@begin
+@do x is 44
+@do y is 9
+@do map is 360
+@end
+
+@loadmap &map
+@drawmap
+@update
+@closescript
+@end
+@do `v01 is 3
+@do goto WARPMP
+@end
+
+@drawmap
+@update
+
+@#KOSHI1
+@do moveback
+@if `p07 < 0 then do begin
+@begin
+@do saybar
+`2Koshi Warrior: "`0We've heard of you, `n!`2"
+@closescript
+@end
+@do `p20 random 9 1
+@if `p20 is 1 then saybar
+`2Koshi Warrior: `2"`0Look in all the beds at Stonepass Lodge if you go`2"
+@if `p20 is 2 then saybar
+`2Koshi Warrior: `2"`0I hear there's a shortcut through the Snowy Pass!`2"
+@if `p20 is 3 then saybar
+`2Koshi Warrior: `2"`0Careful, I hear the Inn here isn't the safest.`2"
+@if `p20 is 4 then saybar
+`2Koshi Warrior: `2"`0I hear the dark forest is a terrible place!`2"
+@if `p20 is 5 then saybar
+`2Koshi Warrior: `2"`0Find the flute in a cave south-west of Stonebrook`2"
+@if `p20 is 6 then saybar
+`2Koshi Warrior: `2"`0Have you ever flown?`2"
+@if `p20 is 7 then saybar
+`2Koshi Warrior: `2"`0I've been to Flagcity before.. ever been there?`2"
+@if `p20 is 8 then saybar
+`2Koshi Warrior: `2"`0The Dragon Tooth clan eat children. Sick, eh?`2"
+@if `p20 is 9 then saybar
+`2Koshi Warrior: `2"`0I hear this inn has a false wall!`2"
+
+@#HRDOOR
+@if &lasty is 10 then do
+@begin
+@do moveback
+@if `p07 < 0 then do begin
+@begin
+@do saybar
+`2The March Hare: "`0Get out you slime!`2"
+@closescript
+@end
+@do saybar
+`2The March Hare : "`0Only paying customers can go back there!`2"
+@end
+
+@#DTSCMP
+@do moveback
+@busy
+@do `v01 is 1
+@label TOOTH
+@show
+`r0`c `%Dragon Tooth Outpost.
+
+@if `p07 > -9 then do
+@begin
+@label TESTEL
+@show
+ `2Dragon Tooth Guard: "`0You bug me! Go away!`2"`k
+@drawmap
+@update
+@closescript
+@end
+@if bitcheck `t18 7 1 then do
+@begin
+@show
+ `2Dragon Tooth Guard: "`0Ah, well if it isn't `n`0, the great warrior
+ `0who helped us steal the `4smackrod`0 from the Koshi!`2"`k
+@do goto DARKFRT
+@closescript
+@end
+@if `t18 > 0 then do
+@begin
+@do goto DARKFRT
+@closescript
+@end
+
+@do goto TESTEL
+@closescript
+@end
+
+@#DARKFRT
+@do moveback
+@busy
+@do `v01 is 1
+@show
+`r0`c `%Dragon Tooth Outpost.
+
+ `2Various shields and crests hang from the walls, as well as many bodies!
+
+@do write
+`x`x
+@choice
+Buy Goods.
+Leave.
+@show
+`\
+@if responce is 1 then do begin
+@begin
+@buymanager
+40
+55
+50
+59
+68
+58
+70
+@do goto DARKFRT
+@closescript
+@end
+
+@drawmap
+@update
+
+@#monster1
+@fight
+;name
+The Mad Hatter
+;string said when you see him
+You see a weird old brittish person!
+;power move kill string
+That wasn't even close! Too easy you think to yourself.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+throws a giant snowball at you|85
+pushes you into yellow snow|50
+shows you a picture of your naked grandma|55
+offers you some tea|125
+NONE|NONE
+;defense
+40
+;gold reward
+700
+;experience
+250
+;hit points
+530
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#BOUNTYLIST
+ @show
+`r0`c `r1 Target Payoff Placed by Dead/Alive`r0
+
+@do move 27 5
+@do write
+`r1`%[reading, please wait]`r0
+@do `p21 is 1
+@do `p26 is 5
+@label readmore
+@if bounty.`p21 exist TRUE then do
+ @begin
+ @readfile bounty.`p21
+`p20
+`p22
+`p23
+ @if `p21 < 201 then do
+ @begin
+ @do `s05 is getname `p21
+ @end
+ @if `p21 > 200 then do
+ @begin
+ @do `p29 is `p21
+ @do `p29 - 200
+ @do `p70 is `p29
+ @routine getname in npcname.ref
+ @do `s05 is `s01
+ @end
+ @if `p20 is 0 then `s02 is King`xSysOp
+ @if `p20 > 0 then do
+ @begin
+ @if `p20 < 201 then do
+ @begin
+ @do `s02 is getname `p20
+ @end
+ @if `p20 > 200 then do
+ @begin
+ @do `p28 is `p20
+ @do `p28 - 200
+ @do `p70 is `p28
+ @routine getname in npcname.ref
+ @do `s02 is `s01
+ @end
+ @end
+ @do `s03 is `p22
+ @if `p23 is 0 then `s04 is Dead
+ @if `p23 is 1 then `s04 is Alive
+ @if `p23 is 2 then `s04 is Either
+; @do pad `s01 20
+; @do pad `s03 10
+@do move 27 `p26
+@do write
+`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x`x
+@do move 3 `p26
+@do write
+`s05
+@do move 21 `p26
+@do write
+`$$`s03 `2
+@do move 40 `p26
+@do write
+`s02
+@do move 65 `p26
+@do write
+`s04
+@do `p26 + 1
+@do move 27 `p26
+@do write
+`r1`%[reading, please wait]`r0
+ @end
+ @do `p21 + 1
+ @if `p21 < 401 then goto readmore
+
+@do move 27 `p26
+@do write
+`r1`% [end of list] `r0`\`k
+@if `p30 is 1 then do
+ @begin
+ @run taxes in sysop.ref
+ @end
+@if `p30 is 2 then do
+ @begin
+ @run bartend in bone.ref
+ @end
+@do goto MATCHB
diff --git a/xtrn/lord2/cnw/tok.ref b/xtrn/lord2/cnw/tok.ref
new file mode 100644
index 0000000000000000000000000000000000000000..31ae04e430cd33422bf6e7246097d0bea1db24cc
--- /dev/null
+++ b/xtrn/lord2/cnw/tok.ref
@@ -0,0 +1,270 @@
+; Script file TOK.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:22 2001
+
+@DECLARE sign1 000000434
+@DECLARE sign2 000000475
+@DECLARE sign3 000000527
+@DECLARE sign4 000000572
+@DECLARE warn 000000611
+@DECLARE healers 000000706
+@DECLARE start 000000720
+@DECLARE leave 000002348
+@DECLARE weapons 000002394
+@DECLARE wp 000002465
+@DECLARE qguard 000003793
+@DECLARE lose 000004459
+@NOCHECK
+; End of .REF index
+
+@#Sign1
+@do saybar
+Tower of Krystal
+
+@#Sign2
+@do Saybar
+Our Lady's Most Holy Healer
+
+@#Sign3
+@do Saybar
+Our Lady's Equipment
+
+@#Sign4
+@do Saybar
+Krystal Storage
+
+@#Warn
+@do Saybar
+Looks like the wall was broken from the inside... By something big!
+
+@#Healers
+@label Start
+@busy
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%Our Lady's Most Holy Healers
+
+`2 Morin 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`%)
+What's with this place?
+Limp on out.
+@show
+`\
+@If response is 3 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+
+@If response is 2 then do
+@begin
+@show
+`c
+ `$"What's with this place? Why's that guard blocking the way into the
+ `$basement?" `2you ask stupidly.
+
+ `0"There are many rumors going around, friend. The one that I believe
+ `0is that Lady Krystal is hoarding treasure so that she can raise an army
+ `0and wipe out the `4Dragon Tooth Clan`0!"
+
+ `$"I think she's just breeding monsters down there." `2you say stupidly.
+
+ `0"GET OUT OF HERE! NO ONE TALKS OF LADY KRYSTAL THAT WAY!"
+
+ `2You decide to leave before he does the opposite of healing on you...
+@key
+@drawmap
+@update
+@closescript
+@end
+
+@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!"
+ @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
+@do goto leave
+@end
+
+@show
+`0"You are in perfect health, `$`n`$." `2Morin says.
+@key
+@label leave
+@drawmap
+@update
+@closescript
+
+@#weapons
+;equipment store
+ @offmap
+ @do moveback
+ @do `v01 is 1
+ @label wp
+ @show
+`r0`c`r1 `%Our Lady's Equipment Store `r0
+
+ `2The young man behind the counter absently stares at his ring...
+
+@do `v01 is 1
+@choice
+Examine his weapons.
+Look at his armor.
+View his potions.
+Talk to him.
+Leave
+@if responce is 1 then do
+ @begin
+ @buymanager
+4
+9
+15
+16
+38
+35
+49
+39
+58
+ @do goto wp
+ @end
+
+@if responce is 2 then do
+@begin
+ @buymanager
+10
+12
+13
+14
+37
+59
+ @do goto wp
+ @end
+
+@if responce is 3 then do
+@begin
+ @buymanager
+5
+40
+55
+ @do goto wp
+ @end
+
+@if responce is 4 then do
+@begin
+@show
+`r0`c
+ `$"Why is there a guard blocking the basement?" `2you ask.
+
+ `0"Huh? What?" `2He seems to snap out of it. `0"Did you ask about some
+ `0of the wares?"
+
+ `$"No... The big, dumb guard in front of the basement, why's he there?"
+
+ `2He stops and thinks for a moment. `0"There are many rumors about what's
+ `0down there. But, with the Lady of the tower being an enchantress and
+ `0all... I would be suprised if she's breeding monsters down there..."
+
+ `$"Really? Monsters? COOL! I have to see this for myself!"
+
+ `0"Do what you wish, but I'd avoid the basement if I were you."
+@key
+@do goto wp
+@end
+
+@if responce is 5 then do begin
+ @drawmap
+ @update
+ @closescript
+@end
+
+@#QGuard
+@busy
+@dataload tok.idf &playernum `p25
+@if `p25 more 0 then do
+@begin
+@do saybar
+The guards smile at you as you pass.
+@closescript
+@end
+
+@do `v01 is 1
+@show
+`r0`c`r1 `%Royal Guards `r0
+
+ `0"Halt!" `2they yell in unison. `0"Why must you pass?"
+
+@choice
+I have urgent business with the Lady.
+Get out of my way or die!
+Run away.
+@if responce is 1 then do
+@begin
+@show
+
+
+ `0"Very well then, you may pass."
+@key
+@drawmap
+@update
+@closescript
+@end
+
+@if responce is 2 then do
+@Begin
+@drawmap
+@update
+@run LeftG in TOKMON.REF
+@end
+
+@if responce is 3 then do
+@do moveback
+@drawmap
+@update
+@closescript
+@end
+
+@#Lose
+;if lost to a guard
+@if `p02 less 0 then do
+@begin
+@do `p02 is 1
+@end
+@do x is 32
+@do y is 16
+@do map is 1352
+@loadmap &map
+@drawmap
+@update
+@closescript
+
diff --git a/xtrn/lord2/cnw/tok1.ref b/xtrn/lord2/cnw/tok1.ref
new file mode 100644
index 0000000000000000000000000000000000000000..b4ff6dc4f0967ef8fddd9af618a5fbc5a2654474
--- /dev/null
+++ b/xtrn/lord2/cnw/tok1.ref
@@ -0,0 +1,335 @@
+; Script file TOK1.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:22 2001
+
+@DECLARE teledoor 000000430
+@DECLARE lockdoor 000000588
+@DECLARE baseguard 000000659
+@DECLARE krystal 000000921
+@DECLARE kstart 000001256
+@DECLARE stash 000002736
+@DECLARE krystal2 000003928
+@DECLARE krystal3 000005420
+@DECLARE k3start 000005494
+@DECLARE rand 000006353
+@DECLARE end 000007337
+@NOCHECK
+; End of .REF index
+
+@#TeleDoor
+@dataload tok.idf &playernum `p20
+@if `p20 is 3 then do
+@begin
+@closescript
+@end
+@do moveback
+@do saybar
+The door seems to be locked...
+
+@#LockDoor
+@do moveback
+@do saybar
+The door seems to be locked...
+@#BaseGuard
+@dataload TOK.IDF &playernum `p20
+@if `p20 more 0 then do
+@begin
+@do saybar
+The guard smiles and lets you pass.
+@closescript
+@end
+@if `p20 is 0 then do
+@begin
+@do moveback
+@do saybar
+The guard rudely pushes you back.
+@closescript
+@end
+
+@#Krystal
+;Her Ladyship! :)
+@busy
+@do moveback
+@do `p20 is 0
+@dataload TOK.IDF &playernum `p21
+
+@if `p21 is 1 then do
+@begin
+@run Krystal2 in TOK1.REF
+@end
+
+@if `p21 is 2 then do
+@begin
+@run Krystal2 in TOK1.REF
+@end
+
+@if `p21 is 3 then do
+@begin
+@run Krystal3 in TOK1.REF
+@end
+
+@do `p20 is 0
+@do `p22 is 0
+@label KStart
+@do `v01 is 1
+@show
+`r0`c`r1 `%Lady Krystal the Enchantress `r0
+
+ `2You nearly wretch from the heavy smell of inscence that heavely covers
+ `2the room. Across the room, on an thrown made of ivory, a woman sits.
+ `2As you approch, you can make out her features and are awestruck by her
+ `2beauty.
+
+ `2She looks at you and raises an eyebrow. `0"You have business with me
+ `0me, warrior?"
+
+@choice
+<`p20 1 By the Gods! You're beautiful!
+<`p22 1 I heard you're stashing cash in the basement...
+<`p22 1 Are you really breading monsters in the basement?
+=`p22 1 I'll help you and rid your basement of this Evil!
+Blush and leave.
+@if responce is 5 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+
+@if responce is 4 then do
+@begin
+@do write
+`\`\
+@show
+ `0"Thank the Gods! A hero to save us! I'll send word to the basement
+ `0guard to let you pass!"
+@key
+@datasave TOK.IDF &playernum 1
+@drawmap
+@update
+@closescript
+@end
+
+@if responce is 3 then do
+@begin
+@show
+`c`r0 `%`0"No! I'm not breading monsters!"
+@display Stash in TOK1.REF
+@key
+@do `p22 is 1
+@do goto KStart
+@end
+
+@if responce is 2 then do
+@begin
+@show
+`c`r0 `%The Stash of Krystals
+
+@display Stash in TOK1.REF
+@key
+@do `p22 is 1
+@do goto KStart
+@end
+
+@if responce is 1 then do
+@begin
+@show
+`\
+ `0"Why thank-you, s&boy. Now, you have business with me?
+
+@key
+@do `p20 is 1
+@do goto KStart
+@end
+
+@#Stash
+
+ `2She sighs loudly. `0"You see, warrior, when I heard of the `4Dragon
+ `4Tooth Clan`0, I knew that eventually, there would be a time for us all
+ `0to rise back against them. So I started to hoard my magic krystals...
+`k
+ `$"Wait a minute... You have magical krystals? What do they look like?"
+`k
+ `2She looks upset at being interupted. `0"Well, they look much like the
+ `0gems the barkeep in Greentree collects. Anyway, I started to hoard them
+ `0in my basement."
+`k
+ `$"So you are storing riches in the basement!" `2you exclaim feeling
+ `2very intelligent.
+`k
+ `0"Will you please shut up and let me finish!?"
+`k
+ `$"Oh fine!"
+`k
+ `0"Now, as I was saying... Oh yes, I started to hoard them in the
+ `0basement so they could be used in the upcoming war! Unfortunately...
+ `0I hadn't fully assessed the power of the krystals... They... well...
+`k
+ `$"They what?" `2you ask stupidly.
+`k
+ `2She blushes and continues, `0"They started to form into creatures! They
+ `0then started to attack my people... I think that some powerful evil
+ `0is at work here."
+@#Krystal2
+@do `v01 is 1
+@show
+`r0`c`r1 `%Lady Krystal the Enchantress `r0
+
+ `2You nearly wretch from the heavy smell of inscence that heavely covers
+ `2the room. Across the room, on an thrown made of ivory, a woman sits.
+ `2As you approch, you can make out her features and are awestruck by her
+ `2beauty.
+
+ `2She looks at you and smiles. `0"You have rid my basement of Evil?"
+
+@choice
+=`p21 2 I have rid your basement of Evil, m'Lady.
+=`p21 1 I have yet to do so.
+@if responce is 2 then do
+@begin
+@do write
+`\`\
+@show
+ `0"Please hurry. There isn't much time!"
+@key
+@drawmap
+@update
+@closescript
+@end
+
+@If responce is 1 then do
+@begin
+@show
+`r0`c`r1 `%VICTORY! `r0
+
+ `%You tell the tale of you valient battle with the hoards of creatures
+ `%made of krystal and their leader, the Krystal Golem... Leaving out,
+ `%of course, the part about taking some of the remains.
+
+ `0"You have done my keep a great service!" `2She pauses and thinks.
+ `0"For your valor, I shall reward you! You may use the teleportation
+ `0stone on top of the tower, you will recieve 3 gems, and you may ask
+ `0me for my magical aid when ever I can provide it!"
+
+ `4You get 3 gems and 20 quest points!
+
+ `%You feel you have done a good deed. Alignment goes up by 10!
+
+@key
+@do `p18 + 20
+@do `p19 + 3
+@do `p07 + 10
+@datasave TOK.idf &playernum 3
+@drawmap
+@update
+@closescript
+@end
+
+@#Krystal3
+@datanewday TOK1.IDF
+@dataload TOK1.IDF &playernum `p22
+@label K3START
+@do `v01 is 1
+@show
+`r0`c`r1 `%Lady Krystal the Enchantress `r0
+
+ `2You nearly wretch from the heavy smell of inscence that heavely covers
+ `2the room. Across the room, on an thrown made of ivory, a woman sits.
+ `2As you approch, you can make out her features and are awestruck by her
+ `2beauty.
+
+ `2Lady Krystal smiles at you. `0"My hero returns to talk! Of what
+ `0do you wish to speak?"
+
+@choice
+<`p20 1 By the Gods! You're beautiful!
+<`p22 1 You said something about magical aid...
+Sorry, I need to leave.
+@if responce is 3 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+
+@if responce is 1 then do
+@begin
+@show
+`\
+ `0"Why thank-you, `N. Now, of what do you wish to speak?
+
+@key
+@do `p20 is 1
+@do goto K3Start
+@end
+
+@if responce is 2 then do
+@run Rand in TOK1.REF
+
+@#RAND
+@show
+`c
+ `%A Blessing
+
+ `2She smiles hugely at you. (What a pleasent sight!) `0"I did promise
+ `0you a blessing when I could, didn't I?"
+
+ `2You nod your head eagerly.
+
+@do write
+ `0"Well then, your blessing today is.`L.`L.`L.
+
+
+@do `v04 random 5 1
+
+@if `v04 is 2 then do
+@begin
+@do write
+ `0dexterity!"`\`\ `4You feel faster!`\
+@key
+@do `p05 + 2
+@do goto end
+@end
+
+@if `v04 is 3 then do
+@begin
+@do write
+ `0charm!"`\`\ `4You feel better looking!`\
+@key
+@do `p08 + 1
+@do goto end
+@end
+
+@if `v04 is 4 then do
+@begin
+@do write
+ `0morality!"`\`\ `4You feel like a better person!`\
+@key
+@do `p07 is + 5
+@do goto end
+@end
+
+@if `v04 is 5 then do
+@begin
+@do write
+ `0krystals!"`\`\ `4She gives you 2 gems!`\
+@key
+@do `p19 + 2
+@do goto end
+@end
+
+@if `v04 is 1 then do
+@begin
+@do write
+ `0strength!"`\`\ `4You feel stronger!`\
+@key
+@do `p04 + 3
+@do goto end
+@end
+
+@label end
+@if `v04 more 0 then do
+@begin
+@datasave TOK1.IDF &playernum 1
+@do `p22 is 1
+@run krystal3 in TOK1.REF
+@end
+
diff --git a/xtrn/lord2/cnw/tok2.ref b/xtrn/lord2/cnw/tok2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..a266482fb310d93544c1853edf6952c326f24f3c
--- /dev/null
+++ b/xtrn/lord2/cnw/tok2.ref
@@ -0,0 +1,68 @@
+; Script file TOK2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:22 2001
+
+@DECLARE stonebrook 000000300
+@DECLARE greentree 000000342
+@DECLARE sosen 000000379
+@DECLARE porttown 000000415
+@DECLARE jumpup 000000452
+@DECLARE jumpdown 000000720
+@NOCHECK
+; End of .REF index
+
+@#StoneBrook
+@do saybar
+To Stonebrook
+
+@#GreenTree
+@do saybar
+To Greentree
+
+@#Sosen
+@do saybar
+To Sosen
+
+@#PortTown
+@do saybar
+To PortTown
+
+@#jumpup
+@dataload tok.idf &playernum `p27
+@if `p27 more 0 then do
+@begin
+@do x is 33
+@do y is 3
+@do map is 828
+@loadmap &map
+@drawmap
+@update
+@closescript
+@end
+
+@do x is 47
+@do y is 3
+@do map is 831
+@loadmap &map
+@drawmap
+@update
+@closescript
+
+@#jumpdown
+@if `p27 more 0 then do
+@begin
+@do x is 47
+@do y is 5
+@do map is 829
+@loadmap &map
+@drawmap
+@update
+@closescript
+@end
+
+@do x is 33
+@do y is 5
+@do map is 831
+@loadmap &map
+@drawmap
+@update
+@closescript
+
diff --git a/xtrn/lord2/cnw/tokmon.ref b/xtrn/lord2/cnw/tokmon.ref
new file mode 100644
index 0000000000000000000000000000000000000000..42b3880ae72c819272b455d4e0b101a3866b6d1b
--- /dev/null
+++ b/xtrn/lord2/cnw/tokmon.ref
@@ -0,0 +1,336 @@
+; Script file TOKMON.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:22 2001
+
+@DECLARE leftg 000000461
+@DECLARE rightg 000001056
+@DECLARE tguard 000001637
+@DECLARE monster1 000002184
+@DECLARE monster2 000002736
+@DECLARE monster3 000003264
+@DECLARE monster4 000003833
+@DECLARE monster5 000004376
+@DECLARE fight 000004922
+@DECLARE meetgolem 000004980
+@DECLARE golem 000005401
+@DECLARE wingolem 000005950
+@NOCHECK
+; End of .REF index
+
+@#LeftG
+@fight
+ ;name
+Left Guard
+ ;string said when you see him
+"We have sworn to protect her from rabble like you!" he screams.
+ ;power move kill string
+All right, where's the other one?
+ ;sex - 1 is male, 2 is female, 3 is it
+1
+ ;weapon and strength for the weapon, up to 5
+slashes you|76
+kicks you|65
+runs you through|84
+headbutts you|34
+NONE|NONE
+ ;defense
+57
+ ;gold reward
+1000
+ ;experience
+500
+ ;hit points
+400
+ ;if win: ref file|name or NONE
+TOKMON.REF|RightG
+ ;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+ ;if runs: ref file|name or NONE
+Tok.ref|Lose
+
+@#RightG
+@fight
+ ;name
+Right Guard
+ ;string said when you see him
+"For Lefty!" he screams!
+ ;power move kill string
+"With idiots for guards, it's amazing she's still safe!" you sneer.
+ ;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+slashes you|76
+kicks you|65
+runs you through|84
+headbutts you|34
+NONE|NONE
+ ;defense
+57
+ ;gold reward
+1000
+ ;experience
+500
+ ;hit points
+400
+ ;if win: ref file|name or NONE
+NONE|NONE
+ ;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+ ;if runs: ref file|name or NONE
+TOK.REF|Lose
+
+@#TGuard
+@fight
+ ;name
+Tower Guard
+ ;string said when you see him
+"Halt intruder!" he yells.
+ ;power move kill string
+"Silly guard, you can't beat me!"
+ ;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+slashes you|56
+kicks you|45
+runs you through|64
+headbutts you|24
+NONE|NONE
+ ;defense
+37
+ ;gold reward
+231
+ ;experience
+164
+ ;hit points
+100
+ ;if win: ref file|name or NONE
+NONE|NONE
+ ;if lose: ref file|name or NONE
+TOK.REF|Lose
+ ;if runs: ref file|name or NONE
+TOK.REF|Lose
+
+@#monster1
+@fight
+;name
+Krystal Spider
+;string said when you see him
+Something glints strangely in the cave...
+;power move kill string
+It shatters into a million pieces!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+spaps at you|97
+pounces on you|84
+bites you|107
+blinds you|55
+NONE|NONE
+;defense
+56
+;gold reward
+576
+;experience
+325
+;hit points
+200
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Krystal Ant
+;string said when you see him
+A shiney thing bit your toe!
+;power move kill string
+It shatters into a million pieces!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+spaps at you|97
+bites you|107
+blinds you|55
+NONE|NONE
+NONE|NONE
+;defense
+43
+;gold reward
+475
+;experience
+287
+;hit points
+178
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Krystal Goblin
+;string said when you see him
+A little krystal humaniod jumps at you!
+;power move kill string
+It shatters into a million pieces!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+smacks you|105
+pounces on you|120
+hits you with a krystal club|134
+blinds you|55
+NONE|NONE
+;defense
+66
+;gold reward
+976
+;experience
+625
+;hit points
+300
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Krystal Bat
+;string said when you see him
+OUCH! Something just hit your face!
+;power move kill string
+It shatters into a million pieces!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+spaps at you|92
+flys into you|84
+bites you|102
+blinds you|55
+NONE|NONE
+;defense
+60
+;gold reward
+756
+;experience
+425
+;hit points
+250
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Krystal Gremlin
+;string said when you see him
+"Agalaga Shaga!" screams a krystal critter.
+;power move kill string
+It shatters into a million pieces!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+hits you|107
+jumps on you|94
+bites you|92
+blinds you|55
+NONE|NONE
+;defense
+61
+;gold reward
+734
+;experience
+525
+;hit points
+375
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#FIGHT
+@do `p20 random 5 1
+@do goto monster`p20
+
+@#MeetGolem
+@dataload tok.idf &playernum `p97
+@if `p97 is 1 then do
+@begin
+@show
+`r0`c`r1 The Krystal Golem `r0
+
+ `2Before you stands a being completely made of the valuable krystal!
+ `2Because he's the biggest, you assume he's the leader and charge!
+
+@key
+@run golem in tokmon.ref
+@end
+@if `p97 more 1 then do
+@do saybar
+The shattered remains of the Krystal Golem. Nope, no more gems...
+@end
+
+@#Golem
+@fight
+;name
+Krystal Golem
+;string said when you see him
+"Uuuahhhh!" screams the giant.
+;power move kill string
+It shatters into a million pieces!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+smacks you|127
+steps on you|134
+bites you|92
+blinds you|55
+NONE|NONE
+;defense
+97
+;gold reward
+5000
+;experience
+2500
+;hit points
+600
+;if win: ref file|name or NONE
+TOKMON.REF|WINGOLEM
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#WinGolem
+@busy
+@show
+`r0`c`r1 `%You Stand Victorious! `r0
+
+ `2You stand of the stattered remains of your foe and smile. Not even
+ `2this monstosity could stop you.`L.`L.`L.
+
+ `2What's this? Some of the shards left over look just big enough to pass
+ `2as gems! You decide to pocket them as a little reward!
+
+ `%You get 3 gems!
+@key
+@datasave tok.idf &playernum 2
+@do `p19 + 3
+@drawmap
+@update
+@closescript
diff --git a/xtrn/lord2/cnw/toss.ans b/xtrn/lord2/cnw/toss.ans
new file mode 100644
index 0000000000000000000000000000000000000000..d950a21d8dd88e13d6983b68dd371a2ae2fa82e6
--- /dev/null
+++ b/xtrn/lord2/cnw/toss.ans
@@ -0,0 +1 @@
+[?7h[40m[2J[11;5H[0;1m [D[12;4H���[C[36m��>[61C[0m�[13;4H[1m���[65C[32m [D[14;71H�ſ[15;71H���[12;8H[36m ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[3D ��>[4D ��>[10;68H [11;68H ��>[12;68H [0m�[9;67H[1;36m [10;67H ��> [11;67H [12;73H [0m�[9;66H[1;36m [10;66H ��> [11;66H [10;74H [11;74H [0m�[1;36m [12;74H [9;65H [10;65H ��> [11;65H [9;75H [10;75H [0m�[1;36m [11;75H [10;64H [11;64H ��> [12;64H [10;76H [11;76H [0m�[1;36m [12;76H [11;63H [12;63H ��> [13;63H [11;77H [12;77H [0m�[1;36m [13;77H [12;64H [13;64H��>[12;77H [13;77H [0m�[1;36m [12;77H [13;77H [0m�[1;36m [16D [14;64H��>[13;78H [14;78H[0m�[15D[1;36m [15;64H��>[14;78H [15;78H[0m�[0m
\ No newline at end of file
diff --git a/xtrn/lord2/cnw/tower.ans b/xtrn/lord2/cnw/tower.ans
new file mode 100644
index 0000000000000000000000000000000000000000..7798b84344553c19b5a84ad937ffb929c4342c27
--- /dev/null
+++ b/xtrn/lord2/cnw/tower.ans
@@ -0,0 +1,24 @@
+[255D[0;1;44m [40m
+[A[79C[0;1;31;44m[0;1;31;44m [0;1;31;44m[0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [40m
+[A[79C[0;1;31;44m[0;1;31;44m [0;1;31;44m[0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [40m
+[A[79C[0;1;31;44m[0;1;31;44m [0;1;31;44m[0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;31;44m [0;1;30;44m� � � � � [0;44m� � � [0;1;44m� � [40m
+[A[79C[0;31;44m[0;31;44m [0;31;44m[0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;31;44m [0;1;30;44m��������[0;44m�����[0;1;44m������ [40m
+[A[79C[0;1;44m [0;1;30;44m��������[0;44m���[0;1;44m�[0m�[0;1;44m���� [0;32;44m��� �� [40m
+[A[79C[0;32;44m [0;32m��[0;32;44m [0;1;30;44m��������[0;44m���[0m�[0;1;44m��� [0;32;44m��۲�۲��� [40m
+[A[79C[0;32;44m [0;32m��[0;32;44m [0;32m����[0;32;44m [0;32m�[0;32;44m [0;1;30;44m�[0;1;30m�[0;1;30;44m����[0;1;30m��[0;1;30;44m�[0;44m�[0m�[0;1;44m���� [0;33;44m��[0;32;44m��۱�����۲� [40m
+[A[79C[0;32;44m [0;32m�����[0;32;44m [0;32m�����[0;32;44m [0;32m���[0;32;44m [0;1;30;44m�����[0;44m����[0m�[0;1;44m����� [0;33;44m�[0;32;44m�[0;33;44m�[0;32;44m�[0;33;44m��[0;32;44m�[0;33;44m�[0;32;44m��[0;33;44m���[0;32;44m� [40m
+[A[79C[0;32;44m [0;32m��������[0;32;44m [0;32m�����۲[0;32;44m [0;1;30;44m�������[0;44m����[0;1;44m���� [0;33;44m�[0;32;44m��۱[0;33;44m�[0;32;44m۱�[0;33;44m�[0;32;44m�[0;33;44m���[0;32;44m�� [40m
+[A[79C[0;32;44m [0;32m������[0;32;44m [0;32m�����[0;32;44m [0;32m���[0;32;44m [0;1;30;44m������[0;44m����[0;1;44m�[0;1m�[0;1;44m��� [0;32;44m���[0;33;44m����[0;32;44m�[0;33;44m�[0;32;44m�[0;33;44m��[0;32;44m�[0;33;44m���[0;32;44m�� [40m
+[A[79C[0;32;44m [0;32m���[0;33m�[0;32m���[0;33m�[0;33;44m [0;32m�����[0;32;44m [0;1;30;44m���������[0;44m��[0;1;44m���� [0;33;44m���[0;32;44m۰[0;33;44m����[0;32;44m�[0;33;44m�[0;32;44m��[0;33;44m�[0;32;44m�� [40m
+[A[79C[0;32;44m [0;32m��������[0;33m���[0;32m�������[0;32;44m [0;1;30;44m�����[0;1;30m�[0;1;30;44m��[0;44m��[0;1;44m����� [0;32;44m��[0;33;44m�[0;32;44m�[0;33;44m��[0;32;44m��[0;33;44m��[0;32;44m�[0;33;44m���[0;32;44m��� [40m
+[A[79C[0;32;44m [0;32m�����[0;33m�����[0;32m����[0;32;44m [0;1;30;44m��[0;1;30m�[0;1;30;44m����[0;44m��[0m��[0;1;44m�[0;1m�[0;1;44m�� [0;32;44m���[0;33;44m������۰�[0;32;44m��� [40m
+[A[79C[0;32;44m [0;33m���[0;33;44m [0;1;30;44m�����[0;44m���[0;1;44m������� [0;32;44m���[0;33;44m۲�۲[0;32;44m� [40m
+[A[79C[0;32;44m [0;1;30;46m����[0;47m[0;47m [0;47m [0;47m [0;47m [0;47m [0;47m [0;1;44m��[0;33m����[0;1;30;46m�[0;47m[0;47m [0;47m [0;47m [0;47m [0;47m [0;47m [0;47m [0;1;44m��[0;47m[0;47m [0;1;30;44m�������[0;44m��[0;1;44m������[0;1;30;46m���[0;47m[0;47m [0;47m [0;47m [0;47m [0;1;44m��[0;47m[0;47m [0;47m [0;1;30;46m�[0;33;44m����۲[0;1;30;46m��[0;47m[0;47m [0;47m [0;47m [0;47m [0;47m [0;47m [0;47m [0;1;44m��[0;47m[0;47m [0;47m [0;47m [0;47m [0;47m [0;47m [0;47m [0;47m [40m
+[A[79C[0;1;30;46m������[0;47m[0;47m [0;47m [0;47m [0;47m [0;1;44m��[0;47m[0;47m [0;33m����[0;1;30;46m��[0;47m[0;47m [0;47m [0;47m [0;47m [0;47m [0;47m [0;1;44m�[0;32m�[0;1;32;42m��[0;1;30;44m�������[0;44m��[0;1;44m�����[0;1;30;46m��[0;47m[0;47m [0;47m [0;1;32;42m���[0;47m[0;47m [0;1;44m�[0;47m[0;47m [0;47m [0;47m [0;1;30;46m�[0;33;44m��[0;32m�[0;1;32;42m��[0;1;30;46m���[0;47m[0;47m [0;47m [0;47m [0;47m [0;47m [0;1;44m��[0;47m[0;47m [0;47m [0;47m [0;47m [0;47m [0;47m [0;1;30;46m���[40m
+[A[79C[0;1;30;46m��������[0;47m[0;47m [0;32m�[0;1;32;42m�[0;32m�[0;1;32;42m��[0;33m���[0;1;30;46m���[0;47m[0;47m [0;47m [0;47m [0;47m [0;1;44m�[0;1;32;42m��[0;32m��[0;1;32;42m�[0;32m�[0;1;30;44m���[0;44m���[0;1;44m������[0;1;30;46m�[0;47m[0;47m [0;32m�[0;1;32;42m�[0;32m�[0;1;32;42m�[0;32m�[0;1;32;42m�[0;47m[0;47m [0;47m [0;47m [0;47m [0;32m���[0;1;32;42m�[0;32m��[0;1;32;42m۲�[0;1;30;46m�[0;47m[0;47m [0;1;32;42m���[0;47m[0;47m [0;1;44m��[0;47m[0;47m [0;47m [0;47m [0;1;30;46m�����[40m
+[A[79C[0;1;30;46m�[0;32m�[0;32;42m [0;32m��[0;1;32;42m��[0;32m�[0;1;32;42m��[0;32m��[0;32;42m [0;32m�����[0;1;32;42m��[0;1;30m�[0;32m���[0;1;32;42m�[0;1;30m��[0m���[0;1m���[0;32m���[0;1;32;42m�[0;32m�[0;1;32;42m۲[0;32m�[0;1;32;42m�� � [0;32m���[0;1;32;42m�[0;32m��[0;1;32;42m�[0;32m�[0;1;32;42m���[0;32m�[0;1;32;42m�۲ [40m
+[A[79C[0;1;32;42m [0;32m�[0;1;32;42m��[0;32m��[0;1;32;42m����۲��� ��[0;32m������[0;1;32;42m�[0;32m�[0;1;32;42m�[0;32m�[0;1;32;42m�[0;32m��[0;1;32;42m�[0;32m�[0;1;32;42m��[0;32m��[0;1;32;42m�[0;32m�[0;1;32;42m�[0;32m����[0;1;32;42m۰[0;32m�����[0;1;32;42m�[0;32m�����[0;1;32;42m�[0;32m��[0;1;32;42m��[0;32m�[0;1;32;42m�[0;32m�[0;1;32;42m�[0;32m�[0;1;32;42m�� [40m
+[A[79C[0;1;32;42m [0;32m����[0;1;32;42m�[0;32m���[0;1;32;42m�[0;32m���[0;1;32;42m�[0;32m�[0;1;32;42m��[0;32m���������������[0;1;32;42m�[0;32m���������������[0;1;32;42m�[0;32m��[0;1;32;42m�[0;32m����[0;1;32;42m�[0;32m�[0;1;32;42m�[0;32m�������[0;1;32;42m�[0;32m�[0;1;32;42m�[0;32m���[0;32;42m [40m
+[A[79C[0;32;42m [0;32m�[0;32;42m [40m
+[A[79C[0;32;42m [40m
+[0m[255D
diff --git a/xtrn/lord2/cnw/trader.dat b/xtrn/lord2/cnw/trader.dat
new file mode 100644
index 0000000000000000000000000000000000000000..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391
diff --git a/xtrn/lord2/cnw/train2.ref b/xtrn/lord2/cnw/train2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..1d967904b4124245d2ca56ba9348a6947206fecc
--- /dev/null
+++ b/xtrn/lord2/cnw/train2.ref
@@ -0,0 +1,259 @@
+; Script file TRAIN2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:24 2001
+
+@DECLARE win 000000437
+@DECLARE die 000000987
+@DECLARE wakeup 000001204
+@DECLARE arena1 000001476
+@DECLARE arena2 000001678
+@DECLARE arena3 000001960
+@DECLARE master1 000002225
+@DECLARE master2 000003058
+@DECLARE master3 000003809
+@DECLARE startfight 000004558
+@DECLARE closescript 000005095
+@NOCHECK
+; End of .REF index
+
+;training
+@#WIN
+
+@do `p21 is 5
+@do `p03 + `p21
+
+@do `p22 is 2
+@do `p04 + `p22
+
+@do `p23 is 1
+@do `p05 + `p23
+
+
+@do `p09 + 1
+
+@do addlog
+ `r4 `r0 `0`n`2 has beaten `0`e`2 and become level `p09! `r4 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@do `p02 is `p03
+@show
+`r0`c `r1 `%YOU HAVE FACED YOUR DARKEST FEAR AND TRIUMPHED! `r0
+
+ `2You wake up well rested.
+
+ `%YOU ARE NOW LEVEL `p09!
+
+ `2You gain `0`p21`2 hitpoints,`0 `p22`2 muscle and `0`p23`2 dodge.
+
+`k
+@run train in atrain.ref
+
+@#DIE
+@do `p02 is 1
+@do `t04 is 1
+@show
+`r0`c `r1 `%YOUR NIGHTMARE HAS BESTED YOU `r0
+
+ `2You wake up screaming to find four men holding you down.
+
+ You have failed.
+
+`k
+@run train in atrain.ref
+
+@#WAKEUP
+`@do `t04 is 1
+@show
+`r0`c `r1 `%YOU ESCAPE - THE ONLY WAY YOU KNOW HOW `r0
+
+ `2You suddenly sit up in bed. Wiping the beads of sweat from your brow,
+ you wonder how you could have thought you were ready for this...
+
+`k
+@run train in atrain.ref
+
+@#arena1
+@show
+`c `r1 `%RUINS `r0
+
+ `!You find yourself amidst a bunch of tumbled-down buldings.
+
+ Looking around you see...
+`k
+@
+
+
+@#arena2
+@show
+`c `r1 `%THE FUTURE `r0
+
+ `#All around you are moden wonders... cars, planes, buses... You stand
+ in awe of the future.
+
+ You hear an awful sound from behind you. You turn around to discover...
+`k
+@
+
+@#arena3
+@show
+`c `r1 `%MEADOW `r0
+
+ `0You open your eyes to find green grass all around you. It's a very
+ nice day today.
+
+ With the sun warming your face you feel ready to fight...
+`k
+@
+
+
+
+
+@#master1
+@show
+ There is a mirror nearby. To your suprise, your reflection
+ begins to leer at you. It then steps out of the mirror!
+
+`k
+@do `p29 is 1
+@if sexmale is 0 then `p29 is 2
+@fight
+;name
+Death Clone
+;string said when you see him
+Your clone smiles at you... just before s&he attacks!
+;power move kill string
+`%Ouch... killing yourself hurts somehow.
+;sex - 1 is male, 2 is female, 3 is it
+`p29
+;weapon and strength for the weapon, up to 5
+attacks with s&his s&weapon|`p22
+plays mind games with you|`p22
+threatens you with your darkest fear|`p22
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+TRAIN2.REF|WIN
+;if lose: ref file|name or NONE
+TRAIN2.REF|DIE
+;if runs: ref file|name or NONE
+TRAIN2.REF|WAKEUP
+@closescript
+
+@#master2
+@show
+ A hideous green thing is standing 10 yards away from you,
+ praticing with a triple-bladed sword.
+
+`k
+@fight
+;name
+Troll Chief
+;string said when you see him
+The Troll Chief grabs his triple-bladed sword and rushes you!
+;power move kill string
+`%Wow! Maybe you should find the rest of his caln!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+swings his triple-bladed sword|`p22
+bites you|`p22
+punches you in the gut|`p22
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+TRAIN2.REF|WIN
+;if lose: ref file|name or NONE
+TRAIN2.REF|DIE
+;if runs: ref file|name or NONE
+TRAIN2.REF|WAKEUP
+@closescript
+
+@#master3
+@show
+ From out of the sky, a huge dragon swoops down to attack you!
+
+`k
+@fight
+;name
+Huge Dragon
+;string said when you see him
+You grab your weapon and prepare to make Dragon Burgers!
+;power move kill string
+`%You did it! Now if only you could find the Red Dragon...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+breaths `@fire`2|`p22
+breaths `7acid`2|`p22
+breaths `0chlorine gas`2|`p22
+breaths `%ice`2|`p22
+breaths `9lightning`2|`p22
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+TRAIN2.REF|WIN
+;if lose: ref file|name or NONE
+TRAIN2.REF|DIE
+;if runs: ref file|name or NONE
+TRAIN2.REF|WAKEUP
+@closescript
+
+
+
+
+@#startfight
+;<--added by CNW for time-->
+@do `p21 is `v05
+@do `p21 / 24
+@do `p11 - `p21
+
+;do math to create monster
+
+@do `p21 is `p03
+@do `p25 is `p09
+@do `p25 random `p25 1
+@do `p21 + `p25
+
+@do `p22 is S&wep_num
+@do `p22 + `p04
+
+@do `p23 is S&arm_num
+@do `p23 + `p05
+
+@do `p24 random `p22
+@do `p21 + `p24
+@do `p24 random `p22
+@do `p21 - `p24
+
+@do `p24 random `p22
+@do `p24 / 5
+@do `p22 - `p24
+
+
+;pick arena
+@do `p20 random 3 1
+@routine arena`p20
+;pick master
+@do `p20 random 3 1
+@routine master`p20
+@#closescript
diff --git a/xtrn/lord2/cnw/train3.ref b/xtrn/lord2/cnw/train3.ref
new file mode 100644
index 0000000000000000000000000000000000000000..debb62872770226f86f9d21dbe7898cf5784f9c1
--- /dev/null
+++ b/xtrn/lord2/cnw/train3.ref
@@ -0,0 +1,256 @@
+; Script file TRAIN3.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:24 2001
+
+@DECLARE win 000000437
+@DECLARE die 000000987
+@DECLARE wakeup 000001204
+@DECLARE arena1 000001476
+@DECLARE arena2 000001668
+@DECLARE arena3 000001957
+@DECLARE master1 000002220
+@DECLARE master2 000002930
+@DECLARE master3 000003667
+@DECLARE startfight 000004394
+@DECLARE closescript 000004931
+@NOCHECK
+; End of .REF index
+
+;training
+@#WIN
+
+@do `p21 is 5
+@do `p03 + `p21
+
+@do `p22 is 2
+@do `p04 + `p22
+
+@do `p23 is 1
+@do `p05 + `p23
+
+
+@do `p09 + 1
+
+@do addlog
+ `r4 `r0 `0`n`2 has beaten `0`e`2 and become level `p09! `r4 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@do `p02 is `p03
+@show
+`r0`c `r1 `%YOU HAVE FACED YOUR DARKEST FEAR AND TRIUMPHED! `r0
+
+ `2You wake up well rested.
+
+ `%YOU ARE NOW LEVEL `p09!
+
+ `2You gain `0`p21`2 hitpoints,`0 `p22`2 muscle and `0`p23`2 dodge.
+
+`k
+@run train in atrain.ref
+
+@#DIE
+@do `p02 is 1
+@do `t04 is 1
+@show
+`r0`c `r1 `%YOUR NIGHTMARE HAS BESTED YOU `r0
+
+ `2You wake up screaming to find four men holding you down.
+
+ You have failed.
+
+`k
+@run train in atrain.ref
+
+@#WAKEUP
+`@do `t04 is 1
+@show
+`r0`c `r1 `%YOU ESCAPE - THE ONLY WAY YOU KNOW HOW `r0
+
+ `2You suddenly sit up in bed. Wiping the beads of sweat from your brow,
+ you wonder how you could have thought you were ready for this...
+
+`k
+@run train in atrain.ref
+
+@#arena1
+@show
+`c `r1 `%THE VOID `r0
+
+ `7You find yourself surrounded by a vast greyness.
+
+ Looking around you see...
+`k
+@
+
+
+@#arena2
+@show
+`c `r1 `%UNDERWATER `r0
+
+ `9You are surrounded by the deep blue sea. Amazingly, breathing is not
+ a problem!
+
+ You notice something swimming towards you. As it gets closer, you can
+ see that it is...
+`k
+@
+
+@#arena3
+@show
+`c `r1 `%MOUNTAIN TOP `r0
+
+ `%You open your eyes to find yourself on the frosty peak of a very
+ high mountain.
+
+ With the sun shining brightly, you feel ready to fight...
+`k
+@
+
+
+
+
+@#master1
+@show
+ A grey shape that fills you a with a sense of emptyness.
+
+`k
+@fight
+;name
+Grey Minion
+;string said when you see him
+It almost seems as though the Grey Minion does not exist...
+;power move kill string
+`%The sense of emptiness has vanished! Way to go!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+attacks with a mind trick|`p22
+plays mind games with you|`p22
+claws your face|`p22
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+TRAIN3.REF|WIN
+;if lose: ref file|name or NONE
+TRAIN3.REF|DIE
+;if runs: ref file|name or NONE
+TRAIN3.REF|WAKEUP
+@closescript
+
+@#master2
+@show
+ A figure in a dark robe holding a scythe.
+
+`k
+@fight
+;name
+Minor Death
+;string said when you see him
+The Minor Death camly beckons you to the other side...
+;power move kill string
+`%Wow! You have defeated death! Don't let it go to your head...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+slashes with its scythe|`p22
+touches you with a deathly cold hand|`p22
+shows you it's evil visage, scaring you|`p22
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+TRAIN3.REF|WIN
+;if lose: ref file|name or NONE
+TRAIN3.REF|DIE
+;if runs: ref file|name or NONE
+TRAIN3.REF|WAKEUP
+@closescript
+
+@#master3
+@show
+ A shadow dragon rushes to attack you!
+
+`k
+@fight
+;name
+Shadow Dragon
+;string said when you see him
+You grab your weapon and prepare to make Dragon Burgers!
+;power move kill string
+`%You did it! Now if only you could find the Red Dragon...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+breaths `@fire`2|`p22
+breaths `7acid`2|`p22
+breaths `0chlorine gas`2|`p22
+breaths `%ice`2|`p22
+breaths `9lightning`2|`p22
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+TRAIN3.REF|WIN
+;if lose: ref file|name or NONE
+TRAIN3.REF|DIE
+;if runs: ref file|name or NONE
+TRAIN3.REF|WAKEUP
+@closescript
+
+
+
+
+@#startfight
+;<--added by CNW for time-->
+@do `p21 is `v05
+@do `p21 / 24
+@do `p11 - `p21
+
+;do math to create monster
+
+@do `p21 is `p03
+@do `p25 is `p09
+@do `p25 random `p25 1
+@do `p21 + `p25
+
+@do `p22 is S&wep_num
+@do `p22 + `p04
+
+@do `p23 is S&arm_num
+@do `p23 + `p05
+
+@do `p24 random `p22
+@do `p21 + `p24
+@do `p24 random `p22
+@do `p21 - `p24
+
+@do `p24 random `p22
+@do `p24 / 5
+@do `p22 - `p24
+
+
+;pick arena
+@do `p20 random 3 1
+@routine arena`p20
+;pick master
+@do `p20 random 3 1
+@routine master`p20
+@#closescript
diff --git a/xtrn/lord2/cnw/training.ref b/xtrn/lord2/cnw/training.ref
new file mode 100644
index 0000000000000000000000000000000000000000..a0bfe5b43a9cd76607ec27316a4f90ab65514b6d
--- /dev/null
+++ b/xtrn/lord2/cnw/training.ref
@@ -0,0 +1,296 @@
+; Script file TRAINING.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:13 2001
+
+@DECLARE win 000000495
+@DECLARE skipnpc 000001070
+@DECLARE die 000001616
+@DECLARE skipnpc 000002214
+@DECLARE wakeup 000002427
+@DECLARE arena1 000002694
+@DECLARE arena2 000002982
+@DECLARE arena3 000003227
+@DECLARE master1 000003474
+@DECLARE master2 000004257
+@DECLARE master3 000005065
+@DECLARE startfight 000005798
+@DECLARE closescript 000006349
+@NOCHECK
+; End of .REF index
+
+;training
+@#WIN
+;-- NPC dating stuff here --
+@if `p71 > 0 then do
+ @begin
+ @if bitcheck `t50 7 1 then goto skipnpc
+ @if bitcheck `t51 7 1 then goto skipnpc
+ @if bitcheck `t51 1 1 then goto skipnpc
+ @bitset `t50 6 1
+ @bitset `t51 1 1
+ @dataload npc/npc-`p71.idf &playernum `p30
+ @do `p28 random 3 1
+ @do `p30 + `p28
+ @datasave npc/npc-`p71.idf &playernum `p30
+ @do `p26 is `p71
+ @routine getname in npcname2.ref
+ @do quebar
+`$`s01: `%Wow, how impressive.
+ @end
+@label skipnpc
+
+@do `p21 is 5
+@do `p03 + `p21
+
+@do `p22 is 2
+@do `p04 + `p22
+
+@do `p23 is 1
+@do `p05 + `p23
+
+
+@do `p09 + 1
+
+@do addlog
+ `r4 `r0 `0`n`2 has beaten `0`e`2 and become level `p09! `r4 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@do `p02 is `p03
+@show
+`r0`c `r1 YOU HAVE FACED YOUR DARKEST FEAR AND TRIUMPHED! `r0
+
+ `2You wake up well rested.
+
+ `%YOU ARE NOW LEVEL `p09.
+
+ `2You gain `0`p21`2 hitpoints,`0 `p22`2 muscle and `0`p23`2 dodge.
+
+`k
+@run barak in `s01.ref
+
+@#DIE
+;-- NPC dating stuff here --
+@if `p71 > 0 then do
+ @begin
+ @if bitcheck `t50 7 1 then goto skipnpc
+ @if bitcheck `t51 7 1 then goto skipnpc
+ @if bitcheck `t51 1 1 then goto skipnpc
+ @bitset `t50 6 1
+ @bitset `t51 1 1
+ @dataload npc/npc-`p71.idf &playernum `p30
+ @do `p28 random 2 1
+ @do `p30 - `p28
+ @datasave npc/npc-`p71.idf &playernum `p30
+ @do `p26 is `p71
+ @routine getname in npcname2.ref
+ @do quebar
+`$`s01: `%Ohh, my, that wasn't good. You're terrible.
+ @end
+@label skipnpc
+@do `p02 is 1
+@do `t04 is 1
+@show
+`r0`c `r4 YOUR NIGHTMARE HAS BESTED YOU `r0
+
+ `2You wake up screaming to find four men holding you down.
+
+ You have failed.
+
+`k
+@run barak in `s01.ref
+
+@#WAKEUP
+@do `t04 is 1
+@show
+`r0`c `r4 YOU ESCAPE - THE ONLY WAY YOU KNOW HOW `r0
+
+ `2You suddenly sit up in bed. Wiping the beads of sweat from your brow,
+ you wonder how you could have thought you were ready for this...
+
+`k
+@run barak in `s01.ref
+
+@#arena1
+@show
+`c `r1 `4SKY WORLD `r0
+
+ `9Your body shoots up through the roof at an incredible speed - you gasp
+ as your head pokes through a wall of clouds.
+
+ You gently land on a soft bed of white. What a ride!
+
+@
+
+
+@#arena2
+@show
+`c `r1 `4BACKYARD `r0
+
+ `3You see your house... wait, those berries look familiar. You are in
+ your own backyard. You squint into the sun, you are not alone.
+
+@
+
+@#arena3
+@show
+`c `r1 `4SWAMP `r0
+
+ `2You open your eyes to find green spongy soil beneath your feet. Awful
+ smells waft up from the dark and mysterious waters nearby.
+
+@
+
+
+
+
+@#master1
+@show
+ A cackling laughter draws your attention - a blindingly white skeleton
+ is casually juggling bones nearby. He sees you and roars in fury!
+
+`k
+@fight
+;name
+Skeleton Warrior
+;string said when you see him
+The thing whips out its bone and lunges at you!
+;power move kill string
+Unfortunatly the thing had to split - be split, rather.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+cackles a death chant|`p22
+bites you|`p22
+painfully prods you|`p22
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+TRAINING.REF|WIN
+;if lose: ref file|name or NONE
+TRAINING.REF|DIE
+;if runs: ref file|name or NONE
+TRAINING.REF|WAKEUP
+@closescript
+
+@#master2
+@show
+ The is a looking glass nearby. To your suprise, your reflection begins to
+ leer at you. It then steps out of the mirror!
+
+`k
+@do `p29 is 1
+@if sexmale is 0 then `p29 is 2
+@fight
+;name
+Mirror Image
+;string said when you see him
+Your clone smiles at you..just before s&he attacks!
+;power move kill string
+Ouch.. killing yourself hurts somehow.
+;sex - 1 is male, 2 is female, 3 is it
+`p29
+;weapon and strength for the weapon, up to 5
+attacks with s&his s&weapon|`p22
+plays mind games with you|`p22
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+TRAINING.REF|WIN
+;if lose: ref file|name or NONE
+TRAINING.REF|DIE
+;if runs: ref file|name or NONE
+TRAINING.REF|WAKEUP
+@closescript
+
+@#master3
+@show
+ A swamp dago covered in slime is patiently watching you from a distance.
+
+`k
+@do `p29 is 1
+@if sexmale is 0 then `p29 is 2
+@fight
+;name
+Swamp Dago
+;string said when you see him
+You pull your weapon and attack the dago!
+;power move kill string
+You wipe the slime off your hand.. yuck.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+hugs you|`p22
+throws green slime on you|`p22
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+`p23
+;gold reward
+0
+;experience
+0
+;hit points
+`p21
+;if win: ref file|name or NONE
+TRAINING.REF|WIN
+;if lose: ref file|name or NONE
+TRAINING.REF|DIE
+;if runs: ref file|name or NONE
+TRAINING.REF|WAKEUP
+@closescript
+
+
+
+
+@#startfight
+;<--added by CNW for time-->
+@do `p21 is `v05
+@do `p21 / 24
+@do `p11 - `p21
+
+;do math to create monster
+
+@do `p21 is `p03
+@do `p25 is `p09
+;@do `p25 * `p25
+@do `p25 random `p25
+@do `p21 + `p25
+
+@do `p22 is S&wep_num
+@do `p22 + `p04
+
+@do `p23 is S&arm_num
+@do `p23 + `p05
+
+@do `p24 random `p22
+@do `p21 + `p24
+@do `p24 random `p22
+@do `p21 - `p24
+
+@do `p24 random `p22
+@do `p24 / 5
+@do `p22 - `p24
+
+;pick arena
+@do `p20 random 3 1
+@routine arena`p20
+;pick master
+@do `p20 random 3 1
+@routine master`p20
+@#closescript
diff --git a/xtrn/lord2/cnw/travel.ref b/xtrn/lord2/cnw/travel.ref
new file mode 100644
index 0000000000000000000000000000000000000000..76631999df6513d2230180bf1c9283dbc52e60d1
--- /dev/null
+++ b/xtrn/lord2/cnw/travel.ref
@@ -0,0 +1,524 @@
+; Script file TRAVEL.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:14 2001
+
+@DECLARE fight 000000961
+@DECLARE fiteme 000001699
+@DECLARE sossign 000001756
+@DECLARE chest4 000001835
+@DECLARE chest5 000002027
+@DECLARE chest6 000002302
+@DECLARE chest8 000002546
+@DECLARE monster1 000002781
+@DECLARE monster2 000003392
+@DECLARE monster3 000003994
+@DECLARE monster4 000004640
+@DECLARE monster5 000005271
+@DECLARE monster6 000005899
+@DECLARE monster7 000006518
+@DECLARE monster8 000007135
+@DECLARE monster9 000007809
+@DECLARE monster10 000008455
+@DECLARE monster11 000009075
+@DECLARE win 000009656
+@DECLARE done 000009686
+@NOCHECK
+; End of .REF index
+
+;some monsters for above Greentree and abouts, they are just a bit
+;tougher then the Stonebrook ones.
+
+;NOTE: This file has been modified by ShroomTrip Software. Please read the
+; Sysop.Doc that came with this file to determine what changes have been
+; made.
+
+@#fight
+@do saybar
+`7[ please wait ]
+@do `p20 random 12 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@busy
+@do `p21 random 4 1
+@if `p21 is 1 then do
+ @begin
+ @do `p25 is X
+ @do `p25 + 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme
+ @end
+@if `p21 is 2 then do
+ @begin
+ @do `p25 is X
+ @do `p25 - 1
+ @if `p25 = &lastx then do
+ @begin
+ @do `p25 + 2
+ @end
+ @do `p26 is Y
+ @do goto fiteme
+ @end
+@if `p21 is 3 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 - 1
+ @do goto fiteme
+ @end
+@if `p21 is 4 then do
+ @begin
+ @do `p25 is X
+ @do `p26 is Y
+ @do `p26 + 1
+ @do goto fiteme
+ @end
+
+@#fiteme
+@do `p20 random 11 1
+@do goto monster`p20
+
+@#sossign
+@do moveback
+@do saybar
+`0Sign: `2<--- Sosen Village, 10 miles.
+
+@#chest4
+;secret
+@do moveback
+@if bitcheck `t13 5 1 then do
+ @begin
+ @closescript
+ @end
+@bitset `t13 5 1
+@do saybar
+`%You find a Red Potion in the tree! How odd.
+@do `i52 + 1
+
+@#chest5
+;secret
+@do moveback
+@if bitcheck `t13 6 1 then do
+ @begin
+ @do saybar
+You soil your hands looking for more treasures, but find nothing..of value.
+ @closescript
+ @end
+@bitset `t13 6 1
+@do saybar
+`%You find a Red Potion in the toilet!
+@do `i52 + 1
+
+@#chest6
+;secret
+@do moveback
+@if bitcheck `t13 7 1 then do
+ @begin
+ @do `i57 + 1
+ @do saybar
+There is nothing on the table.
+ @closescript
+ @end
+@bitset `t13 7 1
+@do saybar
+`%You find a Moonstone on the table!
+@do `i57 + 1
+
+@#chest8
+;secret
+@do moveback
+@if bitcheck `t13 0 1 then do
+ @begin
+ @do saybar
+The waterfall is beautiful!
+ @closescript
+ @end
+@bitset `t13 0 1
+@do saybar
+`%You find a Moonstone in the waterfall!
+@do `i57 + 1
+
+
+
+@#monster1
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Highway Rogue
+;string said when you see him
+`0"Put down your arms!" `2you hear from behind.
+;power move kill string
+`2You carefully rifle through the Rogue's purse.. hehe!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+punches you|6
+backstabs you|9
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+3
+;gold reward
+26
+;experience
+23
+;hit points
+20
+;if win: ref file|name or NONE
+TRAVEL.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster2
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Striped Tiger
+;string said when you see him
+You hear a deep throated growl in the bushes ahead.
+;power move kill string
+To the victor go the spoils!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+rips into your arm|13
+bats you with a paw|9
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+4
+;gold reward
+47
+;experience
+36
+;hit points
+27
+;if win: ref file|name or NONE
+TRAVEL.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster3
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Angry Dwarf
+;string said when you see him
+You see an irritable looking dwarf approaching.
+;power move kill string
+`$"Next time you'll pick on somebody your own size, peck," `2you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+headbutts you|6
+swings his axe at you|10
+shouts obcenities|7
+NONE|NONE
+NONE|NONE
+;defense
+2
+;gold reward
+17
+;experience
+14
+;hit points
+12
+;if win: ref file|name or NONE
+TRAVEL.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster4
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Rock Monster
+;string said when you see him
+A large stone sprouts legs and lunges at you!
+;power move kill string
+With a mighty swing of your s&weapon you split it in two.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+jumps on your foot|8
+throws itself at your head|12
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+8
+;gold reward
+63
+;experience
+67
+;hit points
+38
+;if win: ref file|name or NONE
+TRAVEL.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster5
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Rude Boy
+;string said when you see him
+`0"Hey! Don't I know you, punk?!" `2a voice yells.
+;power move kill string
+`$"You kids will never learn your lesson," `2you sigh.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+socks you in the jaw|10
+kicks you in the nads|15
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+5
+;gold reward
+44
+;experience
+35
+;hit points
+25
+;if win: ref file|name or NONE
+TRAVEL.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster6
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Mary
+;string said when you see him
+An extremely muscular woman looks down at you fiercly.
+;power move kill string
+That wasn't even close! Too easy you think to yourself.
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+pulls your hair|14
+slaps you|9
+calls you a bitch|7
+pouts|10
+NONE|NONE
+;defense
+0
+;gold reward
+22
+;experience
+19
+;hit points
+15
+;if win: ref file|name or NONE
+TRAVEL.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster7
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Lost Monkey
+;string said when you see him
+`0"Oo oo oo," `2you hear from behind.
+;power move kill string
+`2Bad monkey, boy did you spank him!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+twists your arm|8
+sweeps your feet|11
+bites at your finger|7
+whips you with his tail|8
+NONE|NONE
+;defense
+5
+;gold reward
+23
+;experience
+15
+;hit points
+20
+;if win: ref file|name or NONE
+TRAVEL.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster8
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Lost Knight
+;string said when you see him
+`0"Halt you must be an enemy of this land," `2says a confused voice.
+;power move kill string
+`$"And you think I'm lost?" `2you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+smacks your face with his gauntlet|14
+hits with his longsword|9
+brawls with you|6
+stabs with a shortsword|7
+NONE|NONE
+;defense
+10
+;gold reward
+52
+;experience
+42
+;hit points
+34
+;if win: ref file|name or NONE
+TRAVEL.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster9
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Wild Dog
+;string said when you see him
+You hear a sharp growl from the bushes ahead.
+;power move kill string
+Stay boy, stay. Good Dog..why is there gold in his ass?!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+takes a bite out of your arm|10
+shows you his sharp paw|7
+barks up your tree|8
+NONE|NONE
+NONE|NONE
+;defense
+3
+;gold reward
+10
+;experience
+14
+;hit points
+15
+;if win: ref file|name or NONE
+TRAVEL.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster10
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Caribou
+;string said when you see him
+You see what you think is a huge deer!!
+;power move kill string
+`$"Now we have food for tonight," `2you laugh.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+headbutts you|12
+kicks with his hind legs|10
+smashes you into a tree|7
+NONE|NONE
+NONE|NONE
+;defense
+4
+;gold reward
+16
+;experience
+18
+;hit points
+18
+;if win: ref file|name or NONE
+TRAVEL.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#monster11
+@do move `p25 `p26
+@do write
+`9`r0
+@fight
+;name
+Thug
+;string said when you see him
+You see an masked person with a club.
+;power move kill string
+`$"Go away," `2you scream in fear.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+shows you a club|7
+sucker punches you|5
+kicks you down|6
+NONE|NONE
+NONE|NONE
+;defense
+3
+;gold reward
+8
+;experience
+6
+;hit points
+10
+;if win: ref file|name or NONE
+TRAVEL.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+GRAVEY.REF|WIN
+
+@#WIN
+;@drawmap
+@update
+
+@#done
diff --git a/xtrn/lord2/cnw/treasure.ref b/xtrn/lord2/cnw/treasure.ref
new file mode 100644
index 0000000000000000000000000000000000000000..9ea085a5ae4c25a76e01d905687a01a982c07195
--- /dev/null
+++ b/xtrn/lord2/cnw/treasure.ref
@@ -0,0 +1,27 @@
+; Script file TREASURE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:17 2001
+
+@DECLARE chest 000000172
+@NOCHECK
+; End of .REF index
+
+;Jack's back room
+@#chest
+;secret
+@do moveback
+@dataload jrest.idf &playernum `p97
+@if `p97 is 1 then do
+ @begin
+ @do saybar
+There is nothing in the vault.
+ @closescript
+ @end
+
+@if `p97 is 0 then do
+@do `p21 random 250 0
+@do saybar
+`%You find `p21 gold!!!!!
+@do money + `p21
+@datasave jrest.idf &playernum 1
+@closescript
+@end
+
diff --git a/xtrn/lord2/cnw/tst.ref b/xtrn/lord2/cnw/tst.ref
new file mode 100644
index 0000000000000000000000000000000000000000..d71525c82b4aa9b622ad62c87c40476d39bcac50
--- /dev/null
+++ b/xtrn/lord2/cnw/tst.ref
@@ -0,0 +1,655 @@
+; Script file TST.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:43 2001
+
+@DECLARE sign 000000628
+@DECLARE healer 000000710
+@DECLARE abdul 000002570
+@DECLARE abstart 000002624
+@DECLARE arthur 000002963
+@DECLARE arstart 000003017
+@DECLARE bank 000003362
+@DECLARE bankstart 000003418
+@DECLARE bankagain 000004535
+@DECLARE deposit 000005961
+@DECLARE withdraw 000006471
+@DECLARE wizard 000007290
+@DECLARE correct 000010067
+@DECLARE wrong 000010337
+@DECLARE turgon 000010558
+@DECLARE dragon 000011201
+@DECLARE spirit 000011243
+@NOCHECK
+; End of .REF index
+
+;The Time Stands Still main REf file.
+
+@#sign
+@do saybar
+`2Greentree - `0Center `2of the `0World`2
+@do moveback
+
+@#healer
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%The Healer
+
+`2 You see a sign on the wall that says healing cost 1/2 gold per hitpoint
+ needed.
+
+`2 A gorgeous young lady looks over your 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, 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, whore!
+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 her dress
+@show
+
+
+@if response is 4 then do
+ @begin
+ @show
+ `0"That's a good lad, now get along with you!" `2 she laughs.
+
+`k
+ @end
+@if response is 1 then do
+ @begin
+ @show
+ `0"How dare you say that to me! Get out!!!!" `2 she screams.
+
+`k
+ @end
+@if response is 2 then do
+ @begin
+ @show
+ `0"I'd rather kiss a troll." `2 she informs you.
+
+`k
+ @end
+@if response is 3 then do
+ @begin
+ @do `p02 = 1
+ @show
+ `0"How 'bout I show you my fists?" `2 she yells as she sticks a needle in you!
+
+ `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`$!" `2Kaila exclaims.
+
+`k
+@drawmap
+@update
+
+@#abdul
+@offmap
+@do moveback
+@do `v01 is 1
+@label abstart
+@show
+`r0`c `%Abdul's Armour
+
+`2 Armour lies about and the smell of fresh wood fills your nostrils.
+
+@do write
+`x`x
+@choice
+Examine her wares
+Go outside.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 10
+ 12
+ 13
+ 14
+ @end
+
+@if responce not 2 then goto abstart
+@drawmap
+@update
+
+@#arthur
+@offmap
+@do moveback
+@do `v01 is 1
+@label arstart
+@show
+`r0`c `%King Arthur's Weapons
+
+`2 Powerful weapons lay about on brand new shelves within easy reach.
+
+@do write
+`x`x
+@choice
+Examine his weaponry
+Go outside.
+@show
+`\
+@if responce is 1 then do begin
+ @begin
+@buymanager
+ 4
+ 9
+ 15
+ 16
+ @end
+
+@if responce not 2 then goto arstart
+@drawmap
+@update
+
+@#bank
+@do `v01 is 1
+@offmap
+@do moveback
+@label bankstart
+@show
+`r0`c `r1 `%Ye ol' Bank `r0
+
+`2 An elderly gentleman looks at you interested.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdraw.
+=&bank 0 Apply for an account here.
+Leave
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last question?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, this isn't happening and you aren't here.
+ @do goto withdraw
+ @end
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+ @end
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You kind of don't have that much in your account. Nice bookkeeping!
+ @do goto withdraw
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Ok, nevermind then.
+Yeah. Get my damn money.
+@if response is 1 then goto bank
+ @end
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+@drawmap
+@update
+
+@#wizard
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%Wizard and his Cabin
+
+`0 "Hey young one, up here!" `2the cranky old wizard yells. `0"I'll teach you
+ if you guess what number I'm thinking of!"
+
+@do write
+`x`x
+@choice
+Play his game.
+What's the rules
+Leave
+@show
+`\
+@if response is 3 then do begin
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 2 then do
+ @begin
+ @show
+ `0"Simply I choose a number between 1 and 100. You have 5 guesses to get
+ it right. I will tell you higher or lower than the number you guessed.
+ Guess correctly and I teach you how to last longer in battles."
+ `k
+ @run wizard in tst.ref
+ @end
+@if response is 1 then do
+ @begin
+ @datanewday tst.idf
+ @dataload tst.idf &playernum `p20
+ @if `p20 not 0 then do
+ @begin
+ @show
+ `0"Sorry, but only once a day please."
+ `k
+ @run wizard in tst.ref
+ @end
+ @do `p20 random 100 1
+ @show
+`r0`c
+ `%THE NUMBERS GAME
+ @do move 1 5
+ @do write
+ `7Enter choice:
+ @do move 18 5
+ @do readnum 2
+ @do `p21 is `v40
+ @if `p21 is `p20 then do
+ @begin
+ @run correct in tst.ref
+ @end
+ @if `p21 not `p20 then do
+ @begin
+ @if `p21 > `p20 then do
+ @begin
+ @show
+ `0Lower!
+ @end
+ @if `p21 < `p20 then do
+ @begin
+ @show
+ `0Higher!
+ @end
+ @end
+ @do move 1 7
+ @do write
+ `7Enter choice:
+ @do move 18 7
+ @do readnum 2
+ @do `p21 is `v40
+ @if `p21 is `p20 then do
+ @begin
+ @run correct in tst.ref
+ @end
+ @if `p21 not `p20 then do
+ @begin
+ @if `p21 > `p20 then do
+ @begin
+ @show
+ `0Lower!
+ @end
+ @if `p21 < `p20 then do
+ @begin
+ @show
+ `0Higher!
+ @end
+ @end
+ @do move 1 9
+ @do write
+ `7Enter choice:
+ @do move 18 9
+ @do readnum 2
+ @do `p21 is `v40
+ @if `p21 is `p20 then do
+ @begin
+ @run correct in tst.ref
+ @end
+ @if `p21 not `p20 then do
+ @begin
+ @if `p21 > `p20 then do
+ @begin
+ @show
+ `0Lower!
+ @end
+ @if `p21 < `p20 then do
+ @begin
+ @show
+ `0Higher!
+ @end
+ @end
+ @do move 1 11
+ @do write
+ `7Enter choice:
+ @do move 18 11
+ @do readnum 2
+ @do `p21 is `v40
+ @if `p21 is `p20 then do
+ @begin
+ @run correct in tst.ref
+ @end
+ @if `p21 not `p20 then do
+ @begin
+ @if `p21 > `p20 then do
+ @begin
+ @show
+ `0Lower!
+ @end
+ @if `p21 < `p20 then do
+ @begin
+ @show
+ `0Higher!
+ @end
+ @end
+ @do move 1 13
+ @do write
+ `7Enter choice:
+ @do move 18 13
+ @do readnum 2
+ @do `p21 is `v40
+ @if `p21 is `p20 then do
+ @begin
+ @run correct in tst.ref
+ @end
+ @if `p21 not `p20 then do
+ @begin
+ @run wrong in tst.ref
+ @end
+ @end
+
+@#correct
+@show
+`r0`c `%WINNER
+
+ `0"You're right... you won. The number is `p21!"
+
+ `bGAIN 1 MUSCLE AND 1 DODGE`2
+
+
+ `k
+@do `p04 + 1
+@do `p05 + 1
+@datasave tst.idf &playernum `p21
+@drawmap
+@update
+@closescript
+
+@#wrong
+@show
+`r0`c `%LOSER
+
+ `0"You're right... okay... I lied! You suck! Try again tomorrow!"
+
+
+ `k
+@datasave tst.idf &playernum `p21
+@drawmap
+@update
+@closescript
+
+@#turgon
+@busy
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%The Supreme Warrior
+
+ `2This young lad named Turgon looks at you as he prepares his new
+ `4Training Center `2for others. He looks at you with a puzzled
+ expression.
+
+@do write
+`x`x
+@choice
+Can you raise my level?
+Leave
+@show
+`\
+@if response is 1 then do begin
+ @begin
+ @show
+ `0"I'm sorry, but my training center is only starting to be built. I
+ haven't even hired level masters yet, though a youngster named Barak
+ seems eager for the work."
+ `k
+ @end
+@if response not 2 then goto turgon
+@drawmap
+@update
+@closescript
+
+@#dragon
+@run dragon in tstdrgon.ref
+
+@#spirit
+@offmap
+@do moveback
+@do `v01 is 1
+@show
+`r0`c `%The Ghost of Time
+
+ `2The spirit looks at you and shows you two ways to Greentree, one looks
+ like it is the past Greentree, the other is the present.
+
+@do write
+`x`x
+@choice
+Go to the Past
+Go to the Present
+@if response is 1 then do begin
+ @begin
+ @do map is 1525
+ @do x is 40
+ @do y is 15
+ @loadmap 1525
+ @drawmap
+ @update
+ @closescript
+ @end
+@if response is 2 then do
+ @begin
+ @do map is 1593
+ @do x is 36
+ @do y is 6
+ @loadmap 1593
+ @drawmap
+ @update
+ @closescript
+ @end
diff --git a/xtrn/lord2/cnw/tstdrgon.ref b/xtrn/lord2/cnw/tstdrgon.ref
new file mode 100644
index 0000000000000000000000000000000000000000..b74238fe1978a01e20679cac62b5df0427282f23
--- /dev/null
+++ b/xtrn/lord2/cnw/tstdrgon.ref
@@ -0,0 +1,318 @@
+; Script file TSTDRGON.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:41 2001
+
+@DECLARE dragon 000000353
+@DECLARE clean 000001529
+@DECLARE thewords 000002156
+@DECLARE dragon_choices 000002445
+@DECLARE win 000006233
+@DECLARE example 000006297
+@NOCHECK
+; End of .REF index
+
+;The file that will pull up the dragon information.
+
+@#dragon
+@do moveback
+@dataload tstdrgon.idf &playernum `p20
+@if `p20 is 1 then do
+ @begin
+ @do saybar
+`7The `4Red Dragon `7is `4Dead`7!
+ @closescript
+ @end
+@offmap
+@pauseoff
+@show
+`r0`c
+[?7h[40m[2J[0;1;30m������������������������������������
+[2;1H�[20C[0;33m��[12C[1;30m�[3;1H�[8C[0;33m� �[8C[s
+[u[31m�[41m [1m0[0;31m���[8C[1;30m�[4;1H�[7C[s
+[u[31;43m�����[0;33m� [31m�[41m [40m���[8C[s
+[u[1;30m�[5;1H�[9C[31m�[43m���[0;33m� [31m�[41m [40m[s
+[u[41m [40m� ��[9C[1;30m�[6;1H�[41m [0;31m�[5C���[s
+[u[41m [12C[1;33;40m���[30m�[7;1H�[41m [40m[s
+[u[0;31m� �[41m [1;33m�[40m�[11C�����[30m�
+[8;1H� [0;31m�[41m [1;33m�[0;31m�[10C[1;33m[s
+[u�������[30m�[9;1H� [0;31m�[41m [1;33m�[40m[s
+[u[40m� [0;31m�[41m [40m�[6C[1;33m���������[30m�
+[10;1H����������[0;31;43mThe Red Dragon[1;30;40m�����������[s
+[u�[11;1H�[34C�[12;1H�[34C�[13;1H�[34C�[14;1H�[34C�
+[15;1H�[34C�[16;1H�[34C�[17;1H�[34C�[18;1H�[34C�
+[19;1H�[34C�[20;1H������������������������������������[0m
+@pauseon
+@run thewords
+
+@#clean
+ @do move 3 11
+ @do write
+`4 `4
+ @do move 3 12
+ @do write
+`4 `4
+ @do move 3 13
+ @do write
+`4 `4
+ @do move 3 14
+ @do write
+`4 `4
+ @do move 3 15
+ @do write
+`4 `4
+ @do move 3 16
+ @do write
+`4 `4
+ @do move 3 17
+ @do write
+`4 `4
+ @do move 3 18
+ @do write
+`4 `4
+ @do move 3 19
+ @do write
+`4 `4
+
+@#thewords
+@do move 3 11
+@do write
+`4A large beast stands before you.
+@do move 3 12
+@do write
+`4Its red scale hide is enough to
+@do move 3 13
+@do write
+`4drive fear into your heart and
+@do move 3 14
+@do write
+`4you know it is the `@Red Dragon`4.
+@run dragon_choices
+
+@#dragon_choices
+@do `p20 is 0
+@do `p21 is 0
+@do `p22 is 0
+@do `p23 is 0
+@do `p24 is 0
+@do `p25 is 0
+@do `p26 is 0
+@if tien.ref exists true then do
+ @begin
+ @do `p20 is 1
+ @end
+@if lawyer.ref exists true then do
+ @begin
+ @do `p21 is 1
+ @end
+@if owtc.ref exists true then do
+ @begin
+ @do `p22 is 1
+ @end
+@do move 40 2
+@choice
+>`p07 -1 `%Hello Dragon!
+<`p07 1 `4Stare at the dragon...
+=`p20 1 `%What about `@Tien Lung's House`%?
+=`p21 1 `%What about `!Lawyer's World`%?
+=`p22 1 `%What about `@T`4he `@O`4racle `@O`4f `@W`4hat's `@T`4o `@C`4ome`%?
+`%Fight the Dragon
+`%Leave
+@if responce is 1 then do ;Hello Dragon
+ @begin
+ @routine clean
+ @do move 3 11
+ @do write
+`4Do not Speak to me in as a
+ @do move 3 12
+ @do write
+`4friend. You are nothing to me
+ @do move 3 13
+ @do write
+`4and nothing should make no
+ @do move 3 14
+ @do write
+`4sounds. Now vanish from my
+ @do move 3 15
+ @do write
+`4cave or attack me foolish s&boy
+ @do move 3 16
+ @do write
+`4but do not annoy me any further
+ @do move 3 17
+ @do write
+`4or else!
+ @do move 3 18
+ @key
+ @end
+@if responce is 2 then do ;Stare at the dragon...
+ @begin
+ @routine clean
+ @do move 3 11
+ @do write
+`4Look at me not like that. Even
+ @do move 3 12
+ @do write
+`4one with such a dark heart does
+ @do move 3 13
+ @do write
+`4nothing to place you in my good
+ @do move 3 14
+ @do write
+`4graces. Be like the other
+ @do move 3 15
+ @do write
+`4vermin and run while you can!
+ @do move 3 16
+ @key
+ @end
+@if responce is 3 then do ;Tien Lung's House
+ @begin
+ @routine clean
+ @do move 3 11
+ @do write
+`4The place is only special once
+ @do move 3 12
+ @do write
+`4it has gotten to its peek
+ @do move 3 13
+ @do write
+`4growth. That way you get that
+ @do move 3 14
+ @do write
+`%Moonstone `4from there. Otherwise
+ @do move 3 15
+ @do write
+`4the place sucks. And you have
+ @do move 3 16
+ @do write
+`4to be the saviour to get it!
+ @do move 3 17
+ @key
+ @end
+@if responce is 4 then do ;Lawyer's World
+ @begin
+ @routine clean
+ @do move 3 11
+ @do write
+`4You actually think there can be
+ @do move 3 12
+ @do write
+`4any good when there are lawyers
+ @do move 3 13
+ @do write
+`4around? There is... but only
+ @do move 3 14
+ @do write
+`4one the hidden court of the
+ @do move 3 15
+ @do write
+`4damned is found and you need
+ @do move 3 16
+ @do write
+`4version 2.00 for that.
+ @do move 3 17
+ @key
+ @end
+@if responce is 5 then do ;The Oracle of What's To Come
+ @begin
+ @routine clean
+ @do move 3 11
+ @do write
+`4The `$Oracle `4is true, his
+ @do move 3 12
+ @do write
+`4visions are correct. He can
+ @do move 3 13
+ @do write
+`4show you where the `@Dragon
+ @do move 3 14
+ @do write
+`4truly is! He holds a
+ @do move 3 15
+ @do write
+`7Moonstone `4as well.
+ @do move 3 16
+ @key
+ @end
+@if response is 6 then do ;Fight
+ @begin
+ @routine clean
+ @do move 3 11
+ @do write
+`4Let us do battle!
+ @do move 3 12
+ @key
+ @do statbar
+@fight
+;name
+`4Red Dragon
+;string said when you see him
+`2The monster of the past belches flames.
+;power move kill string
+Magic is how long it took me to kick your ass!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+spits fire|240
+rakes violently|180
+lashes with its tail|139
+stomps|135
+bites|151
+;defense
+127
+;gold reward
+10000
+;experience
+456
+;hit points
+800
+;if win: ref file|name or NONE
+tstdrgon.ref|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+tstdrgon.ref|DRAGON
+ @end
+@if response is 7 then do ;Leave
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@routine clean
+@run thewords
+
+@#WIN
+@datasave tstdrgon.idf &playernum 1
+@run dragon
+
+@#example
+@if responce is 1 then do ;Hello Dragon
+ @begin
+ @routine clean
+ @do move 3 11
+ @do write
+`4
+ @do move 3 12
+ @do write
+`4
+ @do move 3 13
+ @do write
+`4
+ @do move 3 14
+ @do write
+`4
+ @do move 3 15
+ @do write
+`4
+ @do move 3 16
+ @do write
+`4
+ @do move 3 17
+ @do write
+`4
+ @do move 3 18
+ @do write
+`4
+ @do move 3 19
+ @key
+ @end
+
diff --git a/xtrn/lord2/cnw/tstinn.ref b/xtrn/lord2/cnw/tstinn.ref
new file mode 100644
index 0000000000000000000000000000000000000000..459718c2e7bbc1ba1bce8529b9be7069e3c7eb06
--- /dev/null
+++ b/xtrn/lord2/cnw/tstinn.ref
@@ -0,0 +1,131 @@
+; Script file TSTINN.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:43 2001
+
+@DECLARE chat 000000219
+@DECLARE bartender 000001250
+@NOCHECK
+; End of .REF index
+
+;File that deals with this IGMs Inn
+
+@#chat
+@do moveback
+@busy
+@show
+`r0`c `r1 CHATTING WITH PATRONS `r0
+
+@if bar.txt exist false then do
+ @begin
+ @writefile bar.txt
+ `%Bartender `2: `0Hey down there, finish yer drinks and get out!
+ `%Old Man `2: `0I'll finish *hick* when I want to...
+ `%Silent Shadow `2: `0I'll be the first to defeat that dragon.
+ @end
+
+@if bar.txt exist true then do
+ @begin
+ @displayfile bar.txt
+ @end
+
+@show
+
+@
+(Do tricky stuff with name to determine how much they can type)
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Enter a special message or `0ENTER`2 to abort.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile bar.txt
+ `%`n`2 : `0`s03
+ @do trim bar.txt 17
+ @drawmap
+ @update
+
+@#bartender
+@do moveback
+@if `p09 < 2 then do
+ @begin
+ @do saybar
+`0Bartender: `2Get outta my face kid, I've never heard of you!
+ @closescript
+ @end
+@do `v01 is 1
+@show
+`r0`c `r1 Talking to the bartender `r0
+
+ `0"What do ya want, punk?"
+
+@do write
+`x`x
+@choice
+Conduct business with the bartender
+Trade in gems
+Leave
+@if responce is 1 then do
+ @begin
+ @do `p20 is 1
+ @run getquest in quest.ref
+ @end
+@if response is 2 then do
+@begin
+;3 gems for `i54 Silver potion, 3 gems for `i53 Gold, `i52 red.
+ @if `p19 < 3 then do
+ @begin
+ @show
+`\`\ `0"Hey, you need at least three gems to get a potion!"
+`\`k
+ @do goto bartender
+ @end
+ @do `v01 is 1
+ @show
+`\`\ `0"Okay, what kind a potion you want?"`2
+
+ @do write
+ `x`x
+ @choice
+Silver Potion
+Gold Potion
+Red Potion
+ @if response is 1 then do
+ @begin
+ @do `p19 - 3
+ @do `i54 + 1
+ @show
+`\`\ `0"Allright, there you go"`2
+`\`k
+ @end
+ @if response is 2 then do
+ @begin
+ @do `p19 - 3
+ @do `i53 + 1
+ @show
+`\`\ `0"Allright, there you go"`2
+`\`k
+ @end
+ @if response is 3 then do
+ @begin
+ @do `p19 - 3
+ @do `i52 + 1
+ @show
+`\`\ `0"Allright, there you go"`2
+`\`k
+ @end
+ @end
+@drawmap
+@update
diff --git a/xtrn/lord2/cnw/turgon.ref b/xtrn/lord2/cnw/turgon.ref
new file mode 100644
index 0000000000000000000000000000000000000000..7f8ea3e1f0ec82da3aa6f3faae3c6c263556bfa0
--- /dev/null
+++ b/xtrn/lord2/cnw/turgon.ref
@@ -0,0 +1,333 @@
+@#turgbarak
+@show
+
+ `0"That rascal! How dare the council let Barak take my position!"
+
+ `$"Yeah, well, they did. Any ideas? I've pretty much done all the
+ detective work I can..."
+
+ `2Turgon looks discouraged. `0"I know Barak is at fault - if only you can
+ prove it!"
+
+`k
+@bitset `t01 1 1
+@bitset `t01 2 1
+@bitset `t01 3 1
+@bitset `t01 4 1
+
+@#turgmeet
+@do `v01 is 1
+@pauseoff
+@show
+`r0`c[4C[0m��� ��[1m� �� [0m�[1m���[0m��[1m��[0m����� [33m�[1;37m�
+ [0m����� [1m� [0m��[5C[33m�����[37m������[33m� [1;37m�
+ [0m���� �[1m��[8C[0;33m���[5C�� [37m�[33m�� [37m�
+ ��� [1m��[21C[0;33m���
+ [37m��[1m�[9C[0;33m��[9C[1;37m�[0;36m� [33m���[9C[1;37mTurgon
+[A[49Cis a bearded old man [0m- [1myou
+ [0m� �� [33m���� ��� �� [36m�[1m� [0;33m�� ��[8C[1;37msee mu
+[A[48Cch wisdom in his eyes [0m- [1mbut
+ [0m���[1m�� [0;33m� ����������������� �����[6C[1;37malso there is
+[A[56Csadness.
+ [0m�� �� [33m������������������������
+ [37m������� [1m�[5C[0;33m� ��� ����� ���������
+[37m����� [1m��[7C[0;33m�������� ���� �����[46m�[1;36;43m�[40m
+[0m�[1m� �[0m�� ��[8C[33m�������� [1;37m�[0m� �[1;36m�[0;33m�
+ [37m�� [1m�[0m�� [1m�[7C[0;33m� �� [1;37m� �[0m��[1m�[0m�[1m�
+[A[32C�
+ �[0m� �� ��[1m�� [0;33m���[37m����[1m� [0;33m������
+ [37m��[1m� � [0m�[1m��[0m��[1m� [0;33m� [37m�� �[8C[33m�
+[37m�[1m�� [0m�[1m��[0m��[1m��[0m��[1m� [0;33m���[37m�� � [33m
+[A[26C�������
+[1;30m� [37m� � [0m��[1m��[0m��[1m��� [0;33m��[37m� [1m�[0m�����
+[A[28C�[1m����[0m�
+��[1m� [0m� [1m�[0m�����[1m��[0m� [33m��[37m��[1m�[0m�����[1m�
+[A[30C[0m��[1m��
+[0m
+`k`c `r1 MEETING THE ANCIENT ONE. `r0
+
+ `0"My name is Turgon. I was once a great warrior, lad."
+
+ `2You can't help but giggle - he looks so old and frail!
+
+ `0"Stop that giggling, I say!" `2the elderly one shouts.
+
+@pauseoff
+@do write
+`x`x
+@choice
+If you were such a great warrior, why do you live in this dump?
+Obnoxiously giggle even louder.
+@if response is 1 then do
+ @begin
+ @show
+`\`\ `0"I was banished from Greentree, where I used to train.
+
+ `$"What the hell is Greentree?" `2you politely ask.
+
+ `0"A city - a great city northwest of here." `2he sighs.
+
+`k `0"Besides, it's my father's house, not a dump. There may be something of value
+ here.. You look like a smart s&boy, if you can find it, you can have it."
+
+ `k
+ @bitset `t01 0 1
+ @end
+
+@if response is 2 then do
+ @begin
+ @show
+`\`\ `0"You annoying little brat! Begone from me!" `2Turgon shouts.
+
+ `$"Not until you tell me why you live out here in the sticks!"
+
+ `0"I was banished from my home town, Greentree, are you happy?! Get out!"
+
+ `k
+ @end
+
+@#TURGON
+;@do `t01 is 0 (I used this to test this .ref file) <--seth wrote that
+; made some changes here to put the turgeon/barak quests using `t01 <--cnw
+@do moveback
+@if `t01 is 256 then do
+ @begin
+ @do saybar
+`0Goat Boy:`2 Get out of here! I live here now!
+ @closescript
+ @end
+@busy
+@if `t01 more 0 then do
+ @begin
+ @show
+`r0`c `2Turgon looks at you expectantly.
+
+ @end
+
+@if bitcheck `t01 2 1 then do
+ @begin
+ @show
+ `0"Did you find a way to clear my name?"
+
+ @end
+
+@if `t01 = 0 then do
+ @begin
+ @show
+`r0`c `2An old man with a white beard stands before you.
+
+ @end
+@do `v01 is 1
+@do write
+`x`x
+@choice
+-`t01 0 -`t01 1 -`t01 2 What is your name, old man with a white beard?
+-`t01 3 +`t01 0 Tell me about Greentree, I wanna go there, sounds cool.
++`t01 1 -`t01 2 Come on you old codger! Why were you kicked out of Greentree?
++`t01 1 +`t01 2 >`i08 0 -`t01 3 Offer Turgon your berry pie.
+-`t01 4 +`t01 3 Tell me about Greentree, I wanna go there, sounds cool.
+-`t01 6 +`t01 4 No, not really - you better get used to living here.
++`t01 6 I have news - Barak stole your old position!
++`t01 6 +`t01 5 -`t01 0 =`i74 1 I found something! Barak's Diary!
+Leave.
+@do write
+`\`\
+@if responce is 8 then do
+ @begin
+ @pauseoff
+@do addlog
+ `r1 `r0 `0`n`% has cleared Turgon's name! `r1 `r0
+@writefile lognow.txt
+ `2-`0=`2-`%=`2-`0=`2-
+@do `p18 + 30
+@do `t01 is 255
+@do `i74 = 0
+@do x is 23
+@do y is 16
+@do map is 68
+@loadmap &map
+ @show
+`k`c `r1 Talking To Turgon `r0
+
+ `2Turgon reads the diary quietly. He looks sad.
+
+ `0"I knew Barak to be juvenile - but I never dreamed he felt this way. We
+ must go to the city council and show them."
+
+`k `2You agree to go with Turgon. A short while later you pass through
+ the Greentree gates. Turgon dabs his eyes quickly.
+
+`k `2People eye him as you pass - the guards do not stop him - many
+ probably trained under him. A crowd begins to form behind you.
+
+`k The walk ends in front of the city council. Turgon goes in and comes
+ out a few minutes later with the town elders.
+
+`k`c `r1`% Clearing His Name `r0
+
+ `0"Turgon is innocent! Turgon is innocent!" `2a young child screams
+ excitedly. Other voices join his cry - by the time the group reaches
+ the training center there are hundreds.
+
+`k Turgon stands erect - for the first time since you met him you now
+ understand what being a `0level 12`2 master is all about. He demands that
+ Barak see him.
+
+`k `2You see Barak's face look out a window. When his eyes fall upon the
+ small book you are clutching he screams. `0"`n`0! Why have you
+ done this to me?! You have ruined me!"
+
+ `$"You ruined yourself. Don't forget this." `2you reply stonily.
+
+`k `%YOU RECIEVE 30 QUEST POINTS.
+
+ `2You give the diary back to the sobbing Barak.
+
+`k
+ @drawmap
+ @update
+ @end
+
+@if responce is 1 then do
+ @begin
+ @routine turgmeet
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@if responce is 7 then do begin
+ @begin
+ @routine turgbarak
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+@if responce is 2 then do begin
+ @begin
+@show
+ `0"It is a beautiful land. Ahh, memories. Sweet Abdul, obese Arthur and
+ childish Barak. I knew these people you see." `2Turgon smiles.
+
+ `$"They sound like freaks. Why did they kick you out?" `2you demand.
+
+ `0"I would rather not speak of this subject anymore," `2Turgon's voice cracks
+ with emotion.
+
+`k
+ @bitset `t01 0 1
+ @bitset `t01 1 1
+ @bitset `t01 2 1
+ @do goto turgon
+ @end
+
+@if responce is 3 then do begin
+ @begin
+
+@show
+ `0"No, child. I will not speak of it!" `2Turgon shouts.
+
+ `2He seems pretty determined. If only you had some kind
+ of peace offering...
+
+`k
+ @do goto turgon
+ @end
+
+@if responce is 4 then do begin
+ @begin
+
+@show
+ `0"A pie? For me?! Such a good s&boy!" `2Turgon exclaims.
+
+ `$"Yeah... Yeah I am." `2you agree wholeheartedly.
+
+`k `%You get a quest point!
+
+`k
+ @bitset `t01 3 1
+ @do `p18 + 1
+ @do `i08 - 1
+ @do goto turgon
+ @end
+
+@if responce is 6 then do begin
+ @begin
+
+@show
+ `0"Don't worry, s&boy, I'll find a way somehow..." `2Turgon promises.
+
+`k
+ @do goto turgon
+ @end
+
+@if responce is 5 then do begin
+ @begin
+
+@show
+ `0"Alright, I'll tell you what happened."
+
+ `2You sit down in front of the old man and cross your legs. Story time!
+
+`k`c `r1 TURGON'S STORY HOUR `r0
+
+`0 "I was once a level 12 master. People would come from distant lands just
+ to train with me," `2the elderly one whispers with a far away look in his eyes.
+
+ `$"Yeah, I'm happy for you and everything, but what did you do that got you
+ banished? Are you that guy in the story I heard where he was exiled for
+ having relations with a goat?" `2you ask curiously.
+
+`k Turgon is indignant. `0"That is a crazy old legend to scare people.
+ There was never such a person."
+
+ `2You snicker - is he telling the truth?
+
+`k `0"The truth is this - it was soon after the great Red Dragon had been
+ slain when.."
+
+ `$"Red dragon?" `2you rudely interrupt in astonishment.
+
+ `0"Nevermind.. suffice to say we were very happy and celebrating with a great
+ feast when something awful happened," `2Turgon continues.
+
+`k `0"An anonymous report had led the city council to my door. They forced the
+ door and searched my home. They found a satchel of stolen Gems."
+
+`$ "Why'd you take 'em, old man?!" `2you ask puzzled.
+
+ `0"I didn't take them!" `2he screams.
+
+ `2His haggard eyes convince you - you vow to clear his name!
+
+`k
+ @bitset `t01 4 1
+ @do goto turgon
+ @end
+
+@drawmap
+@update
+
+@#CHEST
+@do moveback
+@if `t02 is 0 then do
+ @begin
+ @do saybar
+ You find a `+10!
+ @do `i10 + 1
+ @do `t02 = 1
+ @closescript
+ @end
+
+@if `t02 is 1 then do
+ @begin
+ @do saybar
+ There is nothing on the table.
+ @end
+
+@#NOTHING
+
+
+
diff --git a/xtrn/lord2/cnw/uga.ref b/xtrn/lord2/cnw/uga.ref
new file mode 100644
index 0000000000000000000000000000000000000000..6b7aa578a20e1639789c7bafc394be68078de56b
--- /dev/null
+++ b/xtrn/lord2/cnw/uga.ref
@@ -0,0 +1,1271 @@
+@#exitlab
+@do y - 2
+@end
+
+@#touga
+@do moveback
+@do saybar
+<- University of Greater Arrisville
+@end
+
+@#arches
+@do saybar
+You walk through the arches.
+@end
+
+@#map
+@do moveback
+@clear screen
+@pauseoff
+@show
+[?7h[255D[2C[0;30;43m [40m
+[A[44C[43m [40m
+ [43m [42m ����������������������������������������������������[40m[A
+[57C[42m����������������ͻ [43m [40m
+ [43m [42m � [46m�������ͻ[40m[A
+[52C[42m � [43m [40m
+ [43m [42m � [46m�������ͻ[42m [40m[A
+[43C[46m� �[42m � [43m [40m
+ [43m [42m � [46m� �[42m [40m[A
+[43C[46m� DORMS �[42m [46m����������ͻ[42m � [43m [40m
+ [43m [42m � [46m� CHAPEL�[42m [40m[A
+[43C[46m� �[42m [46m� ALCHEMY �[42m � [43m [40m
+ [43m [42m � [46m� �[42m [40m[A
+[43C[46m� �[42m [46m� DEPT. �[42m � [43m [40m
+ [43m [42m � [46m� �[42m [40m[A
+[43C[46m����[1C��ͼ[42m [46m������[1C���ͼ[42m � [40m[A
+[76C[43m [40m
+ [43m [42m � [46m����[1C��ͼ[42m [40m[A
+[44C[42m [43m [42m [43m [42m � [43m[40m[A
+[76C[43m [40m
+ [43m [42m � [43m [42m [40m[A
+[43C[43m [42m � [43m [40m
+ [43m [42m � [43m [42m [40m[A
+[47C[42m [43m [42m � [43m [40m
+ [43m [42m � [43m [42m [43m [40m[A
+[39C[42m [46m���������������ͻ[42m [43m [42m [31m[40m[A
+[71C[42m� [30m�[1m�[43m [40m
+ [43m [42m [0;30;42m� [43m [42m [46m���������[40m[A
+[32C[46mͻ[42m [43m [42m [46m� �[42m [40m[A
+[64C[42m [43m (� [40m
+ [43m [42m � [43m [42m [46m� PHYSICS �[42m [40m[A
+[37C[42m [43m [42m [46m� CLASSROOMS [1C[43m [40m[A
+[70C[42m [1;37m [D [0;30;42m�[1m�[43m [40m
+ [43m [42m [0;30;42m�[46m���ͻ[42m [46m� DEPT. [40m[A
+[32C[46m [1C[43m [42m [46m� �[42m [40m[A
+[66C[42m [1;37mYou [0;30;42m� [43m [40m
+ [43m [42m �[46m�[1;34;44m<*>[0;30;46m�[42m [40m[A
+[23C[46m� �[42m [46m���������������ͼ[42m [40m[A
+[65C[42m [1;37mare [0;30;42m� [43m [40m
+ [43m [42m �[46m���ͼ[42m [46m���������ͼ[42m [40m[A
+[37C[42m [1;37mhere [0;30;42m� [40m[A
+[76C[43m [40m
+ [43m [42m � [40m[A
+[57C[42m � [43m [40m
+ [43m [42m ����������������������������������������������������[40m[A
+[57C[42m����������������ͼ [43m [40m
+ [43m [42m [1;37mUNIVERSITY OF GREATER ARRISVILLE:[40m[A
+[50C[42m CAMPUS MAP [43m [40m
+ [43m [40m[A
+[62C[43m [40m
+@key
+@pauseon
+@drawmap
+@update
+@closescript
+
+@#fountain
+@do saybar
+`%What a pretty fountain! I wonder why it's full of soap bubbles?
+@end
+
+@#chapel
+@DO MOVEBACK
+@datanewday ugachap.idf
+@dataload ugachap.idf &playernum `p20
+
+@IF `p20 IS 1 THEN DO
+ @BEGIN
+ @DO GOTO LOCKED
+ @END
+@CLEAR SCREEN
+@SHOW
+`2 You enter the chapel building. An older man approaches. He smiles
+and extends his hand. You're not sure why, but you feel relaxed in his
+presence. You take his hand and shake it.
+@KEY BOTTOM
+@CLEAR SCREEN
+@SHOW
+
+[0;1m [0;33m������
+ ��������
+ [37m�������[33m�[36;43m�[40m
+[37m����[33m��[37m��[33m�����
+[37m����[33m����[1;30;43m�[0;33m��
+ [37m��[33m�����[1;30;43m���[17C[32;40m"Welcome to the UGA Campus Chapel. I am the
+ [0;33m����[15C[1;32mcampus chaplain. How can I help you?"
+ [0;35m������
+ ��[1;30;45m����[0;35m��
+ ��[1;30;45m�[0;35m��[1;30;45m�������[40m�[0;33m���
+ [35m��[1;30;45m������[40m�����
+ [0;35m��������
+ ��������
+
+
+
+@do `v01 is 1
+@CHOICE
+`%"I've come seeking knowledge."
+`%"You mean this isn't gym class? Sorry, I gotta jet."
+`%"I've come to beat you up, you religious fanatic."
+@IF RESPONCE IS 3 THEN DO
+ @BEGIN
+ @CLEAR SCREEN
+ @SHOW
+[?7h[255D[13C[0;1;33m��[0;30m�
+[14C[1;33m��[0;30m�
+[15C[1;33m��[0;30m�
+[16C[1;33m��[0;30m�
+[17C[1;33m��
+[17C� �[21C[37mAs you draw back your fist to punch
+[16C[33m� � �[16C[37mthe old man, you hear a thunder clap and
+[15C[33m� �� ��[14C[37msee a bright flash. Then suddenly, all
+[14C[33m� � � �[13C[37mis dark.
+[13C[33m� � � ��
+[12C� �[6C� [0;30m�[1;33m��
+[11C��[0;30m�[1;33m�[6C� � �
+[10C�[0;30m� [1;33m�[6C�[6C� �
+[9C� � � � � � �
+[7C�� �[6C� �[8C�
+[6C� �[6C�[5C�[8C�
+[5C� � �[5C�� � �[6C� �
+[8C� � � �[5C� � �
+[13C�[12C�[8C�
+ @KEY BOTTOM
+ @CLEAR SCREEN
+ @SHOW
+
+
+
+ `0 When you awake, you realize that you don't feel very well. You also
+ notice that the sun appears to have travelled a good distance to the west.
+ And if all that wasn't bad enough, you smell like burnt toast!
+
+
+`6 HITPOINTS ARE AT 1
+ ALIGNMENT IS MINUS 4
+ YOU HAVE LOST 500 TURNS
+ @DO `p02 IS 1
+ @DO `p11 - 500
+ @DO `p07 - 4
+ @DO GOTO DONE
+ @END
+
+@IF RESPONCE IS 2 THEN DO
+ @BEGIN
+ @SHOW
+
+
+`0"Feel free to come back any time."
+ @DO GOTO DONE
+ @END
+@CLEAR SCREEN
+@SHOW
+
+
+
+
+ `0 "There is much knowledge to be gained from studying God's Law. It
+will help you to become a better person."`2
+@DO `p07 + 1
+@DO `p20 RANDOM 10 1
+@IF `p20 IS 1 THEN DO
+ @BEGIN
+ @SHOW
+
+ I am the Lord your God. You shall have
+ no other God's before me.
+`0 Exodus 20:2-3
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 2 THEN DO
+ @BEGIN
+ @SHOW
+
+ You shall not make for yourself an idol. You
+ shall not bow down to them or worship them.
+`0 Exodus 20:4-5
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 3 THEN DO
+ @BEGIN
+ @SHOW
+
+ You shall not misuse the name of the Lord your God.
+
+`0 Exodus 20:7
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 4 THEN DO
+ @BEGIN
+ @SHOW
+
+ Remember the Sabbath day by keeping it holy.
+
+`0 Exodus 20:8
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 5 THEN DO
+ @BEGIN
+ @SHOW
+
+ Honor your father and your mother.
+
+`0 Exodus 20:12
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 6 THEN DO
+ @BEGIN
+ @SHOW
+
+ You shall not commit murder.
+
+`0 Exodus 20:13
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 8 THEN DO
+ @BEGIN
+ @SHOW
+
+ You shall not commit adultery.
+
+`0 Exodus 20:14
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 7 THEN DO
+ @BEGIN
+ @SHOW
+
+ You shall not steal.
+
+`0 Exodus 20:15
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 7 THEN DO
+ @BEGIN
+ @SHOW
+
+ You shall not give false testimony against your
+ neighbor.
+`0 Exodus 20:16
+ @DO GOTO DONE
+ @END
+@IF `p20 IS 10 THEN DO
+ @BEGIN
+ @SHOW
+
+ You shall not covet anything that is your neighbor's.
+
+`0 Exodus 20:17
+ @DO GOTO DONE
+ @END
+@#DONE
+@datasave ugachap.idf &playernum 1
+@KEY BOTTOM
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+@#LOCKED
+@DO SAYBAR
+`% The chapel door is locked. Try again tomorrow.
+@CLOSESCRIPT
+
+@#teleport
+@do moveback
+@datasave lab.idf &playernum 1
+@clear screen
+@show
+`2You feel a rush of wind and a burst of color explodes before your eyes.
+@key
+@show
+
+`2Suddenly everything goes black. Blacker than your worst nightmare. You close
+your eyes to fight off the blackness.
+@key
+@show
+
+`2Then the wind stops. Slowly you open your eyes.
+@key
+@do `p20 random 8 1
+@if `p20 is 1 then goto church
+@if `p20 is 2 then goto orphan
+@if `p20 is 3 then goto daves
+@if `p20 is 4 then goto library
+@if `p20 is 5 then goto overlook
+@if `p20 is 6 then goto kiteria
+@if `p20 is 7 then goto witness
+@if `p20 is 8 then goto hydra
+
+@#overlook
+@if overlook.rec exists true then do
+@begin
+@do map is 237
+@loadmap 237
+@do x is 40
+@do y is 16
+@do `p11 + 500
+@show
+
+`2You are no longer in the physics lab, and judging by the sun, it is much
+earlier in the day!
+@key
+@show
+
+`2That crazy thing actually worked!
+@key
+@drawmap
+@update
+@closescript
+@end
+@clear screen
+@show
+`2You are right where you started.
+@key
+@show
+
+`2The pad did not seem to work this time. Perhaps if your SysOp installed
+The Overlook Hotel, another fine IGM from Mamoosoft Programming!
+@key
+@drawmap
+@update
+@closescript
+
+@#church
+@if church.ref exists true then do
+@begin
+@do map is 1280
+@loadmap 1280
+@do x is 18
+@do y is 16
+@do `p11 + 500
+@show
+
+`2You are no longer in the physics lab, and judging by the sun, it is much
+earlier in the day!
+@key
+@show
+
+`2That crazy thing actually worked!
+@key
+@drawmap
+@update
+@closescript
+@end
+@clear screen
+@show
+`2You are right where you started.
+@key
+@show
+
+`2The pad did not seem to work this time. Perhaps if your SysOp installed
+The Stonebrook Church, another fine IGM from Mamoosoft Programming!
+@key
+@drawmap
+@update
+@closescript
+
+@#witness
+@if witness.rec exists true then do
+@begin
+@do map is 1572
+@loadmap 1572
+@do x is 31
+@do y is 11
+@do `p11 + 500
+@show
+
+`2You are no longer in the physics lab, and judging by the sun, it is much
+earlier in the day!
+@key
+@show
+
+`2That crazy thing actually worked!
+@key
+@drawmap
+@update
+@closescript
+@end
+@clear screen
+@show
+`2You are right where you started.
+@key
+@show
+
+`2The pad did not seem to work this time. Perhaps if your SysOp installed
+The Witness Protection Program, another fine IGM from Mamoosoft Programming!
+@key
+@drawmap
+@update
+@closescript
+
+@#orphan
+@if orphan.ref exists true then do
+@begin
+@do map is 1436
+@loadmap 1436
+@do x is 57
+@do y is 9
+@do `p11 + 500
+@show
+
+`2You are no longer in the physics lab, and judging by the sun, it is much
+earlier in the day!
+@key
+@show
+
+`2That crazy thing actually worked!
+@key
+@drawmap
+@update
+@closescript
+@end
+@clear screen
+@show
+`2You are right where you started.
+@key
+@show
+
+`2The pad did not seem to work this time. Perhaps if your SysOp installed
+The Greentree Orphanage, another fine IGM from Mamoosoft Programming!
+@key
+@drawmap
+@update
+@closescript
+
+@#kiteria
+@if kiteria.ref exists true then do
+@begin
+@do map is 1113
+@loadmap 1113
+@do x is 32
+@do y is 19
+@do `p11 + 500
+@show
+
+`2You are no longer in the physics lab, and judging by the sun, it is much
+earlier in the day!
+@key
+@show
+
+`2That crazy thing actually worked!
+@key
+@drawmap
+@update
+@closescript
+@end
+@clear screen
+@show
+`2You are right where you started.
+@key
+@show
+
+`2The pad did not seem to work this time. Perhaps if your SysOp installed
+Kiteria's Kastle, another fine IGM from Mamoosoft Programming!
+@key
+@drawmap
+@update
+@closescript
+
+@#hydra
+@if island.rec exists true then do
+@begin
+@do map is 934
+@loadmap 934
+@do x is 47
+@do y is 14
+@do `p11 + 500
+@show
+
+`2You are no longer in the physics lab, and judging by the sun, it is much
+earlier in the day!
+@key
+@show
+
+`2That crazy thing actually worked!
+@key
+@drawmap
+@update
+@closescript
+@end
+@clear screen
+@show
+`2You are right where you started.
+@key
+@show
+
+`2The pad did not seem to work this time. Perhaps if your SysOp installed
+The Island of the Hydra, another fine IGM from Mamoosoft Programming!
+@key
+@drawmap
+@update
+@closescript
+
+@#daves
+@if mine.rec exists true then do
+@begin
+@do map is 1195
+@loadmap 1195
+@do x is 34
+@do y is 11
+@do `p11 + 500
+@show
+
+`2You are no longer in the physics lab, and judging by the sun, it is much
+earlier in the day!
+@key
+@show
+
+`2That crazy thing actually worked!
+@key
+@drawmap
+@update
+@closescript
+@end
+@clear screen
+@show
+`2You are right where you started.
+@key
+@show
+
+`2The pad did not seem to work this time. Perhaps if your SysOp installed
+Dahlonega Dave's Do-It-Yourself Mining, another fine IGM from Mamoosoft
+Programming!
+@key
+@drawmap
+@update
+@closescript
+
+@#library
+@if wally.rec exists true then do
+@begin
+@do map is 1196
+@loadmap 1196
+@do x is 56
+@do y is 12
+@do `p11 + 500
+@show
+
+`2You are no longer in the physics lab, and judging by the sun, it is much
+earlier in the day!
+@key
+@show
+
+`2That crazy thing actually worked!
+@key
+@drawmap
+@update
+@closescript
+@end
+@clear screen
+@show
+`2You are right where you started.
+@key
+@show
+
+`2The pad did not seem to work this time. Perhaps if your SysOp installed
+Wise Wally's Public Library, another fine IGM from Mamoosoft Programming!
+@key
+@drawmap
+@update
+@closescript
+
+@#enterphys
+@clear screen
+@show
+`2As you enter the physics building, you notice rows of desks and chairs.
+@key
+@show
+
+`2There are some computations on the blackboard.
+@key
+@pauseoff
+@show
+
+[0;1m[12C[0;33m�[30;43m����������������������������������������[40m[A
+[53C[43m������������[33;40m�
+[12C�[30m����������������������������������������������������[33m�
+[12C�[30m�� [1;37mE = �mc[0;30m���������������������������[1;37mm [A
+[53C= �E[0;30m��������[33m�
+[12C�[30m����������������[1;37mE � mc [0;30m������������������������[A
+[60C�����[33m�
+[12C�[30m�������[1;37mE = �mc[0;30m���������������������������������[A
+[60C�����[33m�
+[12C�[30m�������������������������������[1;37mc = mE�[0;30m���������[A
+[60C�����[33m�
+[12C�[30m������������������[1;37mE � mc[0;30m�����������������������[A
+[60C�����[33m�
+[12C�[30m����������������������������������������������������[33m�
+[12C�[30m����������������������������������������������������[33m�
+[12C�[30m����[1;37mE = m � c [0;30m��������[1;37mm = Ec�[0;30m��[A
+[46C������[1;37mc = �m[0;30m�������[33m�
+[12C�[30m����������������������������������������������������[33m�
+[12C�[30m�������������[1;37mc = m��E[0;30m�������������[1;37mE = mc[A
+[53C�[0;30m�����������[33m�
+[12C�[30m����������������������������������������������������[33m�
+[12C�[30;43m����������������������������������������������������[40m[A
+[65C[33;40m�
+
+@key
+@pauseon
+@clear screen
+@show
+`2There is a door on the far side of the room. The sign on the door says:
+
+`% Dr. Hanselfelter Ubermeister
+ Professor of Physics and Bloodletting
+@key
+@do map is 1578
+@loadmap 1578
+@do x is 58
+@do y is 10
+@drawmap
+@update
+@closescript
+
+@#lablock
+@do moveback
+@do saybar
+`%The door to the lab is locked.
+@closescript
+
+@#secretary
+@do moveback
+@datanewday msjones.idf
+@dataload msjones.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do saybar
+`%Miss Jones is busy filing something.
+@closescript
+@end
+@clear screen
+@show
+`#"Welcome to Professor Ubermeister's office. I'm his secretary, Miss Jones.
+How can I help you?"
+
+@do `v01 is 1
+@choice
+`%I'd like to see the professor.
+`%I'm sorry. I think I'm in the wrong place.
+@if response is 2 then do
+@begin
+@show
+
+
+
+`#"That's OK. Happens all the time."
+@key
+@drawmap
+@update
+@closescript
+@end
+@clear screen
+@show
+
+
+
+`#"Are you here to help with the experiment?"
+
+@do `v01 is 1
+@choice
+`%What experiment?
+`%Sure! I'd like to help.
+@if response is 1 then do
+@begin
+@show
+
+
+`#"Never mind. The professor is very busy. You'll need to come back later."
+@key
+@show
+
+`2She motions towards the door and gets back to her work.
+@key
+@drawmap
+@update
+@closescript
+@end
+@clear screen
+@datasave msjones.idf &playernum 1
+@show
+`2Miss Jones gets up from behind her desk and escorts you to a small door at the
+back of the office.
+@key
+@show
+
+`2She unlocks the door and motions you inside.
+@key
+@do x is 23
+@do y is 11
+@drawmap
+@update
+@closescript
+
+@#prof
+@do moveback
+@datanewday prof.idf
+@dataload prof.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do saybar
+`%The Professor is busy working.
+@closescript
+@end
+@clear screen
+@show
+`2You see a disheveled looking man in a white coat. In front of him is what
+looks like a small stage, with steps in the front.
+@key
+@show
+
+`2He appears to be working on it with some strange tools.
+@key
+@show
+
+`2You clear your throat to get his attention, and he looks up from his work.
+@key
+@clear screen
+@show
+`@"Welcome to my laboratory. I am Professor Ubermeister. Are you to be a
+guinea pi... I mean... volunteer?"
+
+@do `v01 is 1
+@choice
+`%No
+`%Yes
+@if response is 1 then do
+@begin
+@clear screen
+@show
+`@"I'm sorry, I am very busy. If you are not here to help, please show
+yourself out."
+@key
+@drawmap
+@update
+@closescript
+@end
+@datasave prof.idf &playernum 1
+@clear screen
+@show
+`@"Very good! I think my invention is ready for testing.
+@key
+@show
+
+`@"I bet your are wondering what it is, eh? Well, I will tell you. It is
+a time traveling device!"
+@key
+@show
+
+`@"So far it is only working simply. It will send you back in time about 500
+turns."
+@key
+@show
+
+`@"There is one small problem that I have not worked out yet. I think that when
+it sends you back in time, it may also transport you to someplace else in the
+realm."
+@key
+@show
+
+`@"You see, time and space are related. The very fabric of the universe is
+woven from the two. There are some very interesting theories on...."
+@key
+@show
+
+`@"I see by that look on your face that I am rambling. So sorry. Anyway, to
+make the device work, simply climb those stairs. When you reach the top, the
+device will activate itself."
+@key
+@show
+
+`@The professor looks at you expectantly.
+@key
+@drawmap
+@update
+@closescript
+
+@#noenter
+@datanewday lab.idf
+@dataload lab.idf &playernum `p20
+@if `p20 is 1 then do
+@begin
+@do moveback
+@do saybar
+`%Professor Ubermeister's office is locked.
+@closescript
+@end
+
+@#classroom
+@datanewday class.idf
+@dataload class.idf &playernum `p20
+@if `p20 = 1 then goto noclass
+@loadmap 1577
+@do map is 1577
+@do x is 74
+@do y is 11
+@drawmap
+@update
+@do saybar
+`%The door opens automatically. This building is ADA compliant!
+@closescript
+
+@#noclass
+@do moveback
+@do saybar
+`%Classes are over for the day so the building is locked.
+@closescript
+
+@#Eunice
+@datanewday eunice.idf
+@dataload eunice.idf &playernum `p20
+@if `p20 = 1 then do
+@begin
+@do saybar
+`%Eunice is busy filing something.
+@closescript
+@end
+@datasave eunice.idf &playernum 1
+@clear screen
+@datasave class.idf &playernum 1
+@show
+`#"Hi. I'm Eunice the secretary. I need you to take this message to
+Professor Dittmann. She's an attractive young blonde woman; you can't
+miss her. Unfortunately, I forgot which classroom she's in, and classes
+are almost done for the day. Please try and catch her before she leaves!"
+@key
+@do `p20 random 8 1
+@writefile foundher.idf
+`p20
+@writefile attempts.idf
+0
+@drawmap
+@update
+@closescript
+
+@#first
+@do moveback
+@readfile attempts.idf
+`p20
+@if `p20 > 3 then goto sheleft
+@readfile foundher.idf
+`p20
+@if `p20 = 1 then do
+@begin
+@do goto foundher
+@closescript
+@end
+@do saybar
+`%Sorry, wrong class.
+@readfile attempts.idf
+`p20
+@do `p20 + 1
+@do delete attempts.idf
+@writefile attempts.idf
+`p20
+@closescript
+
+@#second
+@do moveback
+@readfile attempts.idf
+`p20
+@if `p20 > 3 then goto sheleft
+@readfile foundher.idf
+`p20
+@if `p20 = 2 then do
+@begin
+@do goto foundher
+@closescript
+@end
+@do saybar
+`%Sorry, wrong class.
+@readfile attempts.idf
+`p20
+@do `p20 + 1
+@do delete attempts.idf
+@writefile attempts.idf
+`p20
+@closescript
+
+@#third
+@do moveback
+@readfile attempts.idf
+`p20
+@if `p20 > 3 then goto sheleft
+@readfile foundher.idf
+`p20
+@if `p20 = 3 then do
+@begin
+@do goto foundher
+@closescript
+@end
+@do saybar
+`%Sorry, wrong class.
+@readfile attempts.idf
+`p20
+@do `p20 + 1
+@do delete attempts.idf
+@writefile attempts.idf
+`p20
+@closescript
+
+@#fourth
+@do moveback
+@readfile attempts.idf
+`p20
+@if `p20 > 3 then goto sheleft
+@readfile foundher.idf
+`p20
+@if `p20 = 4 then do
+@begin
+@do goto foundher
+@closescript
+@end
+@do saybar
+`%Sorry, wrong class.
+@readfile attempts.idf
+`p20
+@do `p20 + 1
+@do delete attempts.idf
+@writefile attempts.idf
+`p20
+@closescript
+
+@#fifth
+@do moveback
+@readfile attempts.idf
+`p20
+@if `p20 > 3 then goto sheleft
+@readfile foundher.idf
+`p20
+@if `p20 = 5 then do
+@begin
+@do goto foundher
+@closescript
+@end
+@do saybar
+`%Sorry, wrong class.
+@readfile attempts.idf
+`p20
+@do `p20 + 1
+@do delete attempts.idf
+@writefile attempts.idf
+`p20
+@closescript
+
+@#sixth
+@do moveback
+@readfile attempts.idf
+`p20
+@if `p20 > 3 then goto sheleft
+@readfile foundher.idf
+`p20
+@if `p20 = 6 then do
+@begin
+@do goto foundher
+@closescript
+@end
+@do saybar
+`%Sorry, wrong class.
+@readfile attempts.idf
+`p20
+@do `p20 + 1
+@do delete attempts.idf
+@writefile attempts.idf
+`p20
+@closescript
+
+@#seventh
+@do moveback
+@readfile attempts.idf
+`p20
+@if `p20 > 3 then goto sheleft
+@readfile foundher.idf
+`p20
+@if `p20 = 7 then do
+@begin
+@do goto foundher
+@closescript
+@end
+@do saybar
+`%Sorry, wrong class.
+@readfile attempts.idf
+`p20
+@do `p20 + 1
+@do delete attempts.idf
+@writefile attempts.idf
+`p20
+@closescript
+
+@#eighth
+@do moveback
+@readfile attempts.idf
+`p20
+@if `p20 > 3 then goto sheleft
+@readfile foundher.idf
+`p20
+@if `p20 = 8 then do
+@begin
+@do goto foundher
+@closescript
+@end
+@do saybar
+`%Sorry, wrong class.
+@readfile attempts.idf
+`p20
+@do `p20 + 1
+@do delete attempts.idf
+@writefile attempts.idf
+`p20
+@closescript
+
+
+@#sheleft
+@clear screen
+@show
+`2The door is locked. Classes seem to be done for the day. She must have left
+already.
+@key
+@show
+
+`2Eunice, the secretary, thanks you anyway and hurries you out of the building
+so she can lock up for the day.
+@key
+@loadmap 522
+@do map is 522
+@do x is 63
+@do y is 14
+@drawmap
+@update
+@closescript
+
+@#foundher
+@clear screen
+@show
+`2Well done! You found Professor Dittmann and completed the quest!
+@key
+@show
+
+`2Professor Dittmann is even more attractive than Eunice described her. Too
+bad she's married to a dashing young computer programmer!
+@key
+@show
+
+`2She is very glad to get the message. She thanks you and hurries off.
+@key
+@show
+
+`2You have finished this quest and gain `@1 quest point`2!
+@do `p18 + 1
+@key
+@show
+
+`2Eunice, the secretary, thanks you and hurries you out of the building so she
+can lock up for the day.
+@key
+@loadmap 522
+@do map is 522
+@do x is 63
+@do y is 14
+@drawmap
+@update
+@closescript
+
+@#alchemy
+@do moveback
+@do `p20 is `v05
+@do `p20 / 12
+@if `p11 < `p20 then do
+ @begin
+ @do saybar
+LOCKED, Nobody is answering.
+ @closescript
+ @end
+
+@offmap
+@clear screen
+@show
+`2As you enter the building you are struck by strange and disturbing smells.
+@key
+@show
+
+`2There is a light fog in the room of a color which you have never before seen.
+@key
+@show
+
+`2As your eyes adjust, you notice that the room is filled with all kinds of
+laboratory equipment.
+@key
+@show
+
+`2In the center of the room is table. Behind the table is a man. He looks
+very busy.
+
+@key
+@do `v01 is 1
+@choice
+`%Leave before I disturb him.
+`%Try to get his attention
+@if response is 1 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+@clear screen
+@show
+`2You clear your throat to get his attention.
+@key
+@show
+
+`2He looks up and smiles.
+@key
+@show
+
+`9"Hello friend," he says. "You're just in time. I've been working on a way
+to change gems into gold, and I think I've finally found the right formula."
+@key
+@show
+
+`9"I don't suppose you have any gems on you? I'll let you keep the gold if
+it works."
+
+@do `v01 is 1
+@choice
+`%No thanks. I'm not interested.
+`%Let me look in my pack and see.
+@if response is 1 then do
+@begin
+@show
+
+
+`9"Very well. Come back if you change your mind."
+@key
+@drawmap
+@update
+@closescript
+@end
+@clear screen
+@if `p19 = 0 then do
+@begin
+@show
+`2You dig deep down in your pack but cannot find any gems.
+@key
+@show
+
+`9"That's too bad. Come back later if you find some."
+@key
+@drawmap
+@update
+@closescript
+@end
+@show
+`2You dig deep down in your pack and find `L.`L.`L. `%`p19 `2gems!
+@key
+@do goto gemnum
+@#gemnum
+@show
+`2How many are you going to give him?
+@do readnum 10 0
+@clear screen
+@if `v40 > `p19 then do
+@begin
+@show
+
+`2You don't have `%`v40 `2gems. You only have `%`p19`2.
+@key
+@do goto gemnum
+@end
+@if `v40 < 0 then do
+@begin
+@show
+
+`2You cannot give a negative number.
+@key
+@do goto gemnum
+@end
+@if `v40 = 0 then do
+@begin
+@show
+`9"Too bad you changed your mind. Come back later if you change it again."
+@key
+@drawmap
+@update
+@closescript
+@end
+@clear screen
+@show
+`2The alchemist greatfully accepts the `v40 gems.
+@do `p19 - `v40
+@key
+@show
+
+`2He drops them into a large flask filled with a green liquid.
+@key
+@show
+
+`2The liquid begins to bubble with a red froth.
+@key
+@show
+
+`2Suddenly there is a brilliant flash of light.
+@key
+@do `p20 random 5 1
+@if `p20 = 1 then goto boom
+@clear screen
+@show
+`2The liquid rises through a tube, swirls around, and spills out into a barrel.
+@key
+@show
+
+`2As you look into the barrel, you cannot believe your eyes!
+@key
+@do `p20 random 1500 500
+@do `v40 * `p20
+@show
+
+`2At the bottom of the barrel you see `%`v40 `2gold pieces!
+@key
+@do money + `v40
+@clear screen
+@show
+`2The alchemist jumps for joy, then draws the money from the barrel and
+hands it to you.
+@key
+@show
+
+`9"Thanks for your help. Come back anytime!"
+@key
+@drawmap
+@update
+@closescript
+
+@#boom
+@clear screen
+@show
+`2When you open your eyes you see that the alchemist and his equipment look
+a bit like burnt toast.
+@key
+@show
+
+`2Your gems are nowhere to be found.
+@key
+@show
+
+`9"Gosh, sorry about that. Let me do a little more work, and you can come
+back later if you want."
+@key
+@drawmap
+@update
+@closescript
+
+@#nomore
diff --git a/xtrn/lord2/cnw/undead.ref b/xtrn/lord2/cnw/undead.ref
new file mode 100644
index 0000000000000000000000000000000000000000..1b267cb68f1be7ed029061312436da74424b2665
--- /dev/null
+++ b/xtrn/lord2/cnw/undead.ref
@@ -0,0 +1,203 @@
+; Script file UNDEAD.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:32 2001
+
+@DECLARE undeadfight 000000335
+@DECLARE monster1 000000934
+@DECLARE monster2 000001488
+@DECLARE monster3 000002040
+@DECLARE monster4 000002562
+@DECLARE monster5 000003110
+@DECLARE undead 000003624
+@NOCHECK
+; End of .REF index
+
+@#UNDEADFIGHT
+@offmap
+@fight
+;name
+Skeleton King
+;string said when you see him
+He is grinning at you
+;power move kill string
+This time stay dead !
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits you with his sword|295
+summons rats|250
+touches you with a boney hand|286
+stabs you with his dagger|241
+NONE|NONE
+;defense
+250
+;gold reward
+2562
+;experience
+1210
+;hit points
+525
+;if win: ref file|name or NONE
+QUESTER.REF|FINQUEST
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+QUESTER.REF|ENDQUEST
+
+@#monster1
+@fight
+;name
+Skeleton Warrior
+;string said when you see him
+A skeleton Warrior approaches you
+;power move kill string
+You kill him again.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits you with his sword|95
+summons rats|50
+touches you with a bony hand|86
+NONE|NONE
+NONE|NONE
+;defense
+65
+;gold reward
+562
+;experience
+210
+;hit points
+125
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Specter
+;string said when you see him
+A large Specter floats towards you
+;power move kill string
+You send it straight to hell
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+passes through you|75
+summons death|61
+hits you with a blast of cold|91
+NONE|NONE
+NONE|NONE
+;defense
+68
+;gold reward
+628
+;experience
+158
+;hit points
+145
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Zombie
+;string said when you see him
+This looks like a Zombie.
+;power move kill string
+You put it back to sleep forever !
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+scratches you|45
+Bites you|95
+bites an ear|54
+NONE|NONE
+NONE|NONE
+;defense
+82
+;gold reward
+925
+;experience
+171
+;hit points
+265
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Ghost
+;string said when you see him
+A chill runs down your spine.
+;power move kill string
+You banish him back to Hell !
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+passes through you|80
+scares you half to death|95
+hits you with slime|78
+NONE|NONE
+NONE|NONE
+;defense
+90
+;gold reward
+815
+;experience
+200
+;hit points
+351
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Lurker
+;string said when you see him
+You see a shadow of a man
+;power move kill string
+Don't come round here no more !
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+kicks you|84
+scratches you|98
+bites you|87
+NONE|NONE
+NONE|NONE
+;defense
+50
+;gold reward
+526
+;experience
+165
+;hit points
+542
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#UNDEAD
+@busy
+@do `p20 random 5 1
+@do goto monster`p20
diff --git a/xtrn/lord2/cnw/update.tmp b/xtrn/lord2/cnw/update.tmp
new file mode 100644
index 0000000000000000000000000000000000000000..e69de29bb2d1d6434b8b29ae775ad8c2e48c5391
diff --git a/xtrn/lord2/cnw/varlist.dat b/xtrn/lord2/cnw/varlist.dat
new file mode 100644
index 0000000000000000000000000000000000000000..b22fd3bfd73a93e0dcc02981a9a541a4e9aa4428
--- /dev/null
+++ b/xtrn/lord2/cnw/varlist.dat
@@ -0,0 +1,299 @@
+;var info for the game - so people that add/mess with this world know
+;what to change. Use a comment ; in front of a line to have it not show
+;up in the player editor.
+
+;player specific longint vars
+
+`p01 Experience
+`p02 Hit points
+`p03 Hit point max
+`p04 Muscle
+`p05 Dodge
+`p06 Quest 1 stat - >0, picked berries
+`p07 Alignment (negetive is evil)
+`p08 Charm
+`p09 Level
+`p10 Day he last played on
+`p11 Turns left today, if limited play is set in RULES.REF.
+`p12 Is 1 if user has VD
+`p13 Boat destinations. 0 means not on boat
+`p14 Quest origination
+`p15 Quest destination
+`p16 Quest payoff
+`p17 Quest item
+`p18 Quests completed
+`p19 Gems
+;`p20 through `p30 reserved for math.
+`p31 Quests left today
+`p32 Quest age in days
+`p33 Gambles left for today
+`p34 Lays
+`p35 Kills
+`p36 Flute MAP location
+`p37 # of Dates with npc & players
+`p38 flirts today
+`p39 AGE
+;`p40 - `p49 = temp vars for even more math, seems like its needed.
+`p50 Max WELL wishes/day
+`p51 MOSH
+`p52 MOSH
+`p53 MOSH
+`p54 MOSH
+`p55 MOSH
+`p56 MOSH
+`p57 MOSH
+`p58 MOSH
+`p59 <not sure if used yet>
+`p60 <not sure if used yet>
+`p61 MOSH
+`p62 MOSH
+`p63 MOSH
+`p64 MOSH <was REDDTOWN.REF, removed>
+`p65 MOSH
+`p66 MOSH
+`p67 <not sure if used yet>
+`p68 <not sure if used yet>
+`p69 Players Registered HOME (0=East Stonebrook) (could be a `t var?)
+`p70 Talking with NPC#
+`p71 NPC# is with you
+`p72 Player B-day (day#)
+`p73 Player original starting age
+`p74 Player B-day (&time)
+`p75 Player starting year #
+`p76 <not sure if used yet>
+`p77 <not sure if used yet>
+`p78 <not sure if used yet>
+`p79 <not sure if used yet>
+`p80 Power's Castle Spys
+`p81 Who's side you are on 1-power 2-shara 3-codax (should be a `t var!!)
+`p82 Power's Favor
+`p83 If you are the queen/second
+`p84 How many royals are dead
+`p85 Royal treasury <??>
+`p86 Day starting as Queen/King
+`p87 Codax's Favor
+`p88 Shara's Favor
+`p89 Codax's Castle Spys
+`p90 Shara's Castle spys !!3x CONFLICT!! (should be a `t var??) (was -The Loose Screw Resort-) (was used by BlackSheep)
+`p91 <was -The Loose Screw Resort-> (used by SAVE.REF)
+`p92 <not sure if used yet> (used by SAVE.REF)
+`p93 <not sure if used yet> (used by SAVE.REF)
+`p94 <not sure if used yet> (used by SAVE.REF)
+`p95 <not sure if still used> <was -The Loose Screw Resort-> (was LENNY.REF)
+`p96 Alcohol level (higher the more drunk)7
+`p97 <not used> (was used by wizard's tower igm) (was LENNY.REF)
+`p98 <not used> (was used by wizard's tower igm) (was LENNY.REF)
+`p99 <available>(was Tried to choke mom? - now a `t11:2 var??)(was used by wizard's tower igm)
+
+
+;player specific byte vars. Some are used with the bitcheck command to turn
+;the byte into 8 yes/no vars.
+
+`t01 Talked to Turgon, 2 - asked him about Greentree
+;`t01: BIT 0: Knows about GreenTree, but no idea where it is, etc.
+;`t01: Bit 1: Asked about GreenTree
+;`t01: Bit 2: Trying to clear Turgeon name
+;`t01: Bit 3: Gave Pie!
+;`t01: Bit 4: Turgon told what happened
+;`t01: Bit 5: found diary!
+;`t01: Bit 6: Talked to Barak after bit4 is set
+;`t01: Bit 7: Read the diary
+; If ALL set to 1 then Goat Boy lives there.
+`t02 Turgon chest open
+`t03 1 - Talked to Neb, 2 - Beat up Neb
+`t04 1 - Tried to fight master today (reset to 0 at NEWDAY)
+`t05 Old woman, 1 - met her.
+`t06 Amount of items in old woman's cauldron.
+`t07 Opened chest in cave, 1 - yes.
+`t08 Found bird? 1 - yes, 2 bird is dead, 3 bird is released
+`t09 1 - has used shrine today.
+`t10 Fish left in stream today for this player
+;`t11: BIT 0: Took money from Dad's dresser
+;`t11: BIT 1: Tried to choke MOM!
+;`t11: BIT 2: <not sure if used>?
+;`t11: BIT 3: <not sure if used>?
+;`t11: BIT 4: Wasn't Johnny!
+;`t11: BIT 5: told Ma it wasn't - Started Finding ELLE's 'rapest'
+;`t11: BIT 6: You know who did it.
+;`t11: BIT 7: Killed the rapest.
+
+
+;`t12: BIT 0: <not sure if used>?
+;`t12: Bit 1: Killed Jeb's dog
+;`t12: Bit 2: Met Elle
+;`t12: Bit 3: Talked to Ma about Elle
+;`t12: Bit 4: Has talked with Edward
+;`t12: Bit 5: Has finished Edward quest
+;`t12: Bit 6: Read the letter even though asked not too
+;`t12: Bit 7: Lost at the Arena today
+
+;`t13: Bit 0: found moonstone at waterfalls?
+;`t13: Bit 1: Found hidden tree?
+;`t13: Bit 2: Opened chest
+;`t13: Bit 3: Opened chest
+;`t13: Bit 4: Opened chest
+;`t13: Bit 5: Opened chest
+;`t13: Bit 6: Opened chest
+;`t13: Bit 7: Opened chest
+
+;`t14: Bit 1: Learned about flute
+;`t14: Bit 2: Knows 1st 2 songs..
+;`t14: Bit 3: Has killed Tash?
+;`t14: Bit 4: Completed ghost quest
+;`t14: Bit 5: CLOAK.REF
+`t15 Flute X position
+`t16 Flute Y position
+
+;`t17: Bit 0: Chest
+;`t17: Bit 1: Can talk to mother about Koshi
+;`t17: Bit 2: Asked Koshi about Dragon
+;`t17: Bit 3: Talked to mom about dad
+;`t17: Bit 4: Ready to steal Gryphon
+;`t17: Bit 5: Something else?
+;`t17: Bit 6: Has Gryphon!
+;`t17: Bit 7: Has won as good
+
+;`t18: Bit 0: Joined Dragon Tooth or not
+;`t18: Bit 1: Has met Phin.
+;`t18: Bit 2: Has accepted quest.
+;`t18: Bit 3: Has the merchandise
+;`t18: Bit 4: Has delivered it
+;`t18: Bit 5: to mark daily use of MORTAL IGM
+;`t18: Bit 7: Has won as evil
+
+;`t19: Bit 0: <not used anymore?> (conflict! was used by DangerForest + Blacksheep + original game)
+;`t19: Bit 1: BlackSheep of Family IGM (conflict! was used by DangerForest + Blacksheep + original game)
+;`t19: Bit 2: Andrew Gives stuff away!
+;`t19: Bit 3: Grizelda's House - took table money
+;`t19: Bit 4: Grizelda's House - took needle
+;`t19: Bit 5: Found Baraks Diary
+;`t19: Bit 6: <not used yet>
+;`t19: Bit 7: mommy gave cash for taxes this year.
+`t20 Deaths in Power's Castle
+`t21 Quests Finished
+`t22 Codax's Castle deaths
+`t23 Shara's Castle deaths
+;`t30-`t39 USED FOR MATH! <-- got small equations.. use these too.
+`t43 Farm
+`t44 ?
+`t45 Castle1.REF
+`t49 1 = has account at the Locker House
+`t50 Why NPC is with player.
+;`t50: 0: gets quest points when returned
+;`t50: 1: with NPC for romance (date/marriage)
+;`t50: 2: with NPC to cure VD
+;`t50: 3: with NPC to pay taxes
+;`t50: 4: will get bonus for tax quest
+;`t50: 5: with NPC for a quest
+;`t50: 6: you LOST the NPC. bad player.
+;`t50: 7: return NPC home!
+`t51 Romantic bitsets for dates
+;`t51: 0: kissed today
+;`t51: 1: danced
+;`t51: 2: ate out
+;`t51: 3: swimming (skinny dipping)
+;`t51: 4: makeout mountain
+;`t51: 5: quicky
+;`t51: 6: full lovemaking encounter! (npc-sex.ref)
+;`t51: 7: no more dates! - return NPC home!
+;
+`t56 Dilbert misses
+`t57 Dilbert Chats
+`t65 used by VOYAGE.REF
+`t68 location type (0=grass, list in locate.ref)
+;`t69: 0:NPC-SEX.REF
+;`t69: 1:NPC-SEX.REF
+;`t69: 2:NPC-SEX.REF
+;`t69: 3:NPC-SEX.REF
+;`t69: 4:NPC-SEX.REF
+;`t69: 5:NPC-SEX.REF
+;`t69: 6:NPC-SEX.REF
+;`t69: 7:NPC-SEX.REF
+;`t70: 0:NPC-SEX.REF
+;`t70: 1:NPC-SEX.REF
+;`t70: 2:NPC-SEX.REF
+;`t70: 3:NPC-SEX.REF
+;`t70: 4:NPC-SEX.REF
+;`t70: 5:NPC-SEX.REF
+;`t70: 6:NPC-SEX.REF
+;`t70: 7:NPC-SEX.REF
+`t71 Last FLIRT with player or npc number
+`t72 Last FLIRT was a (0=NPC, 1=PLAYER, 2=other?)
+;`t79: 0: has canoe <--not realy used yet.. uses canoe.idf
+;`t79: 1: has horse
+;`t79: 2: has wagon
+;`t79: 3: mounted horse
+;`t79: 4: using wagon
+;`t79: 5: <not used yet>
+;`t79: 6: <not used yet>
+;`t79: 7: <not used yet>
+`t80 Your Horse's hp
+`t81 condition of wagon
+`t82 Elles RAPEST, npc# (each player is different) (it wasn't Johnny!)
+`t87 Sword
+`t90 some bit vars
+;`t90: 0: had b-day today if YES (has aged)
+;`t90: 1: Wizard Castle upstairs pass
+;`t90: 2: Wizard Castle West Key
+;`t90: 3: Wizard Castle East Key
+;`t90: 4: Wizard Castle push 1
+;`t90: 5: Wizard Castle push 2
+;`t90: 6: Wizard Castle push 3
+;`t90: 7: Wizard Castle push 4
+`t91 Wizard Castle randomizer and SAVE.REF
+;`t92 "M"AP LOCATIONS
+;`t92: 0: arris training grounds
+;`t92: 1: team1
+;`t92: 2: team2
+;`t92: 3: team3
+;`t92: 4: team4
+;`t92: 5: team5
+;`t92: 6: MystVille
+;`t92: 7: GumTown
+;`t93 "M"AP LOCATIONS
+;`t93: 0: WoodLand UnderGround
+;`t93: 1: SharkTooth Island <--need to make it avail.
+;`t93: 2: Devil Island
+;`t93: 3:
+;`t93: 4:
+;`t93: 5: SwordCastle Cave Quest finished(SRDTOWER.REF)
+;`t93: 6:
+;`t93: 7:
+;`t94 dunno yet
+;`t95 dunno yet
+;`t96 dunno yet
+;`t97 dunno yet
+`t98 Not allowed to have (5=SmackRod 6=GryphonMoon, 7=both)
+`t99 1 = is with lover/date?
+
+;Global longint vars used
+`v01 reserved for @choice
+`v02 todays weather
+`v40 reserved
+`v03 0 = Normal play, 1 = Unlimited deaths
+`v04 Lucky Shrine?: 1 = Money, 2, hitpoint, 3, strength 4 defence, else
+ nothing.
+`v05 Turns per day given at each newday - 0 for unlimited.
+`v06 Clean mode - 1 is on
+`v07 Quests chances per day allowed
+`v08 Gambles per day allowed
+`v09 Level at which you can be attacked EVERYWHERE (inns even). 0 means never.
+`v10 How many days for 1 year
+`v11 Current Day # of the year
+`v12 Year #
+`v13 Days of pregnancy for women.
+`v14 Days to keep NPC dead for after being killed by a player.
+`v15 percent of TAXES. (default 15)
+`v16 Interest Rate
+`v17 How much gold to allow for over dues of taxes before put on bounty list.
+`v18 min age to start paying taxes. If under, do not calc it.
+`v19 Min starting age
+`v20 Max starting age
+`v30 Game Type (0=full CNW, 1=basic (no igm), 2=basic+npc, 3=?)
+`v39 reserved
+`v40 reserved for last int & longint query
+;Global string vars
+
+;none used yet, but `s01, `s02, `s03, `s04, `s05 and `s10 are RESERVED for
+;string math, etc.
+
diff --git a/xtrn/lord2/cnw/vaults.idf b/xtrn/lord2/cnw/vaults.idf
new file mode 100644
index 0000000000000000000000000000000000000000..de3e113474e623d99a5ec909a0602f29677d8cfc
Binary files /dev/null and b/xtrn/lord2/cnw/vaults.idf differ
diff --git a/xtrn/lord2/cnw/vaults.ref b/xtrn/lord2/cnw/vaults.ref
new file mode 100644
index 0000000000000000000000000000000000000000..83f828528c6928c7e6d2aa8a4be853c74720e3c5
--- /dev/null
+++ b/xtrn/lord2/cnw/vaults.ref
@@ -0,0 +1,461 @@
+; Script file VAULTS.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:40 2001
+
+@DECLARE banklist 000000840
+@DECLARE widthdraw 000002412
+@DECLARE deposit 000003013
+@DECLARE requestmore 000003113
+@DECLARE movegold3 000003213
+@DECLARE seegold 000003636
+@DECLARE seegold1 000003706
+@DECLARE fightguards 000006141
+@DECLARE win 000006749
+@DECLARE win2 000006890
+@DECLARE run 000007373
+@DECLARE movegold 000007663
+@DECLARE movegold1 000007758
+@DECLARE listvaults 000009291
+@DECLARE listtop 000009556
+@DECLARE endlist 000010246
+@DECLARE forcemove 000010388
+@DECLARE donequest 000010403
+@DECLARE nomore 000013498
+@NOCHECK
+; End of .REF index
+
+ @do `p30 is 14 <--Bank#
+ @do `v40 is 10000 <--amount to change
+ @routine deposit in vaults.ref
+; ^--or widthdraw
+;
+; Vaults of the realm!
+;
+
+@#BANKLIST
+@do `s01 is Secret`xVault`x#`p20
+@if `p20 is 1 then `s01 is Main`xVault`xin`xSysOp`xCastle
+@if `p20 is 2 then `s01 is 1st`xBank`xOf`xGreentree
+@if `p20 is 3 then `s01 is PortTown`xBank
+@if `p20 is 4 then `s01 is FlagCity`xBank
+@if `p20 is 5 then `s01 is SosinVillage`xBank
+@if `p20 is 6 then `s01 is ArrisVille`xBank
+@if `p20 is 7 then `s01 is The`x`1G`2u`3m`4-`5L`6a`7s`8s`x`%Financial`xInstitution
+@if `p20 is 8 then `s01 is Inside`xDomain`xBank ;<-slayer.ref
+@if `p20 is 9 then `s01 is Fortress`xOf`xFear`xBank
+@if `p20 is 10 then `s01 is RatVille`xBank
+@if `p20 is 11 then `s01 is MystVille`xBank
+@if `p20 is 12 then `s01 is Sword`xCastle`xBank
+@if `p20 is 13 then `s01 is Devils`xIsland`xBank
+@if `p20 is 14 then `s01 is Sand`xCity`xBank
+@if `p20 is 15 then `s01 is Shark`xTooth`xIsland`xBank
+@if `p20 is 16 then `s01 is Loki's`xInn`xBank
+@if `p20 is 17 then `s01 is Red`xDragon`xTown`xBank
+@if `p20 is 18 then `s01 is Bank`xOf`x`4Pyramid's`x`%Place
+@if `p20 is 19 then `s01 is Revenge`xBank
+@if `p20 is 20 then `s01 is Sword`xCastle`xBank
+@if `p20 is 21 then `s01 is WoodLand`xUnderground`xBank
+@if `p20 is 22 then `s01 is Bank`xof`xFortress`xFear
+@if `p20 is 23 then `s01 is BoneTown`xBank
+@if `p20 is 24 then `s01 is Bank`xof`xthe`xUnderGround`xPassage
+@if `p20 is 25 then `s01 is StonePass`xLodge
+@if `p20 is 26 then `s01 is Bank`xOf`xPhReAkS`xKeEp
+@if `p20 is 27 then `s01 is Cool`!NesS`%`xBank
+@if `p20 is 199 then `s01 is Monsters`xGold
+@if `p20 is 200 then `s01 is 1=Too`xMuch`xMoney,Lottery
+;
+;
+;
+
+@#widthdraw
+@dataload vaults.idf `p30 `p29
+@if `p29 < `v40 then do
+ @begin
+ @show
+
+
+ `2Sorry to say this s&sir, but we do not have the requested `$$`v40
+ `2funds in our vaults, you're going to have to go to another branch to
+ widthdraw that amount.
+
+ `2We've just made a request for more gold here, we should have enough
+ `2by most as of tommorow. Thanks for your patience.
+
+ @key
+ @routineabort
+ @routine requestmore
+ @drawmap
+ @update
+ @closescript
+ @end
+@do `p29 - `v40
+@datasave vaults.idf `p30 `p29
+
+
+@#deposit
+@dataload vaults.idf `p30 `p29
+@do `p29 + `v40
+@datasave vaults.idf `p30 `p29
+
+
+@#requestmore
+@dataload movegold.idf `p30 `p28
+@do `p28 + `v40
+@datasave movegold.idf `p30 `p28
+
+@#movegold3
+@do write
+`\ �`%Moving Requested Vault Money.`\
+@dataload vaults.idf 200 `p25
+@if `p25 > 1 then do ;<---Drop left over gold in Monsters Account
+ @begin
+ @dataload vaults.idf 199 `p24
+ @do `p24 + `p25
+ @datasave vaults.idf 199 `p24
+ @datasave vaults.idf 200 0
+ @end
+@do `p20 is 1
+@do `p25 is 1
+@do `p26 is 1
+@do `p27 is 0
+@do goto movegold1
+
+@#seegold
+@do `p20 is 1
+@do `p21 is 1
+@do `p28 random 6 1
+
+@label seegold1
+@do `p20 + 1
+@if `p20 > 198 then goto NOMORE
+@dataload movegold.idf `p20 `p21
+@if `p21 > 0 then do
+ @begin
+ @do saybar
+`%You see `p28 well dressed royal guards carrying heavy crates.`l`l`l`k
+ @do saybar
+`%Try to jump them and rob the contents of the crates? `@[y/N]`x
+ @do readspecial `s01 NY
+ @if `s01 is N then do
+ @begin
+ @do saybar
+`5You wave to them as they pass by you.
+ @closescript
+ @end
+ @if `s01 is Y then do
+ @begin
+ @do saybar
+`5You hide in the best spot possible and wait for them to pass you.`l`l`k
+ @do saybar
+`5You JUMP out with you s&weapon in your hands yelling as loud as you can`l`l`k
+ @if `p28 > 3 then do
+ @begin
+ @do `p22 random 6 1
+ @if `p22 < 4 then do
+ @begin
+ @do `p28 - `p22
+
+ @do saybar
+`5`p22 guards go running in the other direction.`l`l`k
+ @do `p20 random 10000 5000
+ @if bounty.&playernum exist true then do
+ @begin
+ @readfile bounty.&playernum
+`p23
+`p24
+@
+ @do delete bounty.&playernum
+ @do `p20 + `p24
+ @end
+ @writefile bounty.&playernum
+399
+`p20
+2
+@
+ @end
+ @do `p07 - 3
+ @do `p23 random 55 25
+ @do `p22 is `p28
+ @do `p22 * `p23
+ @do `p30 is `p28
+ @do `p30 * `p03
+ @do `p23 is `p28
+ @do `p23 * 5
+ @do `p24 is `p28
+ @do `p24 * 16
+ @do `p25 is `p28
+ @do `p25 * 22
+ @do `p26 is `p28
+ @do `p26 * 34
+ @do `p27 is `p28
+ @do `p27 * 41
+ @do `p29 is `p28
+ @do `p29 * 100
+ @run fightguards
+ @end
+ @closescript
+ @end
+@do goto seegold1
+
+@#fightguards
+@fight
+;name
+`p28 Royal Guards
+;string said when you see him
+`5You prepare to fight the `p28 royal guards.`l`l`k
+;power move kill string
+You laugh as you swing your s&weapon apon them.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+swipes you|`p23
+stabs you|`p24
+slashes you|`p25
+swings a sword at you|`p26
+bashes you|`p27
+;defense
+`p22
+;gold reward
+`p21
+;experience
+`p29
+;hit points
+`p30
+;if win: ref file|name or NONE
+vaults.ref|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+vaults.ref|RUN
+
+@#WIN
+;randomly put on bounty here, puts in today log
+@do `p07 - 2
+@dataload movegold.idf `p20 `p21
+@datasave movegold.idf `p20 0
+@label win2
+@do `p20 random 198 1
+@dataload vaults.idf `p20 `p22
+@if `p22 < `p21 then do
+ @begin
+ @datasave vaults.idf `p20 0
+ @do `p21 - `p22
+ @do goto win2
+ @end
+@do `p22 - `p21
+@datasave vaults.idf `p20 `p22
+@routine bankname
+@writefile lognow.txt
+ `5`s01 `%never received their requested money. It is believed that someone
+ managed to rob from the empire today.
+ `2-`0=`2-`%=`2-`0=`2-
+@closescript
+
+@#RUN
+;put in bounty list here
+@do `p20 random 10000 5000
+@if bounty.&playernum exist true then do
+ @begin
+ @readfile bounty.&playernum
+`p23
+`p24
+ @do delete bounty.&playernum
+ @do `p20 + `p24
+ @end
+@writefile bounty.&playernum
+399
+`p20
+2
+@closescript
+
+@#movegold
+@do `p20 is 1
+@do `p24 is 0
+@do `p25 is 0
+@do `p26 is 1
+@do `p27 is 0
+
+@label movegold1
+@do `p20 + 1
+@do `p26 + 1
+@if `p20 > 198 then goto NOMORE
+@dataload vaults.idf `p26 `p24
+
+@if `p24 < 0 then do ;<-- should not be less than 0
+ @begin
+ @datasave vaults.idf `p26 0
+ @end
+
+@if `p24 > 50000 then do
+ @begin
+ @do `p27 random 30000 1
+ @do `p24 - `p27
+ @datasave vaults.idf `p26 `p24
+ @dataload vaults.idf 1 `p24
+ @do `p24 + `p27
+ @datasave vaults.idf 1 `p24
+ @end
+
+@dataload movegold.idf `p20 `p21
+@if `p21 > 0 then do
+ @begin
+ @dataload vaults.idf 1 `p23
+ @if `p23 > `p21 then do
+ @begin
+ @do `p23 - `p21
+ @datasave vaults.idf 1 `p23
+ @dataload vaults.idf `p20 `p24
+ @do `p24 + `p21
+ @datasave vaults.idf `p20 `p24
+ @datasave movegold.idf `p20 0
+ @if `p25 is 1 then goto movegold1
+ @closescript
+ @end
+ @datanewday nomoregd.idf
+ @dataload nomoregd.idf 1 `p28
+ @if `p28 is 1 then do
+ @begin
+ @closescript
+ @end
+ @writefile lognow.txt
+`$King SysOp proclaims the realm vaults treasury is very low. We need
+`$more gold. The banks will not be getting any more funds until enough
+`$taxes are collected.
+ `2-`0=`2-`%=`2-`0=`2-
+
+ @datasave nomoregd.idf 1 1
+ @end
+@do goto movegold1
+
+@#listvaults
+@do move 1 1
+@clear screen
+@do `p20 is 0
+@do `p22 is 5
+@show
+ `r1 List of Gold in Realm Vaults `r0
+
+`8��������������������������������������������������������Ŀ
+`8� `7[please wait, checking records] `8�`\
+@label listtop
+@if `p22 > 22 then do
+ @begin
+ @do `p22 - 1
+ @do move 1 `p22
+ @do write
+`8����������������������������������������������������������
+ @do `p22 is 5
+ @key
+ @end
+@do `p20 + 1
+@if `p20 > 200 then goto endlist
+@dataload vaults.idf `p20 `p21
+@if `p21 > 0 then do
+ @begin
+ @routine banklist
+ @do `p22 - 1
+ @do move 1 `p22
+ @do `s02 is `p21
+ @do pad `s01 36
+ @do pad `s02 18
+ @do write
+`8�`!`s01`8�`$$`s02`8�`\
+ @do write
+`8� `7[please wait, checking records] `8�`\
+ @do `p22 + 2
+ @end
+@do goto listtop
+
+@label endlist
+@do move 1 `p22
+@do write
+`8����������������������������������������������������������
+@key
+@drawmap
+@update
+@closescript
+@#forcemove
+
+@#DONEQUEST
+@do `p20 is 0
+@do `p29 is &playernum
+@routine Treasure`xChest in extitems.ref
+@routine bitcheck in item99.ref
+@if `p20 is 1 then do
+ @begin
+ @dataload sysopdes.idf &playernum `p21
+ @if `p21 is `p30 then do
+ @begin
+ @dataload sysopqst.idf &playernum `p21
+ @if `p21 is 1 then do
+ @begin
+ @dataload sysopgld.idf &playernum `p22
+ @if money < `p22 then do
+ @begin
+ @do saybar
+`$You'd better get the full amount for the delivery before you enter.
+ @drawmap
+ @update
+ @closecript
+ @end
+ @do `p20 is `p30
+ @routine banklist
+ @show
+`r0`c `r1 `%`s01 `r0
+
+`2 The young clerk notices the royal crest of the SYSOP on the case you
+ are carrying.
+ `k
+`2 "Thanks, we've been expecting this, I hope it is all still all intact."
+`k
+`$ You pass the `$`p22 gold over to the clerk.
+`k
+ `5Your BONUS:
+ `#+4 Quest Points
+ `#+2000 Experience
+ `#+4 Alignment
+
+ @routine Treasure`xChest in extitems.ref
+ @routine bitcheck in item99.ref
+ @routine takeitem in item99.ref
+ @dataload sysopgld.idf &playernum `p22
+ @dataload sysopgld.idf &playernum 0
+ @datasave sysopdes.idf &playernum 0
+ @do `p01 + 2000
+ @do `p18 + 4
+ @do `p07 + 4
+ @do `v40 is `p22
+ @routine deposit in vaults.ref
+ @do money - `p22
+ @key bottom
+ @end
+ @if `p21 is 2 then do
+ @begin
+
+ @do `p20 is `p30
+ @routine banklist
+ @show
+`r0`c `r1 `%`s01 `r0
+
+`0 The young clerk notices the royal crest of the SYSOP on the case you
+ are carrying.
+ `k
+`2 "Thanks, we've been expecting you."
+`k
+`0 The clerk takes the chest into the back room for a few minutes. Brings
+ it back out, obviously it is heavier now.
+
+`2 "Here, take this chest back to the emperor SYSOP immedietely."
+
+`0 He passes the full chest over to you.
+ @dataload sysopgld.idf &playernum `p21
+ @datasave sysopdes.idf &playernum 0
+ @dataload vaults.idf `p20 `p27
+ @do `p27 - `p21
+ @datasave vaults.idf `p20 `p27
+ @do money + `p21
+ @datasave sysopqst.idf &playernum 3
+ @key bottom
+ @end
+ @end
+ @end
+@run bankstart in `s09.ref
+@#NOMORE
diff --git a/xtrn/lord2/cnw/vdhut.ref b/xtrn/lord2/cnw/vdhut.ref
new file mode 100644
index 0000000000000000000000000000000000000000..641f05b1abf0266129c833a3d584791a494abe13
--- /dev/null
+++ b/xtrn/lord2/cnw/vdhut.ref
@@ -0,0 +1,529 @@
+; Script file VDHUT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:23 2001
+
+@DECLARE hut 000001050
+@DECLARE hut123 000002137
+@DECLARE rudy1 000002507
+@DECLARE whodeath 000003014
+@DECLARE whatdo 000003802
+@DECLARE whatdo123 000004127
+@DECLARE doll 000005012
+@DECLARE leave 000005771
+@DECLARE punch 000006165
+@DECLARE goody 000006528
+@DECLARE bill 000006858
+@DECLARE fred 000006964
+@DECLARE insult1 000007140
+@DECLARE mikey 000007530
+@DECLARE treegirl 000008054
+@DECLARE tree 000008236
+@DECLARE cutdown 000009742
+@DECLARE purple 000010474
+@DECLARE seeya1 000011010
+@DECLARE sign 000011733
+@DECLARE invisible 000011789
+@DECLARE gossip 000012457
+@DECLARE end 000013423
+@NOCHECK
+; End of .REF index
+
+;The VooDoo Temple v2.0! This IGM is getting better and better!!!
+;Feel free to Learn and/or Use stuff from this .REF! I've ONLY USED:
+;REFHELP.DOC to create this IGM! Please do not modify anything in the
+;VDHUT.REF! That's our job! Thanx to Seth Able for making such a great game!
+;-VooDoo KnighT & �s�n�m�-
+
+@#hut
+@do moveback
+@clear screen
+@show
+
+`$ "Hello? Anyone here?" `2You say by entering the Temple/Hut like building.
+
+@key
+@clear screen
+@show
+[0m [1;30m���������[0m
+ [1;30m�����[0m[7C[1;30m��[0m
+ [1;30m�۲��[0m[8C[1;30m���[0m
+ [1;30m�۲���[0m[3C[31m�[37m [31m�[1;30m ���[0m
+ [1;30m۲����[0m[3C[31m [37m [1;30m [0m [1;30m [0;31m [1;30m���[0m
+ [1;30mܲ����� �[0m[3C[1;30m � [0;33m [1;30m����[0m
+ [1;30m۲����۰ �[0m[3C[1;30m [0m [1;30m � [0;33m [1;30m�����[0m
+ [1;30m۱������ � �� [0;33m [1;30m�����߲�� [0m
+ [5C[1;30m�����ܰ�����[0m[5C[1;30m� � ����[0m[5C[1;30m���[0m
+[5C[1;30mܲ��������� �[0m[6C[1;30m����[0m[12C[1;30m�[0m
+[3C[1;30mܲ���������� �[0m
+
+`0 "Hello child! What can I do for you?" `2a cloaked man says.
+
+`$ "Ugh! Damn your ugly!" `2you reply with a grin.
+
+`0 "Shut up kid! Or I'll kick your ass!" `2he answers.
+
+@do goto hut123
+@#hut123
+
+@DO `V01 is 1
+@choice
+Whatcha do around here?
+Can I have a VooDoo doll?
+About Rudy!?
+You're scary! I gotta go!
+@if response is 1 then do
+ @begin
+ @do goto whatdo
+ @end
+@if response is 2 then do
+ @begin
+ @do goto doll
+ @end
+@if response is 3 then do
+ @begin
+ @do goto rudy1
+ @end
+@if response is 4 then do
+ @begin
+ @do goto leave
+ @end
+
+@#rudy1
+@clear screen
+@show
+
+`0 "Rudy? Hell, that kid is one hell of a trouble maker! Mikey told me
+ earlier that he's been working on that damn Pentagram to summon some
+ Demon God! I think it's bullshit really, you can go check yourself if
+ you really want to! DeathShift is a myth, he doesn't exist!"
+
+@DO `V01 is 1
+@choice
+Who's DeathShift!?
+Cool!!!
+@if response is 1 then do
+ @begin
+ @do goto whodeath
+ @end
+@if response is 2 then do
+ @begin
+ @do goto whatdo123
+
+@#whodeath
+@clear screen
+@show
+
+`0 "Who's DeathShift!? Apperantly he's SUPOSE TO BE the person who created
+ evil! That is why APPERANLY he is consumed by the evil of all evil in
+ the universe! He carries this Staff Of Destruction with him all the time
+ and uses it to destroy traitors, good people and people who challenge
+ him in a dual! But it's all a myth! DeathShift doesn't exist! If he does
+ or EVER DID we'd all be dead by now!" `2the cloaked man explains.
+
+`$ "Cool!"
+
+`0 "That's not cool! That's stupid! You have to be really stupid to
+ believe DeathShift exists! There's no such things as a DEMON GOD! If
+ you wanna believe in something, believe in the `4RED DRAGON `0and not
+ some myth!"
+
+@key
+@do goto whatdo123
+
+@#whatdo
+@clear screen
+@show
+
+`0 "What we do? We do lot's of things! Human sacrifice, controlling people's
+ minds, poking needles into little dolls... make cheese... you know,
+ all the fun stuff the life of VooDoo has to offer!" `2the cloaked figure
+ says with a smile.
+
+@key
+@do goto whatdo123
+@#whatdo123
+@clear screen
+@show
+[0m [1;30m���������[0m
+ [1;30m�����[0m[7C[1;30m��[0m
+ [1;30m�۲��[0m[8C[1;30m���[0m
+ [1;30m�۲���[0m[3C[31m�[37m [31m�[1;30m ���[0m
+ [1;30m۲����[0m[3C[31m [37m [1;30m [0m [1;30m [0;31m [1;30m���[0m
+ [1;30mܲ����� �[0m[3C[1;30m � [0;33m [1;30m����[0m
+ [1;30m۲����۰ �[0m[3C[1;30m [0m [1;30m � [0;33m [1;30m�����[0m
+ [1;30m۱������ � �� [0;33m [1;30m�����߲�� [0m
+ [5C[1;30m�����ܰ�����[0m[5C[1;30m� � ����[0m[5C[1;30m���[0m
+[5C[1;30mܲ��������� �[0m[6C[1;30m����[0m[12C[1;30m�[0m
+[3C[1;30mܲ���������� �[0m
+
+@show
+`0 "Anything else? I'm a really busy man, so make it quick!"
+
+@do goto hut123
+
+@key
+@drawmap
+@update
+@closescript
+
+@#doll
+@clear screen
+@show
+
+`0 "Listen kid, these aint your usual Barbie dolls here... these are genuine
+ VooDoo dolls and I only have 1 left in stock! I was expecting a delivery
+ yesterday except he got killed and no one else wants to take his job!
+ I'm not expecting anything until version 3.0 of THE VOODOO TEMPLE!"
+
+`$ "Have anything else buddy?"
+
+`0 "Hey `n`0, do I look like I'm running a TOY STORE? Now get
+`0 out of here before I shove that s&weapon `0up your ass!"
+
+`2 After being kicked out from the Temple you elevate your middle digit in
+`2 his general direction while yelling obcenities about his mother. =)
+`2 You're lucky he didn't notice it!
+
+@key
+@drawmap
+@update
+@closescript
+
+@#leave
+@clear screen
+@show
+
+`2 The cloaked figure pokes you gently in the abdomen as you pass by him.
+
+`0How do you respond?
+@DO `V01 is 1
+@choice
+Punch him in the head
+Walk away
+Poke him back
+@if response is 1 then do
+ @begin
+ @do goto punch
+ @end
+@if response is 2 then do
+ @begin
+ @do goto goody
+ @end
+@if response is 3 then do
+ @begin
+ @do goto insult1
+ @end
+
+@#punch
+@clear screen
+@show
+
+`2 The old man falls to the floor with a THUD! You turn around and see
+ him picking up a doll from the floor and stick a needle through it's chest.
+ Suddenly you feel a pain in your chest...
+@do `p02 is 1
+@show
+
+
+ `4HIT POINTS REDUCED TO 1
+
+@key
+@drawmap
+@update
+@closescript
+
+@#goody
+@clear screen
+@show
+
+`2 After resisting the urge to respond with a "`%Heee Heee`2" You walk
+ out slowly grumbling to yourself about how your mother unfortunately
+ taught you to respect your elders.
+
+`0 The old man smiles as you walk out.
+@if `p55 is 5 then goto bill
+@if `p55 is 0 then goto fred
+@#bill
+@show
+
+`0 "Seeya around kid! Come back anytime!"
+
+@key
+@drawmap
+@update
+@closescript
+
+@#fred
+@do `p07 + 5
+@show
+
+ `%FOR BEING A GOOD SPORT AND PUTTING UP WITH HIM YOU GET 5 ALIGNMENT
+@do `p55 is 5
+@end
+
+
+@key
+@drawmap
+@update
+@closescript
+
+@#insult1
+@clear screen
+@show
+
+`2 You give him a slight jab in the stomach with your index finger and run
+ laughing.... No one around you finds it funny.
+
+ A little girl approaches you sobbing.
+`@ "How could you have done such a cruel thing to that man?"
+
+`2 You figure it must not have been that funny and appoligze.
+
+@key
+@drawmap
+@update
+@closescript
+
+@#mikey
+;It's Mikey! WOOHOO!
+@do `p70 is 22
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do `p20 random 4 1
+@if `p20 is 1 then saybar
+`0Mikey: `2Hi! I'm Mikey! Come visit our Master's temple!
+@if `p20 is 2 then saybar
+`0Mikey: `2Those STUPID thieves! They screwed up our Sign again!
+@if `p20 is 3 then saybar
+`0Mikey: `2VooDoo KnighT & �s�n�m� ... what else can they come up with?!
+@if `p20 is 4 then saybar
+`0Mikey: `2WOAH! I heard Rudy is communicating with a Demon God!
+@end
+
+@#treegirl
+;Who's she?
+@do `p70 is 23
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@DO SAYBAR
+`0Aerith: `2Is it just me? Or is that tree talking?
+@end
+
+@#tree
+@do moveback
+@clear screen
+@show
+
+[0m[35m ܰ��������۲������[37m
+[35m��������۲�����۰���[37m
+[35m�������[43m�[40m�[33m�[35m��[43m�[40m��۰���[37m
+[35m ߰������[33m��[35m��������[37m
+[7C[33m�۲۲�[37m
+[7C[33m�[30;43m� ��[33;40m [37m
+[6C[33m�۲۲�[37m[4C[1;32m"Hi there! I'm Purple!"[0m
+[6C[33m[30;43m���[33;40m�[37m
+[7C[33m�۲���[37m
+[7C[33m�۲۲[37m
+[7C[33m۲�۲[37m
+[6C[33mܲ۲۲�[37m
+
+`$ "What in Barak's tail??? A talking tree?"
+
+`0 "What? You never saw a talking tree before?" `2says the tree.
+
+`$ "I never knew Trees could talk!?"
+
+`0 "Maybe we just have nothing to say! Have you ever thought of that?"
+@key
+@clear screen
+@show
+
+`$ "So you're saying the trees around my house can all talk, and the only
+ reason they aren't saying anything to me is because they have nothing to
+ say?"
+
+`0 "Exactly!"
+
+`$ "So why didn't the tree my dad cut down last Christmas scream for mercy
+ when we chopped him down and hanged lotta crap on his branches?"
+
+`0 "Maybe he enjoyed it! You have no clue what we Trees have in our minds!"
+
+`$"Let's change subject ok? Umm..."
+@DO `V01 is 1
+@choice
+Can I cut you down?
+You're really purple aren't you?
+I hear my mom calling me! Seeya!
+@if response is 1 then do
+ @begin
+ @do goto cutdown
+ @end
+@if response is 2 then do
+ @begin
+ @do goto purple
+ @end
+@if response is 3 then do
+ @begin
+ @do goto seeya1
+ @end
+
+@#cutdown
+@clear screen
+@show
+
+`0 "Cut me down with your s&weapon`0??? You gotta be kidding!"
+
+`$ "Fine... be that way! I was going to give you a better place to live
+ right beside my house!"
+
+`0 "Sorry! But these morons from the VooDoo cult think I'm some kind of god
+ and they gimme lotta respect! Especially this girl called Aerith... she's
+ one hot momma! I like having her around me!"
+
+`$ "You're the hornyest Tree I've ever seen in my life!"
+
+`0 "Shut up kid! Why don't you make like a tree and leave!"
+
+`$ "Hehehe! That's a good tree joke!"
+
+`0 "It wasn't a joke..."
+
+`2 You decide to leave the talking tree alone...
+
+@key
+@drawmap
+@update
+@closescript
+
+@#purple
+@clear screen
+@show
+
+`0 "Yes I am! Lady Aerith comes to visit me everyday and decided to name me
+ Purple! Ain't she sweet?"
+
+`$ "That's the best she could come up with?"
+
+`0 "Well at least she has better taste than your fat momma! What kind of a
+ name is `n `0anyways?!
+
+`$ "I happen to like the name `n`$!"
+
+`0 "For an anoying little brat as yourself it wouldn't surprise me!"
+
+`$ "I think I'll go now... I have better things to do!"
+
+@key
+@drawmap
+@update
+@closescript
+
+@#seeya1
+@clear screen
+@show
+
+`0 "Seeya later kid! Be sure to come visit me when `7THE VOODOO TEMPLE v2.1
+`0 is out by the Ultimate LORD 2 IGM Duo: VooDoo KnighT & �s�n�m�."
+
+`$ "You mean the Ultimate LORD 2 IGM Duo who are currently making this IGM
+ so incredible it will beat the competition?"
+
+`0 "Of course! I'll be able to give out Gold and transport you to other
+ parts of the world, you'll be able to enter the VooDoo Temple and explore
+ whatever the Master has to offer, enter the Misty Mountains which Rudy is
+ guarding with his life and much more!
+
+`$ "Wow! Alright buddy! I'll be back in `7THE VOODOO TEMPLE v2.1`$!!!"
+
+@key
+@drawmap
+@update
+@closescript
+
+@#sign
+@DO SAYBAR
+`7VooDoo `4NIP`7ple `$--->
+
+@#invisible
+@do `p70 is 24
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 1 then goto end
+@clear screen
+@show
+[0m
+[7C[1;30m���������[0m
+[6C[1;30m�[0m[9C[1;30m�[0m[3C[32mSitting in a corner... is a friendly little Invisible Man![37m
+[5C[1;30m�[0m[3C[34m�[1;30m [0;34m�[1;30m [0m [1;30m�[0m[6C[1;32m [0m
+[4C[1;30m��[0m [1;30m [0m[8C[1;30m��[0m[3C[1;32m"Hey buddy! Wanna gossip?"[0m
+[4C[1;30m�[0m[13C[1;30m�[0m
+[5C[1;30m�[0m[11C[1;30m�[0m
+[6C[1;30m��[0m[7C[1;30m��[0m
+[8C[1;30m�[0m[5C[1;30m�[0m
+[7C[1;30m�[0m[7C[1;30m�[0m
+[6C[1;30m�[0m[9C[1;30m�[0m
+
+@key
+@do goto gossip
+@#gossip
+@do moveback
+@busy
+@clear screen
+@show
+`0
+`0 "I'll make sure whoever visits me gets the Good News"
+`0
+@if gossip.txt exist false then do
+ @begin
+ @writefile gossip.txt
+ `%Rudy `2: `0I've heard that our Master will open the GateWay soon!
+ @end
+
+@if gossip.txt exist true then do
+ @begin
+ @displayfile gossip.txt
+ @end
+
+@show
+
+@
+(Do tricky stuff with name to determine how much they can type)
+@DO `s04 is `%
+@DO `s04 add `n
+@DO STRIP `s04 <-- Strips all none color ` codes out
+@DO `s04 add `x`2:`x`0
+@DO `p20 is length `s04
+@DO `p21 is 76
+@DO `p21 - `p20
+@DO WRITE
+ `2Whatcha wanna Gossip about? Press `0ENTER `2to exit.`\ `s04
+@DO READSTRING `p21 NIL `s03 <--Read string, NIL is default. (nothing)
+@do stripbad `s03
+@SHOW
+
+@DO `p24 is length `s03
+@IF `p24 less 3 then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @writefile gossip.txt
+ `%`n`2 : `0`s03
+ @do trim gossip.txt 17
+ @drawmap
+ @update
+
+@#end
+;@drawmap
+@update
+@closescript
+
+;Programmed by VooDoo KnighT
+;Text & Jokes by �s�n�m� & VooDoo KnighT
+;Ansi by VooDoo KnighT
+;The VooDoo Temple is owned by KNiGHTSoFT(R)
diff --git a/xtrn/lord2/cnw/vehicle.ref b/xtrn/lord2/cnw/vehicle.ref
new file mode 100644
index 0000000000000000000000000000000000000000..a9660aef097c01a644e2b24462e3c232b237c925
--- /dev/null
+++ b/xtrn/lord2/cnw/vehicle.ref
@@ -0,0 +1,524 @@
+; Script file VEHICLE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:41 2001
+
+@DECLARE water 000001168
+@DECLARE checkcanoe 000001513
+@DECLARE horse 000002044
+@DECLARE checkhorse 000002176
+@DECLARE wagon 000002706
+@DECLARE checkwagon 000002840
+@DECLARE horsehp 000003305
+@DECLARE wagonhp 000003717
+@DECLARE mounth 000004190
+@DECLARE dismounth 000004915
+@DECLARE mountw 000005893
+@DECLARE dismountw 000005906
+@DECLARE clearwin 000005920
+@DECLARE feedhorse 000006325
+@DECLARE feed2 000007961
+@DECLARE feed3 000009748
+@DECLARE leave 000011307
+@DECLARE showhorse 000011346
+@DECLARE nomore 000012240
+@NOCHECK
+; End of .REF index
+
+; VEHICHLE.REF by Joel Gathercole
+;
+; CANOE : - RENT or BUY
+; - gets you passed many water spots
+;
+; HORSE : - must feed it or will die
+; - gives 2x default set amount of turns
+; - needed for a wagon
+; - can be obtained in QFORTRES.REF, BLDN.REF
+;
+; WAGON : - requires a horse for use.
+; - gives 3x default set amount of turns
+; - can break down if not maintained.
+; - NPCs will pay you for lifts to places.
+;
+; got more ideas?
+;
+;
+@#water
+;a spot where the player needs a boat/canoe/raft or something to pass.
+@dataload canoe.idf &playernum `p20
+@IF `p20 > 0 THEN DO
+ @BEGIN
+ @do saybar
+`%You take out your little rental canoe and jump in.
+ @do goto leave
+ @end
+@do moveback
+@do saybar
+`%You need some sort of boat to pass here.
+
+@#CHECKCANOE
+@do `p25 is `p20
+@do `p26 is `p20
+@do `p25 * 200
+@do `p26 * 5
+@do `p25 + `p26
+@if `p20 is 1 then `p25 is 0
+@do move 23 16
+@do write
+`x `x
+@do move 23 16
+@do write
+`2You owe Paul about
+@do move 23 17
+@do write
+`$$`p25 `2for the rent of
+@do move 23 18
+@do write
+`x `x
+@do move 23 18
+@do write
+the canoe.
+@do move 23 19
+@do write
+`% `x
+@do move 23 20
+@do write
+`% `x
+@key bottom
+@routine vehicles in items.ref
+
+@#HORSE
+@if bitcheck `t79 1 1 then do
+ @BEGIN
+ @do goto leave
+ @end
+@routine stats in gametxt.ref
+
+@#CHECKHORSE
+@clear screen
+@do move 4 1
+@display showhorse in vehicle.ref
+@if bitcheck `t79 1 1 then do
+ @BEGIN
+ @routine horsehp
+ @do move 47 16
+ @do write
+`2Your horse is `x
+ @do move 47 17
+ @do write
+`%`s02
+ @do move 47 18
+ @do write
+`5 Do you want to feed your horse?`%
+ @do move 49 19
+ @do `v01 is 1
+@choice
+`$Nah, he's fine `%
+`$Yes, he needs it`%
+@if responce is 2 then goto FEEDHORSE
+ @do goto leave
+ @end
+
+
+@#WAGON
+@if bitcheck `t79 2 1 then do
+ @BEGIN
+
+ @do goto leave
+ @end
+@routine stats in gametxt.ref
+
+@#CHECKWAGON
+@if bitcheck `t79 2 1 then do
+ @BEGIN
+ @routine wagonhp
+ @do move 23 16
+ @do write
+`2Your wagon is `x
+ @do move 23 17
+ @do write
+`%`s02
+@do move 23 18
+@do write
+`% `x
+@do move 23 19
+@do write
+`% `x
+@do move 23 20
+@do write
+`% `x
+ @key bottom
+ @do goto leave
+ @end
+@routine stats in gametxt.ref
+
+
+@#horsehp
+@if `t80 > 200 then `s02 is in`xperfect`xshape
+@if `t80 < 201 then `s02 is in`xgreat`xshape
+@if `t80 < 150 then `s02 is okay`xfor`xnow
+@if `t80 < 100 then `s02 is exausted
+@if `t80 < 50 then `s02 is very`xexausted
+@if `t80 < 20 then `s02 is on`xthe`xverge`xof`xdeath
+@if `t80 < 1 then do
+ @begin
+ @bitset `t79 1 0
+ @do `s02 is now`xdead
+ @end
+@do pad `s02 22
+
+@#wagonhp
+@if `t80 > 200 then `s02 is in`xperfect`xcondition
+@if `t80 < 201 then `s02 is in`xgreat`xcondition
+@if `t80 < 150 then `s02 is kinda`xdirty
+@if `t80 < 100 then `s02 is an`xaxel`xis`xbent
+@if `t80 < 50 then `s02 is missing`xwheels
+@if `t80 < 10 then `s02 is has`xno`xwheels
+@if `t80 < 1 then
+@if `t80 < 1 then do
+ @begin
+ @bitset `t79 2 0
+ @do `s02 is a`xpiece`xof`xgarbage
+ @end
+@do pad `s02 22
+
+;mount/dismount horse
+@#mounth
+@if bitcheck `t79 3 0 then do
+ @begin
+@bitset `t79 3 1
+@if `t80 is 0 then do
+ @begin
+ @do saybar
+`5You can't mount a dead horse!
+ @closescript
+ @end
+@if `t80 > 200 then do
+ @begin
+ @do `p20 is `p11
+ @do `p20 * 2
+ @do `p11 is `p20
+ @closescript
+ @end
+@if `t80 < 201 then do
+ @begin
+ @if `t80 < 50 then do
+ @begin
+ @do `p20 is `p11
+ @do `p20 / 5
+ @do `p11 + `p20
+ @closescript
+ @end
+ @do `p20 is `p11
+ @do `p20 / 2
+ @do `p11 + `p20
+ @closescript
+ @end
+ @end
+
+@#dismounth
+@if bitcheck `t79 3 1 then do
+ @begin
+ @bitset `t79 3 0
+@if `t80 is 0 then do
+ @begin
+ @do saybar
+`5You can't mount a dead horse!
+ @closescript
+ @end
+@if `t80 > 200 then do
+ @begin
+ @do `p20 is `p11
+ @do `p20 / 2
+ @do `p11 is `p20
+ @if `p11 < 1 then `p11 is 1
+ @closescript
+ @end
+@if `t80 < 201 then do
+ @begin
+ @if `t80 < 50 then do
+ @begin
+ @do `p20 is `p11
+ @do `p20 / 2
+ @do `p20 / 3
+ @do `p20 * 5
+ @do `p11 is `p20
+ @if `p11 < 1 then `p11 is 1
+ @closescript
+ @end
+ @do `p20 is `p11
+ @do `p20 / 2
+ @do `p20 / 3
+ @do `p20 * 4
+ @do `p11 is `p20
+ @if `p11 < 1 then `p11 is 1
+ @closescript
+ @end
+ @end
+
+;mount/dismount wagon
+@#mountw
+@#dismountw
+
+@#CLEARWIN
+@do move 47 16
+@do write
+`x `x
+@do move 47 17
+@do write
+`x `x
+@do move 47 18
+@do write
+`x `x
+@do move 47 18
+@do write
+`x `x
+@do move 47 19
+@do write
+`% `x
+@do move 47 20
+@do write
+`% `x
+
+@#FEEDHORSE
+@routine clearwin
+@do move 47 16
+@do write
+`5Feeding your horse:
+@do `v01 is 1
+@do move 47 20
+@do write
+`x `x
+@do move 47 19
+@do write
+`x `x
+@do move 47 18
+@do write
+`x `x
+@do move 47 17
+@choice
+>`i03 0 `% Milk `%
+>`i02 0 `% PoisonBerry `%
+>`i05 0 `% GreenPotion `%
+`% More `%
+@if responce is 4 then goto feed2
+@if responce is 1 then do
+ @begin
+ @routine clearwin
+ @do `i03 - 1
+ @do move 47 17
+ @do write
+`$Your horse drinks the warm milk.
+ @do move 47 18
+ @do write
+`$Your horse wants more milk!
+ @do quebar
+`$Horses love milk.
+ @do `t80 + 25
+ @key bottom
+ @do goto leave
+ @end
+
+@if responce is 2 then do
+ @begin
+ @routine clearwin
+ @do `i02 - 1
+ @do move 47 17
+ @do write
+`$Your horse eats up the cluster of berries.
+ @do move 47 18
+ @do write
+`$Was there any effect?
+ @do `t80 - 5
+ @if `t80 < 1 then do
+ @begin
+ @bitset `t79 1 0
+ @do `s02 is now`xdead
+ @end
+ @key bottom
+ @do goto leave
+ @end
+
+@if responce is 3 then do
+ @begin
+ @routine clearwin
+ @do `i05 - 1
+ @do move 47 17
+ @do write
+`$Your horse drinks up the GreenPotion.
+ @do move 47 18
+ @do write
+`$It seems to make little effect.
+ @do `t80 + 20
+ @key bottom
+ @do goto leave
+ @end
+
+@#FEED2
+@do `v01 is 1
+@do move 47 20
+@do write
+`x `x
+@do move 47 19
+@do write
+`x `x
+@do move 47 18
+@do write
+`x `x
+@do move 47 17
+@choice
+>`i01 0 `% WildBerries `%
+>`i18 0 `% Parrot `%
+>`i43 0 `% ChickenEgg `%
+`% More `%
+@if responce is 4 then goto feed3
+@if responce is 1 then do
+ @begin
+ @routine clearwin
+ @do `i01 - 1
+ @do move 47 17
+ @do write
+`$Your horse slurps the cluster
+ @do move 47 18
+ @do write
+`$of fresh berries.
+ @do `t80 + 20
+ @key bottom
+ @do goto leave
+ @end
+
+@if responce is 2 then do
+ @begin
+ @routine clearwin
+ @do `i18 - 1
+ @do move 47 17
+ @do write
+`$Your horse chokes on trying to eat
+ @do move 47 18
+ @do write
+`$that bird! Your horse jumps around wildly.
+ @do `t80 - 100
+ @if `t80 < 1 then do
+ @begin
+ @bitset `t79 1 0
+ @do `s02 is now`xdead
+ @end
+ @do quebar
+`$Hmm, I doubt the horse liked that parrot.
+ @key bottom
+ @do goto leave
+ @end
+
+@if responce is 3 then do
+ @begin
+ @routine clearwin
+ @do `i43 - 1
+ @do move 47 17
+ @do write
+`$Your horse swallows the egg whole.
+ @do move 47 18
+ @do write
+`$Your horse isn't moving.
+ @do `t80 - 20
+ @if `t80 < 1 then do
+ @begin
+ @bitset `t79 1 0
+ @do `s02 is now`xdead
+ @end
+ @do quebar
+`$Hmm, I doubt horses likes eggs.
+ @key bottom
+ @do goto leave
+ @end
+
+@#FEED3
+@do `v01 is 1
+@do move 47 20
+@do write
+`x `x
+@do move 47 19
+@do write
+`x `x
+@do move 47 18
+@do write
+`x `x
+@do move 47 17
+@choice
+>`i17 0 `% Gloworm `%
+>`i19 0 `% Apple `%
+>`i08 0 `% BerryPie `%
+`% None `%
+@if responce is 4 then goto leave
+@if responce is 1 then do
+ @begin
+ @routine clearwin
+ @do `i17 - 1
+ @do move 47 17
+ @do write
+`$Your horse sucks on the gloworm
+ @do move 47 18
+ @do write
+`$and finishes it completely.
+ @do `t80 + 5
+ @do quebar
+`$Your horse seems to have a slight glow now. hummf.
+ @key bottom
+ @do goto leave
+ @end
+
+@if responce is 2 then do
+ @begin
+ @routine clearwin
+ @do `i19 - 1
+ @do move 47 17
+ @do write
+`$Your horse quickly eats the apple.
+ @do move 47 18
+ @do write
+`$Looks like he likes it.
+ @do `t80 + 30
+ @do quebar
+`$Your horse loves apples.
+ @key bottom
+ @do goto leave
+ @end
+
+@if responce is 3 then do
+ @begin
+ @routine clearwin
+ @do `i08 - 1
+ @do move 47 17
+ @do write
+`$Your horse quickly eats the entire
+ @do move 47 18
+ @do write
+`$pie. Looks like he likes it.
+ @do `t80 + 50
+ @do quebar
+`$Your horse loved it, and is very energetic now.
+ @key bottom
+ @do goto leave
+ @end
+
+@#leave
+;@update
+@closescript
+
+@#showhorse
+`6 `8~.%(\_
+`6 `8~~*%%%%`6 ^\
+`6 `8~~*%%%%%`6 (`16`6 \
+`6 `8~~~*%%%%%`6 , \
+`6 `8...._ `8~~~*%%%%%`6 /"._ `8,`6',
+`6 `8~*%%%%\\ ,...`8~~~*%%%%%%%`6 / '-.-'
+`6 `8 ~.*%%% `6;' '"'"*%%%%@`6 /
+`6 `8 ~~*%%%' `6/ \
+`6 `8 ~~~*%%% `6| |
+`6 `8 ~~*%%' `6| . ' |
+`6 `8 ~~*%% `6 \ _ ' 't ,.')
+`6 `8 ~*%' `6 | y;- -,-""'"-\ \/
+`6 `8 ~*% `6 / ./ ) / '\/ \
+`6 |./ ( ( / /'
+`6 || \\ //'|
+`6 || \\ _//'||
+`6 || )) |_/ ||
+`6 \_\ |_/ ||
+`6 ''" \_\
+@#NOMORE
diff --git a/xtrn/lord2/cnw/version.dat b/xtrn/lord2/cnw/version.dat
new file mode 100644
index 0000000000000000000000000000000000000000..13c7398b82a9707c9ededb1af53d21054d9480d0
Binary files /dev/null and b/xtrn/lord2/cnw/version.dat differ
diff --git a/xtrn/lord2/cnw/voyage.ref b/xtrn/lord2/cnw/voyage.ref
new file mode 100644
index 0000000000000000000000000000000000000000..a632b19b663497edd17d145cf66d2147f9ea3cc3
--- /dev/null
+++ b/xtrn/lord2/cnw/voyage.ref
@@ -0,0 +1,436 @@
+; Script file VOYAGE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:23 2001
+
+@DECLARE seaman 000000747
+@DECLARE warning 000001001
+@DECLARE table1 000001509
+@DECLARE table2 000001765
+@DECLARE lostman 000001842
+@DECLARE chance 000002366
+@DECLARE shop 000002561
+@DECLARE start 000002613
+@DECLARE fightdem 000003150
+@DECLARE demrun 000003747
+@DECLARE beatdem 000003844
+@DECLARE enemy 000004461
+@DECLARE goneguy 000005742
+@DECLARE goneguy2 000005850
+@DECLARE gone 000005908
+@DECLARE sign1 000006671
+@DECLARE arstart 000006725
+@DECLARE poeda 000007114
+@DECLARE white 000007223
+@DECLARE skipwhite 000008276
+@DECLARE back 000008491
+@DECLARE table5 000008597
+@DECLARE dodge 000008682
+@NOCHECK
+; End of .REF index
+
+@#SEAMAN
+@do moveback
+@do `p20 random 2 1
+@if `p20 is 1 then saybar
+`!SeaMan:`%This IGM has a quest to complete...What are you waiting for?
+@if `p20 is 2 then saybar
+`!SeaMan:`%This IGM's quest is hard, in a physical way...You gotta be strong!
+
+@#WARNING
+@do `p70 is 36
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do `p20 random 3 1
+@if `p20 is 1 then saybar
+`!Spence:`%Only way out is through death, unless you actually complete igm.
+@if `p20 is 2 then saybar
+`!Spence:`%You get a MASSIVE prize if you can complete the igm.
+@if `p20 is 3 then saybar
+`!Spence:`%These monsters are a taste of what you see when you get in!
+@if `p20 is 4 then saybar
+`!Spence:`%This IGM was created By Spencer Vickers.
+@end
+@end
+
+@#table1
+@do moveback
+@if money more 300 then do
+ @begin
+@do saybar
+What do you know? There's nothing on the table!
+ @closescript
+ @end
+@do saybar
+`#There's 100000 gold pieces on the table,`%you manage pick up `$300! `0Woohoo!
+@do money + 300
+
+@#TABLE2
+@do saybar
+"Money doesn't grow on trees, or tables you know!"
+
+@#lostman
+@do `p70 is 37
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do `p20 random 5 1
+@if `p20 is 1 then saybar
+`!Lost Soul:`7There's warps all around the place!
+@if `p20 is 2 then saybar
+`!Lost Soul:`7It looked easy, It's hard!
+@if `p20 is 3 then saybar
+`!Lost Soul:`7I wish I could leave, but death doesen't come to me!
+@if `p20 is 4 then saybar
+`!Lost Soul:`7There are many blocks around too..
+@if `p20 is 5 then saybar
+`!Lost Soul:`7What's the colour of the sky again?
+@end
+
+@#CHANCE
+@do `p70 is 38
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`0Chance:`%These Monsters are only a taste of what you'll get in there!
+@end
+@end
+
+@#SHOP
+@offmap
+@do moveback
+@do `v01 is 1
+@label start
+@show
+`r0`c `1 Last Stop Shop
+
+`3 Okay, here are the items you may need to pass the igm. I say
+ Stock up now, because you'll never get a chance to stock up again
+ until you get out, if you get out......
+
+@do write
+`x`x
+@choice
+Check out his vast collection of items
+Get on your way
+@show
+`\
+@if response is 1 then do begin
+ @begin
+ @clear screen
+@buymanager
+64
+58
+39
+49
+60
+68
+62
+59
+36
+37
+66
+55
+40
+5
+@end
+
+if response is not 2 then goto start
+@drawmap
+@update
+
+@#fightdem
+@fight
+;name
+CAVE DEMON
+;string said when you see him
+You lunge at your `0s&weapon `2ready!
+;power move kill string
+You Lunge Your s&weapon
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Runs you threw with his sword|600
+Steps On You|750
+Tears off your leg|650
+NONE|NONE
+NONE|NONE
+;defense
+3500
+;gold reward
+10000
+;experience
+5000
+;hit points
+10000
+;if win: ref file|name or NONE
+VOYAGE.REF|BEATDEM
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;If runs: ref file|name or NONE
+VOYAGE.REF|DEMRUN
+
+@#demRUN
+@show
+`c `r1 THE CHALENGE `r0
+
+ `2"Ughaaabugghaaa!!!!"
+
+`k
+@DRAWMAP
+@UPDATE
+@#BEATDEM
+@do `s01 is BITCH
+@if `v06 is 1 then `s01 is punk
+;clean mode fix
+@show
+`c `r1 WOW YOU BEAT HIM! `r0
+
+
+ `$"Now, that we have completed the fight you are alowed to go and try to
+ go home!! Here, you also receive an additional:
+
+
+`! YOU RECEIVE 100 `# QUEST POINTS! `$Woohooo!!!
+`! YOU RECEICE 10 `# MUSLE POINTS! `$Wooohoo!!!
+`! YOU RECEIVE 5 `# DODGE POINTS! `$Wooohoo!!!
+`! YOU RECEIVE 7,500 `# EXPERIENCE! `$Wooohoo!!!
+
+
+`k
+@do `p04 + 10
+@do `p05 + 5
+@do `p01 + 7500
+@do `p18 + 100
+@do `t65 = 2
+@drawmap
+@update
+@end
+
+@#ENEMY
+@drawmap
+@update
+@if `t65 more 1 then do
+ @begin
+ @do saybar
+`2You walk over the Cave Demon's dead body.
+ @closescript
+ @end
+
+@do moveback
+@busy
+@show
+`r0`c `r1 CAVE DEMON `r0
+
+@if `t65 > 2 then do
+ @begin
+ @do `t65 < 2
+ @show
+
+`1 " Uggghaaaabugggaaa!!!! "
+ `$ Yelled the Cave Demon.
+
+ `! "I just want to get outa here!!"
+ `$ You say.
+
+`1 " Ugghabuga! "
+ `$ Yells back the Cave Demon.
+
+ `! " Okay then! Lets play! "
+ `$ You shout.
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Yes, Of course....
+I Guess we can play....
+@show
+
+ `! Uggghhaaaaabuggaaa!!!
+
+@end
+@show
+`r0`c Encounter With The Cave Demon
+
+ `3 "Ughaaaabugggaaa"
+
+ `$ Swore the cave demon
+
+`! "I'll Kill you for that remark!!!!"
+
+ `$ You call out
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Okay, I'm sure.... IT'S NOW OR NEVER!!
+Explore the caves, a bit more....
+@if response is 1 then do
+ @begin
+ @do goto fightdem
+ @end
+
+@if response is 2 then do
+ @do moveback
+ @drawmap
+ @update
+ @end
+
+@#goneguy
+@do saybar
+`bOnce you pass me you lose most of your items! Except your armor/weapons/food`k
+
+@#goneguy2
+@do saybar
+`4YOU WILL LOSE ALL SPECIAL ITEMS!
+
+@#gone
+@loadmap 1169
+@do X is 79
+@do Y is 11
+@do `i07 = 0
+@do `i08 = 0
+@do `i02 = 0
+@do `i12 = 0
+@do `i17 = 0
+@do `i18 = 0
+@do `i19 = 0
+@do `i20 = 0
+@do `i21 = 0
+@do `i22 = 0
+@do `i23 = 0
+@do `i24 = 0
+@do `i25 = 0
+@do `i26 = 0
+@do `i27 = 0
+@do `i28 = 0
+@do `i29 = 0
+@do `i30 = 0
+@do `i31 = 0
+@do `i32 = 0
+@do `i33 = 0
+@do `i33 = 0
+@do `i41 = 0
+@do `i42 = 0
+@do `i43 = 0
+@do `i44 = 0
+@do `i45 = 0
+@do `i46 = 0
+@do `i47 = 0
+@do `i48 = 0
+@do `i50 = 0
+@do `i51 = 0
+@do `i52 = 0
+@do `i53 = 0
+@do `i54 = 0
+@do `i55 = 0
+@do `i57 = 0
+@do `i61 = 0
+@do `i67 = 0
+@do `i72 = 0
+@do `i73 = 0
+@do `i83 = 0
+@do `i84 = 0
+@do `i85 = 0
+@do `i95 = 0
+@do `i96 = 0
+@do `i97 = 0
+@do `i98 = 0
+@do `i56 = 0
+@update
+@drawmap
+@end
+
+@#sign1
+@offmap
+@do moveback
+@do `v01 is 1
+@label arstart
+@show
+`r0`c `1 Sign Erected By One Of The Travelers
+`k
+
+`! If you have come this far, you must be a brave warrior...
+ This sign is a warning to those who are around here, a warp is
+ very near...... There is also a hole in the wall close by...
+ Watch out!!!!
+`k
+@do write
+`x`x
+@choice
+Get on your way, carefully.....
+
+@drawmap
+@update
+
+@#poeda
+@do moveback
+@do saybar
+`7Stephen:`0Walk on the Cave Demon to Get Home! (After You KILL It!!)
+
+@#white
+@do `p70 is 39
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@if bitcheck `t12 3 1 then do
+ @begin
+ @dataload npc/ellequst.idf &playernum `p23
+ @if `p23 > 210 then goto skipwhite
+ @do saybar
+`4`N `%: `2So, its you who knocked up Elle?`l`k
+ @do saybar
+`4Johnny `%: `2WHAT?`l`l`l who?`l`l who's Elle?`l`k
+ @do saybar
+`4`N `%: `2She's that chick in GreenTree, remember her?`l`k
+ @do saybar
+`4Johnny `%: `2Her!`l I don't even know her very well, we chatted for`l`k
+ @do saybar
+`4Johnny `%: `2a while in Red Dragon INN when I was there like 50`l`k
+ @do saybar
+`4Johnny `%: `2days ago.`l`k
+ @do saybar
+`4Johnny `%: `2I wanted to meet Violet's daughter!`l`k
+ @do saybar
+`4Johnny `%: `2I tell yah, it wasn't me!!`l`k
+ @do quebar
+`8< `$Interesting news, you should go tell Ma about this `8>
+ @datasave npc/ellequst.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+@label skipwhite
+@if `i19 more 0 then do
+ @begin
+@do saybar
+`4Johnny `0Appleseed`%:`!Go and use that apple wisely!
+ @closescript
+ @end
+@do saybar
+`4Johnny `0Appleseed`%:`!Hello, have an apple..
+@do `i19 + 1
+@end
+
+@#back
+@do moveback
+@do saybar
+`6Magical tree that takes you back to the maze. ( Only way 'out' )
+
+@#table5
+@do saybar
+`$Why do people always expect tables to give you something?
+
+@#dodge
+@do `p70 is 42
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do saybar
+`4Old Warrior:`2You should have over `$2500 `2dodge to even attempt the voyage!
+@end
diff --git a/xtrn/lord2/cnw/voyfite.ref b/xtrn/lord2/cnw/voyfite.ref
new file mode 100644
index 0000000000000000000000000000000000000000..23f40fc01ff56adbff1b1816d22d57baffa3e007
--- /dev/null
+++ b/xtrn/lord2/cnw/voyfite.ref
@@ -0,0 +1,302 @@
+; Script file VOYFITE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:23 2001
+
+@DECLARE monster1 000000416
+@DECLARE monster2 000000974
+@DECLARE monster3 000001560
+@DECLARE monster4 000002112
+@DECLARE monster5 000002682
+@DECLARE monster6 000003248
+@DECLARE monster7 000003844
+@DECLARE monster8 000004389
+@DECLARE monster9 000004945
+@DECLARE fight 000005522
+@NOCHECK
+; End of .REF index
+
+@#monster1
+@fight
+;name
+`n
+;string said when you see him
+"You Look kinda familiar?!" `$You say
+;power move kill string
+You find a new respect for yourself...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+hits with its s&weapon|100
+pounces you|94
+He hits himself..sorta|200
+NONE|NONE
+NONE|NONE
+;defense
+`p05
+;gold reward
+50
+;experience
+32
+;hit points
+`p02
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Spence
+;string said when you see him
+This guy looks like he knows what he's doing!
+;power move kill string
+Take that boy! Hahahaha
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Slices with his Koshi Sword|134
+Runs you through with his Dragon Sword|250
+Kicks you in the head|112
+NONE|NONE
+NONE|NONE
+;defense
+2000
+;gold reward
+19
+;experience
+12
+;hit points
+325
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Steve
+;string said when you see him
+`0Well, at least I can kill this guy!
+;power move kill string
+I guess so!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+smacks you with his crossbow|100
+hits with his longsword|76
+stabs hard with a dagger|92
+NONE|NONE
+NONE|NONE
+;defense
+2000
+;gold reward
+60
+;experience
+23
+;hit points
+234
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Hologram
+;string said when you see him
+`0"Is this for real?" `2 you say.
+;power move kill string
+Guess not.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+Jumps threw you|100
+Goes Invisible and starts hitting you|120
+Whips you up with a holographic whip you|230
+NONE|NONE
+NONE|NONE
+;defense
+2000
+;gold reward
+43
+;experience
+23
+;hit points
+1231
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Commando
+;string said when you see him
+`2You see a macho man with lots of advanced weaponry.
+;power move kill string
+Kick your ass!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+throws a grenade|144
+fires sniper rifle|102
+uses C4|121
+pulls off your arm|323
+Breaks your nose|121
+;defense
+2000
+;gold reward
+40
+;experience
+66
+;hit points
+300
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster6
+@fight
+;name
+Caecilius
+;string said when you see him
+`0"Hey, have you seen Quintus or Mettela?" `2you hear.
+;power move kill string
+`$"Go back to Rome"
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+nails you with a wax tablet|102
+volcano power!|230
+smashes you with a stick|121
+Gets Clemens to attack you|164
+NONE|NONE
+;defense
+2000
+;gold reward
+55
+;experience
+16
+;hit points
+400
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster7
+@fight
+;name
+The Powerful one
+;string said when you see him
+`0"I have the power" `2 you hear.
+;power move kill string
+`$"What power would that be?"`2
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+uses his power|234
+shakes the earth|178
+Screams|3210
+NONE|NONE
+NONE|NONE
+;defense
+2000
+;gold reward
+10
+;experience
+50
+;hit points
+2000
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster8
+@fight
+;name
+Spastic Chicken
+;string said when you see him
+`0"KFC!?!!I Kill you!!" `2 you hear.
+;power move kill string
+Lay an egg now!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits with his egg|150
+pecks out your eyes|134
+sticks a feater up your nose|124
+NONE|NONE
+NONE|NONE
+;defense
+1500
+;gold reward
+41
+;experience
+22
+;hit points
+222
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster9
+@fight
+;name
+Death Himself
+;string said when you see him
+`0"You are mine now..."
+;power move kill string
+`$"Looks like it wasn't my time after all!"
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+jabs you with his spear|321
+Hails the undead!|419
+rams his spear through your arm|234
+NONE|NONE
+NONE|NONE
+;defence
+3000
+;gold reward
+27
+;experience
+12
+;hit points
+2500
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+
+@#FIGHT
+@do `p20 random 12 1
+@if `p20 is 1 then do
+ @do saybar
+"Sorry, you ain't gonna find no people with travel potions in here!"
+@do `p20 random 9 1
+@do goto monster`p20
diff --git a/xtrn/lord2/cnw/wally.ref b/xtrn/lord2/cnw/wally.ref
new file mode 100644
index 0000000000000000000000000000000000000000..d0ba746b5177753365e78925a5923290ce73ccbc
--- /dev/null
+++ b/xtrn/lord2/cnw/wally.ref
@@ -0,0 +1,568 @@
+; Script file WALLY.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:39 2001
+
+@DECLARE start 000000568
+@DECLARE test 000001693
+@DECLARE insult 000002829
+@DECLARE explain 000003165
+@DECLARE one 000005031
+@DECLARE five 000005850
+@DECLARE done 000006644
+@DECLARE tired 000006823
+@DECLARE ten 000007105
+@DECLARE fifty 000007278
+@DECLARE sign 000007515
+@DECLARE unlimited 000007586
+@DECLARE broke 000008316
+@DECLARE unone 000008564
+@DECLARE unfive 000009314
+@DECLARE unten 000010035
+@DECLARE unfifty 000010136
+@NOCHECK
+; End of .REF index
+
+@#start
+@offmap
+@do moveback
+;<--Added by CNW-->
+;<must dismount hourse, could be a cheating tool>
+@routine dismounth in vehicle.ref
+@if `v05 > 0 then do
+ @begin
+ @do `p21 is `v05
+ @do `p21 / 24
+ @do `p21 * 3
+ @if `p11 < `p21 then do
+ @begin
+ @do saybar
+The library is locked. Try again tomorrow.
+ @closescript
+ @end
+ @end
+
+;<--only if unlimitted turns .. CNW-->
+
+@if `v05 is 0 then do
+ @begin
+ @datanewday wally.idf
+ @dataload wally.idf &playernum `p20
+ @if `p20 is 1 then do
+ @begin
+ @do saybar
+The library is locked. Try again tomorrow.
+ @closescript
+ @end
+ @end
+@clear screen
+@show
+
+ You enter a large room. The walls are lined with floor to ceiling
+bookshelves. A small man with large spectacles works quietly behind a desk.
+
+@do `v01 is 1
+@choice
+Leave before I disturb him.
+Approach the little man.
+@if response is 1 then do
+@begin
+@do goto done
+@end
+@do goto test
+@#test
+@clear screen
+@show
+[?7h[255D[9C[0;1;31m�� ��[7C[0;41m������������Ŀ[40m
+[7C[1;31;46m��[43m��[0;33;46m��[1;31;43m��[46m��[5C[0;41m�Quiet [40m[A
+[29C[41mPlease�[40m
+[6C[1;31;46m��[43m [46m��[4C[0;41m��������������[40m
+[6C[1;31;46m�[30;43m��Ŀ ��Ŀ[31;46m�[40m
+[7C[30;43m� [0;34;43m�[1;30m��Ĵ[0;34;43m� [1;30m�[40m
+[7C[43m����[0;30;43m��[1m����[2C[0;41m�������������������Ŀ[40m
+[8C[33;46m��[31;43m����[33;46m��[3C[37;41m�Do Not Remove Books�[40m
+[9C[33m������ [37;41m���������������������[40m
+[7C[1;34;46m����������[40m
+[6C[46m��[1C������[1C��[40m
+ [0;33m���������������������������������������
+ �������������������������������������
+ �������������������������������������[6C[1;37mThe little man looks up fro[A
+[72Cm his
+ [0;33m������������������������������������� [1;37mdesk. "Can I help you[A
+[63C?" he asks.
+
+@do `v01 is 1
+@choice
+What is this place?
+What are you? Some kind of gnome?
+@if response is 1 then do
+@begin
+@do goto explain
+@end
+@if response is 2 then do
+@begin
+@do goto insult
+@end
+
+@#insult
+@clear screen
+@show
+
+The little man's eyes grow very large. His face becomes very red. "I am most
+certainly NOT a gnome. I am a scholar and a philanthropist. You, however,
+are an uncouth barbarian. Please leave my establishment immediately!"
+
+@key
+@show
+
+Boy, he sure is touchy.
+
+@key
+@do goto done
+
+@#explain
+@clear screen
+@show
+
+ "This is Wise Wally's Public Library. I'm Wise Wally, and these are my
+books. I allow anyone to read them, but you must read them here. I will not
+allow my books to be removed from the Library."
+
+@key
+@do `v01 is 1
+@choice
+Sounds great. I'd like to read a book.
+No thanks. I'm not a book person.
+@if response is 2 then do
+@begin
+@do goto done
+@end
+@clear screen
+@show
+
+Several books catch your eye. Which one would you like to read?
+
+@do `v01 is 1
+@choice
+The Art of Battle, by Turgon
+Body Building, by D. Hulk
+Creative Defensive Maneuvers, by P. Mason
+How to Make Friends, by B. Nice
+@if response is 1 then do
+@begin
+@show
+
+The information in this book will give you experience.
+
+@key
+@do `p20 is 1
+@end
+
+@if response is 2 then do
+@begin
+@show
+
+The information in this book will improve your muscles.
+
+@key
+@do `p20 is 2
+@end
+
+@if response is 3 then do
+@begin
+@show
+
+The information in this book will give you raise your dodging abilities.
+
+@key
+@do `p20 is 3
+@end
+
+@if response is 4 then do
+@begin
+@show
+
+The information in this book will increase charm.
+
+@key
+@do `p20 is 4
+@end
+@if `v05 is 0 then goto unlimited
+@clear screen
+;<--Added by CNW-->
+@do `p21 is `v05
+@do `p21 / 24
+@do `p22 is `p21
+@do `p22 * 2
+@do `p23 is `p21
+@do `p23 * 3
+@do `p24 is `p21
+@do `p24 * 4
+@show
+
+Wally smiles as you make yourself comfortable and begin reading.
+
+How long will you study the book?
+@do `v01 is 1
+@choice
+>`p11 `p21 `% 1 hour `%
+>`p11 `p22 `% 2 hours `%
+>`p11 `p23 `% 3 hours `%
+>`p11 `p24 `% 4 hours `%
+@if response is 1 then do
+@begin
+@do goto ten
+@end
+@if response is 2 then do
+@begin
+@do goto fifty
+@end
+@if response is 3 then do
+@begin
+@do goto one
+@end
+@if response is 4 then do
+@begin
+@do goto five
+@end
+
+@#one
+@if `p11 < `p23 the do
+@begin
+@do goto tired
+@end
+@do `p11 - `p23
+@clear screen
+@if `p20 is 1 then do
+@begin
+@show
+
+You quickly read The Art of Battle by Turgon. You gain 100 experience.
+
+@do `p01 + 100
+@end
+
+@if `p20 is 2 then do
+@begin
+@show
+
+You quickly read Body Building by D. Hulk. You gain 1 muscle point.
+
+@do `p04 + 1
+@end
+
+@if `p20 is 3 then do
+@begin
+@show
+
+You quickly read Creative Defensive Manuevers by P. Mason. You gain 1
+dodge point.
+
+@do `p05 + 1
+@end
+
+@if `p20 is 4 then do
+@begin
+@show
+
+You quickly read How to Win Friends by B. Nice. You gain 1 charm point.
+
+@do `p08 + 1
+@end
+
+@key
+@clear screen
+@show
+
+ Wally smiles from behind his desk. "I'm glad you enjoyed the book.
+Please come again.
+
+@key
+@do goto done
+
+@#five
+@if `p11 < `p24 the do
+@begin
+@do goto tired
+@end
+@do `p11 - `p24
+@clear screen
+@if `p20 is 1 then do
+@begin
+@show
+
+You study The Art of Battle by Turgon. You gain 200 experience.
+
+@do `p01 + 200
+@end
+
+@if `p20 is 2 then do
+@begin
+@show
+
+You study Body Building by D. Hulk. You gain 2 muscle points.
+
+@do `p04 + 2
+@end
+
+@if `p20 is 3 then do
+@begin
+@show
+
+You study Creative Defensive Manuevers by P. Mason. You gain 2 dodge points.
+
+@do `p05 + 2
+@end
+
+@if `p20 is 4 then do
+@begin
+@show
+
+You study How to Win Friends by B. Nice. You gain 2 charm points.
+
+@do `p08 + 2
+@end
+
+@key
+@clear screen
+@show
+
+ Wally smiles from behind his desk. "I'm glad you enjoyed the book.
+Please come again."
+
+@key
+@do goto done
+
+@#done
+@clear screen
+@show
+
+ You quietly exit the library and return to your adventures.
+
+@key
+@datasave wally.idf &playernum 1
+@drawmap
+@update
+@closescript
+
+@#tired
+@clear screen
+@show
+
+ You realize that you are too tired to read. Perhaps you should come back
+tomorrow.
+
+@key
+@show
+
+You quietly exit the library and return to your adventures.
+
+@key
+@datasave wally.idf &playernum 1
+@drawmap
+@update
+@closescript
+
+@#ten
+@if `p11 < `p20 the do
+@begin
+@do goto tired
+@end
+@do `p11 - `p20
+
+@clear screen
+@show
+
+You quickly thumb through the pages.
+
+@key
+@do goto done
+
+@#fifty
+@if `p11 < `p22 the do
+@begin
+@do goto tired
+@end
+@do `p11 - `p22
+
+@clear screen
+@show
+
+ The book looks interesting. Perhaps you should come back sometime and
+read it more thoroughly.
+
+@key
+@do goto done
+
+@#sign
+@do moveback
+@do saybar
+Knowledge -->
+@closescript
+
+@#unlimited
+@clear screen
+@show
+
+ Since you have decided to read a book, you will need a quiet place to
+read. Wally rents his private reading room for $2 per turn.
+
+How long will you study the book?
+@do `v01 is 1
+@choice
+`% 1 hour `%
+`% 2 hours `%
+`% 3 hours `%
+`% 4 hours `%
+@if response is 1 then do
+@begin
+@if money < 100 then goto broke
+@do money - 100
+@do goto unten
+@end
+@if response is 2 then do
+@begin
+@if money < 250 then goto broke
+@do money - 250
+@do goto unfifty
+@end
+@if response is 3 then do
+@begin
+@if money < 500 then goto broke
+@do money - 500
+@do goto unone
+@end
+@if response is 4 then do
+@begin
+@if money < 1500 then goto broke
+@do money - 1500
+@do goto unfive
+@end
+@#broke
+@clear screen
+@show
+
+You realize that you aren't carrying that much money.
+
+@key
+@show
+
+You quietly exit the library and return to your adventures.
+
+@key
+@datasave wally.idf &playernum 1
+@drawmap
+@update
+@closescript
+
+@#unone
+@clear screen
+@if `p20 is 1 then do
+@begin
+@show
+
+You quickly read The Art of Battle by Turgon. You gain 100 experience.
+
+@do `p01 + 100
+@end
+
+@if `p20 is 2 then do
+@begin
+@show
+
+You quickly read Body Building by D. Hulk. You gain 1 muscle point.
+
+@do `p04 + 1
+@end
+
+@if `p20 is 3 then do
+@begin
+@show
+
+You quickly read Creative Defensive Manuevers by P. Mason. You gain 1
+dodge point.
+
+@do `p05 + 1
+@end
+
+@if `p20 is 4 then do
+@begin
+@show
+
+You quickly read How to Win Friends by B. Nice. You gain 1 charm point.
+
+@do `p08 + 1
+@end
+
+@key
+@clear screen
+@show
+
+ Wally smiles from behind his desk. "I'm glad you enjoyed the book.
+Please come again.
+
+@key
+@do goto done
+
+@#unfive
+@clear screen
+@if `p20 is 1 then do
+@begin
+@show
+
+You study The Art of Battle by Turgon. You gain 200 experience.
+
+@do `p01 + 200
+@end
+
+@if `p20 is 2 then do
+@begin
+@show
+
+You study Body Building by D. Hulk. You gain 2 muscle points.
+
+@do `p04 + 2
+@end
+
+@if `p20 is 3 then do
+@begin
+@show
+
+You study Creative Defensive Manuevers by P. Mason. You gain 2 dodge points.
+
+@do `p05 + 2
+@end
+
+@if `p20 is 4 then do
+@begin
+@show
+
+You study How to Win Friends by B. Nice. You gain 2 charm points.
+
+@do `p08 + 2
+@end
+
+@key
+@clear screen
+@show
+
+ Wally smiles from behind his desk. "I'm glad you enjoyed the book.
+Please come again."
+
+@key
+@do goto done
+@#unten
+@clear screen
+@show
+
+You quickly thumb through the pages.
+
+@key
+@do goto done
+
+@#unfifty
+@clear screen
+@show
+
+ The book looks interesting. Perhaps you should come back sometime and
+read it more thoroughly.
+
+@key
+@do goto done
diff --git a/xtrn/lord2/cnw/wampa.ref b/xtrn/lord2/cnw/wampa.ref
new file mode 100644
index 0000000000000000000000000000000000000000..bd2538f49966903680a468c7d0606e985b99b817
--- /dev/null
+++ b/xtrn/lord2/cnw/wampa.ref
@@ -0,0 +1,58 @@
+; Script file WAMPA.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:36 2001
+
+@DECLARE sign 000000226
+@DECLARE fight 000000332
+@DECLARE hike 000001025
+@DECLARE nomore 000001089
+@NOCHECK
+; End of .REF index
+
+@#SIGN
+@do moveback
+@do saybar
+`2The Wampa Ice-Creature is waiting for blood. I'd be careful here.
+
+@#FIGHT
+@datanewday wampa.idf
+@dataload wampa.idf &playernum `p20
+@if `p20 EQUALS 1 then goto hike
+
+@fight
+;name
+Wampa
+;string said when you see him
+`0"ROOOOOOOOOOORRRRRRRR!!!!! AAHHHAHAHA!!!."
+;power move kill string
+Obi-wan has taught you well!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+Roars at you|15
+Slashes at you|70
+Tears your head off|99
+NONE|NONE
+NONE|NONE
+;defense
+30
+;gold reward
+15000
+;experience
+800
+;hit points
+400
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+gametxt.ref|die
+;if runs: ref file|name or NONE
+NONE|NONE
+@datasave wampa.idf &playernum 1
+@closescript
+@end
+
+@#hike
+@do saybar
+`2He's dead Jim. Try again tomorrow.
+
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/warriors.ref b/xtrn/lord2/cnw/warriors.ref
new file mode 100644
index 0000000000000000000000000000000000000000..094937937d5cdb0bda0730fab7fb31d15718c2d1
--- /dev/null
+++ b/xtrn/lord2/cnw/warriors.ref
@@ -0,0 +1,335 @@
+; Script file WARRIORS.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:26 2001
+
+@DECLARE monster1 000000447
+@DECLARE monster2 000000997
+@DECLARE monster3 000001586
+@DECLARE monster4 000002189
+@DECLARE monster5 000002750
+@DECLARE monster6 000003318
+@DECLARE monster7 000003854
+@DECLARE monster8 000004409
+@DECLARE monster9 000004970
+@DECLARE monster10 000005587
+@DECLARE fight 000006157
+@NOCHECK
+; End of .REF index
+
+@#monster1
+@fight
+;name
+Bollocks Wanker
+;string said when you see him
+Watch out for that cactus-shaped anal probe.
+;power move kill string
+It's Kill or be Killed.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Slice and dices|318
+squeezes your crotch|525
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+34
+;gold reward
+2289
+;experience
+4122
+;hit points
+150
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Vampire Cult Member
+;string said when you see him
+`0I am `4Dracula`0. I will bite your nee-e-ee-ck.
+;power move kill string
+He eerily smiles as you take his life.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+burns you with his cross|576
+curses you|456
+bites your neck|645
+NONE|NONE
+NONE|NONE
+;defense
+49
+;gold reward
+3386
+;experience
+3398
+;hit points
+1312
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+gumtown2.REF|VAMPIRE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Mighty Morphing Power Ranger.
+;string said when you see him
+A coloured guy wobbles his head at you.
+;power move kill string
+The thing has just had its last transformation.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+Kung Fus You|598
+morphs into a crap and smells|1087
+morphs into a mong|427
+NONE|NONE
+NONE|NONE
+;defense
+23
+;gold reward
+2332
+;experience
+7189
+;hit points
+203
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+The Evil `1G`2u`3m`4-`5L`6a`7s`8s
+;string said when you see him
+Oh my god. It killed Kenny
+;power move kill string
+Oh, Kenny's OK.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+screws you up|1187
+bites you, bitch|1076
+Furrows his brows at you|992
+NONE|NONE
+NONE|NONE
+;defense
+600
+;gold reward
+10000
+;experience
+20000
+;hit points
+1000
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+The Pickpocket
+;string said when you see him
+Look over there!
+;power move kill string
+Get out of my pockets, butthole
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+gives you a knifing|570
+kicks you unaware|1180
+says nasty things about you|2560
+Sodomizes you|2355
+NONE|NONE
+;defense
+500
+;gold reward
+1245
+;experience
+9146
+;hit points
+1000
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+gumtown2.REF|thief
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster6
+@fight
+;name
+Starvin Marvin
+;string said when you see him
+It's an Ethanopean.
+;power move kill string
+Yeah I want Cheesy Poofs.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+chews on your leg|476
+bites your ear|587
+naws on you in the shin|320
+NONE|NONE
+NONE|NONE
+;defense
+80
+;gold reward
+525
+;experience
+245
+;hit points
+2
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster7
+@fight
+;name
+Dark Ghost
+;string said when you see him
+A shadow moves towards you with leugi speed.
+;power move kill string
+You showed it the flem.
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+gets in your eye|379
+gets in your Hair|90
+attacks your soul|112
+NONE|NONE
+NONE|NONE
+;defense
+35
+;gold reward
+2405
+;experience
+5135
+;hit points
+5120
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster8
+@fight
+;name
+Washed up boxer
+;string said when you see him
+I'll fight and I'll win
+;power move kill string
+`$"Better go back to the Dojo Wanker."
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+Jabs at you neck|85
+throws a lefty|97
+uses his ninja throwing stars|1105
+NONE|NONE
+NONE|NONE
+;defense
+38
+;gold reward
+950
+;experience
+1910
+;hit points
+115
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster9
+@fight
+;name
+Meat Cleaver
+;string said when you see him
+`2You hear a rusty sound.
+;power move kill string
+`$"Never thought I'd meet a beaver I didn't like."
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+you get infected|776
+makes big lettace marks in your neck|290
+calls upon his bladder to help|105
+eats part of your anatomy|397
+NONE|NONE
+;defense
+40
+;gold reward
+500
+;experience
+2130
+;hit points
+800
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster10
+@fight
+;name
+Pig Piggy Pig Pig
+;string said when you see him
+Eat pig piggy pig pig.
+;power move kill string
+`2I should've come here.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+uses some form of pig attack|482
+hits you with a wooden beam|264
+performs an elaborate trick|807
+NONE|NONE
+NONE|NONE
+;defense
+38
+;gold reward
+1350
+;experience
+5165
+;hit points
+530
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#FIGHT
+@do `p20 random 12 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@busy
+@do `p20 random 10 1
+@do goto monster`p20
diff --git a/xtrn/lord2/cnw/weelie.ans b/xtrn/lord2/cnw/weelie.ans
new file mode 100644
index 0000000000000000000000000000000000000000..89be0887783b0962d684134406380ad349a40804
--- /dev/null
+++ b/xtrn/lord2/cnw/weelie.ans
@@ -0,0 +1,18 @@
+[?7h[40m[2J[0;1;33m-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[s
+[u-=-=-=-=-=-=-=-=-=-=-=-=-=[2;1H[7C[37;47m�������[13C[33;42m���[40m
+[3;1H[7C[37;47m���������[11C[33;42m��[45m�[4;1H[8C[37;47m������[40m[s
+[u[47m����[9C[36;42m [D [D [D [D[37;40m====�[5;1H[9C[47m[40m[s
+[u[47m���������[9C[36;42m [D [D [D[3C[0;31m������[1;30m���[6;1H[s
+[u[12C[37;47m�������[8C[33;45m [D [D [D [D [D[0;31m��� [s
+[u[1;30m�����[7;1H[14C[37;47m������[3C[0;30m�[33m������[30m�[s
+[u[1;33;45m [D[0;30m�������[1m���[8;1H[16C[37;47m�����[2C[40m[s
+[u[0;30m���[1m���[0;30m��[1;33;45m [D[0;30m�[9;1H[23C� [1m�����[s
+[u[0;30m��[10;1H[23C���[1m���[0;30m���[11;1H[1;33m-=-=-=-=-=-=-=-=-=-[s
+[u=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=[12;1H
+[13;1H[0;32mHi I am Jon Piere.[14;1H[10CI really loved that salad [34mG[s
+[u[32mu[36mm[31m-[35mL[33ma[37ms[1;30ms[0;32m. thank you. When I go [s
+[uout[15;1Hnext I'll do a Weelie for you![16;1H[17;1H[18;1H <[1mMORE[s
+[u[0;32m>[19;1H[20;1H[21;1H[22;1H[23;1H[24;1H[25;1H[1;33;44mSY[40m[A
+[2C[44mSOP [32mLORD II: New World - Node 0 [40m[A
+[60C[44m [37m118:57 [40m
+[A[79C[44m
diff --git a/xtrn/lord2/cnw/wench.clr b/xtrn/lord2/cnw/wench.clr
new file mode 100644
index 0000000000000000000000000000000000000000..e237ebc5a9d10da2c229d4c5b14139b19268badd
--- /dev/null
+++ b/xtrn/lord2/cnw/wench.clr
@@ -0,0 +1,12 @@
+[?7h[255D[65C[0;33mܲ�۱�۲�
+[63C������۱���۲
+[62C��۲[1;31m�������[0;33m����
+[62C���[1;37m�[0;33m�[1;37m�[31m���[37m�[0;33m�[1;37m�[0;33m�۲
+[61C�۱�[1;31;41m���[40m�[41m�����[0;33m�۱��
+[60C���۲[1;31m���[41m�[40m�[41m�[40m���[0;33m�۱۲
+[60C߲��� [1;31m���[41m�[40m��� [0;33m۱۲�
+[60Cܲ۱� [1;31m��[37m���[31m�� [0;33m��۲�
+[60C������ [1;31m����� [0;33m����۲
+[61C���۲ [31m� �� [33m�۱�
+[60C[31m� [33m���[31m��� �[33m�۱� [31m�
+[59C� ��[33m�� [31m� � �� �[33m��[31m��
diff --git a/xtrn/lord2/cnw/wgrave.ref b/xtrn/lord2/cnw/wgrave.ref
new file mode 100644
index 0000000000000000000000000000000000000000..8db53871131b3ea8a544f7fefc6c632fd124073b
--- /dev/null
+++ b/xtrn/lord2/cnw/wgrave.ref
@@ -0,0 +1,1033 @@
+; Script file WGRAVE.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:43 2001
+
+@DECLARE sign 000001649
+@DECLARE graverob 000001816
+@DECLARE gravenoway 000006905
+@DECLARE graveend 000006993
+@DECLARE digger 000007101
+@DECLARE talktop 000007183
+@DECLARE shack 000009482
+@DECLARE shacktop 000009541
+@DECLARE potionnoway 000013139
+@DECLARE potionbottom 000013254
+@DECLARE flirtbottom 000018472
+@DECLARE flirtnope 000018514
+@DECLARE flirtend 000018654
+@DECLARE warpback 000018801
+@DECLARE jimbob 000019048
+@DECLARE gravenowarp 000019288
+@DECLARE lemonaid 000019369
+@DECLARE juicetop 000019429
+@DECLARE lemonnope 000024647
+@DECLARE lemonbottom 000024899
+@DECLARE tjimbob 000026299
+@NOCHECK
+; End of .REF index
+
+;|-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|
+;|The Warrior's Graveyard IGM for Lord2 - The New World |
+;|-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|
+;|Ref notes: |
+;| |
+;|wgrave.ref - Copyright 1997 Lloyd Hannesson and Tech'n Software|
+;| http://www.techn.com/ - support@techn.com|
+;| -> The main Ref file for The Warrior's Graveyard |
+;|-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|
+;|Please! If you are gonna copy and of these routines, please let |
+;|me know by an email, or include my name in your docs :) |
+;|-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-|
+
+;------------------------------------------------------------
+
+@#sign
+;Sign found out front
+@do moveback
+@do saybar
+The Warrior's Graveyard - Keep Out!
+
+;------------------------------------------------------------
+
+@#graverob
+; Isn't grave robbing just plain bad?
+@do moveback
+@datanewday graverob.idf
+@dataload graverob.idf &playernum `p20
+@if `p20 is 1 then goto gravenoway
+@busy
+@do `v01 is 1
+@show
+ `r0`c `r1 The Open Grave `r0
+
+`2 While walking around you almost fall into a big hole that has been
+`2 dug into the ground.
+
+`$ "Hmm an open grave, I wonder why no one has covered up this body?"`2,
+`2 you think to your self.
+
+`$ "Gee, what should I do"`2, you ponder.
+
+`k
+`r0`c
+`2 Looking upon the Tombstone you read...
+`2
+ @do `p25 is 1 ; Temp variable for Gold
+ @do `p26 is 1 ; Temp variable for Gems
+ @do `p20 random 6 1
+@if `p20 is 1 then do begin
+ @begin
+ @show
+`0 ����������������������������
+`0 �� ��
+`0 � `2-=-=-`%Edward Drake`2-=-=-`0 �
+`0 � �
+`0 � `2A good man, who lived a short `0�
+`0 � `2life. Died by the hands of the `0�
+`0 � `2of the evil Barbarrion Syril. `0�
+`0 � `2 May He Rest In Peace. `0�
+`0 � �
+ @do `p25 is `p09
+ @do `p25 * 134
+ @do `p26 is 1
+ @end
+@if `p20 is 2 then do begin
+ @begin
+ @show
+`0 ����������������������������
+`0 �� ��
+`0 � `2-[ `%Sir Thomas of Marks `2]-`0 �
+`0 � �
+`0 � `2 This Valliant knight, who `0�
+`0 � `2 faught hard in every battle. `0�
+`0 � `2 Died by arrow of an archer, `0�
+`0 � `2while he slept. A tragic loss. `0�
+`0 � `2 May He Rest In Peace. `0�
+`0 � �
+ @do `p25 is `p09
+ @do `p25 * 120
+ @do `p26 is 2
+ @end
+@if `p20 is 3 then do begin
+ @begin
+ @show
+`0 ����������������������������
+`0 �� ��
+`0 � `2-[ `%Duke Osgood `2]-`0 �
+`0 � �
+`0 � `2 A good man, who lived a short `0�
+`0 � `2life. While walking through his`0�
+`0 � `2 castle one day, a Battle axe `0�
+`0 � `2 mysteriously fell and chopped `0�
+`0 � `2 him in two. A sad sad story. `0�
+`0 � `2 May They Rest In Two. `0�
+`0 � �
+ @do `p25 is `p09
+ @do `p25 * 160
+ @do `p26 is 1
+ @end
+@if `p20 is 4 then do begin
+ @begin
+ @show
+`0 ����������������������������
+`0 �� ��
+`0 � `2-[ `%Chelsea Crudz `2]-`0 �
+`0 � �
+`0 � `2She was a sinner. She sold `0�
+`0 � `2her body for a few measly `0�
+`0 � `2pieces of gold. She died from `0�
+`0 � `2a VD she caught from her goat. `0�
+`0 � `2 May She Rest In Peace. `0�
+`0 � �
+ @do `p25 is `p09
+ @do `p25 * 340
+ @do `p26 is 5
+ @end
+@if `p20 is 5 then do begin
+ @begin
+ @show
+`0 ����������������������������
+`0 �� ��
+`0 � `2-[ `%Lady Claria `2]-`0 �
+`0 � �
+`0 � `2A tragic loss to her family, `0�
+`0 � `2and all who knew her. Janet `0�
+`0 � `2Claria died giving birth to `0�
+`0 � `2her son Marcus. `0�
+`0 � `2 May She Rest In Peace. `0�
+`0 � �
+ @do `p25 is `p09
+ @do `p25 * 440
+ @do `p26 is 3
+ @end
+@if `p20 is 6 then do begin
+ @begin
+ @show
+`0 ����������������������������
+`0 �� ��
+`0 � `2-=-= `%Princess Scarlet `2=-=-`0 �
+`0 � �
+`0 � `2She died a quick death. `0�
+`0 � `2Sentenced to beheadment after `0�
+`0 � `2her husband found her in bed `0�
+`0 � `2with 3 other men! `0�
+`0 � `2 May She Rest In Pieces. `0�
+`0 � �
+ @do `p25 is `p09
+ @do `p25 * 290
+ @do `p26 is 2
+ @end
+@show
+`2`\ Do you want to rob this grave?
+@do write
+`x`x`x`x
+@do `v01 is 1
+@choice
+Yes
+No
+@if responce is 1 then do begin
+ @begin
+ @show
+`\`\
+`2 Slowly you reach down into the grave as not to be seen. You slip
+`2 your hand into the corpse's pockets...
+
+`$ "Fool! Buried with all the riches intact!"`2, you think to yerself.
+
+`$ "No one will notice them missing I guess!!"
+
+`k
+
+`2 You find `$`p25`2 Gold and `5`p26 `2Gems in the pockets, way to go!
+
+`2 You also `4Lose 1 Alignment `2for being so evil!
+
+`k
+ @do money + `p25
+ @do `p19 + `p26
+ @do `p07 - 1
+ @datasave graverob.idf &playernum 1
+@do addlog
+ `r5 `r0 `0`n`2 has robbed a grave in `0The Warrior's Graveyard`2! `r5 `r0
+@do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @end
+@if responce is 2 then do begin
+ @begin
+ @show
+`\`\ `2You decide to be nice and let this body rest in peace...
+
+`k
+ @datasave graverob.idf &playernum 1
+ @end
+
+@drawmap
+@do goto graveend
+@label gravenoway
+ @do saybar
+Nah, I wouldn't try grave robbing again till tomorrow...
+@label graveend
+
+@update
+@closescript
+
+
+;------------------------------------------------------------
+
+@#digger
+; Talking to the gravedigger
+@do moveback
+@busy
+@do `v01 is 1
+@label talktop
+@pauseoff
+@show
+ `r0`c `r1 Talking to the Grave Digger `r0
+
+`2 You walk up to this dirty scarred man. Even though his outer
+`2 appearance is revolting, you can tell he has a warm heart by his
+`2 friendly smile.
+
+`2 "`0E'ye don't get many a visitor down here, what can I do you for?`2"
+`2 he asks. What should you talk about???
+
+@do write
+`x`x`x`x
+@do `v01 is 1
+@choice
+Who's the lucky person?
+Ghosts.
+Treasure.
+Old Hag
+Nevermind
+@if responce is 1 then do begin
+ @begin
+ @show
+ `r0`c `r1 Talking to the Grave Digger `r0
+
+`2 Who is this grave for you ask??? Well it's for `%`N!!
+`2 Hehehe just kidding. This is actualy a grave for the great warrior
+`2 Jim Bob Jones! People say that his generous soul is still roaming the
+`2 night, looking for a good deed or two to do. Consider yourself lucky
+`2 if you meet him.
+
+`k
+ @do goto talktop
+ @end
+@if responce is 2 then do begin
+ @begin
+ @show
+ `r0`c `r1 Talking to the Grave Digger `r0
+
+`2 Ghosts yah say??? Well yah there are always a few ghosts to be found
+`2 in a Graveyard, you just hafta know where to look! I hear that a few
+`2 ghosts that have been seen here, have actually been friendly!
+
+`k
+ @do goto talktop
+ @end
+@if responce is 3 then do begin
+ @begin
+ @show
+ `r0`c `r1 Talking to the Grave Digger `r0
+
+`2 So you want me to tell you about treasure eh? Well alls I can tell you
+`2 is that most Great Warriors ask to be buried intact. That means all
+`2 their Weapons, Armor, and riches! Don't be Grave robbing tho, it's far
+`2 too dangerous for a Warrior like you.
+
+`k
+ @do goto talktop
+ @end
+@if responce is 4 then do begin
+ @begin
+ @show
+ `r0`c `r1 Talking to the Grave Digger `r0
+
+`2 Hmmmmm, the hag. What can I say about her that her looks don't explain
+`2 for themselves! As of late the Hag has taken a real likin' to the art
+`2 of Alchemy! Who knows what she can mix up. Legend has it that this Hag
+`2 wasn't always such a foul creature, people say that she once was even
+`2 more beautiful then the legendary Barmaid `5VIOLET!!!`2 The stories people
+`2 make up.
+
+`k
+ @do goto talktop
+ @end
+
+@pauseon
+@drawmap
+@update
+@closescript
+
+;------------------------------------------------------------
+
+@#shack
+;The Shack out back
+@do moveback
+@busy
+@label shacktop
+@do `v01 is 1
+@show
+ `r0`c `r1 In the Old Shack `r0
+
+`2 Upon entering the shack you are surprised to see another. But this
+`2 Hag's looks surprise you more! Not since `3Grizilda the Hun`2 have you
+`2 ever seen such a beastly looking woman. She greets you by saying
+`2 "`0Hi! I'm Helga! Who are you?`2". The stench of garlic on her breath is
+`2 quite overpowering.
+
+@do write
+`x`x`x`x
+@do `v01 is 1
+@choice
+Gossip with the Hag
+Ask the hag to make you a Potion
+=sex 0 Flirt with the hag
+Leave before you pass out
+@if responce is 1 then do begin
+ @begin
+ @show
+ `r0`c `r1 Gossiping with the Hag `r0
+
+`2 "`$So hag, is there anything new or cool you have to tell me. You must
+`$ know some nice juicy gossip don't you!?`2"
+
+`2 "`0Well there isn't anything to gossip about here, this is a Graveyard
+`0 if you haven't allready noticed.`2"
+
+`2 "`$Ummm ok, but there has to be something you can tell me, isn't there?`2"
+
+`2 "`0Well just that the 3 main ghosts that live here were asking about you
+`0 you should try to find them, I think they've taken a liking to you!`2"
+
+`2 "`$Ghosts!? Umm yah sure old woman...`2"`%
+
+`k
+
+ @do goto shacktop
+ @end
+@if responce is 2 then do begin
+ @begin
+ @show
+ @datanewday gravepot.idf
+ @dataload gravepot.idf &playernum `p20
+ @if `p20 is 1 then goto potionnoway
+ @show
+ `r0`c `r1 Getting a Potion `r0
+
+`2 "`$Hey Hag! What's that stuff you are making? It looks wierd!`2"
+
+`2 "`0This? Well this is my special recipe. It's not to stable, so it's
+`0 effects can't be guessed... It may be very good, or it may hurt you.
+`0 It's all up to you... do you want to try it or not?
+
+
+@do write
+`2 Do you want to take the chance? `5[`0Y`5/`0N`5] `2
+@do readspecial `s01 YN
+
+@if `s01 is Y then do
+ @begin
+ @show
+
+`2 You decide to take the chance, and try her potion... was this wise!?
+
+`2 You take the small glowing vile... it's murky contents swirl as you lift
+`2 it to your lips... you drink it down and...
+
+`L`L`L`k
+
+ @do `p20 random 8 1
+ @if `p20 is 1 then do begin
+ @begin
+ @show
+`2 You gain `%1 strength`2!!!`%
+
+`k
+ @do `p04 + 1
+ @end
+
+ @if `p20 is 2 then do begin
+ @begin
+ @show
+`2 You gain `%1 dodge`2!!!`%
+
+`k
+ @do `p05 + 1
+ @end
+
+
+ @if `p20 is 3 then do begin
+ @begin
+ @show
+`2 You gain `%1 charm`2!!!`%
+
+`k
+ @do `p08 + 1
+ @end
+
+ @if `p20 is 4 then do begin
+ @begin
+ @show
+`2 You lose `41 strength`2!!!`%
+
+`k
+ @do `p04 - 1
+ @end
+
+ @if `p20 is 5 then do begin
+ @begin
+ @show
+`2 You lose `41 dodge`2!!!`%
+
+`k
+ @do `p05 - 1
+ @end
+
+
+ @if `p20 is 6 then do begin
+ @begin
+ @show
+`2 You lose `41 charm`2!!!`%
+
+`k
+ @do `p08 - 1
+ @end
+
+ @if `p20 is 7 then do begin
+ @begin
+ @show
+`2 Your hit points are `%Maxed`2!!!`%
+
+`k
+ @do `p02 is `p03
+ @do `p02 * 2
+ @end
+
+ @if `p20 is 8 then do begin
+ @begin
+ @show
+`2 Your hit points are `%4Way Down`2!!!`%
+
+`k
+ @do `p02 is 1
+ @end
+
+@do addlog
+ `r5 `r0 `0`n`2 has tried a potion in `0The Warrior's Graveyard`2! `r5 `r0
+@do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+
+ @datasave gravepot.idf &playernum 1
+ @do goto potionbottom
+ @end
+
+@if `s01 is N then do
+ @begin
+ @show
+
+
+`2 You decide against the potion. Good choice! That stuff looks scary!`%
+
+`k
+ @do goto potionbottom
+ @end
+
+
+ @label potionnoway
+ @show
+
+
+`2 You decide against more potion... that stuff will kill yah!`%
+
+`k
+
+ @label potionbottom
+ @do goto shacktop
+
+@end
+
+@if responce is 3 then do begin
+ @begin
+ @datanewday graflirt.idf
+ @dataload graflirt.idf &playernum `p20
+ @if `p20 is 1 then goto flirtnope
+ @show
+ `r0`c `r1 Flirting with the Hag `r0
+
+`2 You take a good look at the Hag standing in front of you.
+`2 "`$Hmmm she doesn't look that bad`2", you think to yourself...
+
+`2 Either you've just eaten some `4F`5u`9n`0k`1y`2 mushrooms, or you are just
+`2 going crazy... The latter is probably more like it....
+
+`2 What do you want to do?
+
+@do write
+`x`x`x`x
+@do `v01 is 1
+@choice
+>`p08 0 Wink at her
+>`p08 3 Kiss her hand
+>`p08 5 Kiss her on the lips
+>`p08 7 Fondle her backside
+>`p08 9 Pull her closer
+>`p08 11 Tackle her to the ground
+Run Away!!!
+@if responce is 1 then do
+ @begin
+ @show
+ `r0`c `r1 Winking at the Hag `r0
+
+`2 You turn towards the Hag and give her a stong and meaningfull wink,
+`2 she notices this and smiles ear to ear!! Ewww what ugly rotten teeth
+`2 she has!
+
+`2 "`$Damnit! Go see the dentist wench!`2", you scream at her... she doesn't
+`2 seem to notice the insult though...
+
+`0 Your `@Charm`0 goes up by `%1.
+
+`k
+ @datasave graflirt.idf &playernum 1
+ @do `p08 + 1
+ @end
+@if responce is 2 then do
+ @begin
+ @show
+ `r0`c `r1 Kissing the Hag's hand `r0
+
+`2 You grab the Hag's hand and bring it to your mouth, it is all wrinkled
+`2 and covered with warts. You close your eyes as you kiss, you don't want
+`2 to throw up now!
+
+`2 You plant your kiss, and the Hag almost faints from excitment!
+
+`2 You spit out a few hairs that must of fallen off her hand when you kissed
+`2 it... What were you thinking!?
+
+`0 Your `@Charm`0 goes up by `%2.
+
+`k
+ @do `p08 + 2
+ @datasave graflirt.idf &playernum 1
+ @end
+@if responce is 3 then do
+ @begin
+ @show
+ `r0`c `r1 Kissing the Hag's Lips `r0
+
+`2 You look over and smile coyly at the Hag. She just stands there, looking
+`2 as gross and disgusting as usual...
+
+`2 You slowly saunter over, not wanting to rush, but never taking your eyes
+`2 off of the Hag.
+
+`2 She just stands there, all inocent looking, waiting for you to say what
+`2 you want to say...
+
+`2 You open your mouth, but you don't have anything to say...
+
+`2 You plant a large firm wet kiss on the Hag... Slime trickles out of your
+`2 mouth after you are done.
+
+`0 Your `@Charm`0 goes up by `%2.
+
+`k
+ @do `p08 + 2
+ @datasave graflirt.idf &playernum 1
+ @end
+@if responce is 4 then do
+ @begin
+ @show
+ `r0`c `r1 Grabbing the Hag's Ass `r0
+
+`2 You ask the Hag to show you something off of the shelf behind her, when
+`2 she finally has her back towards you, you slowly extend your hand and
+`2 grab her ass!
+
+`2 You slowly move your hand around, her loose flabby ass swaying with your
+`2 movements
+
+`2 The Hag turns around and licks her lips, like she wants more!
+
+`0 Your `@Charm`0 goes up by `%3.
+
+`k
+ @do `p08 + 3
+ @datasave graflirt.idf &playernum 1
+ @end
+@if responce is 5 then do
+ @begin
+ @show
+ `r0`c `r1 Grabbing the Hag's Ass `r0
+
+`2 You walk over to the hag, staring her directly in the eyes. You just
+`2 cut a little smile and pull her closer. The smell of unwashed skin
+`2 nearly makes you lose it, but you manage.
+
+`2 The Hag meakly looks you in the face and shyly smiles.
+
+`2 You run your hands all over her body, and gently kiss her neck all over,
+`2 she just moans and pulls you closer
+
+`2 When you think she has enough you push her away from you. You back off
+`2 totally disgusted with your actions!
+
+`0 Your `@Charm`0 goes up by `%3.
+
+`k
+ @do `p08 + 3
+ @datasave graflirt.idf &playernum 1
+ @end
+@if responce is 6 then do
+ @begin
+ @show
+ `r0`c `r1 Grabbing the Hag's Ass `r0
+
+`2 You slowly walk over to the hag looking at her and smiling
+
+`2 "`$So baby, do you ah... wanna do it!?`2", you ask
+
+`2 The Hag smiles and starts to open her dress
+
+`2 You tackle her, 15 minutes later you stand up and dust off your clothes.
+`2 You notice that the hag looks different!? She isn't ugly any more! In
+`2 fact she is the best looking gal you've seen in the realm!
+
+`2 "`0Thank you `&`N`0 for breaking the spell put on me!!
+
+`2 "`$Spell!? Please explain!`2"`%
+
+`k`k`%
+ `r0`c `r1 Learning the Truth `r0
+
+`2 "`0Well one day while walking through the forest, I saw this naked man
+`0 sitting there. I didn't know this at the time, but he had a very jelous
+`0 woman for a wife. He was just sitting there, and I wasn't doing anything,
+`0 so we ahh, well to make a long story short his jelous wife put this
+`0 terrible spell on me!`2"
+
+`2 "`$Gee that's awfull!`2", you exclaim. Just then the Hag starts to change
+`2 back into her gruesome self.
+
+`2 "`0You see, the spell is never totally broken`2"
+
+`0 Your `@Charm`0 goes up by `%4.
+
+`k
+ @do `p08 + 4
+ @datasave graflirt.idf &playernum 1
+ @end
+
+ @do addlog
+ `r5 `r0 `0`n`2 flirted with the Old Hag in the `0The Warrior's Graveyard`2! `r5 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+
+ @label flirtbottom
+
+ @do goto flirtend
+ @label flirtnope
+ @show ;Has allready flirted today
+
+
+`2 You think once a day is enough, you don't want to scare her!`%
+
+`k
+
+ @label flirtend
+ @do goto shacktop
+ @end
+
+@drawmap
+@update
+@closescript
+
+
+;------------------------------------------------------------
+
+@#warpback
+; Warp back from Jim Bob Jones
+@do x is 39
+@do y is 14
+@do map is 572
+@loadmap 572
+@do saybar
+You reappear in the graveyard as quickly as you vanished, strange!
+
+;------------------------------------------------------------
+
+@#jimbob
+; Warp to Jim Bob Jones
+@datanewday gravesec.idf
+@dataload gravesec.idf &playernum `p20
+@if `p20 is 1 then goto gravenowarp
+@do x is 78
+@do y is 7
+@do map is 572
+@loadmap 572
+@datasave gravesec.idf &playernum 1
+@label gravenowarp
+
+;------------------------------------------------------------
+
+@#lemonaid
+;The Lemon-Aid stand
+@do moveback
+@busy
+@label juicetop
+@do `v01 is 1
+@show
+ `r0`c `r1 At the Lemon-Aid stand `r0
+
+`2 You wander over to what seems to ba a Lemon-Aide Stand, and to
+`2 your suprise, That's what it is! You wonder what the heck a Lemon-Aide
+`2 Stand could be doing in the middle of a graveyard,
+
+`$ "Hmmm I wonder how much corpses drink!"`2, you think to yourself.
+
+`2 You stop yourself from laughing though, you don't want to hurt his
+`2 feelings.
+
+@do write
+`x`x`x`x
+@do `v01 is 1
+@choice
+Gossip with the Juice Seller
+Buy some aid
+Sign the comment sheet
+Get Outta Here!
+@if responce is 1 then do begin
+ @begin
+ @pauseoff
+ @show
+ `r0`c `r1 Talking to the Grave Digger `r0
+
+`$ "Who the hell buys yer juice man???? This is a graveyard dead people are
+`$ buried here if you didn't already know!!"`2, you scream!
+`k
+`0 "I know that!!!! What do you think I am stupid??? I make it fer the ghosts
+`0 that are here!!!"`2, says the man meakly.
+`k
+`$ "Ghosts??? of who???"`2, you ask. `0"Well the only ghosts that buy my
+`0 Lemon-Aid are Jim Bob Jones, and `4LAZ`3er ey`4E`2"
+`k
+`$ "Where do I find them old man?"`2, you ask.
+`k
+`0 "Well, you just have to know where to look I guess, the Ghosts are
+`0 real shy by nature. I wouldn't be suprised if there were more then the"
+`0 two that buy my juice!"`2, sayz the man...
+
+
+`k
+ @pauseon
+ @do goto juicetop
+ @end
+@if responce is 2 then do begin
+ @begin
+ @datanewday gravelem.idf
+ @dataload gravelem.idf &playernum `p20
+ @if `p20 is 1 then goto lemonnope
+ @pauseoff
+ @show
+ `r0`c `r1 Buying Lemon-Aid `r0
+
+`2 You look at the Lemon-Aid the Juice-Seller is pushing on you, and
+`2 say, "`$What the hell is in that stuff???? It almost looks green!?`2"
+
+`0 "Well it's Lemon-Aid! Duh. Why else would I be at a Lemon-Aid stand!?
+`0 That greenish tinge is from the special ingredient I add......It has
+`0 some weird effects, but the ghosts seem to like it."
+
+@if &money less 1000 then do begin
+ @begin
+ @show
+`2 Too bad you don't have the `01000`2 gold that the juice seller charges
+`2 for his `$Lemon-Aid`2. Ahh well get some cash and come back!
+
+`k
+ @do goto lemonbottom
+ @end
+@do write
+`2 Do you want to try the `$Lemon-Aid`2?? Only `01000`2 Gold! `5[`0Y`5/`0N`5] `2
+
+@do readspecial `s01 YN~
+
+@if `s01 is Y then do
+ @begin
+ @show
+
+`2 You take the sweet smelling `$Lemon-Aid`2, and swallow all of it. You cringe
+`2 at the taste, but you manage to hold the foul tasting liquid down.
+
+`2 You start to feel weird, you notice that.......
+`L`L`L
+ @do money - 1000
+ @do `p20 random 10 1
+ @if `p20 is 1 then do begin
+ @begin
+ @show
+`2 You gain `%1 strength`2!!!
+
+`2 "`$Damn! This Lemon-Aid is great!`2", you exclaim as you leave
+
+`k
+ @do `p04 + 1
+ @end
+ @if `p20 is 2 then do begin
+ @begin
+ @show
+`2 You lose `41 strength`2!!!
+
+`2 Your belly feels as though it's on fire! Maybe you should stay away
+`2 from `$Lemon-Aid for a while!
+
+`k
+ @do `p04 - 1
+ @end
+ @if `p20 is 3 then do begin
+ @begin
+ @show
+`2 You gain `%1 dodge`2!!!
+
+`2 "`$Damn! This Lemon-Aid is great!`2", you exclaim as you leave
+
+`k
+ @do `p05 + 1
+ @end
+ @if `p20 is 4 then do begin
+ @begin
+ @show
+`2 You lose `41 dodge`2!!!
+
+`2 Your belly feels as though it's on fire! Maybe you should stay away
+`2 from `$Lemon-Aid for a while!
+
+`k
+ @do `p05 - 1
+ @end
+ @if `p20 is 5 then do begin
+ @begin
+ @show
+`2 You gain `%1 charm`2!!!
+
+`2 "`$Damn! This Lemon-Aid is great!`2", you exclaim as you leave
+
+`k
+ @do `p08 + 1
+ @end
+ @if `p20 is 6 then do begin
+ @begin
+ @show
+`2 You lose `41 charm`2!!!
+
+`2 Your belly feels as though it's on fire! Maybe you should stay away
+`2 from `$Lemon-Aid for a while!
+
+`k
+ @do `p08 - 1
+ @end
+ @if `p20 is 7 then do begin
+ @begin
+ @show
+`2 You gain `%2 strength`2!!!
+
+`2 "`$Damn! This Lemon-Aid is great!`2", you exclaim as you leave
+
+`k
+ @do `p04 + 2
+ @end
+ @if `p20 is 8 then do begin
+ @begin
+ @show
+`2 You gain `%2 dodge`2!!!
+
+`2 "`$Damn! This Lemon-Aid is great!`2", you exclaim as you leave
+
+`k
+ @do `p05 + 2
+ @end
+ @if `p20 is 9 then do begin
+ @begin
+ @show
+`2 You gain `%3 strength`2!!!
+
+`2 "`$Damn! This Lemon-Aid is great!`2", you exclaim as you leave
+
+`k
+ @do `p04 + 3
+ @end
+ @if `p20 is 10 then do begin
+ @begin
+ @show
+`2 You gain `%2 charm`2!!!
+
+`2 "`$Damn! This Lemon-Aid is great!`2", you exclaim as you leave
+
+`k
+ @do `p08 + 2
+ @end
+
+ @datasave gravelem.idf &playernum 1
+ @do addlog
+ `r5 `r0 `0`n`2 has bought some `$Lemon-Aid`2 at `0The Warrior's Graveyard`2! `r5 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+
+ @end
+
+@if `s01 is N then do
+ @begin
+ @show
+
+`2 You decide not to take the chance... good idea!
+
+`k
+ @end
+
+@if `s01 is ~ then do
+ @begin
+ @show
+
+`2 You found the secret key! You lucky person....
+
+`k
+ @end
+
+ @pauseon
+ @do goto lemonbottom
+ @label lemonnope
+ @show
+ `r0`c `r1 Buying Lemon-Aid `r0
+
+`2 "`0Sorry! But if you drink too much of this stuff, you'll turn into a
+`0 ghost yourself!`2", says the Juice Seller
+
+`2 Damn, maybe you should try again tomorrow?
+
+`k
+ @label lemonbottom
+ @do goto juicetop
+ @end
+
+@if responce is 3 then do begin
+ @begin
+ @show
+ `r0`c `r1 Signing the Comment sheet `r0
+
+ `2You look at the comment sheet to see what others have said.
+
+ @if gracom.txt exist false then do
+ @begin
+ @writefile gracom.txt
+`%Jim Bob Jones`2 : `0This Juice rocks! I can't get enough!
+ `@Tanya`2 : `0I must agree, it is cool! And thirst quenching!
+ `%Gerorge`2 : `0I dont't like it when the wierd stuff happens tho...
+ `%Zeus`2 : `0Send your comments to support@techn.com
+ @end
+ @if gracom.txt exist true then do
+ @begin
+ @displayfile gracom.txt
+ @end
+ @show
+
+ @do `s04 is `%
+ @do `s04 add `n
+ @do strip `s04
+ @do `s04 add `x`2:`x`0
+ @do `p20 is length `s04
+ @do `p21 is 65
+ @do `p21 - `p20
+ @do write
+ `2Enter your comment (enter to quit)`\ `s04
+ @do readstring `p21 nil `s03
+ @do stripbad `s03
+
+ @do `p24 is length `s03
+ @if `p24 more 3 then do begin
+ @begin
+ @writefile gracom.txt
+ `%`n`2 : `0`s03
+ @do trim gracom.txt 20
+ @do addlog
+ `r5 `r0 `0`n`2 has left a comment at `0The Warrior's Graveyard`2! `r5 `r0
+ @do addlog
+ `2-`0=`2-`%=`2-`0=`2-
+ @end
+ @pauseon
+ @do goto juicetop
+ @end
+
+@drawmap
+@update
+@closescript
+
+;------------------------------------------------------------
+
+@#tjimbob
+;Jim Bob Jones
+@do moveback
+@do saybar
+I'll be able to help you in the next version!
+
+;------------------------------------------------------------
diff --git a/xtrn/lord2/cnw/wishwel2.ref b/xtrn/lord2/cnw/wishwel2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..b5c24d9f97491de368ced50954abcb1f79669661
--- /dev/null
+++ b/xtrn/lord2/cnw/wishwel2.ref
@@ -0,0 +1,442 @@
+; Script file WISHWEL2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:40 2001
+
+@DECLARE wishwell 000000436
+@DECLARE intro 000000471
+@DECLARE demandeargent 000000806
+@DECLARE choice 000001750
+@DECLARE nothing 000009173
+@DECLARE combat 000009392
+@DECLARE win 000010289
+@DECLARE run 000010420
+@DECLARE nomore 000010553
+@NOCHECK
+; End of .REF index
+
+;This is Wishing Well v1.2 by David Loranger [FieldSoft]
+
+@#WISHWELL
+@do moveback
+@busy
+@label intro
+@show
+`r0`c`% `r1 The Wishing Well `r0
+
+ `2Some legends say that when you throw some gold down a well and make a
+ wish, the wish sometimes realizes.
+
+ Will you throw some gold? [`0Y`2/`0n`2] :`\
+@do readspecial `s01 YN
+@if `s01 is N then do
+ @begin
+ @drawmap
+ @update
+ @closescript
+ @end
+@label demandeargent
+@show
+`r0`c`% `r1 The Wishing Well `r0
+
+ `2How much do you intend to throw down the well? (You have `$&money`2)
+@do write
+`\`\`x`xAmount :
+@do readnum 10
+@do `p20 is `v40
+@if `p20 less 0 then goto demandeargent
+@if `p20 is 0 then do
+ @begin
+ @show
+`r0`c`% `r1 The Wishing Well `r0
+
+ `2You finally decide to throw nothing
+
+`k
+ @drawmap
+ @update
+ @closescript
+ @end
+@if `p20 > money then do
+ @begin
+ @show
+`r0`c`% `r1 The Wishing Well `r0
+
+ `2You don't have that much! Trying to fool me isn't right! You'll soon
+ be punished...`\`\`k
+ @do `t76 + 5
+ @do money is 0
+ @drawmap
+ @update
+ @closescript
+ @end
+@do money - `p20
+@show
+`r0`c`% `r1 The Wishing Well `r0
+
+ `2You throw `$$`p20 down the well...
+@do `p22 is `p20
+@do `p22 / 100
+@if `p20 < 101 then do `p22 is 1
+@if `p22 > 1000 then do `p22 is 1000
+@do `p23 random 99 1
+@do `p24 random 999 1
+@label choice
+@show
+
+ `l`l`l`l
+ `2Then... `l`l`l`l`l`l`l`l
+
+ `2You think of what you shall wish for. You dreamed of so many things
+ before, but only a couple comes to your mind.
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Wish to be more `3Rich
+Wish to be more `3Strong
+Wish to be more `3Dexterous
+Wish to be more `3Beautiful
+Wish to be more `3Good
+Wish to be more `3Evil
+Wish to be more `3Experienced
+Wish to be more `3Resistent
+Wish to be more `3Morninger
+@if responce is 1 then do
+ @begin
+ @if `p23 < `t76 then goto combat
+ @if `p24 > `p22 then goto nothing
+ @do `p25 random 9 1
+ @do `p25 * `p20
+ @do money + `p25
+ @if `t76 < 60 then do `t76 is 70
+ @show
+`r0`c`% `r1 The Wishing Well `r0
+
+ `2You hear a little thingle up ahead, and as you look up, you see a rain
+ of gold pieces falling upon you. Your wish has been granted. As it stop
+ raining you start to pick them all!
+
+ You now are a lot richier, and you can hardly wait to get back to the
+ civilization to show off your whealth!
+
+ `%YOU GAIN `$$`p25`%!
+
+`k
+ @key
+ @do addlog
+ `0`n`2 has been granted a `%WISH`2 by the well!
+ @routine seperate in gametxt.ref
+ @do `t76 + 5
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 2 then do
+ @begin
+ @if `p23 < `t76 then goto combat
+ @if `p24 > `p22 then goto nothing
+ @do `p25 random &totalaccounts 1
+ @do `p04 + `p25
+ @show
+`r0`c`% `r1 The Wishing Well `r0
+
+ `2Suddenly, you feel your muscles swell under your skin. As you grip your
+ &weapon, you can feel that you could easily slay anything who could cross
+ you. As you look at your s&armor, you can see that it is more fit than
+ before.
+
+ Everyone's muscles you look at seems tiny compared to your bulging mass of
+ sheer strenght. You just feel superior.
+
+ `%YOU GAIN `p25 STRENGTH POINTS!
+
+`k
+ @key
+ @do addlog
+ `0`n`2 has been granted a `%WISH`2 by the well`2!
+ @routine seperate in gametxt.ref
+ @do `t76 + 5
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 3 then do
+ @begin
+ @if `p23 < `t76 then goto combat
+ @if `p24 > `p22 then goto nothing
+ @do `p25 random &totalaccounts 1
+ @do `p05 + `p25
+ @show
+`r0`c`% `r1 The Wishing Well `r0
+
+ `2Suddenly, you feel your muscles straighten up, as if they would totally
+ be in your control. As you watch you hand move and wave throuh the air,
+ you know you could be able to dodge about anything
+
+ Everyone you now look at seems to be so brash that they could fall when
+ walking upon grass. No one can possibly compare to your nimbleness
+
+ `%YOU GAIN `p25 DODGE POINTS!
+
+`k
+ @key
+ @do addlog
+ `0`n`2 has been granted a `%WISH`2 by the well`2!
+ @routine seperate in gametxt.ref
+ @do `t76 + 5
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 4 then do
+ @begin
+ @if `p23 < `t76 then goto combat
+ @if `p24 > `p22 then goto nothing
+ @do `p25 random &totalaccounts 1
+ @do `p08 + `p25
+ @show
+`r0`c`% `r1 The Wishing Well `r0
+
+ `2Suddenly, you instinctively know how to court and to talk to others. You
+ can now pretty knowledgeable in the ways of the speech. You could nearly
+ sell ice to an eskimoo.
+
+ All around you, the folks seems ugly, totally unable to talk correctly, even
+ unable to make a child stop crying.
+
+ `%YOU GAIN `p25 CHARM POINTS!
+
+`k
+ @key
+ @do addlog
+`0`n`2 has been granted a `%WISH`2 by the well`2!
+ @routine seperate in gametxt.ref
+ @do `t76 + 5
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 5 then do
+ @begin
+ @if `p23 < `t76 then goto combat
+ @if `p24 > `p22 then goto nothing
+ @do `p25 random &totalaccounts 1
+ @do `p07 + `p25
+ @show
+`r0`c`% `r1 The Wishing Well `r0
+
+ `2Suddenly, you feel lighter, more ready to bring the peace back to the
+ world. You could save a man in danger, rescue a young child, or bring
+ to justice those who lied. You... just feel as an angel in heaven!
+
+ You wonder why everyone whom you encounter seems to be just... more bad
+ than you, less whilling to undertake what you feel is right to.
+
+ `%YOU GAIN `p25 ALIGNEMENT!
+
+`k
+ @key
+ @do addlog
+ `0`n`2 has been granted a `%WISH`2 by the well`2!
+ @routine seperate in gametxt.ref
+ @do `t76 + 5
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 6 then do
+ @begin
+ @if `p23 < `t76 then goto combat
+ @if `p24 > `p22 then goto nothing
+ @do `p25 random &totalaccounts 1
+ @do `p07 - `p25
+ @show
+`r0`c`% `r1 The Wishing Well `r0
+
+ `2Suddenly, your mind races as all sorts of evil and wicked schemes goes
+ through your head. You can feel you are worth of leading entire armies
+ made to kill, rape and destroy. You dream of subduing entire town to your
+ greedy rules.
+
+ More over, you can see that all the others adventurers just have too much
+ feeling of goodness. Maybe there nothing after all!
+
+ `%YOU LOSE `p25 ALIGNEMENT!
+
+`k
+ @key
+ @do `t76 + 5
+ @do addlog
+ `0`n`2 has been granted a `%WISH`2 by the well`2!
+ @routine seperate in gametxt.ref
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 7 then do
+ @begin
+ @if `p23 < `t76 then goto combat
+ @if `p24 > `p22 then goto nothing
+ @do `p25 random &totalaccounts 1
+ @do `p18 + `p25
+ @show
+`r0`c`% `r1 The Wishing Well `r0
+
+ `2You suddenly feel you brain filling up with a lot of different things.
+ As you can see, those are parts of the life-experience of some fellow
+ adventurer, some evil, some good, but all are able of particular acts. Now
+ you feel yourself as good as they were...
+
+ As you retain all the new knowledge you just gain, you now are somewhat
+ better then every other adventurer, able to use the power of some ancient
+ mind.
+
+ `%YOU GAIN `p25 QUEST POINTS!
+
+`k
+ @key
+ @do `t76 + 5
+ @do addlog
+ `0`n`2 has been granted a `%WISH`2 by the well`2!
+ @routine seperate in gametxt.ref
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 8 then do
+ @begin
+ @if `p23 < `t76 then goto combat
+ @if `p24 > `p22 then goto nothing
+ @do `p25 random &totalaccounts 1
+ @do `p03 + `p25
+ @show
+`r0`c`% `r1 The Wishing Well `r0
+
+ `2Suddenly, you feel your skin becoming tougher, harder, as made of pure
+ steel. You also feel more resistent to blow in any forms, wheter slashing,
+ piercing, or bludgeoning. You can't think of how much you can now receive
+ damage without being killed or passing out.
+
+ You look forward as the next time you will meet danger, and that it won't
+ stand a chance against you now hardened body!
+
+ `%YOU GAIN `p25 HIT POINTS!
+
+`k
+ @key
+ @do `t76 + 5
+ @do addlog
+ `0`n`2 has been granted a `%WISH`2 by the well`2!
+ @routine seperate in gametxt.ref
+ @drawmap
+ @update
+ @closescript
+ @end
+@if responce is 9 then do
+ @begin
+ @if `p23 < `t76 then goto combat
+ @if `p24 > `p22 then goto nothing
+ @do `i57 + 1
+ @show
+`r0`c`% `r1 The Wishing Well `r0
+
+ `2You see a perfectly round stone appearing on the side of the well, as
+ pale as the moon. It is one of the fabled MoonStone!
+
+ `%YOU GAIN A MOONSTONE!
+
+`k
+ @key
+ @do `t76 + 5
+ @do addlog
+ `0`n`2 has been granted a `%WISH`2 by the well`2!
+ @routine seperate in gametxt.ref
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+@label nothing
+@show
+`r0`c`% `r1 The Wishing Well `r0
+
+
+ `l`l`l`l`2Nothing happens...`l`l`l`l
+
+ `2Well... It's true that you haven't thrown much either...
+
+`k
+@key
+@drawmap
+@update
+@closescript
+@label combat
+@do `p26 is s&wep_num
+@do `p26 * 3
+@do `p27 is s&arm_num
+@do `p27 * 2
+
+@do `p28 is `p01
+@do `p28 / 2
+@do `p29 is s&wep_num
+@do `p29 * 4
+@show
+`r0`c`% `r1 The Wishing Well `r0
+
+ `2As you make your wish, all hell break loose as a demon comes out of the
+ well and ATTACKS you !
+
+`k
+@key
+@drawmap
+@update
+@fight
+;name
+Demon
+;string said when you see him
+It seems more powerfull...!
+;power move kill string
+With an allmighty blow, you send him from where he comes!.
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+hits you|`P26
+bites you|`P26
+slaps you|`P26
+kicks you|`P26
+claws you|`P26
+;defense
+`p27
+;gold reward
+0
+;experience
+`p28
+;hit points
+`p29
+;if win: ref file|name or NONE
+WISHWELL.REF|WIN
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+WISHWELL.REF|RUN
+
+
+@#WIN
+@do addlog
+ `0`n`2 killed the `0`e of the well`2!
+@routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+
+
+@#RUN
+@do addlog
+ `0`n`2 fled the `0`e of the well`2!
+@routine seperate in gametxt.ref
+@drawmap
+@update
+@closescript
+
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/wishwell.ref b/xtrn/lord2/cnw/wishwell.ref
new file mode 100644
index 0000000000000000000000000000000000000000..03e74451ccdc9e2be83de2260a822507f6bfde6f
--- /dev/null
+++ b/xtrn/lord2/cnw/wishwell.ref
@@ -0,0 +1,96 @@
+; Script file WISHWELL.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:35 2001
+
+@DECLARE wellsign 000001002
+@DECLARE usewish 000001137
+@DECLARE gold 000001979
+@DECLARE nocash 000002144
+@DECLARE nowishes 000002295
+@NOCHECK
+; End of .REF index
+
+;
+; �� �
+; ��� � Wishing well v1.00a
+; ���� � By Michael Helliker of Mikerosoft Productions, fvhelm57@ucfv.bc.ca
+; �۲�� � Mikerosoft BBS, 604-864-8160, http://www.mindsedge.com/~mikerosoft
+; ��۲���
+;
+; *** NOTE ***
+;
+; I wrote this program in about 1 hour, it works fine over here, but not
+; everyones system is the same. So backup GAMETXT.REF and MAP.DAT before
+; installing this!
+;
+; To install Wishing well, simply uncompress it into your LORD2 directory
+; and run INSTWELL.EXE After that, wait until maintenance is run for
+; changes to take effect.
+;
+; If you like this little IGM (i guess you could call it that) and would
+; like to see more of them, drop me a note at fvhelm57@ucfv.bc.ca
+;
+
+@#wellsign
+ @do saybar
+`2Sign reads:`0 Wishing well, may all your dreams come true (only `$$5 `0gold)
+ @do moveback
+@CLOSESCRIPT
+
+@#usewish
+ @busy
+ @clearblock 21 21
+ @do move 3 21
+ @if `p50 < 1 then goto nowishes
+ @if money < 5 then goto nocash
+ @do write
+`r0 `2You stumble across an old wishing well, care to make a wish? (`0y`2/`0n`2)
+ @do readspecial `s01 YN
+ @if `s01 is N then do
+ @begin
+ @clearblock 21 21
+ @do move 3 21
+ @do write
+`r0`2 you decide to keep your money`L`L`L
+ @do statbar
+ @closescript
+ @end
+ @clearblock 21 21
+ @do move 3 21
+ @do write
+`r0 `2You drop `$$5 `2gold into the well...`L`L`L`L thud!`L`L
+ @do money - 5
+ @do `p50 - 1
+ @clearblock 21 21
+ @do move 3 21
+ @do write
+`r0 `2You think long and hard for a wish...`L`L`L`L`L
+ @do `p20 random 3 1
+ @if `p20 is 2 then goto gold
+ @do write
+`0 `2Nothing! Better luck tommorow!`L`L`L`L`L
+ @do moveback
+ @do statbar
+@CLOSESCRIPT
+
+@#gold
+ @do `p20 random 5 1
+ @do `p20 * 5
+ @do money + `p20
+ @do write
+`0 `2You gain `$$`p20 `2gold!`L`L`L`L`L
+ @do moveback
+ @do statbar
+@CLOSESCRIPT
+
+@#nocash
+ @do write
+`0 `2You dont have enough gold to make a wish! (`$$5 `2needed)`L`L`L`L
+ @do moveback
+ @do statbar
+@CLOSESCRIPT
+
+@#nowishes
+ @do write
+`0 `2You have already used your wish for today!`L`L`L`L
+ @do moveback
+ @do statbar
+@CLOSESCRIPT
diff --git a/xtrn/lord2/cnw/wizard.clr b/xtrn/lord2/cnw/wizard.clr
new file mode 100644
index 0000000000000000000000000000000000000000..b5ef5c54b4971cdc6abe68d6f7aeef2bf7faf530
--- /dev/null
+++ b/xtrn/lord2/cnw/wizard.clr
@@ -0,0 +1,13 @@
+[?7h[255D[65C[0;34m��������
+[63C�����������
+[61C��������������
+[59C�� [1;31m���������� [0;34m��
+[59C� [1;31m�[0;31m� [1;37m� [31m�� [37m� [0;31m�[1m� [0;34m�
+[60C��[31m����[1m����[0;31m���� [34m�
+[61C� [31m�� [1m���� [0;31m�� [34m�
+[62C� [31m�[1;37m�[30m�[31m��[30m�[37m�[0;31m� [34m��
+[61C�� [1;37m�[30;47m��[37;40m���[30;47m�[37;40m� [0;34m��
+[58C���� [1;37m�[30;47m�[37;40m� �[30;47m�[1C[0;34m� ���
+[62C� [1;37m� � [0;34m�
+[63C�[7C�
+[64C�[5C�
diff --git a/xtrn/lord2/cnw/wizcast.ref b/xtrn/lord2/cnw/wizcast.ref
new file mode 100644
index 0000000000000000000000000000000000000000..68b5d3db8242772140b4946f3389ed86d77fa045
--- /dev/null
+++ b/xtrn/lord2/cnw/wizcast.ref
@@ -0,0 +1,777 @@
+; Script file WIZCAST.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:21 2001
+
+@DECLARE sign 000001259
+@DECLARE violet 000001357
+@DECLARE sandtiger 000002321
+@DECLARE frontdoor 000003295
+@DECLARE start 000003412
+@DECLARE talking 000004939
+@DECLARE leave 000005199
+@DECLARE stay 000005295
+@DECLARE drink 000005785
+@DECLARE crazy 000006146
+@DECLARE yes 000006415
+@DECLARE no 000006978
+@DECLARE room 000007091
+@DECLARE ask 000007452
+@DECLARE whichroom 000007762
+@DECLARE eastwing 000008029
+@DECLARE westwing 000008207
+@DECLARE done 000008379
+@DECLARE broke 000008436
+@DECLARE eastdoor 000008541
+@DECLARE westdoor 000008645
+@DECLARE wrongkey 000008815
+@DECLARE rightkey 000008903
+@DECLARE nokey 000008975
+@DECLARE wrongeast 000009080
+@DECLARE notyet 000009662
+@DECLARE yet 000009829
+@DECLARE upstairs 000010071
+@DECLARE yesmaze 000011096
+@DECLARE mazegate 000011374
+@DECLARE up 000011820
+@DECLARE first 000011849
+@DECLARE second 000012297
+@DECLARE third 000012745
+@DECLARE fourth 000013194
+@DECLARE fifth 000013642
+@DECLARE sixth 000014090
+@DECLARE seventh 000014540
+@DECLARE eighth 000014989
+@DECLARE ninth 000015437
+@DECLARE people 000015886
+@NOCHECK
+; End of .REF index
+
+;
+;
+; Bug fixes by CNW
+;
+
+@#sign
+@do moveback
+@do saybar
+The path to Wizard's Castle is near here, can you find it?
+
+@#violet
+@do `p70 is 103
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do `p20 random 9 1
+@if `p20 is 1 then saybar
+`%Violetta: `0Sleeping on the West side is more restful!
+@if `p20 is 2 then saybar
+`%Violetta: `0Remember to ask the Wizard about the maze upstairs!
+@if `p20 is 3 then saybar
+`%Violetta: `0Have you ever tasted the Wizard's Brew? It's pretty good!
+@if `p20 is 4 then saybar
+`%Violetta: `0Be wary of sleeping on the East side. No protection!
+@if `p20 is 5 then saybar
+`%Violetta: `0I heard there's a chest hidden upstairs. Go find it!
+@if `p20 is 6 then saybar
+`%Violetta: `0I hear the chest upstairs has some gold and gems in it!
+@if `p20 is 7 then saybar
+`%Violetta: `0That darn chest upstairs keeps moving about from day to day!
+@if `p20 is 8 then saybar
+`%Violetta: `0The Wizard is a pretty cool guy!
+@if `p20 is 9 then saybar
+`%Violetta: `0This IGM really adds alot to LORD II!
+@end
+
+@#sandtiger
+@do `p70 is 104
+@do moveback
+@routine talk in talk.ref
+@if `p20 is 0 then do
+@begin
+@do `p20 random 9 1
+@if `p20 is 1 then saybar
+`%Sandtiger: `0Sleeping on the West side is more restful!
+@if `p20 is 2 then saybar
+`%Sandtiger: `0Remember to ask the Wizard about the maze upstairs!
+@if `p20 is 3 then saybar
+`%Sandtiger: `0Have you ever tasted the Wizard's Brew? It's pretty good!
+@if `p20 is 4 then saybar
+`%Sandtiger: `0Be wary of sleeping on the East side. No protection!
+@if `p20 is 5 then saybar
+`%Sandtiger: `0I heard there's a chest hidden upstairs. Go find it!
+@if `p20 is 6 then saybar
+`%Sandtiger: `0I hear the chest upstairs has some gold and gems in it!
+@if `p20 is 7 then saybar
+`%Sandtiger: `0That darn chest upstairs keeps moving about from day to day!
+@if `p20 is 8 then saybar
+`%Sandtiger: `0The Wizard is a pretty cool guy!
+@if `p20 is 9 then saybar
+`%Sandtiger: `0This IGM really adds a lot to LORD II!
+@end
+
+@#FRONTDOOR
+@bitset `t90 2 0
+@bitset `t90 3 0
+@bitset `t90 4 0
+@bitset `t90 5 0
+@bitset `t90 6 0
+@bitset `t90 7 0
+@#START
+@DO MOVEBACK
+@CLEAR SCREEN
+@SHOW
+[?7h[255D[40m
+[0;1m[6C[0;35m� [1;37m� [0;35m�
+ [1;37m� [0;35m� [1;37m�
+ [0;35m� [1;37m� [0;35m�
+ [1;37m� [0;35m� [1;37m�
+�����������
+[45m� � � � � �[40m�ͻ
+[45m� � � � � �[2C[40m�
+[45m� � � � � �[2C[40m�
+[45m� � � � � �[2C[40m�
+[45m� � � � � �[40m�ͼ
+[45m� � � � � �[40m
+�����������
+
+`2As you approach the bar, you see that the castle hall has been converted
+into a bar. Several people are sitting at tables with mugs of a purple,
+steaming liquid.
+
+@KEY BOTTOM
+@CLEAR SCREEN
+@SHOW
+[?7h[255D[40m
+[0;1m [0;34m��
+ � [30;44m*[34;40m�
+[5C�[30;44m([34;40m�
+ ��[30;44m*[34;40m��
+���[30;44m*[34;40m�[30;44m([34;40m��[30;44m*[34m�[40m���
+ [1;36m��[43m��[0;33m�[1;37;43m�[40m�
+ [36m��[0;33m�[1;36m��[0;33m����
+ [1;36m��[43m�[0;33m��[1;36;43m�[40m�[43m�[17C[37;40mYou see an unusual man standing behind the bar. He
+ [36m���[0;33m���[1;36m���[9C[37mhas a long white beard, and the bushiest eyebrows you have
+ [36m���[0;34m��[30;44m*[34;40m�� [1;36m��[8C[37mever seen! He is wearing a flowing robe with stars and
+ [0;34m�۲���[30;44m([1C[1;36;40m�[8C[37mmoons on it. He has a wide brimmed hat that come to a
+ [0;30;44m([34;40m۲��[30;44m*[34;40m�[10C[1;37mdrooping point at the top.
+ [0;34m�۲��������[33;44m�[40m��
+ [34m�[30;44m*[34;40m۲�������
+ ����[30;44m([34;40m�� ��
+@key bottom
+@DO GOTO TALKING
+@#TALKING
+@clear screen
+@show
+
+`2What do you do?
+
+@do `v01 is 1
+@CHOICE
+`%Talk to the wizard.
+`%Leave before you get into trouble.
+@IF response IS 2 THEN DO
+ @BEGIN
+ @DO GOTO LEAVE
+ @END
+@IF response IS 1 THEN DO
+ @BEGIN
+ @DO GOTO STAY
+ @END
+
+@#LEAVE
+ @SHOW
+
+`2That may prove to be a wise decision. Then again...
+
+ @DO GOTO DONE
+
+@#STAY
+ @CLEAR SCREEN
+ @SHOW
+
+`2 You slowly approach the bar. The bearded man smiles, but he does not make
+eye contact. At first you think he may have a visual impairment, but after a
+few seconds, you realize that he is staring at your money bag.
+
+ "What can I do for you?" he asks.
+
+@do `v01 is 1
+ @CHOICE
+`%I'd like a drink.
+`%Do you rent rooms?
+@IF response IS 1 THEN DO
+ @BEGIN
+ @DO GOTO DRINK
+ @END
+@IF response IS 2 THEN DO
+ @BEGIN
+ @DO GOTO ROOM
+ @END
+
+@#DRINK
+ @CLEAR SCREEN
+ @SHOW
+
+`2 "The only drink we serve here is Wizard's brew. And it's $5 a mug!"
+
+@do `v01 is 1
+ @CHOICE
+`%You mean that purple stuff?! You gotta be crazy!
+`%What have you got for a REAL adventurer?
+ @IF response IS 1 THEN DO
+ @BEGIN
+ @DO GOTO CRAZY
+ @END
+ @IF response IS 2 THEN DO
+ @BEGIN
+ @DO GOTO UPSTAIRS
+ @END
+
+@#CRAZY
+@clear screen
+@show
+
+`2 "Crazy or not, that's all we serve. Do you want it or not?"
+
+@do `v01 is 1
+@choice
+Yes, I'll take one.
+No thanks.
+@if response is 1 then do
+@begin
+@do goto yes
+@end
+@if response is 2 then do
+@begin
+@do goto no
+@end
+
+@#YES
+@IF money < 5 THEN DO
+ @BEGIN
+ @SHOW
+
+`2 "You don't have that much money. Come back when you can pay!"
+ @KEY BOTTOM
+ @DO GOTO TALKING
+ @END
+@DO money - 5
+ @SHOW
+
+`2 You feel as if everyone in the room is watching you as you carefully eye the
+steaming concoction. You slowly lift the mug to take a sip...
+
+ @KEY
+ @SHOW
+
+`$ Hey! That's good! Everyone seems to smile as you chug down the rest.
+
+`2 The wizard smiles too. "What? Did you think it would turn you into a
+newt?" he teases.
+
+ @KEY BOTTOM
+ @DO GOTO TALKING
+
+@#NO
+ @SHOW
+
+`2 "Suit yourself, but you'll get awful thirsty."
+
+ @KEY BOTTOM
+ @DO GOTO TALKING
+
+@#ROOM
+ @CLEAR SCREEN
+ @SHOW
+
+`2 "Rooms? Yes we rent rooms. The rooms on the East Wing are $10 per night.
+The rooms on the West Wing are $25 per night."
+
+@do `v01 is 1
+ @CHOICE
+`%Why the price difference?
+`%I may be back later.
+ @IF response IS 1 THEN DO
+ @BEGIN
+ @DO GOTO ASK
+ @END
+ @IF response IS 2 THEN DO
+ @BEGIN
+ @DO GOTO DONE
+ @END
+
+@#ASK
+ @SHOW
+
+`2"Well, let's just say that the West Wing tends to be more restful. Would
+you like a room or not?
+
+@do `v01 is 1
+@choice
+`%Yes, I'll take one.
+`%No, thanks.
+@if response is 1 then do
+@begin
+@do goto whichroom
+@end
+@if response is 2 then do
+@begin
+@do goto done
+@end
+
+@#whichroom
+@clear screen
+@show
+`2"Would you like one on the East Wing or the West Wing?"
+
+@do `v01 is 1
+@choice
+`%East Wing
+`%West Wing
+@if response is 1 then do
+@begin
+@do goto eastwing
+@end
+@if response is 2 then do
+@begin
+@do goto westwing
+@end
+
+@#EASTWING
+@if money < 10 then do
+@begin
+@do goto broke
+@end
+@DO money - 10
+@bitset `t90 3 1
+@SHOW
+
+`2A black key mysteriously appears in your hand.
+
+@DO GOTO DONE
+
+@#WESTWING
+@if money < 25 then do
+@begin
+@do goto broke
+@end
+@DO money - 25
+@bitset `t91 2 1
+@SHOW
+
+`2A red key mysteriously appears in your hand.
+
+@DO GOTO DONE
+
+@#DONE
+@KEY BOTTOM
+@DRAWMAP
+@UPDATE
+@CLOSESCRIPT
+
+@#BROKE
+@key
+@show
+
+`2You don't have that much money.
+
+@key
+@drawmap
+@update
+@closescript
+
+@#EASTDOOR
+@IF bitcheck `t90 3 1 THEN DO
+ @BEGIN
+ @DO GOTO RIGHTKEY
+ @END
+@DO GOTO WRONGEAST
+
+@#WESTDOOR
+@IF bitcheck `t90 2 1 THEN DO
+ @BEGIN
+ @DO GOTO RIGHTKEY
+ @END
+@IF bitcheck `t90 3 1 THEN DO
+ @BEGIN
+ @DO GOTO WRONGKEY
+ @END
+@DO GOTO NOKEY
+
+@#WRONGKEY
+@DO MOVEBACK
+@DO SAYBAR
+That key does not fit this door.
+@CLOSESCRIPT
+
+@#RIGHTKEY
+@DO SAYBAR
+You unlock the door with the key.
+@CLOSESCRIPT
+
+@#NOKEY
+@DO MOVEBACK
+@DO SAYBAR
+The door is locked. Perhaps if you had a key...
+@CLOSESCRIPT
+
+@#WRONGEAST
+;@DO `t90 + 1
+;@IF `t90 < 3 DO GOTO NOTYET
+;@IF `t90 > 2 DO GOTO YET
+; CNW changed this section
+@do moveback
+@if bitcheck `t90 7 1 then do
+ @begin
+ @DO GOTO YET
+ @end
+@if bitcheck `t90 6 1 then do
+ @begin
+ @bitset `t90 7 1
+ @DO GOTO NOTYET
+ @end
+@if bitcheck `t90 5 1 then do
+ @begin
+ @bitset `t90 6 1
+ @DO GOTO NOTYET
+ @end
+@if bitcheck `t90 4 1 then do
+ @begin
+ @bitset `t90 5 1
+ @DO GOTO NOTYET
+ @end
+@bitset `t90 4 1
+@DO GOTO NOTYET
+
+
+@#NOTYET
+@DO MOVEBACK
+@if bitcheck `t90 3 1 then do
+ @begin
+ @do goto wrongkey
+ @end
+@DO SAYBAR
+The door seems to be locked.
+@CLOSESCRIPT
+
+@#YET
+@if x is 50 then do
+ @begin
+ @DO SAYBAR
+The door opens easy from the inside.
+ @do x - 1
+ @closescript
+ @end
+@DO SAYBAR
+The lock gives way, and the door opens!
+@do x + 2
+@CLOSESCRIPT
+
+@#UPSTAIRS
+@do move 1 1
+@CLEAR SCREEN
+@SHOW
+
+`2 The wizard's eyebrows raise just a bit. He stares at you for a moment
+and then says, "Well, if you are a truly adventurous soul, there's always the
+maze.
+
+@do `v01 is 1
+@choice
+Actually, I was talking about something to drink.
+Tell me more about the maze.
+@if response is 1 then do
+ @begin
+ @do goto drink
+ @end
+@clear screen
+@show
+
+`2 The upstairs area of this castle is a maze. For 50 pieces of gold, I
+will let you go upstairs. In the maze, there are several servants guarding
+chests. One of the chests (chosen at random) contains a treasure. If you
+find the treasure chest, you may keep the treasure. The challenge is that
+there are roving creatures that will try and stop you from finding the chest.
+
+@do `v01 is 1
+@choice
+`%No thanks, I'm not that adventurous.
+`%Sure. Sounds like a deal.
+@if response is 1 then do
+@begin
+@do goto done
+@end
+@if response is 2 then do
+@begin
+@do goto yesmaze
+@end
+
+@#yesmaze
+@if money < 50 then do
+@begin
+@do goto broke
+@end
+@do money - 50
+@show
+
+`2 "You may come behind the bar, and go upstairs now."
+ The wizard motions you around behind him.
+
+@key
+@bitset `t90 1 1
+@do `t91 random 9 1
+@do `t92 is 0
+@do goto done
+
+@#mazegate
+@if &lasty is 5 then do
+ @begin
+ @do saybar
+The wizard smiles as you leave.
+ @closescript
+ @end
+@if bitcheck `t90 1 1 then do
+ @begin
+ @do saybar
+The wizard smiles as you walk towards the stairs.
+ @closescript
+ @end
+;@if bitcheck `t90 1 1 then do
+; @begin
+; @closescript
+; @end
+@do moveback
+@do saybar
+You cannot go back there.
+@closescript
+
+@#up
+@bitset `t90 1 1
+
+@#first
+@do moveback
+@if `t91 = 0 then do
+ @begin
+ @do saybar
+Only 3 chances per day.
+ @closescript
+ @end
+@if `t91 = 1 then do
+ @begin
+ @do saybar
+Well done! You gain 500 gold pieces and 1 gem.
+ @do money + 500
+ @do `p19 + 1
+ @do `t91 is 0
+ @closescript
+ @end
+@do saybar
+Sorry, wrong chest.
+@do `t92 + 1
+@if `t92 > 3 then `t91 is 0
+@closescript
+
+@#second
+@do moveback
+@if `t91 = 0 then do
+ @begin
+ @do saybar
+Only 3 chances per day.
+ @closescript
+ @end
+@if `t91 = 2 then do
+ @begin
+ @do saybar
+Well done! You gain 500 gold pieces and 2 gems.
+ @do money + 500
+ @do `p19 + 2
+ @do `t91 = 0
+ @closescript
+ @end
+@do saybar
+Sorry, wrong chest.
+@do `t92 + 1
+@if `t92 is 3 then `t91 is 0
+@closescript
+
+@#third
+@do moveback
+@if `t91 = 0 then do
+ @begin
+ @do saybar
+Only 3 chances per day.
+ @closescript
+ @end
+@if `t91 = 3 then do
+ @begin
+ @do saybar
+Well done! You gain 500 gold pieces and 2 gems.
+ @do money + 500
+ @do `p19 + 2
+ @do `t91 = 0
+ @closescript
+ @end
+@do saybar
+Sorry, wrong chest.
+@do `t92 + 1
+@if `t92 is 3 then `t91 is 0
+@closescript
+
+@#fourth
+@do moveback
+@if `t91 = 0 then do
+ @begin
+ @do saybar
+Only 3 chances per day.
+ @closescript
+ @end
+@if `t91 = 4 then do
+ @begin
+ @do saybar
+Well done! You gain 500 gold pieces and 2 gems.
+ @do money + 500
+ @do `p19 + 2
+ @do `t91 = 0
+ @closescript
+ @end
+@do saybar
+Sorry, wrong chest.
+@do `t92 + 1
+@if `t92 is 3 then `t91 is 0
+@closescript
+
+@#fifth
+@do moveback
+@if `t91 = 0 then do
+ @begin
+ @do saybar
+Only 3 chances per day.
+ @closescript
+ @end
+@if `t91 = 5 then do
+ @begin
+ @do saybar
+Well done! You gain 500 gold pieces and 2 gems.
+ @do money + 500
+ @do `p19 + 2
+ @do `t91 = 0
+ @closescript
+ @end
+@do saybar
+Sorry, wrong chest.
+@do `t92 + 1
+@if `t92 is 3 then `t91 is 0
+@closescript
+
+@#sixth
+@do moveback
+@if `t91 = 0 then do
+ @begin
+ @do saybar
+Only 3 chances per day.
+ @closescript
+ @end
+@if `t91 = 6 then do
+ @begin
+ @do saybar
+Well done! You gain 500 gold pieces and 2 gems.
+ @do money + 500
+ @do `p19 + 2
+ @do `t91 = 0
+ @closescript
+ @end
+@do saybar
+Sorry, wrong chest.
+@do `t92 + 1
+@if `t92 is 3 then `t91 is 0
+@closescript
+
+@#seventh
+@do moveback
+@if `t91 = 0 then do
+ @begin
+ @do saybar
+Only 3 chances per day.
+ @closescript
+ @end
+@if `t91 = 7 then do
+ @begin
+ @do saybar
+Well done! You gain 500 gold pieces and 2 gems.
+ @do money + 500
+ @do `p19 + 2
+ @do `t91 = 0
+ @closescript
+ @end
+@do saybar
+Sorry, wrong chest.
+@do `t92 + 1
+@if `t92 is 3 then `t91 is 0
+@closescript
+
+@#eighth
+@do moveback
+@if `t91 = 0 then do
+ @begin
+ @do saybar
+Only 3 chances per day.
+ @closescript
+ @end
+@if `t91 = 8 then do
+ @begin
+ @do saybar
+Well done! You gain 500 gold pieces and 2 gems.
+ @do money + 500
+ @do `p19 + 2
+ @do `t91 = 0
+ @closescript
+ @end
+@do saybar
+Sorry, wrong chest.
+@do `t92 + 1
+@if `t92 is 3 then `t91 is 0
+@closescript
+
+@#ninth
+@do moveback
+@if `t91 = 0 then do
+ @begin
+ @do saybar
+Only 3 chances per day.
+ @closescript
+ @end
+@if `t91 = 9 then do
+ @begin
+ @do saybar
+Well done! You gain 500 gold pieces and 2 gems.
+ @do money + 500
+ @do `p19 + 2
+ @do `t91 = 0
+ @closescript
+ @end
+@do saybar
+Sorry, wrong chest.
+@do `t92 + 1
+@if `t92 is 3 then `t91 is 0
+@closescript
+
+@#people
+@do moveback
+@do `p20 random 9 1
+@if `p20 is 1 then saybar
+`%Halder: `0Sleeping on the West side is more restful!
+@if `p20 is 2 then saybar
+`%Barak: `0Remember to ask the Wizard about the maze upstairs!
+@if `p20 is 3 then saybar
+`%Aladdin: `0Have you ever tasted the Wizard's Brew? It's pretty good!
+@if `p20 is 4 then saybar
+`%Olodrin: `0Be wary of sleeping on the East side. No protection!
+@if `p20 is 5 then saybar
+`%Sparhawk: `0I heard there's a chest hidden upstairs. Go find it!
+@if `p20 is 6 then saybar
+`%Turgon: `0I hear the chest upstairs has some gold and gems in it!
+@if `p20 is 7 then saybar
+`%Aragorn: `0That darn chest upstairs keeps moving about from day to day!
+@if `p20 is 8 then saybar
+`%Sandtiger: `0The Wizard is a pretty cool guy!
+@if `p20 is 9 then saybar
+`%Gandalf: `0This IGM really adds alot to LORD II!
diff --git a/xtrn/lord2/cnw/wizfight.ref b/xtrn/lord2/cnw/wizfight.ref
new file mode 100644
index 0000000000000000000000000000000000000000..a1d577cde7e2223116270a0deb40759ef09a8312
--- /dev/null
+++ b/xtrn/lord2/cnw/wizfight.ref
@@ -0,0 +1,358 @@
+; Script file WIZFIGHT.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:21 2001
+
+@DECLARE monster1 000000500
+@DECLARE monster2 000001059
+@DECLARE monster3 000001638
+@DECLARE monster4 000002226
+@DECLARE monster5 000002762
+@DECLARE monster6 000003356
+@DECLARE monster7 000003906
+@DECLARE findmoney 000004456
+@DECLARE findkid 000004565
+@DECLARE findbird 000005284
+@DECLARE event 000006172
+@DECLARE sbrook 000006325
+@DECLARE nomore 000006456
+@NOCHECK
+; End of .REF index
+
+@#monster1
+@fight
+;name
+Giant Scorpion
+;string said when you see him
+You see a huge Scorpion scurrying towards you..!
+;power move kill string
+You sure sliced up that big bug!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+grabs with its pinchers|2
+bites you|2
+painfully stings you|4
+NONE|NONE
+NONE|NONE
+;defense
+0
+;gold reward
+2
+;experience
+3
+;hit points
+7
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster2
+@fight
+;name
+Giant Rat
+;string said when you see him
+A large ugly rat appears - biting viciously at you!
+;power move kill string
+You've roasted this darn rat! Lunch anyone?
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|3
+bites your leg|4
+chomps your hand|4
+gnaws on your ankle|4
+chews on your toes|3
+;defense
+0
+;gold reward
+3
+;experience
+3
+;hit points
+8
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster3
+@fight
+;name
+Giant Tarantula
+;string said when you see him
+A Tarantula is staring straight at you!
+;power move kill string
+Time to de-leg this beast.. NOW!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites you|4
+crawls up your leg|4
+chases you backwards|2
+scares the heck out of you|3
+`bsinks its fangs into`2 you|6
+;defense
+0
+;gold reward
+7
+;experience
+6
+;hit points
+13
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster4
+@fight
+;name
+Knight in Armor
+;string said when you see him
+Hey, what are you doing up here in the maze?
+;power move kill string
+He wasn't that strong!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+hits with mace|2
+stabs you|5
+stomps on your toes|2
+NONE|NONE
+NONE|NONE
+;defense
+7
+;gold reward
+6
+;experience
+5
+;hit points
+9
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster5
+@fight
+;name
+Baby Dragon
+;string said when you see him
+`0He's trying to protect his masters property!
+;power move kill string
+Looks like the Baby Dragon got the whuppin' he had coming...
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+bites your arm|5
+roars a deafening roar|2
+spits fire at you|7
+bites on your leg|5
+NONE|NONE
+;defense
+4
+;gold reward
+8
+;experience
+6
+;hit points
+13
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster6
+@fight
+;name
+Ugly Troll
+;string said when you see him
+What's that? A monster? Nope, its an ugly troll!
+;power move kill string
+He'll never see tomorrow!
+;sex - 1 is male, 2 is female, 3 is it
+1
+;weapon and strength for the weapon, up to 5
+scratches your face|6
+bites your legs|3
+spits in your face|2
+NONE|NONE
+NONE|NONE
+;defense
+2
+;gold reward
+2
+;experience
+5
+;hit points
+6
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+@#monster7
+@fight
+;name
+Angry Wife
+;string said when you see her
+What the he!! are you doing up here?
+;power move kill string
+The Wizard's wife is pushing up daisies!
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+stabs you|5
+slaps your ugly face|3
+stomps on your foot|2
+NONE|NONE
+NONE|NONE
+;defense
+0
+;gold reward
+1
+;experience
+2
+;hit points
+2
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+
+@#findmoney
+@do `p20 random 20 1
+@do money + `p20
+@do saybar
+`2You find a pouch with `$$`p20`2 in it!
+
+
+@#findkid
+@do `v01 is 1
+@if `i11 > 0 then do
+ @begin
+ @closescript
+ @end
+@busy
+@show
+`r0`c `%`r1 TRAVELING EVENT `r0
+
+`2 You come across a small girl - she couldn't be older than twelve. She
+ is crying. `0"S&sir, will you take me home?" `2she asks, pitifully.
+
+@do write
+`x`x
+@choice
+Agree to take her home, wherever that might be.
+Leave her here to rot.
+@if response is 2 then do
+ @begin
+ @show
+
+
+ `$"Sorry little girl, find your own way home. Haw!" `2you tell her.
+
+`k
+ @end
+
+@if response is 1 then do
+ @begin
+ @do `i11 is 1
+ @show
+
+
+ `2You agree to take her home. She says her mother is waiting for her
+ at the Red Dragon Inn.
+
+`k
+ @end
+@drawmap
+@update
+
+@#findbird
+@busy
+@do write
+`r1
+@clearblock 21 21
+@do move 3 21
+@do write
+`r0 `2A bird flies over your head. Hit it with a stone? [`0Y`2/`0N`2] :`x
+@do readspecial `s01 YN
+
+@if `s01 is N then do
+ @begin
+ @do saybar
+The bird flies out the west window.
+ @closescript
+ @end
+
+@if `p09 is 1 then do
+ @begin
+ @do `p20 random 2 1
+ @if `p20 is 1 then do
+ @begin
+ @do saybar
+`2The stone misses. The bird gets away.
+ @closescript
+ @end
+ @end
+
+@if l2tree.dat exists true then do
+ @begin
+ @readfile l2tree.dat
+`s01
+ @end
+
+@if l2tree.dat exists false then do
+ @begin
+ @do `s01 is SECRET
+ @end
+
+@show
+`r0`c `r1 Your aim was true `r0
+
+`2 The bird falls to the floor!
+
+`k `2There is a note on his leg with the following written on it:
+
+ `0"The treehouse password is `%`s01`0"
+
+`k
+ @drawmap
+ @update
+ @closescript
+
+@#event
+@do `p20 random 3 1
+@if `p20 is 1 then goto findkid
+@if `p20 is 2 then goto findmoney
+@if `p20 is 3 then goto findbird
+
+@show
+Whatup!
+
+@#sbrook
+@do `p20 random 4 1
+@if `p20 is 1 then goto event
+
+@busy
+@do write
+`'
+@do `p20 random 7 1
+@do goto monster`p20
+
+@#NOMORE
diff --git a/xtrn/lord2/cnw/woodland.ref b/xtrn/lord2/cnw/woodland.ref
new file mode 100644
index 0000000000000000000000000000000000000000..9e22286e1df9937c0e335378491af686db6ee9e2
--- /dev/null
+++ b/xtrn/lord2/cnw/woodland.ref
@@ -0,0 +1,1242 @@
+; Script file WOODLAND.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:23 2001
+
+@DECLARE cavesign 000000980
+@DECLARE genstore 000001085
+@DECLARE bank 000001306
+@DECLARE bankstart 000001434
+@DECLARE bankagain 000002542
+@DECLARE deposit 000003995
+@DECLARE withdraw 000004510
+@DECLARE sheriff 000005361
+@DECLARE sheriff_start 000005397
+@DECLARE exhibit1 000008769
+@DECLARE exhibit2 000008892
+@DECLARE exhibit3 000009008
+@DECLARE exhibit4 000009123
+@DECLARE couch 000009215
+@DECLARE sink 000009274
+@DECLARE toilet 000009383
+@DECLARE barguy1 000009466
+@DECLARE barguy2 000009587
+@DECLARE mybank 000009675
+@DECLARE order_food 000012511
+@DECLARE foodstart 000012731
+@DECLARE private_area 000014519
+@DECLARE done 000016048
+@DECLARE doorguard 000016084
+@DECLARE startg 000016113
+@DECLARE barsign 000020614
+@DECLARE enterbar 000020927
+@DECLARE done 000022205
+@DECLARE letmein 000022665
+@DECLARE done 000022746
+@NOCHECK
+; End of .REF index
+
+@#CAVESIGN
+@bitset `t93 0 1
+@do moveback
+@do saybar
+<--- Woodland Underground
+@closescript
+@end
+
+@#GENSTORE
+@do moveback
+@show
+`r0`c `%Ebu's General Store
+
+`0 Janet Reno's ancestor sits, watching you very closely while you shop.
+
+@buymanager
+1
+3
+29
+43
+40
+55
+9
+16
+@drawmap
+@update
+@closescript
+@end
+
+@#BANK
+@do `p30 is 21
+@do `v01 is 1
+@offmap
+@do moveback
+@do `s09 is woodland
+@routine DONEQUEST in VAULTS.REF
+@label bankstart
+@show
+`r0`c `r1 `%Woodland Underground Bank `r0
+
+`2 A young clerk eyes you nervously.
+
+@if bank more 0 then do
+ @begin
+ @show
+`2 You are holding `$$&money`2, your account is at `$$&bank`2.
+
+ @end
+
+@if bank is 0 then do
+ @begin
+ @show
+`2 You currently don't have an account with them.
+
+ @end
+
+@do write
+`x`x
+@choice
+>&bank 0 Make a deposit.
+>&bank 0 Make a withdraw.
+=&bank 0 Apply for an account here.
+Leave
+@if response is 3 then do
+ @begin
+ @do `v01 is 1
+ @show
+
+
+ `2The nervous boy asks you to sit down.
+
+ `0"Your full name s&sir?"
+ @do `s01 is NIL
+ @do write
+`x`x
+ @do readstring 30 `s01
+ @show
+
+
+ `0"Your current residence?"
+
+ @do write
+`x`x
+ @do readstring 50 `s01
+
+ @show
+
+
+ `0"Your net income yearly?"
+
+ @do write
+`x`x
+ @do readnum 10
+ @if `v40 less 20 then do
+ @begin
+ @show
+
+ @end
+
+ @if `v40 more 19 then do
+ @begin
+ @show
+
+
+ `2You giggle to yourself `0-`2 how will they know you just totally lied on
+ that last question?!?? You only made `b19`2 gold pieces last year!
+ @end
+ @label bankagain
+ @show
+
+ `0"How much would you like to open your account with?" `2(you have `$$&money`2)
+
+ @do write
+`x`x
+ @do readnum 10 money
+ @if `v40 is 0 then do
+ @begin
+ @show
+
+
+ `2You decide you really don't want to open an account with this
+ branch.
+
+`k
+ @do goto bankstart
+ @end
+
+ @if `v40 > money then do
+ @begin
+ @show
+
+
+`2 You don't have this much! Try again.
+ @do goto bankagain
+ @end
+
+ @if `v40 < 50 then do
+ @begin
+ @if money < 50 then do
+ @begin
+ @show
+
+ `2The clerk eyes your shabby clothing distastefully - as if he knew
+ this part was coming.
+
+ `0"I'm sorry s&sir, we do require `$$50 `2to open an account. And could
+ you please leave the pen on your way out." `2he asks haughtily.
+
+`k `2You carefully return the pen. `$"I'll be back someday. And you WILL
+ open an account for me then," `2you vow seriously.
+
+ `0"Of course you will, s&sir. Please exit now, remember, the sign does
+ say no loitering. And this means you." `2he says as he points to the
+ door.
+
+`k
+@drawmap
+@update
+@closescript
+ @end
+
+ @show
+
+
+ `0"S&Sir, `$$50 `0is required to open a new account!"
+ @do goto bankagain
+ @end
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @show
+
+
+ `0"Very good S&sir! Your new account has been opened!"
+
+`k
+ @do goto bank
+ @end
+
+
+@if response is 1 then do
+ @begin
+ @do write
+`\
+ @label deposit
+ @do write
+`\ `0"Deposit how much, s&sir?"`\`\`x`x
+ @do readnum 10 money
+ @if `v40 more money then do
+ @begin
+ @show
+`\`\ `2Maybe you left the money in your other pants? 'cuz it sure ain't here.
+ @do goto deposit
+ @end
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `@STOP THAT!
+ @do goto withdraw
+ @end
+
+ @routine deposit in vaults.ref
+ @do money - `v40
+ @do bank + `v40
+ @do goto bankstart
+
+ @end
+
+@if response is 2 then do
+ @begin
+ @do write
+`\
+ @label withdraw
+ @do write
+`\ `0"Withdraw how much, s&sir?"`\`\`x`x
+ @do `p21 is bank
+ @do `p21 - 1
+ @if `p21 < 0 then `p21 is 0
+ @do readnum 10 `p21
+ @if `v40 more bank then do
+ @begin
+ @show
+`\`\ `2You don't have that much in your account. Nice bookkeeping!
+ @do goto withdraw
+ @end
+
+ @if `v40 less 0 then do
+ @begin
+ @show
+`\`\ `2No, I don't think so.
+ @do goto withdraw
+ @end
+
+ @if `v40 is bank then do
+ @begin
+ @show
+
+
+ `0"But s&sir! This will close your account with us, are you sure you wish
+ to do that?" `2the clerk chokes.
+
+ @do write
+`x`x
+ @do `v01 is 1
+ @choice
+Okay, nevermind then.
+Yeah, this bank sucks.
+@if response is 1 then goto bank
+
+ @end
+
+ @routine widthdraw in vaults.ref
+ @do money + `v40
+ @do bank - `v40
+ @do goto bankstart
+ @end
+@drawmap
+@update
+
+@#SHERIFF
+@do moveback
+@label sheriff_start
+@show
+`r0`c`% `r1 Sheriff's Office `r0
+
+@if `p07 < 0 then do
+@begin
+@show
+`2 Bob, the old sheriff, stands up and yells, "`0GET OUT OF HERE, YOU CRIMINAL!`2"
+
+`k He then proceeds to kick you out of his office. Perhaps you need an
+ alignment adjustment.
+
+`k
+@drawmap
+@update
+@closescript
+@end
+
+@do `v01 is 1
+@show
+`2 Bob, the old sheriff, stands up and asks, "`0What can I do for you,
+ young s&man?`2"
+
+@end
+
+@do `p22 is 0
+@do `p25 is 0
+@do write
+`x`x
+@choice
+Chat with Bob
+Ask Bob about crime
+>`i44 0 Give your sack to Bob
+>`i45 0 Give your satchel to Bob
+>`i46 0 Give your small bag to Bob
+>`i48 0 Give your small purse to Bob
+Leave
+@if responce is 7 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+
+@if responce is 3 then do
+@begin
+@do `i44 - 1
+@do `p22 is 1
+@end
+
+@if responce is 4 then do
+@begin
+@do `i45 - 1
+@do `p22 is 1
+@end
+
+@if responce is 5 then do
+@begin
+@do `i46 - 1
+@do `p22 is 1
+@end
+
+@if responce is 6 then do
+@begin
+@do `i48 - 1
+@do `p22 is 1
+@end
+
+@if `p22 is 1 then do
+@begin
+@do `p14 is 0
+@do `p15 is 0
+@do `p16 is 0
+@do `p17 is 0
+@do `p20 random 5 0
+@show
+`\`\`2 Bob searches through it and finds.`l.`l.`l.`l.`l.`l.
+
+@if `p20 is 2 then do
+@begin
+@show
+`0 Illegal mind-bending potions!
+
+`% HE GIVES YOU 1000 GOLD AND 2 ALIGNMENT POINTS!
+
+`k
+@do money + 1000
+@do `p07 + 2
+@do goto sheriff_start
+@end
+
+@show
+`2 Nothing this time, but he gives you 100 gold for your trouble.
+
+`k
+@do money + 100
+@do goto sheriff_start
+@end
+
+@if responce is 1 then do
+@begin
+@show
+`\`\`2 "`0I don't have time to chit chat!`2", Sheriff Bob informs you.
+
+`k
+@do goto sheriff_start
+@end
+
+@if responce is 2 then do
+@begin
+@show
+`r0`c`% `r1 Bob talks about crime `r0
+`\`2 "`0I suspect a number of people to be involved in the trade of illegal
+ substances and stolen property. These people will use innocent victims to
+ do their dirty work for them, by asking them to deliver small packages or
+ bags to others, then the delivery person is rewarded with money.
+ Unfortunately, I have no evidence to back up my suspicions, since many of
+ the deliveries do not have illegal substances or stolen property inside.
+ All of my staff has left to fight the red dragon, and I am left here short-
+ handed. If you're not too busy, I could hire you as a temporary deputy. You
+ would be doing a great service for this community by helping me out.`2"
+
+@do write
+`k`x`x
+@do `v01 is 1
+@choice
+Yes. Sign me up!
+Sorry, I have to go now.
+@if responce is 1 then do
+@begin
+@show
+`r0`c`% `r1 Pursuing a career in law enforcement `r0
+`\`2 "`0Okay. Here's what I need you to do. If you bring me any packages
+ or bags that you are asked to deliver, I will search them, and if I find
+ anything wrong with it, I will give you a reward for your service to me.
+ If I find nothing wrong, I will still give you a reward for your trouble.
+ It won't be quite as much as if you had brought me something with a real
+ find inside, but still a reward.`2", Sheriff Bob says.
+
+`k "`0I won't let you down, sir!`2", you say as you leave the sheriff's office.
+
+`k
+@drawmap
+@update
+@closescript
+@end
+
+@show
+`\`\`2 "`0I guess I'll have to find someone else. Thanks anyway.`2"
+
+`k
+@drawmap
+@update
+@closescript
+@end
+
+@#EXHIBIT1
+@do moveback
+@do saybar
+Violet's old blanket, fully restored to it's original colors.
+@closescript
+@end
+
+@#EXHIBIT2
+@do moveback
+@do saybar
+A collection of assorted stones found near Arrisville.
+@closescript
+@end
+
+@#EXHIBIT3
+@do moveback
+@do saybar
+Six red dragon eggs, hard boiled to prevent hatching.
+@closescript
+@end
+
+@#EXHIBIT4
+@do moveback
+@do saybar
+The ancient Magi statue of peace.
+@closescript
+@end
+
+@#COUCH
+@do saybar
+Nice and comfy!
+@closescript
+@end
+
+@#SINK
+@do moveback
+@do saybar
+You wash your hands in the sink... Good thinking!
+@closescript
+@end
+
+@#TOILET
+@do moveback
+@do saybar
+You relieve yourself.
+@closescript
+@end
+
+@#BARGUY1
+@do moveback
+@do saybar
+`0Johnny: `2I'd prefer to be alone s&sir, if you don't mind.
+@closescript
+@end
+
+@#BARGUY2
+@do moveback
+@do saybar
+`0Man: `2Can't you see that this table is taken?
+
+@#MYBANK
+;team treasury
+@do moveback
+@do `p20 is 0
+@if woodland.001 exist true then do
+ @begin
+ @readfile woodland.001
+`p20
+ @
+ @end
+
+@clearblock 20 21
+@do move 3 21
+@do write
+`r0`2 Treasury is at `$$`p20`2 - (`0T`2)ake, (`0L`2)eave or (`0N`2)evermind? [`0N`2] :`%`x
+@do readspecial `s01 NTL
+@if `s01 is N then do
+ @begin
+ @do saybar
+You close the safe, carefully.
+ @closescript
+ @end
+
+@if `s01 is T then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 0
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > `p20 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Not enough in here for that.
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You take nothing.
+ @closescript
+ @end
+//withdrawl.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile woodland.001
+`p20
+ @
+
+ @if `p20 < `p21 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+Oh no! Someone took the money while you were thinking about it!
+ @closescript
+ @end
+
+ @do `p20 - `p21
+ @do money + `p21
+ @do delete woodland.001
+ @writefile woodland.001
+`p20
+ @
+ @clearblock 21 24
+ @do saybar
+`2You take `$`p21`2 from the treasury.
+
+//if not owner, lets notify him
+
+@readfile woodland.002
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Underground Bar and Grill Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has taken `$$`p21 `2from the treasury.
+
+ @end
+ @closescript
+ @end
+
+@if `s01 is L then do
+ @begin
+ @do move 5 23
+ @do write
+`0`r0Amount? `0: `%
+ @do readnum 10 &money
+ @do `p21 is `v40
+ @if `p21 < 1 then `p21 is 0
+ @if `p21 > money then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You are not carrying that much!
+ @closescript
+ @end
+
+ @if `p21 is 0 then do
+ @begin
+ @clearblock 21 24
+ @do saybar
+You decide to leave nothing. Ha!
+ @closescript
+ @end
+
+ @do money - `p21
+
+//deposit.. we read from the file again so cheating won't be possible with
+//correct timing
+ @readfile woodland.001
+`p20
+ @
+ @do `p20 + `p21
+ @do delete woodland.001
+ @writefile woodland.001
+`p20
+ @
+ @clearblock 21 24
+//if not owner, lets notify him
+
+@readfile woodland.002
+`p20
+`s01
+@
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @writefile mail\mail`p20.dat
+ `0Underground Bar and Grill Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has deposited `$$`p21 `2to the treasury.
+
+ @end
+
+
+ @do saybar
+`2You leave `$`p21`2 in the treasury.
+ @closescript
+ @end
+
+@#ORDER_FOOD
+@do moveback
+@do `v01 is 1
+@show
+`r0`c`% `r1 Underground Bar and Grill `r0
+
+`2 You grab a seat and wait for some service.
+
+`k A young waitress arrives at your table to take your order.
+
+`k
+@label foodstart
+@show
+`r0`c`% `r1 Ordering Some Food `r0
+
+@do write
+`2 "`0What'll it be?`2" (`0You have `$$&money`2)`\`\`x`x
+@do `v01 is 1
+@choice
+`2Roach Soup (`0$5`2)
+`2Lamb Fries (`0$10`2)
+`2Dragon Burger (`0$25`2)
+`2Stand up
+@if responce is 4 then do
+@begin
+@drawmap
+@update
+@closescript
+@end
+
+@if responce is 1 then do
+@begin
+@if money < 5 then do
+@begin
+@show
+`\`\ `4You can't afford that.
+
+`k
+@end
+
+@show
+`\`\`2 You slurp up the roach soup... Better than beans!
+
+`% YOU FEEL A LITTLE BETTER.
+
+`k
+@do `p02 + 10
+@if `p02 more `p03 then `p02 is `p03
+@do money - 5
+
+@readfile woodland.003
+`p27
+@
+@do `p27 + 5
+@do delete woodland.003
+@writefile woodland.003
+`p27
+ @
+ @writefile woodland.005
+`0 `n`2 bought some roach soup!
+@do goto foodstart
+@end
+
+
+@if responce is 2 then do
+@begin
+@if money < 10 then do
+@begin
+@show
+`\`\ `4You can't afford that.
+
+`k
+@end
+
+@show
+`\`\`2 You chomp down on the lamb fries... Crunchy!
+
+`% YOU FEEL BETTER.
+
+`k
+@do `p02 + 20
+@if `p02 more `p03 then `p02 is `p03
+@do money - 10
+
+@readfile woodland.003
+`p27
+@
+@do `p27 + 10
+@do delete woodland.003
+@writefile woodland.003
+`p27
+ @
+ @writefile woodland.005
+`0 `n`2 bought some lamb fries!
+@do goto foodstart
+@end
+
+@if responce is 3 then do
+@begin
+@if money < 25 then do
+@begin
+@show
+`\`\ `4You can't afford that.
+
+`k
+@end
+
+@show
+`\`\`2 You devour the dragon burger... Better than beef!
+
+`% YOU FEEL MUCH BETTER!
+
+`k
+@do `p02 + 50
+@if `p02 more `p03 then `p02 is `p03
+@do money - 25
+
+@readfile woodland.003
+`p27
+@
+@do `p27 + 25
+@do delete woodland.003
+@writefile woodland.003
+`p27
+ @
+ @writefile woodland.005
+`0 `n`2 bought a dragon burger!
+@do goto foodstart
+@end
+
+@#private_area
+@if woodland.004 exist false then do
+ @begin
+ @do moveback
+ @closescript
+ @end
+
+@if &lastx is 58 then do
+ @begin
+ @closescript
+ @end
+
+@readfile woodland.004
+`p20
+`s01
+@if `p20 is &playernum then do
+ @begin
+ @do x is 39
+ @do y is 4
+ @do map is 1598
+ @loadmap 1598
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@do moveback
+
+ @do `s02 is getname `p20
+ @do upcase `s01
+ @if `s01 is NONE then do
+ @begin
+ @do moveback
+ @do saybar
+`0Bartender: `2No one is allowed up there.. it's private.
+
+ @closescript
+ @end
+
+ @show
+`r0`c `r1 Entrance to the private area `r0
+
+`2 `2The bartender looks over at you. `0"Hey! What business do you have
+ going up there?"
+
+@do write
+`x`x
+@do `v01 is 1
+@choice
+Offer an explanation
+Nevermind
+ @if response is 1 then do
+ @begin
+ @do write
+`\`\ `2Say what? :`x
+ @do readstring 40 NIL `s03
+ @do upcase `s03
+ @do upcase `s01
+
+ @if `s03 is `s01 then do
+ @begin
+ @show
+`\`\ `0"Ok, go on up then!"`\`\`k
+ @do x is 39
+ @do y is 4
+ @do map is 1598
+ @loadmap 1598
+ @drawmap
+ @update
+ @closescript
+ @end
+ @writefile mail\mail`p20.dat
+ `0Underground Bar and Grill Reports:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 attempted to get to the private area by saying
+ `0"`s03"`2. `2He was `bNOT`2 allowed in.
+
+ @show
+`\`\ `2The bartender isn't impressed.`\`\`k
+ @do moveback
+ @do goto done
+ @end
+
+ @do goto done
+
+
+ @#done
+ @drawmap
+ @update
+
+@#doorguard
+@do moveback
+@label startg
+;guy who owns on it pushes against the door guard symbol. This lets him
+;control the password to gain entrance to the castle, as well as sell it
+;back or transfer ownership.
+
+@if woodland.003 exist false then do
+ @begin
+ @writefile woodland.003
+0
+ @end
+
+
+@if woodland.004 exist false then do
+ @begin
+ @do saybar
+`0"Get out please! The bar has been sold!" `2the bartender commands.
+ @closescript
+ @end
+
+@readfile woodland.004
+`p20
+`s01
+@
+
+ @readfile woodland.003
+`p26
+`p27
+ @
+
+
+;load owner and current password
+
+@if `p20 not &playernum then do
+ @begin
+ @do saybar
+`0Bartender: `2I'm too busy to talk to you. Go find a seat, s&boy!
+ @closescript
+ @end
+@busy
+
+
+@do `v01 is 1 ;set default choice to 1
+@show
+`r0`c `r1 Instructing your servants `r0
+
+ `2The bartender stops working for a moment.
+
+@do write
+`x`x
+@choice
+Set password to private area. (currently is `0`s01`%)
+Ownership options
+Take money from register
+Recent customer list
+`%Make `#WoodLand Underground `%your home
+Leave
+@if responce is 5 then do
+ @begin
+ @do `p69 is 28
+ @show
+`r0`c
+
+ `#WoodLand Underground `%is now your home sweet home.
+
+ @key
+ @end
+@if responce is 4 then do
+ @begin
+ @if woodland.005 exist true then do
+ @begin
+ @show
+
+
+ @displayfile woodland.005
+ @do delete woodland.005
+ @show
+
+`k
+ @do goto doorguard
+ @end
+ @show
+
+
+`2 "`0There's no one on the customer list, s&sir`2", the bartender says.
+
+`k
+@do goto doorguard
+@end
+
+@if responce is 3 then do
+ @begin
+ @readfile woodland.003
+`p27
+ @if `p27 < 1 then do
+ @begin
+@show
+`\`\ `2Damn, it's empty.
+
+`k
+ @do goto doorguard
+ @end
+
+
+ @readfile woodland.003
+`p27
+ @
+ @do money + `p27
+ @do delete woodland.003
+ @writefile woodland.003
+0
+ @
+
+ @show
+`\`\ `2You find `$$`p27`2 in the register!
+
+`k
+ @do goto doorguard
+ @end
+
+@if responce is 2 then do
+ @begin
+ @show
+`r0`c `r1 Ownership Options `r0
+
+ `2You retrieve your deed and carefully look it over.
+
+ @do `v01 is 1
+ @do write
+`x`x
+ @choice
+Transfer deed to someone else
+Sell property back to the bank for `$10000`%.
+Do nothing of the sort
+ @if response is 1 then do
+ @begin
+ @show
+`\`\ `2Transfer to whom?
+ @chooseplayer `p20
+
+ @if `p20 is 0 then do
+ @begin
+ @show
+ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+ @do `s02 is getname `p20
+@do write
+`2 Are you sure that you want to give your bar to `0`s02`2?`\`\`x`x
+@do `v01 is 1
+@choice
+Yes.
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete woodland.004
+ @writefile woodland.004
+`p20
+`s01
+0
+0
+0
+0
+ @writefile mail\mail`p20.dat
+ `0Business note:
+`2-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+`0 `n`2 has transfered ownership of Underground Bar and Grill to you.
+
+ @do addlog
+ `0`n`2 has given `%Underground Bar and Grill`2 to `0`s02`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`\`\ `4DEED TRANSFERED!`\`\`k
+ @do goto done
+ @end
+ @if response is 2 then do
+ @begin
+ @show
+`\`\`2 Are you sure you wish to sell your bar back to the bank?`\
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Yes.
+Not on your life.
+ @if responce is 2 then do
+ @begin
+ @show
+`\`\ `2You decide to keep your domain - for now.`\`\`k
+ @do goto startg
+ @end
+
+ @do delete woodland.004
+ @do delete woodland.003
+ @do `p30 is 21
+ @do `v40 is 10000
+ @routine widthdraw in vaults.ref
+ @do money + 10000
+ @show
+`\`\ `4BAR SOLD!`2`\`\`k
+ @do addlog
+ `0`n`2 has sold `%Underground Bar and Grill`2 back to the bank!
+ @routine seperate in gametxt.ref
+ @do goto done
+ @end
+
+
+ @do goto startg
+ @end
+
+@if responce is 1 then do
+ @begin
+ @do write
+`\`\ `0"And the new password, s&sir?" `2(enter `4NONE`2 for no access to anyone)`\ `2Password:`x
+ @do readstring 40 `s01 `s01
+ @do `p20 is length `s01
+ @if `p20 < 2 then do
+ @begin
+ @show
+`\`\ `2You decide the current password is ok.`\`\`k
+ @do goto startg
+ @end
+ @do delete woodland.004
+ @writefile woodland.004
+&playernum
+`s01
+0
+0
+0
+0
+@show
+`\`\ `0"Yes s&sir, I will not forget it!" `2the bartender promises.`\`\`k
+ @do goto startg
+ @end
+
+@drawmap
+@update
+
+@#BARSIGN
+@do moveback
+
+ @if woodland.004 exist false then do
+ @begin
+ @do saybar
+Underground Bar and Grill - For sale, inquire inside.
+ @end
+
+@if woodland.004 exist true then do
+ @begin
+@readfile woodland.004
+`p20
+`s01
+@
+@do `s01 is getname `p20
+ @do saybar
+`2Property of `0`s01`2.
+ @end
+
+@#enterbar
+@do moveback
+@offmap
+
+
+@if woodland.004 exist false then do
+ @begin
+ @show
+`r0`c `r1 `%For Sale `r0
+
+ `2Underground Bar and Grill - money making opportunity.
+ Buy it now, only asking `$$20,000`2.
+
+ Buy now and recieve the following bonuses:
+
+ `0* `2Private living quarters for you and your friends
+
+ `0* `2Money from every sale goes right into your pocket!
+
+@do `v01 is 1
+@do write
+`x`x
+@choice
+Enter the bar
+>&money 19999 Purchase it.
+<&money 20000 Leave, since you don't have enough money.
+>&money 19999 Leave.
+@
+@if responce is 1 then goto letmein
+@if responce is 2 then do
+ @begin
+ @if woodland.004 exist true then do
+ @begin
+ @show
+`\`\ `2Oh crap! Someone bought it while you were thinking about it. You
+ will regret your snail like thinking for the rest of your days.`\`\`k
+ @do goto done
+ @end
+
+ @writefile woodland.004
+&playernum
+NONE
+0
+0
+0
+0
+ @do `p30 is 21
+ @do `v40 is 20000
+ @routine deposit in vaults.ref
+ @do money - 20000
+ @do addlog
+ `0`n `2buys `%Underground Bar and Grill`2!
+ @routine seperate in gametxt.ref
+
+ @show
+`r0`c `r1 `%Why hello there, land owner! `r0
+`\`2 Nice job! You now own this bar!
+
+ `2Enjoy your new home.`\`\`k
+ @end
+
+@label done
+@drawmap
+@update
+@closescript
+ @end
+
+@readfile woodland.004
+`p20
+`s01
+@
+
+@do `p21 is deleted `p20
+
+@if `p21 is 1 then do
+ @begin
+ ;owner got deleted!!! Lets put it up for sale again.
+ @do delete woodland.004
+ @do delete woodland.003
+ @do addlog
+ `%Underground Bar and Grill`2 is put on the market today.
+ @routine seperate in gametxt.ref
+
+ ;run script again
+ @do goto enterbar
+ @end
+
+;let him in
+@label letmein
+@do x is 41
+@do y is 15
+@do map is 1597
+@loadmap &map
+@do goto done
+@#done
+
diff --git a/xtrn/lord2/cnw/world.dat b/xtrn/lord2/cnw/world.dat
new file mode 100644
index 0000000000000000000000000000000000000000..7bbf1ab1cc25967f2d79ca6fbb98e82477172652
Binary files /dev/null and b/xtrn/lord2/cnw/world.dat differ
diff --git a/xtrn/lord2/cnw/ww2.ref b/xtrn/lord2/cnw/ww2.ref
new file mode 100644
index 0000000000000000000000000000000000000000..cb70fbb04e1725888090168067eb38c39788233b
--- /dev/null
+++ b/xtrn/lord2/cnw/ww2.ref
@@ -0,0 +1,48 @@
+; Script file WW2.REF, indexed by REFINDEX v0.01 on Sun Mar 18 22:19:35 2001
+
+@DECLARE monster1 000000180
+@DECLARE fight 000000682
+@NOCHECK
+; End of .REF index
+
+@#monster1
+@fight
+;name
+Big Boy
+;string said when you see him
+He is HUGE, wait... its a BOMB!
+;power move kill string
+Nice cloud!
+;sex - 1 is male, 2 is female, 3 is it
+3
+;weapon and strength for the weapon, up to 5
+shoots bullets|55
+NONE|NONE
+NONE|NONE
+NONE|NONE
+NONE|NONE
+;defense
+55
+;gold reward
+120
+;experience
+120
+;hit points
+120
+;if win: ref file|name or NONE
+NONE|NONE
+;if lose: ref file|name or NONE
+GAMETXT.REF|DIE
+;if runs: ref file|name or NONE
+NONE|NONE
+
+
+
+@#FIGHT
+@do `p20 random 12 1
+@if `p20 is 1 then do
+ @begin
+ @run GENRAN in GENRAN.REF
+ @end
+@busy
+@do goto monster1
diff --git a/xtrn/lord2/cnw/xena.ref b/xtrn/lord2/cnw/xena.ref
new file mode 100644
index 0000000000000000000000000000000000000000..585a06a60f0b0148ba287021c994efbdb90c32c7
--- /dev/null
+++ b/xtrn/lord2/cnw/xena.ref
@@ -0,0 +1,333 @@
+;
+; Xena's House Version 1.21a (beta version)
+;
+; Modified by LoRD2: Complete New World team with
+; permission from author of Xena IGM.
+; Xena IGM author: quineska@hotmail.com
+;
+;
+; http://greenmachinebbs.com/lord2
+;
+@nocheck
+@#START
+@do moveback
+@datanewday xena.idf
+@dataload xena.idf &playernum `p20
+@if `p20 is 0 then do
+ @begin
+ ;@routine regcheck
+ @clear screen
+ @do `p25 is `p09
+ @do `p25 * 10
+ @show
+[40m
+[39m[17C[0m��������������������������������������
+[5C�������������[1;30m�������������������������������������[0m�
+ ۱���������������������������������������������������
+[5C�������������[1;30m�������������������������������������[0m�
+[17C��������������������������������������
+
+[35m"I am, the renowned, Xena - Warrior Princess. I know you want to be one of
+the greatest warriors in this realm of magic, foes, friends, good and evil by
+killing the [5;31mRed Dragon.[0m [35mI shall offer you this magical potion
+for just `p25 gold. It gives you more Dodge, Muscle, Experience and More
+Hitpoints."
+
+"Do you accept or decline my offer?"[0m
+
+[37mIt looks like a `6murky `0green slime.[0m
+
+ @do `v01 is 1
+ @choice
+ Say, "Hmmm, I could take a bit of it."
+ Respond, "Nah maybye tommorrow"
+ @if responce is 2 then do
+ @begin
+ @show
+ `\
+ [37m"Sorry Xena, not today. I'll come back tommorrow."[0m`\
+ @key
+ @datasave xena.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+ @if responce is 1 then do
+ @begin
+ @if money < `p25 then do
+ @begin
+ @show
+`\`\`4"Nice try! Did you really think that I, Xena, Warrior Princess would under
+estimate the the amount of money you carrying? For that, my friend, you shall
+not come here ever again!"
+
+`%Xena kicks you out the door.`\
+
+ @key
+ @datasave xena.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+
+ @show
+ `\`\
+[36mYou drink down the liquid and you suddenly feel [5;31mmuch better[0m`\
+
+ @key
+ @do money - `p25
+ @do `p01 + 20
+ @do `p03 + 3
+ @do `p02 + 3
+ ; @do `p04 + (3 * `p09 / 60) <replaced with below>
+ @do `p20 is `p09
+ @do `p20 * 3
+ @do `p20 / 60
+ @do `p04 + `p20
+
+ ; @do `p05 + (1 * `p09 / 60) <replaced with below>
+ @do `p20 is `p09
+ @do `p20 / 60
+ @do `p05 + `p20
+
+ @datasave xena.idf &playernum 1
+ @drawmap
+ @update
+ @closescript
+ @end
+
+@closescript
+@end
+@if `p20 is 4 then do
+ @begin
+ @do saybar
+`%Xena is too busy now to listen to your taunts.
+ @closescript
+ @end
+@offmap
+@clear screen
+@show
+`@So, you came back for more, eh? Well first, a match. I might have retired,
+but I'm still good for any age!`\
+@key
+@do moveback
+@drawmap
+@update
+@do saybar
+`%Xena grabs you by the ear and drags you outside!
+@do `p29 is `p04
+@do `p29 + `p09
+@do `p28 is `p05
+@do `p28 * 3
+@do `p27 is `p29
+@do `p27 * 2
+@do `p26 is `p03
+@do `p26 * 3
+@do `p26 / 2
+@do `p21 random `p05 1
+@do `p28 + `p21
+@fight
+;name
+Xena
+;string said when you see him
+`5"Whenever your ready!" `2you hear from behind.
+;power move kill string
+`2She sits up ground, staring in amazement.
+;sex - 1 is male, 2 is female, 3 is it
+2
+;weapon and strength for the weapon, up to 5
+punches you|`p04
+slashes you|`p27
+throws her shacrum|`p26
+gives you the pinch|`p29
+bites you|`p04
+;defense
+`p28
+;gold reward
+`p01
+;experience
+`p07
+;hit points
+`p26
+;if win: ref file|name or NONE
+XENA|ENDFIGHT
+;if lose: ref file|name or NONE
+XENA.REF|DIE
+;if runs: ref file|name or NONE
+XENA|RUNFIGHT
+
+@#DIE
+@do saybar
+You have failed little one.`l`l`k
+@do quebar
+She spends the next half hour going over your sores.
+@do `p20 is `p03
+@do `p20 / 2
+@do `p02 IS `p20
+@datasave xena.idf &playernum 4
+@drawmap
+@update
+
+@#endfight
+@do saybar
+Congratulations, you have bested me.
+@do quebar
+She spends the next half hour going over your sores.
+@do `p02 IS `p03
+@datasave xena.idf &playernum 4
+@drawmap
+@update
+
+@#runfight
+@do x is 75
+@do y is 15
+@drawmap
+@update
+@do saybar
+You manage to run so she can't see you!
+@do quebar
+Come back here you coward! I'll get you!
+@datasave xena.idf &playernum 3
+@drawmap
+@update
+
+@#XENAFOUND
+@datanewday xena.idf
+@dataload xena.idf &playernum `p26
+@if `p26 is 3 then do
+ @begin
+ @do saybar
+
+ @do saybar
+"So that's where you are! See you in hell!"`l`l`l`l
+; @key
+ @do saybar
+
+ @do saybar
+Xena catches you before you run away. She throws her shacrum at you.`l`l`l`l`l`l
+; @key
+ @do saybar
+
+ @do saybar
+All now you can see is blood.....`l`l`l`l
+; @key
+ @run die in gametxt.ref
+ @closescript
+ @end
+
+@#regcheck
+@if xenainfo.dat exists false then do
+@begin
+@clear screen
+@show
+
+`4This program is unregistered. `$Your sysop can register it for `^FREE `$at
+`3http://quineska.bizland.com.`% Also you can pick up more IGMS from
+Quineska Software as well as the latest news concerning our software plus
+other things.
+
+Thankyou
+Christopher Armstrong
+`l`l`l`l`l`l
+@key
+@closescript
+@end
+
+@readfile xenainfo.dat
+`s10
+`p21
+`p22
+@do `p21 * 8
+@do `p21 + 8374
+@do `p21 / 6
+@do `p21 - 790
+@do `p21 * 89
+@do `p21 / 95
+@do `p21 * 6
+@do `p21 + 267
+@if `p21 not `p22 then do
+@begin
+@clear screen
+@show
+
+`4This program is unregistered. `$Your sysop can register it for `^FREE `$at
+`3http://quineska.bizland.com.`% Also you can pick up more IGMS from
+Quineska Software as well as the latest news concerning our software plus
+other things.
+
+Thankyou
+Christopher Armstrong
+`l`l`l`l`l`l
+@key
+@end
+
+@#sign
+@do moveback
+;@if xenainfo.dat exists false then do
+;@begin
+;@routine unsaybar
+;@end
+;@readfile xenainfo.dat
+;`s10
+;`p21
+;`p22
+;@do `p21 * 8
+;@do `p21 + 8374
+;@do `p21 / 6
+;@do `p21 - 790
+;@do `p21 * 89
+;@do `p21 / 95
+;@do `p21 * 6
+;@do `p21 + 267
+;@if `p21 not `p22 then do
+;@begin
+;@label unregsaybar
+;@do saybar
+;Xena's House by Quineska Software, UNREGISTERED. Please tell your SYSOP to`l`l`l`l`l`l`l`l
+;@do saybar
+;register at http://quineska.bizland.com or quineska@hotmail.com.
+; @closescript
+; @routineabort
+;
+;@end
+;@do saybar
+;Xena's House by Quineska Software. Registered to `s10.
+
+;@#unreg
+;@clear screen
+;@show
+
+
+;`4This program is unregistered. `$Your sysop can register it for `^FREE `$at
+;`3http://quineska.bizland.com.`% Also you can pick up more IGMS from
+;Quineska Software as well as the latest news concerning our software plus
+;other things.
+
+;Thankyou
+;Christopher Armstrong
+;`l`l`l`l`l`l
+;@key
+
+@#accident
+@if &lasty is 18 then do
+ @begin
+ @dataload xena2.idf &playernum `p20
+ @if `p20 is 1 then goto end
+ @do x is 65
+ @do y is 17
+ @do saybar
+Xena: How the hell did you get in there? Here is $500 as a gift!
+ @datasave xena2.idf &playernum 1
+ @do money + 500
+ @update
+ @closescript
+@end
+@do moveback
+
+@#end
+@update
+@closescript
+
+