Sadece bunları buldum
[TYPEDEF t_sign_gump]
ON=@DClick
IF (<LINK.TYPE> != t_multi_custom)
RETURN 2
ELSEIF (<LINK.MORE1> != <SRC.UID>) && !(<SRC.ISGM>)
RETURN 2
ELSEIF (<SRC.REGION.UID> != <REGION.UID>)
RETURN 2
ELSEIF (<SRC.HOUSEDESIGN>)
SRC.SYSMESSAGE You are already designing <QVAL (<SRC.HOUSEDESIGN.UID> == <LINK.UID>)? this:another> building.
RETURN 1
ELSEIF !(<SRC.ISEVENT.e_house_customize>)
SRC.EVENTS +e_house_customize
ENDIF
LINK.CUSTOMIZE
RETURN 1
[EVENTS e_house_customize]
ON=@SkillStart
IF !(<HOUSEDESIGN>)
RETURN 2
ENDIF
SYSMESSAGE You cannot do this whilst designing a house.
RETURN 1
ON=@SkillUseQuick
IF !(<HOUSEDESIGN>)
RETURN 2
ENDIF
RETURN 1
ON=@HouseDesignCommit
IF (<ISGM>)
SYSMESSAGE Your new house design has been committed.
RETURN 2
ENDIF
LOCAL.OLDCOST = <EVAL (<ARGN1> * 500)>
LOCAL.NEWCOST = <EVAL (<ARGN2> * 500)>
LOCAL.CURCOST = <EVAL (<LOCAL.NEWCOST> - <LOCAL.OLDCOST>)>
IF (<GOLD> < <LOCAL.CURCOST>)
SYSMESSAGE You cannot afford this house design.
RETURN 1
ENDIF
SYSMESSAGE Your new house design has been committed.
IF (<LOCAL.CURCOST> == 0)
SYSMESSAGE As the new design costs the same as the previous one, no gold has been taken out of your account.
ELSEIF (<LOCAL.CURCOST> < 0)
LOCAL.CURCOST = <EVAL (0 - <LOCAL.CURCOST>)>
GOLD += <LOCAL.CURCOST>
SYSMESSAGE As the new design is cheaper than the previous one, <dLOCAL.CURCOST> gold has been returned to you.
ELSE
GOLD -= <LOCAL.CURCOST>
SYSMESSAGE <dLOCAL.CURCOST> gold has been taken out of your account to pay for the construction.
ENDIF
RETURN 2
ON=@HouseDesignExit
SYSMESSAGE You have left house design mode.
RETURN 2
[EOF]
[typedef t_multi]
on=@create
timerf 1,f_check_house
[function f_check_house]
args = <multiregion>
local.x_axis1 = (<argv[0]> + <p.x>)
local.x_axis2 = (<argv[2]> + <p.x>)
local.y_axis1 = (<argv[1]> + <p.y>)
local.y_axis2 = (<argv[3]> + <p.y>)
for <local.y_axis1> <local.y_axis2>
if (<uid.<serv.map(<eval (<local.x_axis1>-2)>,<dlocal._for>,<p.z>,<p.m>).region.uid>.type> == t_multi) || (<uid.<serv.map(<eval (<local.x_axis2>+2)>,<dlocal._for>,<p.z>,<p.m>).region.uid>.type> == t_multi)
uid.<more1>.sysmessage @38,,1 Hata: Buraya ev kuramazsınız.
serv.newitem i_deed_<strsub 8 100 <baseid>>,1,<uid.<more1>.findlayer(layer_pack).uid>
remove
return 1
endif
endfor