local[$1] =
{
	$0
}

instance HandsOnCode of Script
{
	scratch         = $0
	pModule         = $ffff		; -1
	pLine           = $ffff		; -1
	client          = $0
	state           = $ffff		; -1
	start           = $0
	timer           = $0
	cycles          = $0
	seconds         = $0
	lastSeconds     = $0
	ticks           = $0
	lastTicks       = $0
	register        = $0
	script          = $0
	caller          = $0
	next            = $0
	number          = $0
	pRoom           = $0

	cue()
}

subclass <NIL> of Object
{
	pDirectObject   = $0
	pIndirectObject = $0

	getNextVerb()
	clearQueue()
}

subclass NullMover of Motion
{
	scratch         = $0
	pModule         = $ffff		; -1
	pLine           = $ffff		; -1
	client          = $0
	caller          = $0
	x               = $0
	y               = $0
	dx              = $0
	dy              = $0
	b_moveCnt       = $0
	b_i1            = $0
	b_i2            = $0
	b_di            = $0
	b_xAxis         = $0
	b_incr          = $0
	completed       = $0
	xLast           = $0
	yLast           = $0
	pImmediateCue   = $0

	doit()
}

subclass Money of WorldObject
{
	scratch         = $0
	pModule         = $ffff		; -1
	pLine           = $ffff		; -1
	top             = $0
	left            = $0
	bottom          = $0
	right           = $0
	canTrack        = $0
	canDrag         = $0
	state           = $0
	priority        = $0
	plane           = $0
	x               = $0
	y               = $0
	z               = $0
	scaleX          = $80		; 128, lastKey
	scaleY          = $80		; 128, lastKey
	maxScale        = $80		; 128, lastKey
	fixPriority     = $0
	seenRect        = $0
	view            = $c544		; -15036
	loop            = $0
	cel             = $0
	bitmap          = $0
	scaleSignal     = $8		; fixPriority
	magnifier       = $0
	signal          = $21		; 33, '!', key
	client          = $0
	clut            = $0
	heading         = $0
	noun            = $0
	case            = $0
	modNum          = $ffff		; -1
	sightAngle      = $28		; 40, '(', style
	actions         = $0
	onMeCheck       = $0
	approachX       = $0
	approachY       = $0
	approachDist    = $32		; 50, '2', edit
	_approachVerbs  = $0
	_actionVerbs    = $0
	xScaleAdj       = $64		; 100, 'd', moveDone
	yScaleAdj       = $64		; 100, 'd', moveDone
	doBaseLine      = $0
	yStep           = $2
	brLeft          = $0
	brTop           = $0
	brRight         = $0
	brBottom        = $0
	baseSetter      = $0
	cycleSpeed      = $6		; maxScale
	script          = $0
	cycler          = $0
	timer           = $0
	scaler          = $0
	detailLevel     = $0
	xLast           = $0
	yLast           = $0
	xStep           = $3		; z
	origStep        = $302		; 770, pBrowNum
	moveSpeed       = $6		; maxScale
	blocks          = $0
	mover           = $0
	looper          = $0
	viewer          = $0
	avoider         = $0
	code            = $0
	pName           = string_048c	; ""
	pBaseList       = $0
	pMsgStr         = $0
	pIDName         = $0
	pDirectObject   = $0
	pIndirectObject = $0
	pDispose        = $0
	pMover          = $0
	pLastMover      = $0
	pUser           = $0
	pUpdatorList    = $0
	pUpdateClient   = $0
	pUpdateObj      = $0
	pColor          = $0
	pClutStart      = $0
	pPaused         = $0
	pMode           = $1
	pLastMode       = $1
	pAction         = $1d		; 29, brTop
	pBaseView       = $ffff		; -1
	pServIDLo       = $ffff		; -1
	pServIDHi       = $ffff		; -1
	pPlayMovie      = $1
	pSendMovie      = $1
	pMovieDelay     = $0
	pLastTicks      = $0
	pAffectedLo     = $0
	pAffectedHi     = $0
	pPolygon        = $0
	pAddedPolygon   = $0
	pOutgoingMovie  = $0
	pRoom           = $0
	pRoomNum        = $ffff		; -1
	pMovieCmd       = $0
	pBitmapBased    = $0
	pDoScaler       = $1
	pHidden         = $0
	pStrength       = $0
	pDexterity      = $0
	pIntelligence   = $0
	pEndurance      = $0
	pValue          = $0
	pManaValue      = $0
	pLevel          = $0
	pMana           = $0
	pManaMax        = $0
	pHealth         = $0
	pHealthHi       = $0
	pHealthMax      = $0
	pHealthMaxHi    = $0
	pStamina        = $0
	pStaminaMax     = $0
	pAlignment      = $80		; 128, lastKey
	pArmorClass     = $0
	pApproachScript = $0
	pMoney          = $1
	pRecordMotion   = $0
	pWeapon         = $0
	pCombatGroup    = $0
	pInvisibleClut  = $0
	pFrozenClut     = $0
	pMsgFile        = $0
	pDestLoop       = $ffff		; -1
	pHeadingCue     = $0
	pBaseBitsLo     = $0
	pBaseBitsHi     = $0
	pSoundGroup     = $0
	pDenomination   = $0
	pContainerButton= $0
	pOwner          = $0

	buildBaseList()
	buildVerbList()
	see()
}

