[ITEMDEF i_groom_timer]
ID=01
NAME=Groom timer
TYPE=t_EQ_script
LAYER=30

ON=@Create
TIMER=30

On=@EQUIP
TIMER=30

ON=@Timer
TIMER=30
//CONT.SAY Komu Jrat'??!
IF (0<REGION.TAG.FA1UID>!=0)
CONT.NEWITEM i_gold
CONT.ACT.LINK=<REGION.TAG.FA1UID>
IF (<CONT.ACT.LINK.FOOD> < <CONT.ACT.LINK.MAXFOOD> )
  VAR.x=<EVAL <CONT.ACT.LINK.TAMING>/40>
  IF (<EVAL <CONT.TAG.RNT> + (- <VAR.X>)> > 0)
   CONT.ACT.LINK.FOOD=<CONT.ACT.LINK.FOOD>+1
   CONT.ACT.LINK.ANIM 3
   CONT.TAG.RNT=<EVAL <CONT.TAG.RNT> + (- <VAR.X>)>
  ENDIF
  RETURN 1
ENDIF
CONT.ACT.REMOVE
ENDIF
IF (0<REGION.TAG.FA2UID>!=0)
CONT.NEWITEM i_gold
CONT.ACT.LINK=<REGION.TAG.FA2UID>
IF (<CONT.ACT.LINK.FOOD> < <CONT.ACT.LINK.MAXFOOD> )
  VAR.x=<EVAL <CONT.ACT.LINK.TAMING>/40>
  IF (<EVAL <CONT.TAG.RNT> + (- <VAR.X>)> > 0)
   CONT.ACT.LINK.FOOD=<CONT.ACT.LINK.FOOD>+1
   CONT.ACT.LINK.ANIM 3
   CONT.TAG.RNT=<EVAL <CONT.TAG.RNT> + (- <VAR.X>)>
  ENDIF
  RETURN 1
ENDIF
CONT.ACT.REMOVE
ENDIF
IF (0<REGION.TAG.FA3UID>!=0)
CONT.NEWITEM i_gold
CONT.ACT.LINK=<REGION.TAG.FA3UID>
IF (<CONT.ACT.LINK.FOOD> < <CONT.ACT.LINK.MAXFOOD> )
  VAR.x=<EVAL <CONT.ACT.LINK.TAMING>/40>
  IF (<EVAL <CONT.TAG.RNT> + (- <VAR.X>)> > 0)
   CONT.ACT.LINK.FOOD=<CONT.ACT.LINK.FOOD>+1
   CONT.ACT.LINK.ANIM 3
   CONT.TAG.RNT=<EVAL <CONT.TAG.RNT> + (- <VAR.X>)>
  ENDIF
  RETURN 1
ENDIF
CONT.ACT.REMOVE
ENDIF
RETURN 1



[SPEECH spk_stable_cmds]
DEFNAME=spk_stable_cmds
ON=*stable*
IF (0<REGION.TAG.FeedCan>!=1)
SRC.SYSMESSAGE You don't have a groom
RETURN 1
ELSEIF (<SRC.UID>==<MORE>) || (<TAG.CO1UID>==<SRC.UID>) || (<TAG.CO2UID>==<SRC.UID>) || (<TAG.CO3UID>==<SRC.UID>) || (<TAG.CO4UID>==<SRC.UID>) || (<TAG.CO5UID>==<SRC.UID>) || (<TAG.CO6UID>==<SRC.UID>) || (<TAG.CO7UID>==<SRC.UID>) || (<TAG.CO8UID>==<SRC.UID>) || (<SRC.ACCOUNT.PLEVEL> >=4)
TARGET Choose an creature
MOREX=8
RETURN 1
ENDIF

ON=*retrieve*
IF (0<REGION.TAG.FeedCan>!=1)
RETURN 1
ELSEIF (<SRC.UID>==<MORE>) || (<TAG.CO1UID>==<SRC.UID>) || (<TAG.CO2UID>==<SRC.UID>) || (<TAG.CO3UID>==<SRC.UID>) || (<TAG.CO4UID>==<SRC.UID>) || (<TAG.CO5UID>==<SRC.UID>) || (<TAG.CO6UID>==<SRC.UID>) || (<TAG.CO7UID>==<SRC.UID>) || (<TAG.CO8UID>==<SRC.UID>) || (<SRC.ACCOUNT.PLEVEL> >=4)
TARGET Choose an creature
MOREX=9
RETURN 1
ENDIF

ON=*I wish to hire a groom*
//Slot coords
REGION.TAG.X=<P.X>+(-5)
REGION.TAG.Y1=<P.Y>+(-2)
REGION.TAG.Y2=<P.Y>+(-5)
REGION.TAG.Y3=<P.Y>+(-8)
IF (0<REGION.TAG.FeedCan>==1)
  SRC.SYSMESSAGE You already have a groom!
  RETURN 1
ELSEIF (<SRC.UID>==<MORE>) || (<TAG.CO1UID>==<SRC.UID>) || (<TAG.CO2UID>==<SRC.UID>) || (<TAG.CO3UID>==<SRC.UID>) || (<TAG.CO4UID>==<SRC.UID>) || (<TAG.CO5UID>==<SRC.UID>) || (<TAG.CO6UID>==<SRC.UID>) || (<TAG.CO7UID>==<SRC.UID>) || (<TAG.CO8UID>==<SRC.UID>) || (<SRC.ACCOUNT.PLEVEL> >=4)
  REGION.TAG.FeedCan=1
  SRC.NEWNPC c_h_groom
  SRC.ACT.GO <EVAL <SRC.REGION.TAG.X>+3 >, <EVAL <SRC.REGION.TAG.Y3> >
  SRC.ACT.HOME.X=<REGION.TAG.X>
  SRC.ACT.HOME.Y=<REGION.TAG.Y3>
  SRC.ACT.HOMEDIST=3
  REGION.TAG.GROOMUID=<SRC.ACT.UID>
  RETURN 1
ENDIF

[SPEECH spk_groom]
ON=*stable*
ON=*retrieve*
ON=*I wish to hire a groom*
RETURN 1
ON=*money*
ON=*stock*
ON=*pay*
ON=*feed*
ON=*rent*
ON=*rnt*
SAY Now I have <EVAL <TAG.RNT>> gp for feeding your animals
RETURN 1

[CHARDEF c_h_groom]
DEFNAME=C_H_groom
NAME=#NAMES_HUMANMALE the Groom
ID=C_MAN
//DESIRES=i_gold,e_notoriety,i_bottle_ale,i_pitcher_ale
AVERSIONS=t_TRAP,t_eerie_stuff
TSPEECH=spk_groom
TSPEECH=spk_human_prime
TSPEECH=spk_needs
TSPEECH=spk_rehello
TSPEECH=spk_human_default

TEVENTS=e_groom_need
TEVENTS=e_Human_HearUnk
TEVENTS=e_Human_Needs
TEVENTS=e_Human_ConvInit
TEVENTS=e_Human_Greet
TEVENTS=e_Human_Space
//TEVENTS=e_Human_Refuse
TEVENTS=e_Human_Environ

ON=@Create
COLOR=colors_skin
STR={166 180}
DEX={66 80}
INT={71 85}

ANIMALLORE={45.0 68.0}
TAMING={55.0 78.0}
VETERINARY={35.0 58.0}
WRESTLING={25.0 48.0}
TACTICS={45.0 65.0}

