I want to add the decay [like the normal places] of the items and bodys INSIDE the house.
Code:
//////////////////////////////////////////
// AOS SISTEMA DE CASAS //
// //
// //
// //
// Script Version: 3.0 //
// Last update: 12/2/08 //
// por favor no remueva esta placa //
// //
//////////////////////////////////////////
// //
// INSTALL NOTES //
// //
// This script is "drag & drop", just //
// set the defnames below and put it in //
// your scripts folder. //
// Works only on Sphere 056b //
// //
// To enable the auto-decay of invalid //
// houses (Houses without owners, duo //
// account delection), just put: //
// SERV.remove_invalid_houses //
// on the "sphere_serv_triggers.scp" //
// script, at the sections: //
// "f_onaccount_delete" //
// "f_onchar_delete" //
// //
// To enable the House Placement Tools //
// just place the item //
// "i_house_placement_tool" //
// on your architect npc stock, on the //
// script "sphere_template_vend.scp" //
// at the VENDOR_S_DEED_TEMPLATE list //
// //
//////////////////////////////////////////
[DEFNAME HOUSE_SYSTEM]
PLAYER_CAN_USE_BANK 1 //Can open bankbox from the house sign? (1=On / 0=Off)
HOUSE_DOOR_ACCESS 1 //Owner of the house can change the door access? (1=On / 0=Off)
HOUSE_USE_DEEDS 1 //When a house got demolished, you want get back your house deed or the house value in gold? (0=House Value in Gold / 1=House Deed)
HOUSE_DECAY_TIMER 0 //House decay timer, in days (0=Decay Off)
DEMOLITION_PEND_DECAY 7 //House decay timer for Demolition Pending houses, in days (Houses can only be pended to demolition by a Game Master)
USE_GLOBAL_STORAGE 0 //Use Global Storage Limit value for houses or calculate storage limit by the house area? (0=Calculate by House Area / 1=Global Value)
GLOBAL_SECURE_STORAGE 600 //Global max secured storage allowed per house (secure containers + items inside secure containers)
GLOBAL_LOCKDOWNS 100 //Global max locked items allowed per house (this value will cont on Secure Storage Limit)
MAX_HOUSE_COOWNERS 4 //Max number of co-owners allowed per house
MAX_HOUSE_FRIENDS 6 //Max number of friends allowed per house
MAX_HOUSE_BANS 6 //Max number of bans allowed per house
MAX_ACCOUNT_HOUSES 50 //Max number of houses allowed per account
USE_NOTICE_SYSTEM 1 //Notice player using dialog when your house decay or when it removed from the house access list (0=Off / 1=On)
ACCOUNT_OWNERSHIP 1 //All character of the house owner account will get owner access in the house (0=Off / 1=On)
//////////////////////////////////////////////////////////////////////////////////
[ITEMDEF 0bd1]
//brass sign
DEFNAME=i_sign_brass
TYPE=t_normal
CATEGORY=Decoration - Signs
SUBSECTION=Blank
DESCRIPTION=Brass Blank
DUPELIST=0bd2
ON=@Create
TIMERF 1,TYPE=t_sign_gump
ON=@DClick
IF !(<LINK>==04fffffff)
IF (<MORE2>==0)
IF (<SRC.FINDTYPE.t_key.LINK>==<REGION.UID>)
MORE2=<SRC.UID>
TAG.BUILTON=<serv.rtime.format %d>-<serv.rtime.format %m>-<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>
NAME=<LINK.NAME>
TRY REGION.EVENTS=+r_house_system
TRY UID.<REGION.UID>.MORE2=<UID>
IF (<DEF.HOUSE_DECAY_TIMER> > 0)
TIMER=<eval <DEF.HOUSE_DECAY_TIMER>*24*60*60>
SRC.SYSMESSAGE @03b2,,1, Esta casa es ahora tuya, tiene decay en <dDEF.HOUSE_DECAY_TIMER> Dias si no la usas.
ELSE
SRC.SYSMESSAGE @03b2,,1, Esta casa es ahora tuya.
ENDIF
TRY UID.<UID.<REGION.UID>.MORE2>.TAG.STORAGE_LIMIT=<eval <AREA>*5>
SRC.f_remove_keys
RESENDTOOLTIP
return 1
ELSE
SRC.SYSMESSAGE @03b2,,1, Esta no es tu casa.
return 1
ENDIF
ELIF (<SRC.ISGM>)
SRC.SDIALOG d_house_information
return 1
ELIF (<ISOWNER <SRC>>) || (<ISCOOWNER <SRC>>) || (<ISFRIEND <SRC>>)
SRC.SYSMESSAGE @03b2,,1, Bienvenido, <SRC.NAME>.
SRC.SDIALOG d_house_information
IF (<DEF.HOUSE_DECAY_TIMER> > 0) && !(<TAG0.DEMOLITION_PENDING>)
TIMER=<eval <DEF.HOUSE_DECAY_TIMER>*24*60*60>
ENDIF
IF !(<TAG0.STORAGE_LIMIT>)
TAG.STORAGE_LIMIT=<eval <AREA>*5>
ENDIF
return 1
ENDIF
TAG0.VISITS += 1
SRC.SDIALOG d_house_visitor
return 1
ENDIF
ON=@ClientToolTip
SRC.ADDCLILOC 1042971,Cartel de la casa
SRC.ADDCLILOC 1061639,<NAME>
SRC.ADDCLILOC 1061640,<UID.<LINK.MORE1>.NAME>
IF !(<TAG0.PUBLIC>)
SRC.ADDCLILOC 1061642
ELSE
SRC.ADDCLILOC 1061641
ENDIF
return 1
ON=@Timer
IF (<DEF.HOUSE_DECAY_TIMER> > 0) || (<TAG0.DEMOLITION_PENDING>==1)
TRY UID.<MORE2>.NOTICE=Your house '<NAME>' was decayed on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
TRY UID.<TAG0.CO_OWNER_<dLOCAL._FOR>>.NOTICE=You got removed from the Co-Owner access list of the house '<NAME>' because it was decayed on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
ENDFOR
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
TRY UID.<TAG0.FRIEND_<dLOCAL._FOR>>.NOTICE=You got removed from the Friend access list of the house '<NAME>' because it was decayed on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
ENDFOR
FOR 1 <DEF.MAX_HOUSE_BANS>
TRY UID.<TAG0.BAN_<dLOCAL._FOR>>.NOTICE=You are removed from the Banned access list of the house '<NAME>', because it was decayed on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
ENDFOR
LINK.f_house_demolish
LINK.REMOVE
ENDIF
[ITEMDEF 0100e]
DEFNAME=i_key_copper
WEIGHT=0.1
TYPE=T_KEY
CATEGORY=Provisions - Miscellaneous
SUBSECTION=Keys
DESCRIPTION=Copper Key
ON=@Click
MESSAGE (<LINK.NAME>)
ON=@DClick
return 1
[FUNCTION f_remove_keys]
FOR 0 <SRC.FINDLAYER.21.RESCOUNT>
IF (<SRC.FINDLAYER.21.FINDCONT(<LOCAL._FOR>).DISPID>==i_key_copper)
IF (<SRC.FINDLAYER.21.FINDCONT(<LOCAL._FOR>).LINK.TYPE>==t_multi)
TRY UID.<SRC.FINDLAYER.21.FINDCONT(<LOCAL._FOR>).UID>.REMOVE
ENDIF
ENDIF
IF (<SRC.FINDLAYER.29.FINDCONT(<LOCAL._FOR>).DISPID>==i_key_copper)
IF (<SRC.FINDLAYER.29.FINDCONT(<LOCAL._FOR>).LINK.TYPE>==t_multi)
TRY UID.<SRC.FINDLAYER.29.FINDCONT(<LOCAL._FOR>).UID>.REMOVE
ENDIF
ENDIF
ENDFOR
//////////////////////////////////////////////////////////////////////////////////
[DIALOG d_house_information]
110,35
page 0
resizepic 0 0 5054 420 440
gumppictiled 10 10 400 100 2624
checkertrans 10 10 400 100
gumppictiled 10 120 400 260 2624
checkertrans 10 120 400 260
gumppictiled 10 390 400 40 2624
checkertrans 10 390 400 40
button 250 410 4005 4007 1 0 0
dtext 285 410 1152 CERRAR
gumppic 10 10 100
dhtmlgump 30 43 105 40 0 0 <DEF.CENTER><SRC.TARG.NAME><DEF.CENTERE>
button 150 10 4006 4007 1 0 1
dtext 195 10 5 INFORMACION
button 150 30 4005 4007 1 0 2
dtext 195 30 1152 SEGURIDAD
button 150 50 4005 4007 1 0 3
dtext 195 50 1152 ALMACENAMIENTO
button 150 70 4005 4007 1 0 4
dtext 195 70 1152 MODIFICACIONES
button 150 90 4005 4007 1 0 5
dtext 195 90 1152 OWNERMENU
IF (<DEF.PLAYER_CAN_USE_BANK>==1)
button 250 390 4005 4007 1 0 8
dtext 285 390 1152 Abir el Banco
ENDIF
dtext 20 130 1152 Owned By:
dtext 210 130 1152 <UID.<SRC.TARG.MORE2>.NAME>
dtext 20 170 5 Esta casa es propiedad privada.
dtext 20 190 5 Esta casa tiene un diseño moderno.
dtext 20 210 5 Esta es una casa prefabricada.
IF (<SRC.TARG.TAG0.PUBLIC>)
dtext 20 230 5 Esta casa es abierta al publico.
ELSE
dtext 20 230 5 Esta casa es privada.
ENDIF
IF (<SRC.TARG.TAG0.DEMOLITION_PENDING>==1)
dtext 20 250 5 Esta casa esta a punto de ser demolida.
dtext 20 270 5 Esta casa cae en: <eval <SRC.TARG.TIMER>/86400> days, <eval (<SRC.TARG.TIMER>%86400)/3600> hours and <eval ((<SRC.TARG.TIMER>%86400)%3600)/60> minutes.
ELIF (<DEF.HOUSE_DECAY_TIMER> > 0)
dtext 20 250 5 Esta casa no fue heredada.
ELSE
dtext 20 250 5 Esta casa fue refrescada.
ENDIF
dtext 20 290 5 Contruida el:
dtext 250 290 1152 <SRC.TARG.TAG0.BUILTON>
dtext 20 310 5 Ultima transaccion:
IF (<SRC.TARG.TAG0.LASTTRADED>)
dtext 250 310 1152 <SRC.TARG.TAG0.LASTTRADED>
ENDIF
dtext 20 330 5 Valor de la casa.
dtext 250 330 1152 <SRC.TARG.LINK.VALUE>
dtext 20 360 5 Numero de visitantes de la propiedad:
dtext 350 360 1152 <dSRC.TARG.TAG0.VISITS>
button 10 390 4005 4007 1 0 6
dtext 45 390 1152 Baneo
button 10 410 4005 4007 1 0 7
dtext 45 410 1152 Lista de baneados
[DIALOG d_house_information BUTTON]
ON=1
SRC.DIALOG d_house_information
ON=2
SRC.DIALOG d_house_security
ON=3
SRC.DIALOG d_house_storage
ON=4
SRC.DIALOG d_house_customize
ON=5
SRC.DIALOG d_house_ownership
ON=6
SRC.SYSMESSAGE @03b2,,1, A quien quieres banear de la casa?.
SRC.TARGETF f_house_banish <SRC.TARG.UID>
ON=7
SRC.DIALOG d_house_security 7
ON=8
IF (<SRC.TARG.DISTANCE> < 8)
SRC.BANKSELF
ELSE
SRC.SYSMESSAGE @03b2,,1, Tu estas muy lejos del cartel de la casa!.
ENDIF
//////////////////////////////////////////////////////////////////////////////////
[DIALOG d_house_security]
110,35
page 0
resizepic 0 0 5054 420 440
gumppictiled 10 10 400 100 2624
checkertrans 10 10 400 100
gumppictiled 10 120 400 260 2624
checkertrans 10 120 400 260
gumppictiled 10 390 400 40 2624
checkertrans 10 390 400 40
button 250 410 4005 4007 1 0 0
dtext 285 410 1152 CERRAR
gumppic 10 10 100
dhtmlgump 30 43 105 40 0 0 <DEF.CENTER><SRC.TARG.NAME><DEF.CENTERE>
button 10 390 4005 4007 1 0 6
dtext 45 390 1152 Baneo
button 10 410 4005 4007 0 7 0
dtext 45 410 1152 Lista de baneados
button 150 10 4005 4007 1 0 1
dtext 195 10 1152 INFORMACION
button 150 30 4006 4007 1 0 2
dtext 195 30 5 SEGURIDAD
button 150 50 4005 4007 1 0 3
dtext 195 50 1152 ALMACENAMIENTO
button 150 70 4005 4007 1 0 4
dtext 195 70 1152 MODIFICACIONES
button 150 90 4005 4007 1 0 5
dtext 195 90 1152 OWNERMENU
IF (<DEF.PLAYER_CAN_USE_BANK>==1)
button 250 390 4005 4007 1 0 8
dtext 285 390 1152 Abrir el Banco
ENDIF
page 1
button 10 130 4005 4007 0 2 0
dtext 45 130 1152 Ver lista de co-propietarios
IF (<SRC.TARG.ISOWNER <SRC>>)
button 10 150 4005 4007 1 0 11
dtext 45 150 1152 Sumar co-propietario
button 10 170 4005 4007 0 3 0
dtext 45 170 1152 Remover co-propietario
button 10 190 4005 4007 1 0 12
dtext 45 190 1152 Clear Lista de co-propietario
ELSE
dtext 45 150 998 Sumar co-Propietario
dtext 45 170 998 Remover co-propietario
dtext 45 190 998 Ver lista de co-propietarios
ENDIF
button 10 220 4005 4007 0 4 0
dtext 45 220 1152 Ver lista de amigos
IF (<SRC.TARG.ISOWNER <SRC>>) || (<SRC.TARG.ISCOOWNER <SRC>>)
button 10 240 4005 4007 1 0 21
dtext 45 240 1152 Sumar amigo
button 10 260 4005 4007 0 5 0
dtext 45 260 1152 Remover amigo
button 10 280 4005 4007 1 0 22
dtext 45 280 1152 Clear lista de amigos
ELSE
dtext 45 240 998 suma amigo
dtext 45 260 998 remover amigo
dtext 45 280 998 Clear lista de amigos
ENDIF
button 10 310 4005 4007 0 6 0
dtext 45 310 1152 ver lista de baneados
IF (<SRC.TARG.ISOWNER <SRC>>) || (<SRC.TARG.ISCOOWNER <SRC>>)
button 10 330 4005 4007 1 0 31
dtext 45 330 1152 sacar un baned
ELSE
dtext 45 330 998 ver lista de baneados
ENDIF
IF (<SRC.TARG.ISOWNER <SRC>>)
IF !(<SRC.TARG.TAG0.PUBLIC>)
dtext 245 130 5 cambiar a privada
dtext 245 150 1152 cambiar a publica
button 210 150 4005 4007 1 0 41
ELSE
dtext 245 130 1152 cambiar a privada
dtext 245 150 5 cambiar a publica
button 210 130 4005 4007 1 0 41
ENDIF
ELSE
dtext 245 130 998 cambiar a privada
dtext 245 150 998 cambiar a publica
ENDIF
page 2
dtext 159 120 1152 CO-OWNER LIST
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
LOCAL.LIST2 += 20
IF (<SRC.TARG.TAG0.CO_OWNER_<dLOCAL._FOR>>)
DTEXT 20 <eval <LOCAL.LIST2>+120> 1152 <UID.<SRC.TARG.TAG0.CO_OWNER_<dLOCAL._FOR>>.NAME>
ENDIF
ENDFOR
page 3
dtext 159 120 1152 CO-OWNER LIST
BUTTON 175 360 2463 2464 1 0 51
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
LOCAL.LIST3 += 20
IF (<SRC.TARG.TAG0.CO_OWNER_<dLOCAL._FOR>>)
DTEXT 20 <eval <LOCAL.LIST3>+120> 1152 <UID.<SRC.TARG.TAG0.CO_OWNER_<dLOCAL._FOR>>.NAME>
DTEXT 345 <eval <LOCAL.LIST3>+120> 1152 Remove
CHECKBOX 320 <eval <LOCAL.LIST3>+120> 210 211 0 <dLOCAL._FOR>
ENDIF
ENDFOR
page 4
dtext 167 120 1152 FRIENDS LIST
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
LOCAL.LIST4 += 20
IF (<SRC.TARG.TAG0.FRIEND_<dLOCAL._FOR>>)
DTEXT 20 <eval <LOCAL.LIST4>+120> 1152 <UID.<SRC.TARG.TAG0.FRIEND_<dLOCAL._FOR>>.NAME>
ENDIF
ENDFOR
page 5
dtext 167 120 1152 FRIENDS LIST
BUTTON 175 360 2463 2464 1 0 52
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
LOCAL.LIST5 += 20
IF (<SRC.TARG.TAG0.FRIEND_<dLOCAL._FOR>>)
DTEXT 20 <eval <LOCAL.LIST5>+120> 1152 <UID.<SRC.TARG.TAG0.FRIEND_<dLOCAL._FOR>>.NAME>
DTEXT 345 <eval <LOCAL.LIST5>+120> 1152 Remove
CHECKBOX 320 <eval <LOCAL.LIST5>+120> 210 211 0 <dLOCAL._FOR>
ENDIF
ENDFOR
page 6
dtext 178 120 1152 BAN LIST
FOR 1 <DEF.MAX_HOUSE_BANS>
LOCAL.LIST6 += 20
IF (<SRC.TARG.TAG0.BAN_<dLOCAL._FOR>>)
DTEXT 20 <eval <LOCAL.LIST6>+120> 1152 <UID.<SRC.TARG.TAG0.BAN_<dLOCAL._FOR>>.NAME>
ENDIF
ENDFOR
page 7
dtext 178 120 1152 BAN LIST
BUTTON 175 360 2463 2464 1 0 53
FOR 1 <DEF.MAX_HOUSE_BANS>
LOCAL.LIST7 += 20
IF (<SRC.TARG.TAG0.BAN_<dLOCAL._FOR>>)
DTEXT 20 <eval <LOCAL.LIST7>+120> 1152 <UID.<SRC.TARG.TAG0.BAN_<dLOCAL._FOR>>.NAME>
DTEXT 345 <eval <LOCAL.LIST7>+120> 1152 Remove
CHECKBOX 320 <eval <LOCAL.LIST7>+120> 210 211 0 <dLOCAL._FOR>
ENDIF
ENDFOR
[DIALOG d_house_security BUTTON]
ON=1
SRC.DIALOG d_house_information
ON=2
SRC.DIALOG d_house_security
ON=3
SRC.DIALOG d_house_storage
ON=4
SRC.DIALOG d_house_customize
ON=5
SRC.DIALOG d_house_ownership
ON=6
SRC.SYSMESSAGE @03b2,,1, Seleciona quien va aser baneado de la casa.
SRC.TARGETF f_house_banish <SRC.TARG.UID>
ON=8
IF (<SRC.TARG.DISTANCE> < 8)
SRC.BANKSELF
ELSE
SRC.SYSMESSAGE @03b2,,1, tu estas muy lejos del cartel de la casa.
ENDIF
ON=11
SRC.SYSMESSAGE @03b2,,1, Selecciona la persona que tu quieres nombrar co-propietario de la casa.
SRC.TARGETF f_house_add_coowner <SRC.TARG.UID>
ON=12
SRC.SDIALOG d_house_clear_coowners
ON=21
SRC.SYSMESSAGE @03b2,,1, Selecciona la persona que tu quieres nombrar amigo de la casa.
SRC.TARGETF f_house_add_friend <SRC.TARG.UID>
ON=22
SRC.DIALOG d_house_clear_friends
ON=31
SRC.DIALOG d_house_clear_bans
ON=41
IF !(<SRC.TARG.TAG0.PUBLIC>)
SRC.TARG.HOUSE_DECLARE_PUBLIC
SRC.DIALOG d_house_type 1
ELSE
SRC.TARG.HOUSE_DECLARE_PRIVATE
SRC.DIALOG d_house_type 2
ENDIF
ON=51
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
IF (<ARGCHK[<dLOCAL._FOR>]>==1)
SRC.SYSMESSAGE @03b2,,1, Co-propietario sacado de la lista.
TRY UID.<SRC.TARG.TAG.CO_OWNER_<dLOCAL._FOR>>.NOTICE=You got removed from the Co-Owner access list of the house '<SRC.TARG.NAME>' on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
TRYP 0 SRC.TARG.TAG.CO_OWNER_<dLOCAL._FOR>=
ENDIF
ENDFOR
SRC.DIALOG d_house_security 3
ON=52
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
IF (<ARGCHK[<dLOCAL._FOR>]>==1)
SRC.SYSMESSAGE @03b2,,1, Friend removed from list.
TRY UID.<SRC.TARG.TAG.FRIEND_<dLOCAL._FOR>>.NOTICE=You got removed from the Friend access list of the house '<SRC.TARG.NAME>' on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
TRYP 0 SRC.TARG.TAG.FRIEND_<dLOCAL._FOR>=
ENDIF
ENDFOR
SRC.DIALOG d_house_security 5
ON=53
FOR 1 <DEF.MAX_HOUSE_BANS>
IF (<ARGCHK[<dLOCAL._FOR>]>==1)
SRC.SYSMESSAGE @03b2,,1, Ban removed from list.
TRY UID.<SRC.TARG.TAG.BAN_<dLOCAL._FOR>>.NOTICE=You got removed from the Banned access list of the house '<SRC.TARG.NAME>' on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
TRYP 0 SRC.TARG.TAG.BAN_<dLOCAL._FOR>=
ENDIF
ENDFOR
SRC.DIALOG d_house_security 7
//////////////////////////////////////////////////////////////////////////////////
[DIALOG d_house_storage]
110,35
page 0
resizepic 0 0 5054 420 440
gumppictiled 10 10 400 100 2624
checkertrans 10 10 400 100
gumppictiled 10 120 400 260 2624
checkertrans 10 120 400 260
gumppictiled 10 390 400 40 2624
checkertrans 10 390 400 40
button 250 410 4005 4007 1 0 0
dtext 285 410 1152 CERRAR
gumppic 10 10 100
dhtmlgump 30 43 105 40 0 0 <DEF.CENTER><SRC.TARG.NAME><DEF.CENTERE>
button 150 10 4005 4007 1 0 1
dtext 195 10 1152 INFORMACION
button 150 30 4005 4007 1 0 2
dtext 195 30 1152 SEGURIDAD
button 150 50 4006 4007 1 0 3
dtext 195 50 5 ALMACENAMIENTO
button 150 70 4005 4007 1 0 4
dtext 195 70 1152 MOFICICACIONES
button 150 90 4005 4007 1 0 5
dtext 195 90 1152 OWNERMENU
button 10 390 4005 4007 1 0 6
dtext 45 390 1152 Baneo
button 10 410 4005 4007 1 0 7
dtext 45 410 1152 Lista de baneados
IF (<DEF.PLAYER_CAN_USE_BANK>==1)
button 250 390 4005 4007 1 0 8
dtext 285 390 1152 Abrir el Banco
ENDIF
dtext 123 130 1152 ALMACENAMIENTO DE LA CASA
//dtext 10 150 998 Increased Storage
//dtext 310 150 1152 0%
dtext 10 170 1152 Maximo de objetos seguros
IF (<DEF.USE_GLOBAL_STORAGE>==1)
dtext 310 170 1152 <dDEF.GLOBAL_SECURE_STORAGE>
ELSE
dtext 310 170 1152 <dSRC.TARG.TAG0.STORAGE_LIMIT>
ENDIF
//dtext 10 190 998 Used by Moving Crate
//dtext 310 190 1152 0
dtext 10 210 1152 Objetos lockeados
dtext 310 210 1152 <dSRC.TARG.TAG0.LOCKED_ITEMS>
dtext 10 230 1152 Objetos seguros
dtext 310 230 1152 <dSRC.TARG.TAG0.SECURE_CONT>
dtext 10 250 1152 Almacenaje disponible
IF (<DEF.USE_GLOBAL_STORAGE>==1)
dtext 310 250 1152 <eval <dDEF.GLOBAL_SECURE_STORAGE> - ((<SRC.TARG.TAG0.SECURE_ITEMS>+<SRC.TARG.TAG0.SECURE_CONT>)+<SRC.TARG.TAG0.LOCKED_ITEMS>)>
dtext 310 290 1152 <dDEF.GLOBAL_LOCKDOWNS>
dtext 310 310 1152 <eval <dDEF.GLOBAL_LOCKDOWNS>-<dSRC.TARG.TAG0.LOCKED_ITEMS>>
ELSE
dtext 310 250 1152 <eval <dSRC.TARG.TAG0.STORAGE_LIMIT> - ((<SRC.TARG.TAG0.SECURE_ITEMS>+<SRC.TARG.TAG0.SECURE_CONT>)+<SRC.TARG.TAG0.LOCKED_ITEMS>)>
dtext 310 290 1152 <eval <dSRC.TARG.TAG0.STORAGE_LIMIT>/2>
dtext 310 310 1152 <eval (<dSRC.TARG.TAG0.STORAGE_LIMIT>/2)-<dSRC.TARG.TAG0.LOCKED_ITEMS>>
ENDIF
dtext 10 290 1152 MAximo de objetos lockeados
dtext 10 310 1152 Disponible objetos lockeados
//dtext 10 350 998 Vendor Count
//dtext 310 350 998 0 / 30
[DIALOG d_house_storage BUTTON]
ON=1
SRC.DIALOG d_house_information
ON=2
SRC.DIALOG d_house_security
ON=3
SRC.DIALOG d_house_storage
ON=4
SRC.DIALOG d_house_customize
ON=5
SRC.DIALOG d_house_ownership
ON=6
SRC.SYSMESSAGE @03b2,,1, Selecciona quien quieres que sea baneado de la casa.
SRC.TARGETF f_house_banish <SRC.TARG.UID>
ON=7
SRC.DIALOG d_house_security 7
ON=8
IF (<SRC.TARG.DISTANCE> < 8)
SRC.BANKSELF
ELSE
SRC.SYSMESSAGE @03b2,,1, Tu estas demasiado lejos del cartel de la casa.
ENDIF
//////////////////////////////////////////////////////////////////////////////////
[DIALOG d_house_customize]
110,35
page 0
resizepic 0 0 5054 420 440
gumppictiled 10 10 400 100 2624
checkertrans 10 10 400 100
gumppictiled 10 120 400 260 2624
checkertrans 10 120 400 260
gumppictiled 10 390 400 40 2624
checkertrans 10 390 400 40
button 250 410 4005 4007 1 0 0
dtext 285 410 1152 CERRAR
gumppic 10 10 100
dhtmlgump 30 43 105 40 0 0 <DEF.CENTER><SRC.TARG.NAME><DEF.CENTERE>
button 150 10 4005 4007 1 0 1
dtext 195 10 1152 INFORMACION
button 150 30 4005 4007 1 0 2
dtext 195 30 1152 SEGURIDAD
button 150 50 4005 4007 1 0 3
dtext 195 50 1152 ALMACENAMIENTO
button 150 70 4006 4007 1 0 4
dtext 195 70 5 MODIFICACIONES
button 150 90 4005 4007 1 0 5
dtext 195 90 1152 OWNERMENU
button 10 390 4005 4007 1 0 6
dtext 45 390 1152 Baneo
button 10 410 4005 4007 1 0 7
dtext 45 410 1152 lista de baneados
IF (<DEF.PLAYER_CAN_USE_BANK>==1)
button 250 390 4005 4007 1 0 8
dtext 285 390 1152 Abrir el Banco
ENDIF
page 1
dtext 45 120 998 Convertir en una casa modificable
dtext 45 160 998 Modificar esta casa
dtext 45 180 998 Reubicar
dtext 45 230 998 Cambiar el cartel de la casa
//dtext 45 250 998 Change Signpost
//dtext 45 280 998 Change Foundation Style
IF (<SRC.TARG.ISOWNER <SRC>>)
button 10 210 4005 4007 0 2 0
dtext 45 210 1152 Modificar el cartel de la casa
button 10 310 4005 4007 1 0 21
dtext 45 310 1152 Poner nombre a la casa
ELSE
dtext 45 210 998 Cambiar cartel a la casa
dtext 45 310 998 Poner nombre a la casa
ENDIF
page 2
button 10 360 4005 4007 0 3 0
button 30 130 4005 4007 1 0 30
tilepic 50 130 2980
button 90 130 4005 4007 1 0 31
tilepic 110 130 2982
button 150 130 4005 4007 1 0 32
tilepic 170 130 2984
button 210 130 4005 4007 1 0 33
tilepic 230 130 2986
button 270 130 4005 4007 1 0 34
tilepic 290 130 2988
button 330 130 4005 4007 1 0 35
tilepic 350 130 2990
button 30 190 4005 4007 1 0 36
tilepic 50 190 2992
button 90 190 4005 4007 1 0 37
tilepic 110 190 2994
button 150 190 4005 4007 1 0 38
tilepic 170 190 2996
button 210 190 4005 4007 1 0 39
tilepic 230 190 2998
button 270 190 4005 4007 1 0 40
tilepic 290 190 3000
button 330 190 4005 4007 1 0 41
tilepic 350 190 3002
button 30 250 4005 4007 1 0 42
tilepic 50 250 3004
button 90 250 4005 4007 1 0 43
tilepic 110 250 3006
button 150 250 4005 4007 1 0 44
tilepic 170 250 3008
button 210 250 4005 4007 1 0 45
tilepic 230 250 3010
button 270 250 4005 4007 1 0 46
tilepic 290 250 3012
button 330 250 4005 4007 1 0 47
tilepic 350 250 3014
page 3
button 10 360 4005 4007 0 4 0
button 30 130 4005 4007 1 0 48
tilepic 50 130 3016
button 90 130 4005 4007 1 0 49
tilepic 110 130 3018
button 150 130 4005 4007 1 0 50
tilepic 170 130 3020
button 210 130 4005 4007 1 0 51
tilepic 230 130 3022
button 270 130 4005 4007 1 0 52
tilepic 290 130 3024
button 330 130 4005 4007 1 0 53
tilepic 350 130 3026
button 30 190 4005 4007 1 0 54
tilepic 50 190 3028
button 90 190 4005 4007 1 0 55
tilepic 110 190 3030
button 150 190 4005 4007 1 0 56
tilepic 170 190 3032
button 210 190 4005 4007 1 0 57
tilepic 230 190 3034
button 270 190 4005 4007 1 0 58
tilepic 290 190 3036
button 330 190 4005 4007 1 0 59
tilepic 350 190 3038
button 30 250 4005 4007 1 0 60
tilepic 50 250 3040
button 90 250 4005 4007 1 0 61
tilepic 110 250 3042
button 150 250 4005 4007 1 0 62
tilepic 170 250 3044
button 210 250 4005 4007 1 0 63
tilepic 230 250 3046
button 270 250 4005 4007 1 0 64
tilepic 290 250 3048
button 330 250 4005 4007 1 0 65
tilepic 350 250 3050
page 4
button 10 360 4005 4007 0 2 0
button 30 130 4005 4007 1 0 66
tilepic 50 130 3052
button 90 130 4005 4007 1 0 67
tilepic 110 130 3054
button 150 130 4005 4007 1 0 68
tilepic 170 130 3056
button 210 130 4005 4007 1 0 69
tilepic 230 130 3058
button 270 130 4005 4007 1 0 70
tilepic 290 130 3060
button 330 130 4005 4007 1 0 71
tilepic 350 130 3062
button 30 190 4005 4007 1 0 72
tilepic 50 190 3064
button 90 190 4005 4007 1 0 73
tilepic 110 190 3066
button 150 190 4005 4007 1 0 74
tilepic 170 190 3068
button 210 190 4005 4007 1 0 75
tilepic 230 190 3070
button 270 190 4005 4007 1 0 76
tilepic 290 190 3072
button 330 190 4005 4007 1 0 77
tilepic 350 190 3074
button 30 250 4005 4007 1 0 78
tilepic 50 250 3076
button 90 250 4005 4007 1 0 79
tilepic 110 250 3078
button 150 250 4005 4007 1 0 80
tilepic 170 250 3080
button 210 250 4005 4007 1 0 81
tilepic 230 250 3082
button 270 250 4005 4007 1 0 82
tilepic 290 250 3084
button 330 250 4005 4007 1 0 83
tilepic 350 250 3086
[DIALOG d_house_customize BUTTON]
ON=1
SRC.DIALOG d_house_information
ON=2
SRC.DIALOG d_house_security
ON=3
SRC.DIALOG d_house_storage
ON=4
SRC.DIALOG d_house_customize
ON=5
SRC.DIALOG d_house_ownership
ON=6
SRC.SYSMESSAGE @03b2,,1, Selecciona quien quieres que sea baneado de la casa.
SRC.TARGETF f_house_banish <SRC.TARG.UID>
ON=7
SRC.DIALOG d_house_security 7
ON=8
IF (<SRC.TARG.DISTANCE> < 8)
SRC.BANKSELF
ELSE
SRC.SYSMESSAGE @03b2,,1, Tu estas muy lejos del cartel de la casa.
ENDIF
ON=21
SRC.SYSMESSAGE @03b2,,1, Que es lo que quieres que diga el cartel?
SRC.PROMPTCONSOLE f_change_house_name
ON=30 83
LOCAL.SIGN=2980
IF (<ARGN1>==80)
LOCAL.SIGN += 100
ELIF (<ARGN1> > 80)
LOCAL.SIGN += 2*<STRSUB 1 1 <ARGN1>>+50
ELIF (<ARGN1>==70)
LOCAL.SIGN += 80
ELIF (<ARGN1> > 70)
LOCAL.SIGN += 2*<STRSUB 1 1 <ARGN1>>+40
ELIF (<ARGN1>==60)
LOCAL.SIGN += 60
ELIF (<ARGN1> > 60)
LOCAL.SIGN += 2*<STRSUB 1 1 <ARGN1>>+30
ELIF (<ARGN1>==50)
LOCAL.SIGN += 40
ELIF (<ARGN1> > 50)
LOCAL.SIGN += 2*<STRSUB 1 1 <ARGN1>>+20
ELIF (<ARGN1>==40)
LOCAL.SIGN += 20
ELIF (<ARGN1> > 40)
LOCAL.SIGN += 2*<STRSUB 1 1 <ARGN1>>+10
ELSE
LOCAL.SIGN += 2*<STRSUB 1 1 <ARGN1>>
ENDIF
TARG.DISPID=<dLOCAL.SIGN>
TARG.UPDATE
SRC.DIALOG d_house_customize
[FUNCTION f_change_house_name]
IF !(<ISEMPTY <args>>)
SYSMESSAGE @03b2,,1, Cartel cambiado.
TARG.NAME=<ARGS>
TARG.RESENDTOOLTIP
ENDIF
//////////////////////////////////////////////////////////////////////////////////
[DIALOG d_house_ownership]
110,35
page 0
resizepic 0 0 5054 420 440
gumppictiled 10 10 400 100 2624
checkertrans 10 10 400 100
gumppictiled 10 120 400 260 2624
checkertrans 10 120 400 260
gumppictiled 10 390 400 40 2624
checkertrans 10 390 400 40
button 250 410 4005 4007 1 0 0
dtext 285 410 1152 CERRAR
gumppic 10 10 100
dhtmlgump 30 43 105 40 0 0 <DEF.CENTER><SRC.TARG.NAME><DEF.CENTERE>
button 150 10 4005 4007 1 0 1
dtext 195 10 1152 INFORMACION
button 150 30 4005 4007 1 0 2
dtext 195 30 1152 SEGURIDAD
button 150 50 4005 4007 1 0 3
dtext 195 50 1152 ALMACENAMIENTO
button 150 70 4005 4007 1 0 4
dtext 195 70 1152 MODIFICACIONES
button 150 90 4006 4007 1 0 5
dtext 195 90 5 OWNERMENU
button 10 390 4005 4007 1 0 6
dtext 45 390 1152 Baneo
button 10 410 4005 4007 1 0 7
dtext 45 410 1152 Lista de baneados
IF (<DEF.PLAYER_CAN_USE_BANK>==1)
button 250 390 4005 4007 1 0 8
dtext 285 390 1152 Abrir el Banco
ENDIF
IF (<SRC.TARG.ISOWNER <SRC>>)
button 10 130 4005 4007 1 0 21
dtext 45 130 1152 Demoler esta casa
button 10 150 4005 4007 1 0 22
dtext 45 150 1152 Transferir esta casa
ELSE
dtext 45 130 998 Demoler esta casa
dtext 45 150 998 Transferir esta casa
ENDIF
//dtext 45 190 998 Make Primary
IF (<SRC.ISGM>)
dtext 135 240 1152 GAME MASTER OPTIONS
IF (<SRC.TARG.TAG0.DEMOLITION_PENDING>==1)
dtext 45 280 5 Pend this house for Demolition
button 10 300 4005 4007 1 0 32
dtext 45 300 1152 Cancel Demolition Pending State
ELSE
button 10 280 4005 4007 1 0 31
dtext 45 280 1152 Pend this house for Demolition
dtext 45 300 5 Cancel Demolition Pending State
ENDIF
ENDIF
[DIALOG d_house_ownership BUTTON]
ON=1
SRC.DIALOG d_house_information
ON=2
SRC.DIALOG d_house_security
ON=3
SRC.DIALOG d_house_storage
ON=4
SRC.DIALOG d_house_customize
ON=5
SRC.DIALOG d_house_ownership
ON=6
SRC.SYSMESSAGE @03b2,,1, Selecciona quien quieres que sea baneado de la casa.
SRC.TARGETF f_house_banish <SRC.TARG.UID>
ON=7
SRC.DIALOG d_house_security 7
ON=8
IF (<SRC.TARG.DISTANCE> < 8)
SRC.BANKSELF
ELSE
SRC.SYSMESSAGE @03b2,,1, Tu estas muy lejos del cartel de la casa.
ENDIF
ON=21
IF (<SRC.REGION.UID>==<SRC.TARG.LINK>)
SRC.SYSMESSAGE @03b2,,1, Tu tienes que estar afuera de la casa para hacer esto.
ELIF (<SRC.TARG.house_find_guild>)
SRC.SYSMESSAGE @03b2,,1, Tu no puedes demoler la casa con una guildstone adentro.
ELSE
SRC.SDIALOG d_house_demolish
ENDIF
ON=22
SRC.DIALOGCLOSE d_house_ownership
SRC.SYSMESSAGE @03b2,,1, Selecciona la persona a quien quieres transferir la casa.
SRC.TARGETF f_house_transfer <SRC.TARG.UID>
ON=31
SRC.SYSMESSAGE @03b2,,1, Esta casa esta por derrumbarse. se derrumbara automaticamente en <dDEF.DEMOLITION_PEND_DECAY> days if the Owner not demolish it.
SRC.TARG.TIMER=<DEF.DEMOLITION_PEND_DECAY>*24*60*60
SRC.TARG.TAG.DEMOLITION_PENDING=1
SRC.SDIALOG d_house_ownership
TRY UID.<SRC.TARG.MORE2>.NOTICE=Tu casa'<SRC.TARG.NAME>' esta a punto de derrumbarse <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>> and it will decay in <dDEF.DEMOLITION_PEND_DECAY> dias tu no la derrumbas manualmente.
ON=32
SRC.SYSMESSAGE @03b2,,1, Tu cancelas el derrumbe de la casa.
SRC.TARG.TAG.DEMOLITION_PENDING=
SRC.SDIALOG d_house_ownership
TRY UID.<SRC.TARG.MORE2>.NOTICE=Tu casa no se derrumbara por '<SRC.TARG.NAME>' was canceled on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>> and it will not decay anymore.
IF (<DEF.HOUSE_DECAY_TIMER> > 0)
SRC.TARG.TIMER=<eval <DEF.HOUSE_DECAY_TIMER>*24*60*60>
ELSE
SRC.TARG.TIMER=-1
ENDIF
[FUNCTION house_find_guild]
LOCAL.REGION=<REGION.UID>
FORITEMS 40
IF (<REGION.UID>==<LOCAL.REGION>)
IF (<TYPE>==t_stone_guild)
return 1
ENDIF
ENDIF
ENDFOR
return 0
//////////////////////////////////////////////////////////////////////////////////
[DIALOG d_house_visitor]
200,200
gumppic 10 10 100
dhtmlgump 30 43 105 40 0 0 <DEF.CENTER><SRC.TARG.NAME><DEF.CENTERE>
[DIALOG d_house_type]
160,150
noclose
page 0
resizepic 0 0 5054 320 180
gumppictiled 10 10 300 20 2624
checkertrans 10 10 300 20
dtext 140 10 026 NOTICE
gumppictiled 10 40 300 100 2624
checkertrans 10 40 300 100
gumppictiled 10 150 300 20 2624
checkertrans 10 150 300 20
button 10 150 4005 4007 1 0 1
dtext 40 150 1152 OKAY
page 1
dhtmlgump 10 40 300 100 0 1 Esta casa no es publica.
page 2
dhtmlgump 10 40 300 100 0 1 Esta casa es ahora privada.
[DIALOG d_house_type BUTTON]
ON=1
SRC.SDIALOG d_house_security
[DIALOG d_house_clear_coowners]
110,100
noclose
resizepic 0 0 5054 420 280
gumppictiled 10 10 400 20 2624
checkertrans 10 10 400 20
dtext 180 10 026 WARNING
gumppictiled 10 40 400 200 2624
checkertrans 10 40 400 200
dhtmlgump 10 40 400 200 0 1 Tu vas a remover a todos los co-propietarios de la casa. Estas seguro qe quieres borrar las lista de co-propietarios?
gumppictiled 10 250 400 20 2624
checkertrans 10 250 400 20
button 10 250 4005 4007 1 0 1
dtext 40 250 1152 OKAY
button 210 250 4005 4007 1 0 0
dtext 240 250 1152 CANCEL
[DIALOG d_house_clear_coowners BUTTON]
ON=0
SRC.SDIALOG d_house_security
ON=1
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
TRY UID.<SRC.TARG.TAG0.CO_OWNER_<dLOCAL._FOR>>.NOTICE=You got removed from the Co-Owner access list of the house '<SRC.TARG.NAME>' on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
TRYP 0 SRC.TARG.TAG0.CO_OWNER_<dLOCAL._FOR>=
ENDFOR
SRC.SDIALOG d_house_security
SRC.SYSMESSAGE @03b2,,1, Todos los co-propietarios se removieron de la casa.
[DIALOG d_house_clear_friends]
110,100
noclose
resizepic 0 0 5054 420 280
gumppictiled 10 10 400 20 2624
checkertrans 10 10 400 20
dtext 180 10 026 WARNING
gumppictiled 10 40 400 200 2624
checkertrans 10 40 400 200
dhtmlgump 10 40 400 200 0 1 Si tu aceptas esta opcion, todas las personas amigas van a ser removidas de la casa. Tu estas seguro que quieres hacer esto?
gumppictiled 10 250 400 20 2624
checkertrans 10 250 400 20
button 10 250 4005 4007 1 0 1
dtext 40 250 1152 OKAY
button 210 250 4005 4007 1 0 0
dtext 240 250 1152 CANCEL
[DIALOG d_house_clear_friends BUTTON]
ON=0
SRC.SDIALOG d_house_security
ON=1
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
TRY UID.<SRC.TARG.TAG0.FRIEND_<dLOCAL._FOR>>.NOTICE=You got removed from the Friend access list of the house '<SRC.TARG.NAME>' on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
TRYP 0 SRC.TARG.TAG0.FRIEND_<dLOCAL._FOR>=
ENDFOR
SRC.SDIALOG d_house_security
SRC.SYSMESSAGE @03b2,,1, All friends have been removed from this house.
[DIALOG d_house_clear_bans]
110,100
noclose
resizepic 0 0 5054 420 280
gumppictiled 10 10 400 20 2624
checkertrans 10 10 400 20
dtext 180 10 026 WARNING
gumppictiled 10 40 400 200 2624
checkertrans 10 40 400 200
dhtmlgump 10 40 400 200 0 1 Estas seguro que quieres sacar a todos los baned de esta casa?
gumppictiled 10 250 400 20 2624
checkertrans 10 250 400 20
button 10 250 4005 4007 1 0 1
dtext 40 250 1152 OKAY
button 210 250 4005 4007 1 0 0
dtext 240 250 1152 CANCEL
[DIALOG d_house_clear_bans BUTTON]
ON=0
SRC.SDIALOG d_house_security
ON=1
FOR 1 <DEF.MAX_HOUSE_BANS>
TRY UID.<SRC.TARG.TAG0.BAN_<dLOCAL._FOR>>.NOTICE=You got removed from the Friend access list of the house '<SRC.TARG.NAME>' on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
TRYP 0 SRC.TARG.TAG0.BAN_<dLOCAL._FOR>=
ENDFOR
SRC.SDIALOG d_house_security
SRC.SYSMESSAGE @03b2,,1, Todos los baned de esta casa fueron borrados.
[DIALOG d_house_demolish]
110,100
noclose
resizepic 0 0 5054 420 280
gumppictiled 10 10 400 20 2624
checkertrans 10 10 400 20
dtext 180 10 026 WARNING
gumppictiled 10 40 400 200 2624
checkertrans 10 40 400 200
dhtmlgump 10 40 400 200 0 1 Tu estas a punto de demoler tu casa. El valor de la casa ira directamente a tu banco O tu mochila . Todos los items que esten adentro al momento del derumbe se perderan. Si esta casa es demolida se podra poner otra en el mismo terreno. Tu estas seguro de continuar?
gumppictiled 10 250 400 20 2624
checkertrans 10 250 400 20
button 10 250 4005 4007 1 0 1
dtext 40 250 1152 OKAY
button 210 250 4005 4007 1 0 0
dtext 240 250 1152 CANCEL
[DIALOG d_house_demolish BUTTON]
ON=0
SRC.SDIALOG d_house_ownership
ON=1
IF (<SRC.REGION.UID>==<SRC.TARG.LINK>)
SRC.SYSMESSAGE @03b2,,1, Tienes que estar afuera de la casa para hacer esto.
ELIF (<SRC.TARG.house_find_guild>)
SRC.SYSMESSAGE @03b2,,1, Tu no puede demoler la casa con una guildstone adentro.
ELSE
IF (<SRC.TARG.DISTANCE> < 8)
IF (<DEF.HOUSE_USE_DEEDS>==1)
SERV.NEWITEM i_deed_<STRSUB 8 30 <TARG.LINK.BASEID>>
NEW.BOUNCE
ELSE
SRC.addgold_bank <SRC.TARG.LINK.VALUE>
SRC.SYSMESSAGE @03b2,,1, <SRC.TARG.LINK.VALUE> El oro ya esta depositado en tu banco o la deed en tu mochila.
ENDIF
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
TRY UID.<SRC.TARG.TAG0.CO_OWNER_<dLOCAL._FOR>>.NOTICE=You got removed from the Co-Owner access list of the house '<SRC.TARG.NAME>' because it was demolished on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
ENDFOR
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
TRY UID.<SRC.TARG.TAG0.FRIEND_<dLOCAL._FOR>>.NOTICE=You got removed from the Friend access list of the house '<SRC.TARG.NAME>' because it was demolished on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
ENDFOR
FOR 1 <DEF.MAX_HOUSE_BANS>
TRY UID.<SRC.TARG.TAG0.BAN_<dLOCAL._FOR>>.NOTICE=You are removed from the Banned access list of the house '<SRC.TARG.NAME>', because it was demolished on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
ENDFOR
SRC.TARG.LINK.f_house_demolish
SRC.TARG.LINK.REMOVE
ELSE
SRC.SYSMESSAGE @03b2,,1, Tu estas demasiado lejos del cartel de la casa.
ENDIF
ENDIF
[FUNCTION f_house_demolish]
LOCAL.REGION=<REGION.UID>
FORCHARS 40
IF (<REGION.UID>==<LOCAL.REGION>)
P=<UID.<UID.<LOCAL.REGION>.MORE2>.P>
FIX
UPDATE
ENDIF
ENDFOR
FORPLAYERS 40
IF (<REGION.UID>==<LOCAL.REGION>)
P=<UID.<UID.<LOCAL.REGION>.MORE2>.P>
FIX
UPDATE
ENDIF
ENDFOR
FORITEMS 40
IF (<REGION.UID>==<LOCAL.REGION>) && !((<TYPE>==t_door) || (<TYPE>==t_door_locked))
TIMER=<eval <SERV.DecayTimer>*60>
IF (<ISEVENT.t_locked_down>) || (<ISEVENT.t_access_owner>) || (<ISEVENT.t_access_coowner>) || (<ISEVENT.t_access_friend>) || (<ISEVENT.t_access_guild>)
LINK=0fffffff
ATTR=(<ATTR>-attr_move_never)+attr_decay
EVENTS -t_locked_down
EVENTS -t_access_owner
EVENTS -t_access_coowner
EVENTS -t_access_friend
EVENTS -t_access_guild
UPDATE
ELSE
ATTR=<ATTR>|attr_decay
ENDIF
ENDIF
ENDFOR
[DIALOG d_house_access]
50,50
src.ctag.house_access=<ARGN1>
page 0
resizepic 0 0 5054 220 180
gumppictiled 10 10 200 20 5124
gumppictiled 10 40 200 20 5124
gumppictiled 10 70 200 100 5124
checkertrans 10 10 200 140
dhtmlgump 10 10 200 20 0 0 <DEF.BFONT_white><DEF.CENTER>SET ACCESS<DEF.CENTERE>
dtext 15 40 1152 Owner: <UID.<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE1>.NAME>
IF (<UID.<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>.ISOWNER <SRC>>)
button 10 70 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_access_owner>)? 4006 4007:4005 4007> 1 0 1
dhtmlgump 45 70 200 20 0 0 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_access_owner>)? <def.bfont_red>:<def.bfont_white>>Owner Only
ENDIF
button 10 90 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_access_coowner>)? 4006 4007:4005 4007> 1 0 2
dhtmlgump 45 90 200 20 0 0 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_access_coowner>)? <def.bfont_red>:<def.bfont_white>>Co-Owners
button 10 110 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_access_friend>)? 4006 4007:4005 4007> 1 0 3
dhtmlgump 45 110 200 20 0 0 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_access_friend>)? <def.bfont_red>:<def.bfont_white>>Friends
IF (<UID.<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE1>.GUILD>)
IF (<UID.<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>.ISOWNER <SRC>>)
button 10 130 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_access_guild>)? 4006 4007:4005 4007> 1 0 4
dhtmlgump 45 130 200 20 0 0 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_access_guild>)? <def.bfont_red>:<def.bfont_white>>Guild Members
ENDIF
ENDIF
button 10 150 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_locked_down>)? 4006 4007:4005 4007> 1 0 5
dhtmlgump 45 150 200 20 0 0 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_locked_down>)? <def.bfont_red>:<def.bfont_white>>Anyone
[DIALOG d_house_access BUTTON]
ON=1
REF1=<SRC.CTAG0.HOUSE_ACCESS>
REF2=<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>
IF !(<REF1.ATTR> & attr_move_never)
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<REF2.TAG0.LOCKED_ITEMS> < <def.GLOBAL_LOCKDOWNS>)) || (<REF2.TAG0.LOCKED_ITEMS> < <eval <REF2.TAG0.STORAGE_LIMIT>/2>)
IF (<REF1.ATTR> & attr_decay)
TRY REF1.ATTR=<REF1.ATTR>-attr_decay
ENDIF
TRY REF2.TAG0.LOCKED_ITEMS = <eval <REF2.TAG0.LOCKED_ITEMS>+1>
TRY REF2.TAG0.SECURE_CONT = <eval <REF2.TAG0.SECURE_CONT>+<REF1.RESCOUNT>>
TRY REF1.ATTR=<REF1.ATTR>+attr_move_never
TRY REF1.LINK=<REF1.REGION.UID>
ELSE
SRC.SYSMESSAGE @03b2,,1, Tu no puedes alterar el acceso a este container, ya supero el almacenamiento maximo .
return 1
ENDIF
ENDIF
TRY REF1.EVENTS +t_access_owner
TRY REF1.EVENTS -t_access_coowner
TRY REF1.EVENTS -t_access_friend
TRY REF1.EVENTS -t_access_guild
TRY REF1.EVENTS -t_locked_down
TRY REF1.TIMER=-1
TRY REF1.UPDATE
SRC.SYSMESSAGE @03b2,,1, New access level set.
ON=2
REF1=<SRC.CTAG0.HOUSE_ACCESS>
REF2=<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>
IF !(<REF1.ATTR> & attr_move_never)
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<REF2.TAG0.LOCKED_ITEMS> < <def.GLOBAL_LOCKDOWNS>)) || (<REF2.TAG0.LOCKED_ITEMS> < <eval <REF2.TAG0.STORAGE_LIMIT>/2>)
IF (<REF1.ATTR> & attr_decay)
TRY REF1.ATTR=<REF1.ATTR>-attr_decay
ENDIF
TRY REF2.TAG0.LOCKED_ITEMS = <eval <REF2.TAG0.LOCKED_ITEMS>+1>
TRY REF2.TAG0.SECURE_CONT = <eval <REF2.TAG0.SECURE_CONT>+<REF1.RESCOUNT>>
TRY REF1.ATTR=<REF1.ATTR>+attr_move_never
TRY REF1.LINK=<REF1.REGION.UID>
ELSE
SRC.SYSMESSAGE @03b2,,1, Tu no puedes alterar el acceso a este container, ya supero el almacenamiento maximo de esta casa.
return 1
ENDIF
ENDIF
TRY REF1.EVENTS -t_access_owner
TRY REF1.EVENTS +t_access_coowner
TRY REF1.EVENTS -t_access_friend
TRY REF1.EVENTS -t_access_guild
TRY REF1.EVENTS -t_locked_down
TRY REF1.TIMER=-1
TRY REF1.UPDATE
SRC.SYSMESSAGE @03b2,,1, New access level set.
ON=3
REF1=<SRC.CTAG0.HOUSE_ACCESS>
REF2=<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>
IF !(<REF1.ATTR> & attr_move_never)
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<REF2.TAG0.LOCKED_ITEMS> < <def.GLOBAL_LOCKDOWNS>)) || (<REF2.TAG0.LOCKED_ITEMS> < <eval <REF2.TAG0.STORAGE_LIMIT>/2>)
IF (<REF1.ATTR> & attr_decay)
TRY REF1.ATTR=<REF1.ATTR>-attr_decay
ENDIF
TRY REF2.TAG0.LOCKED_ITEMS = <eval <REF2.TAG0.LOCKED_ITEMS>+1>
TRY REF2.TAG0.SECURE_CONT = <eval <REF2.TAG0.SECURE_CONT>+<REF1.RESCOUNT>>
TRY REF1.ATTR=<REF1.ATTR>+attr_move_never
TRY REF1.LINK=<REF1.REGION.UID>
ELSE
SRC.SYSMESSAGE @03b2,,1, Tu no puedes alterar el acceso a este container, ya supero el almacenamiento maximo de esta casa.
return 1
ENDIF
ENDIF
TRY REF1.EVENTS -t_access_owner
TRY REF1.EVENTS -t_access_coowner
TRY REF1.EVENTS +t_access_friend
TRY REF1.EVENTS -t_access_guild
TRY REF1.EVENTS -t_locked_down
TRY REF1.TIMER=-1
TRY REF1.UPDATE
SRC.SYSMESSAGE @03b2,,1, New access level set.
ON=4
REF1=<SRC.CTAG0.HOUSE_ACCESS>
REF2=<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>
IF !(<REF1.ATTR> & attr_move_never)
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<REF2.TAG0.LOCKED_ITEMS> < <def.GLOBAL_LOCKDOWNS>)) || (<REF2.TAG0.LOCKED_ITEMS> < <eval <REF2.TAG0.STORAGE_LIMIT>/2>)
IF (<REF1.ATTR> & attr_decay)
TRY REF1.ATTR=<REF1.ATTR>-attr_decay
ENDIF
TRY REF2.TAG0.LOCKED_ITEMS = <eval <REF2.TAG0.LOCKED_ITEMS>+1>
TRY REF2.TAG0.SECURE_CONT = <eval <REF2.TAG0.SECURE_CONT>+<REF1.RESCOUNT>>
TRY REF1.ATTR=<REF1.ATTR>+attr_move_never
TRY REF1.LINK=<REF1.REGION.UID>
ELSE
SRC.SYSMESSAGE @03b2,,1, Tu no puedes alterar el acceso a este container, ya supero el almacenamiento maximo de esta casa
return 1
ENDIF
ENDIF
TRY REF1.EVENTS -t_access_owner
TRY REF1.EVENTS -t_access_coowner
TRY REF1.EVENTS -t_access_friend
TRY REF1.EVENTS +t_access_guild
TRY REF1.EVENTS -t_locked_down
TRY REF1.TIMER=-1
TRY REF1.UPDATE
SRC.SYSMESSAGE @03b2,,1, New access level set.
ON=5
REF1=<SRC.CTAG0.HOUSE_ACCESS>
REF2=<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>
IF !(<REF1.TYPE>==t_door_locked)
IF (<REF1.ATTR> & attr_move_never)
TRY REF1.LINK=0fffffff
TRY REF1.SAY=(inseguro)
TRY REF1.EVENTS +t_locked_down
ELSE
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<REF2.TAG0.LOCKED_ITEMS> < <def.GLOBAL_LOCKDOWNS>)) || (<REF2.TAG0.LOCKED_ITEMS> < <eval <REF2.TAG0.STORAGE_LIMIT>/2>)
IF (<REF1.ATTR> & attr_decay)
TRY REF1.ATTR=<REF1.ATTR>-attr_decay
ENDIF
TRY REF2.TAG0.LOCKED_ITEMS = <eval <UID.<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS>+1>
TRY REF2.TAG0.SECURE_CONT = <eval <UID.<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>.TAG0.SECURE_CONT>+<UID.<SRC.CTAG0.HOUSE_ACCESS>.RESCOUNT>>
TRY REF1.ATTR=<REF1.ATTR>+attr_move_never
TRY REF1.LINK=<REF1.REGION.UID>
TRY REF1.EVENTS +t_locked_down
ELSE
SRC.SYSMESSAGE @03b2,,1, Tu no puedes asegurar esto, ya que se supero el limite de asegurados de la casa.
return 1
ENDIF
ENDIF
ENDIF
TRY REF1.EVENTS -t_access_owner
TRY REF1.EVENTS -t_access_coowner
TRY REF1.EVENTS -t_access_friend
TRY REF1.EVENTS -t_access_guild
TRY REF1.TIMER=-1
TRY REF1.UPDATE
SRC.SYSMESSAGE @03b2,,1, New access level set.
//////////////////////////////////////////////////////////////////////////////////
[REGIONTYPE r_house_system]
ON=@Enter
IF !(<SRC.ISGM>)
IF (<UID.<UID.<UID>.MORE2>.ISBANNED <SRC>>)
SRC.SYSMESSAGE @03b2,,1, Tu has sido baneado de esta casa!
SRC.UPDATE
return 1
ENDIF
ENDIF
[FUNCTION isowner]
IF ((<DEF.ACCOUNT_OWNERSHIP>==1) && !STRCMP("<UID.<MORE2>.ACCOUNT>","<UID.<ARGS>.ACCOUNT>")) || (<MORE2>==<ARGS>) || (<UID.<ARGS>.ISGM>)
return 1
ENDIF
return 0
[FUNCTION iscoowner]
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
IF (<TAG0.CO_OWNER_<dLOCAL._FOR>>==<ARGS>)
return 1
ENDIF
ENDFOR
return 0
[FUNCTION isfriend]
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
IF (<TAG0.FRIEND_<dLOCAL._FOR>>==<ARGS>)
return 1
ENDIF
ENDFOR
return 0
[FUNCTION isbanned]
FOR 1 <DEF.MAX_HOUSE_BANS>
IF (<TAG0.BAN_<dLOCAL._FOR>>==<ARGS>)
return 1
ENDIF
ENDFOR
return 0
[FUNCTION house_declare_public]
FORITEMS 40
IF (<REGION.UID>==<SRC.TARG.REGION.UID>)
IF (<TYPE>==t_door_locked)
TYPE=t_door
EVENTS -t_access_owner
EVENTS -t_access_coowner
EVENTS -t_access_friend
EVENTS -t_access_guild
ENDIF
ENDIF
ENDFOR
TAG.PUBLIC=1
RESENDTOOLTIP
[FUNCTION house_declare_private]
FORITEMS 40
IF (<REGION.UID>==<SRC.TARG.REGION.UID>)
IF (<TYPE>==t_door)
TYPE=t_door_locked
ENDIF
ENDIF
ENDFOR
TAG.PUBLIC=
RESENDTOOLTIP
[FUNCTION f_house_add_coowner]
IF (<ARGO.ISPLAYER>)
IF (<UID.<ARGS>.ISOWNER <ARGO>>)
SRC.SYSMESSAGE @03b2,,1, Esta persona es ahora co-propietario de la casa!
RETURN 1
ELIF (<UID.<ARGS>.ISCOOWNER <ARGO>>)
SRC.SYSMESSAGE @03b2,,1, Esta persona es ahora co-propietario de la casa!
RETURN 1
ELIF (<UID.<ARGS>.ISFRIEND <ARGO>>)
SRC.SYSMESSAGE @03b2,,1, Esta persona es ahora amigo de la casa!
RETURN 1
ENDIF
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
IF !(<UID.<ARGS>.TAG0.CO_OWNER_<dLOCAL._FOR>>)
TRY UID.<ARGS>.TAG.CO_OWNER_<dLOCAL._FOR>=<ARGO.UID>
SRC.SYSMESSAGE @03b2,,1, You made <ARGO.NAME> a co-owner of the house.
TRY UID.<ARGO>.SYSMESSAGE @03b2,,1, You have been maded a co-owner of <SRC.NAME>'s house.
RETURN 1
ENDIF
ENDFOR
SRC.SYSMESSAGE @03b2,,1, You can add at least <dDEF.MAX_HOUSE_COOWNERS> Co-Owners in this house.
RETURN 1
ELSE
SRC.SYSMESSAGE @03b2,,1, That can't be the co-owner of the house.
ENDIF
[FUNCTION f_house_add_friend]
IF (<ARGO.ISPLAYER>)
IF (<UID.<ARGS>.ISOWNER <ARGO>>)
SRC.SYSMESSAGE @03b2,,1, Esta persona es co-propietario de la casa!
RETURN 1
ELIF (<UID.<ARGS>.ISCOOWNER <ARGO>>)
SRC.SYSMESSAGE @03b2,,1, Esta persona es co-propietario de la casa!
RETURN 1
ELIF (<UID.<ARGS>.ISFRIEND <ARGO>>)
SRC.SYSMESSAGE @03b2,,1, Esta persona es amigo de la casa!
RETURN 1
ENDIF
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
IF !(<UID.<ARGS>.TAG0.FRIEND_<dLOCAL._FOR>>)
TRY UID.<ARGS>.TAG.FRIEND_<dLOCAL._FOR>=<ARGO.UID>
SRC.SYSMESSAGE @03b2,,1, <ARGO.NAME> eres amigo de la casa.
TRY UID.<ARGO>.SYSMESSAGE @03b2,,1, You have been maded a friend of <SRC.NAME>'s house.
RETURN 1
ENDIF
ENDFOR
SRC.SYSMESSAGE @03b2,,1, You can add at least <dDEF.MAX_HOUSE_FRIENDS> Friends in this house.
RETURN 1
ELSE
SRC.SYSMESSAGE @03b2,,1, That can't be a friend of the house.
ENDIF
[FUNCTION f_house_banish]
IF (<ARGO.ISPLAYER>)
IF (<ARGO.UID>==<SRC.UID>)
SRC.SYSMESSAGE @03b2,,1, Tu no puedes banearte de tu poria casa!
RETURN 1
ELIF (<UID.<ARGS>.ISBANNED <ARGO>>)
SRC.SYSMESSAGE @03b2,,1, <ARGO.NAME> ya fue baneado de la casa!
RETURN 1
ELIF (<UID.<ARGS>.ISOWNER <ARGO>>)
SRC.SYSMESSAGE @03b2,,1, tu no puedes banear al co-propietario!
RETURN 1
ELIF (<UID.<ARGS>.ISCOOWNER <ARGO>>)
SRC.SYSMESSAGE @03b2,,1, tu no puedes banear al co-propietario!
RETURN 1
ELIF (<UID.<ARGS>.ISFRIEND <ARGO>>)
SRC.SYSMESSAGE @03b2,,1, Tu no puedes banear a un amigo de la casa!
RETURN 1
ENDIF
FOR 1 <DEF.MAX_HOUSE_BANS>
IF !(<UID.<ARGS>.TAG0.BAN_<dLOCAL._FOR>>)
TRY UID.<ARGS>.TAG.BAN_<dLOCAL._FOR>=<ARGO.UID>
IF (<ARGO.REGION.UID>==<UID.<ARGS>.REGION.UID>)
TRY UID.<ARGO.UID>.GO=<UID.<ARGS>.P.X>,<eval <UID.<ARGS>.P.Y>+1>,<UID.<ARGS>.P.Z>,<UID.<ARGS>.P.M>
IF (<ARGO.CANMOVE S>)
TRY UID.<ARGO.UID>.MOVE S
ENDIF
TRY UID.<ARGO.UID>.UPDATE
ENDIF
SRC.SYSMESSAGE @03b2,,1, You banned <ARGO.NAME> from the house.
TRY UID.<ARGO>.SYSMESSAGE @03b2,,1, Tu has sido baned <SRC.NAME>'s house.
RETURN 1
ENDIF
ENDFOR
SRC.SYSMESSAGE @03b2,,1, You can ban at least <dDEF.MAX_HOUSE_BANS> players from this house.
RETURN 1
ELSE
SRC.SYSMESSAGE @03b2,,1, You cannot ban that from the house!
ENDIF
[FUNCTION f_house_eject]
IF (<ARGO.ISPLAYER>)
IF (<ARGO.REGION.UID>!=<UID.<ARGS>.REGION.UID>)
SRC.SYSMESSAGE @03b2,,1, <ARGO.NAME> Esta no es tu casa!
RETURN 1
ELIF (<ARGO.UID>==<SRC.UID>)
SRC.SYSMESSAGE @03b2,,1, You can't eject yourself!
RETURN 1
ELIF (<UID.<ARGS>.ISOWNER <ARGO>>)
SRC.SYSMESSAGE @03b2,,1, You can't eject the house owner!
RETURN 1
ELIF (<UID.<ARGS>.ISCOOWNER <ARGO>>)
SRC.SYSMESSAGE @03b2,,1, You can't eject a house co-owner!
RETURN 1
ELIF (<UID.<ARGS>.ISFRIEND <ARGO>>)
SRC.SYSMESSAGE @03b2,,1, You can't eject a house friend!
RETURN 1
ENDIF
TRY UID.<ARGO.UID>.GO=<UID.<ARGS>.P>
TRY UID.<ARGO.UID>.FIX
SRC.SYSMESSAGE @03b2,,1, You eject <ARGO.NAME> from the house.
TRY UID.<ARGO>.SYSMESSAGE @03b2,,1, Tu has sido explulsado <SRC.NAME>'s house.
RETURN 1
ELSE
SRC.SYSMESSAGE @03b2,,1, You cannot eject that from the house!
ENDIF
[FUNCTION f_house_lock]
IF (<ARGO.ISITEM>)
IF (<ARGO.TYPE>==t_door_locked) || (<ARGO.TYPE>==t_door) || (<ARGO.TYPE>==t_sign_gump)
SRC.SYSMESSAGE @03b2,,1, You cannot lock that down!
RETURN 1
ENDIF
IF !(<ARGO.CONT>)
IF (<ARGO.REGION.UID>==<UID.<ARGS>.REGION.UID>)
IF (<ARGO.ATTR> & attr_move_never)
SRC.SYSMESSAGE @03b2,,1, This is already locked down.
ELIF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<UID.<ARGS>.TAG0.LOCKED_ITEMS> >= <DEF.GLOBAL_SECURE_STORAGE>)) || (<UID.<ARGS>.TAG0.LOCKED_ITEMS> >= <UID.<ARGS>.TAG0.STORAGE_LIMIT>)
SRC.SYSMESSAGE @03b2,,1, tu no puedes losckear esto, tu casa llego al limite de almacenaje.
ELSE
IF (<ARGO.ATTR> & attr_decay)
TRY UID.<ARGO.UID>.ATTR=<ARGO.ATTR>-attr_decay
ENDIF
TRY UID.<ARGO.UID>.LINK=<ARGO.REGION.UID>
TRY UID.<ARGO.UID>.ATTR=<ARGO.ATTR>+attr_move_never
TRY UID.<ARGO.UID>.SAY=(locked down)
TRY UID.<ARGO.UID>.EVENTS +t_locked_down
TRY UID.<ARGO.UID>.TIMER=-1
TRY UID.<ARGO.UID>.UPDATE
TRY UID.<ARGS>.TAG0.LOCKED_ITEMS=<eval <UID.<ARGS>.TAG0.LOCKED_ITEMS>+1>
return 1
ENDIF
ELSE
SRC.SYSMESSAGE @03b2,,1, This is not in your house.
ENDIF
ENDIF
ELSE
SRC.SYSMESSAGE @03b2,,1, tu no puede fijar esto!
ENDIF
[FUNCTION f_house_release]
IF (<ARGO.ISITEM>)
IF (<ARGO.TYPE>==t_door_locked) || (<ARGO.TYPE>==t_door) || (<ARGO.TYPE>==t_sign_gump)
SRC.SYSMESSAGE @03b2,,1, tu no puedes liberar esto.
RETURN 1
ENDIF
IF !(<ARGO.CONT>)
IF (<ARGO.REGION.UID>==<UID.<ARGS>.REGION.UID>)
IF (<ARGO.TYPE>==t_container)
LOCAL.RESCOUNT=<ARGO.RESCOUNT>
ENDIF
IF (<ARGO.ISEVENT.t_access_owner>) || (<ARGO.ISEVENT.t_access_coowner>) || (<ARGO.ISEVENT.t_access_friend>) || (<ARGO.ISEVENT.t_access_guild>)
TRY UID.<ARGO.UID>.LINK=0fffffff
TRY UID.<ARGO.UID>.ATTR=<ARGO.ATTR>-attr_move_never
TRY UID.<ARGO.UID>.ATTR=<ARGO.ATTR>+attr_decay
TRY UID.<ARGO.UID>.SAY=(no longer secure)
TRY UID.<ARGO.UID>.EVENTS -t_access_owner
TRY UID.<ARGO.UID>.EVENTS -t_access_coowner
TRY UID.<ARGO.UID>.EVENTS -t_access_friend
TRY UID.<ARGO.UID>.EVENTS -t_access_guild
TRY UID.<ARGO.UID>.TIMER=<eval <SERV.DecayTimer>*60>
TRY UID.<ARGO.UID>.UPDATE
TRY UID.<ARGS>.TAG0.LOCKED_ITEMS=<eval <UID.<ARGS>.TAG0.LOCKED_ITEMS>-1>
TRY UID.<ARGS>.TAG0.SECURE_CONT=<eval <UID.<ARGS>.TAG0.SECURE_CONT>-<LOCAL.RESCOUNT>>
ELIF (<ARGO.ATTR> & attr_move_never)
TRY UID.<ARGO.UID>.LINK=0fffffff
TRY UID.<ARGO.UID>.ATTR=<ARGO.ATTR>-attr_move_never
TRY UID.<ARGO.UID>.ATTR=<ARGO.ATTR>+attr_decay
TRY UID.<ARGO.UID>.SAY=(no longer locked down)
TRY UID.<ARGO.UID>.EVENTS -t_locked_down
TRY UID.<ARGO.UID>.TIMER=<eval <SERV.DecayTimer>*60>
TRY UID.<ARGO.UID>.UPDATE
TRY UID.<ARGS>.TAG0.LOCKED_ITEMS=<eval <UID.<ARGS>.TAG0.LOCKED_ITEMS>-1>
ELSE
SRC.SYSMESSAGE @03b2,,1, This isn't locked down...
ENDIF
ELSE
SRC.SYSMESSAGE @03b2,,1, This is not in your house.
ENDIF
ENDIF
ENDIF
[FUNCTION f_house_secure]
IF (<ARGO.ISITEM>)
IF (<ARGO.TYPE>==t_door_locked) || (<ARGO.TYPE>==t_door) || (<ARGO.TYPE>==t_sign_gump)
SRC.SYSMESSAGE @03b2,,1, You cannot secure this.
RETURN 1
ELIF (<UID.<ARGS>.ISCOOWNER <SRC>>) && ((<ARGO.ISEVENT.t_access_owner>) || (<ARGO.ISEVENT.t_access_guild>))
SRC.SYSMESSAGE @03b2,,1, tu no puedes cambiar el acceso a esto.
RETURN 1
ENDIF
IF !(<ARGO.CONT>)
IF (<ARGO.REGION.UID>==<UID.<ARGS>.REGION.UID>)
IF (<ARGO.ATTR> & attr_move_never) && (<ARGO.TYPE> != t_container)
SRC.SYSMESSAGE @03b2,,1, esto esta fijado y no seguro.
ELIF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<UID.<ARGS>.TAG0.LOCKED_ITEMS> >= <DEF.GLOBAL_SECURE_STORAGE>)) || (<UID.<ARGS>.TAG0.LOCKED_ITEMS> >= <UID.<ARGS>.TAG0.STORAGE_LIMIT>)
SRC.SYSMESSAGE @03b2,,1, tu no puedes asegurar esto ya que supera el limite de tu casa.
ELIF (<ARGO.TYPE> != t_container)
IF (<ARGO.ATTR> & attr_decay)
TRY UID.<ARGO.UID>.ATTR=<ARGO.ATTR>-attr_decay
ENDIF
TRY UID.<ARGO.UID>.LINK=<ARGO.REGION.UID>
TRY UID.<ARGO.UID>.ATTR=<ARGO.ATTR>+attr_move_never
TRY UID.<ARGO.UID>.SAY=(locked down)
TRY UID.<ARGO.UID>.EVENTS +t_locked_down
TRY UID.<ARGO.UID>.TIMER=-1
TRY UID.<ARGO.UID>.UPDATE
TRY UID.<ARGS>.TAG0.LOCKED_ITEMS=<eval <UID.<ARGS>.TAG0.LOCKED_ITEMS>+1>
ELSE
SRC.SDIALOG d_house_access <ARGO.UID>
ENDIF
ELSE
SRC.SYSMESSAGE @03b2,,1, This is not in your house.
ENDIF
ELSE
SRC.SYSMESSAGE @03b2,,1, This is not in your house.
ENDIF
ENDIF
[FUNCTION f_house_transfer]
IF (<ARGO.ISPLAYER>)
IF (<ARGO.UID>==<SRC.UID>)
SRC.SYSMESSAGE @03b2,,1, tu no puedes transferirte la casa a ti mismo.
RETURN 1
ELIF (<UID.<ARGS>.ISOWNER <ARGO>>)
SRC.SYSMESSAGE @03b2,,1, <ARGO.NAME> Ya es owner de la casa!
RETURN 1
ENDIF
SRC.DIALOGCLOSE d_house_demolish
TRY UID.<ARGS>.TAG.LASTTRADED=<serv.rtime.format %d>-<serv.rtime.format %m>-<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>
TRY UID.<ARGS>.MORE2=<ARGO.UID>
TRY UID.<ARGS>.LINK.MORE1=<ARGO.UID>
SRC.MEMORYFINDTYPE(0100).CONT=<ARGO.UID>
SRC.SYSMESSAGE @03b2,,1, tu transferiste tu casa a <ARGO.NAME>.
TRY UID.<ARGO.UID>.SYSMESSAGE @03b2,,1, <SRC.NAME> quiere transferirte esta casa ti.
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
TRY UID.<UID.<ARGS>.TAG0.CO_OWNER_<dLOCAL._FOR>>.NOTICE=You got removed from the Co-Owner access list of the house '<SRC.TARG.NAME>' because it was been traded to a new owner on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
TRY UID.<ARGS>.TAG0.CO_OWNER_<dLOCAL._FOR>=
ENDFOR
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
TRY UID.<UID.<ARGS>.TAG0.FRIEND_<dLOCAL._FOR>>.NOTICE=You got removed from the Friend access list of the house '<SRC.TARG.NAME>' because it was been traded to a new owner on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
TRY UID.<ARGS>.TAG0.FRIEND_<dLOCAL._FOR>=
ENDFOR
FOR 1 <DEF.MAX_HOUSE_BANS>
TRY UID.<UID.<ARGS>.TAG0.BAN_<dLOCAL._FOR>>.NOTICE=You got removed from the Banned access list of the house '<SRC.TARG.NAME>' because it was been traded to a new owner on <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>.
TRY UID.<ARGS>.TAG0.BAN_<dLOCAL._FOR>=
ENDFOR
return 1
ELSE
SRC.SYSMESSAGE @03b2,,1, Only players can own a house!
return 1
ENDIF
[FUNCTION addgold_bank]
SERV.NEWITEM i_bag
NEW.COLOR=032
NEW.CONT=<FINDLAYER.layer_bankbox>
NEW.f_add_gold <ARGS>
[FUNCTION f_add_gold]
IF (<ARGS> > 0)
SERV.NEWITEM i_gold
IF (<ARGS> > 65000)
NEW.AMOUNT=65000
NEW.CONT=<UID>
f_add_gold <eval <ARGS>-<NEW.AMOUNT>>
ELSE
NEW.AMOUNT=<ARGS>
NEW.CONT=<UID>
ENDIF
ENDIF
[FUNCTION remove_invalid_houses]
SERV.NEWITEM i_gold
NEW.P 1,1,0,0
NEW.invalid_house_remove
NEW.REMOVE
[FUNCTION invalid_house_remove]
FORITEMS 6144
IF (<BASEID>==i_sign_brass) && !(<LINK>==04fffffff)
IF !(<SERV.UID.<MORE2>>)
TAG.DEMOLITION_PENDING=1
TIMER=1
ENDIF
ENDIF
ENDFOR
[FUNCTION check_account_typedef]
FOR <ACCOUNT.CHARS>
LOCAL.RETURN=<eval <LOCAL.RETURN>+<ACCOUNT.CHAR.<eval <dLOCAL._FOR>-1>.f_check_typedefs <ARGS>>>
ENDFOR
return <LOCAL.RETURN>
[FUNCTION f_check_typedefs]
FOR 0 <eval <RESCOUNT>-1>
IF (<UID.<FINDCONT(<dLOCAL._FOR>).LINK>.ISITEM>)
IF (<UID.<FINDCONT(<dLOCAL._FOR>).LINK>.TYPE>==<ARGS>)
LOCAL.TYPE += 1
ENDIF
ENDIF
ENDFOR
return <LOCAL.TYPE>
[FUNCTION area]
IF (<UID.<REGION.UID>.MULTIREGION>)
LOCAL.AREAx=<eval (<STRARG <UID.<REGION.UID>.MULTIREGION>>+<STRARG <STREAT <UID.<REGION.UID>.MULTIREGION>>>)>
LOCAL.AREAy=<eval (<STRARG <STREAT <STREAT <UID.<REGION.UID>.MULTIREGION>>>>+<STRARG <STREAT <STREAT <STREAT <UID.<REGION.UID>.MULTIREGION>>>>>)>
return <eval (<LOCAL.AREAx>*<LOCAL.AREAy>)*-1>
ELIF (<SERV.ITEMDEF.<ARGS>.MULTIREGION>)
LOCAL.AREAx=<eval (<STRARG <SERV.ITEMDEF.<ARGS>.MULTIREGION>>+<STRARG <STREAT <SERV.ITEMDEF.<ARGS>.MULTIREGION>>>)>
LOCAL.AREAy=<eval (<STRARG <STREAT <STREAT <SERV.ITEMDEF.<ARGS>.MULTIREGION>>>>+<STRARG <STREAT <STREAT <STREAT <SERV.ITEMDEF.<ARGS>.MULTIREGION>>>>>)>
return <eval (<LOCAL.AREAx>*<LOCAL.AREAy>)*-1>
ENDIF
//////////////////////////////////////////////////////////////////////////////////
[SPEECH spk_player]
ON=yo quiero fijar esto
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi) && (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>)
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<dSRC.UID.<UID.<SRC.REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS> < <dDEF.GLOBAL_LOCKDOWNS>) && (<eval ((<SRC.TARG.TAG0.SECURE_ITEMS>+<SRC.TARG.TAG0.SECURE_CONT>)+<SRC.TARG.TAG0.LOCKED_ITEMS>)> < <dDEF.GLOBAL_SECURE_STORAGE>)) || (<dSRC.UID.<UID.<SRC.REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS> < <eval <dSRC.UID.<UID.<SRC.REGION.UID>.MORE2>.TAG0.STORAGE_LIMIT>/2>) && (<eval ((<SRC.TARG.TAG0.SECURE_ITEMS>+<SRC.TARG.TAG0.SECURE_CONT>)+<SRC.TARG.TAG0.LOCKED_ITEMS>)> < <eval <dSRC.UID.<UID.<SRC.REGION.UID>.MORE2>.TAG0.STORAGE_LIMIT>/2>)
SRC.TARGETF f_house_lock <UID.<SRC.REGION.UID>.MORE2>
SRC.SYSMESSAGE @03b2,,1, que quieres fijar?
ELSE
SRC.SYSMESSAGE @03b2,,1, tu no puedes fijar mas nada ya que superaste el limite de tu casa.
ENDIF
ENDIF
ON=yo quiero asegurar esto
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi) && (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>)
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<dSRC.UID.<UID.<SRC.REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS> < <dDEF.GLOBAL_LOCKDOWNS>) && (<eval ((<SRC.TARG.TAG0.SECURE_ITEMS>+<SRC.TARG.TAG0.SECURE_CONT>)+<SRC.TARG.TAG0.LOCKED_ITEMS>)> < <dDEF.GLOBAL_SECURE_STORAGE>)) || (<dSRC.UID.<UID.<SRC.REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS> < <eval <dSRC.UID.<UID.<SRC.REGION.UID>.MORE2>.TAG0.STORAGE_LIMIT>/2>) && (<eval ((<SRC.TARG.TAG0.SECURE_ITEMS>+<SRC.TARG.TAG0.SECURE_CONT>)+<SRC.TARG.TAG0.LOCKED_ITEMS>)> < <eval <dSRC.UID.<UID.<SRC.REGION.UID>.MORE2>.TAG0.STORAGE_LIMIT>/2>)
SRC.TARGETF f_house_secure <UID.<SRC.REGION.UID>.MORE2>
SRC.SYSMESSAGE @03b2,,1, elige el objeto que quieres asegurar
ELSE
SRC.SYSMESSAGE @03b2,,1, tu no puedes asegurar esto ya que superaste el limite de tu casa.
ENDIF
ENDIF
ON=yo quiero liberar esto
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi) && (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>)
SRC.TARGETF f_house_release <UID.<SRC.REGION.UID>.MORE2>
SRC.SYSMESSAGE @03b2,,1, elige el objeto que quieres liberar.
ENDIF
ON=Te baneo*
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi) && (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>)
SRC.TARGETF f_house_banish <UID.<SRC.REGION.UID>.MORE2>
SRC.SYSMESSAGE @03b2,,1, Selecciona a quien baneas de la casa.
ENDIF
ON=Te expulso
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi) && (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>)
SRC.TARGETF f_house_eject <UID.<SRC.REGION.UID>.MORE2>
SRC.SYSMESSAGE @03b2,,1, Selecciona a quien expulsas de la casa.
ENDIF
//////////////////////////////////////////////////////////////////////////////////
[TYPEDEF t_door_locked]
ON=@ContextMenuRequest
IF (<DEF.HOUSE_DOOR_ACCESS>==1)
IF (<UID.<UID.<REGION.UID>.MORE2>.ISOWNER <SRC>>)
SRC.AddContextEntry 101,6203
ENDIF
ENDIF
ON=@ContextMenuSelect
SRC.SDIALOG d_house_access <UID>
ON=@Dclick
IF (<UID.<UID.<REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<REGION.UID>.MORE2>.ISCOOWNER <SRC>>) || (<UID.<UID.<REGION.UID>.MORE2>.ISFRIEND <SRC>>)
TIMER 0
return 1
ENDIF
[TYPEDEF t_access_owner]
ON=@ClientToolTip
IF (<TYPE> != t_door_locked)
SRC.ADDCLILOC 501644
ENDIF
ON=@Click
IF (<TYPE> != t_door_locked)
MESSAGE (Locked Down & Secure)
ENDIF
ON=@DropOn_Self
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<eval ((<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_ITEMS>+<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>)+<UID.<UID.<REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS>)> < <dDEF.GLOBAL_SECURE_STORAGE>)) || (<eval ((<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_ITEMS>+<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>)+<UID.<UID.<REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS>)> < <UID.<UID.<REGION.UID>.MORE2>.TAG0.STORAGE_LIMIT>)
TIMERF 1,f_update_rescount <RESCOUNT>
ELSE
return 1
ENDIF
ON=@PickUp_Self
TRY UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT = <eval <UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>-1>
ON=@DClick
IF !(<SRC.ISGM>)
IF !(<UID.<UID.<REGION.UID>.MORE2>.ISOWNER <SRC>>)
SRC.SYSMESSAGE @03b2,,1, Only the owner of this house can use this.
return 1
ENDIF
ENDIF
[TYPEDEF t_access_coowner]
ON=@ClientToolTip
IF (<TYPE> != t_door_locked)
SRC.ADDCLILOC 501644
ENDIF
ON=@Click
IF (<TYPE> != t_door_locked)
MESSAGE (Locked Down & Secure)
ENDIF
ON=@DropOn_Self
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<eval ((<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_ITEMS>+<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>)+<UID.<UID.<REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS>)> < <dDEF.GLOBAL_SECURE_STORAGE>)) || (<eval ((<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_ITEMS>+<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>)+<UID.<UID.<REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS>)> < <UID.<UID.<REGION.UID>.MORE2>.TAG0.STORAGE_LIMIT>)
TIMERF 1,f_update_rescount <RESCOUNT>
ELSE
return 1
ENDIF
ON=@PickUp_Self
TRY UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT = <eval <UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>-1>
ON=@DClick
IF !(<SRC.ISGM>)
IF (<UID.<UID.<REGION.UID>.MORE2>.ISCOOWNER <SRC>>) || (<UID.<UID.<REGION.UID>.MORE2>.ISOWNER <SRC>>)
return 0
ELSE
SRC.SYSMESSAGE @03b2,,1, solo co-owners pueden usarlos.
return 1
ENDIF
ENDIF
[TYPEDEF t_access_friend]
ON=@ClientToolTip
IF (<TYPE> != t_door_locked)
SRC.ADDCLILOC 501644
ENDIF
ON=@Click
IF (<TYPE> != t_door_locked)
MESSAGE (Locked Down & Secure)
ENDIF
ON=@DropOn_Self
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<eval ((<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_ITEMS>+<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>)+<UID.<UID.<REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS>)> < <dDEF.GLOBAL_SECURE_STORAGE>)) || (<eval ((<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_ITEMS>+<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>)+<UID.<UID.<REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS>)> < <UID.<UID.<REGION.UID>.MORE2>.TAG0.STORAGE_LIMIT>)
TIMERF 1,f_update_rescount <RESCOUNT>
ELSE
return 1
ENDIF
ON=@PickUp_Self
TRY UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT = <eval <UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>-1>
ON=@DClick
IF !(<SRC.ISGM>)
IF (<UID.<UID.<REGION.UID>.MORE2>.ISFRIEND <SRC>>) || (<UID.<UID.<REGION.UID>.MORE2>.ISCOOWNER <SRC>>) || (<UID.<UID.<REGION.UID>.MORE2>.ISOWNER <SRC>>)
return 0
ELSE
SRC.SYSMESSAGE @03b2,,1, solo amigos pueden usar esto.
return 1
ENDIF
ENDIF
[TYPEDEF t_access_guild]
ON=@ClientToolTip
IF (<TYPE> != t_door_locked)
SRC.ADDCLILOC 501644
ENDIF
ON=@Click
IF (<TYPE> != t_door_locked)
MESSAGE (Locked Down & Secure)
ENDIF
ON=@DropOn_Self
IF ((<DEF.USE_GLOBAL_STORA
Home
Forum
Downloads
GitHub
SphereWiki
Search
Discord Channel
Facebook
Twitter
![[Image: 2hy9q0y.png]](http://i46.tinypic.com/2hy9q0y.png)
![[+]](images/collapse_collapsed.gif)
![[Image: 2nis46r.jpg]](http://i49.tinypic.com/2nis46r.jpg)