subclass Mana of WorldObject
{
	scratch         = $0
	pModule         = $ffff		; -1
	pLine           = $ffff		; -1
	top             = $0
	left            = $0
	bottom          = $0
	right           = $0
	canTrack        = $0
	canDrag         = $0
	state           = $0
	priority        = $0
	plane           = $0
	x               = $0
	y               = $0
	z               = $0
	scaleX          = $80		; 128, lastKey
	scaleY          = $80		; 128, lastKey
	maxScale        = $80		; 128, lastKey
	fixPriority     = $0
	seenRect        = $0
	view            = $c5a8		; -14936
	loop            = $0
	cel             = $0
	bitmap          = $0
	scaleSignal     = $8		; fixPriority
	magnifier       = $0
	signal          = $21		; 33, '!', key
	client          = $0
	clut            = $0
	heading         = $0
	noun            = $0
	case            = $0
	modNum          = $ffff		; -1
	sightAngle      = $28		; 40, '(', style
	actions         = $0
	onMeCheck       = $0
	approachX       = $0
	approachY       = $0
	approachDist    = $32		; 50, '2', edit
	_approachVerbs  = $0
	_actionVerbs    = $0
	xScaleAdj       = $64		; 100, 'd', moveDone
	yScaleAdj       = $64		; 100, 'd', moveDone
	doBaseLine      = $0
	yStep           = $2
	brLeft          = $0
	brTop           = $0
	brRight         = $0
	brBottom        = $0
	baseSetter      = $0
	cycleSpeed      = $6		; maxScale
	script          = $0
	cycler          = $0
	timer           = $0
	scaler          = $0
	detailLevel     = $0
	xLast           = $0
	yLast           = $0
	xStep           = $3		; z
	origStep        = $302		; 770, pBrowNum
	moveSpeed       = $6		; maxScale
	blocks          = $0
	mover           = $0
	looper          = $0
	viewer          = $0
	avoider         = $0
	code            = $0
	pName           = string_048c	; ""
	pBaseList       = $0
	pMsgStr         = $0
	pIDName         = $0
	pDirectObject   = $0
	pIndirectObject = $0
	pDispose        = $0
	pMover          = $0
	pLastMover      = $0
	pUser           = $0
	pUpdatorList    = $0
	pUpdateClient   = $0
	pUpdateObj      = $0
	pColor          = $0
	pClutStart      = $0
	pPaused         = $0
	pMode           = $1
	pLastMode       = $1
	pAction         = $1d		; 29, brTop
	pBaseView       = $c5a8		; -14936
	pServIDLo       = $ffff		; -1
	pServIDHi       = $ffff		; -1
	pPlayMovie      = $1
	pSendMovie      = $1
	pMovieDelay     = $0
	pLastTicks      = $0
	pAffectedLo     = $0
	pAffectedHi     = $0
	pPolygon        = $0
	pAddedPolygon   = $0
	pOutgoingMovie  = $0
	pRoom           = $0
	pRoomNum        = $ffff		; -1
	pMovieCmd       = $0
	pBitmapBased    = $0
	pDoScaler       = $1
	pHidden         = $0
	pStrength       = $0
	pDexterity      = $0
	pIntelligence   = $0
	pEndurance      = $0
	pValue          = $0
	pManaValue      = $0
	pLevel          = $0
	pMana           = $0
	pManaMax        = $0
	pHealth         = $0
	pHealthHi       = $0
	pHealthMax      = $0
	pHealthMaxHi    = $0
	pStamina        = $0
	pStaminaMax     = $0
	pAlignment      = $80		; 128, lastKey
	pArmorClass     = $0
	pApproachScript = $0
	pMoney          = $1
	pRecordMotion   = $0
	pWeapon         = $0
	pCombatGroup    = $0
	pInvisibleClut  = $0
	pFrozenClut     = $0
	pMsgFile        = $0
	pDestLoop       = $ffff		; -1
	pHeadingCue     = $0
	pBaseBitsLo     = $0
	pBaseBitsHi     = $0
	pSoundGroup     = $0
	pDenomination   = $0
	pContainerButton= $0
	pOwner          = $0

	buildBaseList()
	buildVerbList()
	see()
}