NPC=BRAIN_HUMAN

TAG.RNT=0

ON=@NPCRestock
ITEM=RANDOM_LIGHT
ITEM=i_shirt_plain
COLOR=colors_all
ITEM=random_pants
COLOR=colors_all
ITEM=random_boots
ITEM=i_staff_quarter
ITEM=i_groom_timer

[EVENTS e_groom_need]
ON=@ReceiveItem
IF (<SRC.TARG.BaseID>==i_gold)
SAY Oh, thx for paying me
TAG.RNT=<TAG.RNT>+<ARGO.AMOUNT>
SRC.TARG.Remove
RETURN 1
ENDIF
IF (<SRC.TARG.BaseID>==i_bottle_ale) || (<SRC.TARG.BaseID>==i_bottle_liquor) || (<SRC.TARG.BaseID>==i_bottle_wine)
SAY Oh, I like it!!
TAG.RNT=<TAG.RNT>+50
SRC.TARG.Remove
RETURN 1
ENDIF
IF (<SRC.TARG.BaseID>==i_pitcher_ale) || (<SRC.TARG.BaseID>==i_pitcher_liquor) || (<SRC.TARG.BaseID>==i_pitcher_wine) || (<SRC.TARG.BaseID>==i_pitcher_cider)
SAY Oh, I like it!!
TAG.RNT=<TAG.RNT>+100
SRC.TARG.Remove
RETURN 1
ENDIF
IF (<SRC.TARG.BaseID>==i_jug_cider)
SAY Oh, I like it!!
TAG.RNT=<TAG.RNT>+80
SRC.TARG.Remove
RETURN 1
ENDIF
ON=@NPCSeeNewPlayer
IF (<TAG.RNT> < 200)
SAY I don't have enought money for feeding your animals. Pls pay me.
RETURN 1
ENDIF
ON=@Death
SRC.REGION.TAG.FeedCan=0


[EVENTS e_astable]
ON=@ItemStep
IF (0<SRC.REGION.TAG.FeedCan>!=0)
//1st slot
IF (<SRC.UID>==0<SRC.REGION.TAG.FA1UID>) && (  (<SRC.P.X>!=<SRC.REGION.TAG.X>) || (<SRC.P.Y>!=<SRC.REGION.TAG.Y1>)  )
  SRC.ACTION=065
  SRC.GO <EVAL <SRC.REGION.TAG.X> >, <EVAL <SRC.REGION.TAG.Y1> >
  SRC.FIX
  RETURN 1
ENDIF
//2nd slot
IF (<SRC.UID>==0<SRC.REGION.TAG.FA2UID>) && (  (<SRC.P.X>!=<SRC.REGION.TAG.X>) || (<SRC.P.Y>!=<SRC.REGION.TAG.Y2>)  )
  SRC.ACTION=065
  SRC.GO <EVAL <SRC.REGION.TAG.X> >, <EVAL <SRC.REGION.TAG.Y2> >
  SRC.FIX
  RETURN 1
ENDIF
//3rd slot
IF (<SRC.UID>==0<SRC.REGION.TAG.FA3UID>) && (  (<SRC.P.X>!=<SRC.REGION.TAG.X>) || (<SRC.P.Y>!=<SRC.REGION.TAG.Y3>)  )
  SRC.ACTION=065
  SRC.GO <EVAL <SRC.REGION.TAG.X> >, <EVAL <SRC.REGION.TAG.Y3> >
  SRC.FIX
  RETURN 1
ENDIF
ENDIF

ON=@Death
IF (0<SRC.REGION.TAG.FeedCan>!=0)
//1st slot
IF (<SRC.UID>==0<SRC.REGION.TAG.FA1UID>)
  SRC.REGION.TAG.FA1UID=0
  RETURN 1
ENDIF
//2nd slot
IF (<SRC.UID>==0<SRC.REGION.TAG.FA2UID>)
  SRC.REGION.TAG.FA2UID=0
  RETURN 1
ENDIF
//3rd slot
IF (<SRC.UID>==0<SRC.REGION.TAG.FA3UID>)
  SRC.REGION.TAG.FA3UID=0
  RETURN 1
ENDIF
ENDIF


[EVENTS e_hstable]
ON=@ItemStep
IF (<SRC.FINDLAYER(25)>!=0) && (0<SRC.REGION.TAG.FeedCan>!=0)
//1st slot
IF (<SRC.FINDLAYER(25).MORE2>==0<SRC.REGION.TAG.FA1UID>) && (  (<SRC.P.X>!=<SRC.REGION.TAG.X>) || (<SRC.P.Y>!=<SRC.REGION.TAG.Y1>)  )
  SRC.GO <EVAL <SRC.REGION.TAG.X> >, <EVAL <SRC.REGION.TAG.Y1> >
  SRC.FIX
  SRC.SYSMESSAGE You can't use a stabled animal!
  RETURN 1
ENDIF
//2nd slot
IF (<SRC.FINDLAYER(25).MORE2>==0<SRC.REGION.TAG.FA2UID>) && (  (<SRC.P.X>!=<SRC.REGION.TAG.X>) || (<SRC.P.Y>!=<SRC.REGION.TAG.Y2>)  )
  SRC.GO <EVAL <SRC.REGION.TAG.X> >, <EVAL <SRC.REGION.TAG.Y2> >
  SRC.FIX
  SRC.SYSMESSAGE You can't use a stabled animal!
  RETURN 1
ENDIF
//3rd slot
IF (<SRC.FINDLAYER(25).MORE2>==0<SRC.REGION.TAG.FA3UID>) && (  (<SRC.P.X>!=<SRC.REGION.TAG.X>) || (<SRC.P.Y>!=<SRC.REGION.TAG.Y3>)  )
  SRC.GO <EVAL <SRC.REGION.TAG.X> >, <EVAL <SRC.REGION.TAG.Y3> >
  SRC.FIX
  SRC.SYSMESSAGE You can't use a stabled animal!
  RETURN 1
ENDIF
ENDIF

[ITEMDEF i_deed_stable]
DEFNAME=i_deed_stable
NAME=Deed to a stable
ID=i_deed
RESOURCES=i_deed, i_multi_stable
VALUE=75000
CATEGORY=Provisions - Deeds
SUBSECTION=House Deeds
DESCRIPTION=Stable

ON=@CREATE
MORE=i_multi_stable

[ITEMDEF i_multi_stable]
//ID=i_candle
ID=01
NAME=stable
TYPE=t_multi
VALUE=75000

CATEGORY=Vampirclan
SUBSECTION=Houses
DESCRIPTION=STABLE