subclass WorldEgo of WorldActor
{
	scratch         = $0
	pModule         = $ffff		; -1
	pLine           = $ffff		; -1
	top             = $0
	left            = $0
	bottom          = $0
	right           = $0
	canTrack        = $0
	canDrag         = $0
	state           = $0
	priority        = $0
	plane           = $0
	x               = $0
	y               = $0
	z               = $0
	scaleX          = $80		; 128, lastKey
	scaleY          = $80		; 128, lastKey
	maxScale        = $80		; 128, lastKey
	fixPriority     = $0
	seenRect        = $0
	view            = $ffff		; -1
	loop            = $0
	cel             = $0
	bitmap          = $0
	scaleSignal     = $8		; fixPriority
	magnifier       = $0
	signal          = $21		; 33, '!', key
	client          = $0
	clut            = $0
	heading         = $0
	noun            = $0
	case            = $0
	modNum          = $ffff		; -1
	sightAngle      = $28		; 40, '(', style
	actions         = $0
	onMeCheck       = $0
	approachX       = $0
	approachY       = $0
	approachDist    = $32		; 50, '2', edit
	_approachVerbs  = $0
	_actionVerbs    = $0
	xScaleAdj       = $64		; 100, 'd', moveDone
	yScaleAdj       = $64		; 100, 'd', moveDone
	doBaseLine      = $0
	yStep           = $2
	brLeft          = $0
	brTop           = $0
	brRight         = $0
	brBottom        = $0
	baseSetter      = $0
	cycleSpeed      = $6		; maxScale
	script          = $0
	cycler          = $0
	timer           = $0
	scaler          = $0
	detailLevel     = $0
	xLast           = $0
	yLast           = $0
	xStep           = $3		; z
	origStep        = $302		; 770, pBrowNum
	moveSpeed       = $6		; maxScale
	blocks          = $0
	mover           = $0
	looper          = $0
	viewer          = $0
	avoider         = $0
	code            = $0
	pName           = $0
	pBaseList       = $0
	pMsgStr         = $0
	pIDName         = $0
	pDirectObject   = $0
	pIndirectObject = $0
	pDispose        = $0
	pMover          = $0
	pLastMover      = $0
	pUser           = $0
	pUpdatorList    = $0
	pUpdateClient   = $0
	pUpdateObj      = $0
	pColor          = $0
	pClutStart      = $0
	pPaused         = $0
	pMode           = $1
	pLastMode       = $1
	pAction         = $1
	pBaseView       = $ffff		; -1
	pServIDLo       = $ffff		; -1
	pServIDHi       = $ffff		; -1
	pPlayMovie      = $0
	pSendMovie      = $1
	pMovieDelay     = $0
	pLastTicks      = $0
	pAffectedLo     = $0
	pAffectedHi     = $0
	pPolygon        = $ffff		; -1
	pAddedPolygon   = $0
	pOutgoingMovie  = $0
	pRoom           = $0
	pRoomNum        = $ffff		; -1
	pMovieCmd       = $0
	pBitmapBased    = $0
	pDoScaler       = $1
	pHidden         = $0
	pStrength       = $0
	pDexterity      = $0
	pIntelligence   = $0
	pEndurance      = $0
	pValue          = $0
	pManaValue      = $0
	pLevel          = $0
	pMana           = $0
	pManaMax        = $0
	pHealth         = $0
	pHealthHi       = $0
	pHealthMax      = $0
	pHealthMaxHi    = $0
	pStamina        = $0
	pStaminaMax     = $0
	pAlignment      = $80		; 128, lastKey
	pArmorClass     = $0
	pApproachScript = $0
	pMoney          = $0
	pRecordMotion   = $1
	pWeapon         = $0
	pCombatGroup    = $0
	pInvisibleClut  = $0
	pFrozenClut     = $0
	pMsgFile        = $0
	pDestLoop       = $ffff		; -1
	pHeadingCue     = $0
	pBaseBitsLo     = $0
	pBaseBitsHi     = $0
	pSoundGroup     = $0
	pHead           = $0
	pSittingOn      = $0
	pCombatX        = $0
	pCombatY        = $0
	pStep           = $0
	pEntryX         = $ffff		; -1
	pEntryY         = $ffff		; -1
	pWhoToFollow    = $0
	pReady          = $1
	pHeadOrigin     = $0
	pHeadBitmaps    = $0
	pShirtView      = $ffff		; -1
	pPantsView      = $ffff		; -1
	pShoesView      = $ffff		; -1
	pBeltView       = $ffff		; -1
	pWristView      = $ffff		; -1
	pBaldricView    = $ffff		; -1
	pRobeView       = $ffff		; -1
	pCowlView       = $ffff		; -1
	pSkirtView      = $ffff		; -1
	pWeaponView     = $ffff		; -1
	pShieldView     = $ffff		; -1
	pHelmetView     = $ffff		; -1
	pFriend         = $0
	pPeaceful       = $1
	pBarIndex       = $ffff		; -1
	edgeHit         = $0
	pChatTarget     = $0
	pInit           = $1
	pMsgCount       = $0
	pLastNoun       = $ffff		; -1
	pLastVerb       = $ffff		; -1
	pMoneyObj       = $0
	pManaObj        = $0
	pTargetting     = $0
	pClient         = $0

	init()
	doit()
	handleEvent()
	hide()
	buildVerbList()
	handleVerb()
	see()
	showContents()
	stopAction()
	setMode()
	clearMode()
	restoreMode()
	fromPacket()
	setValue()
	setManaValue()
	isWizard()
	startTargetting()
	stopTargetting()
	setPassword()
}

instance LookAtCharacter of DemonsScript
{
	scratch         = $0
	pModule         = $ffff		; -1
	pLine           = $ffff		; -1
	client          = $0
	state           = $ffff		; -1
	start           = $0
	timer           = $0
	cycles          = $0
	seconds         = $0
	lastSeconds     = $0
	ticks           = $0
	lastTicks       = $0
	register        = $0
	script          = $0
	caller          = $0
	next            = $0
	number          = $0
	pRoom           = $0

	changeState()
}

string_0470	= "HandsOnCode"
string_047c	= "NullMover"
string_0486	= "Money"
string_048c	= ""
string_048d	= "You see %s in your money bag."
string_04ab	= "You see your empty money bag!"
string_04c9	= "Mana"
string_04ce	= "You see %s in your crystal sack."
string_04ef	= "You see your empty crystal sack!"
string_0510	= "Choose target..."
string_0521	= "Choose grid location..."
string_0539	= "Choose location..."
string_054c	= "You are too far away to attack.\n"
string_056d	= "That is not a valid target.\n"
string_058a	= "WorldEgo"
string_0593	= "LookAtCharacter"