MULTIREGION=0 0 0 0
//E qall
COMPONENT 0a7 -1 0 0
COMPONENT 0b9 -1 -1 0
COMPONENT 0a7 -1 -2 0
COMPONENT 0a7 -1 -3 0
COMPONENT 0b9 -1 -4 0
COMPONENT 0a7 -1 -5 0
COMPONENT 0a7 -1 -6 0
COMPONENT 0b9 -1 -7 0
COMPONENT 0a7 -1 -8 0
//N wall
//COMPONENT 0a8 0 -9 0
COMPONENT 0a8 -1 -9 0
COMPONENT 0a8 -2 -9 0
COMPONENT 0a8 -3 -9 0
COMPONENT 0a8 -4 -9 0
COMPONENT 0a8 -5 -9 0
COMPONENT 0a8 -6 -9 0
//W wall
COMPONENT 0a7 -7 0 0
COMPONENT 0b9 -7 -1 0
COMPONENT 0a7 -7 -2 0
COMPONENT 0a7 -7 -3 0
COMPONENT 0b9 -7 -4 0
COMPONENT 0a7 -7 -5 0
COMPONENT 0a7 -7 -6 0
COMPONENT 0b9 -7 -7 0
COMPONENT 0a7 -7 -8 0
//W-E fence 1
COMPONENT 0836 -6 -3 0
COMPONENT 0836 -5 -3 0
COMPONENT 0836 -4 -3 0
//W-E fence 2
COMPONENT 0836 -6 -6 0
COMPONENT 0836 -5 -6 0
COMPONENT 0836 -4 -6 0
//N-S fence
COMPONENT 0837 -4 0 0
COMPONENT 0837 -4 -2 0
COMPONENT 0837 -4 -3 0
COMPONENT 0837 -4 -5 0
COMPONENT 0837 -4 -6 0
COMPONENT 0837 -4 -8 0
//S wall
COMPONENT 0ab -1 0 0
COMPONENT 0ad -4 0 0
//COMPONENT 0a8 -4 0 0
COMPONENT 0a8 -5 0 0
COMPONENT 0a8 -6 0 0
//water
COMPONENT i_tub_water -6 -2 0
COMPONENT i_tub_water -6 -5 0
COMPONENT i_tub_water -6 -8 0
//COMPONENT 0b43 -3 -8 0
//COMPONENT 0b44 -2 -8 0
//doors
COMPONENT 086e -4 -1 0
COMPONENT 086e -4 -4 0
COMPONENT 086e -4 -7 0
COMPONENT 06e7 -2 0 0
COMPONENT 06e5 -3 0 0
//roof
COMPONENT 05a6 -6 1 20
COMPONENT 05a6 -6 0 20
COMPONENT 05a6 -6 -1 20
COMPONENT 05a6 -6 -2 20
COMPONENT 05a6 -6 -3 20
COMPONENT 05a6 -6 -4 20
COMPONENT 05a6 -6 -5 20
COMPONENT 05a6 -6 -6 20
COMPONENT 05a6 -6 -7 20
COMPONENT 05a6 -6 -8 20

COMPONENT 05a6 -5 1 23
COMPONENT 05a6 -5 0 23
COMPONENT 05a6 -5 -1 23
COMPONENT 05a6 -5 -2 23
COMPONENT 05a6 -5 -3 23
COMPONENT 05a6 -5 -4 23
COMPONENT 05a6 -5 -5 23
COMPONENT 05a6 -5 -6 23
COMPONENT 05a6 -5 -7 23
COMPONENT 05a6 -5 -8 23

COMPONENT 05a6 -4 1 26
COMPONENT 05a6 -4 0 26
COMPONENT 05a6 -4 -1 26
COMPONENT 05a6 -4 -2 26
COMPONENT 05a6 -4 -3 26
COMPONENT 05a6 -4 -4 26
COMPONENT 05a6 -4 -5 26
COMPONENT 05a6 -4 -6 26
COMPONENT 05a6 -4 -7 26
COMPONENT 05a6 -4 -8 26

COMPONENT 05a5 -3 1 29
COMPONENT 05a5 -3 0 29
COMPONENT 05a5 -3 -1 29
COMPONENT 05a5 -3 -2 29
COMPONENT 05a5 -3 -3 29
COMPONENT 05a5 -3 -4 29
COMPONENT 05a5 -3 -5 29
COMPONENT 05a5 -3 -6 29
COMPONENT 05a5 -3 -7 29
COMPONENT 05a5 -3 -8 29

COMPONENT 05a4 -2 1 26
COMPONENT 05a4 -2 0 26
COMPONENT 05a4 -2 -1 26
COMPONENT 05a4 -2 -2 26
COMPONENT 05a4 -2 -3 26
COMPONENT 05a4 -2 -4 26
COMPONENT 05a4 -2 -5 26
COMPONENT 05a4 -2 -6 26
COMPONENT 05a4 -2 -7 26
COMPONENT 05a4 -2 -8 26

COMPONENT 05a4 -1 1 23
COMPONENT 05a4 -1 0 23
COMPONENT 05a4 -1 -1 23
COMPONENT 05a4 -1 -2 23
COMPONENT 05a4 -1 -3 23
COMPONENT 05a4 -1 -4 23
COMPONENT 05a4 -1 -5 23
COMPONENT 05a4 -1 -6 23
COMPONENT 05a4 -1 -7 23
COMPONENT 05a4 -1 -8 23

COMPONENT 05a4 0 1 20
COMPONENT 05a4 0 0 20
COMPONENT 05a4 0 -1 20
COMPONENT 05a4 0 -2 20
COMPONENT 05a4 0 -3 20
COMPONENT 05a4 0 -4 20
COMPONENT 05a4 0 -5 20
COMPONENT 05a4 0 -6 20
COMPONENT 05a4 0 -7 20
COMPONENT 05a4 0 -8 20

//Wall under roof
COMPONENT 0c1 -3 0 20
COMPONENT 0c1 -4 0 20
COMPONENT 0c1 -5 0 20

//Sign
COMPONENT 0b98 -5 1 0
COMPONENT i_sign_brass_2 -5 1 0

//dirt
COMPONENT 031f8 -1 0 0
COMPONENT 031f8 -2 0 0
COMPONENT 031f8 -3 0 0
COMPONENT 031f8 -4 0 0
COMPONENT 031f8 -5 0 0
COMPONENT 031f8 -6 0 0

COMPONENT 031f8 -1 -1 0
COMPONENT 031f8 -2 -1 0
COMPONENT 031f8 -3 -1 0
COMPONENT 031f8 -4 -1 0
COMPONENT 031f8 -5 -1 0
COMPONENT 031f8 -6 -1 0

COMPONENT 031f8 -1 -2 0
COMPONENT 031f8 -2 -2 0
COMPONENT 031f8 -3 -2 0
COMPONENT 031f8 -4 -2 0
COMPONENT 031f8 -5 -2 0
COMPONENT 031f8 -6 -2 0

COMPONENT 031f8 -1 -3 0
COMPONENT 031f8 -2 -3 0
COMPONENT 031f8 -3 -3 0
COMPONENT 031f8 -4 -3 0
COMPONENT 031f8 -5 -3 0
COMPONENT 031f8 -6 -3 0

COMPONENT 031f8 -1 -4 0
COMPONENT 031f8 -2 -4 0
COMPONENT 031f8 -3 -4 0
COMPONENT 031f8 -4 -4 0
COMPONENT 031f8 -5 -4 0
COMPONENT 031f8 -6 -4 0

COMPONENT 031f8 -1 -5 0
COMPONENT 031f8 -2 -5 0
COMPONENT 031f8 -3 -5 0
COMPONENT 031f8 -4 -5 0
COMPONENT 031f8 -5 -5 0
COMPONENT 031f8 -6 -5 0

COMPONENT 031f8 -1 -6 0
COMPONENT 031f8 -2 -6 0
COMPONENT 031f8 -3 -6 0
COMPONENT 031f8 -4 -6 0
COMPONENT 031f8 -5 -6 0
COMPONENT 031f8 -6 -6 0

COMPONENT 031f8 -1 -7 0
COMPONENT 031f8 -2 -7 0
COMPONENT 031f8 -3 -7 0
COMPONENT 031f8 -4 -7 0
COMPONENT 031f8 -5 -7 0
COMPONENT 031f8 -6 -7 0

COMPONENT 031f8 -1 -8 0
COMPONENT 031f8 -2 -8 0
COMPONENT 031f8 -3 -8 0
COMPONENT 031f8 -4 -8 0
COMPONENT 031f8 -5 -8 0
COMPONENT 031f8 -6 -8 0

TSPEECH spk_house_cmds
TSPEECH spk_stable_cmds

ON=@CREATE
MOREY=3
MOREZ=0
TAG.PEN=1
TAG.FA1UID=0
TAG.FA2UID=0
TAG.FA3UID=0

ON=@Targon_Item
IF (<MOREX>=8)
SRC.SYSMESSAGE You can't stable an items!
RETURN 1
ENDIF
IF (<MOREX>=9)
SRC.SYSMESSAGE You can't retrieve an items!
RETURN 1
ENDIF
IF (<MOREX>=4)
SRC.MESSAGE You can only ban people!
RETURN 1
ENDIF
IF (<MOREX>=5)
SRC.MESSAGE You can only eject people!
RETURN 1
ENDIF
IF (<MOREX>=7)
SRC.SYSMESSAGE You can only transfer house's to other players!
RETURN 1
ENDIF
IF (<MOREX>=1)
IF (<SRC.TARG.TYPE>==t_door) || (<SRC.TARG.TYPE>==t_door_locked)
SRC.MESSAGE You can not lock down a door!
SRC.TARG.MESSAGE I refuse to lock this down.
RETURN 1
ELSEIF (<SRC.TARG.TYPE>==t_sign_gump)
SRC.TARG.MESSAGE You can not lock this down under the house sign!
SRC.TARG.MESSAGE I refuse to lock this down.
RETURN 1
ELSEIF (<SRC.TARG.TYPE>==t_stone_guild)
SRC.TARG.MESSAGE You cannot lock down a guildstone!
SRC.TARG.MESSAGE I refuse to lock this down.
RETURN 1
ELSEIF (<SRC.TARG.BASEID>=i_strong_box)
SRC.TARG.MESSAGE You cannot lock down a strongbox!
SRC.TARG.MESSAGE I refuse to lock this down.
RETURN 1
ELSEIF (<SRC.TARG.CONT>>=1)
SRC.MESSAGE You can not lock this down, place it on the ground first.
RETURN 1
ELSEIF (<SRC.TARG.LINK>=<UID>) || (<SRC.TARG.ATTR>=<SRC.TARG.ATTR>|attr_move_never)
SRC.MESSAGE That is already locked down.
RETURN 1
ELSEIF (<EVAL <TAG.LOCKNUMBER>>>=<MOREY>)
SRC.TARG.MESSAGE You may not lock down this item!
SRC.TARG.MESSAGE The maximum number of locked down items would be exceeded!
RETURN 1
ELSEIF (<SRC.TARG.REGION.NAME>==<MORE>) && (<SRC.TARG.TYPE>==t_deed)
TAG.LOCKNUMBER <EVAL <TAG.LOCKNUMBER>>+1
SRC.TARG.LINK <UID>
SRC.TARG.TYPE t_deed_locked
SRC.TARG.MESSAGE Locked down!
RETURN 1
ELSEIF (<SRC.TARG.REGION.NAME>==<MORE>) && (<SRC.TARG.AMOUNT>>=2)
TAG.LOCKNUMBER <EVAL <TAG.LOCKNUMBER>>+1
SRC.TARG.LINK <UID>
SRC.TARG.MESSAGE Locked down!
RETURN 1
ELSEIF (<SRC.TARG.REGION.NAME>==<MORE>)
SRC.TARG.LINK <UID>
TAG.LOCKNUMBER <EVAL <TAG.LOCKNUMBER>>+1
SRC.TARG.ATTR <SRC.TARG.ATTR>|attr_move_never
SRC.TARG.MESSAGE Locked down!
RETURN 1
ELSE
SRC.SYSMESSAGE That is not in your house.
RETURN 1
ENDIF
ENDIF
IF (<MOREX>=2)
IF (<SRC.TARG.TYPE>==t_secure)
SRC.MESSAGE That is already secured.
RETURN 1
ELSEIF (<SRC.TARG.TYPE>==t_door) || (<SRC.TARG.TYPE>==t_door_locked)
SRC.MESSAGE You can not lock down a door!
SRC.TARG.MESSAGE I refuse to lock this down.
RETURN 1
ELSEIF (<SRC.TARG.TYPE>==t_sign_gump)
SRC.TARG.MESSAGE You can not lock this down under the house sign!
SRC.TARG.MESSAGE I refuse to lock this down.
RETURN 1
ELSEIF !(<SRC.TARG.TYPE>==t_container)
SRC.MESSAGE This isnt a container!
RETURN 1
ELSEIF (<SRC.TARG.BASEID>==i_strong_box)
SRC.MESSAGE You cannot secure a strongbox!
RETURN 1
ELSEIF (<EVAL <TAG.LOCKNUMBER>>>=(<MOREY>-124)) || (<EVAL <TAG.SECURENUMBER>>>=<MOREZ>)
SRC.TARG.MESSAGE You may not secure this container!
SRC.TARG.MESSAGE The maximum number of locked down items would be exceeded!
RETURN 1
ELSEIF (<SRC.TARG.LINK>==<UID>) && (<SRC.TARG.TYPE>==t_container) && (<SRC.TARG.REGION.NAME>==<MORE>)
SRC.TARG.TYPE t_secure
TAG.LOCKNUMBER <EVAL <TAG.LOCKNUMBER>>+(-1)
TAG.LOCKNUMBER <EVAL <TAG.LOCKNUMBER>>+125
TAG.SECURENUMBER <EVAL <TAG.SECURENUMBER>>+1
TAG.SECUREMAX (<MOREZ>+(-<EVAL <TAG.SECURENUMBER>>)
SRC.TARG.LINK <UID>
SRC.TARG.MESSAGE Secure!
SRC.SYSMESSAGE House secure container count : <MOREZ>
SRC.SYSMESSAGE Number of secures left : <EVAL <TAG.SECUREMAX>>
SRC.FIX
RETURN 1
ELSEIF (<SRC.TARG.REGION.NAME>==<MORE>)
SRC.TARG.TYPE t_secure
TAG.LOCKNUMBER <EVAL <TAG.LOCKNUMBER>>+125
TAG.SECURENUMBER <EVAL <TAG.SECURENUMBER>>+1
TAG.SECUREMAX (<MOREZ>+(-<EVAL <TAG.SECURENUMBER>>)
SRC.TARG.LINK <UID>
SRC.TARG.MESSAGE Secure!
SRC.SYSMESSAGE House secure container count : <MOREZ>
SRC.SYSMESSAGE Number of secures left : <EVAL <TAG.SECUREMAX>>
SRC.FIX
RETURN 1
ELSE
SRC.SYSMESSAGE That is not in your house.
RETURN 1
ENDIF
ENDIF
IF (<MOREX>=3)
IF !(<SRC.TARG.REGION.NAME>==<MORE>)
SRC.SYSMESSAGE That is not in your house.
RETURN 1
ELSEIF (<SRC.TARG.TYPE>==t_door) || (<SRC.TARG.TYPE>==t_door_locked)
SRC.MESSAGE This is not locked down or secured!
RETURN 1
ELSEIF (<SRC.TARG.TYPE>==t_sign_gump)
SRC.MESSAGE This is not locked down or secured!
RETURN 1
ELSEIF (<SRC.TARG.TYPE>==t_trash_can) || (<SRC.TARG.BASEID>==i_strong_box)
SRC.MESSAGE You cannot release that!
RETURN 1
ELSEIF (<SRC.TARG.TYPE>==t_deed_locked)
SRC.TARG.TYPE t_deed
SRC.TARG.LINK <SRC.TARG.UID>
TAG.LOCKNUMBER <EVAL <TAG.LOCKNUMBER>>+(-1)
SRC.TARG.MESSAGE [no longer locked down]
SRC.TARG.MESSAGE
SRC.FIX
RETURN 1
ELSEIF (<SRC.TARG.TYPE>==t_secure)
SRC.TARG.TYPE t_container
SRC.TARG.LINK <SRC.TARG.UID>
SRC.TARG.ATTR <SRC.TARG.ATTR>&~attr_move_never
TAG.LOCKNUMBER <EVAL <TAG.LOCKNUMBER>>+(-125)
TAG.SECURENUMBER <EVAL <TAG.SECURENUMBER>>+(-1)
SRC.TARG.MESSAGE [no longer locked down]
SRC.TARG.MESSAGE
SRC.FIX
RETURN 1
ELSEIF (<SRC.TARG.LINK>==<UID>)
SRC.TARG.LINK <SRC.TARG.UID>
SRC.TARG.ATTR <SRC.TARG.ATTR>&~attr_move_never
TAG.LOCKNUMBER <EVAL <TAG.LOCKNUMBER>>+(-1)
SRC.TARG.MESSAGE [no longer locked down]
SRC.TARG.MESSAGE
SRC.FIX
RETURN 1
ELSE
SRC.MESSAGE This is not locked down or secured!
RETURN 1
ENDIF
ENDIF
IF (<MOREX>=6)
IF !(<MORE>==<SRC.TARG.REGION.NAME>)
SRC.SYSMESSAGE That is not in your house.
RETURN 1
ELSEIF (<SRC.TARG.BASEID>==i_strong_box) && (<SRC.TARG.MOREM>==1)
SRC.TARG.REMOVE
TAG.STRONGBOX <EVAL <TAG.STRONGBOX>>+(-1)
TAG.STRONGBOX1 0
SRC.FIX
RETURN 1
ELSEIF (<SRC.TARG.BASEID>==i_strong_box) && (<SRC.TARG.MOREM>==2)
SRC.TARG.REMOVE
TAG.STRONGBOX <EVAL <TAG.STRONGBOX>>+(-1)
TAG.STRONGBOX2 0
SRC.FIX
RETURN 1
ELSEIF (<SRC.TARG.BASEID>==i_strong_box) && (<SRC.TARG.MOREM>==3)
SRC.TARG.REMOVE
TAG.STRONGBOX <EVAL <TAG.STRONGBOX>>+(-1)
TAG.STRONGBOX3 0
SRC.FIX
RETURN 1
ELSEIF (<SRC.TARG.TYPE>==t_trash_can)
SRC.TARG.REMOVE
TAG.TRASHCAN 0
SRC.FIX
RETURN 1
ELSEIF (<SRC.TARG.baseid>==i_fodder_tub)
SRC.TARG.REMOVE
TAG.FODDERCAN 0
SRC.FIX
RETURN 1
ELSE
SRC.SYSMESSAGE You can only remove trash barrels and strong boxes.
RETURN 1
ENDIF
ENDIF

ON=@Targon_Char
//stable
IF (<MOREX>=8) 

IF (<SRC.TARG.MemoryFindType(MEMORY_IPET).LINK.UID>!=<SRC.UID>)
  SRC.SYSMESSAGE It's not your creature!
  RETURN 1
ELSEIF (<SRC.TARG.UID>==0<REGION.TAG.FA1UID>) || (<SRC.TARG.UID>==0<REGION.TAG.FA2UID>) || (<SRC.TARG.UID>==0<REGION.TAG.FA3UID>)
  SRC.SYSMESSAGE You already stabled this creature!
  RETURN 1
ELSEIF (0<REGION.TAG.FA1UID>==0)
  REGION.TAG.FA1UID=<SRC.TARG.UID>
  SRC.TARG.GO <EVAL <REGION.TAG.X> >, <EVAL <REGION.TAG.Y1> >
  SRC.TARG.FIX
  SRC.TARG.ACTION=065
  SRC.EVENTS +e_hstable
  SRC.TARG.EVENTS +e_astable
  RETURN 1
ELSEIF (0<REGION.TAG.FA2UID>==0)
  REGION.TAG.FA2UID=<SRC.TARG.UID>
  SRC.TARG.GO <EVAL <REGION.TAG.X> >, <EVAL <REGION.TAG.Y2> >
  SRC.TARG.FIX
  SRC.TARG.ACTION=065
  SRC.EVENTS +e_hstable
  SRC.TARG.EVENTS +e_astable
  RETURN 1
ELSEIF (0<REGION.TAG.FA3UID>==0)
  REGION.TAG.FA3UID=<SRC.TARG.UID>
  SRC.TARG.GO <EVAL <REGION.TAG.X> >, <EVAL <REGION.TAG.Y3> >
  SRC.TARG.FIX
  SRC.TARG.ACTION=065
  SRC.EVENTS +e_hstable
  SRC.TARG.EVENTS +e_astable
  RETURN 1
ELSE
  SRC.SYSMESSAGE You can't stable a creatures anymore!
  RETURN 1
ENDIF
ENDIF
//retrieve
IF (<MOREX>=9)
IF (<SRC.TARG.UID>==0<REGION.TAG.FA1UID>)
  SRC.TARG.EVENTS -e_astable
  REGION.TAG.FA1UID=0
  IF (0<SRC.REGION.TAG.FA1UID>==0) && (0<SRC.REGION.TAG.FA2UID>==0) && (0<SRC.REGION.TAG.FA3UID>==0)
   SRC.EvENTS -e_hstable
  ENDIF
  RETURN 1
ELSEIF (<SRC.TARG.UID>==0<REGION.TAG.FA2UID>)
  SRC.TARG.EVENTS -e_astable
  REGION.TAG.FA2UID=0
  IF (0<SRC.REGION.TAG.FA1UID>==0) && (0<SRC.REGION.TAG.FA2UID>==0) && (0<SRC.REGION.TAG.FA3UID>==0)
   SRC.EvENTS -e_hstable
  ENDIF
  RETURN 1
ELSEIF (<SRC.TARG.UID>==0<REGION.TAG.FA3UID>)
  SRC.TARG.EVENTS -e_astable
  REGION.TAG.FA3UID=0
  IF (0<SRC.REGION.TAG.FA1UID>==0) && (0<SRC.REGION.TAG.FA2UID>==0) && (0<SRC.REGION.TAG.FA3UID>==0)
   SRC.EvENTS -e_hstable
  ENDIF
  RETURN 1
ELSE
  SRC.SYSMESSAGE This creature is not stabled!
  RETURN 1
ENDIF
ENDIF


IF (<MOREX>=1)
SRC.MESSAGE You cannot lock people down!
RETURN 1
ELSEIF (<MOREX>=2)
SRC.MESSAGE You cannot secure people!
RETURN 1
ELSEIF (<MOREX>=3)
SRC.MESSAGE You cannot release a person!
RETURN 1
ELSEIF (<MOREX>=6)
SRC.SYSMESSAGE You can only remove trash barrels and strong boxes.
RETURN 1
ENDIF
IF (<MOREX>=4)
IF !(<SRC.TARG.REGION.NAME>==<REGION.NAME>)
SRC.MESSAGE You may not eject someone who is not in your house!
RETURN 1
ELSEIF (<SRC.TARG.ACCOUNT.PLEVEL>>=4)
SRC.SYSMESSAGE It would not be wise to ban a staff member.
RETURN 1
ELSEIF (<SRC.TARG.ID>=c_house_vendor) || (<SRC.TARG.ID>=c_house_vendor_f)
SRC.MESSAGE You cannot eject a vendor.
RETURN 1
ELSEIF (<SRC.TARG.UID>=<SRC.UID>) || (<SRC.TARG.UID>=<SRC.UID>)
SRC.MESSAGE You cannot eject yourself!
RETURN 1
ELSEIF (<SRC.TARG.UID>==<MORE>) || (<TAG.CO1UID>==<SRC.TARG.UID>) || (<TAG.CO2UID>==<SRC.TARG.UID>) || (<TAG.CO3UID>==<SRC.TARG.UID>) || (<TAG.CO4UID>==<SRC.TARG.UID>) || (<TAG.CO5UID>==<SRC.TARG.UID>) || (<TAG.CO6UID>==<SRC.TARG.UID>) || (<TAG.CO7UID>==<SRC.TARG.UID>) || (<TAG.CO8UID>==<SRC.TARG.UID>) || (<TAG.F1UID>==<SRC.TARG.UID>) || (<TAG.F2UID>==<SRC.TARG.UID>) || (<TAG.F3UID>==<SRC.TARG.UID>) || (<TAG.F4UID>==<SRC.TARG.UID>) || (<TAG.F5UID>==<SRC.TARG.UID>) || (<TAG.F6UID>==<SRC.TARG.UID>) || (<TAG.F7UID>==<SRC.TARG.UID>) || (<TAG.F8UID>==<SRC.TARG.UID>) || (<TAG.F9UID>==<SRC.TARG.UID>) || (<TAG.F10UID>==<SRC.TARG.UID>) || (<TAG.F11UID>==<SRC.TARG.UID>) || (<TAG.F12UID>==<SRC.TARG.UID>) || (<TAG.F13UID>==<SRC.TARG.UID>) || (<TAG.F14UID>==<SRC.TARG.UID>) || (<TAG.F15UID>==<SRC.TARG.UID>) || (<TAG.F16UID>==<SRC.TARG.UID>) || (<TAG.F17UID>==<SRC.TARG.UID>) || (<TAG.F18UID>==<SRC.TARG.UID>) || (<TAG.F19UID>==<SRC.TARG.UID>) || (<TAG.F20UID>==<SRC.TARG.UID>)
SRC.MESSAGE You cannot ban friends from the house.
RETURN 1
ELSEIF (<TAG.BAN1>==0)
TAG.BAN1=<SRC.TARG.UID>
TAG.BAN1NAME=<SRC.TARG.NAME>
REGION.TAG.BAN1=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN2>==0)
TAG.BAN2=<SRC.TARG.UID>
TAG.BAN2NAME=<SRC.TARG.NAME>
REGION.TAG.BAN2=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN3>==0)
TAG.BAN3=<SRC.TARG.UID>
TAG.BAN3NAME=<SRC.TARG.NAME>
REGION.TAG.BAN3=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN4>==0)
TAG.BAN4=<SRC.TARG.UID>
TAG.BAN4NAME=<SRC.TARG.NAME>
REGION.TAG.BAN4=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN5>==0)
TAG.BAN5=<SRC.TARG.UID>
TAG.BAN5NAME=<SRC.TARG.NAME>
REGION.TAG.BAN5=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN6>==0)
TAG.BAN6=<SRC.TARG.UID>
TAG.BAN6NAME=<SRC.TARG.NAME>
REGION.TAG.BAN6=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN7>==0)
TAG.BAN7=<SRC.TARG.UID>
TAG.BAN7NAME=<SRC.TARG.NAME>
REGION.TAG.BAN7=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN8>==0)
TAG.BAN8=<SRC.TARG.UID>
TAG.BAN8NAME=<SRC.TARG.NAME>
REGION.TAG.BAN8=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN9>==0)
TAG.BAN9=<SRC.TARG.UID>
TAG.BAN9NAME=<SRC.TARG.NAME>
REGION.TAG.BAN9=<SRC.TARG.UID>
SRC.TARG.GO <.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN10>==0)
TAG.BAN10=<SRC.TARG.UID>
TAG.BAN10NAME=<SRC.TARG.NAME>
REGION.TAG.BAN10=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN11>==0)
TAG.BAN11=<SRC.TARG.UID>
TAG.BAN11NAME=<SRC.TARG.NAME>
REGION.TAG.BAN11=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN12>==0)
TAG.BAN12=<SRC.TARG.UID>
TAG.BAN12NAME=<SRC.TARG.NAME>
REGION.TAG.BAN12=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN13>==0)
TAG.BAN13=<SRC.TARG.UID>
TAG.BAN13NAME=<SRC.TARG.NAME>
REGION.TAG.BAN13=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN14>==0)
TAG.BAN14=<SRC.TARG.UID>
TAG.BAN14NAME=<SRC.TARG.NAME>
REGION.TAG.BAN14=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN15>==0)
TAG.BAN15=<SRC.TARG.UID>
TAG.BAN15NAME=<SRC.TARG.NAME>
REGION.TAG.BAN15=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN16>==0)
TAG.BAN16=<SRC.TARG.UID>
TAG.BAN16NAME=<SRC.TARG.NAME>
REGION.TAG.BAN16=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN17>==0)
TAG.BAN17=<SRC.TARG.UID>
TAG.BAN17NAME=<SRC.TARG.NAME>
REGION.TAG.BAN17=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN18>==0)
TAG.BAN18=<SRC.TARG.UID>
TAG.BAN18NAME=<SRC.TARG.NAME>
REGION.TAG.BAN18=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN19>==0)
TAG.BAN19=<SRC.TARG.UID>
TAG.BAN19NAME=<SRC.TARG.NAME>
REGION.TAG.BAN19=<SRC.TARG.UID>
SRC.TARG.GO <.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN20>==0)
TAG.BAN20=<SRC.TARG.UID>
TAG.BAN20NAME=<SRC.TARG.NAME>
REGION.TAG.BAN20=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN21>==0)
TAG.BAN21=<SRC.TARG.UID>
TAG.BAN21NAME=<SRC.TARG.NAME>
REGION.TAG.BAN21=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN22>==0)
TAG.BAN22=<SRC.TARG.UID>
TAG.BAN22NAME=<SRC.TARG.NAME>
REGION.TAG.BAN22=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN23>==0)
TAG.BAN23=<SRC.TARG.UID>
TAG.BAN23NAME=<SRC.TARG.NAME>
REGION.TAG.BAN23=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN24>==0)
TAG.BAN24=<SRC.TARG.UID>
TAG.BAN24NAME=<SRC.TARG.NAME>
REGION.TAG.BAN24=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN25>==0)
TAG.BAN25=<SRC.TARG.UID>
TAG.BAN25NAME=<SRC.TARG.NAME>
REGION.TAG.BAN25=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN26>==0)
TAG.BAN26=<SRC.TARG.UID>
TAG.BAN26NAME=<SRC.TARG.NAME>
REGION.TAG.BAN26=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN27>==0)
TAG.BAN27=<SRC.TARG.UID>
TAG.BAN27NAME=<SRC.TARG.NAME>
REGION.TAG.BAN27=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN28>==0)
TAG.BAN28=<SRC.TARG.UID>
TAG.BAN28NAME=<SRC.TARG.NAME>
REGION.TAG.BAN28=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN29>==0)
TAG.BAN29=<SRC.TARG.UID>
TAG.BAN29NAME=<SRC.TARG.NAME>
REGION.TAG.BAN29=<SRC.TARG.UID>
SRC.TARG.GO <.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN30>==0)
TAG.BAN30=<SRC.TARG.UID>
TAG.BAN30NAME=<SRC.TARG.NAME>
REGION.TAG.BAN30=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN31>==0)
TAG.BAN31=<SRC.TARG.UID>
TAG.BAN31NAME=<SRC.TARG.NAME>
REGION.TAG.BAN31=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN32>==0)
TAG.BAN32=<SRC.TARG.UID>
TAG.BAN32NAME=<SRC.TARG.NAME>
REGION.TAG.BAN32=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN33>==0)
TAG.BAN33=<SRC.TARG.UID>
TAG.BAN33NAME=<SRC.TARG.NAME>
REGION.TAG.BAN33=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN34>==0)
TAG.BAN34=<SRC.TARG.UID>
TAG.BAN34NAME=<SRC.TARG.NAME>
REGION.TAG.BAN34=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN35>==0)
TAG.BAN35=<SRC.TARG.UID>
TAG.BAN35NAME=<SRC.TARG.NAME>
REGION.TAG.BAN35=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN36>==0)
TAG.BAN36=<SRC.TARG.UID>
TAG.BAN36NAME=<SRC.TARG.NAME>
REGION.TAG.BAN36=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN37>==0)
TAG.BAN37=<SRC.TARG.UID>
TAG.BAN37NAME=<SRC.TARG.NAME>
REGION.TAG.BAN37=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN38>==0)
TAG.BAN38=<SRC.TARG.UID>
TAG.BAN38NAME=<SRC.TARG.NAME>
REGION.TAG.BAN38=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN39>==0)
TAG.BAN39=<SRC.TARG.UID>
TAG.BAN39NAME=<SRC.TARG.NAME>
REGION.TAG.BAN39=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
RETURN 1
ELSEIF (<TAG.BAN40>==0)
TAG.BAN40=<SRC.TARG.UID>
TAG.BAN40NAME=<SRC.TARG.NAME>
REGION.TAG.BAN40=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN41>==0)
TAG.BAN41=<SRC.TARG.UID>
TAG.BAN41NAME=<SRC.TARG.NAME>
REGION.TAG.BAN41=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN42>==0)
TAG.BAN42=<SRC.TARG.UID>
TAG.BAN42NAME=<SRC.TARG.NAME>
REGION.TAG.BAN42=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN43>==0)
TAG.BAN43=<SRC.TARG.UID>
TAG.BAN43NAME=<SRC.TARG.NAME>
REGION.TAG.BAN43=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN44>==0)
TAG.BAN44=<SRC.TARG.UID>
TAG.BAN44NAME=<SRC.TARG.NAME>
REGION.TAG.BAN44=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN45>==0)
TAG.BAN45=<SRC.TARG.UID>
TAG.BAN45NAME=<SRC.TARG.NAME>
REGION.TAG.BAN45=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN46>==0)
TAG.BAN46=<SRC.TARG.UID>
TAG.BAN46NAME=<SRC.TARG.NAME>
REGION.TAG.BAN46=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN47>==0)
TAG.BAN47=<SRC.TARG.UID>
TAG.BAN47NAME=<SRC.TARG.NAME>
REGION.TAG.BAN47=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN48>==0)
TAG.BAN48=<SRC.TARG.UID>
TAG.BAN48NAME=<SRC.TARG.NAME>
REGION.TAG.BAN48=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN49>==0)
TAG.BAN49=<SRC.TARG.UID>
TAG.BAN49NAME=<SRC.TARG.NAME>
REGION.TAG.BAN49=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSEIF (<TAG.BAN50>==0)
TAG.BAN50=<SRC.TARG.UID>
TAG.BAN50NAME=<SRC.TARG.NAME>
REGION.TAG.BAN50=<SRC.TARG.UID>
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been banned from this house!
RETURN 1
ELSE
SRC.MESSAGE Your banning list is full.
RETURN 1
ENDIF
ENDIF
IF (<MOREX>=5)
IF !(<MORE>==<SRC.TARG.REGION.NAME>)
SRC.MESSAGE You may not eject someone who is not in your house!
RETURN 1
ELSEIF (<SRC.TARG.ACCOUNT.PLEVEL>>=4)
SRC.SYSMESSAGE It would not be wise to eject a staff member.
RETURN 1
ELSEIF (<SRC.TARG.ID>=c_house_vendor) || (<SRC.TARG.ID>=c_house_vendor_f)
SRC.MESSAGE You cannot eject a vendor.
RETURN 1
ELSEIF (<SRC.TARG.UID>=<SRC.UID>) || (<SRC.TARG.UID>=<SRC.UID>)
SRC.MESSAGE You cannot eject yourself!
RETURN 1
ELSEIF (<SRC.TARG.UID>==<MORE>) || (<TAG.CO1UID>==<SRC.TARG.UID>) || (<TAG.CO2UID>==<SRC.TARG.UID>) || (<TAG.CO3UID>==<SRC.TARG.UID>) || (<TAG.CO4UID>==<SRC.TARG.UID>) || (<TAG.CO5UID>==<SRC.TARG.UID>) || (<TAG.CO6UID>==<SRC.TARG.UID>) || (<TAG.CO7UID>==<SRC.TARG.UID>) || (<TAG.CO8UID>==<SRC.TARG.UID>) || (<TAG.F1UID>==<SRC.TARG.UID>) || (<TAG.F2UID>==<SRC.TARG.UID>) || (<TAG.F3UID>==<SRC.TARG.UID>) || (<TAG.F4UID>==<SRC.TARG.UID>) || (<TAG.F5UID>==<SRC.TARG.UID>) || (<TAG.F6UID>==<SRC.TARG.UID>) || (<TAG.F7UID>==<SRC.TARG.UID>) || (<TAG.F8UID>==<SRC.TARG.UID>) || (<TAG.F9UID>==<SRC.TARG.UID>) || (<TAG.F10UID>==<SRC.TARG.UID>) || (<TAG.F11UID>==<SRC.TARG.UID>) || (<TAG.F12UID>==<SRC.TARG.UID>) || (<TAG.F13UID>==<SRC.TARG.UID>) || (<TAG.F14UID>==<SRC.TARG.UID>) || (<TAG.F15UID>==<SRC.TARG.UID>) || (<TAG.F16UID>==<SRC.TARG.UID>) || (<TAG.F17UID>==<SRC.TARG.UID>) || (<TAG.F18UID>==<SRC.TARG.UID>) || (<TAG.F19UID>==<SRC.TARG.UID>) || (<TAG.F20UID>==<SRC.TARG.UID>)
SRC.SYSMESSAGE You cannot eject friends from the house.
RETURN 1
ELSE
SRC.TARG.GO <LINK.P>
SRC.TARG.FIX
SRC.TARG.SYSMESSAGE You have been ejected from the house!
SRC.SYSMESSAGE <SRC.TARG.NAME> has been ejected from the house.
RETURN 1
ENDIF
ENDIF
IF (<MOREX>=7)
IF (<SRC.TARG.UID>==<SRC.UID>)
SRC.SYSMESSAGE You cannot transfer a house to yourself, silly.
RETURN 1
ELSEIF (<SRC.REGION.FLAGS>==01092) && (<SRC.TARG.REGION.FLAGS>==01092) || (<SRC.REGION.FLAGS>==01192) && (<SRC.TARG.REGION.FLAGS>==01192)
SRC.SYSMESSAGE You must be outside your house to transfer it.
RETURN 1
ELSE
SRC.NEWITEM=i_key_copper
SRC.ACT.MORE <SRC.ACT.UID>
SRC.ACT.MORE2 <SRC.ACT.UID>
SRC.ACT.CONT=<SRC.TARG.FINDLAYER(21).UID>
VAR.KEYMORE=<SRC.ACT.UID>
SRC.NEWITEM=i_key_copper
SRC.ACT.MORE=<VAR.KEYMORE>
SRC.ACT.MORE2=<VAR.KEYMORE>
SRC.ACT.CONT=<SRC.TARG.FINDLAYER(29).UID>
LINK.MORE=<VAR.KEYMORE>
MOREX 0
MOREM 0
LINK.MOREX 0
LINK.MOREY 0
LINK.MOREZ 0
LINK.MOREM 0
MORE=<SRC.TARG.UID>
MORE2=<VAR.KEYMORE>
LINK.MORE2=0
TAG.F1UID 0
TAG.F2UID 0
TAG.F3UID 0
TAG.F4UID 0
TAG.F5UID 0
TAG.F6UID 0
TAG.F7UID 0
TAG.F8UID 0
TAG.F9UID 0
TAG.F10UID 0
TAG.F11UID 0
TAG.F12UID 0
TAG.F13UID 0
TAG.F14UID 0
TAG.F15UID 0
TAG.F16UID 0
TAG.F17UID 0
TAG.F18UID 0
TAG.F19UID 0
TAG.F20UID 0
TAG.CO1UID 0
TAG.CO2UID 0
TAG.CO3UID 0
TAG.CO4UID 0
TAG.CO5UID 0
TAG.CO6UID 0
TAG.CO7UID 0
TAG.CO8UID 0
TAG.BAN1=0
TAG.BAN2=0
TAG.BAN3=0
TAG.BAN4=0
TAG.BAN5=0
TAG.BAN6=0
TAG.BAN7=0
TAG.BAN8=0
TAG.BAN9=0
TAG.BAN10=0
TAG.BAN11=0
TAG.BAN12=0
TAG.BAN13=0
TAG.BAN14=0
TAG.BAN15=0
TAG.BAN16=0
TAG.BAN17=0
TAG.BAN18=0
TAG.BAN19=0
TAG.BAN20=0
TAG.BAN21=0
TAG.BAN22=0
TAG.BAN23=0
TAG.BAN24=0
TAG.BAN25=0
TAG.BAN26=0
TAG.BAN27=0
TAG.BAN28=0
TAG.BAN29=0
TAG.BAN30=0
TAG.BAN31=0
TAG.BAN32=0
TAG.BAN33=0
TAG.BAN34=0
TAG.BAN35=0
TAG.BAN36=0
TAG.BAN37=0
TAG.BAN38=0
TAG.BAN39=0
TAG.BAN40=0
TAG.BAN41=0
TAG.BAN42=0
TAG.BAN43=0
TAG.BAN44=0
TAG.BAN45=0
TAG.BAN46=0
TAG.BAN47=0
TAG.BAN48=0
TAG.BAN49=0
TAG.BAN50=0
REGION.TAG.F1UID 0
REGION.TAG.F2UID 0
REGION.TAG.F3UID 0
REGION.TAG.F4UID 0
REGION.TAG.F5UID 0
REGION.TAG.F6UID 0
REGION.TAG.F7UID 0
REGION.TAG.F8UID 0
REGION.TAG.F9UID 0
REGION.TAG.F10UID 0
REGION.TAG.F11UID 0
REGION.TAG.F12UID 0
REGION.TAG.F13UID 0
REGION.TAG.F14UID 0
REGION.TAG.F15UID 0
REGION.TAG.F16UID 0
REGION.TAG.F17UID 0
REGION.TAG.F18UID 0
REGION.TAG.F19UID 0
REGION.TAG.F20UID 0
REGION.TAG.CO1UID 0
REGION.TAG.CO2UID 0
REGION.TAG.CO3UID 0
REGION.TAG.CO4UID 0
REGION.TAG.CO5UID 0
REGION.TAG.CO6UID 0
REGION.TAG.CO7UID 0
REGION.TAG.CO8UID 0
REGION.TAG.BAN1=0
REGION.TAG.BAN2=0
REGION.TAG.BAN3=0
REGION.TAG.BAN4=0
REGION.TAG.BAN5=0
REGION.TAG.BAN6=0
REGION.TAG.BAN7=0
REGION.TAG.BAN8=0
REGION.TAG.BAN9=0
REGION.TAG.BAN10=0
REGION.TAG.BAN11=0
REGION.TAG.BAN12=0
REGION.TAG.BAN13=0
REGION.TAG.BAN14=0
REGION.TAG.BAN15=0
REGION.TAG.BAN16=0
REGION.TAG.BAN17=0
REGION.TAG.BAN18=0
REGION.TAG.BAN19=0
REGION.TAG.BAN20=0
REGION.TAG.BAN21=0
REGION.TAG.BAN22=0
REGION.TAG.BAN23=0
REGION.TAG.BAN24=0
REGION.TAG.BAN25=0
REGION.TAG.BAN26=0
REGION.TAG.BAN27=0
REGION.TAG.BAN28=0
REGION.TAG.BAN29=0
REGION.TAG.BAN30=0
REGION.TAG.BAN31=0
REGION.TAG.BAN32=0
REGION.TAG.BAN33=0
REGION.TAG.BAN34=0
REGION.TAG.BAN35=0
REGION.TAG.BAN36=0
REGION.TAG.BAN37=0
REGION.TAG.BAN38=0
REGION.TAG.BAN39=0
REGION.TAG.BAN40=0
REGION.TAG.BAN41=0
REGION.TAG.BAN42=0
REGION.TAG.BAN43=0
REGION.TAG.BAN44=0
REGION.TAG.BAN45=0
REGION.TAG.BAN46=0
REGION.TAG.BAN47=0
REGION.TAG.BAN48=0
REGION.TAG.BAN49=0
REGION.TAG.BAN50=0
SRC.TARG.UPDATE
SRC.RESEND
SRC.SYSMESSAGE You have transfered ownership of the house.
SRC.TARG.SYSMESSAGE You are now the owner of this house.  All bans and friends have been removed, and the locks have been changed.  New keys have been placed in your backpack and your bank.
RETURN 1
ENDIF
ENDIF